SCM Repository
Annotation of /sml/trunk/src/cm/bootstrap/cmb-slave-hook.sml
Parent Directory
| 
Revision Log
Revision 451 - (view) (download)
| 1 : | blume | 449 | (* |
| 2 : | * The hook module for the dynamically-linked CMB "slave" stub. | ||
| 3 : | * | ||
| 4 : | * (C) 1999 Lucent Technologies, Bell Laboratories | ||
| 5 : | * | ||
| 6 : | * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp) | ||
| 7 : | *) | ||
| 8 : | structure CMBSlaveHook = struct | ||
| 9 : | local | ||
| 10 : | type res = | ||
| 11 : | blume | 451 | GroupGraph.group * |
| 12 : | (DependencyGraph.sbnode -> bool) * | ||
| 13 : | (SmlInfo.info -> unit) | ||
| 14 : | blume | 449 | fun placeholder (s: string) = (NONE: res option) |
| 15 : | val r = ref placeholder | ||
| 16 : | in | ||
| 17 : | fun init f = r := f | ||
| 18 : | fun slave s = !r s | ||
| 19 : | end | ||
| 20 : | end |
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
