00001 <?php
00002
00003 $BEAUT_PATH = realpath(".")."/syntax_highlight/php";
00004 if (!isset ($BEAUT_PATH)) return;
00005 require_once("$BEAUT_PATH/Beautifier/HFile.php");
00006 class HFile_delphi extends HFile{
00007 function HFile_delphi(){
00008 $this->HFile();
00009
00010
00011
00012
00013
00014
00015
00016 $this->nocase = "1";
00017 $this->notrim = "0";
00018 $this->perl = "0";
00019
00020
00021
00022 $this->colours = array("blue", "purple", "gray", "brown");
00023 $this->quotecolour = "blue";
00024 $this->blockcommentcolour = "green";
00025 $this->linecommentcolour = "green";
00026
00027
00028
00029 $this->indent = array("begin", "repeat", "asm", "type");
00030 $this->unindent = array("end", "until");
00031
00032
00033
00034 $this->stringchars = array("'");
00035 $this->delimiters = array("#", "$", "&", "'", "(", ")", "*", "+", ",", "-", ".", "/", ";", "<", ">", "@", "[", "]", "^", "{", "}", " ", " ");
00036 $this->escchar = "";
00037
00038
00039
00040 $this->linecommenton = array("//");
00041 $this->blockcommenton = array("{");
00042 $this->blockcommentoff = array("}");
00043
00044
00045
00046 $this->keywords = array(
00047 "array" => "1",
00048 "asm" => "1",
00049 "begin" => "1",
00050 "case" => "1",
00051 "class" => "1",
00052 "const" => "1",
00053 "constructor" => "1",
00054 "destructor" => "1",
00055 "dispinterface" => "1",
00056 "do" => "1",
00057 "downto" => "1",
00058 "else" => "1",
00059 "end" => "1",
00060 "except" => "1",
00061 "exports" => "1",
00062 "file" => "1",
00063 "finalization" => "1",
00064 "finally" => "1",
00065 "for" => "1",
00066 "function" => "1",
00067 "goto" => "1",
00068 "if" => "1",
00069 "implementation" => "1",
00070 "inherited" => "1",
00071 "initialization" => "1",
00072 "inline" => "1",
00073 "interface" => "1",
00074 "label" => "1",
00075 "library" => "1",
00076 "nil" => "1",
00077 "object" => "1",
00078 "of" => "1",
00079 "out" => "1",
00080 "packed" => "1",
00081 "procedure" => "1",
00082 "program" => "1",
00083 "property" => "1",
00084 "raise" => "1",
00085 "record" => "1",
00086 "repeat" => "1",
00087 "resourcestring" => "1",
00088 "set" => "1",
00089 "string" => "1",
00090 "then" => "1",
00091 "threadvar" => "1",
00092 "to" => "1",
00093 "try" => "1",
00094 "type" => "1",
00095 "unit" => "1",
00096 "until" => "1",
00097 "uses" => "1",
00098 "var" => "1",
00099 "while" => "1",
00100 "with" => "1",
00101 "absolute" => "2",
00102 "abstract" => "2",
00103 "assembler" => "2",
00104 "automated" => "2",
00105 "cdecl" => "2",
00106 "contains" => "2",
00107 "default" => "2",
00108 "dispid" => "2",
00109 "dynamic" => "2",
00110 "export" => "2",
00111 "external" => "2",
00112 "far" => "2",
00113 "forward" => "2",
00114 "implements" => "2",
00115 "index" => "2",
00116 "message" => "2",
00117 "name" => "2",
00118 "near" => "2",
00119 "nodefault" => "2",
00120 "overload" => "2",
00121 "override" => "2",
00122 "package" => "2",
00123 "pascal" => "2",
00124 "private" => "2",
00125 "protected" => "2",
00126 "public" => "2",
00127 "published" => "2",
00128 "read" => "2",
00129 "readonly" => "2",
00130 "register" => "2",
00131 "reintroduce" => "2",
00132 "requires" => "2",
00133 "resident" => "2",
00134 "safecall" => "2",
00135 "stdcall" => "2",
00136 "stored" => "2",
00137 "virtual" => "2",
00138 "write" => "2",
00139 "writeonly" => "2",
00140 "*" => "3",
00141 "+" => "3",
00142 "-" => "3",
00143 "//" => "3",
00144 "/" => "3",
00145 "<" => "3",
00146 "<=" => "3",
00147 "<>" => "3",
00148 "=" => "3",
00149 ">" => "3",
00150 ">=" => "3",
00151 "@" => "3",
00152 "and" => "3",
00153 "as" => "3",
00154 "div" => "3",
00155 "in" => "3",
00156 "is" => "3",
00157 "mod" => "3",
00158 "not" => "3",
00159 "or" => "3",
00160 "shl" => "3",
00161 "shr" => "3",
00162 "xor" => "3",
00163 "#" => "4",
00164 "$" => "4",
00165 "&" => "4",
00166 "(" => "4",
00167 "(." => "4",
00168 ")" => "4",
00169 "," => "4",
00170 "." => "4",
00171 ".)" => "4",
00172 ".." => "4",
00173 ":" => "4",
00174 ":=" => "4",
00175 ";" => "4",
00176 "[" => "4",
00177 "]" => "4",
00178 "^" => "4");
00179
00180
00181
00182
00183
00184
00185
00186
00187
00188
00189
00190 $this->linkscripts = array(
00191 "1" => "donothing",
00192 "2" => "donothing",
00193 "3" => "donothing",
00194 "4" => "donothing");
00195
00196 }
00197
00198
00199
00200 function donothing($keywordin)
00201 {
00202 return $keywordin;
00203 }
00204
00205 }
00206
00207 ?>