diff --git a/modules/compiler_vm/languages/scheme.pm b/modules/compiler_vm/languages/scheme.pm new file mode 100755 index 00000000..2f307c75 --- /dev/null +++ b/modules/compiler_vm/languages/scheme.pm @@ -0,0 +1,31 @@ +#!/usr/bin/env perl + +use warnings; +use strict; + +package scheme; +use parent '_default'; + +sub initialize { + my ($self, %conf) = @_; + + $self->{sourcefile} = 'prog.scm'; + $self->{execfile} = 'prog.scm'; + $self->{default_options} = ''; + $self->{cmdline} = 'scm $options < $sourcefile'; + + $self->{cmdline_opening_comment} = "#|=============== CMDLINE ===============\n"; + $self->{cmdline_closing_comment} = "================= CMDLINE ===============|#\n"; + + $self->{output_opening_comment} = "#|=============== OUTPUT ===============\n"; + $self->{output_closing_comment} = "================= OUTPUT ===============|#\n"; +} + +sub postprocess_output { + my $self = shift; + $self->SUPER::postprocess_output; + + $self->{output} =~ s/^\n//; +} + +1;