3 files changed, 161 insertions, 0 deletions
diff --git a/paste/include/geshi/contexts/qbasic/comment.php b/paste/include/geshi/contexts/qbasic/comment.php
new file mode 100644
index 0000000..a9a3a39
--- /dev/null
+++ b/paste/include/geshi/contexts/qbasic/comment.php
@@ -0,0 +1,47 @@
+<?php
+/**
+ * GeSHi - Generic Syntax Highlighter
+ * 
+ * For information on how to use GeSHi, please consult the documentation
+ * found in the docs/ directory, or online at http://geshi.org/docs/
+ * 
+ *  This file is part of GeSHi.
+ *
+ *  GeSHi is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  GeSHi is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with GeSHi; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ *
+ * You can view a copy of the GNU GPL in the COPYING file that comes
+ * with GeSHi, in the docs/ directory.
+ *
+ * @package   lang
+ * @author    Nigel McNie <nigel@geshi.org>
+ * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright (C) 2005 Nigel McNie
+ * @version   1.1.0
+ * 
+ */
+
+$this->_contextDelimiters = array(
+    0 => array(
+        0 => array("'", 'REM'),
+        1 => array("\n"),
+        2 => false
+    )
+);
+
+$this->_styler->setStyle($CONTEXT, 'color:#888;font-style:italic;');
+$this->_contextStyleType = GESHI_STYLE_COMMENTS;
+$this->_delimiterParseData = GESHI_CHILD_PARSE_LEFT;
+
+?>
diff --git a/paste/include/geshi/contexts/qbasic/qbasic.php b/paste/include/geshi/contexts/qbasic/qbasic.php
new file mode 100644
index 0000000..72e72cf
--- /dev/null
+++ b/paste/include/geshi/contexts/qbasic/qbasic.php
@@ -0,0 +1,68 @@
+<?php
+/**
+ * GeSHi - Generic Syntax Highlighter
+ * ----------------------------------
+ * 
+ * For information on how to use GeSHi, please consult the documentation
+ * found in the docs/ directory, or online at http://geshi.org/docs/
+ * 
+ *  This file is part of GeSHi.
+ *
+ *  GeSHi is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  GeSHi is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with GeSHi; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ *
+ * You can view a copy of the GNU GPL in the COPYING file that comes
+ * with GeSHi, in the docs/ directory.
+ *
+ * @package   lang
+ * @author    Nigel McNie <nigel@geshi.org>
+ * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright (C) 2005 Nigel McNie
+ * @version   1.1.0
+ * 
+ */
+
+$this->_childContexts = array(
+    new GeSHiContext('qbasic',  $DIALECT, 'string'),
+    new GeSHiContext('qbasic',  $DIALECT, 'comment')
+);
+
+$this->_contextKeywords = array(
+    0 => array(
+        0 => array('and', 'as', 'call', 'dim', 'end', 'goto', 'if', 'integer', 'print', 'sub', 'then'),
+        1 => $CONTEXT . '/kw0',
+        2 => 'color: #006;',
+        3 => false,
+        4 => 'http://qboho.qbasicnews.com/qboho/qck{FNAME}.html'
+    )
+);
+
+$this->_contextSymbols  = array(
+    0 => array(
+        0 => array(
+            '(', ')', ',', ':', ';', '=', '<', '>'
+            ),
+        // name (should names have / in them like normal contexts? YES
+        1 => $CONTEXT . '/sym0',
+        // style
+        2 => 'color:#008000;'
+    )
+);
+$this->_contextRegexps  = array(
+    0 => geshi_use_doubles($CONTEXT),
+    1 => geshi_use_integers($CONTEXT)
+);
+// @todo [blocking 1.1.5] languages should be able to set the styles of their numbers
+
+?>
diff --git a/paste/include/geshi/contexts/qbasic/string.php b/paste/include/geshi/contexts/qbasic/string.php
new file mode 100644
index 0000000..9f8a79a
--- /dev/null
+++ b/paste/include/geshi/contexts/qbasic/string.php
@@ -0,0 +1,46 @@
+<?php
+/**
+ * GeSHi - Generic Syntax Highlighter
+ * 
+ * For information on how to use GeSHi, please consult the documentation
+ * found in the docs/ directory, or online at http://geshi.org/docs/
+ * 
+ *  This file is part of GeSHi.
+ *
+ *  GeSHi is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  GeSHi is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with GeSHi; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ *
+ * You can view a copy of the GNU GPL in the COPYING file that comes
+ * with GeSHi, in the docs/ directory.
+ *
+ * @package   lang
+ * @author    Nigel McNie <nigel@geshi.org>
+ * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright (C) 2005 Nigel McNie
+ * @version   1.1.0
+ * 
+ */
+
+$this->_contextDelimiters = array(
+    0 => array(
+        0 => array('"'),
+        1 => array('"'),
+        2 => false 
+    )
+);
+
+$this->_styler->setStyle($CONTEXT, 'color:#f00;');
+$this->_contextStyleType = GESHI_STYLE_STRINGS;
+
+?>