00001 <?php
00002 $BEAUT_PATH = realpath(".")."/syntax_highlight/php";
00003 if (!isset ($BEAUT_PATH)) return;
00004 require_once("$BEAUT_PATH/Beautifier/HFile.php");
00005 class HFile_scheme extends HFile{
00006 function HFile_scheme(){
00007 $this->HFile();
00008
00009
00010
00011
00012
00013
00014 $this->nocase = "0";
00015 $this->notrim = "0";
00016 $this->perl = "0";
00017
00018
00019
00020 $this->colours = array("blue", "purple", "gray", "blue");
00021 $this->quotecolour = "blue";
00022 $this->blockcommentcolour = "green";
00023 $this->linecommentcolour = "green";
00024
00025
00026
00027 $this->indent = array();
00028 $this->unindent = array();
00029
00030
00031
00032 $this->stringchars = array();
00033 $this->delimiters = array("~", "@", "%", "^", "&", "*", "(", ")", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", " ", ",", " ", ".");
00034 $this->escchar = "";
00035
00036
00037
00038 $this->linecommenton = array("");
00039 $this->blockcommenton = array("");
00040 $this->blockcommentoff = array("");
00041
00042
00043
00044 $this->keywords = array(
00045 "accumulate" => "1",
00046 "aling" => "1",
00047 "appearances" => "1",
00048 "append" => "1",
00049 "apply" => "1",
00050 "assoc" => "1",
00051 "before?" => "1",
00052 "begin" => "1",
00053 "bf" => "1",
00054 "bl" => "1",
00055 "butfirst" => "1",
00056 "butlast" => "1",
00057 "caaar" => "1",
00058 "caadr" => "1",
00059 "caar" => "1",
00060 "cadar" => "1",
00061 "caddr" => "1",
00062 "cadr" => "1",
00063 "car" => "1",
00064 "cdaar" => "1",
00065 "cdadr" => "1",
00066 "cdar" => "1",
00067 "cddar" => "1",
00068 "cdddr" => "1",
00069 "cddr" => "1",
00070 "cdr" => "1",
00071 "children" => "1",
00072 "close-all-ports" => "1",
00073 "close-input-port" => "1",
00074 "close-output-port" => "1",
00075 "cons" => "1",
00076 "count" => "1",
00077 "datum" => "1",
00078 "define" => "1",
00079 "display" => "1",
00080 "empty?" => "1",
00081 "eof-object?" => "1",
00082 "error" => "1",
00083 "every" => "1",
00084 "filter" => "1",
00085 "first" => "1",
00086 "for-each" => "1",
00087 "item" => "1",
00088 "keep" => "1",
00089 "lambda" => "1",
00090 "last" => "1",
00091 "length" => "1",
00092 "let" => "1",
00093 "list" => "1",
00094 "list->vector" => "1",
00095 "list-ref" => "1",
00096 "list?" => "1",
00097 "load" => "1",
00098 "make-node" => "1",
00099 "make-vector" => "1",
00100 "map" => "1",
00101 "member" => "1",
00102 "member?" => "1",
00103 "newline" => "1",
00104 "null?" => "1",
00105 "open-input-file" => "1",
00106 "open-output-file" => "1",
00107 "procedure?" => "1",
00108 "quote" => "1",
00109 "read" => "1",
00110 "read-line" => "1",
00111 "read-string" => "1",
00112 "reduce" => "1",
00113 "repeated" => "1",
00114 "se" => "1",
00115 "sentence" => "1",
00116 "sentence?" => "1",
00117 "show" => "1",
00118 "show-line" => "1",
00119 "trace" => "1",
00120 "untrace" => "1",
00121 "vector" => "1",
00122 "vector->length" => "1",
00123 "vector->list" => "1",
00124 "vector-ref" => "1",
00125 "vector-set!" => "1",
00126 "vector?" => "1",
00127 "word" => "1",
00128 "word?" => "1",
00129 "write" => "1",
00130 "abs" => "2",
00131 "ceiling" => "2",
00132 "cos" => "2",
00133 "even?" => "2",
00134 "expt" => "2",
00135 "floor" => "2",
00136 "integer?" => "2",
00137 "log" => "2",
00138 "max" => "2",
00139 "min" => "2",
00140 "number?" => "2",
00141 "odd?" => "2",
00142 "quotient" => "2",
00143 "random" => "2",
00144 "remainder" => "2",
00145 "round" => "2",
00146 "sin" => "2",
00147 "sqrt" => "2",
00148 "and" => "3",
00149 "boolean?" => "3",
00150 "cond" => "3",
00151 "if" => "3",
00152 "not" => "3",
00153 "or" => "3",
00154 "#f" => "5",
00155 "#t" => "5",
00156 "\'()" => "5");
00157
00158
00159
00160
00161
00162
00163
00164
00165 $this->linkscripts = array(
00166 "1" => "donothing",
00167 "2" => "donothing",
00168 "3" => "donothing",
00169 "5" => "donothing");
00170 }
00171
00172
00173 function donothing($keywordin)
00174 {
00175 return $keywordin;
00176 }
00177
00178 }?>