194 lines
6.6 KiB
PHP
194 lines
6.6 KiB
PHP
<?php
|
|
/*************************************************************************************
|
|
* tcl.php
|
|
* ---------------------------------
|
|
* Author: Reid van Melle (rvanmelle@gmail.com)
|
|
* Copyright: (c) 2004 Reid van Melle (sorry@nowhere)
|
|
* Release Version: 1.0.8.10
|
|
* Date Started: 2006/05/05
|
|
*
|
|
* TCL/iTCL language file for GeSHi.
|
|
*
|
|
* This was thrown together in about an hour so I don't expect
|
|
* really great things. However, it is a good start. I never
|
|
* got a change to try out the iTCL or object-based support but
|
|
* this is not widely used anyway.
|
|
*
|
|
* CHANGES
|
|
* -------
|
|
* 2008/05/23 (1.0.7.22)
|
|
* - Added description of extra language features (SF#1970248)
|
|
* 2006/05/05 (1.0.0)
|
|
* - First Release
|
|
*
|
|
* TODO (updated 2006/05/05)
|
|
* -------------------------
|
|
* - Get TCL built-in special variables highlighted with a new color..
|
|
* currently, these are listed in //special variables in the keywords
|
|
* section, but they get covered by the general REGEXP for symbols
|
|
* - General cleanup, testing, and verification
|
|
*
|
|
*************************************************************************************
|
|
*
|
|
* 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*
|
|
************************************************************************************/
|
|
|
|
$language_data = array (
|
|
'LANG_NAME' => 'TCL',
|
|
'COMMENT_SINGLE' => array(1 => '#'),
|
|
'COMMENT_MULTI' => array(),
|
|
'COMMENT_REGEXP' => array(
|
|
1 => '/(?<!\\\\)#(?:\\\\\\\\|\\\\\\n|.)*$/m',
|
|
//2 => '/{[^}\n]+}/'
|
|
),
|
|
'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
|
|
'QUOTEMARKS' => array('"', "'"),
|
|
'ESCAPE_CHAR' => '\\',
|
|
'KEYWORDS' => array(
|
|
/*
|
|
* Set 1: reserved words
|
|
* http://python.org/doc/current/ref/keywords.html
|
|
*/
|
|
1 => array(
|
|
'proc', 'global', 'upvar', 'if', 'then', 'else', 'elseif', 'for', 'foreach',
|
|
'break', 'continue', 'while', 'set', 'eval', 'case', 'in', 'switch',
|
|
'default', 'exit', 'error', 'return', 'uplevel', 'loop',
|
|
'for_array_keys', 'for_recursive_glob', 'for_file', 'unwind_protect',
|
|
'expr', 'catch', 'namespace', 'rename', 'variable',
|
|
// itcl
|
|
'method', 'itcl_class', 'public', 'protected'),
|
|
|
|
/*
|
|
* Set 2: builtins
|
|
* http://asps.activatestate.com/ASPN/docs/ActiveTcl/8.4/tcl/tcl_2_contents.htm
|
|
*/
|
|
2 => array(
|
|
// string handling
|
|
'append', 'binary', 'format', 're_syntax', 'regexp', 'regsub',
|
|
'scan', 'string', 'subst',
|
|
// list handling
|
|
'concat', 'join', 'lappend', 'lindex', 'list', 'llength', 'lrange',
|
|
'lreplace', 'lsearch', 'lset', 'lsort', 'split',
|
|
// procedures and output
|
|
'incr', 'close', 'eof', 'fblocked', 'fconfigure', 'fcopy', 'file',
|
|
'fileevent', 'flush', 'gets', 'open', 'puts', 'read', 'seek',
|
|
'socket', 'tell',
|
|
// packages and source files
|
|
'load', 'loadTk', 'package', 'pgk::create', 'pgk_mkIndex', 'source',
|
|
// interpreter routines
|
|
'bgerror', 'history', 'info', 'interp', 'memory', 'unknown',
|
|
// library routines
|
|
'enconding', 'http', 'msgcat',
|
|
// system related
|
|
'cd', 'clock', 'exec', 'glob', 'pid', 'pwd', 'time',
|
|
// platform specified
|
|
'dde', 'registry', 'resource',
|
|
// special variables
|
|
'$argc', '$argv', '$errorCode', '$errorInfo', '$argv0',
|
|
'$auto_index', '$auto_oldpath', '$auto_path', '$env',
|
|
'$tcl_interactive', '$tcl_libpath', '$tcl_library',
|
|
'$tcl_pkgPath', '$tcl_platform', '$tcl_precision', '$tcl_traceExec',
|
|
),
|
|
|
|
/*
|
|
* Set 3: standard library
|
|
*/
|
|
3 => array(
|
|
'comment', 'filename', 'library', 'packagens', 'tcltest', 'tclvars',
|
|
),
|
|
|
|
/*
|
|
* Set 4: special methods
|
|
*/
|
|
// 4 => array(
|
|
// )
|
|
|
|
),
|
|
'SYMBOLS' => array(
|
|
'(', ')', '[', ']', '{', '}', '$', '*', '&', '%', '!', ';', '<', '>', '?'
|
|
),
|
|
'CASE_SENSITIVE' => array(
|
|
GESHI_COMMENTS => false,
|
|
1 => true,
|
|
2 => true,
|
|
3 => true,
|
|
// 4 => true
|
|
),
|
|
'STYLES' => array(
|
|
'KEYWORDS' => array(
|
|
1 => 'color: #ff7700;font-weight:bold;', // Reserved
|
|
2 => 'color: #008000;', // Built-ins + self
|
|
3 => 'color: #dc143c;', // Standard lib
|
|
// 4 => 'color: #0000cd;' // Special methods
|
|
),
|
|
'COMMENTS' => array(
|
|
1 => 'color: #808080; font-style: italic;',
|
|
// 2 => 'color: #483d8b;',
|
|
'MULTI' => 'color: #808080; font-style: italic;'
|
|
),
|
|
'ESCAPE_CHAR' => array(
|
|
0 => 'color: #000099; font-weight: bold;'
|
|
),
|
|
'BRACKETS' => array(
|
|
0 => 'color: black;'
|
|
),
|
|
'STRINGS' => array(
|
|
0 => 'color: #483d8b;'
|
|
),
|
|
'NUMBERS' => array(
|
|
0 => 'color: #ff4500;'
|
|
),
|
|
'METHODS' => array(
|
|
1 => 'color: black;'
|
|
),
|
|
'SYMBOLS' => array(
|
|
0 => 'color: #66cc66;'
|
|
),
|
|
'REGEXPS' => array(
|
|
0 => 'color: #ff3333;'
|
|
),
|
|
'SCRIPT' => array(
|
|
)
|
|
),
|
|
'URLS' => array(
|
|
1 => '',
|
|
2 => '',
|
|
3 => '',
|
|
// 4 => ''
|
|
),
|
|
'OOLANG' => true,
|
|
'OBJECT_SPLITTERS' => array(
|
|
1 => '::'
|
|
),
|
|
'REGEXPS' => array(
|
|
//Special variables
|
|
0 => '[\\$]+[a-zA-Z_][a-zA-Z0-9_]*',
|
|
),
|
|
'STRICT_MODE_APPLIES' => GESHI_NEVER,
|
|
'SCRIPT_DELIMITERS' => array(
|
|
),
|
|
'HIGHLIGHT_STRICT_BLOCK' => array(
|
|
),
|
|
'PARSER_CONTROL' => array(
|
|
'COMMENTS' => array(
|
|
'DISALLOWED_BEFORE' => '\\'
|
|
)
|
|
)
|
|
);
|
|
|
|
?>
|