Mercurial > repl

comparison swank-all.pl @ 2:1579e83305d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
new and better perl script
author Robert McIntyre <rlm@mit.edu>
date Sun, 11 Dec 2011 19:58:57 -0700
parents
children c0a7582262fd
comparison
equal deleted inserted replaced
1:073974145f90 2:1579e83305d7
1 #!/usr/bin/perl
2
3 @JVM_options =
4 ("-verbose:gc",
5 "-Xmn500M",
6 "-Xms3000M",
7 "-Xmx3000M",
8 "-server");
9
10 @classpath_projects =
11 ("/home/r/proj/rlm/src",
12 "/home/r/proj/curry/src",
13 "/home/r/java/lib/*",
14 "/home/r/proj/aurellem/src",
15 "/home/r/proj/pokemon-types/src",
16 "/home/r/proj/cortex/src",
17 "/home/r/proj/cortex/assets",
18 "/home/r/proj/abomination/src",
19 "/home/r/proj/abomination/classes",
20 "/home/r/proj/coderloop/src",
21 "/home/r/proj/audio-send/java/dist/audio-send.jar",
22 "/home/r/proj/audio-send/java/dist/audio-send-natives.jar",
23 "/home/r/proj/jmeCapture/dist/jmeCapture.jar"
24 );
25
26 @classpath_libs =
27 ("/home/r/java/incanter/*",
28 "/home/r/java/enlive/src",
29 "/home/r/java/lp_solve-5.5/lib/lpsolve55j.jar",
30 "/home/r/proj/jMonkeyEngine3/dist/lib/jME3-core.jar",
31 "/home/r/proj/jMonkeyEngine3/dist/lib/jME3-desktop.jar",
32 "/home/r/proj/jMonkeyEngine3/dist/lib/jME3-jbullet.jar",
33 "/home/r/proj/jMonkeyEngine3/dist/lib/jME3-lwjgl-natives.jar",
34 "/home/r/proj/jMonkeyEngine3/dist/lib/jME3-lwjgl.jar",
35 "/home/r/proj/jMonkeyEngine3/dist/lib/jME3-testdata.jar",
36 "/home/r/proj/jMonkeyEngine3/dist/opt/jME3-tests.jar",
37 "/home/r/proj/jMonkeyEngine3/dist/lib/jME3-jogg.jar",
38 "/home/r/proj/jMonkeyEngine3/dist/lib/jME3-blender.jar",
39 "/home/r/proj/jMonkeyEngine3/dist/lib/jME3-plugins.jar",
40 "/home/r/proj/jMonkeyEngine3/dist/lib/jbullet.jar",
41 "/home/r/proj/jMonkeyEngine3/dist/lib/lwjgl.jar",
42 "/home/r/proj/jMonkeyEngine3/dist/lib/vecmath.jar",
43 "/home/r/proj/jMonkeyEngine3/dist/lib/j-ogg-oggd.jar",
44 "/home/r/proj/jMonkeyEngine3/dist/lib/j-ogg-vorbisd.jar",
45
46 );
47
48 @C_libs =
49 ("/home/r/java/lp_solve-5.5/lpsolve55/bin/ux64",
50 "/home/r/java/lp_solve-5.5-java/lib/ux64");
51
52
53 $JVM_options = join " ", @JVM_options;
54 $classpath_projects = join ":", @classpath_projects;
55 $classpath_libs = join ":", @classpath_libs;
56 $C_libs = join ":", @C_libs;
57
58 $clojure_launch ="clojure.main";
59 $clojure_launch .= " -e ";
60 $clojure_launch .= '"';
61 $clojure_launch .= "(do (require 'swank.swank)";
62 $clojure_launch .= "(require 'rlm.rlm-commands)";
63 $clojure_launch .= "(swank.swank/start-repl 4005))";
64 $clojure_launch .= '"';
65
66 $command = "java ".$JVM_options." -cp ".$classpath_projects.":".$classpath_libs
67 ." -Djava.library.path=".$C_libs." ".$clojure_launch;
68
69 print "$command\n";
70
71 system($command);
72