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