diff --git a/modules/compiler_vm/languages/bc.pm b/modules/compiler_vm/languages/bc.pm new file mode 100755 index 00000000..b09751cb --- /dev/null +++ b/modules/compiler_vm/languages/bc.pm @@ -0,0 +1,23 @@ +#!/usr/bin/env perl + +use warnings; +use strict; + +package bc; +use parent '_default'; + +sub initialize { + my ($self, %conf) = @_; + + $self->{sourcefile} = 'prog.bc'; + $self->{execfile} = 'prog.bc'; + $self->{default_options} = ''; + $self->{cmdline} = 'bc -q $options $sourcefile'; +} + +sub preprocess_code { + my $self = shift; + $self->{code} .= "\nquit\n"; +} + +1;