1 | <?php
|
---|
2 | /*************************************************************************************
|
---|
3 | * scheme.php
|
---|
4 | * ----------
|
---|
5 | * Author: Jon Raphaelson ([email protected])
|
---|
6 | * Copyright: (c) 2005 Jon Raphaelson, Nigel McNie (http://qbnz.com/highlighter)
|
---|
7 | * Release Version: 1.0.8.8
|
---|
8 | * Date Started: 2004/08/30
|
---|
9 | *
|
---|
10 | * Scheme language file for GeSHi.
|
---|
11 | *
|
---|
12 | * CHANGES
|
---|
13 | * -------
|
---|
14 | * 2005/09/22 (1.0.0)
|
---|
15 | * - First Release
|
---|
16 | *
|
---|
17 | * TODO (updated 2005/09/22)
|
---|
18 | * -------------------------
|
---|
19 | *
|
---|
20 | *************************************************************************************
|
---|
21 | *
|
---|
22 | * This file is part of GeSHi.
|
---|
23 | *
|
---|
24 | * GeSHi is free software; you can redistribute it and/or modify
|
---|
25 | * it under the terms of the GNU General Public License as published by
|
---|
26 | * the Free Software Foundation; either version 2 of the License, or
|
---|
27 | * (at your option) any later version.
|
---|
28 | *
|
---|
29 | * GeSHi is distributed in the hope that it will be useful,
|
---|
30 | * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
31 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
32 | * GNU General Public License for more details.
|
---|
33 | *
|
---|
34 | * You should have received a copy of the GNU General Public License
|
---|
35 | * along with GeSHi; if not, write to the Free Software
|
---|
36 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
---|
37 | *
|
---|
38 | ************************************************************************************/
|
---|
39 |
|
---|
40 | $language_data = array (
|
---|
41 | 'LANG_NAME' => 'Scheme',
|
---|
42 | 'COMMENT_SINGLE' => array(1 => ';'),
|
---|
43 | 'COMMENT_MULTI' => array('#|' => '|#'),
|
---|
44 | 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
|
---|
45 | 'QUOTEMARKS' => array('"'),
|
---|
46 | 'ESCAPE_CHAR' => '\\',
|
---|
47 | 'KEYWORDS' => array(
|
---|
48 | 1 => array(
|
---|
49 | 'abs', 'acos', 'and', 'angle', 'append', 'appply', 'approximate',
|
---|
50 | 'asin', 'assoc', 'assq', 'assv', 'atan',
|
---|
51 |
|
---|
52 | 'begin', 'boolean?', 'bound-identifier=?',
|
---|
53 |
|
---|
54 | 'caar', 'caddr', 'cadr', 'call-with-current-continuation',
|
---|
55 | 'call-with-input-file', 'call-with-output-file', 'call/cc', 'car',
|
---|
56 | 'case', 'catch', 'cdddar', 'cddddr', 'cdr', 'ceiling', 'char->integer',
|
---|
57 | 'char-alphabetic?', 'char-ci<=?', 'char-ci<?', 'char-ci?', 'char-ci>=?',
|
---|
58 | 'char-ci>?', 'char-ci=?', 'char-downcase', 'char-lower-case?',
|
---|
59 | 'char-numeric', 'char-ready', 'char-ready?', 'char-upcase',
|
---|
60 | 'char-upper-case?', 'char-whitespace?', 'char<=?', 'char<?', 'char=?',
|
---|
61 | 'char>=?', 'char>?', 'char?', 'close-input-port', 'close-output-port',
|
---|
62 | 'complex?', 'cond', 'cons', 'construct-identifier', 'cos',
|
---|
63 | 'current-input-port', 'current-output-port',
|
---|
64 |
|
---|
65 | 'd', 'define', 'define-syntax', 'delay', 'denominator', 'display', 'do',
|
---|
66 |
|
---|
67 | 'e', 'eof-object?', 'eq?', 'equal?', 'eqv?', 'even?', 'exact->inexact',
|
---|
68 | 'exact?', 'exp', 'expt', 'else',
|
---|
69 |
|
---|
70 | 'f', 'floor', 'for-each', 'force', 'free-identifer=?',
|
---|
71 |
|
---|
72 | 'gcd', 'gen-counter', 'gen-loser', 'generate-identifier',
|
---|
73 |
|
---|
74 | 'identifier->symbol', 'identifier', 'if', 'imag-part', 'inexact->exact',
|
---|
75 | 'inexact?', 'input-port?', 'integer->char', 'integer?', 'integrate-system',
|
---|
76 |
|
---|
77 | 'l', 'lambda', 'last-pair', 'lcm', 'length', 'let', 'let*', 'letrec',
|
---|
78 | 'list', 'list->string', 'list->vector', 'list-ref', 'list-tail', 'list?',
|
---|
79 | 'load', 'log',
|
---|
80 |
|
---|
81 | 'magnitude', 'make-polar', 'make-promise', 'make-rectangular',
|
---|
82 | 'make-string', 'make-vector', 'map', 'map-streams', 'max', 'member',
|
---|
83 | 'memq', 'memv', 'min', 'modulo',
|
---|
84 |
|
---|
85 | 'negative', 'newline', 'nil', 'not', 'null?', 'number->string', 'number?',
|
---|
86 | 'numerator',
|
---|
87 |
|
---|
88 | 'odd?', 'open-input-file', 'open-output-file', 'or', 'output-port',
|
---|
89 |
|
---|
90 | 'pair?', 'peek-char', 'positive?', 'procedure?',
|
---|
91 |
|
---|
92 | 'quasiquote', 'quote', 'quotient',
|
---|
93 |
|
---|
94 | 'rational', 'rationalize', 'read', 'read-char', 'real-part', 'real?',
|
---|
95 | 'remainder', 'return', 'reverse',
|
---|
96 |
|
---|
97 | 's', 'sequence', 'set!', 'set-char!', 'set-cdr!', 'sin', 'sqrt', 'string',
|
---|
98 | 'string->list', 'string->number', 'string->symbol', 'string-append',
|
---|
99 | 'string-ci<=?', 'string-ci<?', 'string-ci=?', 'string-ci>=?',
|
---|
100 | 'string-ci>?', 'string-copy', 'string-fill!', 'string-length',
|
---|
101 | 'string-ref', 'string-set!', 'string<=?', 'string<?', 'string=?',
|
---|
102 | 'string>=?', 'string>?', 'string?', 'substring', 'symbol->string',
|
---|
103 | 'symbol?', 'syntax', 'syntax-rules',
|
---|
104 |
|
---|
105 | 't', 'tan', 'template', 'transcript-off', 'transcript-on', 'truncate',
|
---|
106 |
|
---|
107 | 'unquote', 'unquote-splicing', 'unwrap-syntax',
|
---|
108 |
|
---|
109 | 'vector', 'vector->list', 'vector-fill!', 'vector-length', 'vector-ref',
|
---|
110 | 'vector-set!', 'vector?',
|
---|
111 |
|
---|
112 | 'with-input-from-file', 'with-output-to-file', 'write', 'write-char',
|
---|
113 |
|
---|
114 | 'zero?'
|
---|
115 | )
|
---|
116 | ),
|
---|
117 | 'SYMBOLS' => array(
|
---|
118 | '(', ')', '{', '}', '[', ']', '!', '%', '^', '&', '/','+','-','*','=','<','>',';','|'
|
---|
119 | ),
|
---|
120 | 'CASE_SENSITIVE' => array(
|
---|
121 | GESHI_COMMENTS => false,
|
---|
122 | 1 => false
|
---|
123 | ),
|
---|
124 | 'STYLES' => array(
|
---|
125 | 'KEYWORDS' => array(
|
---|
126 | 1 => 'color: #b1b100;'
|
---|
127 | ),
|
---|
128 | 'COMMENTS' => array(
|
---|
129 | 1 => 'color: #808080; font-style: italic;',
|
---|
130 | 'MULTI' => 'color: #808080; font-style: italic;'
|
---|
131 | ),
|
---|
132 | 'ESCAPE_CHAR' => array(
|
---|
133 | 0 => 'color: #000099; font-weight: bold;'
|
---|
134 | ),
|
---|
135 | 'BRACKETS' => array(
|
---|
136 | 0 => 'color: #66cc66;'
|
---|
137 | ),
|
---|
138 | 'STRINGS' => array(
|
---|
139 | 0 => 'color: #ff0000;'
|
---|
140 | ),
|
---|
141 | 'NUMBERS' => array(
|
---|
142 | 0 => 'color: #cc66cc;'
|
---|
143 | ),
|
---|
144 | 'METHODS' => array(
|
---|
145 | 0 => 'color: #202020;'
|
---|
146 | ),
|
---|
147 | 'SYMBOLS' => array(
|
---|
148 | 0 => 'color: #66cc66;'
|
---|
149 | ),
|
---|
150 | 'REGEXPS' => array(
|
---|
151 | ),
|
---|
152 | 'SCRIPT' => array(
|
---|
153 | )
|
---|
154 | ),
|
---|
155 | 'URLS' => array(
|
---|
156 | 1 => ''
|
---|
157 | ),
|
---|
158 | 'OOLANG' => false,
|
---|
159 | 'OBJECT_SPLITTERS' => array(
|
---|
160 | ),
|
---|
161 | 'REGEXPS' => array(
|
---|
162 | ),
|
---|
163 | 'STRICT_MODE_APPLIES' => GESHI_NEVER,
|
---|
164 | 'SCRIPT_DELIMITERS' => array(
|
---|
165 | ),
|
---|
166 | 'HIGHLIGHT_STRICT_BLOCK' => array(
|
---|
167 | )
|
---|
168 | );
|
---|
169 |
|
---|
170 | ?>
|
---|