ILIAS  Release_4_0_x_branch Revision 61816
 All Data Structures Namespaces Files Functions Variables Groups Pages
HFile_vbscript.php
Go to the documentation of this file.
1 <?php
2 
3 $BEAUT_PATH = realpath(".")."/Services/COPage/syntax_highlight/php";
4 if (!isset ($BEAUT_PATH)) return;
5 require_once("$BEAUT_PATH/Beautifier/HFile.php");
6  class HFile_vbscript extends HFile{
7  function HFile_vbscript(){
8  $this->HFile();
9 
10 /*************************************/
11 // Beautifier Highlighting Configuration File
12 // VBScript
13 /*************************************/
14 // Flags
15 
16 $this->nocase = "0";
17 $this->notrim = "0";
18 $this->perl = "0";
19 
20 // Colours
21 
22 $this->colours = array("blue", "purple", "brown", "gray", "blue", "purple");
23 $this->quotecolour = "blue";
24 $this->blockcommentcolour = "green";
25 $this->linecommentcolour = "green";
26 
27 // Indent Strings
28 
29 $this->indent = array("Sub", "Private Sub", "Public Sub");
30 $this->unindent = array("End Sub");
31 
32 // String characters and delimiters
33 
34 $this->stringchars = array();
35 $this->delimiters = array(".", "(", ")", ",", "-", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", " ", ">", " ");
36 $this->escchar = "";
37 
38 // Comment settings
39 
40 $this->linecommenton = array("'");
41 $this->blockcommenton = array("");
42 $this->blockcommentoff = array("");
43 
44 // Keywords (keyword mapping to colour number)
45 
46 $this->keywords = array(
47  "And" => "1",
48  "As" => "1",
49  "Call" => "1",
50  "Case" => "1",
51  "Class" => "1",
52  "Const" => "1",
53  "Dim" => "1",
54  "Do" => "1",
55  "Each" => "1",
56  "Else" => "1",
57  "ElseIf" => "1",
58  "Empty" => "1",
59  "End" => "1",
60  "Eqv" => "1",
61  "Erase" => "1",
62  "Error" => "1",
63  "Execute" => "1",
64  "Exit" => "1",
65  "Explicit" => "1",
66  "For" => "1",
67  "Function" => "1",
68  "Get" => "1",
69  "Goto" => "1",
70  "If" => "1",
71  "Imp" => "1",
72  "Is" => "1",
73  "Let" => "1",
74  "Loop" => "1",
75  "Mod" => "1",
76  "Next" => "1",
77  "New" => "1",
78  "Not" => "1",
79  "Nothing" => "1",
80  "Null" => "1",
81  "On" => "1",
82  "Option" => "1",
83  "Or" => "1",
84  "Private" => "1",
85  "Property" => "1",
86  "Public" => "1",
87  "Randomize" => "1",
88  "ReDim" => "1",
89  "Rem" => "1",
90  "Resume" => "1",
91  "Select" => "1",
92  "Set" => "1",
93  "Stop" => "1",
94  "Sub" => "1",
95  "Then" => "1",
96  "To" => "1",
97  "Until" => "1",
98  "Wend" => "1",
99  "While" => "1",
100  "With" => "1",
101  "Abs" => "2",
102  "Array" => "2",
103  "Asc" => "2",
104  "Atn" => "2",
105  "CBool" => "2",
106  "CByte" => "2",
107  "CCur" => "2",
108  "CDate" => "2",
109  "CDbl" => "2",
110  "Chr" => "2",
111  "CInt" => "2",
112  "CLng" => "2",
113  "Cos" => "2",
114  "CSng" => "2",
115  "CStr" => "2",
116  "Date" => "2",
117  "DateAddFunction" => "2",
118  "DateDiff" => "2",
119  "DatePart" => "2",
120  "DateSerial" => "2",
121  "DateValue" => "2",
122  "Day" => "2",
123  "Eval" => "2",
124  "Exp" => "2",
125  "Filter" => "2",
126  "Fix" => "2",
127  "FormatCurrency" => "2",
128  "FormatDateTime" => "2",
129  "FormatNumber" => "2",
130  "FormatPercent" => "2",
131  "GetObject" => "2",
132  "GetRef" => "2",
133  "Hex" => "2",
134  "Hour" => "2",
135  "InputBox" => "2",
136  "InStr" => "2",
137  "InStrRev" => "2",
138  "Int" => "2",
139  "IsArray" => "2",
140  "IsDate" => "2",
141  "IsEmpty" => "2",
142  "IsNull" => "2",
143  "IsNumeric" => "2",
144  "IsObject" => "2",
145  "Join" => "2",
146  "LBound" => "2",
147  "LCase" => "2",
148  "Left" => "2",
149  "Len" => "2",
150  "LoadPicture" => "2",
151  "Log" => "2",
152  "LTrim" => "2",
153  "Mid" => "2",
154  "Minute" => "2",
155  "Month" => "2",
156  "MonthName" => "2",
157  "MsgBox" => "2",
158  "Now" => "2",
159  "Oct" => "2",
160  "Replace" => "4",
161  "RGB" => "2",
162  "Right" => "2",
163  "Rnd" => "2",
164  "Round" => "2",
165  "RTrim" => "2",
166  "ScriptEngine" => "2",
167  "ScriptEngineBuildVersion" => "2",
168  "ScriptEngineMajorVersion" => "2",
169  "ScriptEngineMinorVersion" => "2",
170  "Second" => "2",
171  "Sgn" => "2",
172  "Sin" => "2",
173  "Space" => "2",
174  "Split" => "2",
175  "Sqr" => "2",
176  "StrComp" => "2",
177  "String" => "2",
178  "StrReverse" => "2",
179  "Tan" => "2",
180  "Time" => "2",
181  "Timer" => "2",
182  "TimeSerial" => "2",
183  "TimeValue" => "2",
184  "Trim" => "2",
185  "TypeName" => "2",
186  "UBound" => "2",
187  "UCase" => "2",
188  "VarType" => "2",
189  "Weekday" => "2",
190  "WeekdayName" => "2",
191  "Year" => "2",
192  "AccountDisabled" => "3",
193  "AccountExpirationDate" => "3",
194  "Application" => "3",
195  "Arguments" => "3",
196  "AtEndOfLine" => "3",
197  "AtEndOfStream" => "3",
198  "Attributes" => "3",
199  "AutoUnlockInterval" => "3",
200  "AvailableSpace" => "3",
201  "BadPasswordAttempts" => "3",
202  "Column" => "3",
203  "CompareMode" => "3",
204  "ComputerName" => "3",
205  "Count" => "3",
206  "DateCreated" => "3",
207  "DateLastAccessed" => "3",
208  "DateLastModified" => "3",
209  "Description" => "3",
210  "Drive" => "3",
211  "DriveLetter" => "3",
212  "DriveType" => "3",
213  "Drives" => "3",
214  "Environment" => "3",
215  "FileSystem" => "3",
216  "Files" => "3",
217  "FirstIndex" => "3",
218  "FreeSpace" => "3",
219  "FullName" => "3",
220  "Global" => "3",
221  "HelpContext" => "3",
222  "HelpFile" => "3",
223  "HomeDirDrive" => "3",
224  "HomeDirectory" => "3",
225  "HotKey" => "3",
226  "IconLocation" => "3",
227  "IgnoreCase" => "3",
228  "Interactive" => "3",
229  "IsAccountLocked" => "3",
230  "IsReady" => "3",
231  "IsRootFolder" => "3",
232  "Item" => "3",
233  "Key" => "3",
234  "LastLogin" => "3",
235  "LastLogoff" => "3",
236  "Length" => "3",
237  "Line" => "3",
238  "LockoutObservationInterval" => "3",
239  "LoginHours" => "3",
240  "LoginScript" => "3",
241  "LoginWorkstations" => "3",
242  "MaxBadPasswordsAllowed" => "3",
243  "MaxLogins" => "3",
244  "MaxPasswordAge" => "3",
245  "MaxStorage" => "3",
246  "MinPasswordAge" => "3",
247  "MinPasswordLength" => "3",
248  "Name" => "3",
249  "Number" => "3",
250  "ObjectSid" => "3",
251  "Parameters" => "3",
252  "ParentFolder" => "3",
253  "PasswordAge" => "3",
254  "PasswordExpirationDate" => "3",
255  "PasswordExpired" => "3",
256  "PasswordHistoryLength" => "3",
257  "Path" => "3",
258  "Pattern" => "3",
259  "PrimaryGroupID" => "3",
260  "Profile" => "3",
261  "Remove" => "3",
262  "RootFolder" => "3",
263  "ScriptFullName" => "3",
264  "ScriptName" => "3",
265  "SerialNumber" => "3",
266  "ShareName" => "3",
267  "ShortName" => "3",
268  "ShortPath" => "3",
269  "Size" => "3",
270  "Source" => "3",
271  "SpecialFolders" => "3",
272  "Subfolders" => "3",
273  "TargetPath" => "3",
274  "TotalSize" => "3",
275  "Type" => "3",
276  "UserDomain" => "3",
277  "UserFlags" => "3",
278  "UserName" => "3",
279  "Value" => "3",
280  "Version" => "3",
281  "VolumeName" => "3",
282  "WindowStyle" => "3",
283  "WorkingDirectory" => "3",
284  "Add" => "4",
285  "AddPrinterConnection" => "4",
286  "AddWindowsPrinterConnection" => "4",
287  "AppActivate" => "4",
288  "BuildPath" => "4",
289  "Clear" => "4",
290  "Close" => "4",
291  "ConnectObject" => "4",
292  "Copy" => "4",
293  "CopyFile" => "4",
294  "CopyFolder" => "4",
295  "CreateFolder" => "4",
296  "CreateObject" => "4",
297  "CreateShortcut" => "4",
298  "CreateTextFile" => "4",
299  "Delete" => "4",
300  "DeleteFile" => "4",
301  "DeleteFolder" => "4",
302  "DisconnectObject" => "4",
303  "DriveExists" => "4",
304  "Echo" => "4",
305  "EnumNetworkDrives" => "4",
306  "EnumPrinterConnections" => "4",
307  "Exists" => "4",
308  "ExpandEnvironmentStrings" => "4",
309  "FileExists" => "4",
310  "FolderExists" => "4",
311  "GetAbsolutePathName" => "4",
312  "GetBaseName" => "4",
313  "GetDrive" => "4",
314  "GetDriveName" => "4",
315  "GetExtensionName" => "4",
316  "GetFile" => "4",
317  "GetFileName" => "4",
318  "GetFolder" => "4",
319  "GetParentFolderName" => "4",
320  "GetResource" => "4",
321  "GetSpecialFolder" => "4",
322  "GetTempName" => "4",
323  "Items" => "4",
324  "Keys" => "4",
325  "LogEvent" => "4",
326  "MapNetworkDrive" => "4",
327  "Move" => "4",
328  "MoveFile" => "4",
329  "MoveFolder" => "4",
330  "OpenAsTextStream" => "4",
331  "OpenTextFile" => "4",
332  "Popup" => "4",
333  "Put" => "4",
334  "Quit" => "4",
335  "Raise" => "4",
336  "Read" => "4",
337  "ReadAll" => "4",
338  "ReadLine" => "4",
339  "RegDelete" => "4",
340  "RegRead" => "4",
341  "RegWrite" => "4",
342  "RemoveAll" => "4",
343  "RemoveNetworkDrive" => "4",
344  "RemovePrinterConnection" => "4",
345  "Run" => "4",
346  "Save" => "4",
347  "SendKeys" => "4",
348  "SetDefaultPrinter" => "4",
349  "Skip" => "4",
350  "SkipLine" => "4",
351  "Sleep" => "4",
352  "SetInfo" => "4",
353  "Test" => "4",
354  "Write" => "4",
355  "WriteBlankLines" => "4",
356  "WriteLine" => "4",
357  "Dictionary" => "5",
358  "Err" => "5",
359  "File" => "5",
360  "FileSystemObject" => "5",
361  "Folder" => "5",
362  "Match" => "5",
363  "RegExp" => "5",
364  "TextStream" => "5",
365  "Wscript" => "5",
366  "WshNetwork" => "5",
367  "WshShell" => "5",
368  "False" => "6",
369  "FALSE" => "6",
370  "True" => "6",
371  "TRUE" => "6",
372  "vbAbort" => "6",
373  "vbAbortRetryIgnore" => "6",
374  "vbApplicationModal" => "6",
375  "vbArray" => "6",
376  "vbBinaryCompare" => "6",
377  "vbBlack" => "6",
378  "vbBlue" => "6",
379  "vbBoolean" => "6",
380  "vbByte" => "6",
381  "vbCancel" => "6",
382  "vbCr" => "6",
383  "vbCritical" => "6",
384  "vbCrLf" => "6",
385  "vbCurrency" => "6",
386  "vbCyan" => "6",
387  "vbDataObject" => "6",
388  "vbDate" => "6",
389  "vbDecimal" => "6",
390  "vbDefaultButton1" => "6",
391  "vbDefaultButton2" => "6",
392  "vbDefaultButton3" => "6",
393  "vbDefaultButton4" => "6",
394  "vbDouble" => "6",
395  "vbEmpty" => "6",
396  "vbError" => "6",
397  "vbExclamation" => "6",
398  "vbFirstFourDays" => "6",
399  "vbFirstFullWeek" => "6",
400  "vbFirstJan1" => "6",
401  "vbFormFeed" => "6",
402  "vbFriday" => "6",
403  "vbGeneralDate" => "6",
404  "vbGreen" => "6",
405  "vbIgnore" => "6",
406  "vbInformation" => "6",
407  "vbInteger" => "6",
408  "vbLf" => "6",
409  "vbLong" => "6",
410  "vbLongDate" => "6",
411  "vbLongTime" => "6",
412  "vbMagenta" => "6",
413  "vbMonday" => "6",
414  "vbNewLine" => "6",
415  "vbNo" => "6",
416  "vbNull" => "6",
417  "vbNullChar" => "6",
418  "vbNullString" => "6",
419  "vbObject" => "6",
420  "vbObjectError" => "6",
421  "vbOK" => "6",
422  "vbOKCancel" => "6",
423  "vbOKOnly" => "6",
424  "vbQuestion" => "6",
425  "vbRed" => "6",
426  "vbRetry" => "6",
427  "vbRetryCancel" => "6",
428  "vbSaturday" => "6",
429  "vbShortDate" => "6",
430  "vbShortTime" => "6",
431  "vbSingle" => "6",
432  "vbString" => "6",
433  "vbSunday" => "6",
434  "vbSystemModal" => "6",
435  "vbTab" => "6",
436  "vbTextCompare" => "6",
437  "vbThursday" => "6",
438  "vbTuesday" => "6",
439  "vbUseSystem" => "6",
440  "vbUseSystemDayOfWeek" => "6",
441  "vbVariant" => "6",
442  "vbVerticalTab" => "6",
443  "vbWednesday" => "6",
444  "vbWhite" => "6",
445  "vbYellow" => "6",
446  "vbYes" => "6",
447  "vbYesNo" => "6",
448  "vbYesNoCancel" => "6");
449 
450 // Special extensions
451 
452 // Each category can specify a PHP function that returns an altered
453 // version of the keyword.
454 
455 
456 
457 $this->linkscripts = array(
458  "1" => "donothing",
459  "2" => "donothing",
460  "4" => "donothing",
461  "3" => "donothing",
462  "5" => "donothing",
463  "6" => "donothing");
464 
465 }
466 
467 
468 
469 function donothing($keywordin)
470 {
471  return $keywordin;
472 }
473 
474 }
475 
476 ?>