ocsenave@3: #!/usr/bin/perl
ocsenave@3: 
ocsenave@3: $replP =  $ARGV[0];
ocsenave@3: 
ocsenave@3: @JVM_options = 
ocsenave@3:   ("-verbose:gc",
ocsenave@3:    "-Xmn500M",
ocsenave@3:    "-Xms3000M",
ocsenave@3:    "-Xmx3000M",
ocsenave@3:    "-server");
ocsenave@3: 
ocsenave@3: @classpath_projects = ("/home/ocsenave/proj/rlm/src");
ocsenave@3: 
ocsenave@3: @classpath_libs =  ("/home/ocsenave/java/lib/*");
ocsenave@3: 
ocsenave@3: @C_libs = ();
ocsenave@3: 
ocsenave@3: $JVM_options = join " ", @JVM_options;
ocsenave@3: $classpath_projects = join ":", @classpath_projects;
ocsenave@3: $classpath_libs = join ":", @classpath_libs;
ocsenave@3: $C_libs = join ":", @C_libs;
ocsenave@3: 
ocsenave@3: $swank_launch ="clojure.main";
ocsenave@3: $swank_launch .= " -e ";
ocsenave@3: $swank_launch .= '"';
ocsenave@3: $swank_launch .= "(do (require 'swank.swank)";
ocsenave@3: $swank_launch .= "(require 'rlm.rlm-commands)";
ocsenave@3: $swank_launch .= "(swank.swank/start-repl 4005))";
ocsenave@3: $swank_launch .= '"';
ocsenave@3: 
ocsenave@3: $repl_launch = "clojure.main";
ocsenave@3: 
ocsenave@3: $clojure_command = $swank_launch;
ocsenave@3: 
ocsenave@3: if ($replP eq "--repl") {$clojure_command = $repl_launch;}
ocsenave@3: 
ocsenave@3: $command = "java $JVM_options -cp $classpath_projects:$classpath_libs" .
ocsenave@3:     " -Djava.library.path=$C_libs $clojure_command";
ocsenave@3: 
ocsenave@3: print "$command\n";
ocsenave@3: 
ocsenave@3: system($command);
ocsenave@3: