view dylan/swank-all.pl @ 10:d60460cbcf4b tip

integrated genesis.
author Robert McIntyre <rlm@mit.edu>
date Mon, 08 Jul 2013 12:30:50 -0400
parents 8a0edc0a0448
children
line wrap: on
line source
1 #!/usr/bin/perl
3 $replP = $ARGV[0];
5 @JVM_options =
6 ("-verbose:gc",
7 "-Xmn500M",
8 "-Xms3000M",
9 "-Xmx3000M",
10 "-server");
12 @classpath_projects = ("/home/ocsenave/proj/rlm/src");
14 @classpath_libs = ("/home/ocsenave/java/lib/*");
16 @C_libs = ();
18 $JVM_options = join " ", @JVM_options;
19 $classpath_projects = join ":", @classpath_projects;
20 $classpath_libs = join ":", @classpath_libs;
21 $C_libs = join ":", @C_libs;
23 $swank_launch ="clojure.main";
24 $swank_launch .= " -e ";
25 $swank_launch .= '"';
26 $swank_launch .= "(do (require 'swank.swank)";
27 $swank_launch .= "(require 'rlm.rlm-commands)";
28 $swank_launch .= "(swank.swank/start-repl 4005))";
29 $swank_launch .= '"';
31 $repl_launch = "clojure.main";
33 $clojure_command = $swank_launch;
35 if ($replP eq "--repl") {$clojure_command = $repl_launch;}
37 $command = "java $JVM_options -cp $classpath_projects:$classpath_libs" .
38 " -Djava.library.path=$C_libs $clojure_command";
40 print "$command\n";
42 system($command);