inc/geshi/lisp.php

   1 <?php
   2 /*************************************************************************************
   3  * lisp.php
   4  * --------
   5  * Author: Roberto Rossi (rsoftware@altervista.org)
   6  * Copyright: (c) 2004 Roberto Rossi (http://rsoftware.altervista.org), Nigel McNie (http://qbnz.com/highlighter
   7  * Release Version: 1.0.8.4
   8  * Date Started: 2004/08/30
   9  *
  10  * Generic Lisp language file for GeSHi.
  11  *
  12  * CHANGES
  13  * -------
  14  * 2005/12/9  (1.0.2)
  15  *  -  Added support for :keywords and ::access (Denis Mashkevich)
  16  * 2004/11/27 (1.0.1)
  17  *  -  Added support for multiple object splitters
  18  * 2004/08/30 (1.0.0)
  19  *  -  First Release
  20  *
  21  * TODO (updated 2004/11/27)
  22  * -------------------------
  23  *
  24  *************************************************************************************
  25  *
  26  *     This file is part of GeSHi.
  27  *
  28  *   GeSHi is free software; you can redistribute it and/or modify
  29  *   it under the terms of the GNU General Public License as published by
  30  *   the Free Software Foundation; either version 2 of the License, or
  31  *   (at your option) any later version.
  32  *
  33  *   GeSHi is distributed in the hope that it will be useful,
  34  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
  35  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  36  *   GNU General Public License for more details.
  37  *
  38  *   You should have received a copy of the GNU General Public License
  39  *   along with GeSHi; if not, write to the Free Software
  40  *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  41  *
  42  ************************************************************************************/
  43
  44 $language_data = array (
  45     'LANG_NAME' => 'Lisp',
  46     'COMMENT_SINGLE' => array(1 => ';'),
  47     'COMMENT_MULTI' => array(';|' => '|;'),
  48     'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
  49     'QUOTEMARKS' => array('"'),
  50     'ESCAPE_CHAR' => '\\',
  51     'KEYWORDS' => array(
  52         1 => array(
  53             'not','defun','princ','when',
  54             'eval','apply','funcall','quote','identity','function',
  55             'complement','backquote','lambda','set','setq','setf',
  56             'defmacro','gensym','make','symbol','intern',
  57             'name','value','plist','get',
  58             'getf','putprop','remprop','hash','array','aref',
  59             'car','cdr','caar','cadr','cdar','cddr','caaar','caadr','cadar',
  60             'caddr','cdaar','cdadr','cddar','cdddr','caaaar','caaadr',
  61             'caadar','caaddr','cadaar','cadadr','caddar','cadddr',
  62             'cdaaar','cdaadr','cdadar','cdaddr','cddaar','cddadr',
  63             'cdddar','cddddr','cons','list','append','reverse','last','nth',
  64             'nthcdr','member','assoc','subst','sublis','nsubst',
  65             'nsublis','remove','length',
  66             'mapc','mapcar','mapl','maplist','mapcan','mapcon','rplaca',
  67             'rplacd','nconc','delete','atom','symbolp','numberp',
  68             'boundp','null','listp','consp','minusp','zerop','plusp',
  69             'evenp','oddp','eq','eql','equal','cond','case','and','or',
  70             'let','l','if','prog','prog1','prog2','progn','go','return',
  71             'do','dolist','dotimes','catch','throw','error','cerror','break',
  72             'continue','errset','baktrace','evalhook','truncate','float',
  73             'rem','min','max','abs','sin','cos','tan','expt','exp','sqrt',
  74             'random','logand','logior','logxor','lognot','bignums','logeqv',
  75             'lognand','lognor','logorc2','logtest','logbitp','logcount',
  76             'integer','nil','parse-integer'
  77             )
  78         ),
  79     'SYMBOLS' => array(
  80         '(', ')', '{', '}', '[', ']',
  81         '!', '%', '^', '&',
  82         ' + ',' - ',' * ',' / ',
  83         '=','<','>',
  84         '.',':',',',';',
  85         '|'
  86         ),
  87     'CASE_SENSITIVE' => array(
  88         GESHI_COMMENTS => false,
  89         1 => false
  90         ),
  91     'STYLES' => array(
  92         'KEYWORDS' => array(
  93             1 => 'color: #b1b100;'
  94             ),
  95         'COMMENTS' => array(
  96             1 => 'color: #808080; font-style: italic;',
  97             'MULTI' => 'color: #808080; font-style: italic;'
  98             ),
  99         'ESCAPE_CHAR' => array(
 100             0 => 'color: #000099; font-weight: bold;'
 101             ),
 102         'BRACKETS' => array(
 103             0 => 'color: #66cc66;'
 104             ),
 105         'STRINGS' => array(
 106             0 => 'color: #ff0000;'
 107             ),
 108         'NUMBERS' => array(
 109             0 => 'color: #cc66cc;'
 110             ),
 111         'METHODS' => array(
 112             0 => 'color: #555;',
 113             1 => 'color: #555;'
 114             ),
 115         'SYMBOLS' => array(
 116             0 => 'color: #66cc66;'
 117             ),
 118         'REGEXPS' => array(
 119             ),
 120         'SCRIPT' => array(
 121             )
 122         ),
 123     'URLS' => array(
 124         1 => ''
 125         ),
 126     'OOLANG' => true,
 127     'OBJECT_SPLITTERS' => array(
 128         '::', ':'
 129         ),
 130     'REGEXPS' => array(
 131         ),
 132     'STRICT_MODE_APPLIES' => GESHI_NEVER,
 133     'SCRIPT_DELIMITERS' => array(
 134         ),
 135     'HIGHLIGHT_STRICT_BLOCK' => array(
 136         ),
 137     'PARSER_CONTROL' => array(
 138         'OOLANG' => array(
 139             'MATCH_AFTER' => '[a-zA-Z][a-zA-Z0-9_\-]*'
 140             )
 141         )
 142 );
 143
 144 ?>