SCM Repository
Annotation of /sml/trunk/src/cm/bootstrap/cmb-slave-hook.sml
Parent Directory
| 
Revision Log
Revision 457 - (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 : | blume | 452 | type slave = |
| 11 : | blume | 456 | (string * string) -> |
| 12 : | blume | 457 | (GroupGraph.group * (DependencyGraph.sbnode -> bool) * |
| 13 : | PathConfig.mode) option | ||
| 14 : | blume | 452 | val m = ref (StringMap.empty: slave StringMap.map) |
| 15 : | blume | 449 | in |
| 16 : | blume | 452 | fun init arch f = m := StringMap.insert (!m, arch, f) |
| 17 : | fun slave arch s = | ||
| 18 : | case StringMap.find (!m, arch) of | ||
| 19 : | NONE => NONE | ||
| 20 : | | SOME f => f s | ||
| 21 : | blume | 449 | end |
| 22 : | end |
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
