File: buildsml.sml

package info (click to toggle)
smlnj 110.79-8
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid
  • size: 82,564 kB
  • sloc: ansic: 32,532; asm: 6,314; sh: 2,296; makefile: 1,821; perl: 1,170; pascal: 295; yacc: 190; cs: 78; python: 77; lisp: 19
file content (16 lines) | stat: -rw-r--r-- 389 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
val smlpath = SMLofNJ.getCmdName()
val numprocs = 2

fun startSlaves(i) = 
    let val lastSlave =
	CM.Server.start { name = Int.toString i, pathtrans = NONE, pref = 0,
			  cmd = (smlpath, ["@CMslave"]) }
    in
	if i < numprocs then startSlaves(i + 1) else lastSlave
    end;

startSlaves(1); 

CM.autoload "$smlnj/cmb.cm";
CMB.make();
val _ : int = OS.Process.exit(OS.Process.success);