ILIAS  release_5-3 Revision v5.3.23-19-g915713cf615
HFile_qbasic.php
Go to the documentation of this file.
1<?php
2$BEAUT_PATH = realpath(".") . "/Services/COPage/syntax_highlight/php";
3if (!isset($BEAUT_PATH)) {
4 return;
5}
6require_once("$BEAUT_PATH/Beautifier/HFile.php");
7 class HFile_qbasic extends HFile
8 {
9 public function HFile_qbasic()
10 {
11 $this->HFile();
12 /*************************************/
13 // Beautifier Highlighting Configuration File
14 // QBasic
15 /*************************************/
16 // Flags
17
18 $this->nocase = "0";
19 $this->notrim = "0";
20 $this->perl = "0";
21
22 // Colours
23
24 $this->colours = array("blue");
25 $this->quotecolour = "blue";
26 $this->blockcommentcolour = "green";
27 $this->linecommentcolour = "green";
28
29 // Indent Strings
30
31 $this->indent = array();
32 $this->unindent = array();
33
34 // String characters and delimiters
35
36 $this->stringchars = array("\"", "'");
37 $this->delimiters = array("~", "!", "@", "%", "^", "&", "*", "(", ")", "-", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", ">", " ", ",", " ", ".", "?");
38 $this->escchar = "";
39
40 // Comment settings
41
42 $this->linecommenton = array("//");
43 $this->blockcommenton = array("/*");
44 $this->blockcommentoff = array("*/");
45
46 // Keywords (keyword mapping to colour number)
47
48 $this->keywords = array(
49 "$DYNAMIC" => "1",
50 "$INCLUDE" => "1",
51 "$STATIC" => "1",
52 "BLOAD" => "1",
53 "BSAVE" => "1",
54 "BYVAL" => "1",
55 "CALL" => "1",
56 "CASE" => "1",
57 "CDECL" => "1",
58 "CHAIN" => "1",
59 "CHR$" => "1",
60 "CIRCLE" => "1",
61 "CLOSE" => "1",
62 "CLS" => "1",
63 "COLOR" => "1",
64 "COM" => "1",
65 "COMMAND" => "1",
66 "COMMAND$" => "1",
67 "COMMON" => "1",
68 "CONST" => "1",
69 "CTRL" => "1",
70 "DAT" => "1",
71 "DATA" => "1",
72 "DATE$" => "1",
73 "DECLARE" => "1",
74 "DEF" => "1",
75 "DEFINT" => "1",
76 "DEFtype" => "1",
77 "DGROUP" => "1",
78 "DIM" => "1",
79 "DOS" => "1",
80 "DOUBLE" => "1",
81 "DRAW" => "1",
82 "EGA" => "1",
83 "ELSE" => "1",
84 "ELSEIF" => "1",
85 "END" => "1",
86 "ENVIRON$" => "1",
87 "ERASE" => "1",
88 "ERDEV" => "1",
89 "ERDEV$" => "1",
90 "ERROR" => "1",
91 "EXIT" => "1",
92 "FIELD" => "1",
93 "FILEATTR" => "1",
94 "FOR" => "1",
95 "FUNCTION" => "1",
96 "GET" => "1",
97 "GOSUB" => "1",
98 "GOTO" => "1",
99 "IBM" => "1",
100 "INKEY$" => "1",
101 "INPUT" => "1",
102 "INPUT$" => "1",
103 "INSTR" => "1",
104 "INTEGER" => "1",
105 "INTERRUPT" => "1",
106 "IOCTL" => "1",
107 "IOCTL$" => "1",
108 "LBOUND" => "1",
109 "LEFT" => "1",
110 "LEN" => "1",
111 "LINE" => "1",
112 "LOCATE" => "1",
113 "LOCK" => "1",
114 "LONG" => "1",
115 "LOOP" => "1",
116 "LPRINT" => "1",
117 "LSET" => "1",
118 "MCGA" => "1",
119 "MID$" => "1",
120 "NAME" => "1",
121 "NEXT" => "1",
122 "NOT" => "1",
123 "OFF" => "1",
124 "OPEN" => "1",
125 "OPTION" => "1",
126 "OUTPUT" => "1",
127 "PALETTE" => "1",
128 "PEN" => "1",
129 "PLAY" => "1",
130 "PRINT" => "1",
131 "PSET" => "1",
132 "PUT" => "1",
133 "RANDOM" => "1",
134 "RANDOMIZE" => "1",
135 "READ" => "1",
136 "README" => "1",
137 "REDIM" => "1",
138 "RESTORE" => "1",
139 "RESUME" => "1",
140 "RETURN" => "1",
141 "RIGHT" => "1",
142 "RIGHT$" => "1",
143 "RSET" => "1",
144 "SCREEN" => "1",
145 "SEEK" => "1",
146 "SEG" => "1",
147 "SELECT" => "1",
148 "SETMEM" => "1",
149 "SHARED" => "1",
150 "SHIFT" => "1",
151 "SINGLE" => "1",
152 "STATIC" => "1",
153 "STEP" => "1",
154 "STICK" => "1",
155 "STOP" => "1",
156 "STRIG" => "1",
157 "STRING" => "1",
158 "STRING$" => "1",
159 "SUB" => "1",
160 "THEN" => "1",
161 "TIME$" => "1",
162 "TIMER" => "1",
163 "TYPE" => "1",
164 "UBOUND" => "1",
165 "UCASE$" => "1",
166 "UEVENT" => "1",
167 "UNLOCK" => "1",
168 "UNTIL" => "1",
169 "USING" => "1",
170 "VARPTR" => "1",
171 "VARPTR$" => "1",
172 "VARSEG" => "1",
173 "VGA" => "1",
174 "VIEW" => "1",
175 "WEND" => "1",
176 "WHILE" => "1",
177 "WIDTH" => "1",
178 "WINDOW" => "1",
179 "WRITE" => "1");
180
181 // Special extensions
182
183 // Each category can specify a PHP function that returns an altered
184 // version of the keyword.
185
186
187
188 $this->linkscripts = array(
189 "1" => "donothing");
190 }
191
192
193 public function donothing($keywordin)
194 {
195 return $keywordin;
196 }
197 }
$BEAUT_PATH
Definition: HFile_qbasic.php:2
An exception for terminatinating execution or to throw for unit testing.
donothing($keywordin)