diff options
Diffstat (limited to 'extensions/SyntaxHighlight_GeSHi/geshi/geshi/tcl.php')
-rw-r--r-- | extensions/SyntaxHighlight_GeSHi/geshi/geshi/tcl.php | 12 |
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 |