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_pascal extends HFile{
00006 function HFile_pascal(){
00007 $this->HFile();
00008
00009
00010
00011
00012
00013
00014 $this->nocase = "1";
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("Begin");
00028 $this->unindent = array("End");
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 "absolute" => "1",
00046 "array" => "1",
00047 "assembler" => "1",
00048 "const" => "1",
00049 "constructor" => "1",
00050 "destructor" => "1",
00051 "export" => "1",
00052 "exports" => "1",
00053 "external" => "1",
00054 "far" => "1",
00055 "file" => "1",
00056 "forward" => "1",
00057 "function" => "1",
00058 "implementation" => "1",
00059 "index" => "1",
00060 "inherited" => "1",
00061 "inline" => "1",
00062 "interface" => "1",
00063 "interrupt" => "1",
00064 "library" => "1",
00065 "near" => "1",
00066 "nil" => "1",
00067 "object" => "1",
00068 "of" => "1",
00069 "packed" => "1",
00070 "private" => "1",
00071 "procedure" => "1",
00072 "program" => "1",
00073 "public" => "1",
00074 "record" => "1",
00075 "resident" => "1",
00076 "set" => "1",
00077 "string" => "1",
00078 "type" => "1",
00079 "unit" => "1",
00080 "uses" => "1",
00081 "var" => "1",
00082 "virtual" => "1",
00083 "asm" => "2",
00084 "begin" => "2",
00085 "case" => "2",
00086 "do" => "2",
00087 "downto" => "2",
00088 "else" => "2",
00089 "end" => "2",
00090 "for" => "2",
00091 "goto" => "2",
00092 "if" => "2",
00093 "label" => "2",
00094 "repeat" => "2",
00095 "then" => "2",
00096 "to" => "2",
00097 "until" => "2",
00098 "while" => "2",
00099 "with" => "2",
00100 "and" => "3",
00101 "div" => "3",
00102 "in" => "3",
00103 "mod" => "3",
00104 "not" => "3",
00105 "or" => "3",
00106 "shl" => "3",
00107 "shr" => "3",
00108 "xor" => "3",
00109 "+" => "3",
00110 "-" => "3",
00111 "*" => "3",
00112 ":" => "3",
00113 "=" => "3",
00114 "/" => "3",
00115 ">" => "3",
00116 "<" => "3",
00117 "^" => "3");
00118
00119
00120
00121
00122
00123
00124
00125
00126 $this->linkscripts = array(
00127 "1" => "donothing",
00128 "2" => "donothing",
00129 "3" => "donothing");
00130 }
00131
00132
00133 function donothing($keywordin)
00134 {
00135 return $keywordin;
00136 }
00137
00138 }?>