00001 <?php
00002
00003 $BEAUT_PATH = realpath(".")."/syntax_highlight/php";
00004 if (!isset ($BEAUT_PATH)) return;
00005 require_once("$BEAUT_PATH/Beautifier/HFile.php");
00006 class HFile_lisp extends HFile{
00007 function HFile_lisp(){
00008 $this->HFile();
00009
00010
00011
00012
00013
00014
00015
00016 $this->nocase = "0";
00017 $this->notrim = "0";
00018 $this->perl = "0";
00019
00020
00021
00022 $this->colours = array("blue", "purple", "gray", "brown", "blue", "purple", "gray");
00023 $this->quotecolour = "blue";
00024 $this->blockcommentcolour = "green";
00025 $this->linecommentcolour = "green";
00026
00027
00028
00029 $this->indent = array();
00030 $this->unindent = array();
00031
00032
00033
00034 $this->stringchars = array("\"");
00035 $this->delimiters = array("~", "!", "@", "%", "^", "&", "(", ")", "|", "{", "}", "[", "]", ";", "\"", "'", " ", ",", " ", ".", "?");
00036 $this->escchar = "";
00037
00038
00039
00040 $this->linecommenton = array(";");
00041 $this->blockcommenton = array("#|");
00042 $this->blockcommentoff = array("|#");
00043
00044
00045
00046 $this->keywords = array(
00047 "~a" => "1",
00048 "~A" => "1",
00049 "~b" => "1",
00050 "~B" => "1",
00051 "~d" => "1",
00052 "~D" => "1",
00053 "~e" => "1",
00054 "~E" => "1",
00055 "~o" => "1",
00056 "~O" => "1",
00057 "~s" => "1",
00058 "~S" => "1",
00059 "~x" => "1",
00060 "~X" => "1",
00061 "~%" => "1",
00062 "#\\" => "2",
00063 "#|" => "2",
00064 "#=" => "2",
00065 "#-" => "2",
00066 "#+" => "2",
00067 "#(" => "2",
00068 "#." => "2",
00069 "#\'" => "2",
00070 "#:" => "2",
00071 "##" => "2",
00072 "#a" => "2",
00073 "#A" => "2",
00074 "#b" => "2",
00075 "#B" => "2",
00076 "#c" => "2",
00077 "#o" => "2",
00078 "#O" => "2",
00079 "#r" => "2",
00080 "#R" => "2",
00081 "#s" => "2",
00082 "#S" => "2",
00083 "#x" => "2",
00084 "#X" => "2",
00085 "&allow-other-keys" => "3",
00086 "&aux" => "3",
00087 "&key" => "3",
00088 "&optional" => "3",
00089 "&rest" => "3",
00090 "*features*" => "4",
00091 "*load-verbose*" => "4",
00092 "*modules*" => "4",
00093 "*package*" => "4",
00094 "*print-array*" => "4",
00095 "*print-base*" => "4",
00096 "*print-case*" => "4",
00097 "*print-circle*" => "4",
00098 "*printescape*" => "4",
00099 "*printgensym*" => "4",
00100 "*print-length*" => "4",
00101 "*print-level*" => "4",
00102 "*print-pretty*" => "4",
00103 "*print-radix*" => "4",
00104 "*read-base*" => "4",
00105 "*readtable*" => "4",
00106 "*standard-input*" => "4",
00107 "*standard-output*" => "4",
00108 "*terminal-io*" => "4",
00109 ":allow-other-keys" => "5",
00110 ":append" => "5",
00111 ":array" => "5",
00112 ":base" => "5",
00113 ":capitalize" => "5",
00114 ":case" => "5",
00115 ":circle" => "5",
00116 ":count" => "5",
00117 ":direction" => "5",
00118 ":downcase" => "5",
00119 ":element-type" => "5",
00120 ":escape" => "5",
00121 ":external" => "5",
00122 ":from-end" => "5",
00123 ":gensym" => "5",
00124 ":if-exists" => "5",
00125 ":inherited" => "5",
00126 ":initial-element" => "5",
00127 ":input" => "5",
00128 ":internal" => "5",
00129 ":key" => "5",
00130 ":length" => "5",
00131 ":level" => "5",
00132 ":output" => "5",
00133 ":output-file" => "5",
00134 ":pretty" => "5",
00135 ":print" => "5",
00136 ":radix" => "5",
00137 ":stream" => "5",
00138 ":test" => "5",
00139 ":test-not" => "5",
00140 ":upcase" => "5",
00141 ":verbose" => "5",
00142 "abs" => "6",
00143 "acons" => "6",
00144 "acos" => "6",
00145 "alpha-char-p" => "6",
00146 "alphanumericp" => "6",
00147 "and" => "6",
00148 "append" => "6",
00149 "apply" => "6",
00150 "apropos" => "6",
00151 "aref" => "6",
00152 "array-dimensions" => "6",
00153 "array-rank" => "6",
00154 "arrayp" => "6",
00155 "asin" => "6",
00156 "assoc" => "6",
00157 "atan" => "6",
00158 "atom" => "6",
00159 "block" => "6",
00160 "boundp" => "6",
00161 "break" => "6",
00162 "by" => "6",
00163 "bye" => "6",
00164 "car" => "6",
00165 "case" => "6",
00166 "catch" => "6",
00167 "cdr" => "6",
00168 "ceiling" => "6",
00169 "char" => "6",
00170 "char=" => "6",
00171 "char/=" => "6",
00172 "char>" => "6",
00173 "char>=" => "6",
00174 "char<" => "6",
00175 "char<=" => "6",
00176 "char-code" => "6",
00177 "char-downcase" => "6",
00178 "char-upcase" => "6",
00179 "char-acterp" => "6",
00180 "close" => "6",
00181 "code-char" => "6",
00182 "compile" => "6",
00183 "compile-file" => "6",
00184 "compiler-let" => "6",
00185 "complexp" => "6",
00186 "concatenate" => "6",
00187 "cond" => "6",
00188 "cons" => "6",
00189 "consp" => "6",
00190 "copy-seq" => "6",
00191 "cos" => "6",
00192 "decf" => "6",
00193 "declare" => "6",
00194 "defconstant" => "6",
00195 "defmacro" => "6",
00196 "defparameter" => "6",
00197 "defstruct" => "6",
00198 "defun" => "6",
00199 "defvar" => "6",
00200 "delete" => "6",
00201 "delete-file" => "6",
00202 "delete-if" => "6",
00203 "delete-if-not" => "6",
00204 "describe" => "6",
00205 "digit-char-p" => "6",
00206 "do" => "6",
00207 "do*" => "6",
00208 "do-all-symbols" => "6",
00209 "do-external-symbols" => "6",
00210 "do-symbols" => "6",
00211 "documentation" => "6",
00212 "dolist" => "6",
00213 "dotimes" => "6",
00214 "ed" => "6",
00215 "eighth" => "6",
00216 "eq" => "6",
00217 "eql" => "6",
00218 "equal" => "6",
00219 "error" => "6",
00220 "eval" => "6",
00221 "eval-when" => "6",
00222 "exp" => "6",
00223 "export" => "6",
00224 "expt" => "6",
00225 "fifth" => "6",
00226 "find-package" => "6",
00227 "find-symbol" => "6",
00228 "finish-output" => "6",
00229 "first" => "6",
00230 "flet" => "6",
00231 "floatp" => "6",
00232 "floor" => "6",
00233 "format" => "6",
00234 "fourth" => "6",
00235 "fresh-line" => "6",
00236 "funcall" => "6",
00237 "function" => "6",
00238 "gcd" => "6",
00239 "gensym" => "6",
00240 "gentemp" => "6",
00241 "get" => "6",
00242 "getf" => "6",
00243 "get-macro-character" => "6",
00244 "get-properties" => "6",
00245 "go" => "6",
00246 "if" => "6",
00247 "import" => "6",
00248 "in-package" => "6",
00249 "incf" => "6",
00250 "inspect" => "6",
00251 "integerp" => "6",
00252 "intern" => "6",
00253 "isqrt" => "6",
00254 "labels" => "6",
00255 "lanbda" => "6",
00256 "last" => "6",
00257 "lcm" => "6",
00258 "length" => "6",
00259 "let" => "6",
00260 "let*" => "6",
00261 "list" => "6",
00262 "list*" => "6",
00263 "list-all-packages" => "6",
00264 "listp" => "6",
00265 "load" => "6",
00266 "log" => "6",
00267 "loop" => "6",
00268 "lower-case-p" => "6",
00269 "macroexpand" => "6",
00270 "macro-function" => "6",
00271 "macrolet" => "6",
00272 "make-array" => "6",
00273 "make-list" => "6",
00274 "make-string" => "6",
00275 "makunbound" => "6",
00276 "mapc" => "6",
00277 "mapcan" => "6",
00278 "mapcar" => "6",
00279 "mapcon" => "6",
00280 "mapl" => "6",
00281 "maplist" => "6",
00282 "max" => "6",
00283 "member" => "6",
00284 "member-if" => "6",
00285 "member-if-not" => "6",
00286 "min" => "6",
00287 "mod" => "6",
00288 "multiple-value-bind" => "6",
00289 "multiple-value-call" => "6",
00290 "multiple-value-list" => "6",
00291 "multiple-value-prog1" => "6",
00292 "multiple-value-setq" => "6",
00293 "nconc" => "6",
00294 "nil" => "6",
00295 "ninth" => "6",
00296 "not" => "6",
00297 "nreverse" => "6",
00298 "nstring-downcase" => "6",
00299 "nstring-upcase" => "6",
00300 "nth" => "6",
00301 "nthcdr" => "6",
00302 "null" => "6",
00303 "numberp" => "6",
00304 "open" => "6",
00305 "or" => "6",
00306 "otherwise" => "6",
00307 "peek-char" => "6",
00308 "pi" => "6",
00309 "pop" => "6",
00310 "pprint" => "6",
00311 "prin1" => "6",
00312 "princ" => "6",
00313 "print" => "6",
00314 "probe-file" => "6",
00315 "proclaim" => "6",
00316 "prog" => "6",
00317 "prog*" => "6",
00318 "prog1" => "6",
00319 "progn" => "6",
00320 "progv" => "6",
00321 "provide" => "6",
00322 "psetf" => "6",
00323 "psetq" => "6",
00324 "push" => "6",
00325 "quote" => "6",
00326 "random" => "6",
00327 "rationalp" => "6",
00328 "read" => "6",
00329 "read-char" => "6",
00330 "read-preserving-whitespace" => "6",
00331 "rem" => "6",
00332 "remf" => "6",
00333 "remove" => "6",
00334 "remove-if" => "6",
00335 "remove-if-not" => "6",
00336 "remprop" => "6",
00337 "rename-file" => "6",
00338 "require" => "6",
00339 "rest" => "6",
00340 "return" => "6",
00341 "return-from" => "6",
00342 "reverse" => "6",
00343 "round" => "6",
00344 "rplace" => "6",
00345 "rplacd" => "6",
00346 "second" => "6",
00347 "set" => "6",
00348 "set-macro-character" => "6",
00349 "setf" => "6",
00350 "setq" => "6",
00351 "seventh" => "6",
00352 "shadow" => "6",
00353 "sin" => "6",
00354 "sixth" => "6",
00355 "special" => "6",
00356 "special-form-p" => "6",
00357 "sqrt" => "6",
00358 "step" => "6",
00359 "string" => "6",
00360 "string=" => "6",
00361 "string/=" => "6",
00362 "string>" => "6",
00363 "string<" => "6",
00364 "string>=" => "6",
00365 "string<=" => "6",
00366 "string-char" => "6",
00367 "string-downcase" => "6",
00368 "string-upcase" => "6",
00369 "stringp" => "6",
00370 "subseq" => "6",
00371 "symbol-name" => "6",
00372 "symbol-package" => "6",
00373 "symbol-values" => "6",
00374 "t" => "6",
00375 "tagbody" => "6",
00376 "tan" => "6",
00377 "tenth" => "6",
00378 "terpri" => "6",
00379 "the" => "6",
00380 "third" => "6",
00381 "throw" => "6",
00382 "time" => "6",
00383 "trace" => "6",
00384 "truncate" => "6",
00385 "typep" => "6",
00386 "unless" => "6",
00387 "unread-char" => "6",
00388 "untrace" => "6",
00389 "unwind-protect" => "6",
00390 "upper-case-p" => "6",
00391 "use-package" => "6",
00392 "values" => "6",
00393 "values-list" => "6",
00394 "variable" => "6",
00395 "vector" => "6",
00396 "vectorp" => "6",
00397 "when" => "6",
00398 "with-input-from-string" => "6",
00399 "with-open-file" => "6",
00400 "with-output-to-string" => "6",
00401 "write" => "6",
00402 "write-char" => "6",
00403 "write-to-string" => "6",
00404 "=" => "7",
00405 "//" => "7",
00406 "/=" => "7",
00407 "/" => "7",
00408 ">" => "7",
00409 ">=" => "7",
00410 "<" => "7",
00411 "<=" => "7",
00412 "+" => "7",
00413 "-" => "7",
00414 "*" => "7",
00415 "1+" => "7",
00416 "1-" => "7",
00417 "evenp" => "7",
00418 "minusp" => "7",
00419 "oddp" => "7",
00420 "plusp" => "7",
00421 "zerop" => "7");
00422
00423
00424
00425
00426
00427
00428
00429
00430 $this->linkscripts = array(
00431 "1" => "donothing",
00432 "2" => "donothing",
00433 "3" => "donothing",
00434 "4" => "donothing",
00435 "5" => "donothing",
00436 "6" => "donothing",
00437 "7" => "donothing");
00438 }
00439
00440
00441
00442 function donothing($keywordin)
00443 {
00444 return $keywordin;
00445 }
00446
00447 }
00448
00449 ?>