# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1330608519 25200
# Node ID 913acb5a675b270ea42ad7fd8fe9148f53ea3369
# Parent  e22ae14fa9d59858f8b697d41f1080cf771f0fdb
repaired old repl script using changes from dylan

diff -r e22ae14fa9d5 -r 913acb5a675b rlm/swank-all.pl
--- a/rlm/swank-all.pl	Thu Mar 01 05:45:14 2012 -0700
+++ b/rlm/swank-all.pl	Thu Mar 01 06:28:39 2012 -0700
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+$replP =  $ARGV[0];
+
 @JVM_options = 
   ("-verbose:gc",
    "-Xmn500M",
@@ -76,16 +78,22 @@
 $classpath_libs = join ":", @classpath_libs;
 $C_libs = join ":", @C_libs;
 
-$clojure_launch ="clojure.main";
-$clojure_launch .= " -e ";
-$clojure_launch .= '"';
-$clojure_launch .= "(do (require 'swank.swank)";
-$clojure_launch .= "(require 'rlm.rlm-commands)";
-$clojure_launch .= "(swank.swank/start-repl 4005))";
-$clojure_launch .= '"';
+$swank_launch ="clojure.main";
+$swank_launch .= " -e ";
+$swank_launch .= '"';
+$swank_launch .= "(do (require 'swank.swank)";
+$swank_launch .= "(require 'rlm.rlm-commands)";
+$swank_launch .= "(swank.swank/start-repl 4005))";
+$swank_launch .= '"';
 
-$command = "java ".$JVM_options." -cp ".$classpath_projects.":".$classpath_libs
-  ." -Djava.library.path=".$C_libs." ".$clojure_launch;
+$repl_launch = "clojure.main";
+
+$clojure_command = $swank_launch;
+
+if ($replP eq "--repl") {$clojure_command = $repl_launch;}
+
+$command = "java $JVM_options -cp $classpath_projects:$classpath_libs" .
+    " -Djava.library.path=$C_libs $clojure_command";
 
 print "$command\n";