Mercurial > repl
diff 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 |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/dylan/swank-all.pl Tue Feb 28 19:53:47 2012 -0600 1.3 @@ -0,0 +1,43 @@ 1.4 +#!/usr/bin/perl 1.5 + 1.6 +$replP = $ARGV[0]; 1.7 + 1.8 +@JVM_options = 1.9 + ("-verbose:gc", 1.10 + "-Xmn500M", 1.11 + "-Xms3000M", 1.12 + "-Xmx3000M", 1.13 + "-server"); 1.14 + 1.15 +@classpath_projects = ("/home/ocsenave/proj/rlm/src"); 1.16 + 1.17 +@classpath_libs = ("/home/ocsenave/java/lib/*"); 1.18 + 1.19 +@C_libs = (); 1.20 + 1.21 +$JVM_options = join " ", @JVM_options; 1.22 +$classpath_projects = join ":", @classpath_projects; 1.23 +$classpath_libs = join ":", @classpath_libs; 1.24 +$C_libs = join ":", @C_libs; 1.25 + 1.26 +$swank_launch ="clojure.main"; 1.27 +$swank_launch .= " -e "; 1.28 +$swank_launch .= '"'; 1.29 +$swank_launch .= "(do (require 'swank.swank)"; 1.30 +$swank_launch .= "(require 'rlm.rlm-commands)"; 1.31 +$swank_launch .= "(swank.swank/start-repl 4005))"; 1.32 +$swank_launch .= '"'; 1.33 + 1.34 +$repl_launch = "clojure.main"; 1.35 + 1.36 +$clojure_command = $swank_launch; 1.37 + 1.38 +if ($replP eq "--repl") {$clojure_command = $repl_launch;} 1.39 + 1.40 +$command = "java $JVM_options -cp $classpath_projects:$classpath_libs" . 1.41 + " -Djava.library.path=$C_libs $clojure_command"; 1.42 + 1.43 +print "$command\n"; 1.44 + 1.45 +system($command); 1.46 +