From 4986c786f1452ee2c7bf59452c5adb9ba7ffe501 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sun, 5 Apr 2015 02:31:09 -0700
Subject: [PATCH] Add FreeBASIC language to compiler_vm

---
 modules/compiler_vm/languages/freebasic.pm    | 26 +++++++++++++++++++
 .../compiler_vm/languages/server/freebasic.pm |  9 +++++++
 2 files changed, 35 insertions(+)
 create mode 100755 modules/compiler_vm/languages/freebasic.pm
 create mode 100755 modules/compiler_vm/languages/server/freebasic.pm

diff --git a/modules/compiler_vm/languages/freebasic.pm b/modules/compiler_vm/languages/freebasic.pm
new file mode 100755
index 00000000..238f3c4e
--- /dev/null
+++ b/modules/compiler_vm/languages/freebasic.pm
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+
+package freebasic;
+use parent '_default';
+
+sub initialize {
+  my ($self, %conf) = @_;
+
+  $self->{sourcefile}      = 'prog.bas';
+  $self->{execfile}        = 'prog';
+  $self->{default_options} = '';
+  $self->{cmdline}         = 'fbc -g $options $sourcefile';
+
+  $self->{cmdline_opening_comment} = "/'\n=============== CMDLINE ===============\n";
+  $self->{cmdline_closing_comment} = "=============== CMDLINE ===============\n'/\n";
+
+  $self->{output_opening_comment} = "/'\n=============== OUTPUT ===============\n";
+  $self->{output_closing_comment} = "=============== OUTPUT ===============\n'/\n";
+
+  $self->{sprunge_lexer} = 'basic';
+}
+
+1;
diff --git a/modules/compiler_vm/languages/server/freebasic.pm b/modules/compiler_vm/languages/server/freebasic.pm
new file mode 100755
index 00000000..8d0bb3a8
--- /dev/null
+++ b/modules/compiler_vm/languages/server/freebasic.pm
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+package freebasic;
+use parent '_c_base';
+
+1;