Annotation of /sml/trunk/src/cm/bootstrap/cmb-slave-stub.sml

Parent Directory | Revision Log

---

Revision 449 - (view) (download)

1 :	blume	449	(*
2 :			* This is a stub providing "slave" functionality for CMB.
3 :			* (We use dynamic linking technology to avoid loading host-cmb.cm
4 :			* on the slave side unless it is really needed.)
5 :			*
6 :			* (C) 1999 Lucent Technologies, Bell Laboratories
7 :			*
8 :			* Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
9 :			*)
10 :			structure CMBSlave = struct
11 :			local
12 :			val initialized = ref false
13 :			in
14 :			fun slave make s =
15 :			(if !initialized then ()
16 :			else if make "host-cmb.cm" then initialized := true
17 :			else raise Fail "dynamic linkage for CMB slave failed";
18 :			CMBSlaveHook.slave s)
19 :			end
20 :			end

---

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