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/compile/servers.sig
ViewVC logotype

Annotation of /sml/trunk/src/cm/compile/servers.sig

Parent Directory Parent Directory | Revision Log Revision Log


Revision 451 - (view) (download) (as text)

1 : blume 449 (*
2 :     * Handling compile-servers.
3 :     *
4 :     * This is still rather crude and not very robust. A "real" implementation
5 :     * exists only for Unix.
6 :     *
7 :     * (C) 1999 Lucent Technologies, Bell Laboratories
8 :     *
9 :     * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
10 :     *)
11 : blume 448 signature SERVERS = sig
12 :    
13 :     (* add a compile server *)
14 : blume 449 val start : { name: string, cmd: string * string list,
15 :     pathtrans: (string -> string) option } -> bool
16 : blume 448
17 : blume 449 val stop : string -> unit
18 :    
19 :     val kill : string -> unit
20 :    
21 : blume 451 (* reset scheduler and wait until all servers are idle *)
22 :     val reset : unit -> unit
23 : blume 449
24 : blume 448 (* signal all servers that we are starting with a new .cm file *)
25 : blume 449 val cm : SrcPath.t -> unit
26 : blume 448
27 : blume 449 (* signal all servers that we are starting with a new CMB.make *)
28 :     val cmb : string -> unit
29 :    
30 : blume 448 (* schedule a compilation *)
31 :     val compile : SrcPath.t -> bool
32 : blume 449
33 : blume 451 val evict : SmlInfo.info -> unit
34 :    
35 : blume 450 val withServers : (unit -> 'a) -> 'a
36 : blume 448 end

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