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_clarion extends HFile{
00006 function HFile_clarion(){
00007 $this->HFile();
00008
00009
00010
00011
00012
00013
00014 $this->nocase = "1";
00015 $this->notrim = "0";
00016 $this->perl = "0";
00017
00018
00019
00020 $this->colours = array("blue", "purple", "gray", "brown", "blue", "purple", "gray", "brown");
00021 $this->quotecolour = "blue";
00022 $this->blockcommentcolour = "green";
00023 $this->linecommentcolour = "green";
00024
00025
00026
00027 $this->indent = array("LOOP", "IF", "THEN", "OF", "ELSE");
00028 $this->unindent = array("END", "UNTIL", "WHILE");
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("OMIT");
00040 $this->blockcommentoff = array("ENDOM");
00041
00042
00043
00044 $this->keywords = array(
00045 "C" => "1",
00046 "CODE" => "1",
00047 "DATA" => "1",
00048 "DLL" => "1",
00049 "FUNCTION" => "1",
00050 "MAP" => "1",
00051 "MEMBER" => "1",
00052 "MODULE" => "1",
00053 "PASCAL" => "1",
00054 "PROC" => "1",
00055 "PROCEDURE" => "1",
00056 "PROGRAM" => "1",
00057 "RAW" => "1",
00058 "ROUTINE" => "1",
00059 "?" => "2",
00060 "ASSERT" => "2",
00061 "BEGIN" => "2",
00062 "COMPILE" => "2",
00063 "EJECT" => "2",
00064 "EMBED" => "2",
00065 "ENDEMBED" => "2",
00066 "EQUATE" => "2",
00067 "INCLUDE" => "2",
00068 "ITEMIZE" => "2",
00069 "OMIT" => "2",
00070 "SECTION" => "2",
00071 "SIZE" => "2",
00072 "SUBTITLE" => "2",
00073 "TITLE" => "2",
00074 "_PROC" => "3",
00075 "_PROC1" => "3",
00076 "_PROC2" => "3",
00077 "_PROC3" => "3",
00078 "ANY" => "3",
00079 "AUTO" => "3",
00080 "BYTE" => "3",
00081 "BFLOAT4" => "3",
00082 "BFLOAT8" => "3",
00083 "BINARY" => "3",
00084 "BINDABLE" => "3",
00085 "BLOB" => "3",
00086 "BOOL" => "3",
00087 "CLASS" => "3",
00088 "CREATE" => "3",
00089 "CSTRING" => "3",
00090 "DATE" => "3",
00091 "DECIMAL" => "3",
00092 "DIM" => "3",
00093 "DISPOSE" => "3",
00094 "DRIVER" => "3",
00095 "DUP" => "3",
00096 "ENCRYPT" => "3",
00097 "EXTERNAL" => "3",
00098 "FILE" => "3",
00099 "FILTER" => "3",
00100 "FLOAT4" => "3",
00101 "GROUP" => "3",
00102 "INDEX" => "3",
00103 "INNER" => "3",
00104 "JOIN" => "3",
00105 "KEY" => "3",
00106 "LIKE" => "3",
00107 "LONG" => "3",
00108 "MEMO" => "3",
00109 "NEW" => "3",
00110 "NOCASE" => "3",
00111 "OEM" => "3",
00112 "OPT" => "3",
00113 "ORDER" => "3",
00114 "OVER" => "3",
00115 "OWNER" => "3",
00116 "PDECIMAL" => "3",
00117 "PRE" => "3",
00118 "PRIMARY" => "3",
00119 "PRIVATE" => "3",
00120 "PSTRING" => "3",
00121 "PROJECT" => "3",
00122 "PROTECTED" => "3",
00123 "QUEUE" => "3",
00124 "REAL" => "3",
00125 "RECLAIM" => "3",
00126 "RECORD" => "3",
00127 "SHORT" => "3",
00128 "SIGNED" => "3",
00129 "SREAL" => "3",
00130 "STATIC" => "3",
00131 "STRING" => "3",
00132 "TIME" => "3",
00133 "THREAD" => "3",
00134 "TYPE" => "3",
00135 "USHORT" => "3",
00136 "ULONG" => "3",
00137 "UNSIGNED" => "3",
00138 "VIEW" => "3",
00139 "APPLICATION" => "4",
00140 "ABSOLUTE" => "4",
00141 "ABOVE" => "4",
00142 "ALONE" => "4",
00143 "ALRT" => "4",
00144 "ANGLE" => "4",
00145 "AT" => "4",
00146 "AUTOSIZE" => "4",
00147 "AVE" => "4",
00148 "BELOW" => "4",
00149 "BREAK" => "4",
00150 "BOX" => "4",
00151 "BUTTON" => "4",
00152 "BEVEL" => "4",
00153 "BOXED" => "4",
00154 "CHECK" => "4",
00155 "COMBO" => "4",
00156 "CAP" => "4",
00157 "CENTER" => "4",
00158 "CENTERED" => "4",
00159 "CLIP" => "4",
00160 "CNT" => "4",
00161 "COLOR" => "4",
00162 "COLUMN" => "4",
00163 "COMPATIBILITY" => "4",
00164 "CURSOR" => "4",
00165 "DETAIL" => "4",
00166 "DEFAULT" => "4",
00167 "DELAY" => "4",
00168 "DISABLE" => "4",
00169 "DOCK" => "4",
00170 "DOCKED" => "4",
00171 "DOCUMENT" => "4",
00172 "DOUBLE" => "4",
00173 "DRAGID" => "4",
00174 "DROP" => "4",
00175 "DROPID" => "4",
00176 "DOWN" => "4",
00177 "ELLIPSE" => "4",
00178 "ENTRY" => "4",
00179 "ENABLE" => "4",
00180 "FOOTER" => "4",
00181 "FORM" => "4",
00182 "FILL" => "4",
00183 "FIRST" => "4",
00184 "FLAT" => "4",
00185 "FONT" => "4",
00186 "FORMAT" => "4",
00187 "FROM" => "4",
00188 "FULL" => "4",
00189 "GRAY" => "4",
00190 "GRID" => "4",
00191 "HEADER" => "4",
00192 "HIDE" => "4",
00193 "HLP" => "4",
00194 "HSCROLL" => "4",
00195 "HVSCROLL" => "4",
00196 "IMAGE" => "4",
00197 "ITEM" => "4",
00198 "ICON" => "4",
00199 "ICONIZE" => "4",
00200 "IMM" => "4",
00201 "INS" => "4",
00202 "LAST" => "4",
00203 "LINE" => "4",
00204 "LIST" => "4",
00205 "LANDSCAPE" => "4",
00206 "LEFT" => "4",
00207 "LINEWIDTH" => "4",
00208 "LINK" => "4",
00209 "MENU" => "4",
00210 "MENUBAR" => "4",
00211 "MARK" => "4",
00212 "MASK" => "4",
00213 "MAX" => "4",
00214 "MAXIMIZE" => "4",
00215 "MDI" => "4",
00216 "META" => "4",
00217 "MIN" => "4",
00218 "MODAL" => "4",
00219 "MSG" => "4",
00220 "MM" => "4",
00221 "NOBAR" => "4",
00222 "NOFRAME" => "4",
00223 "NOMERGE" => "4",
00224 "NOSHEET" => "4",
00225 "OLE" => "4",
00226 "OPTION" => "4",
00227 "OVR" => "4",
00228 "OPEN" => "4",
00229 "PAGE" => "4",
00230 "PANEL" => "4",
00231 "PROMPT" => "4",
00232 "PROGRESS" => "4",
00233 "PAGEAFTER" => "4",
00234 "PAGEBEFORE" => "4",
00235 "PAGENO" => "4",
00236 "PALETTE" => "4",
00237 "PAPER" => "4",
00238 "PASSWORD" => "4",
00239 "PREVIEW" => "4",
00240 "POINTS" => "4",
00241 "RADIO" => "4",
00242 "REGION" => "4",
00243 "REPORT" => "4",
00244 "RIGHT" => "4",
00245 "RANGE" => "4",
00246 "READONLY" => "4",
00247 "REPEAT" => "4",
00248 "REQ" => "4",
00249 "RESIZE" => "4",
00250 "ROUND" => "4",
00251 "SHEET" => "4",
00252 "SPIN" => "4",
00253 "SCROLL" => "4",
00254 "SEPARATOR" => "4",
00255 "SINGLE" => "4",
00256 "SPREAD" => "4",
00257 "STATUS" => "4",
00258 "STD" => "4",
00259 "STEP" => "4",
00260 "STRETCH" => "4",
00261 "SUM" => "4",
00262 "SYSTEM" => "4",
00263 "TAB" => "4",
00264 "TEXT" => "4",
00265 "TOOLBAR" => "4",
00266 "TALLY" => "4",
00267 "TARGET" => "4",
00268 "THOUS" => "4",
00269 "TILED" => "4",
00270 "TIMER" => "4",
00271 "TIP" => "4",
00272 "TOOLBOX" => "4",
00273 "TRN" => "4",
00274 "UP" => "4",
00275 "UPR" => "4",
00276 "USE" => "4",
00277 "VBX" => "4",
00278 "VALUE" => "4",
00279 "VCR" => "4",
00280 "VSCROLL" => "4",
00281 "WALLPAPER" => "4",
00282 "WITHNEXT" => "4",
00283 "WITHPRIOR" => "4",
00284 "WIZARD" => "4",
00285 "WRAP" => "4",
00286 "WINDOW" => "4",
00287 "ZOOM" => "4",
00288 "+" => "5",
00289 "+=" => "5",
00290 "-" => "5",
00291 "-=" => "5",
00292 "=" => "5",
00293 "//" => "5",
00294 "/" => "5",
00295 "/=" => "5",
00296 "*" => "5",
00297 "*=" => "5",
00298 "%" => "5",
00299 "&" => "5",
00300 "&=" => "5",
00301 ">" => "5",
00302 ">=" => "5",
00303 "<" => "5",
00304 "<=" => "5",
00305 "~" => "5",
00306 ":=:" => "5",
00307 "ACCEPT" => "5",
00308 "BIND" => "5",
00309 "BY" => "5",
00310 "CASE" => "5",
00311 "CYCLE" => "5",
00312 "CLEAR" => "5",
00313 "DO" => "5",
00314 "ELSE" => "5",
00315 "ELSIF" => "5",
00316 "END" => "5",
00317 "EXECUTE" => "5",
00318 "EXIT" => "5",
00319 "EVALUATE" => "5",
00320 "GOTO" => "5",
00321 "IF" => "5",
00322 "LOOP" => "5",
00323 "MATCH" => "5",
00324 "OF" => "5",
00325 "OR" => "5",
00326 "OROF" => "5",
00327 "POPBIND" => "5",
00328 "RETURN" => "5",
00329 "THEN" => "5",
00330 "TIMES" => "5",
00331 "TO" => "5",
00332 "UNTIL" => "5",
00333 "UNBIND" => "5",
00334 "WHILE" => "5",
00335 "ABS" => "6",
00336 "ACCEPTED" => "6",
00337 "ACOS" => "6",
00338 "ADD" => "6",
00339 "ADDRESS" => "6",
00340 "AGE" => "6",
00341 "ALERT" => "6",
00342 "ALIAS" => "6",
00343 "ALL" => "6",
00344 "APPEND" => "6",
00345 "ARC" => "6",
00346 "ASIN" => "6",
00347 "ASK" => "6",
00348 "ATAN" => "6",
00349 "BAND" => "6",
00350 "BEEP" => "7",
00351 "BLANK" => "6",
00352 "BOF" => "6",
00353 "BOR" => "6",
00354 "BSHIFT" => "6",
00355 "BUILD" => "6",
00356 "BUFFER" => "6",
00357 "BXOR" => "6",
00358 "BYTES" => "6",
00359 "CALL" => "6",
00360 "CHAIN" => "6",
00361 "CHANGE" => "6",
00362 "CHANGES" => "6",
00363 "CHOICE" => "6",
00364 "CHOOSE" => "6",
00365 "CHORD" => "6",
00366 "CHR" => "6",
00367 "CLIPBOARD" => "6",
00368 "CLOCK" => "6",
00369 "CLOSE" => "6",
00370 "COL" => "6",
00371 "COLORDIALOG" => "6",
00372 "COMMAND" => "6",
00373 "COMMIT" => "6",
00374 "CONTENTS" => "6",
00375 "CONVERTANSITOOEM" => "6",
00376 "CONVERTOEMTOANSI" => "6",
00377 "COPY" => "6",
00378 "COS" => "6",
00379 "DAY" => "6",
00380 "DEFORMAT" => "6",
00381 "DELETE" => "6",
00382 "DESTROY" => "6",
00383 "DIRECTORY" => "6",
00384 "DISPLAY" => "6",
00385 "DRAGIT" => "6",
00386 "DROPIT" => "6",
00387 "DUPLICATE" => "6",
00388 "EMPTY" => "6",
00389 "ENDPAGE" => "6",
00390 "EOF" => "6",
00391 "ERASE" => "6",
00392 "ERROR" => "6",
00393 "ERRORCODE" => "6",
00394 "ERRORFILE" => "6",
00395 "EVENT" => "6",
00396 "EXISTS" => "6",
00397 "FIELD" => "6",
00398 "FILEDIALOG" => "6",
00399 "FILEERROR" => "6",
00400 "FILEERRORCODE" => "6",
00401 "FIRSTFIELD" => "6",
00402 "FLUSH" => "6",
00403 "FOCUS" => "6",
00404 "FONTDIALOG" => "6",
00405 "FREE" => "6",
00406 "GET" => "6",
00407 "GETFONT" => "6",
00408 "GETINI" => "6",
00409 "GETPOSITION" => "6",
00410 "HALT" => "6",
00411 "HELP" => "6",
00412 "HOLD" => "6",
00413 "IDLE" => "6",
00414 "INCOMPLETE" => "6",
00415 "INLIST" => "6",
00416 "INRANGE" => "6",
00417 "INSTRING" => "6",
00418 "INT" => "6",
00419 "ISALPHA" => "6",
00420 "ISLOWER" => "6",
00421 "ISSTRING" => "6",
00422 "ISUPPER" => "6",
00423 "KEYBOARD" => "6",
00424 "KEYCHAR" => "6",
00425 "KEYCODE" => "6",
00426 "KEYSTATE" => "6",
00427 "LASTFIELD" => "6",
00428 "LEN" => "6",
00429 "LOCALE" => "6",
00430 "LOCK" => "6",
00431 "LOCKTHREAD" => "6",
00432 "LOG10" => "6",
00433 "LOGE" => "6",
00434 "LOGOUT" => "6",
00435 "LONGPATH" => "6",
00436 "LOWER" => "6",
00437 "MAXIMUM" => "6",
00438 "MESSAGE" => "6",
00439 "MONTH" => "6",
00440 "MOUSEX" => "6",
00441 "MOUSEY" => "6",
00442 "NAME" => "6",
00443 "NEXT" => "6",
00444 "NOMEMO" => "6",
00445 "NULL" => "6",
00446 "NUMERIC" => "6",
00447 "OMITTED" => "6",
00448 "OUT" => "6",
00449 "PACK" => "6",
00450 "PATH" => "6",
00451 "PEEK" => "6",
00452 "PENCOLOR" => "6",
00453 "PENSTYLE" => "6",
00454 "PENWIDTH" => "6",
00455 "PIE" => "6",
00456 "POINTER" => "6",
00457 "POKE" => "6",
00458 "POLYGON" => "6",
00459 "POPUP" => "6",
00460 "POST" => "6",
00461 "PRESS" => "6",
00462 "PRESSKEY" => "6",
00463 "PREVIOUS" => "6",
00464 "PRINT" => "6",
00465 "PRINTERDIALOG" => "6",
00466 "PUT" => "6",
00467 "PUTINI" => "6",
00468 "RANDOM" => "6",
00469 "RECORDS" => "6",
00470 "REGISTER" => "6",
00471 "REGISTEREVENT" => "6",
00472 "REGET" => "6",
00473 "REJECTCODE" => "6",
00474 "RELEASE" => "6",
00475 "REMOVE" => "6",
00476 "RENAME" => "6",
00477 "RESET" => "6",
00478 "ROLLBACK" => "6",
00479 "ROUNDBOX" => "6",
00480 "RUN" => "6",
00481 "RUNCODE" => "6",
00482 "SELECT" => "6",
00483 "SELECTED" => "6",
00484 "SEND" => "6",
00485 "SET3DLOOK" => "6",
00486 "SET" => "6",
00487 "SETCLOCK" => "6",
00488 "SETCURSOR" => "6",
00489 "SETCOMMAND" => "6",
00490 "SETCLIPBOARD" => "6",
00491 "SETDROPID" => "6",
00492 "SETFONT" => "6",
00493 "SETKEYCHAR" => "6",
00494 "SETKEYCODE" => "6",
00495 "SETNONULL" => "6",
00496 "SETNULL" => "6",
00497 "SETPATH" => "6",
00498 "SETPENCOLOR" => "6",
00499 "SETPENSTYLE" => "6",
00500 "SETPENWIDTH" => "6",
00501 "SETPOSITION" => "6",
00502 "SETPROPERTY" => "6",
00503 "SETTARGET" => "6",
00504 "SETTODAY" => "6",
00505 "SHORTNAME" => "6",
00506 "SHORTPATH" => "6",
00507 "SHOW" => "6",
00508 "SHUTDOWN" => "6",
00509 "SIN" => "6",
00510 "SKIP" => "6",
00511 "SORT" => "6",
00512 "SQRT" => "6",
00513 "START" => "6",
00514 "STOP" => "6",
00515 "STREAM" => "6",
00516 "TAN" => "6",
00517 "THREADLOCKED" => "6",
00518 "TODAY" => "6",
00519 "UNHIDE" => "6",
00520 "UNLOAD" => "6",
00521 "UNLOCK" => "6",
00522 "UNLOCKTHREAD" => "6",
00523 "UNREGISTER" => "6",
00524 "UNREGISTEREVENT" => "6",
00525 "UPDATE" => "6",
00526 "UPPER" => "6",
00527 "VAL" => "6",
00528 "WATCH" => "6",
00529 "WHAT" => "6",
00530 "WHERE" => "6",
00531 "WHO" => "6",
00532 "YEAR" => "6",
00533 "YIELD" => "6",
00534 "DDEACKNOWLEDGE" => "7",
00535 "DDEAPP" => "7",
00536 "DDECHANNEL" => "7",
00537 "DDECLIENT" => "7",
00538 "DDECLOSE" => "7",
00539 "DDEEXECUTE" => "7",
00540 "DDEITEM" => "7",
00541 "DDEPOKE" => "7",
00542 "DDEQUERRY" => "7",
00543 "DDEREAD" => "7",
00544 "DDESERVER" => "7",
00545 "DDETOPIC" => "7",
00546 "DDEVALUE" => "7",
00547 "DDEWRITE" => "7",
00548 "OLEDIRECTORY" => "7",
00549 "OCXGETPARAM" => "7",
00550 "OCXGETPARAMCOUNT" => "7",
00551 "OCXLOADIMAGE" => "7",
00552 "OCXREGISTEREVENTPROC" => "7",
00553 "OCXREGISTERPROPCHANGE" => "7",
00554 "OCXREGISTERPROPEDIT" => "7",
00555 "OCXSETPARAM" => "7",
00556 "OCXSETPARAMOCXEVENT" => "7",
00557 "OCXUNREGISTERPROPCHANGE" => "7",
00558 "OCXUNREGISTERPROPEDIT" => "7",
00559 "OCXUNREGISTEREVENTPROC" => "7",
00560 "FALSE" => "8",
00561 "PARENT" => "8",
00562 "SELF" => "8",
00563 "TRUE" => "8",
00564 "VIRTUAL" => "8",
00565 "**" => "8",
00566 "&A" => "8",
00567 "&B" => "8",
00568 "&C" => "8",
00569 "&D" => "8",
00570 "&E" => "8",
00571 "&F" => "8",
00572 "&G" => "8",
00573 "&H" => "8",
00574 "&I" => "8",
00575 "&J" => "8",
00576 "&K" => "8",
00577 "&L" => "8",
00578 "&M" => "8",
00579 "&N" => "8",
00580 "&O" => "8",
00581 "&P" => "8",
00582 "&Q" => "8",
00583 "&R" => "8",
00584 "&S" => "8",
00585 "&T" => "8",
00586 "&U" => "8",
00587 "&V" => "8",
00588 "&W" => "8",
00589 "&X" => "8",
00590 "&Y" => "8",
00591 "&Z" => "8",
00592 "BEEP:" => "8",
00593 "BUTTON:" => "8",
00594 "COLOR:" => "8",
00595 "CREATE:" => "8",
00596 "CURSOR:" => "8",
00597 "DDE:" => "8",
00598 "EVENT:" => "8",
00599 "ff_:" => "8",
00600 "FILE:" => "8",
00601 "FONT:" => "8",
00602 "ICON:" => "8",
00603 "LISTZONE:" => "8",
00604 "PEN:" => "8",
00605 "PROP:" => "8",
00606 "PROPLIST:" => "8",
00607 "PROPPRINT:" => "8",
00608 "REJECT:" => "8",
00609 "STD:" => "8",
00610 "VBXEVENT:" => "8");
00611
00612
00613
00614
00615
00616
00617
00618
00619 $this->linkscripts = array(
00620 "1" => "donothing",
00621 "2" => "donothing",
00622 "3" => "donothing",
00623 "4" => "donothing",
00624 "5" => "donothing",
00625 "6" => "donothing",
00626 "7" => "donothing",
00627 "8" => "donothing");
00628 }
00629
00630
00631 function donothing($keywordin)
00632 {
00633 return $keywordin;
00634 }
00635
00636 }?>
