- when ('SBCL') {
- system 'sbcl', '--noinform', '--eval', qq/(compile-file "$name")/, '--quit' and die "sbcl failed: errno=$! return=$?";
- rename "$basename.fasl", $basename;
+ exec 'rustc', qw/-O -o/, $basename, $name when 'RUST';
+ exec 'obc', qw/-x -o/, $basename, $name when 'OBERON';
+ exec 'ocamlc', qw/-o/, $basename, $name when 'OCAML';
+ exec 'dmd', qw/-version=ONLINE_JUDGE -O -release -inline -noboundscheck/, $name when 'D';
+
+ when ('BRAINFUCK') {
+ system 'bfc', $name and die "bfc failed: errno=$! return=$?";
+ rename "a.out", $basename;