Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/cm/concur/dummy-servers.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 479 - (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 : blume 479 type server = unit
13 :     fun start _ =
14 :     (Say.say ["Compile server facility not available."];
15 :     NONE)
16 :     fun stop () = ()
17 :     fun kill () = ()
18 :     fun name () = "<NoServer>"
19 : blume 464 fun reset _ = Concur.reset ()
20 :     fun dirbase _ = ()
21 :     fun cd _ = ()
22 :     fun cm _ = ()
23 :     fun cmb _ = ()
24 :     fun compile _ = false
25 :     fun withServers f =
26 :     SafeIO.perform { openIt = fn () => (),
27 :     closeIt = fn () => (),
28 :     work = f,
29 :     cleanup = reset }
30 :     end

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