repl: dylan/swank-all.pl annotate

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

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

Mercurial > repl