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

Parent Directory | 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