ILIAS  Release_4_2_x_branch Revision 61807
 All Data Structures Namespaces Files Functions Variables Groups Pages
HFile_vb.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_vb extends HFile{
7  function HFile_vb(){
8  $this->HFile();
9 
10 /*************************************/
11 // Beautifier Highlighting Configuration File
12 // Visual Basic
13 /*************************************/
14 // Flags
15 
16 $this->nocase = "1";
17 $this->notrim = "0";
18 $this->perl = "0";
19 
20 // Colours
21 
22 $this->colours = array("blue", "purple", "gray", "brown", "blue", "purple");
23 $this->quotecolour = "blue";
24 $this->blockcommentcolour = "green";
25 $this->linecommentcolour = "green";
26 
27 // Indent Strings
28 
29 $this->indent = array("Private Sub", "Public Sub", "With");
30 $this->unindent = array("End Sub", "End With");
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  "Abs" => "1",
48  "Array" => "1",
49  "Asc" => "1",
50  "AscB" => "1",
51  "AscW" => "1",
52  "Atn" => "1",
53  "Avg" => "1",
54  "CBool" => "1",
55  "CByte" => "1",
56  "CCur" => "1",
57  "CDate" => "1",
58  "CDbl" => "1",
59  "Cdec" => "1",
60  "Choose" => "1",
61  "Chr" => "1",
62  "ChrB" => "1",
63  "ChrW" => "1",
64  "CInt" => "1",
65  "CLng" => "1",
66  "Command" => "1",
67  "Cos" => "1",
68  "Count" => "1",
69  "CreateObject" => "1",
70  "CSng" => "1",
71  "CStr" => "1",
72  "CurDir" => "1",
73  "CVar" => "1",
74  "CVDate" => "1",
75  "CVErr" => "1",
76  "Date" => "1",
77  "DateAdd" => "1",
78  "DateDiff" => "1",
79  "DatePart" => "1",
80  "DateSerial" => "1",
81  "DateValue" => "1",
82  "Day" => "1",
83  "DDB" => "1",
84  "Dir" => "1",
85  "DoEvents" => "1",
86  "Environ" => "1",
87  "EOF" => "1",
88  "Error" => "1",
89  "Exp" => "1",
90  "FileAttr" => "1",
91  "FileDateTime" => "1",
92  "FileLen" => "1",
93  "Fix" => "1",
94  "Format" => "1",
95  "FreeFile" => "1",
96  "FV" => "1",
97  "GetAllStrings" => "1",
98  "GetAttr" => "1",
99  "GetAutoServerSettings" => "1",
100  "GetObject" => "1",
101  "GetSetting" => "1",
102  "Hex" => "1",
103  "Hour" => "1",
104  "IIf" => "1",
105  "IMEStatus" => "1",
106  "Input" => "1",
107  "InputB" => "1",
108  "InputBox" => "1",
109  "InStr" => "1",
110  "InstB" => "1",
111  "Int" => "1",
112  "IPmt" => "1",
113  "IsArray" => "1",
114  "IsDate" => "1",
115  "IsEmpty" => "1",
116  "IsError" => "1",
117  "IsMissing" => "1",
118  "IsNull" => "1",
119  "IsNumeric" => "1",
120  "IsObject" => "1",
121  "LBound" => "1",
122  "LCase" => "1",
123  "Left" => "1",
124  "LeftB" => "1",
125  "Len" => "1",
126  "LenB" => "1",
127  "LoadPicture" => "1",
128  "Loc" => "1",
129  "LOF" => "1",
130  "Log" => "1",
131  "LTrim" => "1",
132  "Max" => "1",
133  "Mid" => "1",
134  "MidB" => "1",
135  "Min" => "1",
136  "Minute" => "1",
137  "MIRR" => "1",
138  "Month" => "1",
139  "MsgBox" => "1",
140  "Now" => "1",
141  "NPer" => "1",
142  "NPV" => "1",
143  "Oct" => "1",
144  "Partition" => "1",
145  "Pmt" => "1",
146  "PPmt" => "1",
147  "PV" => "1",
148  "QBColor" => "1",
149  "Rate" => "1",
150  "RGB" => "1",
151  "Right" => "1",
152  "RightB" => "1",
153  "Rnd" => "1",
154  "RTrim" => "1",
155  "Second" => "1",
156  "Seek" => "1",
157  "Sgn" => "1",
158  "Shell" => "1",
159  "Sin" => "1",
160  "SLN" => "1",
161  "Space" => "1",
162  "Spc" => "1",
163  "Sqr" => "1",
164  "StDev" => "1",
165  "StDevP" => "1",
166  "Str" => "1",
167  "StrComp" => "1",
168  "StrConv" => "1",
169  "String" => "1",
170  "Switch" => "1",
171  "Sum" => "1",
172  "SYD" => "1",
173  "Tab" => "1",
174  "Tan" => "1",
175  "Time" => "1",
176  "Timer" => "1",
177  "TimeSerial" => "1",
178  "TimeValue" => "1",
179  "Trim" => "1",
180  "TypeName" => "1",
181  "UBound" => "1",
182  "UCase" => "1",
183  "Val" => "1",
184  "Var" => "1",
185  "VarP" => "1",
186  "VarType" => "1",
187  "Weekday" => "1",
188  "Year" => "1",
189  "Accept" => "2",
190  "Activate" => "2",
191  "Add" => "2",
192  "AddCustom" => "2",
193  "AddFile" => "2",
194  "AddFromFile" => "2",
195  "AddFromTemplate" => "2",
196  "AddItem" => "2",
197  "AddNew" => "2",
198  "AddToAddInToolbar" => "2",
199  "AddToolboxProgID" => "2",
200  "Append" => "2",
201  "AppendChunk" => "2",
202  "Arrange" => "2",
203  "Assert" => "2",
204  "AsyncRead" => "2",
205  "BatchUpdate" => "2",
206  "BeginTrans" => "2",
207  "Bind" => "2",
208  "Cancel" => "2",
209  "CancelAsyncRead" => "2",
210  "CancelBatch" => "2",
211  "CancelUpdate" => "2",
212  "CanPropertyChange" => "2",
213  "CaptureImage" => "2",
214  "CellText" => "2",
215  "CellValue" => "2",
216  "Circle" => "2",
217  "Clear" => "2",
218  "ClearFields" => "2",
219  "ClearSel" => "2",
220  "ClearSelCols" => "2",
221  "Clone" => "2",
222  "Close" => "2",
223  "Cls" => "2",
224  "ColContaining" => "2",
225  "ColumnSize" => "2",
226  "CommitTrans" => "2",
227  "CompactDatabase" => "2",
228  "Compose" => "2",
229  "Connect" => "2",
230  "Copy" => "2",
231  "CopyQueryDef" => "2",
232  "CreateDatabase" => "2",
233  "CreateDragImage" => "2",
234  "CreateEmbed" => "2",
235  "CreateField" => "2",
236  "CreateGroup" => "2",
237  "CreateIndex" => "2",
238  "CreateLink" => "2",
239  "CreatePreparedStatement" => "2",
240  "CreatePropery" => "2",
241  "CreateQuery" => "2",
242  "CreateQueryDef" => "2",
243  "CreateRelation" => "2",
244  "CreateTableDef" => "2",
245  "CreateUser" => "2",
246  "CreateWorkspace" => "2",
247  "Customize" => "2",
248  "Delete" => "2",
249  "DeleteColumnLabels" => "2",
250  "DeleteColumns" => "2",
251  "DeleteRowLabels" => "2",
252  "DeleteRows" => "2",
253  "DoVerb" => "2",
254  "Drag" => "2",
255  "Draw" => "2",
256  "Edit" => "2",
257  "EditCopy" => "2",
258  "EditPaste" => "2",
259  "EndDoc" => "2",
260  "EnsureVisible" => "2",
261  "EstablishConnection" => "2",
262  "Execute" => "2",
263  "ExtractIcon" => "2",
264  "Fetch" => "2",
265  "FetchVerbs" => "2",
266  "Files" => "2",
267  "FillCache" => "2",
268  "Find" => "2",
269  "FindFirst" => "2",
270  "FindItem" => "2",
271  "FindLast" => "2",
272  "FindNext" => "2",
273  "FindPrevious" => "2",
274  "Forward" => "2",
275  "GetBookmark" => "2",
276  "GetChunk" => "2",
277  "GetClipString" => "2",
278  "GetData" => "2",
279  "GetFirstVisible" => "2",
280  "GetFormat" => "2",
281  "GetHeader" => "2",
282  "GetLineFromChar" => "2",
283  "GetNumTicks" => "2",
284  "GetRows" => "2",
285  "GetSelectedPart" => "2",
286  "GetText" => "2",
287  "GetVisibleCount" => "2",
288  "GoBack" => "2",
289  "GoForward" => "2",
290  "Hide" => "2",
291  "HitTest" => "2",
292  "HoldFields" => "2",
293  "Idle" => "2",
294  "InitializeLabels" => "2",
295  "InsertColumnLabels" => "2",
296  "InsertColumns" => "2",
297  "InsertObjDlg" => "2",
298  "InsertRowLabels" => "2",
299  "InsertRows" => "2",
300  "Item" => "2",
301  "KillDoc" => "2",
302  "Layout" => "2",
303  "Line" => "2",
304  "LinkExecute" => "2",
305  "LinkPoke" => "2",
306  "LinkRequest" => "2",
307  "LinkSend" => "2",
308  "Listen" => "2",
309  "LoadFile" => "2",
310  "LoadResData" => "2",
311  "LoadResPicture" => "2",
312  "LoadResString" => "2",
313  "LogEvent" => "2",
314  "MakeCompileFile" => "2",
315  "MakeReplica" => "2",
316  "MoreResults" => "2",
317  "Move" => "2",
318  "MoveData" => "2",
319  "MoveFirst" => "2",
320  "MoveLast" => "2",
321  "MoveNext" => "2",
322  "MovePrevious" => "2",
323  "NavigateTo" => "2",
324  "NewPage" => "2",
325  "NewPassword" => "2",
326  "NextRecordset" => "2",
327  "OLEDrag" => "2",
328  "OnAddinsUpdate" => "2",
329  "OnConnection" => "2",
330  "OnDisconnection" => "2",
331  "OnStartupComplete" => "2",
332  "Open" => "2",
333  "OpenConnection" => "2",
334  "OpenDatabase" => "2",
335  "OpenQueryDef" => "2",
336  "OpenRecordset" => "2",
337  "OpenResultset" => "2",
338  "OpenURL" => "2",
339  "Overlay" => "2",
340  "PaintPicture" => "2",
341  "Paste" => "2",
342  "PastSpecialDlg" => "2",
343  "PeekData" => "2",
344  "Play" => "2",
345  "Point" => "2",
346  "PopulatePartial" => "2",
347  "PopupMenu" => "2",
348  "Print" => "2",
349  "PrintForm" => "2",
350  "PropertyChanged" => "2",
351  "PSet" => "2",
352  "Quit" => "2",
353  "Raise" => "2",
354  "RandomDataFill" => "2",
355  "RandomFillColumns" => "2",
356  "RandomFillRows" => "2",
357  "rdoCreateEnvironment" => "2",
358  "rdoRegisterDataSource" => "2",
359  "ReadFromFile" => "2",
360  "ReadProperty" => "2",
361  "Rebind" => "2",
362  "ReFill" => "2",
363  "Refresh" => "2",
364  "RefreshLink" => "2",
365  "RegisterDatabase" => "2",
366  "Reload" => "2",
367  "Remove" => "2",
368  "RemoveAddInFromToolbar" => "2",
369  "RemoveItem" => "2",
370  "Render" => "2",
371  "RepairDatabase" => "2",
372  "Reply" => "2",
373  "ReplyAll" => "2",
374  "Requery" => "2",
375  "ResetCustom" => "2",
376  "ResetCustomLabel" => "2",
377  "ResolveName" => "2",
378  "RestoreToolbar" => "2",
379  "Resync" => "2",
380  "Rollback" => "2",
381  "RollbackTrans" => "2",
382  "RowBookmark" => "2",
383  "RowContaining" => "2",
384  "RowTop" => "2",
385  "Save" => "2",
386  "SaveAs" => "2",
387  "SaveFile" => "2",
388  "SaveToFile" => "2",
389  "SaveToolbar" => "2",
390  "SaveToOle1File" => "2",
391  "Scale" => "2",
392  "ScaleX" => "2",
393  "ScaleY" => "2",
394  "Scroll" => "2",
395  "Select" => "2",
396  "SelectAll" => "2",
397  "SelectPart" => "2",
398  "SelPrint" => "2",
399  "Send" => "2",
400  "SendData" => "2",
401  "Set" => "2",
402  "SetAutoServerSettings" => "2",
403  "SetData" => "2",
404  "SetFocus" => "2",
405  "SetOption" => "2",
406  "SetSize" => "2",
407  "SetText" => "2",
408  "SetViewport" => "2",
409  "Show" => "2",
410  "ShowColor" => "2",
411  "ShowFont" => "2",
412  "ShowHelp" => "2",
413  "ShowOpen" => "2",
414  "ShowPrinter" => "2",
415  "ShowSave" => "2",
416  "ShowWhatsThis" => "2",
417  "SignOff" => "2",
418  "SignOn" => "2",
419  "Size" => "2",
420  "Span" => "2",
421  "SplitContaining" => "2",
422  "StartLabelEdit" => "2",
423  "StartLogging" => "2",
424  "Stop" => "2",
425  "Synchronize" => "2",
426  "TextHeight" => "2",
427  "TextWidth" => "2",
428  "ToDefaults" => "2",
429  "TwipsToChartPart" => "2",
430  "TypeByChartType" => "2",
431  "Update" => "2",
432  "UpdateControls" => "2",
433  "UpdateRecord" => "2",
434  "UpdateRow" => "2",
435  "Upto" => "2",
436  "WhatsThisMode" => "2",
437  "WriteProperty" => "2",
438  "ZOrder" => "2",
439  "AccessKeyPress" => "3",
440  "AfterAddFile" => "3",
441  "AfterChangeFileName" => "3",
442  "AfterCloseFile" => "3",
443  "AfterColEdit" => "3",
444  "AfterColUpdate" => "3",
445  "AfterDelete" => "3",
446  "AfterInsert" => "3",
447  "AfterLabelEdit" => "3",
448  "AfterRemoveFile" => "3",
449  "AfterUpdate" => "3",
450  "AfterWriteFile" => "3",
451  "AmbienChanged" => "3",
452  "ApplyChanges" => "3",
453  "Associate" => "3",
454  "AsyncReadComplete" => "3",
455  "AxisActivated" => "3",
456  "AxisLabelActivated" => "3",
457  "AxisLabelSelected" => "3",
458  "AxisLabelUpdated" => "3",
459  "AxisSelected" => "3",
460  "AxisTitleActivated" => "3",
461  "AxisTitleSelected" => "3",
462  "AxisTitleUpdated" => "3",
463  "AxisUpdated" => "3",
464  "BeforeClick" => "3",
465  "BeforeColEdit" => "3",
466  "BeforeColUpdate" => "3",
467  "BeforeConnect" => "3",
468  "BeforeDelete" => "3",
469  "BeforeInsert" => "3",
470  "BeforeLabelEdit" => "3",
471  "BeforeLoadFile" => "3",
472  "BeforeUpdate" => "3",
473  "ButtonClick" => "3",
474  "ButtonCompleted" => "3",
475  "ButtonGotFocus" => "3",
476  "ButtonLostFocus" => "3",
477  "Change" => "3",
478  "ChartActivated" => "3",
479  "ChartSelected" => "3",
480  "ChartUpdated" => "3",
481  "Click" => "3",
482  "ColEdit" => "3",
483  "Collapse" => "3",
484  "ColResize" => "3",
485  "ColumnClick" => "3",
486  "Compare" => "3",
487  "ConfigChageCancelled" => "3",
488  "ConfigChanged" => "3",
489  "ConnectionRequest" => "3",
490  "DataArrival" => "3",
491  "DataChanged" => "3",
492  "DataUpdated" => "3",
493  "DblClick" => "3",
494  "Deactivate" => "3",
495  "DeviceArrival" => "3",
496  "DeviceOtherEvent" => "3",
497  "DeviceQueryRemove" => "3",
498  "DeviceQueryRemoveFailed" => "3",
499  "DeviceRemoveComplete" => "3",
500  "DeviceRemovePending" => "3",
501  "DevModeChange" => "3",
502  "Disconnect" => "3",
503  "DisplayChanged" => "3",
504  "Dissociate" => "3",
505  "DoGetNewFileName" => "3",
506  "Done" => "3",
507  "DonePainting" => "3",
508  "DownClick" => "3",
509  "DragDrop" => "3",
510  "DragOver" => "3",
511  "DropDown" => "3",
512  "EditProperty" => "3",
513  "EnterCell" => "3",
514  "EnterFocus" => "3",
515  "Event" => "4",
516  "ExitFocus" => "3",
517  "Expand" => "3",
518  "FootnoteActivated" => "3",
519  "FootnoteSelected" => "3",
520  "FootnoteUpdated" => "3",
521  "GotFocus" => "3",
522  "HeadClick" => "3",
523  "InfoMessage" => "3",
524  "Initialize" => "3",
525  "IniProperties" => "3",
526  "ItemActivated" => "3",
527  "ItemAdded" => "3",
528  "ItemCheck" => "3",
529  "ItemClick" => "3",
530  "ItemReloaded" => "3",
531  "ItemRemoved" => "3",
532  "ItemRenamed" => "3",
533  "ItemSeletected" => "3",
534  "KeyDown" => "3",
535  "KeyPress" => "3",
536  "KeyUp" => "3",
537  "LeaveCell" => "3",
538  "LegendActivated" => "3",
539  "LegendSelected" => "3",
540  "LegendUpdated" => "3",
541  "LinkClose" => "3",
542  "LinkError" => "3",
543  "LinkNotify" => "3",
544  "LinkOpen" => "3",
545  "Load" => "3",
546  "LostFocus" => "3",
547  "MouseDown" => "3",
548  "MouseMove" => "3",
549  "MouseUp" => "3",
550  "NodeClick" => "3",
551  "ObjectMove" => "3",
552  "OLECompleteDrag" => "3",
553  "OLEDragDrop" => "3",
554  "OLEDragOver" => "3",
555  "OLEGiveFeedback" => "3",
556  "OLESetData" => "3",
557  "OLEStartDrag" => "3",
558  "OnAddNew" => "3",
559  "OnComm" => "3",
560  "Paint" => "3",
561  "PanelClick" => "3",
562  "PanelDblClick" => "3",
563  "PathChange" => "3",
564  "PatternChange" => "3",
565  "PlotActivated" => "3",
566  "PlotSelected" => "3",
567  "PlotUpdated" => "3",
568  "PointActivated" => "3",
569  "PointLabelActivated" => "3",
570  "PointLabelSelected" => "3",
571  "PointLabelUpdated" => "3",
572  "PointSelected" => "3",
573  "PointUpdated" => "3",
574  "PowerQuerySuspend" => "3",
575  "PowerResume" => "3",
576  "PowerStatusChanged" => "3",
577  "PowerSuspend" => "3",
578  "QueryChangeConfig" => "3",
579  "QueryComplete" => "3",
580  "QueryCompleted" => "3",
581  "QueryTimeout" => "3",
582  "QueryUnload" => "3",
583  "ReadProperties" => "3",
584  "Reposition" => "3",
585  "RequestChangeFileName" => "3",
586  "RequestWriteFile" => "3",
587  "Resize" => "3",
588  "ResultsChanged" => "3",
589  "RowColChange" => "3",
590  "RowCurrencyChange" => "3",
591  "RowResize" => "3",
592  "RowStatusChanged" => "3",
593  "SelChange" => "3",
594  "SelectionChanged" => "3",
595  "SendComplete" => "3",
596  "SendProgress" => "3",
597  "SeriesActivated" => "3",
598  "SeriesSelected" => "3",
599  "SeriesUpdated" => "3",
600  "SettingChanged" => "3",
601  "SplitChange" => "3",
602  "StateChanged" => "3",
603  "StatusUpdate" => "3",
604  "SysColorsChanged" => "3",
605  "Terminate" => "3",
606  "TimeChanged" => "3",
607  "TitleActivated" => "3",
608  "TitleSelected" => "3",
609  "UnboundAddData" => "3",
610  "UnboundDeleteRow" => "3",
611  "UnboundGetRelativeBookmark" => "3",
612  "UnboundReadData" => "3",
613  "UnboundWriteData" => "3",
614  "Unload" => "3",
615  "UpClick" => "3",
616  "Updated" => "3",
617  "Validate" => "3",
618  "ValidationError" => "3",
619  "WillAssociate" => "3",
620  "WillChangeData" => "3",
621  "WillDissociate" => "3",
622  "WillExecute" => "3",
623  "WillUpdateRows" => "3",
624  "WithEvents" => "3",
625  "WriteProperties" => "3",
626  "AppActivate" => "4",
627  "Base" => "4",
628  "Beep" => "4",
629  "Call" => "4",
630  "Case" => "4",
631  "ChDir" => "4",
632  "ChDrive" => "4",
633  "Const" => "4",
634  "Declare" => "4",
635  "DefBool" => "4",
636  "DefByte" => "4",
637  "DefCur" => "4",
638  "DefDate" => "4",
639  "DefDbl" => "4",
640  "DefDec" => "4",
641  "DefInt" => "4",
642  "DefLng" => "4",
643  "DefObj" => "4",
644  "DefSng" => "4",
645  "DefStr" => "4",
646  "Deftype" => "4",
647  "DefVar" => "4",
648  "DeleteSetting" => "4",
649  "Dim" => "4",
650  "Do" => "4",
651  "Else" => "4",
652  "ElseIf" => "4",
653  "End" => "4",
654  "Enum" => "4",
655  "Erase" => "4",
656  "Exit" => "4",
657  "Explicit" => "4",
658  "False" => "4",
659  "FileCopy" => "4",
660  "For" => "4",
661  "ForEach" => "4",
662  "Friend" => "4",
663  "Function" => "4",
664  "Get" => "4",
665  "GoSub" => "4",
666  "GoTo" => "4",
667  "Height" => "4",
668  "If" => "4",
669  "Implements" => "4",
670  "Kill" => "4",
671  "Left" => "4",
672  "Let" => "4",
673  "LineInput" => "4",
674  "Lock" => "4",
675  "Loop" => "4",
676  "LSet" => "4",
677  "MkDir" => "4",
678  "Name" => "4",
679  "Next" => "4",
680  "Not" => "4",
681  "OnError" => "4",
682  "On" => "4",
683  "Option" => "4",
684  "Private" => "4",
685  "Property" => "4",
686  "Public" => "4",
687  "Put" => "4",
688  "RaiseEvent" => "4",
689  "Randomize" => "4",
690  "ReDim" => "4",
691  "Rem" => "4",
692  "Reset" => "4",
693  "Resume" => "4",
694  "Return" => "4",
695  "RmDir" => "4",
696  "RSet" => "4",
697  "SavePicture" => "4",
698  "SaveSetting" => "4",
699  "SendKeys" => "4",
700  "SetAttr" => "4",
701  "Static" => "4",
702  "Sub" => "4",
703  "Then" => "4",
704  "Top" => "4",
705  "True" => "4",
706  "Type" => "4",
707  "Unlock" => "4",
708  "Wend" => "4",
709  "While" => "4",
710  "Width" => "4",
711  "With" => "4",
712  "Write" => "4",
713  "&" => "5");
714 
715 // Special extensions
716 
717 // Each category can specify a PHP function that returns an altered
718 // version of the keyword.
719 
720 
721 
722 $this->linkscripts = array(
723  "1" => "donothing",
724  "2" => "donothing",
725  "3" => "donothing",
726  "4" => "donothing",
727  "5" => "donothing");
728 
729 }
730 
731 
732 
733 function donothing($keywordin)
734 {
735  return $keywordin;
736 }
737 
738 }
739 
740 ?>