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_pli extends HFile{
00006 function HFile_pli(){
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("BEGIN;", "DO;", "IF");
00028 $this->unindent = array("ELSE", "END;", "OTHER", "OTHERWISE", "THEN");
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 "**" => "1",
00046 "NO" => "1",
00047 "A" => "1",
00048 "ABS" => "1",
00049 "ADD" => "1",
00050 "ADDR" => "1",
00051 "ADDSUFF" => "1",
00052 "ALIGNED" => "1",
00053 "ALL" => "1",
00054 "ALLOC" => "1",
00055 "ALLOCATE" => "1",
00056 "ALLOCATION" => "1",
00057 "ALLOCN" => "1",
00058 "AND" => "1",
00059 "ANY" => "1",
00060 "AREA" => "1",
00061 "ARG" => "1",
00062 "ASCII" => "1",
00063 "ASIGN" => "1",
00064 "ASM" => "1",
00065 "ASSEMBLER" => "1",
00066 "ATTENTION" => "1",
00067 "ATTN" => "1",
00068 "AUTO" => "1",
00069 "AUTOMATIC" => "1",
00070 "B" => "1",
00071 "BACKWARDS" => "1",
00072 "BASED" => "1",
00073 "BEGIN" => "1",
00074 "BIN" => "1",
00075 "BINARY" => "1",
00076 "BIT" => "1",
00077 "BKWD" => "1",
00078 "BLKSIZE" => "1",
00079 "BOOL" => "1",
00080 "BUF" => "1",
00081 "BUFFERED" => "1",
00082 "BUFFERS" => "1",
00083 "BUFND" => "1",
00084 "BUFNI" => "1",
00085 "BUFSP" => "1",
00086 "BUFOFF" => "1",
00087 "BUILTIN" => "1",
00088 "BY" => "1",
00089 "NAME" => "1",
00090 "C" => "1",
00091 "CALL" => "1",
00092 "CEIL" => "1",
00093 "CHAR" => "1",
00094 "CHARACTER" => "1",
00095 "CHECK" => "1",
00096 "CLOSE" => "1",
00097 "COBOL" => "1",
00098 "COL" => "1",
00099 "COLUMN" => "1",
00100 "COMPILETIME" => "1",
00101 "COMPLEX" => "1",
00102 "COMPLETION" => "1",
00103 "COND" => "1",
00104 "CONDITION" => "1",
00105 "CONJG" => "1",
00106 "CONN" => "1",
00107 "CONNECTED" => "1",
00108 "CONSECUTIVE" => "1",
00109 "CONTROLLED" => "1",
00110 "CONV" => "1",
00111 "CONVERSION" => "1",
00112 "COPY" => "1",
00113 "COUNT" => "1",
00114 "COUNTER" => "1",
00115 "CPLN" => "1",
00116 "CPLX" => "1",
00117 "CSTG" => "1",
00118 "CTL" => "1",
00119 "CTLASA" => "1",
00120 "CTL360" => "1",
00121 "CURRENTSTORAGE" => "1",
00122 "D" => "1",
00123 "DATA" => "1",
00124 "DATAFIELD" => "1",
00125 "DATE" => "1",
00126 "DB" => "1",
00127 "DCL" => "1",
00128 "DEC" => "1",
00129 "DECIMAL" => "1",
00130 "DECLARE" => "1",
00131 "DEF" => "1",
00132 "DEFAULT" => "1",
00133 "DEFINED" => "1",
00134 "DELAY" => "1",
00135 "DESCRIPTORS" => "1",
00136 "DFT" => "1",
00137 "DIM" => "1",
00138 "DIRECT" => "1",
00139 "DISPLAY" => "1",
00140 "DIVIDE" => "1",
00141 "DO" => "1",
00142 "E" => "1",
00143 "EDIT" => "1",
00144 "ELSE" => "1",
00145 "EMPTY" => "1",
00146 "END" => "1",
00147 "ENDFILE" => "1",
00148 "ENDPAGE" => "1",
00149 "ENTRY" => "1",
00150 "ENVIRONMENT" => "1",
00151 "ERF" => "1",
00152 "ERFC" => "1",
00153 "ERROR" => "1",
00154 "EVENT" => "1",
00155 "EXCL" => "1",
00156 "EXCLUSIVE" => "1",
00157 "EXEC" => "1",
00158 "EXIT" => "1",
00159 "EXP" => "1",
00160 "EXT" => "1",
00161 "EXTERNAL" => "1",
00162 "F" => "1",
00163 "FB" => "1",
00164 "FBS" => "1",
00165 "FETCH" => "1",
00166 "FILE" => "1",
00167 "FINISH" => "1",
00168 "FIXED" => "1",
00169 "FIXEDOVERFLOW" => "1",
00170 "FLOAT" => "1",
00171 "FLOOR" => "1",
00172 "FLOW" => "1",
00173 "FOFL" => "1",
00174 "FORMAT" => "1",
00175 "FORTRAN" => "1",
00176 "FREE" => "1",
00177 "FS" => "1",
00178 "GENERIC" => "1",
00179 "GET" => "1",
00180 "GO" => "1",
00181 "TO" => "1",
00182 "GOTO" => "1",
00183 "HALT" => "1",
00184 "HBOUND" => "1",
00185 "HIGH" => "1",
00186 "IF" => "1",
00187 "IGNORE" => "1",
00188 "IMAG" => "1",
00189 "INDEX" => "1",
00190 "INDEXAREA" => "1",
00191 "INDEXED" => "1",
00192 "INIT" => "1",
00193 "INITIAL" => "1",
00194 "INPUT" => "1",
00195 "INT" => "1",
00196 "INTER" => "1",
00197 "INTERNAL" => "1",
00198 "INTO" => "1",
00199 "IRRED" => "1",
00200 "IRREDUCIBLE" => "1",
00201 "KEY" => "1",
00202 "KEYED" => "1",
00203 "KEYFROM" => "1",
00204 "KEYLENGTH" => "1",
00205 "KEYLOC" => "1",
00206 "KEYTO" => "1",
00207 "LABEL" => "1",
00208 "LBOUND" => "1",
00209 "LEAVE" => "1",
00210 "LENGTH" => "1",
00211 "LIKE" => "1",
00212 "LINE" => "1",
00213 "LINENO" => "1",
00214 "LINESIZE" => "1",
00215 "LIST" => "1",
00216 "LOCATE" => "1",
00217 "LOG" => "1",
00218 "LOG2" => "1",
00219 "LOG10" => "1",
00220 "LOW" => "1",
00221 "MAIN" => "1",
00222 "MAX" => "1",
00223 "MIN" => "1",
00224 "MOD" => "1",
00225 "MULTIBLE" => "1",
00226 "NCP" => "1",
00227 "NOCHECK" => "1",
00228 "NOFLOW" => "1",
00229 "NOFORMAT" => "1",
00230 "NOLOCK" => "1",
00231 "NOMAP" => "1",
00232 "NOMAPIN" => "1",
00233 "NIMAPOUT" => "1",
00234 "NORESCAN" => "1",
00235 "NOWRITE" => "1",
00236 "NULL" => "1",
00237 "OFFSET" => "1",
00238 "OFL" => "1",
00239 "ON" => "1",
00240 "ONCHAR" => "1",
00241 "ONCODE" => "1",
00242 "ONCOUNT" => "1",
00243 "ONFILE" => "1",
00244 "ONKEY" => "1",
00245 "ONLOC" => "1",
00246 "ONSOURCE" => "1",
00247 "OPEN" => "1",
00248 "OPTIONS" => "1",
00249 "ORDER" => "1",
00250 "OR" => "1",
00251 "OTHER" => "1",
00252 "OTHERWISE" => "1",
00253 "OUTPUT" => "1",
00254 "OVERFLOW" => "1",
00255 "P" => "1",
00256 "PAGE" => "1",
00257 "PAGESIZE" => "1",
00258 "PARMSET" => "1",
00259 "PASSWORD" => "1",
00260 "PENDING" => "1",
00261 "PIC" => "1",
00262 "PICTURE" => "1",
00263 "PLIRETV" => "1",
00264 "POINTER" => "1",
00265 "POLY" => "1",
00266 "POS" => "1",
00267 "POSITION" => "1",
00268 "PREC" => "1",
00269 "PRECISION" => "1",
00270 "PRINT" => "1",
00271 "PRIORITY" => "1",
00272 "PROC" => "1",
00273 "PROCEDURE" => "1",
00274 "PROD" => "1",
00275 "PTR" => "1",
00276 "PUT" => "1",
00277 "R" => "1",
00278 "RANGE" => "1",
00279 "READ" => "1",
00280 "REAL" => "1",
00281 "RECORD" => "1",
00282 "RECSIZE" => "1",
00283 "RECURSIVE" => "1",
00284 "RED" => "1",
00285 "REDUCIBLE" => "1",
00286 "REENTRANT" => "1",
00287 "REFER" => "1",
00288 "REGIONAL" => "1",
00289 "RELEASE" => "1",
00290 "REORDER" => "1",
00291 "REPEAT" => "1",
00292 "REPLY" => "1",
00293 "REREAD" => "1",
00294 "RESCAN" => "1",
00295 "RETCODE" => "1",
00296 "RETURN" => "1",
00297 "RETURNS" => "1",
00298 "REUSE" => "1",
00299 "REVERT" => "1",
00300 "REWRITE" => "1",
00301 "ROUND" => "1",
00302 "SAMKEY" => "1",
00303 "SCALARVARYING" => "1",
00304 "SEQUENTAL" => "1",
00305 "SEQL" => "1",
00306 "SET" => "1",
00307 "SIGN" => "1",
00308 "SIGNAL" => "1",
00309 "SIS" => "1",
00310 "SIZE" => "1",
00311 "SKIP" => "1",
00312 "SNAP" => "1",
00313 "SORT" => "1",
00314 "SQL" => "1",
00315 "STATEMENT" => "1",
00316 "STATIC" => "1",
00317 "STATUS" => "1",
00318 "STG" => "1",
00319 "STMT" => "1",
00320 "STOP" => "1",
00321 "STORAGE" => "1",
00322 "STREAM" => "1",
00323 "STRG" => "1",
00324 "STRING" => "1",
00325 "STRINGRANGE" => "1",
00326 "STRINGSIZE" => "1",
00327 "STRZ" => "1",
00328 "SUB" => "1",
00329 "SUBSCRIPTRANGE" => "1",
00330 "SUBSTR" => "1",
00331 "SUM" => "1",
00332 "SYSIN" => "1",
00333 "SYSPRINT" => "1",
00334 "SYSTEM" => "1",
00335 "TASK" => "1",
00336 "THEN" => "1",
00337 "TIME" => "1",
00338 "TITLE" => "1",
00339 "TOTAL" => "1",
00340 "TP" => "1",
00341 "TRANSIENT" => "1",
00342 "TRANSLATE" => "1",
00343 "TRANSMIT" => "1",
00344 "TRKOFL" => "1",
00345 "TRUNC" => "1",
00346 "U" => "1",
00347 "UFL" => "1",
00348 "UNAL" => "1",
00349 "UNALIGNED" => "1",
00350 "UNBUF" => "1",
00351 "UNBUFFERED" => "1",
00352 "UNDEFINEDFILE" => "1",
00353 "UNDERFLOW" => "1",
00354 "UNLOCK" => "1",
00355 "UNSPEC" => "1",
00356 "UNTIL" => "1",
00357 "V" => "1",
00358 "VALUE" => "1",
00359 "VAR" => "1",
00360 "VARIABLE" => "1",
00361 "VARYING" => "1",
00362 "VB" => "1",
00363 "VBS" => "1",
00364 "VERIFY" => "1",
00365 "VS" => "1",
00366 "VSAM" => "1",
00367 "WAIT" => "1",
00368 "WHEN" => "1",
00369 "WHILE" => "1",
00370 "WRITE" => "1",
00371 "X" => "1",
00372 "ZDIV" => "1",
00373 "ZEREODIVIDE" => "1",
00374 "$SYSTEM" => "2",
00375 "%ACT" => "2",
00376 "%ACTIVATE" => "2",
00377 "%CONTROL" => "2",
00378 "%DCL" => "2",
00379 "%DEACT" => "2",
00380 "%DEACTIVATE" => "2",
00381 "%DECLARE" => "2",
00382 "%DO" => "2",
00383 "%ELSE" => "2",
00384 "%END" => "2",
00385 "%GO" => "2",
00386 "%GOTO" => "2",
00387 "%IF" => "2",
00388 "%INCLUDE" => "2",
00389 "%NOPRINT" => "2",
00390 "%NOTE" => "2",
00391 "%PRINT" => "2",
00392 "%PROC" => "2",
00393 "%PROCEDURE" => "2",
00394 "%SKIP" => "2",
00395 "%THEN" => "2",
00396 "CICS" => "2",
00397 "COMPTIME" => "2",
00398 "BETWEEN" => "3",
00399 "DROP" => "3",
00400 "GROUP" => "3",
00401 "HAVING" => "3",
00402 "INSERT" => "3",
00403 "DB2SQLCA" => "4",
00404 "DELETE" => "4",
00405 "FROM" => "4",
00406 "IN" => "4",
00407 "SELECT" => "4",
00408 "UPDATE" => "4",
00409 "WHERE" => "4",
00410 "+" => "5",
00411 "-" => "5",
00412 "*" => "5",
00413 "//" => "5",
00414 "/" => "5",
00415 "=" => "5",
00416 "&" => "5",
00417 ">" => "5",
00418 "<" => "5",
00419 "^" => "5",
00420 "!" => "5",
00421 "||" => "5",
00422 "ACOS" => "6",
00423 "ATAN" => "6",
00424 "ATAND" => "6",
00425 "ATANH" => "6",
00426 "COS" => "6",
00427 "COSD" => "6",
00428 "COSH" => "6",
00429 "SIN" => "6",
00430 "SIND" => "6",
00431 "SINH" => "6",
00432 "TAN" => "6",
00433 "TAND" => "6",
00434 "TANH" => "6");
00435
00436
00437
00438
00439
00440
00441
00442
00443 $this->linkscripts = array(
00444 "1" => "donothing",
00445 "2" => "donothing",
00446 "3" => "donothing",
00447 "4" => "donothing",
00448 "5" => "donothing",
00449 "6" => "donothing");
00450 }
00451
00452
00453 function donothing($keywordin)
00454 {
00455 return $keywordin;
00456 }
00457
00458 }?>
