includes/geshi/geshi/tcl.php

   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.19
   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 ?>