1 files changed, 131 insertions, 0 deletions
diff --git a/paste/include/geshi/contexts/delphi/extern.php b/paste/include/geshi/contexts/delphi/extern.php
new file mode 100644
index 0000000..a96516f
--- /dev/null
+++ b/paste/include/geshi/contexts/delphi/extern.php
@@ -0,0 +1,131 @@
+<?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('exports'),
+        1 => array(';'),
+        2 => false
+    ),
+    1 => array(
+        0 => array('external'),
+        1 => array(';'),
+        2 => false
+    )
+);
+
+$this->_childContexts = array(
+    new GeSHiContext('delphi', $DIALECT, 'preprocessor'),
+    new GeSHiContext('delphi', $DIALECT, 'multi_comment'),
+    new GeSHiContext('delphi', $DIALECT, 'common/single_comment'),
+    new GeSHiContext('delphi', $DIALECT, 'common/single_string_eol'),
+    new GeSHiCodeContext('delphi', $DIALECT, 'exports_brackets', 'delphi/' . $DIALECT)
+);
+
+//$this->_styler->setStyle($CONTEXT, 'color:#000;');
+//$this->_styler->setStyle($CONTEXT_START, 'color:#f00;font-weight:bold;');
+//$this->_styler->setStyle($CONTEXT_END, 'color:#00f;');
+$this->_startName = 'keywords';
+$this->_endName   = 'ctrlsym';
+
+$this->_contextKeywords = array(
+    0 => array(
+        0 => array(
+            'name','index','resident'
+        ),
+        1 => $CONTEXT . '/keywords',
+        2 => 'color:#f00; font-weight:bold;',
+        3 => false,
+        4 => ''
+    ),
+);
+
+$this->_contextSymbols  = array(
+    0 => array(
+        0 => array(
+            ',', '[', ']', '.'
+            ),
+        1 => $CONTEXT . '/sym',
+        2 => 'color:#008000;'
+        ),
+    1 => array(
+        0 => array(
+            '(', ')', '[', ']'
+            ),
+        1 => $CONTEXT . '/brksym',
+        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
+    )
+);
+
+?>