From d001720f11a9e87293e19ce1c4457a937a7ea77c Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Mon, 18 May 2015 20:49:12 -0700
Subject: [PATCH] Add qbasic language (using freebasic -lang qb)

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

diff --git a/modules/compiler_vm/languages/qbasic.pm b/modules/compiler_vm/languages/qbasic.pm
new file mode 100755
index 00000000..02a96a04
--- /dev/null
+++ b/modules/compiler_vm/languages/qbasic.pm
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+
+package qbasic;
+use parent '_default';
+
+sub initialize {
+  my ($self, %conf) = @_;
+
+  $self->{sourcefile}      = 'prog.bas';
+  $self->{execfile}        = 'prog';
+  $self->{default_options} = '';
+  $self->{cmdline}         = 'fbc -g -lang qb $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/qbasic.pm b/modules/compiler_vm/languages/server/qbasic.pm
new file mode 100755
index 00000000..517134c7
--- /dev/null
+++ b/modules/compiler_vm/languages/server/qbasic.pm
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+package qbasic;
+use parent '_c_base';
+
+1;