ILIAS  release_5-3 Revision v5.3.23-19-g915713cf615
HFile_delphi.php
Go to the documentation of this file.
1<?php
2
3$BEAUT_PATH = realpath(".") . "/Services/COPage/syntax_highlight/php";
4if (!isset($BEAUT_PATH)) {
5 return;
6}
7require_once("$BEAUT_PATH/Beautifier/HFile.php");
8 class HFile_delphi extends HFile
9 {
10 public function __construct()
11 {
12 parent::__construct();
13
14 /*************************************/
15 // Beautifier Highlighting Configuration File
16 // Delphi 4
17 /*************************************/
18 // Flags
19
20 $this->nocase = "1";
21 $this->notrim = "0";
22 $this->perl = "0";
23
24 // Colours
25
26 $this->colours = array("blue", "purple", "gray", "brown");
27 $this->quotecolour = "blue";
28 $this->blockcommentcolour = "green";
29 $this->linecommentcolour = "green";
30
31 // Indent Strings
32
33 $this->indent = array("begin", "repeat", "asm", "type");
34 $this->unindent = array("end", "until");
35
36 // String characters and delimiters
37
38 $this->stringchars = array("'");
39 $this->delimiters = array("#", "$", "&", "'", "(", ")", "*", "+", ",", "-", ".", "/", ";", "<", ">", "@", "[", "]", "^", "{", "}", " ", " ");
40 $this->escchar = "";
41
42 // Comment settings
43
44 $this->linecommenton = array("//");
45 $this->blockcommenton = array("{");
46 $this->blockcommentoff = array("}");
47
48 // Keywords (keyword mapping to colour number)
49
50 $this->keywords = array(
51 "array" => "1",
52 "asm" => "1",
53 "begin" => "1",
54 "case" => "1",
55 "class" => "1",
56 "const" => "1",
57 "constructor" => "1",
58 "destructor" => "1",
59 "dispinterface" => "1",
60 "do" => "1",
61 "downto" => "1",
62 "else" => "1",
63 "end" => "1",
64 "except" => "1",
65 "exports" => "1",
66 "file" => "1",
67 "finalization" => "1",
68 "finally" => "1",
69 "for" => "1",
70 "function" => "1",
71 "goto" => "1",
72 "if" => "1",
73 "implementation" => "1",
74 "inherited" => "1",
75 "initialization" => "1",
76 "inline" => "1",
77 "interface" => "1",
78 "label" => "1",
79 "library" => "1",
80 "nil" => "1",
81 "object" => "1",
82 "of" => "1",
83 "out" => "1",
84 "packed" => "1",
85 "procedure" => "1",
86 "program" => "1",
87 "property" => "1",
88 "raise" => "1",
89 "record" => "1",
90 "repeat" => "1",
91 "resourcestring" => "1",
92 "set" => "1",
93 "string" => "1",
94 "then" => "1",
95 "threadvar" => "1",
96 "to" => "1",
97 "try" => "1",
98 "type" => "1",
99 "unit" => "1",
100 "until" => "1",
101 "uses" => "1",
102 "var" => "1",
103 "while" => "1",
104 "with" => "1",
105 "absolute" => "2",
106 "abstract" => "2",
107 "assembler" => "2",
108 "automated" => "2",
109 "cdecl" => "2",
110 "contains" => "2",
111 "default" => "2",
112 "dispid" => "2",
113 "dynamic" => "2",
114 "export" => "2",
115 "external" => "2",
116 "far" => "2",
117 "forward" => "2",
118 "implements" => "2",
119 "index" => "2",
120 "message" => "2",
121 "name" => "2",
122 "near" => "2",
123 "nodefault" => "2",
124 "overload" => "2",
125 "override" => "2",
126 "package" => "2",
127 "pascal" => "2",
128 "private" => "2",
129 "protected" => "2",
130 "public" => "2",
131 "published" => "2",
132 "read" => "2",
133 "readonly" => "2",
134 "register" => "2",
135 "reintroduce" => "2",
136 "requires" => "2",
137 "resident" => "2",
138 "safecall" => "2",
139 "stdcall" => "2",
140 "stored" => "2",
141 "virtual" => "2",
142 "write" => "2",
143 "writeonly" => "2",
144 "*" => "3",
145 "+" => "3",
146 "-" => "3",
147 "//" => "3",
148 "/" => "3",
149 "<" => "3",
150 "<=" => "3",
151 "<>" => "3",
152 "=" => "3",
153 ">" => "3",
154 ">=" => "3",
155 "@" => "3",
156 "and" => "3",
157 "as" => "3",
158 "div" => "3",
159 "in" => "3",
160 "is" => "3",
161 "mod" => "3",
162 "not" => "3",
163 "or" => "3",
164 "shl" => "3",
165 "shr" => "3",
166 "xor" => "3",
167 "#" => "4",
168 "$" => "4",
169 "&" => "4",
170 "(" => "4",
171 "(." => "4",
172 ")" => "4",
173 "," => "4",
174 "." => "4",
175 ".)" => "4",
176 ".." => "4",
177 ":" => "4",
178 ":=" => "4",
179 ";" => "4",
180 "[" => "4",
181 "]" => "4",
182 "^" => "4");
183
184 // Special extensions
185
186
187 // Each category can specify a PHP function that returns an altered
188 // version of the keyword.
189
190
191
192
193
194 $this->linkscripts = array(
195 "1" => "donothing",
196 "2" => "donothing",
197 "3" => "donothing",
198 "4" => "donothing");
199 }
200
201
202
203 public function donothing($keywordin)
204 {
205 return $keywordin;
206 }
207 }
$BEAUT_PATH
Definition: HFile_delphi.php:3
An exception for terminatinating execution or to throw for unit testing.
donothing($keywordin)