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