ILIAS  Release_4_0_x_branch Revision 61816
 All Data Structures Namespaces Files Functions Variables Groups Pages
HFile_pbasic.php
Go to the documentation of this file.
1 <?php
2 $BEAUT_PATH = realpath(".")."/Services/COPage/syntax_highlight/php";
3 if (!isset ($BEAUT_PATH)) return;
4 require_once("$BEAUT_PATH/Beautifier/HFile.php");
5  class HFile_pbasic extends HFile{
6  function HFile_pbasic(){
7  $this->HFile();
8 /*************************************/
9 // Beautifier Highlighting Configuration File
10 // PowerBasic
11 /*************************************/
12 // Flags
13 
14 $this->nocase = "1";
15 $this->notrim = "0";
16 $this->perl = "0";
17 
18 // Colours
19 
20 $this->colours = array("blue", "purple", "gray", "brown");
21 $this->quotecolour = "blue";
22 $this->blockcommentcolour = "green";
23 $this->linecommentcolour = "green";
24 
25 // Indent Strings
26 
27 $this->indent = array();
28 $this->unindent = array();
29 
30 // String characters and delimiters
31 
32 $this->stringchars = array();
33 $this->delimiters = array("~", "!", "@", "^", "*", "(", ")", "+", "=", "|", "\\", "{", "}", "[", "]", ":", ";", "\"", "'", " ", " ", ",", ".", "<", ">");
34 $this->escchar = "";
35 
36 // Comment settings
37 
38 $this->linecommenton = array("'");
39 $this->blockcommenton = array("");
40 $this->blockcommentoff = array("");
41 
42 // Keywords (keyword mapping to colour number)
43 
44 $this->keywords = array(
45  "#Compile" => "1",
46  "#Debug" => "1",
47  "#Dim" => "1",
48  "#Else" => "1",
49  "#ElseIf" => "1",
50  "#EndIf" => "1",
51  "#If" => "1",
52  "#Include" => "1",
53  "#Option" => "1",
54  "#Register" => "1",
55  "#Resource" => "1",
56  "#Segment" => "1",
57  "#Stack" => "1",
58  "$Compile" => "2",
59  "$Debug" => "2",
60  "$Dim" => "2",
61  "$Else" => "2",
62  "$ElseIf" => "2",
63  "$EndIf" => "2",
64  "$If" => "2",
65  "$Include" => "2",
66  "$Option" => "2",
67  "$Register" => "2",
68  "$Resource" => "2",
69  "$Segment" => "2",
70  "$Stack" => "2",
71  "%Def" => "3",
72  "Abs" => "4",
73  "AcceptAccess" => "4",
74  "Addr" => "4",
75  "Alias" => "4",
76  "All" => "4",
77  "And" => "4",
78  "Any" => "4",
79  "Append" => "4",
80  "Array" => "4",
81  "As" => "4",
82  "Asc" => "4",
83  "Ascend" => "4",
84  "Asciiz" => "4",
85  "Asm" => "4",
86  "At" => "4",
87  "Atn" => "4",
88  "Attach" => "4",
89  "Attrib" => "4",
90  "Base" => "4",
91  "Baud" => "4",
92  "Bdecl" => "4",
93  "Beep" => "4",
94  "Bin$" => "4",
95  "Binary" => "4",
96  "Bit" => "4",
97  "Bits%" => "4",
98  "Bits&" => "4",
99  "Bits?" => "4",
100  "Bits??" => "4",
101  "Bits???" => "4",
102  "Break" => "4",
103  "ByCopy" => "4",
104  "ByRef" => "4",
105  "Byte" => "4",
106  "ByVal" => "4",
107  "Call" => "4",
108  "Case" => "4",
109  "CByt" => "4",
110  "CCur" => "4",
111  "CCux" => "4",
112  "Cd" => "4",
113  "CDbl" => "4",
114  "Cdecl" => "4",
115  "CDwd" => "4",
116  "Ceil" => "4",
117  "Cext" => "4",
118  "ChDir" => "4",
119  "ChDrive" => "4",
120  "Chr$" => "4",
121  "CInt" => "4",
122  "CLng" => "4",
123  "Close" => "4",
124  "Cls" => "4",
125  "CodePtr" => "4",
126  "Collate" => "4",
127  "Color" => "4",
128  "Comm" => "4",
129  "Command$" => "4",
130  "Con" => "4",
131  "ConsIn" => "4",
132  "ConsName$" => "4",
133  "Console" => "4",
134  "ConsOut" => "4",
135  "Cos" => "4",
136  "CQud" => "4",
137  "Create" => "4",
138  "CSng" => "4",
139  "CtsFlow" => "4",
140  "Cur" => "4",
141  "CurDir$" => "4",
142  "Currency" => "4",
143  "CurrencyX" => "4",
144  "Cursor" => "4",
145  "CursorX" => "4",
146  "CursorY" => "4",
147  "Cux" => "4",
148  "CvByt" => "4",
149  "CvCur" => "4",
150  "CvCux" => "4",
151  "Cvd" => "4",
152  "CvDwd" => "4",
153  "Cve" => "4",
154  "Cvi" => "4",
155  "Cvl" => "4",
156  "Cvq" => "4",
157  "Cvs" => "4",
158  "CvWrd" => "4",
159  "CWrd" => "4",
160  "Data" => "4",
161  "DataCount" => "4",
162  "Date$" => "4",
163  "Declare" => "4",
164  "Decr" => "4",
165  "Default" => "4",
166  "DefByt" => "4",
167  "DefCur" => "4",
168  "DefCux" => "4",
169  "DefDbl" => "4",
170  "DefDwd" => "4",
171  "DefExt" => "4",
172  "DefInt" => "4",
173  "DefLng" => "4",
174  "DefQud" => "4",
175  "DefSng" => "4",
176  "DefStr" => "4",
177  "DefWrd" => "4",
178  "Delete" => "4",
179  "Descend" => "4",
180  "Dim" => "4",
181  "Dir$" => "4",
182  "DiskFree" => "4",
183  "DiskSize" => "4",
184  "Dll" => "4",
185  "Do" => "4",
186  "Double" => "4",
187  "Down" => "4",
188  "DseFlow" => "4",
189  "DsrSens" => "4",
190  "DtrFlow" => "4",
191  "DtrLine" => "4",
192  "Dword" => "4",
193  "Else" => "4",
194  "ElseIf" => "4",
195  "End" => "4",
196  "Environ$" => "4",
197  "Eof" => "4",
198  "Eqv" => "4",
199  "Erase" => "4",
200  "Err" => "4",
201  "ErrApi" => "4",
202  "ErrClear" => "4",
203  "Error" => "4",
204  "Exe" => "4",
205  "Exit" => "4",
206  "Exp" => "4",
207  "Exp10" => "4",
208  "Exp2" => "4",
209  "Explicit" => "4",
210  "Export" => "4",
211  "Ext" => "4",
212  "Extended" => "4",
213  "Extract$" => "4",
214  "Far" => "4",
215  "FileAttr" => "4",
216  "FileCopy" => "4",
217  "FileName$" => "4",
218  "Fix" => "4",
219  "Flush" => "4",
220  "For" => "4",
221  "Format$" => "4",
222  "FormFeed" => "4",
223  "Frac" => "4",
224  "FreeFile" => "4",
225  "From" => "4",
226  "Function" => "4",
227  "Get" => "4",
228  "Get$" => "4",
229  "GetAttr" => "4",
230  "GetStdErr" => "4",
231  "GetStdIn" => "4",
232  "GetStdOut" => "4",
233  "Global" => "4",
234  "GoSub" => "4",
235  "GoTo" => "4",
236  "Handle" => "4",
237  "Hex$" => "4",
238  "HiByt" => "4",
239  "HiWrd" => "4",
240  "Host" => "4",
241  "Idn" => "4",
242  "If" => "4",
243  "Imp" => "4",
244  "In" => "4",
245  "Incr" => "4",
246  "InKey$" => "4",
247  "Input" => "4",
248  "Input#" => "4",
249  "Input$" => "4",
250  "Insert" => "4",
251  "InShift" => "4",
252  "InStat" => "4",
253  "Instr" => "4",
254  "Int" => "4",
255  "Integer" => "4",
256  "Inv" => "4",
257  "IsFalse" => "4",
258  "IsTrue" => "4",
259  "Iterate" => "4",
260  "Kill" => "4",
261  "LBound" => "4",
262  "LCase$" => "4",
263  "Left" => "4",
264  "Left$" => "4",
265  "Len" => "4",
266  "Let" => "4",
267  "Lib" => "4",
268  "Line" => "4",
269  "LoByt" => "4",
270  "Loc" => "4",
271  "Local" => "4",
272  "Locate" => "4",
273  "Lock" => "4",
274  "Lof" => "4",
275  "Log" => "4",
276  "Log10" => "4",
277  "Log2" => "4",
278  "Long" => "4",
279  "Loop" => "4",
280  "LoWrd" => "4",
281  "Lprint" => "4",
282  "Lprint$" => "4",
283  "Lset" => "4",
284  "Ltrim$" => "4",
285  "MakDwd" => "4",
286  "MakLng" => "4",
287  "MakPtr" => "4",
288  "Mat" => "4",
289  "Max" => "4",
290  "Max$" => "4",
291  "Max%" => "4",
292  "Max&" => "4",
293  "MCase$" => "4",
294  "Mid$" => "4",
295  "Min" => "4",
296  "Min$" => "4",
297  "Min%" => "4",
298  "Min&" => "4",
299  "MkByt$" => "4",
300  "MkCur$" => "4",
301  "MkCux$" => "4",
302  "Mkd$" => "4",
303  "MkDir" => "4",
304  "MkDwd$" => "4",
305  "Mke$" => "4",
306  "Mki$" => "4",
307  "Mkl$" => "4",
308  "Mkq$" => "4",
309  "Mks$" => "4",
310  "MkWrd$" => "4",
311  "Mod" => "4",
312  "Mouse" => "4",
313  "MouseButtons" => "4",
314  "MouseStat" => "4",
315  "MouseX" => "4",
316  "MouseY" => "4",
317  "Move" => "4",
318  "Name" => "4",
319  "Next" => "4",
320  "None" => "4",
321  "Not" => "4",
322  "Notify" => "4",
323  "Null" => "4",
324  "Oct$" => "4",
325  "Of" => "4",
326  "Off" => "4",
327  "On" => "4",
328  "Open" => "4",
329  "Option" => "4",
330  "Or" => "4",
331  "Output" => "4",
332  "Page" => "4",
333  "Parity" => "4",
334  "ParityChar" => "4",
335  "ParityRepl" => "4",
336  "ParityType" => "4",
337  "Parse$" => "4",
338  "ParseCount" => "4",
339  "Pbd" => "4",
340  "PbDebug" => "4",
341  "PbMain" => "4",
342  "Pcopy" => "4",
343  "Peek" => "4",
344  "Peek$" => "4",
345  "Pointer" => "4",
346  "Poke" => "4",
347  "Poke$" => "4",
348  "Port" => "4",
349  "Preserve" => "4",
350  "Print" => "4",
351  "Print#" => "4",
352  "Private" => "4",
353  "Ptr" => "4",
354  "Put" => "4",
355  "Put$" => "4",
356  "Quad" => "4",
357  "Random" => "4",
358  "Randomize" => "4",
359  "Read" => "4",
360  "Read$" => "4",
361  "Recv" => "4",
362  "ReDim" => "4",
363  "RegExpr" => "4",
364  "Register" => "4",
365  "RegRepl" => "4",
366  "Rem" => "4",
367  "Remain$" => "4",
368  "Remove$" => "4",
369  "Repeat$" => "4",
370  "Replace" => "4",
371  "Reset" => "4",
372  "Resume" => "4",
373  "Ret16" => "4",
374  "Ret32" => "4",
375  "Ret87" => "4",
376  "Retp16" => "4",
377  "Retp32" => "4",
378  "RetPrm" => "4",
379  "Return" => "4",
380  "Rgb" => "4",
381  "Right" => "4",
382  "Right$" => "4",
383  "Ring" => "4",
384  "Rlsd" => "4",
385  "RmDir" => "4",
386  "Rnd" => "4",
387  "Rotate" => "4",
388  "Round" => "4",
389  "Rset" => "4",
390  "Rtrim$" => "4",
391  "RtsFlow" => "4",
392  "RxBuffer" => "4",
393  "RxQue" => "4",
394  "Scan" => "4",
395  "Screen" => "4",
396  "ScreenAttr" => "4",
397  "ScreenX" => "4",
398  "ScreenY" => "4",
399  "Scroll" => "4",
400  "Sdecl" => "4",
401  "Seek" => "4",
402  "Select" => "4",
403  "Send" => "4",
404  "Set" => "4",
405  "SetAttr" => "4",
406  "SetEof" => "4",
407  "Sgn" => "4",
408  "Shared" => "4",
409  "Shell" => "4",
410  "Shift" => "4",
411  "Signed" => "4",
412  "Sin" => "4",
413  "Single" => "4",
414  "SizeOf" => "4",
415  "Sleep" => "4",
416  "Sort" => "4",
417  "Space$" => "4",
418  "Spc" => "4",
419  "Sqr" => "4",
420  "Static" => "4",
421  "Status" => "4",
422  "StdCall" => "4",
423  "StdEof" => "4",
424  "StdErr" => "4",
425  "StdIn" => "4",
426  "StdOut" => "4",
427  "Step" => "4",
428  "Str$" => "4",
429  "StrDelete$" => "4",
430  "String" => "4",
431  "String$" => "4",
432  "StrInsert$" => "4",
433  "Stop" => "4",
434  "StrPtr" => "4",
435  "StrReverse$" => "4",
436  "Sub" => "4",
437  "Suspend" => "4",
438  "Swap" => "4",
439  "Tab" => "4",
440  "TagArray" => "4",
441  "Tally" => "4",
442  "Tan" => "4",
443  "Tcp" => "4",
444  "Then" => "4",
445  "Thread" => "4",
446  "Time$" => "4",
447  "TimeOut" => "4",
448  "Timer" => "4",
449  "To" => "4",
450  "Toggle" => "4",
451  "Trim$" => "4",
452  "Trn" => "4",
453  "Type" => "4",
454  "TxBuffer" => "4",
455  "TxQue" => "4",
456  "UBound" => "4",
457  "Ucase" => "4",
458  "UCase$" => "4",
459  "Udp" => "4",
460  "Union" => "4",
461  "UnLock" => "4",
462  "Until" => "4",
463  "Up" => "4",
464  "Using" => "4",
465  "Val" => "4",
466  "VarPtr" => "4",
467  "Verify" => "4",
468  "Version3" => "4",
469  "Version4" => "4",
470  "Version5" => "4",
471  "WaitKey$" => "4",
472  "WaitStat" => "4",
473  "Wend" => "4",
474  "While" => "4",
475  "Width" => "4",
476  "With" => "4",
477  "Word" => "4",
478  "Write" => "4",
479  "XinpFlow" => "4",
480  "XoutFlow" => "4",
481  "Xor" => "4",
482  "Zer" => "4");
483 
484 // Special extensions
485 
486 // Each category can specify a PHP function that returns an altered
487 // version of the keyword.
488 
489 
490 
491 $this->linkscripts = array(
492  "1" => "donothing",
493  "2" => "donothing",
494  "3" => "donothing",
495  "4" => "donothing");
496 }
497 
498 
499 function donothing($keywordin)
500 {
501  return $keywordin;
502 }
503 
504 }?>