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 873 - (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 592 keep_going: bool }
18 : blume 299
19 : blume 309 type info = { param: param,
20 :     groupreg: GroupReg.groupreg,
21 : blume 692 errcons: PrettyPrint.ppconsumer,
22 :     youngest: TStamp.t ref }
23 : blume 666
24 : blume 873 fun bind { param = { penv, archos, fnpolicy, symval, keep_going },
25 : blume 692 groupreg, errcons, youngest } rb =
26 : blume 666 { param = { penv = SrcPath.bind penv rb,
27 : blume 873 archos = archos,
28 : blume 666 fnpolicy = fnpolicy,
29 :     symval = symval,
30 :     keep_going = keep_going },
31 : blume 692 groupreg = groupreg, errcons = errcons, youngest = youngest }
32 : blume 297 end

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