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_modula extends HFile{
00006 function HFile_modula(){
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");
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 "AND" => "1",
00046 "AS" => "1",
00047 "ANY" => "1",
00048 "ARRAY" => "1",
00049 "BEGIN" => "1",
00050 "BITS" => "1",
00051 "BRANDED" => "1",
00052 "BY" => "1",
00053 "CASE" => "1",
00054 "CONST" => "1",
00055 "DIV" => "1",
00056 "DO" => "1",
00057 "END" => "1",
00058 "EVAL" => "1",
00059 "EXCEPT" => "1",
00060 "EXCEPTION" => "1",
00061 "EXIT" => "1",
00062 "EXPORTS" => "1",
00063 "ELSIF" => "1",
00064 "ELSE" => "1",
00065 "FROM" => "1",
00066 "FINALLY" => "1",
00067 "FOR" => "1",
00068 "GENERIC" => "1",
00069 "IF" => "1",
00070 "IMPORT" => "1",
00071 "IN" => "1",
00072 "INTERFACE" => "1",
00073 "LOCK" => "1",
00074 "LOOP" => "1",
00075 "METHODS" => "1",
00076 "MOD" => "1",
00077 "MODULE" => "1",
00078 "NOT" => "1",
00079 "OBJECT" => "1",
00080 "OF" => "1",
00081 "OR" => "1",
00082 "OVERRIDES" => "1",
00083 "PROCEDURE" => "1",
00084 "REPEAT" => "1",
00085 "RETURN" => "1",
00086 "REVEAL" => "1",
00087 "RAISE" => "1",
00088 "RAISES" => "1",
00089 "READONLY" => "1",
00090 "RECORD" => "1",
00091 "REF" => "1",
00092 "ROOT" => "1",
00093 "SET" => "1",
00094 "THEN" => "1",
00095 "TO" => "1",
00096 "TRY" => "1",
00097 "TYPE" => "1",
00098 "TYPECASE" => "1",
00099 "UNTIL" => "1",
00100 "UNTRACED" => "1",
00101 "UNSAFE" => "1",
00102 "VALUE" => "1",
00103 "VAR" => "1",
00104 "WHILE" => "1",
00105 "WITH" => "1",
00106 "ABS" => "2",
00107 "ADDRESS" => "2",
00108 "ADR" => "2",
00109 "ADRSIZE" => "2",
00110 "BITSIZE" => "2",
00111 "BOOLEAN" => "2",
00112 "BYTESIZE" => "2",
00113 "CARDINAL" => "2",
00114 "CEILING" => "2",
00115 "CHAR" => "2",
00116 "DEC" => "2",
00117 "DISPOSE" => "2",
00118 "EXTENDED" => "2",
00119 "FALSE" => "2",
00120 "FIRST" => "2",
00121 "FLOAT" => "2",
00122 "FLOOR" => "2",
00123 "INC" => "2",
00124 "INTEGER" => "2",
00125 "ISTYPE" => "2",
00126 "LAST" => "2",
00127 "LONGREAL" => "2",
00128 "LOOPHOLE" => "2",
00129 "MAX" => "2",
00130 "MIN" => "2",
00131 "MUTEX" => "2",
00132 "NARROW" => "2",
00133 "NEW" => "2",
00134 "NIL" => "2",
00135 "NULL" => "2",
00136 "NUMBER" => "2",
00137 "ORD" => "2",
00138 "REAL" => "2",
00139 "REFANY" => "2",
00140 "ROUND" => "2",
00141 "SUBARRAY" => "2",
00142 "TEXT" => "2",
00143 "TRUE" => "2",
00144 "TRUNC" => "2",
00145 "TYPECODE" => "2",
00146 "VAL" => "2");
00147
00148
00149
00150
00151
00152
00153
00154
00155 $this->linkscripts = array(
00156 "1" => "donothing",
00157 "2" => "donothing");
00158 }
00159
00160
00161 function donothing($keywordin)
00162 {
00163 return $keywordin;
00164 }
00165
00166 }?>