source: spip-zone/_plugins_/coloration_code/trunk/geshi/geshi/oz.php @ 111500

<?php
/*************************************************************************************
 * oz.php
 * --------
 * Author: Wolfgang Meyer (Wolfgang.Meyer@gmx.net)
 * Copyright: (c) 2010 Wolfgang Meyer
 * Release Version: 1.0.9.0
 * Date Started: 2010/01/03
 *
 * Oz language file for GeSHi.
 *
 * CHANGES
 * -------
 *
 *************************************************************************************
 *
 *     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' => 'OZ',
    'COMMENT_SINGLE' => array(1 => '%'),
    'COMMENT_MULTI' => array('/*' => '*/'),
    'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
    'QUOTEMARKS' => array('"','\''),
    'ESCAPE_CHAR' => '\\',
    'NUMBERS' => array(),
    'KEYWORDS' => array(
        1 => array(
            'declare','local','in','end','proc','fun','functor','require','prepare',
            'import','export','define','at','case','then','else','of','elseof',
            'elsecase','if','elseif','class','from','prop','attr','feat','meth',
            'self','true','false','unit','div','mod','andthen','orelse','cond','or',
            'dis','choice','not','thread','try','catch','finally','raise','lock',
            'skip','fail','for','do'
            )
        ),
    'CASE_SENSITIVE' => array(
        GESHI_COMMENTS => false,
        1 => true
        ),
    'SYMBOLS' => array(
        '@', '!', '|', '<-', ':=', '<', '>', '=<', '>=', '<=', '#', '~', '.',
        '*', '-', '+', '/', '<:', '>:', '=:', '=<:', '>=:', '\\=', '\\=:', ',',
        '!!', '...', '==', '::', ':::'
        ),
    'STYLES' => array(
        'REGEXPS' => array(
            1 => 'color: #0000ff;',
            2 => 'color: #00a030;',
            3 => 'color: #bc8f8f;',
            4 => 'color: #0000ff;',
            5 => 'color: #a020f0;'
            ),
        'ESCAPE_CHAR' => array(
            0 => 'color: #bc8f8f;'
            ),
        'KEYWORDS' => array(
            1 => 'color: #a020f0;'
            ),
        'COMMENTS' => array(
            1 => 'color: #B22222;',
            'MULTI' => 'color: #B22222;'
            ),
        'STRINGS' => array(
            0 => 'color: #bc8f8f;'
            ),
        'SYMBOLS' => array(
            0 => 'color: #a020f0;'
            ),
        'BRACKETS' => array(),
        'NUMBERS' => array(),
        'METHODS' => array(),
        'SCRIPT' => array()
        ),
    'OOLANG' => false,
    'OBJECT_SPLITTERS' => array(),
    'STRICT_MODE_APPLIES' => GESHI_MAYBE,
    'SCRIPT_DELIMITERS' => array(),
    'HIGHLIGHT_STRICT_BLOCK' => array(),
    'URLS' => array(
        1 => ''
        ),
    'REGEXPS' => array(
        // function and procedure definition
        1 => array(
            GESHI_SEARCH => "(proc|fun)([^{}\n\)]*)(\\{)([\$A-Z\300-\326\330-\336][A-Z\300-\326\330-\336a-z\337-\366\370-\3770-9_.]*)",
            GESHI_REPLACE => '\4',
            GESHI_MODIFIERS => '',
            GESHI_BEFORE => '\1\2\3',
            GESHI_AFTER => ''
            ),
        // class definition
        2 => array(
            GESHI_SEARCH => "(class)([^A-Z\$]*)([\$A-Z\300-\326\330-\336][A-Z\300-\326\330-\336a-z\337-\366\370-\3770-9_.]*)",
            GESHI_REPLACE => '\3\4',
            GESHI_MODIFIERS => '',
            GESHI_BEFORE => '\1\2',
            GESHI_AFTER => ''
            ),
        // single character
        3 => array(
            GESHI_SEARCH => "&amp;.",
            GESHI_REPLACE => '\0',
            GESHI_MODIFIERS => '',
            GESHI_BEFORE => '',
            GESHI_AFTER => ''
            ),
        // method definition
        4 => array(
            GESHI_SEARCH => "(meth)([^a-zA-Z]+)([a-zA-Z\300-\326\330-\336][A-Z\300-\326\330-\336a-z\337-\366\370-\3770-9]*)",
            GESHI_REPLACE => '\3',
            GESHI_MODIFIERS => '',
            GESHI_BEFORE => '\1\2',
            GESHI_AFTER => ''
            ),
        // highlight "[]"
        // ([] is actually a keyword, but that causes problems in validation; putting it into symbols doesn't work.)
        5 => array(
            GESHI_SEARCH => "\[\]",
            GESHI_REPLACE => '\0',
            GESHI_MODIFIERS => '',
            GESHI_BEFORE => '',
            GESHI_AFTER => ''
            )
        )
);