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_modula2 extends HFile{
00006 function HFile_modula2(){
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", "purple", "gray", "brown", "blue");
00021 $this->quotecolour = "blue";
00022 $this->blockcommentcolour = "green";
00023 $this->linecommentcolour = "green";
00024
00025
00026
00027 $this->indent = array("ARRAY", "BEGIN", "CONST", "DO", "ELSE", "ELSIF", "FOR", "FROM", "IF", "IMPORT", "LOOP", "PROCEDURE", "RECORD", "REPEAT", "TYPE", "VAR", "WHILE", "WITH");
00028 $this->unindent = array("ELSE", "ELSIF", "END", "UNTIL");
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 "ABS" => "1",
00046 "AND" => "1",
00047 "ADDRESS" => "1",
00048 "ARRAY" => "1",
00049 "BEGIN" => "1",
00050 "BITSET" => "1",
00051 "BY" => "1",
00052 "CASE" => "1",
00053 "CONST" => "1",
00054 "DEALLOCATE" => "6",
00055 "DEFINITION" => "1",
00056 "DO" => "1",
00057 "ELSE" => "1",
00058 "ELSIF" => "1",
00059 "END" => "1",
00060 "EXCL" => "1",
00061 "EXIT" => "1",
00062 "FOR" => "1",
00063 "FOREIGN" => "1",
00064 "FROM" => "1",
00065 "HIGH" => "1",
00066 "IF" => "1",
00067 "IMPLEMENTATION" => "1",
00068 "IMPORT" => "1",
00069 "IN" => "1",
00070 "INC" => "1",
00071 "INCL" => "1",
00072 "LOOP" => "1",
00073 "MAX" => "1",
00074 "MIN" => "1",
00075 "MODULE" => "1",
00076 "NOT" => "1",
00077 "OF" => "1",
00078 "OR" => "1",
00079 "POINTER" => "1",
00080 "PROCEDURE" => "1",
00081 "RECORD" => "1",
00082 "REPEAT" => "1",
00083 "RETURN" => "1",
00084 "SET" => "1",
00085 "STEP" => "1",
00086 "THEN" => "1",
00087 "TO" => "1",
00088 "TYPE" => "1",
00089 "UNTIL" => "1",
00090 "VAR" => "1",
00091 "WHILE" => "1",
00092 "WITH" => "1",
00093 "^" => "2",
00094 "BOOLEAN" => "2",
00095 "BYTE" => "2",
00096 "CARDINAL" => "2",
00097 "CHAR" => "2",
00098 "FLOAT" => "2",
00099 "INTEGER" => "2",
00100 "IntSet" => "2",
00101 "NIL" => "2",
00102 "REAL" => "2",
00103 "=" => "3",
00104 ":" => "3",
00105 "<=" => "3",
00106 ">=" => "3",
00107 "#" => "3",
00108 "+" => "3",
00109 "-" => "3",
00110 "*" => "3",
00111 "//" => "3",
00112 "/" => "3",
00113 "DIV" => "3",
00114 "MOD" => "3",
00115 "[" => "4",
00116 "]" => "4",
00117 "FALSE" => "5",
00118 "TRUE" => "5",
00119 "ALLOCATE" => "6",
00120 "CHR" => "6",
00121 "DEC" => "6",
00122 "DISPOSE" => "6",
00123 "NEW" => "6",
00124 "ORD" => "6",
00125 "SIZE" => "6",
00126 "SYSTEM" => "6",
00127 "TRUNC" => "6");
00128
00129
00130
00131
00132
00133
00134
00135
00136 $this->linkscripts = array(
00137 "1" => "donothing",
00138 "6" => "donothing",
00139 "2" => "donothing",
00140 "3" => "donothing",
00141 "4" => "donothing",
00142 "5" => "donothing");
00143 }
00144
00145
00146 function donothing($keywordin)
00147 {
00148 return $keywordin;
00149 }
00150
00151 }?>