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_autolisp extends HFile{
00006 function HFile_autolisp(){
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", "brown", "blue", "purple");
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 "cond" => "1",
00046 "foreach" => "1",
00047 "if" => "1",
00048 "progn" => "1",
00049 "repeat" => "1",
00050 "while" => "1",
00051 "*error*" => "2",
00052 "alert" => "2",
00053 "exit" => "2",
00054 "nil" => "2",
00055 "NIL" => "2",
00056 "pi" => "2",
00057 "quit" => "2",
00058 "setq" => "2",
00059 "setvar" => "2",
00060 "t" => "2",
00061 "T" => "2",
00062 "*" => "3",
00063 "+" => "3",
00064 "-" => "3",
00065 "//" => "3",
00066 "/" => "3",
00067 "/=" => "3",
00068 "1+" => "3",
00069 "1-" => "3",
00070 "<" => "3",
00071 "<=" => "3",
00072 "=" => "3",
00073 ">" => "3",
00074 ">=" => "3",
00075 "abs" => "3",
00076 "and" => "3",
00077 "angle" => "3",
00078 "angtof" => "3",
00079 "angtos" => "3",
00080 "atan" => "3",
00081 "atof" => "3",
00082 "atoi" => "3",
00083 "boundp" => "3",
00084 "cos" => "3",
00085 "distance" => "3",
00086 "eq" => "3",
00087 "equal" => "3",
00088 "exp" => "3",
00089 "expt" => "3",
00090 "fix" => "3",
00091 "float" => "3",
00092 "log" => "3",
00093 "logand" => "3",
00094 "logior" => "3",
00095 "lsh" => "3",
00096 "max" => "3",
00097 "min" => "3",
00098 "minusp" => "3",
00099 "not" => "3",
00100 "null" => "3",
00101 "or" => "3",
00102 "sqrt" => "3",
00103 "zerop" => "3",
00104 "~" => "3",
00105 "append" => "4",
00106 "caddr" => "4",
00107 "cadr" => "4",
00108 "cal" => "4",
00109 "car" => "4",
00110 "cdddr" => "4",
00111 "cdr" => "4",
00112 "cons" => "4",
00113 "length" => "4",
00114 "list" => "4",
00115 "listp" => "4",
00116 "member" => "4",
00117 "nth" => "4",
00118 "reverse" => "4",
00119 "subst" => "4",
00120 "acad_colordlg" => "5",
00121 "acad_helpdlg" => "5",
00122 "acad_strlsort" => "5",
00123 "action_tile" => "5",
00124 "add_list" => "5",
00125 "ads" => "5",
00126 "alloc" => "5",
00127 "apply" => "5",
00128 "arx" => "5",
00129 "arxload" => "5",
00130 "ascii" => "5",
00131 "atom" => "5",
00132 "atoms-family" => "5",
00133 "autoarxload" => "5",
00134 "autoload" => "5",
00135 "autoxload" => "5",
00136 "boole" => "5",
00137 "client_data_tile" => "5",
00138 "close" => "5",
00139 "command" => "5",
00140 "cvunit" => "5",
00141 "dictadd" => "5",
00142 "dictnext" => "5",
00143 "dictremove" => "5",
00144 "dictrename" => "5",
00145 "dictsearch" => "5",
00146 "dimxtile" => "5",
00147 "dimytile" => "5",
00148 "done_dialog" => "5",
00149 "end_image" => "5",
00150 "end_list" => "5",
00151 "eval" => "5",
00152 "expand" => "5",
00153 "fill_image" => "5",
00154 "findfile" => "5",
00155 "gc" => "5",
00156 "gcd" => "5",
00157 "get_attr" => "5",
00158 "get_tile" => "5",
00159 "getangle" => "5",
00160 "getcfg" => "5",
00161 "getcorner" => "5",
00162 "getdist" => "5",
00163 "getenv" => "5",
00164 "getfiled" => "5",
00165 "getint" => "5",
00166 "getkword" => "5",
00167 "getorient" => "5",
00168 "getpoint" => "5",
00169 "getreal" => "5",
00170 "getstring" => "5",
00171 "getvar" => "5",
00172 "graphscr" => "5",
00173 "grclear" => "5",
00174 "grdraw" => "5",
00175 "grread" => "5",
00176 "grtext" => "5",
00177 "grvecs" => "5",
00178 "handent" => "5",
00179 "help" => "5",
00180 "initget" => "5",
00181 "inters" => "5",
00182 "lambda" => "5",
00183 "last" => "5",
00184 "load" => "5",
00185 "load_dialog" => "5",
00186 "mapcar" => "5",
00187 "mem" => "5",
00188 "menucmd" => "5",
00189 "menugroup" => "5",
00190 "mode_tile" => "5",
00191 "namedobjdict" => "5",
00192 "new_dialog" => "5",
00193 "numberp" => "5",
00194 "open" => "5",
00195 "osnap" => "5",
00196 "pause" => "5",
00197 "polar" => "5",
00198 "prin1" => "5",
00199 "princ" => "5",
00200 "print" => "5",
00201 "prompt" => "5",
00202 "quote" => "5",
00203 "read" => "5",
00204 "read-char" => "5",
00205 "read-line" => "5",
00206 "redraw" => "5",
00207 "regapp" => "5",
00208 "rem" => "5",
00209 "rtos" => "5",
00210 "set" => "5",
00211 "set_tile" => "5",
00212 "setcfg" => "5",
00213 "setfunhelp" => "5",
00214 "setview" => "5",
00215 "sin" => "5",
00216 "slide_image" => "5",
00217 "snvalid" => "5",
00218 "start_app" => "5",
00219 "start_dialog" => "5",
00220 "start_image" => "5",
00221 "start_list" => "5",
00222 "tablet" => "5",
00223 "term_dialog" => "5",
00224 "terpri" => "5",
00225 "textbox" => "5",
00226 "textpage" => "5",
00227 "textscr" => "5",
00228 "trace" => "5",
00229 "trans" => "5",
00230 "type" => "5",
00231 "unload_dialog" => "5",
00232 "untrace" => "5",
00233 "vector_image" => "5",
00234 "ver" => "5",
00235 "vmon" => "5",
00236 "vports" => "5",
00237 "wcmatch" => "5",
00238 "write-char" => "5",
00239 "write-line" => "5",
00240 "xdroom" => "5",
00241 "xdsize" => "5",
00242 "xload" => "5",
00243 "xunload" => "5",
00244 "assoc" => "6",
00245 "chr" => "6",
00246 "distof" => "6",
00247 "entdel" => "6",
00248 "entget" => "6",
00249 "entlast" => "6",
00250 "entmake" => "6",
00251 "entmakex" => "6",
00252 "entmod" => "6",
00253 "entnext" => "6",
00254 "entsel" => "6",
00255 "entupd" => "6",
00256 "itoa" => "6",
00257 "nentsel" => "6",
00258 "nentselp" => "6",
00259 "ssadd" => "6",
00260 "ssdel" => "6",
00261 "ssget" => "6",
00262 "ssgetfirst" => "6",
00263 "sslength" => "6",
00264 "ssmemb" => "6",
00265 "ssname" => "6",
00266 "ssnamex" => "6",
00267 "sssetfirst" => "6",
00268 "strcase" => "6",
00269 "strcat" => "6",
00270 "strlen" => "6",
00271 "substr" => "6",
00272 "tblnext" => "6",
00273 "tblobjname" => "6",
00274 "tblsearch" => "6");
00275
00276
00277
00278
00279
00280
00281
00282
00283 $this->linkscripts = array(
00284 "1" => "donothing",
00285 "2" => "donothing",
00286 "3" => "donothing",
00287 "4" => "donothing",
00288 "5" => "donothing",
00289 "6" => "donothing");
00290 }
00291
00292
00293 function donothing($keywordin)
00294 {
00295 return $keywordin;
00296 }
00297
00298 }?>