<?php

/*************************************************************************************

 * tcl.php

 * ---------------------------------

 * Author: Reid van Melle (rvanmelle@gmail.com)

 * Copyright: (c) 2004 Reid van Melle (sorry@nowhere)

 * 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' => '\\'

        )

    )

);

?>