[ Index ]

PHP Cross Reference of DokuWiki

title

Body

[close]

/vendor/geshi/geshi/src/geshi/ -> lisp.php (source)

   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.9.1
   8   * Date Started: 2004/08/30
   9   *
  10   * Generic Lisp language file for GeSHi.
  11   *
  12   * CHANGES
  13   * -------
  14   * 2013/11/13 (1.0.8.13)
  15   *  -  Fixed bug where a keyword was highlighted in identifiers (Edward Hart)
  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','when',
  56              'eval','apply','funcall','quote','identity','function',
  57              'complement','backquote','lambda','set','setq','setf',
  58              'defmacro','gensym','make','symbol','intern',
  59              'name','value','plist','get',
  60              'getf','putprop','remprop','hash','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',
  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','nil','parse-integer','make-list','print','write'
  79              )
  80          ),
  81      'SYMBOLS' => array(
  82          '(', ')', '{', '}', '[', ']',
  83          '!', '%', '^', '&',
  84          ' + ',' - ',' * ',' / ',
  85          '=','<','>',
  86          '.',':',',',';',
  87          '|'
  88          ),
  89      'CASE_SENSITIVE' => array(
  90          GESHI_COMMENTS => false,
  91          1 => false
  92          ),
  93      'STYLES' => array(
  94          'KEYWORDS' => array(
  95              1 => 'color: #b1b100;'
  96              ),
  97          'COMMENTS' => array(
  98              1 => 'color: #808080; font-style: italic;',
  99              'MULTI' => 'color: #808080; font-style: italic;'
 100              ),
 101          'ESCAPE_CHAR' => array(
 102              0 => 'color: #000099; font-weight: bold;'
 103              ),
 104          'BRACKETS' => array(
 105              0 => 'color: #66cc66;'
 106              ),
 107          'STRINGS' => array(
 108              0 => 'color: #ff0000;'
 109              ),
 110          'NUMBERS' => array(
 111              0 => 'color: #cc66cc;'
 112              ),
 113          'METHODS' => array(
 114              0 => 'color: #555;',
 115              1 => 'color: #555;'
 116              ),
 117          'SYMBOLS' => array(
 118              0 => 'color: #66cc66;'
 119              ),
 120          'REGEXPS' => array(
 121              ),
 122          'SCRIPT' => array(
 123              )
 124          ),
 125      'URLS' => array(
 126          1 => ''
 127          ),
 128      'OOLANG' => true,
 129      'OBJECT_SPLITTERS' => array(
 130          '::', ':'
 131          ),
 132      'REGEXPS' => array(
 133          ),
 134      'STRICT_MODE_APPLIES' => GESHI_NEVER,
 135      'SCRIPT_DELIMITERS' => array(
 136          ),
 137      'HIGHLIGHT_STRICT_BLOCK' => array(
 138          ),
 139      'PARSER_CONTROL' => array(
 140          'KEYWORDS' => array(
 141              'DISALLOWED_BEFORE' => '(?<![a-zA-Z0-9-\$_\|\#|^&])',
 142              ),
 143          'OOLANG' => array(
 144              'MATCH_AFTER' => '[a-zA-Z][a-zA-Z0-9_\-]*'
 145              )
 146          )
 147  );