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_4gl extends HFile{
00006 function HFile_4gl(){
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("MAIN", "THEN");
00028 $this->unindent = array("END MAIN", "END IF", "END FOR", "END FOREACH");
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 "ADD" => "1",
00046 "AFTER" => "1",
00047 "ALL" => "1",
00048 "ALLOWING" => "1",
00049 "AND" => "1",
00050 "ANY" => "1",
00051 "ARG_VAL" => "1",
00052 "ARRAY" => "1",
00053 "ARR_COUNT" => "1",
00054 "ARR_CURR" => "1",
00055 "AS" => "1",
00056 "ASC" => "1",
00057 "AT" => "1",
00058 "ATTRIBUTE" => "1",
00059 "ATTRIBUTES" => "1",
00060 "AUTO" => "1",
00061 "AUTONEXT" => "1",
00062 "AVERAGE" => "1",
00063 "AVG" => "1",
00064 "BEFORE" => "1",
00065 "BETWEEN" => "1",
00066 "BOTTOM" => "1",
00067 "BY" => "1",
00068 "CALL" => "1",
00069 "CASE" => "1",
00070 "CHECK" => "1",
00071 "CLEAR" => "1",
00072 "CLIPPED" => "1",
00073 "CLOSE" => "1",
00074 "COLUMN" => "1",
00075 "COLUMNS" => "1",
00076 "COMMAND" => "1",
00077 "COMMENT" => "1",
00078 "COMMENTS" => "1",
00079 "COMMIT" => "1",
00080 "COMPOSITES" => "1",
00081 "CONNECT" => "1",
00082 "CONSTRUCT" => "1",
00083 "CONTINUE" => "1",
00084 "CORRECT" => "1",
00085 "COUNT" => "1",
00086 "CURRENT" => "1",
00087 "CURSOR" => "1",
00088 "DATABASE" => "1",
00089 "DECLARE" => "1",
00090 "DEFAULT" => "1",
00091 "DEFER" => "1",
00092 "DEFINE" => "1",
00093 "DELIMITERS" => "1",
00094 "DESC" => "1",
00095 "DESCRIBE" => "1",
00096 "DISPLAY" => "1",
00097 "DISPLAYONLY" => "1",
00098 "DISTINCT" => "1",
00099 "DO" => "1",
00100 "DOWN" => "1",
00101 "DOWNSHIFT" => "1",
00102 "ELSE" => "1",
00103 "END" => "1",
00104 "ENTRY" => "1",
00105 "EVERY" => "1",
00106 "EXECUTE" => "1",
00107 "EXISTS" => "1",
00108 "EXIT" => "1",
00109 "EXTERN" => "1",
00110 "FALSE" => "1",
00111 "FETCH" => "1",
00112 "FIELD" => "1",
00113 "FINISH" => "1",
00114 "FIRST" => "1",
00115 "FOR" => "1",
00116 "FOREACH" => "1",
00117 "FORM" => "1",
00118 "FORMAT" => "1",
00119 "FORMONLY" => "1",
00120 "FOUND" => "1",
00121 "FROM" => "1",
00122 "FUNCTION" => "1",
00123 "GLOGALS" => "1",
00124 "GROUP" => "1",
00125 "HAVING" => "1",
00126 "HEADER" => "1",
00127 "HELP" => "1",
00128 "IF" => "1",
00129 "IN" => "1",
00130 "INCLUDE" => "1",
00131 "INPUT" => "1",
00132 "INSERT" => "1",
00133 "INSTRUCTIONS" => "1",
00134 "INTO" => "1",
00135 "IS" => "1",
00136 "JOINING" => "1",
00137 "KEY" => "1",
00138 "LABEL" => "1",
00139 "LAST" => "1",
00140 "LENGHT" => "1",
00141 "LET" => "1",
00142 "LINE" => "1",
00143 "LINENO" => "1",
00144 "LINES" => "1",
00145 "LOG" => "1",
00146 "MAIN" => "1",
00147 "MARGIN" => "1",
00148 "MASTER" => "1",
00149 "MATCHES" => "1",
00150 "MAX" => "1",
00151 "MDY" => "1",
00152 "MENU" => "1",
00153 "MESSAGE" => "1",
00154 "MIN" => "1",
00155 "MODE" => "1",
00156 "NAME" => "1",
00157 "NEED" => "1",
00158 "NEXT" => "1",
00159 "NEXTFIELD" => "1",
00160 "NO" => "1",
00161 "NORMAL" => "1",
00162 "NOT" => "1",
00163 "NOTFOUND" => "1",
00164 "NULL" => "1",
00165 "NUM_ARGS" => "1",
00166 "OF" => "1",
00167 "ON" => "1",
00168 "OPEN" => "1",
00169 "OPTION" => "1",
00170 "OPTIONS" => "1",
00171 "OR" => "1",
00172 "ORDER" => "1",
00173 "OTHERWISE" => "1",
00174 "OUTER" => "1",
00175 "OUTPUT" => "1",
00176 "PAGE" => "1",
00177 "PAGENO" => "1",
00178 "PREPARE" => "1",
00179 "PREVIOUS" => "1",
00180 "PRINT" => "1",
00181 "PRINTER" => "1",
00182 "PRIVILEGES" => "1",
00183 "PROGRAM" => "1",
00184 "PROMPT" => "1",
00185 "QUERY" => "1",
00186 "QUERYCLEAR" => "1",
00187 "QUIT" => "1",
00188 "RECORD" => "1",
00189 "REGISTER" => "1",
00190 "REPORT" => "1",
00191 "RESOURCE" => "1",
00192 "RETURN" => "1",
00193 "RETURNING" => "1",
00194 "REVERSE" => "1",
00195 "RIGHT" => "1",
00196 "ROW" => "1",
00197 "ROWID" => "1",
00198 "RUN" => "1",
00199 "SCREEN" => "1",
00200 "SCROLL" => "1",
00201 "SCR_LINE" => "1",
00202 "SELECT" => "1",
00203 "SET" => "1",
00204 "SET_COUNT" => "1",
00205 "SHARE" => "1",
00206 "SIZEOF" => "1",
00207 "SKIP" => "1",
00208 "SOME" => "1",
00209 "SQLCA" => "1",
00210 "START" => "1",
00211 "STARTLOG" => "1",
00212 "STATIC" => "1",
00213 "STATISTICS" => "1",
00214 "STATUS" => "1",
00215 "STEP" => "1",
00216 "STOP" => "1",
00217 "SUM" => "1",
00218 "SWITCH" => "1",
00219 "SYNONYM" => "1",
00220 "SYSTABLES" => "1",
00221 "THEN" => "1",
00222 "THROUGH" => "1",
00223 "THRU" => "1",
00224 "TO" => "1",
00225 "TOP" => "1",
00226 "TRAILER" => "1",
00227 "TRUE" => "1",
00228 "UNION" => "1",
00229 "UNIQUE" => "1",
00230 "UNLOCK" => "1",
00231 "UP" => "1",
00232 "UBeautifierIFT" => "1",
00233 "USER" => "1",
00234 "USING" => "1",
00235 "VALIDATE" => "1",
00236 "VALUE" => "1",
00237 "VALUES" => "1",
00238 "VERIFY" => "1",
00239 "VIEW" => "1",
00240 "WAITING" => "1",
00241 "WARNING" => "1",
00242 "WHEN" => "1",
00243 "WHENEVER" => "1",
00244 "WHERE" => "1",
00245 "WHILE" => "1",
00246 "WITH" => "1",
00247 "WITHOUT" => "1",
00248 "WORK" => "1",
00249 "WRAP" => "1",
00250 "ALTER" => "2",
00251 "BREAK" => "2",
00252 "CREATE" => "2",
00253 "DELETE" => "2",
00254 "DROP" => "2",
00255 "EDITADD" => "2",
00256 "EDITUPDATE" => "2",
00257 "ERROR" => "2",
00258 "ERRORLOG" => "2",
00259 "ERR_GET" => "2",
00260 "ERR_PRINT" => "2",
00261 "ERR_QUIT" => "2",
00262 "EXCLUSIVE" => "2",
00263 "EXITNOW" => "2",
00264 "GOTO" => "2",
00265 "GRANT" => "2",
00266 "INITIALIZE" => "2",
00267 "INTERRUPT" => "2",
00268 "LOCK" => "2",
00269 "MODIFY" => "2",
00270 "PAUSE" => "2",
00271 "PIPE" => "2",
00272 "PUBLIC" => "2",
00273 "RECOVER" => "2",
00274 "REMOVE" => "2",
00275 "RENAME" => "2",
00276 "REVOKE" => "2",
00277 "ROLLBACK" => "2",
00278 "ROLLFORWARD" => "2",
00279 "SLEEP" => "2",
00280 "SQLERRD" => "2",
00281 "TABLE" => "2",
00282 "TABLES" => "2",
00283 "TEMP" => "2",
00284 "UPDATE" => "2",
00285 "CHAR" => "3",
00286 "DATE" => "3",
00287 "DAY" => "3",
00288 "DBA" => "3",
00289 "DECIMAL" => "3",
00290 "DOUBLE" => "3",
00291 "DEC" => "3",
00292 "FLOAT" => "3",
00293 "INDEX" => "3",
00294 "INT" => "3",
00295 "INTEGER" => "3",
00296 "LIKE" => "3",
00297 "LONG" => "3",
00298 "LOOKUP" => "3",
00299 "MONEY" => "3",
00300 "MONTH" => "3",
00301 "NOENTRY" => "3",
00302 "NOUPDATE" => "3",
00303 "PERCENT" => "3",
00304 "PICTURE" => "3",
00305 "REQUIRED" => "3",
00306 "SHORT" => "3",
00307 "SMALLFLOAT" => "3",
00308 "SMALLINT" => "3",
00309 "STRUCT" => "3",
00310 "SERIAL" => "3",
00311 "SPACE" => "3",
00312 "SPACES" => "3",
00313 "TIME" => "3",
00314 "TODAY" => "3",
00315 "TYPE" => "3",
00316 "TYPEDEF" => "3",
00317 "UNSIGNED" => "3",
00318 "WEEKDAY" => "3",
00319 "YEAR" => "3",
00320 "ZEROFILL" => "3");
00321
00322
00323
00324
00325
00326
00327
00328
00329 $this->linkscripts = array(
00330 "1" => "donothing",
00331 "2" => "donothing",
00332 "3" => "donothing");
00333 }
00334
00335
00336 function donothing($keywordin)
00337 {
00338 return $keywordin;
00339 }
00340
00341 }?>
