Mercurial > repl
annotate 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 |
| rev | line source |
|---|---|
| ocsenave@3 | 1 #!/usr/bin/perl |
| ocsenave@3 | 2 |
| ocsenave@3 | 3 $replP = $ARGV[0]; |
| ocsenave@3 | 4 |
| ocsenave@3 | 5 @JVM_options = |
| ocsenave@3 | 6 ("-verbose:gc", |
| ocsenave@3 | 7 "-Xmn500M", |
| ocsenave@3 | 8 "-Xms3000M", |
| ocsenave@3 | 9 "-Xmx3000M", |
| ocsenave@3 | 10 "-server"); |
| ocsenave@3 | 11 |
| ocsenave@3 | 12 @classpath_projects = ("/home/ocsenave/proj/rlm/src"); |
| ocsenave@3 | 13 |
| ocsenave@3 | 14 @classpath_libs = ("/home/ocsenave/java/lib/*"); |
| ocsenave@3 | 15 |
| ocsenave@3 | 16 @C_libs = (); |
| ocsenave@3 | 17 |
| ocsenave@3 | 18 $JVM_options = join " ", @JVM_options; |
| ocsenave@3 | 19 $classpath_projects = join ":", @classpath_projects; |
| ocsenave@3 | 20 $classpath_libs = join ":", @classpath_libs; |
| ocsenave@3 | 21 $C_libs = join ":", @C_libs; |
| ocsenave@3 | 22 |
| ocsenave@3 | 23 $swank_launch ="clojure.main"; |
| ocsenave@3 | 24 $swank_launch .= " -e "; |
| ocsenave@3 | 25 $swank_launch .= '"'; |
| ocsenave@3 | 26 $swank_launch .= "(do (require 'swank.swank)"; |
| ocsenave@3 | 27 $swank_launch .= "(require 'rlm.rlm-commands)"; |
| ocsenave@3 | 28 $swank_launch .= "(swank.swank/start-repl 4005))"; |
| ocsenave@3 | 29 $swank_launch .= '"'; |
| ocsenave@3 | 30 |
| ocsenave@3 | 31 $repl_launch = "clojure.main"; |
| ocsenave@3 | 32 |
| ocsenave@3 | 33 $clojure_command = $swank_launch; |
| ocsenave@3 | 34 |
| ocsenave@3 | 35 if ($replP eq "--repl") {$clojure_command = $repl_launch;} |
| ocsenave@3 | 36 |
| ocsenave@3 | 37 $command = "java $JVM_options -cp $classpath_projects:$classpath_libs" . |
| ocsenave@3 | 38 " -Djava.library.path=$C_libs $clojure_command"; |
| ocsenave@3 | 39 |
| ocsenave@3 | 40 print "$command\n"; |
| ocsenave@3 | 41 |
| ocsenave@3 | 42 system($command); |
| ocsenave@3 | 43 |