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/cm/util/stdcfg.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/util/stdcfg.sml

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

revision 1144, Thu Mar 14 19:53:15 2002 UTC revision 1145, Fri Mar 15 02:30:53 2002 UTC
# Line 9  Line 9 
9      local      local
10          structure C = Controls          structure C = Controls
11    
12          val m = C.module { name = "Compilation Manager (CM)",          val m = C.registry { name = "Compilation Manager (CM)",
13                             priority = [10, 2],                             priority = [10, 2],
14                             obscurity = 2,                             obscurity = 2,
15                             prefix = "cm-",                             prefix = "cm-",
16                             default_suffix = SOME "-default",                             default_suffix = SOME "-default",
17                             mk_ename = NONE }                             mk_ename = NONE }
18    
19          fun new typespec individual = let          fun new typespec = let
20              val r = C.registry m typespec              val r = C.group m typespec
21          in          in
22              C.new r individual              fn individual => C.ref2var (C.new r individual)
23          end          end
24    
25          val bool = new C.bool          val bool = new C.bool
26          val int = new C.int          val int = new C.int
27          val string = new C.string          val string = new C.string
28          val stringoptthunk = new { tname = "string",          val stringoptthunk = new { tname = "string",
29                                     parse = fn s => SOME (fn () => SOME s),                                     fromString = fn s => SOME (fn () => SOME s),
30                                     show = fn th =>                                     toString = fn th =>
31                                               (case th () of                                               (case th () of
32                                                    SOME s => s                                                    SOME s => s
33                                                  | NONE => "(not set)") }                                                  | NONE => "(not set)") }

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

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