comparison dylan/swank-all.pl @ 3:8a0edc0a0448

created seperate folders for dylan and robert and fixed old repl script
author Dylan Holmes <ocsenave@gmail.com>
date Tue, 28 Feb 2012 19:53:47 -0600
parents
children
comparison
equal deleted inserted replaced
2:1579e83305d7 3:8a0edc0a0448
1 #!/usr/bin/perl
2
3 $replP = $ARGV[0];
4
5 @JVM_options =
6 ("-verbose:gc",
7 "-Xmn500M",
8 "-Xms3000M",
9 "-Xmx3000M",
10 "-server");
11
12 @classpath_projects = ("/home/ocsenave/proj/rlm/src");
13
14 @classpath_libs = ("/home/ocsenave/java/lib/*");
15
16 @C_libs = ();
17
18 $JVM_options = join " ", @JVM_options;
19 $classpath_projects = join ":", @classpath_projects;
20 $classpath_libs = join ":", @classpath_libs;
21 $C_libs = join ":", @C_libs;
22
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 .= '"';
30
31 $repl_launch = "clojure.main";
32
33 $clojure_command = $swank_launch;
34
35 if ($replP eq "--repl") {$clojure_command = $repl_launch;}
36
37 $command = "java $JVM_options -cp $classpath_projects:$classpath_libs" .
38 " -Djava.library.path=$C_libs $clojure_command";
39
40 print "$command\n";
41
42 system($command);
43