File Coverage

blib/lib/Syntax/Highlight/Engine/Kate/Progress.pm
Criterion Covered Total %
statement 32 111 28.8
branch 0 70 0.0
condition 1 3 33.3
subroutine 4 9 44.4
pod 0 6 0.0
total 37 199 18.5


line stmt bran cond sub pod time code
1             # Copyright (c) 2005 - 2006 Hans Jeuken. All rights reserved.
2             # This program is free software; you can redistribute it and/or
3             # modify it under the same terms as Perl itself.
4              
5             # This file was generated from the 'progress.xml' file of the syntax highlight
6             # engine of the kate text editor (http://www.kate-editor.org
7              
8             #kate xml version 1.08
9             #kate version 2.4
10             #kate author Rares Stanciulescu (rstanciu@operamail.com)
11             #generated: Sun Feb 3 22:02:06 2008, localtime
12              
13             package Syntax::Highlight::Engine::Kate::Progress;
14              
15             our $VERSION = '0.14';
16              
17 1     1   558 use strict;
  1         2  
  1         23  
18 1     1   5 use warnings;
  1         2  
  1         38  
19 1     1   6 use base('Syntax::Highlight::Engine::Kate::Template');
  1         2  
  1         2156  
20              
21             sub new {
22 1     1 0 847 my $proto = shift;
23 1   33     5 my $class = ref($proto) || $proto;
24 1         6 my $self = $class->SUPER::new(@_);
25 1         15 $self->attributes({
26             'Alert' => 'Alert',
27             'Attributes' => 'DataType',
28             'Comment' => 'Comment',
29             'Data_Type' => 'DataType',
30             'Decimal' => 'DecVal',
31             'Function' => 'Function',
32             'Handles' => 'DecVal',
33             'Identifier' => 'Others',
34             'Integer' => 'BaseN',
35             'Methods' => 'Others',
36             'Normal Text' => 'Normal',
37             'Operators' => 'DecVal',
38             'Phrases' => 'Keyword',
39             'Preprocvar' => 'Char',
40             'Properties' => 'Others',
41             'Region Marker' => 'RegionMarker',
42             'Statements' => 'Keyword',
43             'String' => 'String',
44             'String Char' => 'Char',
45             'Symbol' => 'Char',
46             'Widgets' => 'Keyword',
47             });
48 1         12 $self->listAdd('attributes',
49             'ACCELERATOR',
50             'ACTIVE',
51             'ACTOR',
52             'ADM-DATA',
53             'AFTER-BUFFER',
54             'AFTER-ROWID',
55             'AFTER-TABLE',
56             'ALLOW-COLUMN-SEARCHING',
57             'ALWAYS-ON-TOP',
58             'AMBIGUOUS',
59             'APPL-ALERT-BOXES',
60             'APPSERVER-INFO',
61             'APPSERVER-PASSWORD',
62             'APPSERVER-USERID',
63             'ASYNC-REQUEST-COUNT',
64             'ASYNC-REQUEST-HANDLE',
65             'ASYNCHRONOUS',
66             'ATTR-SPACE',
67             'ATTRIBUTE-NAMES',
68             'AUTO-COMPLETION',
69             'AUTO-DELETE',
70             'AUTO-ENDKEY',
71             'AUTO-GO',
72             'AUTO-INDENT',
73             'AUTO-RESIZE',
74             'AUTO-RETURN',
75             'AUTO-VALIDATE',
76             'AUTO-ZAP',
77             'AVAILABLE',
78             'AVAILABLE-FORMATS',
79             'BACKGROUND',
80             'BASE-ADE',
81             'BASIC-LOGGING',
82             'BATCH-MODE',
83             'BEFORE-BUFFER',
84             'BEFORE-ROWID',
85             'BEFORE-TABLE',
86             'BGCOLOR',
87             'BLANK',
88             'BLOCK-ITERATION-DISPLAY',
89             'BORDER-BOTTOM-CHARS',
90             'BORDER-BOTTOM-PIXELS',
91             'BORDER-LEFT-CHARS',
92             'BORDER-LEFT-PIXELS',
93             'BORDER-RIGHT-CHARS',
94             'BORDER-RIGHT-PIXELS',
95             'BORDER-TOP-CHARS',
96             'BORDER-TOP-PIXELS',
97             'BOX',
98             'BOX-SELECTABLE',
99             'BUFFER-CHARS',
100             'BUFFER-FIELD',
101             'BUFFER-HANDLE',
102             'BUFFER-LINES',
103             'BUFFER-NAME',
104             'BUFFER-VALUE',
105             'BYTES-READ',
106             'BYTES-WRITTEN',
107             'CACHE',
108             'CALL-NAME',
109             'CALL-TYPE',
110             'CAN-CREATE',
111             'CAN-DELETE',
112             'CAN-READ',
113             'CAN-WRITE',
114             'CANCEL-BUTTON',
115             'CANCELLED',
116             'CAREFUL-PAINT',
117             'CASE-SENSITIVE',
118             'CENTERED',
119             'CHARSET',
120             'CHECKED',
121             'CHILD-BUFFER',
122             'CHILD-NUM',
123             'CLIENT-CONNECTION-ID',
124             'CLIENT-TYPE',
125             'CODE',
126             'CODEPAGE',
127             'COL',
128             'COLUMN',
129             'COLUMN-BGCOLOR',
130             'COLUMN-DCOLOR',
131             'COLUMN-FGCOLOR',
132             'COLUMN-FONT',
133             'COLUMN-LABEL',
134             'COLUMN-MOVABLE',
135             'COLUMN-PFCOLOR',
136             'COLUMN-READ-ONLY',
137             'COLUMN-RESIZABLE',
138             'COLUMN-SCROLLING',
139             'COM-HANDLE',
140             'COMPLETE',
141             'CONTEXT-HELP',
142             'CONTEXT-HELP-FILE',
143             'CONTEXT-HELP-ID',
144             'CONTROL-BOX',
145             'CONVERT-D-COLORS',
146             'CPCASE',
147             'CPCOLL',
148             'CPINTERNAL',
149             'CPLOG',
150             'CPPRINT',
151             'CPRCODEIN',
152             'CPRCODEOUT',
153             'CPSTREAM',
154             'CPTERM',
155             'CRC-VALUE',
156             'CURRENT-CHANGED',
157             'CURRENT-COLUMN',
158             'CURRENT-ITERATION',
159             'CURRENT-RESULT-ROW',
160             'CURRENT-ROW-MODIFIED',
161             'CURRENT-WINDOW',
162             'CURSOR-CHAR',
163             'CURSOR-LINE',
164             'CURSOR-OFFSET',
165             'DATA-ENTRY-RETURN',
166             'DATA-SOURCE',
167             'DATA-TYPE',
168             'DATASET',
169             'DATE-FORMAT',
170             'DB-REFERENCES',
171             'DBNAME',
172             'DCOLOR',
173             'DDE-ERROR',
174             'DDE-ID',
175             'DDE-ITEM',
176             'DDE-NAME',
177             'DDE-TOPIC',
178             'DEBLANK',
179             'DEBUG-ALERT',
180             'DECIMALS',
181             'DEFAULT',
182             'DEFAULT-BUFFER-HANDLE',
183             'DEFAULT-BUTTON',
184             'DEFAULT-COMMIT',
185             'DELIMITER',
186             'DISABLE-AUTO-ZAP',
187             'DISPLAY',
188             'DISPLAY-TIMEZONE',
189             'DISPLAY-TYPE',
190             'DOWN',
191             'DRAG-ENABLED',
192             'DROP-TARGET',
193             'DYNAMIC',
194             'EDGE-CHARS',
195             'EDGE-PIXELS',
196             'EDIT-CAN-PASTE',
197             'EDIT-CAN-UNDO',
198             'EMPTY',
199             'ENCODING',
200             'END-USER-PROMPT',
201             'ENTRY-TYPES-LIST',
202             'ERROR',
203             'ERROR-COLUMN',
204             'ERROR-OBJECT-DETAIL',
205             'ERROR-ROW',
206             'ERROR-STRING',
207             'EVENT-PROCEDURE',
208             'EVENT-PROCEDURE-CONTEXT',
209             'EVENT-TYPE',
210             'EXPAND',
211             'EXPANDABLE',
212             'EXTENT',
213             'FGCOLOR',
214             'FILE-CREATE-DATE',
215             'FILE-CREATE-TIME',
216             'FILE-MOD-DATE',
217             'FILE-MOD-TIME',
218             'FILE-NAME',
219             'FILE-OFFSET',
220             'FILE-SIZE',
221             'FILE-TYPE',
222             'FILL-MODE',
223             'FILL-WHERE-STRING',
224             'FILLED',
225             'FIRST-ASYNC-REQUEST',
226             'FIRST-BUFFER',
227             'FIRST-CHILD',
228             'FIRST-COLUMN',
229             'FIRST-DATA-SOURCE',
230             'FIRST-DATASET',
231             'FIRST-PROCEDURE',
232             'FIRST-QUERY',
233             'FIRST-SERVER',
234             'FIRST-SERVER-SOCKET',
235             'FIRST-SOCKET',
236             'FIRST-TAB-ITEM',
237             'FIT-LAST-COLUMN',
238             'FLAT-BUTTON',
239             'FOCUSED-ROW',
240             'FOCUSED-ROW-SELECTED',
241             'FONT',
242             'FOREGROUND',
243             'FORMAT',
244             'FORWARD-ONLY',
245             'FRAME',
246             'FRAME-COL',
247             'FRAME-NAME',
248             'FRAME-ROW',
249             'FRAME-SPACING',
250             'FRAME-X',
251             'FRAME-Y',
252             'FREQUENCY',
253             'FULL-HEIGHT-CHARS',
254             'FULL-HEIGHT-PIXELS',
255             'FULL-PATHNAME',
256             'FULL-WIDTH-CHARS',
257             'FULL-WIDTH-PIXELS',
258             'GRAPHIC-EDGE',
259             'GRID-FACTOR-HORIZONTAL',
260             'GRID-FACTOR-VERTICAL',
261             'GRID-SNAP',
262             'GRID-UNIT-HEIGHT-CHARS',
263             'GRID-UNIT-HEIGHT-PIXELS',
264             'GRID-UNIT-WIDTH-CHARS',
265             'GRID-UNIT-WIDTH-PIXELS',
266             'GRID-VISIBLE',
267             'HANDLER',
268             'HAS-LOBS',
269             'HAS-RECORDS',
270             'HEIGHT-CHARS',
271             'HEIGHT-PIXELS',
272             'HELP',
273             'HIDDEN',
274             'HORIZONTAL',
275             'HTML-CHARSET',
276             'HWND',
277             'ICFPARAMETER',
278             'ICON',
279             'IGNORE-CURRENT-MODIFIED',
280             'IMAGE',
281             'IMAGE-DOWN',
282             'IMAGE-INSENSITIVE',
283             'IMAGE-UP',
284             'IMMEDIATE-DISPLAY',
285             'IN-HANDLE',
286             'INDEX',
287             'INDEX-INFORMATION',
288             'INIT',
289             'INITIAL',
290             'INNER-CHARS',
291             'INNER-LINES',
292             'INPUT-VALUE',
293             'INSTANTIATING-PROCEDURE',
294             'INTERNAL-ENTRIES',
295             'IS-OPEN',
296             'IS-PARAMETER-SET',
297             'ITEMS-PER-ROW',
298             'KEEP-CONNECTION-OPEN',
299             'KEEP-FRAME-Z-ORDER',
300             'KEEP-SECURITY-CACHE',
301             'KEY',
302             'LABEL',
303             'LABEL-BGCOLOR',
304             'LABEL-DCOLOR',
305             'LABEL-FGCOLOR',
306             'LABEL-FONT',
307             'LABELS',
308             'LANGUAGES',
309             'LARGE',
310             'LARGE-TO-SMALL',
311             'LAST-ASYNC-REQUEST',
312             'LAST-CHILD',
313             'LAST-PROCEDURE',
314             'LAST-SERVER',
315             'LAST-SERVER-SOCKET',
316             'LAST-SOCKET',
317             'LAST-TAB-ITEM',
318             'LENGTH',
319             'LINE',
320             'LIST-ITEM-PAIRS',
321             'LIST-ITEMS',
322             'LITERAL-QUESTION',
323             'LOCAL-HOST',
324             'LOCAL-NAME',
325             'LOCAL-PORT',
326             'LOCATOR-COLUMN-NUMBER',
327             'LOCATOR-LINE-NUMBER',
328             'LOCATOR-PUBLIC-ID',
329             'LOCATOR-SYSTEM-ID',
330             'LOCATOR-TYPE',
331             'LOCKED',
332             'LOG-ENTRY-TYPES',
333             'LOG-THRESHOLD',
334             'LOGFILE-NAME',
335             'LOGGING-LEVEL',
336             'MANDATORY',
337             'MANUAL-HIGHLIGHT',
338             'MAX-BUTTON',
339             'MAX-CHARS',
340             'MAX-DATA-GUESS',
341             'MAX-HEIGHT-CHARS',
342             'MAX-HEIGHT-PIXELS',
343             'MAX-VALUE',
344             'MAX-WIDTH-CHARS',
345             'MAX-WIDTH-PIXELS',
346             'MD-VALUE',
347             'MENU-BAR',
348             'MENU-KEY',
349             'MENU-MOUSE',
350             'MESSAGE-AREA',
351             'MESSAGE-AREA-FONT',
352             'MIN-BUTTON',
353             'MIN-COLUMN-WIDTH-CHARS',
354             'MIN-COLUMN-WIDTH-PIXELS',
355             'MIN-HEIGHT-CHARS',
356             'MIN-HEIGHT-PIXELS',
357             'MIN-SCHEMA-MARSHAL',
358             'MIN-VALUE',
359             'MIN-WIDTH-CHARS',
360             'MIN-WIDTH-PIXELS',
361             'MODIFIED',
362             'MOUSE-POINTER',
363             'MOVABLE',
364             'MULTIPLE',
365             'MULTITASKING-INTERVAL',
366             'MUST-UNDERSTAND',
367             'NAME',
368             'NAMESPACE-PREFIX',
369             'NAMESPACE-URI',
370             'NEEDS-APPSERVER-PROMPT',
371             'NEEDS-PROMPT',
372             'NEW',
373             'NEW-ROW',
374             'NEXT-COLUMN',
375             'NEXT-SIBLING',
376             'NEXT-TAB-ITEM',
377             'NO-CURRENT-VALUE',
378             'NO-EMPTY-SPACE',
379             'NO-FOCUS',
380             'NO-SCHEMA-MARSHAL',
381             'NO-VALIDATE',
382             'NODE-VALUE',
383             'NUM-BUFFERS',
384             'NUM-BUTTONS',
385             'NUM-CHILD-RELATIONS',
386             'NUM-CHILDREN',
387             'NUM-COLUMNS',
388             'NUM-DROPPED-FILES',
389             'NUM-ENTRIES',
390             'NUM-FIELDS',
391             'NUM-FORMATS',
392             'NUM-HEADER-ENTRIES',
393             'NUM-ITEMS',
394             'NUM-ITERATIONS',
395             'NUM-LINES',
396             'NUM-LOCKED-COLUMNS',
397             'NUM-LOG-FILES',
398             'NUM-MESSAGES',
399             'NUM-PARAMETERS',
400             'NUM-RELATIONS',
401             'NUM-REPLACED',
402             'NUM-RESULTS',
403             'NUM-SELECTED-ROWS',
404             'NUM-SELECTED-WIDGETS',
405             'NUM-SOURCE-BUFFERS',
406             'NUM-TABS',
407             'NUM-TO-RETAIN',
408             'NUM-TOP-BUFFERS',
409             'NUM-VISIBLE-COLUMNS',
410             'NUMERIC-DECIMAL-POINT',
411             'NUMERIC-FORMAT',
412             'NUMERIC-SEPARATOR',
413             'ON-FRAME-BORDER',
414             'ORIGIN-HANDLE',
415             'ORIGIN-ROWID',
416             'OVERLAY',
417             'OWNER',
418             'OWNER-DOCUMENT',
419             'PAGE-BOTTOM',
420             'PAGE-TOP',
421             'PARAMETER',
422             'PARENT',
423             'PARENT-BUFFER',
424             'PARENT-RELATION',
425             'PARSE-STATUS',
426             'PASSWORD-FIELD',
427             'PATHNAME',
428             'PERSISTENT',
429             'PERSISTENT-CACHE-DISABLED',
430             'PERSISTENT-PROCEDURE',
431             'PFCOLOR',
432             'PIXELS-PER-COLUMN',
433             'PIXELS-PER-ROW',
434             'POPUP-MENU',
435             'POPUP-ONLY',
436             'POSITION',
437             'PREPARE-STRING',
438             'PREPARED',
439             'PREV-COLUMN',
440             'PREV-SIBLING',
441             'PREV-TAB-ITEM',
442             'PRIMARY',
443             'PRINTER-CONTROL-HANDLE',
444             'PRINTER-HDC',
445             'PRINTER-NAME',
446             'PRINTER-PORT',
447             'PRIVATE-DATA',
448             'PROCEDURE-NAME',
449             'PROGRESS-SOURCE',
450             'PROXY',
451             'PROXY-PASSWORD',
452             'PROXY-USERID',
453             'PUBLIC-ID',
454             'PUBLISHED-EVENTS',
455             'QUERY',
456             'QUERY-OFF-END',
457             'QUIT',
458             'RADIO-BUTTONS',
459             'READ-ONLY',
460             'RECID',
461             'RECORD-LENGTH',
462             'REFRESHABLE',
463             'REJECTED',
464             'RELATION-FIELDS',
465             'RELATIONS-ACTIVE',
466             'REMOTE',
467             'REMOTE-HOST',
468             'REMOTE-PORT',
469             'REPOSITION',
470             'RESIZABLE',
471             'RESIZE',
472             'RETAIN-SHAPE',
473             'RETURN-INSERTED',
474             'RETURN-VALUE',
475             'RETURN-VALUE-DATA-TYPE',
476             'ROW',
477             'ROW-HEIGHT-CHARS',
478             'ROW-HEIGHT-PIXELS',
479             'ROW-MARKERS',
480             'ROW-RESIZABLE',
481             'ROW-STATE',
482             'ROWID',
483             'SAVE-WHERE-STRING',
484             'SCHEMA-CHANGE',
485             'SCHEMA-PATH',
486             'SCREEN-LINES',
487             'SCREEN-VALUE',
488             'SCROLL-BARS',
489             'SCROLLABLE',
490             'SCROLLBAR-HORIZONTAL',
491             'SCROLLBAR-VERTICAL',
492             'SELECTABLE',
493             'SELECTED',
494             'SELECTION-END',
495             'SELECTION-START',
496             'SELECTION-TEXT',
497             'SENSITIVE',
498             'SEPARATOR-FGCOLOR',
499             'SEPARATORS',
500             'SERVER',
501             'SERVER-CONNECTION-BOUND',
502             'SERVER-CONNECTION-BOUND-REQUEST',
503             'SERVER-CONNECTION-CONTEXT',
504             'SERVER-CONNECTION-ID',
505             'SERVER-OPERATING-MODE',
506             'SHOW-IN-TASKBAR',
507             'SIDE-LABEL-HANDLE',
508             'SIDE-LABELS',
509             'SKIP-DELETED-RECORD',
510             'SMALL-ICON',
511             'SMALL-TITLE',
512             'SOAP-FAULT-ACTOR',
513             'SOAP-FAULT-CODE',
514             'SOAP-FAULT-DETAIL',
515             'SOAP-FAULT-STRING',
516             'SORT',
517             'STARTUP-PARAMETERS',
518             'STATUS-AREA',
519             'STATUS-AREA-FONT',
520             'STOP',
521             'STOPPED',
522             'STREAM',
523             'STRETCH-TO-FIT',
524             'STRING-VALUE',
525             'SUBTYPE',
526             'SUPER-PROCEDURES',
527             'SUPPRESS-NAMESPACE-PROCESSING',
528             'SUPPRESS-WARNINGS',
529             'SYSTEM-ALERT-BOXES',
530             'SYSTEM-ID',
531             'TAB-POSITION',
532             'TAB-STOP',
533             'TABLE',
534             'TABLE-CRC-LIST',
535             'TABLE-HANDLE',
536             'TABLE-LIST',
537             'TABLE-NUMBER',
538             'TEMP-DIRECTORY',
539             'TEXT-SELECTED',
540             'THREE-D',
541             'TIC-MARKS',
542             'TIME-SOURCE',
543             'TITLE',
544             'TITLE-BGCOLOR',
545             'TITLE-DCOLOR',
546             'TITLE-FGCOLOR',
547             'TITLE-FONT',
548             'TOGGLE-BOX',
549             'TOOLTIP',
550             'TOOLTIPS',
551             'TOP-ONLY',
552             'TRACKING-CHANGES',
553             'TRANS-INIT-PROCEDURE',
554             'TRANSACTION',
555             'TRANSPARENT',
556             'TYPE',
557             'UNDO',
558             'UNIQUE-ID',
559             'UNIQUE-MATCH',
560             'URL',
561             'URL-PASSWORD',
562             'URL-USERID',
563             'VALIDATE-EXPRESSION',
564             'VALIDATE-MESSAGE',
565             'VALIDATION-ENABLED',
566             'VALUE',
567             'VIEW-FIRST-COLUMN-ON-REOPEN',
568             'VIRTUAL-HEIGHT',
569             'VIRTUAL-HEIGHT-CHARS',
570             'VIRTUAL-HEIGHT-PIXELS',
571             'VIRTUAL-WIDTH',
572             'VIRTUAL-WIDTH-CHARS',
573             'VIRTUAL-WIDTH-PIXELS',
574             'VISIBLE',
575             'WARNING',
576             'WHERE-STRING',
577             'WIDGET-ENTER',
578             'WIDGET-LEAVE',
579             'WIDTH-CHARS',
580             'WIDTH-PIXELS',
581             'WINDOW',
582             'WINDOW-STATE',
583             'WINDOW-SYSTEM',
584             'WORD-WRAP',
585             'WORK-AREA-HEIGHT-PIXELS',
586             'WORK-AREA-WIDTH-PIXELS',
587             'WORK-AREA-X',
588             'WORK-AREA-Y',
589             'X',
590             'XML-SCHEMA-PATH',
591             'XML-SUPPRESS-NAMESPACE-PROCESSING',
592             'Y',
593             'YEAR-OFFSET',
594             );
595 1         5 $self->listAdd('envvariables',
596             'APPPROGRAM',
597             'APPPROGRAM',
598             'APPURL',
599             'AUTH_TYPE',
600             'CLASSPATH',
601             'CONTENT_LENGTH',
602             'CONTENT_TYPE',
603             'DLC',
604             'EVTLEVEL',
605             'GATEWAY_INTERFACE',
606             'HOSTURL',
607             'HTTPS',
608             'HTTP_ACCEPT',
609             'HTTP_COOKIE',
610             'HTTP_REFERER',
611             'HTTP_REFERER',
612             'HTTP_REFERER',
613             'HTTP_USER_AGENT',
614             'JDKCP',
615             'JDKHOME',
616             'JFCCP',
617             'JFHOME',
618             'JIT',
619             'JRECP',
620             'JREHOME',
621             'JVMEXE',
622             'OUTPUT-CONTENT-TYPE',
623             'PATH',
624             'PATH_INFO',
625             'PATH_TRANSLATED',
626             'PROCFG',
627             'PROCONV',
628             'PROEXE',
629             'PROGRESSCP',
630             'PROLOAD',
631             'PROMSGS',
632             'PROPATH',
633             'PROSRV',
634             'PROSTARTUP',
635             'PROTERMCAP',
636             'QUERY_STRING',
637             'REMOTE_ADDR',
638             'REMOTE_HOST',
639             'REMOTE_IDENT',
640             'REMOTE_USER',
641             'REQUEST_METHOD',
642             'SCRIPT_NAME',
643             'SELFURL',
644             'SERVER_NAME',
645             'SERVER_PORT',
646             'SERVER_PROTOCOL',
647             'SERVER_SOFTWARE',
648             'TERM',
649             'TERMINAL',
650             'WEB_SRC_PATH',
651             );
652 1         5 $self->listAdd('functions',
653             'ABSOLUTE',
654             'ACCUM',
655             'ADD-INTERVAL',
656             'ALIAS',
657             'AMBIGUOUS',
658             'ASC',
659             'AVAILABLE',
660             'BASE64-DECODE',
661             'BASE64-ENCODE',
662             'CAN-DO',
663             'CAN-FIND',
664             'CAN-QUERY',
665             'CAN-SET',
666             'CAPS',
667             'CHR',
668             'CODEPAGE-CONVERT',
669             'COMPARE',
670             'CONNECTED',
671             'COUNT-OF',
672             'CURRENT-CHANGED',
673             'CURRENT-LANGUAGE',
674             'CURRENT-RESULT-ROW',
675             'CURRENT-VALUE',
676             'DATA-SOURCE-MODIFIED',
677             'DATASERVERS',
678             'DATE',
679             'DATETIME',
680             'DATETIME-TZ',
681             'DAY',
682             'DBCODEPAGE',
683             'DBCOLLATION',
684             'DBNAME',
685             'DBPARAM',
686             'DBRESTRICTIONS',
687             'DBTASKID',
688             'DBTYPE',
689             'DBVERSION',
690             'DECIMAL',
691             'DECRYPT',
692             'DYNAMIC-CURRENT-VALUE',
693             'DYNAMIC-FUNCTION',
694             'DYNAMIC-NEXT-VALUE',
695             'ENCODE',
696             'ENCRYPT',
697             'ENTERED',
698             'ENTRY',
699             'ERROR',
700             'ETIME',
701             'EXP',
702             'EXTENT',
703             'FILL',
704             'FIRST',
705             'FIRST-OF',
706             'FIX-CODEPAGE',
707             'FRAME-COL',
708             'FRAME-DB',
709             'FRAME-DOWN',
710             'FRAME-FIELD',
711             'FRAME-FILE',
712             'FRAME-INDEX',
713             'FRAME-LINE',
714             'FRAME-NAME',
715             'FRAME-ROW',
716             'FRAME-VALUE',
717             'GATEWAYS',
718             'GENERATE-PBE-KEY',
719             'GENERATE-PBE-SALT',
720             'GENERATE-RANDOM-KEY',
721             'GET-BITS',
722             'GET-BYTE',
723             'GET-BYTE-ORDER',
724             'GET-BYTES',
725             'GET-CODEPAGE',
726             'GET-CODEPAGES',
727             'GET-COLLATION',
728             'GET-COLLATIONS',
729             'GET-DOUBLE',
730             'GET-FLOAT',
731             'GET-LONG',
732             'GET-POINTER-VALUE',
733             'GET-SHORT',
734             'GET-SIZE',
735             'GET-STRING',
736             'GET-UNSIGNED-SHORT',
737             'GO-PENDING',
738             'INDEX',
739             'INTEGER',
740             'INTERVAL',
741             'IS-ATTR-SPACE',
742             'IS-CODEPAGE-FIXED',
743             'IS-COLUMN-CODEPAGE',
744             'IS-LEAD-BYTE',
745             'ISO-DATE',
746             'KBLABEL',
747             'KEYCODE',
748             'KEYFUNCTION',
749             'KEYLABEL',
750             'KEYWORD',
751             'KEYWORD-ALL',
752             'LAST',
753             'LAST-OF',
754             'LASTKEY',
755             'LC',
756             'LDBNAME',
757             'LEFT-TRIM',
758             'LENGTH',
759             'LIBRARY',
760             'LINE-COUNTER',
761             'LIST-EVENTS',
762             'LIST-QUERY-ATTRS',
763             'LIST-SET-ATTRS',
764             'LIST-WIDGETS',
765             'LOCKED',
766             'LOG',
767             'LOGICAL',
768             'LOOKUP',
769             'MAXIMUM',
770             'MD5-DIGEST',
771             'MEMBER',
772             'MESSAGE-LINES',
773             'MINIMUM',
774             'MONTH',
775             'MTIME',
776             'NEW',
777             'NEXT-VALUE',
778             'NORMALIZE',
779             'NOT ENTERED',
780             'NOW',
781             'NUM-ALIASES',
782             'NUM-DBS',
783             'NUM-ENTRIES',
784             'NUM-RESULTS',
785             'OPSYS',
786             'OS-DRIVES',
787             'OS-ERROR',
788             'OS-GETENV',
789             'PAGE-NUMBER',
790             'PAGE-SIZE',
791             'PDBNAME',
792             'PROC-HANDLE',
793             'PROC-STATUS',
794             'PROGRAM-NAME',
795             'PROGRESS',
796             'PROMSGS',
797             'PROPATH',
798             'PROVERSION',
799             'QUERY-OFF-END',
800             'QUOTER',
801             'R-INDEX',
802             'RANDOM',
803             'RAW',
804             'RECID',
805             'RECORD-LENGTH',
806             'REJECTED',
807             'REPLACE',
808             'RETRY',
809             'RETURN-VALUE',
810             'RGB-VALUE',
811             'RIGHT-TRIM',
812             'ROUND',
813             'ROW-STATE',
814             'ROWID',
815             'SCREEN-LINES',
816             'SDBNAME',
817             'SEARCH',
818             'SEEK',
819             'SETUSERID',
820             'SHA1-DIGEST',
821             'SQRT',
822             'SSL-SERVER-NAME',
823             'STRING',
824             'SUBSTITUTE',
825             'SUBSTRING',
826             'SUPER',
827             'TERMINAL',
828             'TIME',
829             'TIMEZONE',
830             'TO-ROWID',
831             'TODAY',
832             'TRANSACTION',
833             'TRIM',
834             'TRUNCATE',
835             'USERID',
836             'VALID-EVENT',
837             'VALID-HANDLE',
838             'WEEKDAY',
839             'WIDGET-HANDLE',
840             'YEAR',
841             );
842 1         3 $self->listAdd('handles',
843             'ACTIVE-WINDOW',
844             'BUFFER',
845             'BUFFER-FIELD',
846             'CALL',
847             'CLIPBOARD',
848             'CODEBASE-LOCATOR',
849             'COLOR-TABLE',
850             'COM-SELF',
851             'COMPILER',
852             'CURRENT-WINDOW',
853             'DATA-RELATION',
854             'DATE-SOURCE',
855             'DEBUGGER',
856             'DEFAULT-WINDOW',
857             'ERROR-STATUS',
858             'FILE-INFO',
859             'FOCUS',
860             'FONT-TABLE',
861             'LAST-EVENT',
862             'LOG-MANAGER',
863             'PRODATASET',
864             'QUERY',
865             'RCODE-INFO',
866             'SAX-ATTRIBUTES',
867             'SAX-READER',
868             'SELF',
869             'SERVER SOCKET',
870             'SESSION',
871             'SOAP-FAULT',
872             'SOAP-FAULT-DETAIL',
873             'SOAP-HEADER',
874             'SOAP-HEADER-ENTRYREF',
875             'SOCKET',
876             'SOURCE-PROCEDURE',
877             'TARGET-PROCEDURE',
878             'TEMP-TABLE',
879             'THIS-PROCEDURE',
880             'TRANSACTION',
881             'WEB-CONTEXT',
882             'X-DOCUMENT',
883             'X-NODEREF',
884             );
885 1         5 $self->listAdd('methods',
886             'ACCEPT-CHANGES',
887             'ACCEPT-ROW-CHANGES',
888             'ADD-BUFFER',
889             'ADD-CALC-COLUMN',
890             'ADD-COLUMNS-FROM',
891             'ADD-EVENTS-PROCEDURE',
892             'ADD-FIELDS-FROM',
893             'ADD-FIRST',
894             'ADD-HEADER-ENTRY',
895             'ADD-INDEX-FIELD',
896             'ADD-LAST',
897             'ADD-LIKE-COLUMN',
898             'ADD-LIKE-FIELD',
899             'ADD-LIKE-INDEX',
900             'ADD-NEW-FIELD',
901             'ADD-NEW-INDEX',
902             'ADD-RELATION',
903             'ADD-SOURCE-BUFFER',
904             'ADD-SUPER-PROCEDURE',
905             'APPEND-CHILD',
906             'APPLY-CALLBACK',
907             'ATTACH-DATA-SOURCE',
908             'BUFFER-COMPARE',
909             'BUFFER-COPY',
910             'BUFFER-CREATE',
911             'BUFFER-DELETE',
912             'BUFFER-FIELD',
913             'BUFFER-RELEASE',
914             'BUFFER-VALIDATE',
915             'CANCEL-BREAK',
916             'CANCEL-REQUESTS',
917             'CLEAR',
918             'CLEAR-SELECTION',
919             'CLONE-NODE',
920             'CONNECT',
921             'CONNECTED',
922             'CONVERT-TO-OFFSET',
923             'CREATE-LIKE',
924             'CREATE-NODE',
925             'CREATE-NODE-NAMESPACE',
926             'CREATE-RESULT-LIST-ENTRY',
927             'DEBUG',
928             'DELETE',
929             'DELETE-CHAR',
930             'DELETE-CURRENT-ROW',
931             'DELETE-HEADER-ENTRY',
932             'DELETE-LINE',
933             'DELETE-NODE',
934             'DELETE-RESULT-LIST-ENTRY',
935             'DELETE-SELECTED-ROW',
936             'DELETE-SELECTED-ROWS',
937             'DESELECT-FOCUSED-ROW',
938             'DESELECT-ROWS',
939             'DESELECT-SELECTED-ROW',
940             'DETACH-DATA-SOURCE',
941             'DISABLE',
942             'DISABLE-CONNECTIONS',
943             'DISABLE-DUMP-TRIGGERS',
944             'DISABLE-LOAD-TRIGGERS',
945             'DISCONNECT',
946             'DISPLAY-MESSAGE',
947             'DUMP-LOGGING-NOW',
948             'EDIT-CLEAR',
949             'EDIT-COPY',
950             'EDIT-CUT',
951             'EDIT-PASTE',
952             'EDIT-UNDO',
953             'EMPTY-DATASET',
954             'EMPTY-TEMP-TABLE',
955             'ENABLE',
956             'ENABLE-CONNECTIONS',
957             'ENABLE-EVENTS',
958             'END-FILE-DROP',
959             'ENTRY',
960             'EXPORT',
961             'FETCH-SELECTED-ROW',
962             'FILL',
963             'FIND-BY-ROWID',
964             'FIND-CURRENT',
965             'FIND-FIRST',
966             'FIND-LAST',
967             'FIND-UNIQUE',
968             'GET-ATTRIBUTE',
969             'GET-ATTRIBUTE-NODE',
970             'GET-BLUE-VALUE',
971             'GET-BROWSE-COLUMN',
972             'GET-BUFFER-HANDLE',
973             'GET-BYTES-AVAILABLE',
974             'GET-CHANGES',
975             'GET-CHILD',
976             'GET-CHILD-RELATION',
977             'GET-CURRENT',
978             'GET-DATASET-BUFFER',
979             'GET-DOCUMENT-ELEMENT',
980             'GET-DROPPED-FILE',
981             'GET-DYNAMIC',
982             'GET-FIRST',
983             'GET-GREEN-VALUE',
984             'GET-HEADER-ENTRY',
985             'GET-INDEX-BY-NAMESPACE-NAME',
986             'GET-INDEX-BY-QNAME',
987             'GET-ITERATION',
988             'GET-LAST',
989             'GET-LOCALNAME-BY-INDEX',
990             'GET-MESSAGE',
991             'GET-NEXT',
992             'GET-NODE',
993             'GET-NUMBER',
994             'GET-PARENT',
995             'GET-PREV',
996             'GET-PRINTERS',
997             'GET-QNAME-BY-INDEX',
998             'GET-RED-VALUE',
999             'GET-RELATION',
1000             'GET-REPOSITIONED-ROW',
1001             'GET-RGB-VALUE',
1002             'GET-SELECTED-WIDGET',
1003             'GET-SERIALIZED',
1004             'GET-SIGNATURE',
1005             'GET-SOCKET-OPTION',
1006             'GET-SOURCE-BUFFER',
1007             'GET-TAB-ITEM',
1008             'GET-TEXT-HEIGHT-CHARS',
1009             'GET-TEXT-HEIGHT-PIXELS',
1010             'GET-TEXT-WIDTH-CHARS',
1011             'GET-TEXT-WIDTH-PIXELS',
1012             'GET-TOP-BUFFER',
1013             'GET-TYPE-BY-INDEX',
1014             'GET-TYPE-BY-NAMESPACE-NAME',
1015             'GET-TYPE-BY-QNAME',
1016             'GET-URI-BY-INDEX',
1017             'GET-VALUE-BY-INDEX',
1018             'GET-VALUE-BY-NAMESPACE-NAME',
1019             'GET-VALUE-BY-QNAME',
1020             'GET-WAIT-STATE',
1021             'IMPORT-NODE',
1022             'INDEX-INFORMATION',
1023             'INITIALIZE-DOCUMENT-TYPE',
1024             'INITIATE',
1025             'INSERT',
1026             'INSERT-BACKTAB',
1027             'INSERT-BEFORE',
1028             'INSERT-FILE',
1029             'INSERT-ROW',
1030             'INSERT-STRING',
1031             'INSERT-TAB',
1032             'INVOKE',
1033             'IS-ROW-SELECTED',
1034             'IS-SELECTED',
1035             'LOAD',
1036             'LOAD-ICON',
1037             'LOAD-IMAGE',
1038             'LOAD-IMAGE-DOWN',
1039             'LOAD-IMAGE-INSENSITIVE',
1040             'LOAD-IMAGE-UP',
1041             'LOAD-MOUSE-POINTER',
1042             'LOAD-SMALL-ICON',
1043             'LONGCHAR-TO-NODE-VALUE',
1044             'LOOKUP',
1045             'LoadControls',
1046             'MAX-HEIGHT',
1047             'MAX-WIDTH',
1048             'MEMPTR-TO-NODE-VALUE',
1049             'MERGE-CHANGES',
1050             'MERGE-ROW-CHANGES',
1051             'MOVE-AFTER-TAB-ITEM',
1052             'MOVE-BEFORE-TAB-ITEM',
1053             'MOVE-COLUMN',
1054             'MOVE-TO-BOTTOM',
1055             'MOVE-TO-EOF',
1056             'MOVE-TO-TOP',
1057             'NODE-VALUE-TO-LONGCHAR',
1058             'NODE-VALUE-TO-MEMPTR',
1059             'NORMALIZE',
1060             'QUERY-CLOSE',
1061             'QUERY-OPEN',
1062             'QUERY-PREPARE',
1063             'RAW-TRANSFER',
1064             'READ',
1065             'READ-FILE',
1066             'REFRESH',
1067             'REJECT-CHANGES',
1068             'REJECT-ROW-CHANGES',
1069             'REMOVE-ATTRIBUTE',
1070             'REMOVE-CHILD',
1071             'REMOVE-EVENTS-PROCEDURE',
1072             'REMOVE-SUPER-PROCEDURE',
1073             'REPLACE',
1074             'REPLACE-CHILD',
1075             'REPLACE-SELECTION-TEXT',
1076             'REPOSITION-BACKWARD',
1077             'REPOSITION-FORWARD',
1078             'REPOSITION-TO-ROW',
1079             'REPOSITION-TO-ROWID',
1080             'SAVE',
1081             'SAVE-FILE',
1082             'SAVE-ROW-CHANGES',
1083             'SAX-PARSE',
1084             'SAX-PARSE-FIRST',
1085             'SAX-PARSE-NEXT',
1086             'SCROLL-TO-CURRENT-ROW',
1087             'SCROLL-TO-ITEM',
1088             'SCROLL-TO-SELECTED-ROW',
1089             'SEARCH',
1090             'SELECT-ALL',
1091             'SELECT-FOCUSED-ROW',
1092             'SELECT-NEXT-ROW',
1093             'SELECT-PREV-ROW',
1094             'SELECT-ROW',
1095             'SET-ACTOR',
1096             'SET-ATTRIBUTE',
1097             'SET-ATTRIBUTE-NODE',
1098             'SET-BLUE-VALUE',
1099             'SET-BREAK',
1100             'SET-BUFFERS',
1101             'SET-CALLBACK-PROCEDURE',
1102             'SET-COMMIT',
1103             'SET-CONNECT-PROCEDURE',
1104             'SET-DYNAMIC',
1105             'SET-GREEN-VALUE',
1106             'SET-INPUT-SOURCE',
1107             'SET-MUST-UNDERSTAND',
1108             'SET-NODE',
1109             'SET-NUMERIC-FORMAT',
1110             'SET-PARAMETER',
1111             'SET-READ-RESPONSE-PROCEDURE',
1112             'SET-RED-VALUE',
1113             'SET-REPOSITIONED-ROW',
1114             'SET-RGB-VALUE',
1115             'SET-ROLLBACK',
1116             'SET-SELECTION',
1117             'SET-SERIALIZED',
1118             'SET-SOCKET-OPTION',
1119             'SET-WAIT-STATE',
1120             'STOP-PARSING',
1121             'SYNCHRONIZE',
1122             'TEMP-TABLE-PREPARE',
1123             'VALIDATE',
1124             'WRITE',
1125             );
1126 1         4 $self->listAdd('mytypes',
1127             'BLOB',
1128             'BUFFER',
1129             'CHAR',
1130             'CHARACTER',
1131             'CLOB',
1132             'COM-HANDLE',
1133             'DATE',
1134             'DATETIME',
1135             'DATETIME-TZ',
1136             'DECI',
1137             'DECIMAL',
1138             'HANDLE',
1139             'INTE',
1140             'INTEGER',
1141             'LOGI',
1142             'LOGICAL',
1143             'LONG',
1144             'LONGCHAR',
1145             'LONGCHAR',
1146             'MEMPTR',
1147             'RAW',
1148             'RECID',
1149             'ROWID',
1150             'SHORT',
1151             'STREAM',
1152             'TEMP-TABLE',
1153             'WIDGET-HANDLE',
1154             );
1155 1         3 $self->listAdd('operators',
1156             '*',
1157             '+',
1158             '-',
1159             '/',
1160             '<',
1161             '<=',
1162             '<>',
1163             '=',
1164             '>',
1165             '>=',
1166             'AND',
1167             'BEGINS',
1168             'EQ',
1169             'FALSE',
1170             'GE',
1171             'GT',
1172             'LE',
1173             'LT',
1174             'MATCHES',
1175             'MODULO',
1176             'NE',
1177             'NO',
1178             'NOT',
1179             'OR',
1180             'TRUE',
1181             'YES',
1182             );
1183 1         3 $self->listAdd('phrases',
1184             'ALERT-BOX',
1185             'APPEND',
1186             'AS',
1187             'AT',
1188             'BEFORE-HIDE',
1189             'BINARY',
1190             'BREAK',
1191             'BY',
1192             'COLON-ALIGNED',
1193             'COLOR',
1194             'COMBO-BOX',
1195             'CONVERT',
1196             'DEFINED',
1197             'EACH',
1198             'EDITING',
1199             'EDITOR',
1200             'ENDKEY',
1201             'ERROR',
1202             'EXCLUSIVE-LOCK',
1203             'FIRST',
1204             'FORMAT',
1205             'FORWARD',
1206             'FRAME',
1207             'GLOBAL',
1208             'GROUP',
1209             'IMAGE',
1210             'IN',
1211             'KEEP-TAB-ORDER',
1212             'LAST',
1213             'NO-BOX',
1214             'NO-CONVERT',
1215             'NO-ECHO',
1216             'NO-ERROR',
1217             'NO-FILL',
1218             'NO-LABEL',
1219             'NO-LABELS',
1220             'NO-LOCK',
1221             'NO-MAP',
1222             'NO-MESSAGE',
1223             'NO-PAUSE',
1224             'NO-UNDERLINE',
1225             'NO-UNDO',
1226             'OF',
1227             'OUT',
1228             'PRESELECT',
1229             'PREV',
1230             'PRIVATE',
1231             'QUERY-TUNING',
1232             'QUIT',
1233             'RADIO-SET',
1234             'RECORD',
1235             'SELECTION-LIST',
1236             'SHARE-LOCK',
1237             'SHARED',
1238             'SIZE',
1239             'SKIP',
1240             'SLIDER',
1241             'STOP',
1242             'TARGET',
1243             'TRIGGER',
1244             'UNBUFFERED',
1245             'UNFORMATTED',
1246             'UNIQUE',
1247             'VIEW-AS',
1248             'WHERE',
1249             'WIDGET',
1250             'WITH',
1251             );
1252 1         4 $self->listAdd('preprocvar',
1253             'ANALYZE-RESUME',
1254             'ANALYZE-SUSPEND',
1255             'BATCH-MODE',
1256             'ENDIF',
1257             'FILE-NAME',
1258             'GLOBAL-DEFINE',
1259             'LINE-NUMBER',
1260             'OPSYS',
1261             'OUT',
1262             'SCOPED-DEFINE',
1263             'SEQUENCE',
1264             'UNDEFINE',
1265             'WEBSTREAM',
1266             'WINDOW-SYSTEM',
1267             );
1268 1         3 $self->listAdd('properties',
1269             'CONTROL-NAME',
1270             'CONTROLS',
1271             'HEIGHT',
1272             'HONORPROKEYS',
1273             'HONORRETURNKEY',
1274             'LEFT',
1275             'NAME',
1276             'TAG',
1277             'TOP',
1278             'WIDTH',
1279             );
1280 1         5 $self->listAdd('statements',
1281             'ACCUMULATE',
1282             'ADVISE',
1283             'ALIAS',
1284             'ALIAS',
1285             'APPLY',
1286             'ASSIGN',
1287             'AUTOMATIC',
1288             'BELL',
1289             'BROWSE',
1290             'BROWSE',
1291             'BUFFER',
1292             'BUFFER',
1293             'BUFFER-COMPARE',
1294             'BUFFER-COPY',
1295             'BUTTON',
1296             'CACHE',
1297             'CALL',
1298             'CHOOSE',
1299             'CLEAR',
1300             'CLEAR',
1301             'CLOSE',
1302             'CLOSE',
1303             'COLOR',
1304             'COLOR',
1305             'COMPILE',
1306             'CONNECT',
1307             'COPY-LOB',
1308             'CREATE',
1309             'CURRENT-LANGUAGE',
1310             'CURRENT-VALUE',
1311             'CURSOR',
1312             'DATA-SOURCE',
1313             'DATA-SOURCE',
1314             'DATABASE',
1315             'DATASET',
1316             'DATASET',
1317             'DDE',
1318             'DEF',
1319             'DEFINE',
1320             'DELETE',
1321             'DICTIONARY',
1322             'DISABLE',
1323             'DISCONNECT',
1324             'DISPLAY',
1325             'DOS',
1326             'DOWN',
1327             'DYNAMIC-CURRENT-VALUE',
1328             'ELSE',
1329             'EMPTY',
1330             'ENABLE',
1331             'ENTRY',
1332             'EVENTS',
1333             'EXECUTE',
1334             'EXPORT',
1335             'EXTERNAL',
1336             'FIND',
1337             'FONT',
1338             'FORM',
1339             'FRAME',
1340             'FRAME-VALUE',
1341             'FROM',
1342             'GET',
1343             'GET',
1344             'GET-DIR',
1345             'GET-FILE',
1346             'GET-KEY-VALUE',
1347             'HIDE',
1348             'IF',
1349             'IMAGE',
1350             'IMPORT',
1351             'INITIATE',
1352             'INPUT',
1353             'INPUT-OUTPUT',
1354             'INSERT',
1355             'LEAVE',
1356             'LENGTH',
1357             'LOAD',
1358             'LOAD-PICTURE',
1359             'MENU',
1360             'MESSAGE',
1361             'NEXT',
1362             'NEXT-PROMPT',
1363             'OBJECT',
1364             'OBJECT',
1365             'OPEN',
1366             'OS-APPEND',
1367             'OS-COMMAND',
1368             'OS-COPY',
1369             'OS-CREATE-DIR',
1370             'OS-DELETE',
1371             'OS-RENAME',
1372             'OTHERWISE',
1373             'OUTPUT',
1374             'OVERLAY',
1375             'PAGE',
1376             'PARAM',
1377             'PARAMETER',
1378             'PAUSE',
1379             'PRINTER-SETUP',
1380             'PROCESS',
1381             'PROMPT-FOR',
1382             'PROMSGS',
1383             'PROPATH',
1384             'PUBLISH',
1385             'PUT',
1386             'PUT-BITS',
1387             'PUT-BYTE',
1388             'PUT-BYTES',
1389             'PUT-DOUBLE',
1390             'PUT-FLOAT',
1391             'PUT-KEY-VALUE',
1392             'PUT-LONG',
1393             'PUT-SHORT',
1394             'PUT-STRING',
1395             'PUT-UNSIGNED-SHORT',
1396             'QUERY',
1397             'QUERY',
1398             'QUERY',
1399             'QUERY',
1400             'QUIT',
1401             'RAW',
1402             'RAW-TRANSFER',
1403             'READKEY',
1404             'RECTANGLE',
1405             'RELEASE',
1406             'REPOSITION',
1407             'REQUEST',
1408             'RETURN',
1409             'RETURNS',
1410             'RUN',
1411             'SAVE',
1412             'SAX-READER',
1413             'SCREEN',
1414             'SCROLL',
1415             'SEEK',
1416             'SEND',
1417             'SERVER',
1418             'SERVER-SOCKET',
1419             'SET',
1420             'SET-BYTE-ORDER',
1421             'SET-POINTER-VALUE',
1422             'SET-SIZE',
1423             'SHOW-STATS',
1424             'SOAP-HEADER',
1425             'SOAP-HEADER-ENTRYREF',
1426             'SOCKET',
1427             'STATUS',
1428             'STOP',
1429             'STORED-PROCEDURE',
1430             'STORED-PROCEDURE',
1431             'STREAM',
1432             'SUB-MENU',
1433             'SUBSCRIBE',
1434             'SUBSTRING',
1435             'SUPER',
1436             'SYSTEM-DIALOG',
1437             'SYSTEM-HELP',
1438             'TEMP-TABLE',
1439             'TEMP-TABLE',
1440             'TEMP-TABLE',
1441             'TERMINAL',
1442             'TERMINATE',
1443             'THEN',
1444             'THROUGH',
1445             'THROUGH',
1446             'TO',
1447             'TRANSACTION-MODE',
1448             'TRIGGER',
1449             'TRIGGERS',
1450             'UNDERLINE',
1451             'UNDO',
1452             'UNIX',
1453             'UNLOAD',
1454             'UNSUBSCRIBE',
1455             'UP',
1456             'UPDATE',
1457             'USE',
1458             'VALIDATE',
1459             'VAR',
1460             'VARIABLE',
1461             'VARIABLE',
1462             'VIEW',
1463             'WAIT-FOR',
1464             'WHEN',
1465             'WIDGET',
1466             'WIDGET',
1467             'WIDGET-POOL',
1468             'WIDGET-POOL',
1469             'WORK-TABLE',
1470             'WORKFILE',
1471             'X-DOCUMENT',
1472             'X-NODEREF',
1473             );
1474 1         3 $self->listAdd('widgets',
1475             'BROWSE',
1476             'BUTTON',
1477             'COMBO-BOX',
1478             'CONTROL-FRAME',
1479             'DIALOG-BOX',
1480             'EDITOR',
1481             'FIELD-GROUP',
1482             'FILL-IN',
1483             'FRAME',
1484             'IMAGE',
1485             'LITERAL',
1486             'MENU',
1487             'MENU-ITEM',
1488             'RADIO-SET',
1489             'RECTANGLE',
1490             'SELECTION-LIST',
1491             'SLIDER',
1492             'SUB-MENU',
1493             'TEXT',
1494             'TOGGLE-BOX',
1495             'WINDOW',
1496             );
1497 1         15 $self->contextdata({
1498             'Identifier' => {
1499             callback => \&parseIdentifier,
1500             attribute => 'Identifier',
1501             lineending => '#pop',
1502             },
1503             'MultiLineComment' => {
1504             callback => \&parseMultiLineComment,
1505             attribute => 'Comment',
1506             },
1507             'Normal' => {
1508             callback => \&parseNormal,
1509             attribute => 'Normal Text',
1510             },
1511             'String' => {
1512             callback => \&parseString,
1513             attribute => 'String',
1514             },
1515             });
1516 1         6 $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\|-');
1517 1         9 $self->basecontext('Normal');
1518 1         4 $self->keywordscase(0);
1519 1         3 $self->initialize;
1520 1         2 bless ($self, $class);
1521 1         3 return $self;
1522             }
1523              
1524             sub language {
1525 0     0 0   return 'progress';
1526             }
1527              
1528             sub parseIdentifier {
1529 0     0 0   my ($self, $text) = @_;
1530             # attribute => 'Identifier'
1531             # char => '"'
1532             # context => '#pop'
1533             # type => 'DetectChar'
1534 0 0         if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#pop', 'Identifier')) {
1535 0           return 1
1536             }
1537 0           return 0;
1538             };
1539              
1540             sub parseMultiLineComment {
1541 0     0 0   my ($self, $text) = @_;
1542             # attribute => 'Comment'
1543             # context => '#pop'
1544             # type => 'LineContinue'
1545 0 0         if ($self->testLineContinue($text, 0, undef, 0, '#pop', 'Comment')) {
1546 0           return 1
1547             }
1548             # attribute => 'Comment'
1549             # char => '*'
1550             # char1 => '/'
1551             # context => '#pop'
1552             # endRegion => 'Comment'
1553             # type => 'Detect2Chars'
1554 0 0         if ($self->testDetect2Chars($text, '*', '/', 0, 0, 0, undef, 0, '#pop', 'Comment')) {
1555 0           return 1
1556             }
1557             # context => '##Alerts'
1558             # type => 'IncludeRules'
1559 0 0         if ($self->includePlugin('Alerts', $text)) {
1560 0           return 1
1561             }
1562 0           return 0;
1563             };
1564              
1565             sub parseNormal {
1566 0     0 0   my ($self, $text) = @_;
1567             # String => 'envvariables'
1568             # attribute => 'Preprocvar'
1569             # context => '#stay'
1570             # type => 'keyword'
1571 0 0         if ($self->testKeyword($text, 'envvariables', 0, undef, 0, '#stay', 'Preprocvar')) {
1572 0           return 1
1573             }
1574             # String => 'mytypes'
1575             # attribute => 'Data_Type'
1576             # context => '#stay'
1577             # type => 'keyword'
1578 0 0         if ($self->testKeyword($text, 'mytypes', 0, undef, 0, '#stay', 'Data_Type')) {
1579 0           return 1
1580             }
1581             # String => 'operators'
1582             # attribute => 'Operators'
1583             # context => '#stay'
1584             # type => 'keyword'
1585 0 0         if ($self->testKeyword($text, 'operators', 0, undef, 0, '#stay', 'Operators')) {
1586 0           return 1
1587             }
1588             # String => 'preprocvar'
1589             # attribute => 'Preprocvar'
1590             # context => '#stay'
1591             # type => 'keyword'
1592 0 0         if ($self->testKeyword($text, 'preprocvar', 0, undef, 0, '#stay', 'Preprocvar')) {
1593 0           return 1
1594             }
1595             # String => 'phrases'
1596             # attribute => 'Phrases'
1597             # context => '#stay'
1598             # type => 'keyword'
1599 0 0         if ($self->testKeyword($text, 'phrases', 0, undef, 0, '#stay', 'Phrases')) {
1600 0           return 1
1601             }
1602             # String => 'functions'
1603             # attribute => 'Function'
1604             # context => '#stay'
1605             # type => 'keyword'
1606 0 0         if ($self->testKeyword($text, 'functions', 0, undef, 0, '#stay', 'Function')) {
1607 0           return 1
1608             }
1609             # String => 'statements'
1610             # attribute => 'Statements'
1611             # context => '#stay'
1612             # type => 'keyword'
1613 0 0         if ($self->testKeyword($text, 'statements', 0, undef, 0, '#stay', 'Statements')) {
1614 0           return 1
1615             }
1616             # String => 'widgets'
1617             # attribute => 'Widgets'
1618             # context => '#stay'
1619             # type => 'keyword'
1620 0 0         if ($self->testKeyword($text, 'widgets', 0, undef, 0, '#stay', 'Widgets')) {
1621 0           return 1
1622             }
1623             # String => 'handles'
1624             # attribute => 'Handles'
1625             # context => '#stay'
1626             # type => 'keyword'
1627 0 0         if ($self->testKeyword($text, 'handles', 0, undef, 0, '#stay', 'Handles')) {
1628 0           return 1
1629             }
1630             # String => 'properties'
1631             # attribute => 'Properties'
1632             # context => '#stay'
1633             # type => 'keyword'
1634 0 0         if ($self->testKeyword($text, 'properties', 0, undef, 0, '#stay', 'Properties')) {
1635 0           return 1
1636             }
1637             # String => 'attributes'
1638             # attribute => 'Attributes'
1639             # context => '#stay'
1640             # type => 'keyword'
1641 0 0         if ($self->testKeyword($text, 'attributes', 0, undef, 0, '#stay', 'Attributes')) {
1642 0           return 1
1643             }
1644             # String => 'methods'
1645             # attribute => 'Methods'
1646             # context => '#stay'
1647             # type => 'keyword'
1648 0 0         if ($self->testKeyword($text, 'methods', 0, undef, 0, '#stay', 'Methods')) {
1649 0           return 1
1650             }
1651             # attribute => 'Integer'
1652             # context => '#stay'
1653             # type => 'Int'
1654 0 0         if ($self->testInt($text, 0, undef, 0, '#stay', 'Integer')) {
1655 0           return 1
1656             }
1657             # attribute => 'String'
1658             # char => '''
1659             # context => 'String'
1660             # type => 'DetectChar'
1661 0 0         if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, 'String', 'String')) {
1662 0           return 1
1663             }
1664             # attribute => 'Comment'
1665             # beginRegion => 'Comment'
1666             # char => '/'
1667             # char1 => '*'
1668             # context => 'MultiLineComment'
1669             # type => 'Detect2Chars'
1670 0 0         if ($self->testDetect2Chars($text, '/', '*', 0, 0, 0, undef, 0, 'MultiLineComment', 'Comment')) {
1671 0           return 1
1672             }
1673             # attribute => 'Comment'
1674             # char => '"'
1675             # context => 'Identifier'
1676             # type => 'DetectChar'
1677 0 0         if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, 'Identifier', 'Comment')) {
1678 0           return 1
1679             }
1680             # attribute => 'String'
1681             # char => '"'
1682             # context => '#stay'
1683             # type => 'DetectChar'
1684 0 0         if ($self->testDetectChar($text, '"', 0, 0, 0, undef, 0, '#stay', 'String')) {
1685 0           return 1
1686             }
1687             # attribute => 'String'
1688             # char => '''
1689             # context => '#stay'
1690             # type => 'DetectChar'
1691 0 0         if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, '#stay', 'String')) {
1692 0           return 1
1693             }
1694             # String => '{}[]()~:'
1695             # attribute => 'Symbol'
1696             # context => '#stay'
1697             # type => 'AnyChar'
1698 0 0         if ($self->testAnyChar($text, '{}[]()~:', 0, 0, undef, 0, '#stay', 'Symbol')) {
1699 0           return 1
1700             }
1701             # String => 'PROCEDURE'
1702             # attribute => 'Region Marker'
1703             # beginRegion => 'P1'
1704             # context => '#stay'
1705             # firstNonSpace => 'TRUE'
1706             # insensitive => 'TRUE'
1707             # type => 'StringDetect'
1708 0 0         if ($self->testStringDetect($text, 'PROCEDURE', 1, 0, 0, undef, 1, '#stay', 'Region Marker')) {
1709 0           return 1
1710             }
1711             # String => 'END PROCEDURE'
1712             # attribute => 'Region Marker'
1713             # context => '#stay'
1714             # endRegion => 'P1'
1715             # firstNonSpace => 'TRUE'
1716             # insensitive => 'TRUE'
1717             # type => 'StringDetect'
1718 0 0         if ($self->testStringDetect($text, 'END PROCEDURE', 1, 0, 0, undef, 1, '#stay', 'Region Marker')) {
1719 0           return 1
1720             }
1721             # String => 'FUNCTION'
1722             # attribute => 'Region Marker'
1723             # beginRegion => 'F1'
1724             # context => '#stay'
1725             # firstNonSpace => 'TRUE'
1726             # insensitive => 'TRUE'
1727             # type => 'StringDetect'
1728 0 0         if ($self->testStringDetect($text, 'FUNCTION', 1, 0, 0, undef, 1, '#stay', 'Region Marker')) {
1729 0           return 1
1730             }
1731             # String => 'END FUNCTION'
1732             # attribute => 'Region Marker'
1733             # context => '#stay'
1734             # endRegion => 'F1'
1735             # firstNonSpace => 'TRUE'
1736             # insensitive => 'TRUE'
1737             # type => 'StringDetect'
1738 0 0         if ($self->testStringDetect($text, 'END FUNCTION', 1, 0, 0, undef, 1, '#stay', 'Region Marker')) {
1739 0           return 1
1740             }
1741             # String => 'DO:'
1742             # attribute => 'Function'
1743             # beginRegion => 'L1'
1744             # context => '#stay'
1745             # firstNonSpace => 'FALSE'
1746             # insensitive => 'TRUE'
1747             # type => 'StringDetect'
1748 0 0         if ($self->testStringDetect($text, 'DO:', 1, 0, 0, undef, 0, '#stay', 'Function')) {
1749 0           return 1
1750             }
1751             # String => 'REPEAT'
1752             # attribute => 'Function'
1753             # beginRegion => 'L1'
1754             # context => '#stay'
1755             # firstNonSpace => 'TRUE'
1756             # insensitive => 'TRUE'
1757             # type => 'StringDetect'
1758 0 0         if ($self->testStringDetect($text, 'REPEAT', 1, 0, 0, undef, 1, '#stay', 'Function')) {
1759 0           return 1
1760             }
1761             # String => 'FOR'
1762             # attribute => 'Function'
1763             # beginRegion => 'L1'
1764             # context => '#stay'
1765             # firstNonSpace => 'TRUE'
1766             # insensitive => 'TRUE'
1767             # type => 'StringDetect'
1768 0 0         if ($self->testStringDetect($text, 'FOR', 1, 0, 0, undef, 1, '#stay', 'Function')) {
1769 0           return 1
1770             }
1771             # String => 'CASE'
1772             # attribute => 'Function'
1773             # beginRegion => 'L1'
1774             # context => '#stay'
1775             # firstNonSpace => 'TRUE'
1776             # insensitive => 'TRUE'
1777             # type => 'StringDetect'
1778 0 0         if ($self->testStringDetect($text, 'CASE', 1, 0, 0, undef, 1, '#stay', 'Function')) {
1779 0           return 1
1780             }
1781             # String => 'END'
1782             # attribute => 'Function'
1783             # context => '#stay'
1784             # endRegion => 'L1'
1785             # firstNonSpace => 'TRUE'
1786             # insensitive => 'TRUE'
1787             # type => 'StringDetect'
1788 0 0         if ($self->testStringDetect($text, 'END', 1, 0, 0, undef, 1, '#stay', 'Function')) {
1789 0           return 1
1790             }
1791 0           return 0;
1792             };
1793              
1794             sub parseString {
1795 0     0 0   my ($self, $text) = @_;
1796             # attribute => 'String'
1797             # context => '#pop'
1798             # type => 'LineContinue'
1799 0 0         if ($self->testLineContinue($text, 0, undef, 0, '#pop', 'String')) {
1800 0           return 1
1801             }
1802             # attribute => 'String Char'
1803             # context => '#stay'
1804             # type => 'HlCStringChar'
1805 0 0         if ($self->testHlCStringChar($text, 0, undef, 0, '#stay', 'String Char')) {
1806 0           return 1
1807             }
1808             # attribute => 'String'
1809             # char => '''
1810             # context => '#pop'
1811             # type => 'DetectChar'
1812 0 0         if ($self->testDetectChar($text, '\'', 0, 0, 0, undef, 0, '#pop', 'String')) {
1813 0           return 1
1814             }
1815 0           return 0;
1816             };
1817              
1818              
1819             1;
1820              
1821             __END__