Skip to main content

Browse the archive

https://gitorious.org/ocamlp3l/ocamlp3l_cvs.git
30 March 2016, 07:40:04 UTC
Revision aef7d19aaeaafda4c00b781819be322df32c6915 authored by zli on 09 January 2007, 22:06:36 UTC, committed by zli on 09 January 2007, 22:06:36 UTC 
Add .3ml .3mli suffix support
1 parent ca91a5f
Raw File
Tip revision: aef7d19aaeaafda4c00b781819be322df32c6915 authored by zli on 09 January 2007, 22:06:36 UTC
Add .3ml .3mli suffix support
Tip revision: aef7d19
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