Mercurial > repl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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