Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/Basics/print/printcontrol.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Basics/print/printcontrol.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1126, Thu Mar 7 21:16:28 2002 UTC revision 1145, Fri Mar 15 02:30:53 2002 UTC
# Line 17  Line 17 
17    
18  structure Control_Print : PRINTCONTROL = struct  structure Control_Print : PRINTCONTROL = struct
19    
20      val m = Controls.module { name = "compiler print settings",      val m = Controls.registry { name = "compiler print settings",
21                                priority = [10, 10, 2],                                priority = [10, 10, 2],
22                                obscurity = 2,                                obscurity = 2,
23                                prefix = "print-",                                prefix = "print-",
24                                default_suffix = SOME "-default",                                default_suffix = SOME "-default",
25                                mk_ename = NONE }                                mk_ename = NONE }
26    
27      val flag_r = Controls.registry m Controls.bool      val flag_r = Controls.group m Controls.bool
28    
29      val int_r = Controls.registry m Controls.int      val int_r = Controls.group m Controls.int
30    
31      fun new (r, s, d, f) =      fun new (r, s, d, f) = Controls.new r { stem = s, descr = d, fallback = f }
         Controls.new_ref r { stem = s, descr = d, fallback = f }  
32    
33      val printDepth = new (int_r, "depth", "max print depth", 5)      val printDepth = new (int_r, "depth", "max print depth", 5)
34      val printLength = new (int_r, "length", "max print length", 12)      val printLength = new (int_r, "length", "max print length", 12)

Legend:
Removed from v.1126  
changed lines
  Added in v.1145

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0