added geshi syntax highlighter

1 files changed, 178 insertions, 0 deletions

diff --git a/paste/include/geshi/contexts/delphi/exports_brackets.php b/paste/include/geshi/contexts/delphi/exports_brackets.php
new file mode 100644
index 0000000..7621366
--- /dev/null
+++ b/paste/include/geshi/contexts/delphi/exports_brackets.php
@@ -0,0 +1,178 @@
+<?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    Benny Baumann <BenBE@benbe.omorphia.de>, 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->_childContexts = array(
+    new GeSHiContext('delphi', $DIALECT, 'preprocessor'),
+    new GeSHiContext('delphi', $DIALECT, 'common/single_comment'),
+    new GeSHiContext('delphi', $DIALECT, 'multi_comment')
+);
+
+
+//$this->_styler->setStyle($CONTEXT, 'color:#000;');
+//$this->_styler->setStartStyle($CONTEXT, 'color:#f00;font-weight:bold;');
+//$this->_styler->setEndStyle($CONTEXT, 'color:#00f;');
+$this->_startName = 'brksym'; // highlight starter as if it was a keyword
+$this->_endName   = 'brksym';  // highlight ender as if it was a ctrlsym
+
+$this->_contextKeywords = array(
+    0  => array(
+        0 => array(
+            //@todo get keywords normal way
+            'var', 'out', 'const', 'array'
+        ),
+        1 => $CONTEXT . '/keywords',
+        2 => 'color:#f00; font-weight:bold;',
+        3 => false,
+        4 => ''
+    ),
+    1  => array(
+        0 => array(
+            'Boolean', 'ByteBool', 'LongBool', 'WordBool', 'Bool',
+
+            'Byte',  'SmallInt',
+            'ShortInt', 'Word',
+            'Integer', 'Cardinal',
+            'LongInt', 'DWORD',
+            'Int64',
+
+            'Single', 'Double', 'Extended',
+            'Real48', 'Real', 'Comp', 'Currency',
+
+            'Pointer',
+
+            'Char', 'AnsiChar', 'WideChar',
+            'PChar', 'PAnsiChar', 'PWideChar',
+            'String', 'AnsiString', 'WideString',
+
+            'THandle'
+        ),
+        1 => $CONTEXT . '/keytypes',
+        2 => 'color:#000; font-weight:bold;',
+        3 => false,
+        4 => ''
+    ),
+    2 => array(
+        0 => array(
+            //@todo get keywords normal way
+            'nil',
+            'false', 'true'
+        ),
+        1 => $CONTEXT . '/keyidents',
+        2 => 'color:#000; font-weight:bold;',
+        3 => false,
+        4 => ''
+    )
+);
+
+$this->_contextSymbols  = array(
+/*    0 => array(
+        0 => array(
+            // @todo [blocking 1.1.1] are the [ and ] needed? They're handled by starter and ender, do they ever actually
+            // occur *inside* this context? (deferred to 1.1.1)
+
+            // BenBE: [] might just well occure as part of a function declaration. But it's thus unlikly that there's no
+            // absolut requirement to handle them. I actually would have to check if the Delphi compiler actually compiles
+            // such source (I doubt it will compile).
+            // @todo Test if exports ABC(A: Array[13..37] of Integer) name 'ABC'; actually compiles.
+            '(', ']'
+            ),
+        1 => $CONTEXT . '/brksym',
+        2 => 'color:#008000;'
+    ),*/
+    1 => array(
+        0 => array(
+            ':', ';', ',', '='
+            ),
+        1 => $CONTEXT . '/ctrlsym',
+        2 => 'color:#008000;'
+    ),
+    2 => array(
+        0 => array(
+            '.'
+            ),
+        1 => $CONTEXT . '/oopsym',
+        2 => 'color:#008000;'
+    )
+);
+
+$this->_contextRegexps  = array(
+    0 => array(
+        0 => array(
+            '/(#[0-9]+)/'
+        ),
+        1 => '#',
+        2 => array(
+            1 => array($CONTEXT . '/char', 'color:#db9;', false)
+        )
+    ),
+    1 => array(
+        0 => array(
+            '/(#\$[0-9a-fA-F]+)/'
+        ),
+        1 => '#',
+        2 => array(
+            1 => array($CONTEXT . '/charhex', 'color:#db9;', false)
+        )
+    ),
+    2 => array(
+        0 => array(
+            '/(\$[0-9a-fA-F]+)/'
+        ),
+        1 => '$',
+        2 => array(
+            1 => array($CONTEXT . '/hex', 'color: #2bf;', false)
+        )
+    ),
+    3 => geshi_use_integers($CONTEXT)
+);
+
+$this->_objectSplitters = array(
+    0 => array(
+        0 => array('.'),
+        1 => $CONTEXT . '/oodynamic',
+        2 => 'color:#559;',
+        3 => false // If true, check that matched method isn't a keyword first
+    )
+);
+
+?>