openrat-cms

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

lisp.php (4383B)


      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.20
      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 ?>