ILIAS  eassessment Revision 61809
 All Data Structures Namespaces Files Functions Variables Groups Pages
HFile_clearbasic.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_clearbasic extends HFile{
6  function HFile_clearbasic(){
7  $this->HFile();
8 /*************************************/
9 // Beautifier Highlighting Configuration File
10 // ClearBasic
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", "gray", "purple", "gray", "brown", "blue", "purple");
21 $this->quotecolour = "blue";
22 $this->blockcommentcolour = "green";
23 $this->linecommentcolour = "green";
24 
25 // Indent Strings
26 
27 $this->indent = array("Then", "Do");
28 $this->unindent = array("End", "Next", "End If", "End Select", "Loop");
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  "AppMenu" => "1",
46  "Boolean" => "1",
47  "BulkRetrieve" => "1",
48  "BulkSave" => "1",
49  "Form" => "1",
50  "Integer" => "7",
51  "List" => "1",
52  "Long" => "7",
53  "Record" => "1",
54  "SQLDB" => "1",
55  "String" => "7",
56  "AND" => "2",
57  "As" => "2",
58  "ByRef" => "2",
59  "ByVal" => "2",
60  "Case" => "2",
61  "Declare" => "2",
62  "Dim" => "2",
63  "Else" => "2",
64  "ElseIf" => "2",
65  "End" => "2",
66  "For" => "2",
67  "Function" => "2",
68  "Global" => "2",
69  "If" => "2",
70  "Next" => "2",
71  "New" => "2",
72  "NOT" => "2",
73  "OR" => "2",
74  "Sub" => "2",
75  "Select" => "2",
76  "Set" => "2",
77  "Step" => "2",
78  "To" => "2",
79  "Type" => "2",
80  "Then" => "2",
81  "While" => "2",
82  "cbAbortRetryIgnore" => "3",
83  "cbAscending" => "3",
84  "cbByRef" => "3",
85  "cbByValue" => "3",
86  "cbCloseChildren" => "3",
87  "cbCloseMessage" => "3",
88  "cbDescending" => "3",
89  "cbDefClosedWindow" => "3",
90  "cbEqual" => "3",
91  "cbFirstMessage" => "3",
92  "cbFrontIfUp" => "3",
93  "cbGreater" => "3",
94  "cbGreaterorEqual" => "3",
95  "cbIdAbort" => "3",
96  "cbIdCancel" => "3",
97  "cbIdDiscard" => "3",
98  "cbIdIgnore" => "3",
99  "cbIdNo" => "3",
100  "cbIdOK" => "3",
101  "cbIdRetry" => "3",
102  "cbIdSave" => "3",
103  "cbIdYes" => "3",
104  "cbIn" => "3",
105  "cbLess" => "3",
106  "cbLessOrEqual" => "3",
107  "cbLike" => "3",
108  "cbNoDefault" => "3",
109  "cbNotEqual" => "3",
110  "cbNotLike" => "3",
111  "cbOK" => "3",
112  "cbOKCancel" => "3",
113  "cbRefreshMessage" => "3",
114  "cbRetryCancel" => "3",
115  "cbSaveDiscardCancel" => "3",
116  "cbSoundsLike" => "3",
117  "cbYesNo" => "3",
118  "cbYesNoCancel" => "3",
119  "ebCritical" => "3",
120  "ebExclamation" => "3",
121  "ebInformation" => "3",
122  "ebQuestion" => "3",
123  "ebApplicationModal" => "3",
124  "ebSystemModal" => "3",
125  "False" => "3",
126  "True" => "3",
127  "*" => "4",
128  "+" => "4",
129  "-" => "4",
130  "." => "4",
131  "/" => "4",
132  ":" => "4",
133  "<" => "4",
134  "<=" => "4",
135  "=" => "4",
136  ">" => "4",
137  ">=" => "4",
138  "&" => "4",
139  "AddItem" => "5",
140  "AllSpaces" => "5",
141  "AllowDuplicates" => "5",
142  "AppendFilter" => "5",
143  "AppendItem" => "5",
144  "AppendSeparator" => "5",
145  "AppendSort" => "5",
146  "Caption" => "5",
147  "CancelRecord" => "5",
148  "ChangeRecord" => "5",
149  "ChangeToNew" => "5",
150  "Clear" => "5",
151  "Close" => "5",
152  "CLTransition" => "5",
153  "ColorCells" => "5",
154  "Concat" => "5",
155  "Connect" => "5",
156  "Contains" => "5",
157  "Contents" => "5",
158  "Copy" => "5",
159  "CopyFields" => "5",
160  "Count" => "5",
161  "CountByType" => "5",
162  "CreateColorScheme" => "5",
163  "DeleteRecord" => "5",
164  "DeleteRecordById" => "5",
165  "DisableControls" => "5",
166  "DisableControlsDeep" => "5",
167  "Disconnect" => "5",
168  "DoDefault" => "5",
169  "Down" => "5",
170  "EmployeeObjid" => "5",
171  "Empty" => "5",
172  "Enable" => "5",
173  "EnableControlDeep" => "5",
174  "EnableControls" => "5",
175  "EndDoc" => "5",
176  "EntryCount" => "5",
177  "Execute" => "5",
178  "ExecuteCB" => "5",
179  "ExecuteMenu" => "5",
180  "ExecuteProc" => "5",
181  "ExitApp" => "5",
182  "ExtractList" => "5",
183  "Fill" => "5",
184  "FindFirstIndex" => "5",
185  "ForceRedraw" => "5",
186  "Format" => "5",
187  "GetByIndex" => "5",
188  "GetContents" => "5",
189  "GetContext" => "5",
190  "GetControlByName" => "5",
191  "GetCurrentDB" => "5",
192  "GetField" => "5",
193  "GetFormat" => "5",
194  "GetFormInstance" => "5",
195  "GetItemByIndex" => "5",
196  "GetList" => "5",
197  "GetRecordByIndex" => "5",
198  "GetRecordList" => "5",
199  "GetRelatedRecordList" => "5",
200  "GetSelected" => "5",
201  "GetString" => "5",
202  "GetText" => "5",
203  "InputBox" => "5",
204  "InsertRecord" => "5",
205  "IsDirty" => "5",
206  "IsEnabled" => "5",
207  "IsExactly" => "5",
208  "IsNew" => "5",
209  "ItemType" => "5",
210  "ItemByIndex" => "5",
211  "Line" => "5",
212  "ListByIndex" => "5",
213  "Login" => "5",
214  "Logout" => "5",
215  "LogSQL" => "5",
216  "Move" => "5",
217  "MsgBox" => "5",
218  "NewPage" => "5",
219  "Notify" => "5",
220  "NotifyById" => "5",
221  "NotifyByKey" => "5",
222  "NotifyChild" => "5",
223  "NotifyParent" => "5",
224  "NotifyTab" => "5",
225  "NotifyTabParent" => "5",
226  "Print" => "5",
227  "RecordType" => "5",
228  "Refresh" => "5",
229  "RelateRecords" => "5",
230  "RelateRecordsFromID" => "5",
231  "RelateRecordsFromToID" => "5",
232  "RelateRecordsToID" => "5",
233  "RemoveByIndex" => "5",
234  "RemoveByItem" => "5",
235  "RemoveItem" => "5",
236  "RemoveSelected" => "5",
237  "RenameItem" => "5",
238  "ReplaceByIndex" => "5",
239  "ReplaceItem" => "5",
240  "RetrieveRecords" => "5",
241  "Save" => "5",
242  "SelectedIndexes" => "5",
243  "SelectedList" => "5",
244  "SetCellColoring" => "5",
245  "SetColorScheme" => "5",
246  "SetField" => "5",
247  "SetFocus" => "5",
248  "SetFunction" => "5",
249  "SetParent" => "5",
250  "SetRoot" => "5",
251  "SetRootById" => "5",
252  "SetSelected" => "5",
253  "SetText" => "5",
254  "SetValue" => "5",
255  "Show" => "5",
256  "ShowAttachments" => "5",
257  "ShowCase" => "5",
258  "ShowContact" => "5",
259  "ShowContract" => "5",
260  "ShowControls" => "5",
261  "ShowControlsDeep" => "5",
262  "ShowCR" => "5",
263  "ShowDebugWindow" => "5",
264  "ShowDefaultMenu" => "5",
265  "ShowEmployee" => "5",
266  "ShowFTS" => "5",
267  "ShowSelect" => "5",
268  "ShowSite" => "5",
269  "ShowSubcase" => "5",
270  "SimpleQuery" => "5",
271  "Sort" => "5",
272  "TextHeight" => "5",
273  "TextWidth" => "5",
274  "TransferPart" => "5",
275  "TraverseFromParent" => "5",
276  "TraverseFromRoot" => "5",
277  "UnrelateRecords" => "5",
278  "Unselect" => "5",
279  "Up" => "5",
280  "UpdateRecord" => "5",
281  "UserName" => "5",
282  "UserObjid" => "5",
283  "Value" => "5",
284  "App" => "6",
285  "Basic" => "6",
286  "Debug" => "6",
287  "Err" => "6",
288  "Me" => "6",
289  "Msg" => "6",
290  "Net" => "6",
291  "Printer" => "6",
292  "System" => "6",
293  "Abs" => "7",
294  "ActivateControl" => "7",
295  "AddCon" => "7",
296  "AnswerBox" => "7",
297  "AppActivate" => "7",
298  "AppClose" => "7",
299  "AppFileName" => "7",
300  "AppFind" => "7",
301  "AppGetActive" => "7",
302  "AppGetPosition" => "7",
303  "AppGetState" => "7",
304  "AppHide" => "7",
305  "AppList" => "7",
306  "AppMaximize" => "7",
307  "AppMinimize" => "7",
308  "AppMove" => "7",
309  "AppRestore" => "7",
310  "AppSetState" => "7",
311  "AppShow" => "7",
312  "AppSize" => "7",
313  "AppType" => "7",
314  "Architecture" => "7",
315  "ArrangeIcons" => "7",
316  "ArrayDims" => "7",
317  "Arrays" => "7",
318  "ArraySort" => "7",
319  "Asc" => "7",
320  "AscB" => "7",
321  "AscW" => "7",
322  "AskBox" => "7",
323  "AskPasssword" => "7",
324  "Atn" => "7",
325  "Base" => "7",
326  "BasicScript" => "7",
327  "Beep" => "7",
328  "Begin" => "7",
329  "Dialog" => "7",
330  "Browse" => "7",
331  "ButtonEnabled" => "7",
332  "ButtonExists" => "7",
333  "Call" => "7",
334  "CancelCon" => "7",
335  "Capability" => "7",
336  "Cascade" => "7",
337  "CBool" => "7",
338  "CCur" => "7",
339  "CDate" => "7",
340  "CDbl" => "7",
341  "ChDir" => "7",
342  "ChDrive" => "7",
343  "CheckBox" => "7",
344  "CheckBoxEnabled" => "7",
345  "CheckBoxExists" => "7",
346  "Choose" => "7",
347  "Chr" => "7",
348  "ChrB" => "7",
349  "ChrW" => "7",
350  "CInt" => "7",
351  "CLng" => "7",
352  "CodePage" => "7",
353  "ComboBox" => "7",
354  "ComboBoxEnabled" => "7",
355  "ComboBoxExists" => "7",
356  "Command" => "7",
357  "Comments" => "7",
358  "Compare" => "7",
359  "Const" => "7",
360  "Conversion" => "7",
361  "Cos" => "7",
362  "CreateObject" => "7",
363  "CSng" => "7",
364  "CStr" => "7",
365  "CStrings" => "7",
366  "CurDir" => "7",
367  "Currency" => "7",
368  "CVar" => "7",
369  "CVDate" => "7",
370  "CVErr" => "7",
371  "Date" => "7",
372  "DateAdd" => "7",
373  "DateDiff" => "7",
374  "DatePart" => "7",
375  "DateSerial" => "7",
376  "DateValue" => "7",
377  "Day" => "7",
378  "DDB" => "7",
379  "DDEExecute" => "7",
380  "DDEInitate" => "7",
381  "DDEPoke" => "7",
382  "DDERequest" => "7",
383  "DDESend" => "7",
384  "DDETermiateAll" => "7",
385  "DDETerminate" => "7",
386  "DDETimeOut" => "7",
387  "Default" => "7",
388  "DefBool" => "7",
389  "DefCur" => "7",
390  "DefDate" => "7",
391  "DefDbl" => "7",
392  "DefInt" => "7",
393  "DefLng" => "7",
394  "DefObj" => "7",
395  "DefSng" => "7",
396  "DefStr" => "7",
397  "DefVar" => "7",
398  "DeleteSettings" => "7",
399  "Description" => "7",
400  "Dir" => "7",
401  "DiskDrives" => "7",
402  "DiskFree" => "7",
403  "DlgBaseUnitsX" => "7",
404  "DlgBaseUnitsY" => "7",
405  "DlgCaption" => "7",
406  "DlgControlID" => "7",
407  "DlgEnable" => "7",
408  "DlgFocus" => "7",
409  "DlgListBoxArray" => "7",
410  "DlgSetPicture" => "7",
411  "DlgText" => "7",
412  "DlgValue" => "7",
413  "DlgVisible" => "7",
414  "Do" => "7",
415  "DoEvents" => "7",
416  "DoKeys" => "7",
417  "Double" => "7",
418  "DropListBox" => "7",
419  "EditEnabled" => "7",
420  "EditExists" => "7",
421  "Environ" => "7",
422  "Eof" => "7",
423  "Eoln$" => "7",
424  "Eqv" => "7",
425  "Erase" => "7",
426  "Erl" => "7",
427  "Error" => "7",
428  "Exit" => "7",
429  "Exp" => "7",
430  "Explicit" => "7",
431  "FileAttr" => "7",
432  "FileCopy" => "7",
433  "FileDateTime" => "7",
434  "FileDirs" => "7",
435  "FileExists" => "7",
436  "FileLen" => "7",
437  "FileList" => "7",
438  "FileParse" => "7",
439  "FileType" => "7",
440  "Financial" => "7",
441  "Fix" => "7",
442  "FreeFile" => "7",
443  "FreeMemory" => "7",
444  "FreeResources" => "7",
445  "FV" => "7",
446  "Get" => "7",
447  "GetAllSettings" => "7",
448  "GetAttr" => "7",
449  "GetCaps" => "7",
450  "GetCheckBox" => "7",
451  "GetComboBoxItem" => "7",
452  "GetComboBoxItemCount" => "7",
453  "GetCon" => "7",
454  "GetEditText" => "7",
455  "GetListBoxItem" => "7",
456  "GetListBoxItemCount" => "7",
457  "GetObject" => "7",
458  "GetOption" => "7",
459  "GetSetting" => "7",
460  "GoSub" => "7",
461  "Goto" => "7",
462  "GroupBox" => "7",
463  "Height" => "7",
464  "HelpContext" => "7",
465  "HelpFIle" => "7",
466  "Hex" => "7",
467  "HLine" => "7",
468  "HomeDir" => "7",
469  "Hour" => "7",
470  "HPage" => "7",
471  "HScroll" => "7",
472  "HWND" => "7",
473  "IIf" => "7",
474  "IMEStatus" => "7",
475  "Imp" => "7",
476  "Inline" => "7",
477  "Input" => "7",
478  "InputB" => "7",
479  "InStr" => "7",
480  "InStrB" => "7",
481  "Int" => "7",
482  "IPmt" => "7",
483  "IRR" => "7",
484  "Is" => "7",
485  "IsDate" => "7",
486  "IsEmpty" => "7",
487  "IsError" => "7",
488  "IsMissing" => "7",
489  "IsNull" => "7",
490  "IsNumeric" => "7",
491  "IsObject" => "7",
492  "Item" => "7",
493  "ItemCount" => "7",
494  "Kill" => "7",
495  "LastDLLError" => "7",
496  "LBound" => "7",
497  "LCase" => "7",
498  "Left" => "7",
499  "LeftB" => "7",
500  "Len" => "7",
501  "LenB" => "7",
502  "Let" => "7",
503  "Like" => "7",
504  "LineCount" => "7",
505  "ListBox" => "7",
506  "ListBoxEnabled" => "7",
507  "ListBoxExists" => "7",
508  "Loc" => "7",
509  "Locale" => "7",
510  "Lock" => "7",
511  "Lof" => "7",
512  "Log" => "7",
513  "Loop" => "7",
514  "LSet" => "7",
515  "LTrim" => "7",
516  "MacID" => "7",
517  "MacScript" => "7",
518  "Main" => "7",
519  "Mci" => "7",
520  "Menu" => "7",
521  "MenuItemChecked" => "7",
522  "MenuItemEnabled" => "7",
523  "MenuItemExists" => "7",
524  "Mid" => "7",
525  "MidB" => "7",
526  "Minute" => "7",
527  "MIRR" => "7",
528  "Miscellaneous" => "7",
529  "MkDir" => "7",
530  "Mod" => "7",
531  "Month" => "7",
532  "MouseTrails" => "7",
533  "Msg.Close" => "7",
534  "Msg.Open" => "7",
535  "Msg.SetText" => "7",
536  "Msg.SetThermometer" => "7",
537  "Name" => "7",
538  "Networks" => "7",
539  "Nothing" => "7",
540  "Now" => "7",
541  "NPer" => "7",
542  "NPV" => "7",
543  "Number" => "7",
544  "Oct" => "7",
545  "On" => "7",
546  "Open" => "7",
547  "OpenFilename" => "7",
548  "OperatingSystem" => "7",
549  "OperatingSystemVendor" => "7",
550  "OperatingSystemVersion" => "7",
551  "Option" => "7",
552  "OptionButton" => "7",
553  "OptionEnabled" => "7",
554  "OptionExists" => "7",
555  "OptionGroup" => "7",
556  "OS" => "7",
557  "PathSeparator" => "7",
558  "Picture" => "7",
559  "PictureButton" => "7",
560  "Pmt" => "7",
561  "PopupMenu" => "7",
562  "PPmt" => "7",
563  "Predefined" => "7",
564  "PrinterGetOrientation" => "7",
565  "PrinterSetOrientation" => "7",
566  "PrintFile" => "7",
567  "Printing" => "7",
568  "Private" => "7",
569  "Processor" => "7",
570  "ProcessorCount" => "7",
571  "Public" => "7",
572  "PushButton" => "7",
573  "Put" => "7",
574  "PV" => "7",
575  "QueEmpty" => "7",
576  "QueFlush" => "7",
577  "QueKeyDn" => "7",
578  "QueKeys" => "7",
579  "QueKeyUp" => "7",
580  "QueMouseClick" => "7",
581  "QueMouseDblClick" => "7",
582  "QueMouseDblDn" => "7",
583  "QueMouseDn" => "7",
584  "QueMouseMove" => "7",
585  "QueMouseMoveBatch" => "7",
586  "QueMouseUp" => "7",
587  "QueSetRelativeWindow" => "7",
588  "Raise" => "7",
589  "Random" => "7",
590  "Randomize" => "7",
591  "Rate" => "7",
592  "ReadIni" => "7",
593  "ReadIniSection" => "7",
594  "ReDim" => "7",
595  "Reset" => "7",
596  "Restart" => "7",
597  "Resume" => "7",
598  "Return" => "7",
599  "Right" => "7",
600  "RightB" => "7",
601  "RmDir" => "7",
602  "Rnd" => "7",
603  "RSet" => "7",
604  "RTrim" => "7",
605  "SaveFilename" => "7",
606  "SaveSetting" => "7",
607  "Second" => "7",
608  "Seek" => "7",
609  "statement" => "7",
610  "SelectBox" => "7",
611  "SelectButton" => "7",
612  "SelectComboBoxItem" => "7",
613  "SelectListBoxItem" => "7",
614  "SendKeys" => "7",
615  "SetAttr" => "7",
616  "SetCheckBox" => "7",
617  "SetColors" => "7",
618  "SetEditText" => "7",
619  "SetOption" => "7",
620  "SetWallpaper" => "7",
621  "Sgn" => "7",
622  "Shell" => "7",
623  "Sin" => "7",
624  "Single" => "7",
625  "Sleep" => "7",
626  "SLN" => "7",
627  "SnaHFileot" => "7",
628  "Source" => "7",
629  "Space" => "7",
630  "Spc" => "7",
631  "SQLBind" => "7",
632  "SQLClose" => "7",
633  "SQLError" => "7",
634  "SQLExecQuery" => "7",
635  "SQLGetSchema" => "7",
636  "SQLOpen" => "7",
637  "SQLRequest" => "7",
638  "SQLRetrieve" => "7",
639  "SQLRetrieveToFile" => "7",
640  "Sqr" => "7",
641  "Stop" => "7",
642  "Str" => "7",
643  "StrComp" => "7",
644  "StrConv" => "7",
645  "Switch" => "7",
646  "SYD" => "7",
647  "Tab" => "7",
648  "Tan" => "7",
649  "Text" => "7",
650  "TextBox" => "7",
651  "Tile" => "7",
652  "Time" => "7",
653  "Timer" => "7",
654  "TimeSerial" => "7",
655  "TimeValue" => "7",
656  "TotalMemory" => "7",
657  "Trim" => "7",
658  "TwipsPerPixelX" => "7",
659  "TwipsPerPixelY" => "7",
660  "UBound" => "7",
661  "UCase" => "7",
662  "Unlock" => "7",
663  "User" => "7",
664  "Val" => "7",
665  "Variants" => "7",
666  "Varient" => "7",
667  "VarType" => "7",
668  "Version" => "7",
669  "Viewport" => "7",
670  "ViewportClear" => "7",
671  "ViewportClose" => "7",
672  "ViewportOpen" => "7",
673  "VLine" => "7",
674  "VPage" => "7",
675  "VScroll" => "7",
676  "Weekday" => "7",
677  "Wend" => "7",
678  "Width" => "7",
679  "Width#" => "7",
680  "WinActivate" => "7",
681  "WinClose" => "7",
682  "WindowsDirectory" => "7",
683  "WindowsVersion" => "7",
684  "WinFind" => "7",
685  "WinList" => "7",
686  "WinMaximize" => "7",
687  "WinMinimize" => "7",
688  "WinMove" => "7",
689  "WinRestore" => "7",
690  "WinSize" => "7",
691  "Word" => "7",
692  "WordCount" => "7",
693  "Write" => "7",
694  "WriteIni" => "7",
695  "Xor" => "7",
696  "Year" => "7");
697 
698 // Special extensions
699 
700 // Each category can specify a PHP function that returns an altered
701 // version of the keyword.
702 
703 
704 
705 $this->linkscripts = array(
706  "1" => "donothing",
707  "7" => "donothing",
708  "2" => "donothing",
709  "3" => "donothing",
710  "4" => "donothing",
711  "5" => "donothing",
712  "6" => "donothing");
713 }
714 
715 
716 function donothing($keywordin)
717 {
718  return $keywordin;
719 }
720 
721 }?>