Revision f8d61e99908f7b00d6dfafdd12d780660ff5b242 authored by fclement on 09 January 2007, 18:06:59 UTC, committed by fclement on 09 January 2007, 18:06:59 UTC
1 parent 548dc23
Raw File
ocamlp3lcc
#!###PERL###
use Getopt::Long;

$DEFAULTVERSION="###VERSION###";
$INSTALLDIR="###INSTALLDIR###";

$opt_version=$DEFAULTVERSION;

Getopt::Long::config("pass_through"); ### pass relevant options to the called script...

$result =GetOptions ("-version:s","-model:s");

if (! defined($opt_model)) {$opt_model="process";}; ### default execution model is process

$bin  = "$INSTALLDIR/$opt_version/ocamlp3l-v$opt_model/bin/ocamlp3lcc";

if (!(-f $bin)) {print "Version or model unsupported in $bin"; exit 1;};
 
print "Compiling using $opt_model model, version $opt_version\n";

$out = `$bin @ARGV`;
print $out;

exit;
back to top