Mercurial > repl

     1 #!/usr/bin/perl

     2 

     3 $replP =  $ARGV[0];

     4 

     5 @JVM_options = 

     6   ("-verbose:gc",

     7    "-Xmn500M",

     8    "-Xms3000M",

     9    "-Xmx3000M",

    10    "-server");

    11 

    12 @classpath_projects = ("/home/ocsenave/proj/rlm/src");

    13 

    14 @classpath_libs =  ("/home/ocsenave/java/lib/*");

    15 

    16 @C_libs = ();

    17 

    18 $JVM_options = join " ", @JVM_options;

    19 $classpath_projects = join ":", @classpath_projects;

    20 $classpath_libs = join ":", @classpath_libs;

    21 $C_libs = join ":", @C_libs;

    22 

    23 $swank_launch ="clojure.main";

    24 $swank_launch .= " -e ";

    25 $swank_launch .= '"';

    26 $swank_launch .= "(do (require 'swank.swank)";

    27 $swank_launch .= "(require 'rlm.rlm-commands)";

    28 $swank_launch .= "(swank.swank/start-repl 4005))";

    29 $swank_launch .= '"';

    30 

    31 $repl_launch = "clojure.main";

    32 

    33 $clojure_command = $swank_launch;

    34 

    35 if ($replP eq "--repl") {$clojure_command = $repl_launch;}

    36 

    37 $command = "java $JVM_options -cp $classpath_projects:$classpath_libs" .

    38     " -Djava.library.path=$C_libs $clojure_command";

    39 

    40 print "$command\n";

    41 

    42 system($command);

    43
author	Dylan Holmes <ocsenave@gmail.com>
date	Tue, 28 Feb 2012 19:53:47 -0600
parents
children