Add export to common lisp form, forms
[clnl] / bin / runcmd.scala
1 #!/bin/sh
2 exec scalas "$0" -q "$@"
3 !#
4
5 /***
6   logLevel := Level.Error
7
8   logLevel in Global := Level.Error
9
10   scalaVersion := "2.9.2"
11
12   libraryDependencies ++= Seq(
13     "asm" % "asm-all" % "3.3.1",
14     "org.picocontainer" % "picocontainer" % "2.13.6",
15     "org.nlogo" % "NetLogo" % "5.2.0" from "http://ccl.northwestern.edu/netlogo/5.2.0/NetLogo.jar"
16   )
17 */
18
19 import org.nlogo.headless.HeadlessWorkspace
20 import org.nlogo.api
21 import org.nlogo.nvm
22 import org.nlogo.util.Utils.url2String
23
24 import collection.JavaConversions._
25
26 val input = io.Source.stdin.getLines.mkString("\n").split("\\@\\#\\$\\#\\@\\#\\$\\#\\@")
27
28 System.out.println("----")
29 val workspace = HeadlessWorkspace.newInstance
30 workspace.silent = true
31
32 if (input.length > 2 && input(2).length > 0) {
33   val modelSetup = input(2)
34   workspace.openFromSource(modelSetup +
35 """
36 @#$#@#$#@
37 GRAPHICS-WINDOW
38 210
39 10
40 649
41 470
42 -1
43 -1
44 13.0
45 1
46 10
47 1
48 1
49 1
50 0
51 1
52 1
53 1
54 -1
55 1
56 -1
57 1
58 0
59 0
60 1
61 ticks
62 30.0
63
64 @#$#@#$#@
65 @#$#@#$#@
66 @#$#@#$#@
67 NetLogo 5.2.0""")
68 } else {
69   workspace.openFromSource(url2String("file:resources/empty.nlogo"))
70 }
71
72 workspace.mainRNG.setSeed(15)
73
74 val commands = input(0)
75 if(commands.length > 0) {
76   workspace.runCompiledCommands(new api.SimpleJobOwner("test", workspace.world.mainRNG, classOf[api.Observer]), workspace.compileCommands(commands))
77 }
78 if(input.length > 1) {
79   val reporter = input(1)
80   if(reporter.length > 0) {
81     System.out.println(org.nlogo.api.Dump.logoObject(workspace.runCompiledReporter(new api.SimpleJobOwner("test", workspace.world.mainRNG, classOf[api.Observer]), workspace.compileReporter(reporter))))
82   }
83 }
84
85 workspace.world.exportWorld(new java.io.PrintWriter(System.out, true), true)
86 System.out.println(org.nlogo.headless.Checksummer.calculateChecksum(workspace.world.exportWorld(_, true)))
87
88 workspace.dispose