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_pearl extends HFile{
00006 function HFile_pearl(){
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");
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 "ACTIVATE" => "1",
00046 "AFTER" => "1",
00047 "ALL" => "1",
00048 "ALPHIC" => "1",
00049 "ALT" => "1",
00050 "AT" => "1",
00051 "BASIC" => "1",
00052 "BEGIN" => "1",
00053 "BIT" => "1",
00054 "BOLT" => "1",
00055 "BY" => "1",
00056 "CALL" => "1",
00057 "CASE" => "1",
00058 "CHARACTER" => "1",
00059 "CHAR" => "1",
00060 "CLOCK" => "1",
00061 "CLOSE" => "1",
00062 "CONT" => "1",
00063 "CONTINUE" => "1",
00064 "CONTROL" => "1",
00065 "CONVERT" => "1",
00066 "CREATE" => "1",
00067 "CREATED" => "1",
00068 "CYCLE" => "1",
00069 "DATION" => "1",
00070 "DECLARE" => "1",
00071 "DCL" => "1",
00072 "DELETE" => "1",
00073 "DIM" => "1",
00074 "DIRECT" => "1",
00075 "DISABLE" => "1",
00076 "DURATION" => "1",
00077 "DUR" => "1",
00078 "DURING" => "1",
00079 "ELSE" => "1",
00080 "ENABLE" => "1",
00081 "ENTER" => "1",
00082 "ENTRY" => "1",
00083 "EVERY" => "1",
00084 "EXIT" => "1",
00085 "FIN" => "1",
00086 "FIXED" => "1",
00087 "FLOAT" => "1",
00088 "FOR" => "1",
00089 "FORBACK" => "1",
00090 "FORMAT" => "1",
00091 "FORWARD" => "1",
00092 "FREE" => "1",
00093 "FROM" => "1",
00094 "GET" => "1",
00095 "GLOBAL" => "1",
00096 "GOTO" => "1",
00097 "HRS" => "1",
00098 "IDENTIACAL" => "1",
00099 "IDENT" => "1",
00100 "IF" => "1",
00101 "IN" => "1",
00102 "INDUCE" => "1",
00103 "INITIAL" => "1",
00104 "INIT" => "1",
00105 "INLINE" => "1",
00106 "INOUT" => "1",
00107 "INTERRUPT" => "1",
00108 "IRPT" => "1",
00109 "INTFAC" => "1",
00110 "INV" => "1",
00111 "IS" => "1",
00112 "ISNT" => "1",
00113 "LEAVE" => "1",
00114 "LENGTH" => "1",
00115 "MATCH" => "1",
00116 "MAX" => "1",
00117 "MIN" => "1",
00118 "NIL" => "1",
00119 "NOCYCL" => "1",
00120 "NOMATCH" => "1",
00121 "NOSTREAM" => "1",
00122 "ON" => "1",
00123 "ONEOF" => "1",
00124 "OPEN" => "1",
00125 "OPERATOR" => "1",
00126 "OUT" => "1",
00127 "PRECEDENCE" => "1",
00128 "PRESET" => "1",
00129 "PREVENT" => "1",
00130 "PRIORITY" => "1",
00131 "PUT" => "1",
00132 "READ" => "1",
00133 "REENT" => "1",
00134 "REF" => "1",
00135 "RELEASE" => "1",
00136 "REPEAT" => "1",
00137 "REQUEST" => "1",
00138 "RESERVE" => "1",
00139 "RESIDENT" => "1",
00140 "RESUME" => "1",
00141 "RETURN" => "1",
00142 "RETURNS" => "1",
00143 "SEC" => "1",
00144 "SEMA" => "1",
00145 "SEND" => "1",
00146 "SIGNAL" => "1",
00147 "SPECIFY" => "1",
00148 "SPC" => "1",
00149 "STREAM" => "1",
00150 "STRUCT" => "1",
00151 "SUSPEND" => "1",
00152 "SYS" => "1",
00153 "SYSTEM" => "1",
00154 "TAKE" => "1",
00155 "TERMINATE" => "1",
00156 "TFU" => "1",
00157 "THEN" => "1",
00158 "TO" => "1",
00159 "TRIGGER" => "1",
00160 "TYPE" => "1",
00161 "UNTIL" => "1",
00162 "UPON" => "1",
00163 "USING" => "1",
00164 "WHEN" => "1",
00165 "WHILE" => "1",
00166 "WRITE" => "1",
00167 "A" => "2",
00168 "ABS" => "2",
00169 "ADV" => "2",
00170 "AND" => "2",
00171 "ANY" => "2",
00172 "B" => "2",
00173 "B1" => "2",
00174 "B2" => "2",
00175 "B3" => "2",
00176 "B4" => "2",
00177 "CAN" => "2",
00178 "CAT" => "2",
00179 "COL" => "2",
00180 "COS" => "2",
00181 "CSHIFT" => "2",
00182 "D" => "2",
00183 "DATE" => "2",
00184 "E" => "2",
00185 "ENTIER" => "2",
00186 "EQ" => "2",
00187 "EXOR" => "2",
00188 "EXP" => "2",
00189 "F" => "2",
00190 "FIT" => "2",
00191 "GE" => "2",
00192 "GT" => "2",
00193 "IDF" => "2",
00194 "LE" => "2",
00195 "LINE" => "2",
00196 "LIST" => "2",
00197 "LN" => "2",
00198 "LT" => "2",
00199 "LWB" => "2",
00200 "NE" => "2",
00201 "NEW" => "2",
00202 "NOT" => "2",
00203 "NOW" => "2",
00204 "OLD" => "2",
00205 "OR" => "2",
00206 "PAGE" => "2",
00207 "POS" => "2",
00208 "PRM" => "2",
00209 "R" => "2",
00210 "REM" => "2",
00211 "ROUND" => "2",
00212 "RST" => "2",
00213 "S" => "2",
00214 "SIGN" => "2",
00215 "SIN" => "2",
00216 "SKIP" => "2",
00217 "SOP" => "2",
00218 "SQRT" => "2",
00219 "T" => "2",
00220 "TAN" => "2",
00221 "TANH" => "2",
00222 "TOBIT" => "2",
00223 "END" => "3",
00224 "MODEND" => "3",
00225 "MODULE" => "3",
00226 "PROBLEM" => "3",
00227 "PROCEDURE" => "3",
00228 "PRIO" => "3",
00229 "PROC" => "3",
00230 "TASK" => "3");
00231
00232
00233
00234
00235
00236
00237
00238
00239 $this->linkscripts = array(
00240 "1" => "donothing",
00241 "2" => "donothing",
00242 "3" => "donothing");
00243 }
00244
00245
00246 function donothing($keywordin)
00247 {
00248 return $keywordin;
00249 }
00250
00251 }?>
