Annotation of /sml/trunk/src/cm/concur/dummy-servers.sml

Parent Directory | Revision Log

---

Revision 464 - (view) (download)

1 :	blume	464	(*
2 :			* Handling compile-servers under non-Unix systems.
3 :			*
4 :			* This is just a placeholder that disables parallel make on non-supported
5 :			* systems.
6 :			*
7 :			* (C) 1999 Lucent Technologies, Bell Laboratories
8 :			*
9 :			* Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
10 :			*)
11 :			structure Servers :> SERVERS = struct
12 :			fun start _ = raise Fail "compile server facility not available"
13 :			fun stop _ = false
14 :			fun kill _ = ()
15 :			fun reset _ = Concur.reset ()
16 :			fun dirbase _ = ()
17 :			fun cd _ = ()
18 :			fun cm _ = ()
19 :			fun cmb _ = ()
20 :			fun compile _ = false
21 :			fun withServers f =
22 :			SafeIO.perform { openIt = fn () => (),
23 :			closeIt = fn () => (),
24 :			work = f,
25 :			cleanup = reset }
26 :			end

---

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