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

SCM Repository

[smlnj] Annotation of /sml/trunk/src/cm/main/general-params.sml
ViewVC logotype

Annotation of /sml/trunk/src/cm/main/general-params.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1344 - (view) (download)

1 : blume 297 (*
2 :     * "General" parameters that may differ from invocation to invocation of
3 : blume 309 * CM. The "info" type bundles them up so they can be passed around
4 : blume 297 * more conveniently.
5 :     *
6 :     * (C) 1999 Lucent Technologies, Bell Laboratories
7 :     *
8 :     * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
9 :     *)
10 :     structure GeneralParams = struct
11 :    
12 : blume 666 type param = { penv: SrcPath.env,
13 : blume 299 fnpolicy: FilenamePolicy.policy,
14 : blume 433 symval: string -> { get: unit -> int option,
15 :     set: int option -> unit },
16 : blume 873 archos: string,
17 : blume 1058 keep_going: bool,
18 :     slave_mode: bool }
19 : blume 299
20 : blume 309 type info = { param: param,
21 :     groupreg: GroupReg.groupreg,
22 : macqueen 1344 errcons: PrettyPrint.device,
23 : blume 692 youngest: TStamp.t ref }
24 : blume 666
25 : blume 1058 fun bind { param = { penv, archos, fnpolicy, symval,
26 :     keep_going, slave_mode },
27 : blume 692 groupreg, errcons, youngest } rb =
28 : blume 666 { param = { penv = SrcPath.bind penv rb,
29 : blume 873 archos = archos,
30 : blume 666 fnpolicy = fnpolicy,
31 :     symval = symval,
32 : blume 1058 keep_going = keep_going,
33 :     slave_mode = slave_mode },
34 : blume 692 groupreg = groupreg, errcons = errcons, youngest = youngest }
35 : blume 297 end

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