6 {
8
9
10
11
12
13
14$this->nocase = "1";
15$this->notrim = "0";
16$this->perl = "0";
17
18
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
26
27$this->indent = array("Then", "Do");
28$this->unindent = array("End", "Next", "End If", "End Select", "Loop");
29
30
31
32$this->stringchars = array("\"");
33$this->delimiters = array("~", "!", "@", "%", "^", "&", "*", "(", ")", "-", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", ">", " ", ",", " ", "?");
34$this->escchar = "";
35
36
37
38$this->linecommenton = array("'");
39$this->blockcommenton = array("/*");
40$this->blockcommentoff = array("*/");
41
42
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
699
700
701
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}