Login   Register  
PHP Classes
elePHPant
Icontem

File: examples/tags/syntax/geshi/geshi/tcl.php

Recommend this page to a friend!
Stumble It! Stumble It! Bookmark in del.icio.us Bookmark in del.icio.us
  Classes of Oliver Lillie  >  PHP Custom Tags  >  examples/tags/syntax/geshi/geshi/tcl.php  >  Download  
File: examples/tags/syntax/geshi/geshi/tcl.php
Role: Auxiliary script
Content type: text/plain
Description: Auxiliary script
Class: PHP Custom Tags
Template engine based on tags similar to HTML
Author: By
Last change:
Date: 2013-03-26 15:10
Size: 6,859 bytes
 

Contents

Class file image Download
<?php
/*************************************************************************************
 * tcl.php
 * ---------------------------------
 * Author: Reid van Melle (rvanmelle@gmail.com)
 * Copyright: (c) 2004 Reid van Melle (sorry@nowhere)
 * Release Version: 1\.0\.8
 * 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(=> '#'),
    
'COMMENT_MULTI' => array(),
    
'COMMENT_REGEXP' => array(
        
=> '/(?<!\\\\)#(?:\\\\\\\\|\\\\\\n|.)*$/m',
        
=> '/{[^}\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
         */
        
=> 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
         */
        
=> 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',
            
// math
            
'expr',
            
// 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''exit''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
         */
        
=> array(
            
'comment''dde''filename''http''library''memory',
            
'packagens''registry''resource''tcltest''tclvars',
            ),

        
/*
         * Set 4: special methods
         */
//        4 => array(
//            )

        
),
    
'SYMBOLS' => array(
        
'('')''['']''{''}''$''*''&''%''!'';''<''>''?'
        
),
    
'CASE_SENSITIVE' => array(
        
GESHI_COMMENTS => false,
        
=> true,
        
=> true,
        
=> true,
//        4 => true
        
),
    
'STYLES' => array(
        
'KEYWORDS' => array(
            
=> 'color: #ff7700;font-weight:bold;',    // Reserved
            
=> 'color: #008000;',                        // Built-ins + self
            
=> 'color: #dc143c;',                        // Standard lib
//            4 => 'color: #0000cd;'                        // Special methods
            
),
        
'COMMENTS' => array(
            
=> 'color: #808080; font-style: italic;',
            
=> 'color: #483d8b;',
            
'MULTI' => 'color: #808080; font-style: italic;'
            
),
        
'ESCAPE_CHAR' => array(
            
=> 'color: #000099; font-weight: bold;'
            
),
        
'BRACKETS' => array(
            
=> 'color: black;'
            
),
        
'STRINGS' => array(
            
=> 'color: #483d8b;'
            
),
        
'NUMBERS' => array(
            
=> 'color: #ff4500;'
            
),
        
'METHODS' => array(
            
=> 'color: black;'
            
),
        
'SYMBOLS' => array(
            
=> 'color: #66cc66;'
            
),
        
'REGEXPS' => array(
            
=> 'color: #ff3333;'
            
),
        
'SCRIPT' => array(
            )
        ),
    
'URLS' => array(
        
=> '',
        
=> '',
        
=> '',
//        4 => ''
        
),
    
'OOLANG' => true,
    
'OBJECT_SPLITTERS' => array(
        
=> '::'
        
),
    
'REGEXPS' => array(
        
//Special variables
        
=> '[\\$]+[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' => '\\'
        
)
    )
);

?>