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 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