includes/geshi/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.7.19
   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',
  54                   'eval','apply','funcall','quote','identity','function',
  55                   'complement','backquote','lambda','set','setq','setf',
  56                   'defun','defmacro','gensym','make','symbol','intern',
  57                   'symbol','name','symbol','value','symbol','plist','get',
  58                   'getf','putprop','remprop','hash','make','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','list','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','length','nil'
  77                         )
  78                 ),
  79         'SYMBOLS' => array(
  80                 '(', ')', '{', '}', '[', ']', '!', '%', '^', '&', '/','+','-','*','=','<','>',';','|'
  81                 ),
  82         'CASE_SENSITIVE' => array(
  83                 GESHI_COMMENTS => true,
  84                 1 => false
  85                 ),
  86         'STYLES' => array(
  87                 'KEYWORDS' => array(
  88                         1 => 'color: #b1b100;'
  89                         ),
  90                 'COMMENTS' => array(
  91                         1 => 'color: #808080; font-style: italic;',
  92                         'MULTI' => 'color: #808080; font-style: italic;'
  93                         ),
  94                 'ESCAPE_CHAR' => array(
  95                         0 => 'color: #000099; font-weight: bold;'
  96                         ),
  97                 'BRACKETS' => array(
  98                         0 => 'color: #66cc66;'
  99                         ),
 100                 'STRINGS' => array(
 101                         0 => 'color: #ff0000;'
 102                         ),
 103                 'NUMBERS' => array(
 104                         0 => 'color: #cc66cc;'
 105                         ),
 106                 'METHODS' => array(
 107                         0 => 'color: #555;',
 108             1 => 'color: #555;'
 109                         ),
 110                 'SYMBOLS' => array(
 111                         0 => 'color: #66cc66;'
 112                         ),
 113                 'REGEXPS' => array(
 114                         ),
 115                 'SCRIPT' => array(
 116                         )
 117                 ),
 118         'URLS' => array(
 119                 ),
 120         'OOLANG' => true,
 121         'OBJECT_SPLITTERS' => array(
 122             '::', ':'
 123                 ),
 124         'REGEXPS' => array(
 125                 ),
 126         'STRICT_MODE_APPLIES' => GESHI_NEVER,
 127         'SCRIPT_DELIMITERS' => array(
 128                 ),
 129         'HIGHLIGHT_STRICT_BLOCK' => array(
 130                 )
 131 );
 132
 133 ?>