40 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
40 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
41 * |
41 * |
42 ************************************************************************************/ |
42 ************************************************************************************/ |
43 |
43 |
44 $language_data = array ( |
44 $language_data = array ( |
45 'LANG_NAME' => 'Lisp', |
45 'LANG_NAME' => 'Lisp', |
46 'COMMENT_SINGLE' => array(1 => ';'), |
46 'COMMENT_SINGLE' => array(1 => ';'), |
47 'COMMENT_MULTI' => array(';|' => '|;'), |
47 'COMMENT_MULTI' => array(';|' => '|;'), |
48 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE, |
48 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE, |
49 'QUOTEMARKS' => array('"'), |
49 'QUOTEMARKS' => array('"'), |
50 'ESCAPE_CHAR' => '\\', |
50 'ESCAPE_CHAR' => '\\', |
51 'KEYWORDS' => array( |
51 'KEYWORDS' => array( |
52 1 => array( |
52 1 => array( |
53 'not','defun','princ', |
53 'not','defun','princ','when', |
54 'eval','apply','funcall','quote','identity','function', |
54 'eval','apply','funcall','quote','identity','function', |
55 'complement','backquote','lambda','set','setq','setf', |
55 'complement','backquote','lambda','set','setq','setf', |
56 'defun','defmacro','gensym','make','symbol','intern', |
56 'defmacro','gensym','make','symbol','intern', |
57 'symbol','name','symbol','value','symbol','plist','get', |
57 'name','value','plist','get', |
58 'getf','putprop','remprop','hash','make','array','aref', |
58 'getf','putprop','remprop','hash','array','aref', |
59 'car','cdr','caar','cadr','cdar','cddr','caaar','caadr','cadar', |
59 'car','cdr','caar','cadr','cdar','cddr','caaar','caadr','cadar', |
60 'caddr','cdaar','cdadr','cddar','cdddr','caaaar','caaadr', |
60 'caddr','cdaar','cdadr','cddar','cdddr','caaaar','caaadr', |
61 'caadar','caaddr','cadaar','cadadr','caddar','cadddr', |
61 'caadar','caaddr','cadaar','cadadr','caddar','cadddr', |
62 'cdaaar','cdaadr','cdadar','cdaddr','cddaar','cddadr', |
62 'cdaaar','cdaadr','cdadar','cdaddr','cddaar','cddadr', |
63 'cdddar','cddddr','cons','list','append','reverse','last','nth', |
63 'cdddar','cddddr','cons','list','append','reverse','last','nth', |
64 'nthcdr','member','assoc','subst','sublis','nsubst', |
64 'nthcdr','member','assoc','subst','sublis','nsubst', |
65 'nsublis','remove','length','list','length', |
65 'nsublis','remove','length', |
66 'mapc','mapcar','mapl','maplist','mapcan','mapcon','rplaca', |
66 'mapc','mapcar','mapl','maplist','mapcan','mapcon','rplaca', |
67 'rplacd','nconc','delete','atom','symbolp','numberp', |
67 'rplacd','nconc','delete','atom','symbolp','numberp', |
68 'boundp','null','listp','consp','minusp','zerop','plusp', |
68 'boundp','null','listp','consp','minusp','zerop','plusp', |
69 'evenp','oddp','eq','eql','equal','cond','case','and','or', |
69 'evenp','oddp','eq','eql','equal','cond','case','and','or', |
70 'let','l','if','prog','prog1','prog2','progn','go','return', |
70 'let','l','if','prog','prog1','prog2','progn','go','return', |
71 'do','dolist','dotimes','catch','throw','error','cerror','break', |
71 'do','dolist','dotimes','catch','throw','error','cerror','break', |
72 'continue','errset','baktrace','evalhook','truncate','float', |
72 'continue','errset','baktrace','evalhook','truncate','float', |
73 'rem','min','max','abs','sin','cos','tan','expt','exp','sqrt', |
73 'rem','min','max','abs','sin','cos','tan','expt','exp','sqrt', |
74 'random','logand','logior','logxor','lognot','bignums','logeqv', |
74 'random','logand','logior','logxor','lognot','bignums','logeqv', |
75 'lognand','lognor','logorc2','logtest','logbitp','logcount', |
75 'lognand','lognor','logorc2','logtest','logbitp','logcount', |
76 'integer','length','nil' |
76 'integer','nil','parse-integer' |
77 ) |
77 ) |
78 ), |
78 ), |
79 'SYMBOLS' => array( |
79 'SYMBOLS' => array( |
80 '(', ')', '{', '}', '[', ']', '!', '%', '^', '&', '/','+','-','*','=','<','>',';','|' |
80 '(', ')', '{', '}', '[', ']', |
81 ), |
81 '!', '%', '^', '&', |
82 'CASE_SENSITIVE' => array( |
82 ' + ',' - ',' * ',' / ', |
83 GESHI_COMMENTS => true, |
83 '=','<','>', |
84 1 => false |
84 '.',':',',',';', |
85 ), |
85 '|' |
86 'STYLES' => array( |
86 ), |
87 'KEYWORDS' => array( |
87 'CASE_SENSITIVE' => array( |
88 1 => 'color: #b1b100;' |
88 GESHI_COMMENTS => false, |
89 ), |
89 1 => false |
90 'COMMENTS' => array( |
90 ), |
91 1 => 'color: #808080; font-style: italic;', |
91 'STYLES' => array( |
92 'MULTI' => 'color: #808080; font-style: italic;' |
92 'KEYWORDS' => array( |
93 ), |
93 1 => 'color: #b1b100;' |
94 'ESCAPE_CHAR' => array( |
94 ), |
95 0 => 'color: #000099; font-weight: bold;' |
95 'COMMENTS' => array( |
96 ), |
96 1 => 'color: #808080; font-style: italic;', |
97 'BRACKETS' => array( |
97 'MULTI' => 'color: #808080; font-style: italic;' |
98 0 => 'color: #66cc66;' |
98 ), |
99 ), |
99 'ESCAPE_CHAR' => array( |
100 'STRINGS' => array( |
100 0 => 'color: #000099; font-weight: bold;' |
101 0 => 'color: #ff0000;' |
101 ), |
102 ), |
102 'BRACKETS' => array( |
103 'NUMBERS' => array( |
103 0 => 'color: #66cc66;' |
104 0 => 'color: #cc66cc;' |
104 ), |
105 ), |
105 'STRINGS' => array( |
106 'METHODS' => array( |
106 0 => 'color: #ff0000;' |
107 0 => 'color: #555;', |
107 ), |
|
108 'NUMBERS' => array( |
|
109 0 => 'color: #cc66cc;' |
|
110 ), |
|
111 'METHODS' => array( |
|
112 0 => 'color: #555;', |
108 1 => 'color: #555;' |
113 1 => 'color: #555;' |
109 ), |
114 ), |
110 'SYMBOLS' => array( |
115 'SYMBOLS' => array( |
111 0 => 'color: #66cc66;' |
116 0 => 'color: #66cc66;' |
112 ), |
117 ), |
113 'REGEXPS' => array( |
118 'REGEXPS' => array( |
114 ), |
119 ), |
115 'SCRIPT' => array( |
120 'SCRIPT' => array( |
116 ) |
121 ) |
117 ), |
122 ), |
118 'URLS' => array( |
123 'URLS' => array( |
119 ), |
124 1 => '' |
120 'OOLANG' => true, |
125 ), |
121 'OBJECT_SPLITTERS' => array( |
126 'OOLANG' => true, |
122 '::', ':' |
127 'OBJECT_SPLITTERS' => array( |
123 ), |
128 '::', ':' |
124 'REGEXPS' => array( |
129 ), |
125 ), |
130 'REGEXPS' => array( |
126 'STRICT_MODE_APPLIES' => GESHI_NEVER, |
131 ), |
127 'SCRIPT_DELIMITERS' => array( |
132 'STRICT_MODE_APPLIES' => GESHI_NEVER, |
128 ), |
133 'SCRIPT_DELIMITERS' => array( |
129 'HIGHLIGHT_STRICT_BLOCK' => array( |
134 ), |
130 ) |
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 ) |
131 ); |
142 ); |
132 |
143 |
133 ?> |
144 ?> |