summaryrefslogtreecommitdiff
path: root/extensions/SyntaxHighlight_GeSHi/geshi/geshi/tcl.php
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/SyntaxHighlight_GeSHi/geshi/geshi/tcl.php')
-rw-r--r--extensions/SyntaxHighlight_GeSHi/geshi/geshi/tcl.php12
1 files changed, 5 insertions, 7 deletions
diff --git a/extensions/SyntaxHighlight_GeSHi/geshi/geshi/tcl.php b/extensions/SyntaxHighlight_GeSHi/geshi/geshi/tcl.php
index 4dd7be87..697411fe 100644
--- a/extensions/SyntaxHighlight_GeSHi/geshi/geshi/tcl.php
+++ b/extensions/SyntaxHighlight_GeSHi/geshi/geshi/tcl.php
@@ -4,7 +4,7 @@
* ---------------------------------
* Author: Reid van Melle (rvanmelle@gmail.com)
* Copyright: (c) 2004 Reid van Melle (sorry@nowhere)
- * Release Version: 1.0.8.11
+ * Release Version: 1.0.8.12
* Date Started: 2006/05/05
*
* TCL/iTCL language file for GeSHi.
@@ -50,14 +50,14 @@
$language_data = array (
'LANG_NAME' => 'TCL',
- 'COMMENT_SINGLE' => array(1 => '#'),
+ 'COMMENT_SINGLE' => array(),
'COMMENT_MULTI' => array(),
'COMMENT_REGEXP' => array(
- 1 => '/(?<!\\\\)#(?:\\\\\\\\|\\\\\\n|.)*$/m',
+ 1 => '/(?:^|(?<=\{|;))\s*#(?:\\\\\\\\|\\\\\\n|.)*$/m',
//2 => '/{[^}\n]+}/'
),
'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
- 'QUOTEMARKS' => array('"', "'"),
+ 'QUOTEMARKS' => array('"'),
'ESCAPE_CHAR' => '\\',
'KEYWORDS' => array(
/*
@@ -187,8 +187,6 @@ $language_data = array (
'PARSER_CONTROL' => array(
'COMMENTS' => array(
'DISALLOWED_BEFORE' => '\\'
+ )
)
- )
);
-
-?> \ No newline at end of file