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 +