File geshi/geshi/tcl.php
Last commit: Fri Nov 23 00:12:00 2007 +0100 dankert Farbige Darstellung von Code-Bl?cken mit Hilfe der Bibliothek GESHI.
1 <?php 2 /************************************************************************************* 3 * tcl.php 4 * --------------------------------- 5 * Author: Reid van Melle (rvanmelle@gmail.com) 6 * Copyright: (c) 2004 Reid van Melle (sorry@nowhere) 7 * Release Version: 1.0.7.20 8 * Date Started: 2006/05/05 9 * 10 * TCL/iTCL language file for GeSHi. 11 * 12 * This was thrown together in about an hour so I don't expect 13 * really great things. However, it is a good start. I never 14 * got a change to try out the iTCL or object-based support but 15 * this is not widely used anyway. 16 * 17 * CHANGES 18 * ------- 19 * 2006/05/05 (1.0.0) 20 * - First Release 21 * 22 * TODO (updated 2006/05/05) 23 * ------------------------- 24 * - Get TCL built-in special variables hilighted with a new color.. 25 * currently, these are listed in //special variables in the keywords 26 * section, but they get covered by the general REGEXP for symbols 27 * - General cleanup, testing, and verification 28 * 29 ************************************************************************************* 30 * 31 * This file is part of GeSHi. 32 * 33 * GeSHi is free software; you can redistribute it and/or modify 34 * it under the terms of the GNU General Public License as published by 35 * the Free Software Foundation; either version 2 of the License, or 36 * (at your option) any later version. 37 * 38 * GeSHi is distributed in the hope that it will be useful, 39 * but WITHOUT ANY WARRANTY; without even the implied warranty of 40 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 41 * GNU General Public License for more details. 42 * 43 * You should have received a copy of the GNU General Public License 44 * along with GeSHi; if not, write to the Free Software 45 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 46 * 47 ************************************************************************************/ 48 49 $language_data = array ( 50 'LANG_NAME' => 'TCL', 51 'COMMENT_SINGLE' => array(1 => '#'), 52 'COMMENT_MULTI' => array(), 53 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE, 54 'QUOTEMARKS' => array('"', "'"), 55 'ESCAPE_CHAR' => '\\', 56 'KEYWORDS' => array( 57 58 /* 59 ** Set 1: reserved words 60 ** http://python.org/doc/current/ref/keywords.html 61 */ 62 1 => array( 63 'proc', 'global', 'upvar', 'if', 'then', 'else', 'elseif', 'for', 'foreach', 64 'break', 'continue', 'while', 'set', 'eval', 'case', 'in', 'switch', 65 'default', 'exit', 'error', 'proc', 'return', 'uplevel', 'loop', 66 'for_array_keys', 'for_recursive_glob', 'for_file', 'unwind_protect', 67 'expr', 'catch', 'namespace', 'rename', 'variable', 68 // itcl 69 'method', 'itcl_class', 'public', 'protected'), 70 71 /* 72 ** Set 2: builtins 73 ** http://asps.activatestate.com/ASPN/docs/ActiveTcl/8.4/tcl/tcl_2_contents.htm 74 */ 75 2 => array( 76 // string handling 77 'append', 'binary', 'format', 're_syntax', 'regexp', 'regsub', 78 'scan', 'string', 'subst', 79 // list handling 80 'concat', 'join', 'lappend', 'lindex', 'list', 'llength', 'lrange', 81 'lreplace', 'lsearch', 'lset', 'lsort', 'split', 82 // math 83 'expr', 84 // procedures and output 85 'incr', 'close', 'eof', 'fblocked', 'fconfigure', 'fcopy', 'file', 86 'fileevent', 'flush', 'gets', 'open', 'puts', 'read', 'seek', 87 'socket', 'tell', 88 // packages and source files 89 'load', 'loadTk', 'package', 'pgk::create', 'pgk_mkIndex', 'source', 90 // interpreter routines 91 'bgerror', 'history', 'info', 'interp', 'memory', 'unknown', 92 // library routines 93 'enconding', 'http', 'msgcat', 94 // system related 95 'cd', 'clock', 'exec', 'exit', 'glob', 'pid', 'pwd', 'time', 96 // platform specified 97 'dde', 'registry', 'resource', 98 // special variables 99 '$argc', '$argv', '$errorCode', '$errorInfo', '$argv0', 100 '$auto_index', '$auto_oldpath', '$auto_path', '$env', 101 '$tcl_interactive', '$tcl_libpath', '$tcl_library', 102 '$tcl_pkgPath', '$tcl_platform', '$tcl_precision', '$tcl_traceExec', 103 ), 104 105 /* 106 ** Set 3: standard library 107 */ 108 3 => array( 109 'comment', 'dde', 'filename', 'http', 'library', 'memory', 110 'packagens', 'registry', 'resource', 'tcltest', 'tclvars', 111 ), 112 113 /* 114 ** Set 4: special methods 115 */ 116 4 => array( 117 ) 118 119 ), 120 'SYMBOLS' => array( 121 '(', ')', '[', ']', '{', '}', '$', '*', '&', '%', '!', ';', '<', '>', '?' 122 ), 123 'CASE_SENSITIVE' => array( 124 GESHI_COMMENTS => true, 125 1 => true, 126 2 => true, 127 3 => true, 128 4 => true 129 ), 130 'STYLES' => array( 131 'KEYWORDS' => array( 132 1 => 'color: #ff7700;font-weight:bold;', // Reserved 133 2 => 'color: #008000;', // Built-ins + self 134 3 => 'color: #dc143c;', // Standard lib 135 4 => 'color: #0000cd;' // Special methods 136 ), 137 'COMMENTS' => array( 138 1 => 'color: #808080; font-style: italic;', 139 'MULTI' => 'color: #808080; font-style: italic;' 140 ), 141 'ESCAPE_CHAR' => array( 142 0 => 'color: #000099; font-weight: bold;' 143 ), 144 'BRACKETS' => array( 145 0 => 'color: black;' 146 ), 147 'STRINGS' => array( 148 0 => 'color: #483d8b;' 149 ), 150 'NUMBERS' => array( 151 0 => 'color: #ff4500;' 152 ), 153 'METHODS' => array( 154 1 => 'color: black;' 155 ), 156 'SYMBOLS' => array( 157 0 => 'color: #66cc66;' 158 ), 159 'REGEXPS' => array( 160 0 => 'color: #ff3333;' 161 ), 162 'SCRIPT' => array( 163 ) 164 ), 165 'URLS' => array( 166 ), 167 'OOLANG' => true, 168 'OBJECT_SPLITTERS' => array( 169 1 => '::' 170 ), 171 'REGEXPS' => array( 172 0 => '[\\$]+[a-zA-Z_][a-zA-Z0-9_]*', 173 ), 174 'STRICT_MODE_APPLIES' => GESHI_NEVER, 175 'SCRIPT_DELIMITERS' => array( 176 ), 177 'HIGHLIGHT_STRICT_BLOCK' => array( 178 ) 179 ); 180 181 ?>
Downloadgeshi/geshi/tcl.php
History Fri, 23 Nov 2007 00:12:00 +0100 dankert Farbige Darstellung von Code-Bl?cken mit Hilfe der Bibliothek GESHI.