rouge 3.5.1 → 3.6.0

data/lib/rouge/lexers/elm.rb

@@ -50,7 +50,7 @@ module Rouge
 
         # Single, double quotes, and triple double quotes
         rule %r/"""/, Str, :multiline_string
-        rule %r/'(\\.|.)'/, Str::Char        
+        rule %r/'(\\.|.)'/, Str::Char
         rule %r/"/, Str, :double_quote
 
         # Numbers

data/lib/rouge/lexers/fsharp.rb

@@ -18,10 +18,10 @@ module Rouge
           internal lazy let let! match member module mutable namespace
           new not null of open or override private public rec return
           return! select static struct then to true try type upcast
-          use use! val void when while with yield yield! sig atomic 
-          break checked component const constraint constructor 
-          continue eager event external fixed functor include method 
-          mixin object parallel process protected pure sealed tailcall 
+          use use! val void when while with yield yield! sig atomic
+          break checked component const constraint constructor
+          continue eager event external fixed functor include method
+          mixin object parallel process protected pure sealed tailcall
           trait virtual volatile
         )
       end

data/lib/rouge/lexers/glsl.rb

@@ -95,7 +95,7 @@ module Rouge
           gl_TexCoord gl_FogFragCoord gl_Color gl_SecondaryColor gl_Normal gl_VertexID
           gl_MultiTexCord0 gl_MultiTexCord1 gl_MultiTexCord2 gl_MultiTexCord3
           gl_MultiTexCord4 gl_MultiTexCord5 gl_MultiTexCord6 gl_MultiTexCord7
-          gl_FogCoord gl_MaxVertexAttribs gl_MaxVertexUniformComponents 
+          gl_FogCoord gl_MaxVertexAttribs gl_MaxVertexUniformComponents
           gl_MaxVaryingFloats gl_MaxVaryingComponents gl_MaxVertexOutputComponents
           gl_MaxGeometryInputComponents gl_MaxGeometryOutputComponents
           gl_MaxFragmentInputComponents gl_MaxVertexTextureImageUnits

data/lib/rouge/lexers/http.rb

@@ -72,7 +72,7 @@ module Rouge
       end
 
       state :content do
-        rule %r/.+/m do |m|
+        rule %r/.+/m do
           delegate(content_lexer)
         end
       end

data/lib/rouge/lexers/idlang.rb

@@ -243,7 +243,7 @@ module Rouge
 
         rule %r{\#\#|\#|\&\&|\|\||/=|<=|>=|->|\@|\?|[-+*/<=~^{}]}, Operator
         # Structures and the like
-        rule %r/(#{name})(\.)([^\s,]*)/i do |m|
+        rule %r/(#{name})(\.)([^\s,]*)/i do
           groups Name, Operator, Name
           #delegate IDLang, m[3]
         end

data/lib/rouge/lexers/json.rb

@@ -7,7 +7,7 @@ module Rouge
       title 'JSON'
       desc "JavaScript Object Notation (json.org)"
       tag 'json'
-      filenames '*.json'
+      filenames '*.json', 'Pipfile.lock'
       mimetypes 'application/json', 'application/vnd.api+json',
                 'application/hal+json', 'application/problem+json',
                 'application/schema+json'

data/lib/rouge/lexers/jsp.rb

@@ -7,7 +7,7 @@ module Rouge
       desc 'JSP'
       tag 'jsp'
       filenames '*.jsp'
-      mimetypes 'text/x-jsp', 'application/x-jsp'   
+      mimetypes 'text/x-jsp', 'application/x-jsp'
 
       def initialize(*)
         super
@@ -16,7 +16,7 @@ module Rouge
 
       directives = %w(page include taglib)
       actions = %w(scriptlet declaration expression)
-     
+
       state :root do
 
         rule %r/<%--/, Comment, :jsp_comment
@@ -106,7 +106,7 @@ module Rouge
 
       state :jsp_interp do
         rule %r/\}/, Str::Interpol, :pop!
-        rule %r/'/, Literal, :jsp_interp_literal_start 
+        rule %r/'/, Literal, :jsp_interp_literal_start
         rule(/[^'\}]+/) { delegate @java }
       end
 

data/lib/rouge/lexers/liquid.rb

@@ -88,6 +88,29 @@ module Rouge
           push :variable_tag_markup
         end
 
+        # iteration
+        rule %r/
+          (for)(\s+)
+          ([\w-]+)(\s+)
+          (in)(\s+)
+          (
+            (?: [^\s,\|'"] | (?:"[^"]*"|'[^']*') )+
+          )(\s*)
+        /x do |m|
+          groups Name::Tag, Text::Whitespace, Name::Variable, Text::Whitespace,
+                 Keyword::Reserved, Text::Whitespace
+
+          token_class = case m[7]
+                        when %r/'[^']*'/ then Str::Single
+                        when %r/"[^"]*"/ then Str::Double
+                        else
+                          Name::Variable
+                        end
+          token token_class, m[7]
+          token Text::Whitespace, m[8]
+          push :tag_markup
+        end
+
         # other tags or blocks
         rule %r/([^\s%]+)(\s*)/ do
           groups Name::Tag, Text::Whitespace

data/lib/rouge/lexers/magik.rb

@@ -22,8 +22,9 @@ module Rouge
            _throw
            _lock _endlock
            _if _then _elif _else _endif
-           _for _over _loop _endloop _loopbody _continue _leave
+           _for _over _while _loop _endloop _loopbody _continue _leave
            _return
+           _class
            _local _constant _recursive _global _dynamic _import
            _private _iter _abstract _method _endmethod
            _proc _endproc

data/lib/rouge/lexers/make.rb

@@ -11,9 +11,10 @@ module Rouge
       filenames '*.make', 'Makefile', 'makefile', 'Makefile.*', 'GNUmakefile'
       mimetypes 'text/x-makefile'
 
-      bsd_special = %w(
-        include undef error warning if else elif endif for endfor
-      )
+      # TODO: Add support for special keywords
+      # bsd_special = %w(
+      #   include undef error warning if else elif endif for endfor
+      # )
 
       def initialize(opts={})
         super
@@ -69,7 +70,7 @@ module Rouge
       end
 
       state :block_body do
-        rule %r/(\t[\t ]*)([@-]?)/ do |m|
+        rule %r/(\t[\t ]*)([@-]?)/ do
           groups Text, Punctuation
           push :shell_line
         end

data/lib/rouge/lexers/mosel.rb

@@ -7,7 +7,7 @@ module Rouge
       tag 'mosel'
       filenames '*.mos'
       title "Mosel"
-      desc "An optimization language used by Fico's Xpress." 
+      desc "An optimization language used by Fico's Xpress."
       # http://www.fico.com/en/products/fico-xpress-optimization-suite
       filenames '*.mos'
 
@@ -24,46 +24,46 @@ module Rouge
       ############################################################################################################################
 
       core_keywords = %w(
-        and array as 
-        boolean break 
-        case count counter 
-        declarations div do dynamic 
-        elif else end evaluation exit 
-        false forall forward from function 
-        if imports in include initialisations initializations integer inter is_binary is_continuous is_free is_integer is_partint is_semcont is_semint is_sos1 is_sos2 
-        linctr list 
+        and array as
+        boolean break
+        case count counter
+        declarations div do dynamic
+        elif else end evaluation exit
+        false forall forward from function
+        if imports in include initialisations initializations integer inter is_binary is_continuous is_free is_integer is_partint is_semcont is_semint is_sos1 is_sos2
+        linctr list
         max min mod model mpvar
         next not of options or
-        package parameters procedure 
-        public prod range real record repeat requirements 
+        package parameters procedure
+        public prod range real record repeat requirements
         set string sum
         then to true
         union until uses
         version
         while with
       )
-      
+
       core_functions = %w(
         abs arctan assert
         bitflip bitneg bitset bitshift bittest bitval
         ceil cos create currentdate currenttime cuthead cuttail
         delcell exists exit exp exportprob
-        fclose fflush finalize findfirst findlast floor fopen fselect fskipline 
+        fclose fflush finalize findfirst findlast floor fopen fselect fskipline
         getact getcoeff getcoeffs getdual getfid getfirst gethead getfname getlast getobjval getparam getrcost getreadcnt getreverse getsize getslack getsol gettail gettype getvars
-        iseof ishidden isodd ln log 
-        makesos1 makesos2 maxlist minlist 
-        publish 
+        iseof ishidden isodd ln log
+        makesos1 makesos2 maxlist minlist
+        publish
         random read readln reset reverse round
-        setcoeff sethidden setioerr setname setparam setrandseed settype sin splithead splittail sqrt strfmt substr 
-        timestamp 
-        unpublish 
+        setcoeff sethidden setioerr setname setparam setrandseed settype sin splithead splittail sqrt strfmt substr
+        timestamp
+        unpublish
         write writeln
       )
-      
+
       ############################################################################################################################
       # mmxprs module elements
       ############################################################################################################################
-      
+
       mmxprs_functions = %w(
         addmipsol
         basisstability
@@ -79,26 +79,26 @@ module Rouge
         readbasis readdirs readsol refinemipsol rejectintsol repairinfeas resetbasis resetiis resetsol
         savebasis savemipsol savesol savestate selectsol setbstat setcallback setcbcutoff setgndata setlb setmipdir setmodcut setsol setub setucbdata stopoptimize
         unloadprob
-        writebasis writedirs writeprob writesol 
+        writebasis writedirs writeprob writesol
         xor
       )
-      
+
       mmxpres_constants = %w(XPRS_OPT  XPRS_UNF  XPRS_INF XPRS_UNB XPRS_OTH)
-      
+
       mmxprs_parameters = %w(XPRS_colorder XPRS_enumduplpol XPRS_enummaxsol XPRS_enumsols XPRS_fullversion XPRS_loadnames XPRS_problem XPRS_probname XPRS_verbose)
-      
-      
+
+
       ############################################################################################################################
       # mmsystem module elements
       ############################################################################################################################
-      
+
       mmsystem_functions = %w(
         addmonths
         copytext cuttext
-        deltext 
+        deltext
         endswith expandpath
         fcopy fdelete findfiles findtext fmove
-        getasnumber getchar getcwd getdate getday getdaynum getdays getdirsep 
+        getasnumber getchar getcwd getdate getday getdaynum getdays getdirsep
         getendparse setendparse
         getenv getfsize getfstat getftime gethour getminute getmonth getmsec getpathsep
         getqtype setqtype
@@ -108,29 +108,29 @@ module Rouge
         getstart setstart
         getsucc setsucc
         getsysinfo getsysstat gettime
-        gettmpdir 
+        gettmpdir
         gettrim settrim
         getweekday getyear
         inserttext isvalid
         makedir makepath newtar
         newzip nextfield
-        openpipe 
+        openpipe
         parseextn parseint parsereal parsetext pastetext pathmatch pathsplit
         qsort quote
-        readtextline regmatch regreplace removedir removefiles 
+        readtextline regmatch regreplace removedir removefiles
         setchar setdate setday setenv sethour
         setminute setmonth setmsec setsecond settime setyear sleep startswith system
         tarlist textfmt tolower toupper trim
         untar unzip
         ziplist
       )
-      
+
       mmsystem_parameters = %w(datefmt datetimefmt monthnames sys_endparse sys_fillchar sys_pid sys_qtype sys_regcache sys_sepchar)
 
       ############################################################################################################################
       # mmjobs  module elements
       ############################################################################################################################
-      
+
       mmjobs_instance_mgmt_functions = %w(
         clearaliases connect
         disconnect
@@ -138,7 +138,7 @@ module Rouge
         getaliases getbanner gethostalias
         sethostalias
       )
-      
+
       mmjobs_model_mgmt_functions = %w(
         compile
         detach
@@ -148,7 +148,7 @@ module Rouge
         setcontrol setdefstream setmodpar setworkdir stop
         unload
       )
-      
+
       mmjobs_synchornization_functions = %w(
         dropnextevent
         getclass getfromgid getfromid getfromuid getnextevent getvalue
@@ -158,9 +158,9 @@ module Rouge
         send setgid setuid
         wait waitfor
       )
-      
+
       mmjobs_functions = mmjobs_instance_mgmt_functions + mmjobs_model_mgmt_functions + mmjobs_synchornization_functions
-      
+
       mmjobs_parameters = %w(conntmpl defaultnode fsrvdelay fsrvnbiter fsrvport jobid keepalive nodenumber parentnumber)
 
 
@@ -201,22 +201,22 @@ module Rouge
         rule %r{[~!@#\$%\^&\*\(\)\+`\-={}\[\]:;<>\?,\.\/\|\\]}, Punctuation
 #        rule %r{'([^']|'')*'}, Str
 #        rule %r/"(\\\\|\\"|[^"])*"/, Str
-        
+
 
 
         rule %r/(true|false)\b/i, Name::Builtin
         rule %r/\b(#{core_keywords.join('|')})\b/i, Keyword
         rule %r/\b(#{core_functions.join('|')})\b/, Name::Builtin
-        
-        
+
+
 
         rule %r/\b(#{mmxprs_functions.join('|')})\b/, Name::Function
         rule %r/\b(#{mmxpres_constants.join('|')})\b/, Name::Constant
         rule %r/\b(#{mmxprs_parameters.join('|')})\b/i, Name::Property
-                  
+
         rule %r/\b(#{mmsystem_functions.join('|')})\b/i, Name::Function
         rule %r/\b(#{mmsystem_parameters.join('|')})\b/, Name::Property
-          
+
         rule %r/\b(#{mmjobs_functions.join('|')})\b/i, Name::Function
         rule %r/\b(#{mmjobs_parameters.join('|')})\b/, Name::Property
 

data/lib/rouge/lexers/nim.rb

@@ -133,11 +133,12 @@ module Rouge
         # Numbers
         # Note: Have to do this with a block to push multiple states first,
         #       since we can't pass array of states like w/ Pygments.
-        rule(/[0-9][0-9_]*(?=([eE.]|'?[fF](32|64)))/) do |number|
+        rule(/[0-9][0-9_]*(?=([eE.]|'?[fF](32|64)))/) do
          push :floatsuffix
          push :floatnumber
          token Num::Float
         end
+
         rule(/0[xX][a-fA-F0-9][a-fA-F0-9_]*/, Num::Hex,     :intsuffix)
         rule(/0[bB][01][01_]*/,               Num,          :intsuffix)
         rule(/0o[0-7][0-7_]*/,                Num::Oct,     :intsuffix)

data/lib/rouge/lexers/nix.rb

@@ -131,7 +131,7 @@ module Rouge
         rule %r/}/, Punctuation, :pop!
         mixin :expression
       end
-      
+
       state :expression do
         mixin :ignore
         mixin :comment

data/lib/rouge/lexers/openedge.rb

@@ -0,0 +1,429 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class OpenEdge < RegexLexer
+      tag 'openedge'
+      filenames '*.w', '*.i'
+      mimetypes 'text/x-openedge'
+
+      title "OpenEdge ABL"
+      desc "The OpenEdge ABL programming language"
+
+      # optional comment or whitespace
+      ws = %r((?:\s|//.*?\n|/[*].*?[*]/)+)
+      id = /[a-zA-Z_&{}][a-zA-Z0-9_\-&}]*/
+
+      def self.keywords
+        @keywords ||= Set.new %w(
+          &ELSE &ELSEIF &ENDIF &GLOB &GLOBAL-DEFINE &IF &MESSAGE &SCOP
+          &SCOPED-DEFINE &THEN &UNDEF &UNDEFINE &WEBSTREAM @ {&BATCH}
+          {&BATCH-MODE} {&FILE-NAME} {&LINE-NUMBE} {&LINE-NUMBER} {&OPSYS}
+          {&PROCESS-ARCHITECTURE} {&SEQUENCE} {&WINDOW-SYS} {&WINDOW-SYSTEM} ABS
+          ABSOLUTE ABSTRACT ACCELERATOR ACCUM ACCUM ACCUMULATE ACTIVE-FORM
+          ACTIVE-WINDOW ADD ADD-BUFFER ADD-CALC-COLUMN ADD-COLUMNS-FROM
+          ADD-EVENTS-PROCEDURE ADD-FIELDS-FROM ADD-FIRST ADD-INDEX-FIELD
+          ADD-LAST ADD-LIKE-COLUMN ADD-LIKE-FIELD ADD-LIKE-INDEX ADD-NEW-FIELD
+          ADD-NEW-INDEX ADD-SCHEMA-LOCATION ADD-SUPER-PROCEDURE ADM-DATA ADVISE
+          ALERT-BOX ALIAS ALL ALLOW-COLUMN-SEARCHING ALLOW-REPLICATION ALTER
+          ALWAYS-ON-TOP AMBIG AMBIGUOUS ANALYZ ANALYZE AND ANSI-ONLY ANY
+          ANYWHERE APPEND APPL-ALERT APPL-ALERT-BOXES APPL-CONTEXT-ID
+          APPLICATION APPLY APPSERVER-INFO APPSERVER-PASSWORD APPSERVER-USERID
+          ARRAY-MESSAGE AS ASC ASCENDING ASK-OVERWRITE ASSEMBLY ASSIGN
+          ASYNCHRONOUS ASYNC-REQUEST-COUNT ASYNC-REQUEST-HANDLE AT
+          ATTACHED-PAIRLIST ATTR ATTR-SPACE AUDIT-CONTROL AUDIT-ENABLED
+          AUDIT-EVENT-CONTEXT AUDIT-POLICY AUTHENTICATION-FAILED AUTHORIZATION
+          AUTO-COMP AUTO-COMPLETION AUTO-ENDKEY AUTO-END-KEY AUTO-GO AUTO-IND
+          AUTO-INDENT AUTOMATIC AUTO-RESIZE AUTO-RET AUTO-RETURN
+          AUTO-SYNCHRONIZE AUTO-Z AUTO-ZAP AVAIL AVAILABLE AVAILABLE-FORMATS AVE
+          AVERAGE AVG BACK BACKGROUND BACKWARD BACKWARDS BASE64-DECODE
+          BASE64-ENCODE BASE-ADE BASE-KEY BATCH BATCH-MODE BATCH-SIZE BEFORE-H
+          BEFORE-HIDE BEGIN-EVENT-GROUP BEGINS BELL BETWEEN BGC BGCOLOR
+          BIG-ENDIAN BINARY BIND BIND-WHERE BLANK BLOCK-ITERATION-DISPLAY
+          BLOCK-LEV BLOCK-LEVEL BORDER-B BORDER-BOTTOM-CHARS BORDER-BOTTOM-P
+          BORDER-BOTTOM-PIXELS BORDER-L BORDER-LEFT-CHARS BORDER-LEFT-P
+          BORDER-LEFT-PIXELS BORDER-R BORDER-RIGHT-CHARS BORDER-RIGHT-P
+          BORDER-RIGHT-PIXELS BORDER-T BORDER-TOP-CHARS BORDER-TOP-P
+          BORDER-TOP-PIXELS BOX BOX-SELECT BOX-SELECTABLE BREAK BROWSE BUFFER
+          BUFFER-CHARS BUFFER-COMPARE BUFFER-COPY BUFFER-CREATE BUFFER-DELETE
+          BUFFER-FIELD BUFFER-HANDLE BUFFER-LINES BUFFER-NAME
+          BUFFER-PARTITION-ID BUFFER-RELEASE BUFFER-VALUE BUTTON BUTTON BUTTONS
+          BY BY-POINTER BY-VARIANT-POINTER CACHE CACHE-SIZE CALL CALL-NAME
+          CALL-TYPE CANCEL-BREAK CANCEL-BUTTON CAN-CREATE CAN-DELETE CAN-DO
+          CAN-DO-DOMAIN-SUPPORT CAN-FIND CAN-QUERY CAN-READ CAN-SET CAN-WRITE
+          CAPS CAREFUL-PAINT CASE CASE-SEN CASE-SENSITIVE CAST CATCH CDECL
+          CENTER CENTERED CHAINED CHARACTER_LENGTH CHARSET CHECK CHECKED CHOOSE
+          CHR CLASS CLASS-TYPE CLEAR CLEAR-APPL-CONTEXT CLEAR-LOG CLEAR-SELECT
+          CLEAR-SELECTION CLEAR-SORT-ARROW CLEAR-SORT-ARROWS
+          CLIENT-CONNECTION-ID CLIENT-PRINCIPAL CLIENT-TTY CLIENT-TYPE
+          CLIENT-WORKSTATION CLIPBOARD CLOSE CLOSE-LOG CODE CODEBASE-LOCATOR
+          CODEPAGE CODEPAGE-CONVERT COL COLLATE COL-OF COLON COLON-ALIGN
+          COLON-ALIGNED COLOR COLOR-TABLE COLUMN COLUMN-BGCOLOR COLUMN-DCOLOR
+          COLUMN-FGCOLOR COLUMN-FONT COLUMN-LAB COLUMN-LABEL COLUMN-MOVABLE
+          COLUMN-OF COLUMN-PFCOLOR COLUMN-READ-ONLY COLUMN-RESIZABLE COLUMNS
+          COLUMN-SCROLLING COMBO-BOX COM-HANDLE COMMAND COMPARES COMPILE
+          COMPILER COMPLETE COM-SELF CONFIG-NAME CONNECT CONNECTED CONSTRUCTOR
+          CONTAINS CONTENTS CONTEXT CONTEXT-HELP CONTEXT-HELP-FILE
+          CONTEXT-HELP-ID CONTEXT-POPUP CONTROL CONTROL-BOX CONTROL-FRAME
+          CONVERT CONVERT-3D-COLORS CONVERT-TO-OFFS CONVERT-TO-OFFSET
+          COPY-DATASET COPY-LOB COPY-SAX-ATTRIBUTES COPY-TEMP-TABLE COUNT
+          COUNT-OF CPCASE CPCOLL CPINTERNAL CPLOG CPPRINT CPRCODEIN CPRCODEOUT
+          CPSTREAM CPTERM CRC-VALUE CREATE CREATE-LIKE CREATE-LIKE-SEQUENTIAL
+          CREATE-NODE-NAMESPACE CREATE-RESULT-LIST-ENTRY CREATE-TEST-FILE
+          CURRENT CURRENT_DATE CURRENT_DATE CURRENT-CHANGED CURRENT-COLUMN
+          CURRENT-ENV CURRENT-ENVIRONMENT CURRENT-ITERATION CURRENT-LANG
+          CURRENT-LANGUAGE CURRENT-QUERY CURRENT-REQUEST-INFO
+          CURRENT-RESPONSE-INFO CURRENT-RESULT-ROW CURRENT-ROW-MODIFIED
+          CURRENT-VALUE CURRENT-WINDOW CURS CURSOR CURSOR-CHAR CURSOR-LINE
+          CURSOR-OFFSET DATABASE DATA-BIND DATA-ENTRY-RET DATA-ENTRY-RETURN
+          DATA-REL DATA-RELATION DATASERVERS DATASET DATASET-HANDLE DATA-SOURCE
+          DATA-SOURCE-COMPLETE-MAP DATA-SOURCE-MODIFIED DATA-SOURCE-ROWID DATA-T
+          DATA-TYPE DATE-F DATE-FORMAT DAY DBCODEPAGE DBCOLLATION DB-CONTEXT
+          DBNAME DBPARAM DB-REFERENCES DBREST DBRESTRICTIONS DBTASKID DBTYPE
+          DBVERS DBVERSION DCOLOR DDE DDE-ERROR DDE-I DDE-ID DDE-ITEM DDE-NAME
+          DDE-TOPIC DEBLANK DEBU DEBUG DEBUG-ALERT DEBUGGER DEBUG-LIST DECIMALS
+          DECLARE DECLARE-NAMESPACE DECRYPT DEF DEFAULT DEFAULT-BUFFER-HANDLE
+          DEFAULT-BUTTON DEFAULT-COMMIT DEFAULT-EX DEFAULT-EXTENSION
+          DEFAULT-NOXL DEFAULT-NOXLATE DEFAULT-VALUE DEFAULT-WINDOW DEFAUT-B
+          DEFINE DEFINED DEFINE-USER-EVENT-MANAGER DEL DELEGATE DELETE DELETE
+          PROCEDURE DELETE-CHAR DELETE-CURRENT-ROW DELETE-LINE
+          DELETE-RESULT-LIST-ENTRY DELETE-SELECTED-ROW DELETE-SELECTED-ROWS
+          DELIMITER DESC DESCENDING DESELECT-FOCUSED-ROW DESELECTION
+          DESELECT-ROWS DESELECT-SELECTED-ROW DESTRUCTOR DIALOG-BOX DICT
+          DICTIONARY DIR DISABLE DISABLE-AUTO-ZAP DISABLED DISABLE-DUMP-TRIGGERS
+          DISABLE-LOAD-TRIGGERS DISCON DISCONNECT DISP DISPLAY DISPLAY-MESSAGE
+          DISPLAY-T DISPLAY-TYPE DISTINCT DO DOMAIN-DESCRIPTION DOMAIN-NAME
+          DOMAIN-TYPE DOS DOUBLE DOWN DRAG-ENABLED DROP DROP-DOWN DROP-DOWN-LIST
+          DROP-FILE-NOTIFY DROP-TARGET ds-close-cursor DSLOG-MANAGER DUMP
+          DYNAMIC DYNAMIC-ENUM DYNAMIC-FUNCTION DYNAMIC-INVOKE EACH ECHO EDGE
+          EDGE-CHARS EDGE-P EDGE-PIXELS EDIT-CAN-PASTE EDIT-CAN-UNDO EDIT-CLEAR
+          EDIT-COPY EDIT-CUT EDITING EDITOR EDIT-PASTE EDIT-UNDO ELSE EMPTY
+          EMPTY-TEMP-TABLE ENABLE ENABLED-FIELDS ENCODE ENCRYPT
+          ENCRYPT-AUDIT-MAC-KEY ENCRYPTION-SALT END END-DOCUMENT END-ELEMENT
+          END-EVENT-GROUP END-FILE-DROP ENDKEY END-KEY END-MOVE END-RESIZE
+          END-ROW-RESIZE END-USER-PROMPT ENTERED ENTITY-EXPANSION-LIMIT ENTRY
+          ENUM EQ ERROR ERROR-COL ERROR-COLUMN ERROR-ROW ERROR-STACK-TRACE
+          ERROR-STAT ERROR-STATUS ESCAPE ETIME EVENT EVENT-GROUP-ID
+          EVENT-PROCEDURE EVENT-PROCEDURE-CONTEXT EVENTS EVENT-T EVENT-TYPE
+          EXCEPT EXCLUSIVE EXCLUSIVE-ID EXCLUSIVE-LOCK EXCLUSIVE-WEB-USER
+          EXECUTE EXISTS EXP EXPAND EXPANDABLE EXPLICIT EXPORT EXPORT-PRINCIPAL
+          EXTENDED EXTENT EXTERNAL FALSE FETCH FETCH-SELECTED-ROW FGC FGCOLOR
+          FIELD FIELD FIELDS FILE FILE-CREATE-DATE FILE-CREATE-TIME FILE-INFO
+          FILE-INFORMATION FILE-MOD-DATE FILE-MOD-TIME FILENAME FILE-NAME
+          FILE-OFF FILE-OFFSET FILE-SIZE FILE-TYPE FILL FILLED FILL-IN FILTERS
+          FINAL FINALLY FIND FIND-BY-ROWID FIND-CASE-SENSITIVE FIND-CURRENT
+          FINDER FIND-FIRST FIND-GLOBAL FIND-LAST FIND-NEXT-OCCURRENCE
+          FIND-PREV-OCCURRENCE FIND-SELECT FIND-UNIQUE FIND-WRAP-AROUND FIRST
+          FIRST-ASYNCH-REQUEST FIRST-CHILD FIRST-COLUMN FIRST-FORM FIRST-OBJECT
+          FIRST-OF FIRST-PROC FIRST-PROCEDURE FIRST-SERVER FIRST-TAB-I
+          FIRST-TAB-ITEM FIT-LAST-COLUMN FIXED-ONLY FLAT-BUTTON FLOAT FOCUS
+          FOCUSED-ROW FOCUSED-ROW-SELECTED FONT FONT-TABLE FOR FORCE-FILE FORE
+          FOREGROUND FORM FORMAT FORMATTE FORMATTED FORM-LONG-INPUT FORWARD
+          FORWARD FORWARDS FRAGMEN FRAGMENT FRAM FRAME FRAME-COL FRAME-DB
+          FRAME-DOWN FRAME-FIELD FRAME-FILE FRAME-INDE FRAME-INDEX FRAME-LINE
+          FRAME-NAME FRAME-ROW FRAME-SPA FRAME-SPACING FRAME-VAL FRAME-VALUE
+          FRAME-X FRAME-Y FREQUENCY FROM FROM-C FROM-CHARS FROM-CUR FROM-CURRENT
+          FROM-P FROM-PIXELS FULL-HEIGHT FULL-HEIGHT-CHARS FULL-HEIGHT-P
+          FULL-HEIGHT-PIXELS FULL-PATHN FULL-PATHNAME FULL-WIDTH
+          FULL-WIDTH-CHARS FULL-WIDTH-P FULL-WIDTH-PIXELS FUNCTION
+          FUNCTION-CALL-TYPE GATEWAY GATEWAYS GE GENERATE-MD5 GENERATE-PBE-KEY
+          GENERATE-PBE-SALT GENERATE-RANDOM-KEY GENERATE-UUID GET
+          GET-ATTR-CALL-TYPE GET-ATTRIBUTE-NODE GET-BINARY-DATA GET-BLUE
+          GET-BLUE-VALUE GET-BROWSE-COLUMN GET-BUFFER-HANDLE GETBYTE GET-BYTE
+          GET-CALLBACK-PROC-CONTEXT GET-CALLBACK-PROC-NAME GET-CGI-LIST
+          GET-CGI-LONG-VALUE GET-CGI-VALUE GET-CLASS GET-CODEPAGES
+          GET-COLLATIONS GET-CONFIG-VALUE GET-CURRENT GET-DOUBLE
+          GET-DROPPED-FILE GET-DYNAMIC GET-ERROR-COLUMN GET-ERROR-ROW GET-FILE
+          GET-FILE-NAME GET-FILE-OFFSE GET-FILE-OFFSET GET-FIRST GET-FLOAT
+          GET-GREEN GET-GREEN-VALUE GET-INDEX-BY-NAMESPACE-NAME
+          GET-INDEX-BY-QNAME GET-INT64 GET-ITERATION  GET-KEY-VAL GET-KEY-VALUE
+          GET-LAST GET-LOCALNAME-BY-INDEX GET-LONG GET-MESSAGE GET-NEXT
+          GET-NUMBER GET-POINTER-VALUE GET-PREV GET-PRINTERS GET-PROPERTY
+          GET-QNAME-BY-INDEX GET-RED GET-RED-VALUE GET-REPOSITIONED-ROW
+          GET-RGB-VALUE GET-SELECTED GET-SELECTED-WIDGET GET-SHORT GET-SIGNATURE
+          GET-SIZE GET-STRING GET-TAB-ITEM GET-TEXT-HEIGHT GET-TEXT-HEIGHT-CHARS
+          GET-TEXT-HEIGHT-P GET-TEXT-HEIGHT-PIXELS GET-TEXT-WIDTH
+          GET-TEXT-WIDTH-CHARS GET-TEXT-WIDTH-P GET-TEXT-WIDTH-PIXELS
+          GET-TYPE-BY-INDEX GET-TYPE-BY-NAMESPACE-NAME GET-TYPE-BY-QNAME
+          GET-UNSIGNED-LONG GET-UNSIGNED-SHORT GET-URI-BY-INDEX
+          GET-VALUE-BY-INDEX GET-VALUE-BY-NAMESPACE-NAME GET-VALUE-BY-QNAME
+          GET-WAIT-STATE GLOBAL GO-ON GO-PEND GO-PENDING GRANT GRAPHIC-E
+          GRAPHIC-EDGE GRID-FACTOR-H GRID-FACTOR-HORIZONTAL GRID-FACTOR-V
+          GRID-FACTOR-VERTICAL GRID-SNAP GRID-UNIT-HEIGHT GRID-UNIT-HEIGHT-CHARS
+          GRID-UNIT-HEIGHT-P GRID-UNIT-HEIGHT-PIXELS GRID-UNIT-WIDTH
+          GRID-UNIT-WIDTH-CHARS GRID-UNIT-WIDTH-P GRID-UNIT-WIDTH-PIXELS
+          GRID-VISIBLE GROUP GT GUID HANDLER HAS-RECORDS HAVING HEADER HEIGHT
+          HEIGHT HEIGHT-CHARS HEIGHT-P HEIGHT-P HEIGHT-PIXELS HELP HEX-DECODE
+          HEX-ENCODE HIDDEN HIDE HORI HORIZONTAL HOST-BYTE-ORDER HTML-CHARSET
+          HTML-END-OF-LINE HTML-END-OF-PAGE HTML-FRAME-BEGIN HTML-FRAME-END
+          HTML-HEADER-BEGIN HTML-HEADER-END HTML-TITLE-BEGIN HTML-TITLE-END HWND
+          ICON IF IMAGE IMAGE-DOWN IMAGE-INSENSITIVE IMAGE-SIZE IMAGE-SIZE-C
+          IMAGE-SIZE-CHARS IMAGE-SIZE-P IMAGE-SIZE-PIXELS IMAGE-UP
+          IMMEDIATE-DISPLAY IMPLEMENTS IMPORT IMPORT-PRINCIPAL IN
+          INCREMENT-EXCLUSIVE-ID INDEX INDEXED-REPOSITION INDEX-HINT
+          INDEX-INFORMATION INDICATOR INFO INFORMATION IN-HANDLE INHERIT-BGC
+          INHERIT-BGCOLOR INHERIT-FGC INHERIT-FGCOLOR INHERITS INIT INITIAL
+          INITIAL-DIR INITIAL-FILTER INITIALIZE-DOCUMENT-TYPE INITIATE
+          INNER-CHARS INNER-LINES INPUT INPUT-O INPUT-OUTPUT INPUT-VALUE INSERT
+          INSERT-ATTRIBUTE INSERT-B INSERT-BACKTAB INSERT-FILE INSERT-ROW
+          INSERT-STRING INSERT-T INSERT-TAB INTERFACE INTERNAL-ENTRIES INTO
+          INVOKE IS IS-ATTR IS-ATTR IS-ATTR-SPACE IS-CLAS IS-CLASS IS-JSON
+          IS-LEAD-BYTE IS-OPEN IS-PARAMETER-SET IS-PARTITIONE IS-PARTITIONED
+          IS-ROW-SELECTED IS-SELECTED IS-XML ITEM ITEMS-PER-ROW JOIN
+          JOIN-BY-SQLDB KBLABEL KEEP-CONNECTION-OPEN KEEP-FRAME-Z
+          KEEP-FRAME-Z-ORDER KEEP-MESSAGES KEEP-SECURITY-CACHE KEEP-TAB-ORDER
+          KEY KEYCODE KEY-CODE KEYFUNC KEY-FUNC KEYFUNCTION KEY-FUNCTION
+          KEYLABEL KEY-LABEL KEYS KEYWORD KEYWORD-ALL LABEL LABEL-BGC
+          LABEL-BGCOLOR LABEL-DC LABEL-DCOLOR LABEL-FGC LABEL-FGCOLOR LABEL-FONT
+          LABEL-PFC LABEL-PFCOLOR LABELS LABELS-HAVE-COLONS LANDSCAPE LANGUAGE
+          LANGUAGES LARGE LARGE-TO-SMALL LAST LAST-ASYNCH-REQUEST LAST-BATCH
+          LAST-CHILD LAST-EVEN LAST-EVENT LAST-FORM LASTKEY LAST-KEY LAST-OBJECT
+          LAST-OF LAST-PROCE LAST-PROCEDURE LAST-SERVER LAST-TAB-I LAST-TAB-ITEM
+          LC LDBNAME LE LEAVE LEFT-ALIGN LEFT-ALIGNED LEFT-TRIM LENGTH LIBRARY
+          LIKE LIKE-SEQUENTIAL LINE LINE-COUNT LINE-COUNTER LIST-EVENTS LISTI
+          LISTING LIST-ITEM-PAIRS LIST-ITEMS LIST-PROPERTY-NAMES
+          LIST-QUERY-ATTRS LIST-SET-ATTRS LIST-WIDGETS LITERAL-QUESTION
+          LITTLE-ENDIAN LOAD LOAD-DOMAINS LOAD-ICON LOAD-IMAGE LOAD-IMAGE-DOWN
+          LOAD-IMAGE-INSENSITIVE LOAD-IMAGE-UP LOAD-MOUSE-P LOAD-MOUSE-POINTER
+          LOAD-PICTURE LOAD-SMALL-ICON LOCAL-NAME LOCAL-VERSION-INFO
+          LOCATOR-COLUMN-NUMBER LOCATOR-LINE-NUMBER LOCATOR-PUBLIC-ID
+          LOCATOR-SYSTEM-ID LOCATOR-TYPE LOCKED LOCK-REGISTRATION LOG
+          LOG-AUDIT-EVENT LOGIN-EXPIRATION-TIMESTAMP LOGIN-HOST LOGIN-STATE
+          LOG-MANAGER LOGOUT LOOKAHEAD LOOKUP LT MACHINE-CLASS MANDATORY
+          MANUAL-HIGHLIGHT MAP MARGIN-EXTRA MARGIN-HEIGHT MARGIN-HEIGHT-CHARS
+          MARGIN-HEIGHT-P MARGIN-HEIGHT-PIXELS MARGIN-WIDTH MARGIN-WIDTH-CHARS
+          MARGIN-WIDTH-P MARGIN-WIDTH-PIXELS MARK-NEW MARK-ROW-STATE MATCHES MAX
+          MAX MAX-BUTTON MAX-CHARS MAX-DATA-GUESS MAX-HEIGHT MAX-HEIGHT-C
+          MAX-HEIGHT-CHARS MAX-HEIGHT-P MAX-HEIGHT-PIXELS MAXIMIZE MAXIMUM
+          MAXIMUM-LEVEL MAX-ROWS MAX-SIZE MAX-VAL MAX-VALUE MAX-WIDTH MAX-WIDTH
+          MAX-WIDTH-CHARS MAX-WIDTH-P MAX-WIDTH-PIXELS MD5-DIGEST MEMBER
+          MEMPTR-TO-NODE-VALUE MENU MENUBAR MENU-BAR MENU-ITEM MENU-K MENU-KEY
+          MENU-M MENU-MOUSE MERGE-BY-FIELD MESSAGE MESSAGE-AREA
+          MESSAGE-AREA-FONT MESSAGE-LINES METHOD MIN MIN MIN-BUTTON
+          MIN-COLUMN-WIDTH-C MIN-COLUMN-WIDTH-CHARS MIN-COLUMN-WIDTH-P
+          MIN-COLUMN-WIDTH-PIXELS MIN-HEIGHT MIN-HEIGHT-CHARS MIN-HEIGHT-P
+          MIN-HEIGHT-PIXELS MINIMUM MIN-SIZE MIN-VAL MIN-VALUE MIN-WIDTH
+          MIN-WIDTH-CHARS MIN-WIDTH-P MIN-WIDTH-PIXELS MOD MODIFIED MODULO MONTH
+          MOUSE MOUSE-P MOUSE-POINTER MOVABLE MOVE-AFTER MOVE-AFTER-TAB-ITEM
+          MOVE-BEFOR MOVE-BEFORE-TAB-ITEM MOVE-COL MOVE-COLUMN MOVE-TO-B
+          MOVE-TO-BOTTOM MOVE-TO-EOF MOVE-TO-T MOVE-TO-TOP MPE MTIME
+          MULTI-COMPILE MULTIPLE MULTIPLE-KEY MULTITASKING-INTERVAL MUST-EXIST
+          NAME NAMESPACE-PREFIX NAMESPACE-URI NATIVE NE NEEDS-APPSERVER-PROMPT
+          NEEDS-PROMPT NEW NEW-INSTANCE NEW-ROW NEXT NEXT-COLUMN NEXT-PROMPT
+          NEXT-ROWID NEXT-SIBLING NEXT-TAB-I NEXT-TAB-ITEM NEXT-VALUE NO
+          NO-APPLY NO-ARRAY-MESSAGE NO-ASSIGN NO-ATTR NO-ATTR NO-ATTR-LIST
+          NO-ATTR-SPACE NO-AUTO-VALIDATE NO-BIND-WHERE NO-BOX NO-CONSOLE
+          NO-CONVERT NO-CONVERT-3D-COLORS NO-CURRENT-VALUE NO-DEBUG
+          NODE-VALUE-TO-MEMPTR NO-DRAG NO-ECHO NO-EMPTY-SPACE NO-ERROR NO-F
+          NO-FILL NO-FOCUS NO-HELP NO-HIDE NO-INDEX-HINT NO-INHERIT-BGC
+          NO-INHERIT-BGCOLOR NO-INHERIT-FGC NO-INHERIT-FGCOLOR NO-JOIN-BY-SQLDB
+          NO-LABEL NO-LABELS NO-LOBS NO-LOCK NO-LOOKAHEAD NO-MAP NO-MES
+          NO-MESSAGE NONAMESPACE-SCHEMA-LOCATION NONE NO-PAUSE NO-PREFE
+          NO-PREFETCH NORMALIZE NO-ROW-MARKERS NO-SCROLLBAR-VERTICAL
+          NO-SEPARATE-CONNECTION NO-SEPARATORS NOT NO-TAB-STOP NOT-ACTIVE NO-UND
+          NO-UNDERLINE NO-UNDO NO-VAL NO-VALIDATE NOW NO-WAIT NO-WORD-WRAP NULL
+          NUM-ALI NUM-ALIASES NUM-BUFFERS NUM-BUT NUM-BUTTONS NUM-COL
+          NUM-COLUMNS NUM-COPIES NUM-DBS NUM-DROPPED-FILES NUM-ENTRIES NUMERIC
+          NUMERIC-F NUMERIC-FORMAT NUM-FIELDS NUM-FORMATS NUM-ITEMS
+          NUM-ITERATIONS NUM-LINES NUM-LOCKED-COL NUM-LOCKED-COLUMNS
+          NUM-MESSAGES NUM-PARAMETERS NUM-REFERENCES NUM-REPLACED NUM-RESULTS
+          NUM-SELECTED NUM-SELECTED-ROWS NUM-SELECTED-WIDGETS NUM-TABS
+          NUM-TO-RETAIN NUM-VISIBLE-COLUMNS OBJECT OCTET-LENGTH OF OFF OK
+          OK-CANCEL OLD ON ON-FRAME ON-FRAME-BORDER OPEN OPSYS OPTION OR
+          ORDERED-JOIN ORDINAL OS-APPEND OS-COMMAND OS-COPY OS-CREATE-DIR
+          OS-DELETE OS-DIR OS-DRIVE OS-DRIVES OS-ERROR OS-GETENV OS-RENAME
+          OTHERWISE OUTPUT OVERLAY OVERRIDE OWNER PAGE PAGE-BOT PAGE-BOTTOM
+          PAGED PAGE-NUM PAGE-NUMBER PAGE-SIZE PAGE-TOP PAGE-WID PAGE-WIDTH
+          PARAM PARAMETER PARENT PARSE-STATUS PARTIAL-KEY PASCAL PASSWORD-FIELD
+          PATHNAME PAUSE PBE-HASH-ALG PBE-HASH-ALGORITHM PBE-KEY-ROUNDS PDBNAME
+          PERSIST PERSISTENT PERSISTENT-CACHE-DISABLED PFC PFCOLOR PIXELS
+          PIXELS-PER-COL PIXELS-PER-COLUMN PIXELS-PER-ROW POPUP-M POPUP-MENU
+          POPUP-O POPUP-ONLY PORTRAIT POSITION PRECISION PREFER-DATASET PREPARED
+          PREPARE-STRING PREPROC PREPROCESS PRESEL PRESELECT PREV PREV-COLUMN
+          PREV-SIBLING PREV-TAB-I PREV-TAB-ITEM PRIMARY PRINTER
+          PRINTER-CONTROL-HANDLE PRINTER-HDC PRINTER-NAME PRINTER-PORT
+          PRINTER-SETUP PRIVATE PRIVATE-D PRIVATE-DATA PRIVILEGES PROCE
+          PROCEDURE PROCEDURE-CALL-TYPE PROCEDURE-TYPE PROCESS PROC-HA
+          PROC-HANDLE PROC-ST PROC-STATUS proc-text proc-text-buffer PROFILER
+          PROGRAM-NAME PROGRESS PROGRESS-S PROGRESS-SOURCE PROMPT PROMPT-F
+          PROMPT-FOR PROMSGS PROPATH PROPERTY PROTECTED PROVERS PROVERSION PROXY
+          PROXY-PASSWORD PROXY-USERID PUBLIC PUBLIC-ID PUBLISH PUBLISHED-EVENTS
+          PUT PUTBYTE PUT-BYTE PUT-DOUBLE PUT-FLOAT PUT-INT64 PUT-KEY-VAL
+          PUT-KEY-VALUE PUT-LONG PUT-SHORT PUT-STRING PUT-UNSIGNED-LONG QUERY
+          QUERY-CLOSE QUERY-OFF-END QUERY-OPEN QUERY-PREPARE QUERY-TUNING
+          QUESTION QUIT QUOTER RADIO-BUTTONS RADIO-SET RANDOM RAW-TRANSFER
+          RCODE-INFO RCODE-INFORMATION READ-AVAILABLE READ-EXACT-NUM READ-FILE
+          READ-JSON READKEY READ-ONLY READ-XML REAL RECORD-LENGTH RECT RECTANGLE
+          RECURSIVE REFERENCE-ONLY REFRESH REFRESHABLE REFRESH-AUDIT-POLICY
+          REGISTER-DOMAIN RELEASE REMOTE REMOVE-EVENTS-PROCEDURE
+          REMOVE-SUPER-PROCEDURE REPEAT REPLACE REPLACE-SELECTION-TEXT
+          REPOSITION REPOSITION-BACKWARD REPOSITION-FORWARD REPOSITION-MODE
+          REPOSITION-TO-ROW REPOSITION-TO-ROWID REQUEST REQUEST-INFO RESET
+          RESIZA RESIZABLE RESIZE RESPONSE-INFO RESTART-ROW RESTART-ROWID RETAIN
+          RETAIN-SHAPE RETRY RETRY-CANCEL RETURN RETURN-ALIGN RETURN-INS
+          RETURN-INSERTED RETURNS RETURN-TO-START-DI RETURN-TO-START-DIR
+          RETURN-VAL RETURN-VALUE RETURN-VALUE-DATA-TYPE REVERSE-FROM REVERT
+          REVOKE RGB-VALUE RIGHT-ALIGNED RIGHT-TRIM R-INDEX ROLES ROUND
+          ROUTINE-LEVEL ROW ROW-HEIGHT-CHARS ROW-HEIGHT-PIXELS ROW-MARKERS
+          ROW-OF ROW-RESIZABLE RULE RUN RUN-PROCEDURE SAVE SAVE CACHE SAVE-AS
+          SAVE-FILE SAX-COMPLE SAX-COMPLETE SAX-PARSE SAX-PARSE-FIRST
+          SAX-PARSE-NEXT SAX-PARSER-ERROR SAX-RUNNING SAX-UNINITIALIZED
+          SAX-WRITE-BEGIN SAX-WRITE-COMPLETE SAX-WRITE-CONTENT SAX-WRITE-ELEMENT
+          SAX-WRITE-ERROR SAX-WRITE-IDLE SAX-WRITER SAX-WRITE-TAG SCHEMA
+          SCHEMA-LOCATION SCHEMA-MARSHAL SCHEMA-PATH SCREEN SCREEN-IO
+          SCREEN-LINES SCREEN-VAL SCREEN-VALUE SCROLL SCROLLABLE SCROLLBAR-H
+          SCROLLBAR-HORIZONTAL SCROLL-BARS SCROLLBAR-V SCROLLBAR-VERTICAL
+          SCROLL-DELTA SCROLLED-ROW-POS SCROLLED-ROW-POSITION SCROLLING
+          SCROLL-OFFSET SCROLL-TO-CURRENT-ROW SCROLL-TO-I SCROLL-TO-ITEM
+          SCROLL-TO-SELECTED-ROW SDBNAME SEAL SEAL-TIMESTAMP SEARCH SEARCH-SELF
+          SEARCH-TARGER SECTION SECURITY-POLICY SEEK SELECT SELECTABLE
+          SELECT-ALL SELECTED SELECT-FOCUSED-ROW SELECTION SELECTION-END
+          SELECTION-LIST SELECTION-START SELECTION-TEXT SELECT-NEXT-ROW
+          SELECT-PREV-ROW SELECT-ROW SELF SEND send-sql send-sql-statement
+          SENSITIVE SEPARATE-CONNECTION SEPARATOR-FGCOLOR SEPARATORS
+          SERIALIZABLE SERIALIZE-HIDDEN SERIALIZE-NAME SERVER
+          SERVER-CONNECTION-BOUND SERVER-CONNECTION-BOUND-REQUEST
+          SERVER-CONNECTION-CONTEXT SERVER-CONNECTION-ID SERVER-OPERATING-MODE
+          SESSION SESSION-IDSET SET-APPL-CONTEXT SET-ATTR-CALL-TYPE
+          SET-ATTRIBUTE-NODE SET-BLUE SET-BLUE-VALUE SET-BREAK SET-BUFFERS
+          SET-CALLBACK SET-CLIENT SET-COMMIT SET-CONTENTS SET-CURRENT-VALUE
+          SET-DB-CLIENT SET-DYNAMIC SET-EVENT-MANAGER-OPTION SET-GREEN
+          SET-GREEN-VALUE SET-INPUT-SOURCE SET-OPTION SET-OUTPUT-DESTINATION
+          SET-PARAMETER SET-POINTER-VALUE SET-PROPERTY SET-RED SET-RED-VALUE
+          SET-REPOSITIONED-ROW SET-RGB-VALUE SET-ROLLBACK SET-SELECTION SET-SIZE
+          SET-SORT-ARROW SETUSER SETUSERID SET-WAIT-STATE SHA1-DIGEST SHARE
+          SHARED SHARE-LOCK SHOW-IN-TASKBAR SHOW-STAT SHOW-STATS SIDE-LAB
+          SIDE-LABEL-H SIDE-LABEL-HANDLE SIDE-LABELS SIGNATURE SILENT SIMPLE
+          SINGLE SINGLE-RUN SINGLETON SIZE SIZE-C SIZE-CHARS SIZE-P SIZE-PIXELS
+          SKIP SKIP-DELETED-RECORD SLIDER SMALL-ICON SMALLINT SMALL-TITLE SOME
+          SORT SORT-ASCENDING SORT-NUMBER SOURCE SOURCE-PROCEDURE SPACE SQL SQRT
+          SSL-SERVER-NAME STANDALONE START START-DOCUMENT START-ELEMENT
+          START-MOVE START-RESIZE START-ROW-RESIZE STATE-DETAIL STATIC STATUS
+          STATUS-AREA STATUS-AREA-FONT STDCALL STOP STOP-AFTER STOP-PARSING
+          STOPPE STOPPED STORED-PROC STORED-PROCEDURE STREAM STREAM-HANDLE
+          STREAM-IO STRETCH-TO-FIT STRICT STRICT-ENTITY-RESOLUTION STRING
+          STRING-VALUE STRING-XREF SUB- SUB-AVE SUB-AVERAGE SUB-COUNT
+          SUB-MAXIMUM SUB-MENU SUB-MIN SUB-MINIMUM SUBSCRIBE SUBST SUBSTITUTE
+          SUBSTR SUBSTRING SUB-TOTAL SUBTYPE SUM SUM-MAX SUPER SUPER-PROCEDURES
+          SUPPRESS-NAMESPACE-PROCESSING SUPPRESS-W SUPPRESS-WARNINGS
+          SYMMETRIC-ENCRYPTION-ALGORITHM SYMMETRIC-ENCRYPTION-IV
+          SYMMETRIC-ENCRYPTION-KEY SYMMETRIC-SUPPORT SYSTEM-ALERT
+          SYSTEM-ALERT-BOXES SYSTEM-DIALOG SYSTEM-HELP SYSTEM-ID TABLE
+          TABLE-HANDLE TABLE-NUMBER TABLE-SCAN TAB-POSITION TAB-STOP TARGET
+          TARGET-PROCEDURE TEMP-DIR TEMP-DIRECTORY TEMP-TABLE TEMP-TABLE-PREPARE
+          TERM TERMINAL TERMINATETEXT TEXT TEXT-CURSOR TEXT-SEG-GROW
+          TEXT-SELECTED THEN THIS-OBJECT THIS-PROCEDURE THREAD-SAFE THREE-D
+          THROUGH THROW THRU TIC-MARKS TIME TIME-SOURCE TITLE TITLE-BGC
+          TITLE-BGCOLOR TITLE-DC TITLE-DCOLORTITLE-FGC TITLE-FGCOLOR TITLE-FO
+          TITLE-FONT TO TODAY TOGGLE-BOX TOOLTIP TOOLTIPS TOPIC TOP-NAV-QUERY
+          TOP-ONLY TO-ROWID TOTAL TRAILING TRANS TRANSACTION TRANSACTION-MODE
+          TRANS-INIT-PROCEDURE TRANSPARENT TRIGGER TRIGGERS TRIM TRUE TRUNC
+          TRUNCATE TYPE TYPE-OF UNBOX UNBUFF UNBUFFERED UNDERL UNDERLINE UNDO
+          UNFORM UNFORMATTED UNION UNIQUE UNIQUE-ID UNIQUE-MATCH UNIX
+          UNLESS-HIDDEN UNLOAD UNSIGNED-LONG UNSUBSCRIBE UP UPDATE
+          UPDATE-ATTRIBUTE URL URL-DECODE URL-ENCODE URL-PASSWORD URL-USERID USE
+          USE-DICT-EXPS USE-FILENAME USE-INDEX USER USE-REVVIDEO USERID USER-ID
+          USE-TEXT USE-UNDERLINE USE-WIDGET-POOL USING V6DISPLAY V6FRAME
+          VALIDATE VALIDATE-EXPRESSION VALIDATE-MESSAGE VALIDATE-SEAL
+          VALIDATION-ENABLED VALID-EVENT VALID-HANDLE VALID-OBJECT VALUE
+          VALUE-CHANGED VALUES VAR VARIABLE VERBOSE VERSION VERT VERTICAL VIEW
+          VIEW-AS VIEW-FIRST-COLUMN-ON-REOPEN VIRTUAL-HEIGHT
+          VIRTUAL-HEIGHT-CHARS VIRTUAL-HEIGHT-P VIRTUAL-HEIGHT-PIXELS
+          VIRTUAL-WIDTH VIRTUAL-WIDTH-CHARS VIRTUAL-WIDTH-P VIRTUAL-WIDTH-PIXELS
+          VISIBLE VOID WAIT WAIT-FOR WARNING WEB-CONTEXT WEEKDAY WHEN WHERE
+          WHILE WIDGET WIDGET-E WIDGET-ENTER WIDGET-ID WIDGET-L WIDGET-LEAVE
+          WIDGET-POOL WIDTH WIDTH WIDTH-CHARS WIDTH-P WIDTH-PIXELS WINDOW
+          WINDOW-MAXIM WINDOW-MAXIMIZED WINDOW-MINIM WINDOW-MINIMIZED
+          WINDOW-NAME WINDOW-NORMAL WINDOW-STA WINDOW-STATE WINDOW-SYSTEM WITH
+          WORD-INDEX WORD-WRAP WORK-AREA-HEIGHT-PIXELS WORK-AREA-WIDTH-PIXELS
+          WORK-AREA-X WORK-AREA-Y WORKFILE WORK-TAB WORK-TABLE WRITE WRITE-CDATA
+          WRITE-CHARACTERS WRITE-COMMENT WRITE-DATA-ELEMENT WRITE-EMPTY-ELEMENT
+          WRITE-ENTITY-REF WRITE-EXTERNAL-DTD WRITE-FRAGMENT WRITE-JSON
+          WRITE-MESSAGE WRITE-PROCESSING-INSTRUCTION WRITE-STATUS WRITE-XML
+          WRITE-XMLSCHEMA X XCODE XML-DATA-TYPE XML-ENTITY-EXPANSION-LIMIT
+          XML-NODE-TYPE XML-SCHEMA-PATH XML-STRICT-ENTITY-RESOLUTION
+          XML-SUPPRESS-NAMESPACE-PROCESSING X-OF XREF XREF-XML Y YEAR
+          YEAR-OFFSET YES YES-NO YES-NO-CANCEL Y-OF
+        )
+      end
+
+      def self.keywords_type
+        @keywords_type ||= Set.new %w(
+          BLOB CHARACTER CHAR CLOB COM-HANDLE DATE DATETIME DATETIME-TZ DECIMAL
+          DEC HANDLE INT64 INTEGER INT LOGICAL LONGCHAR MEMPTR RAW RECID ROWID
+          WIDGET-HANDLE
+        )
+      end
+
+      state :root do
+        rule %r(\s+), Text
+
+        rule %r((\.)(\s+)) do
+          groups Operator, Text
+        end
+
+        rule %r(//[^\n]*), Comment::Single
+        rule %r(/[*].*?[*]/)m, Comment::Multiline
+
+        rule %r/(\{?&)(\S+)/ do
+          groups Comment::Preproc, Name::Other
+          push :preproc
+        end
+
+        rule %r/"/, Str, :string
+        rule %r('(\\.|\\[0-7]{1,3}|\\x[a-f0-9]{1,2}|[^\\'\n])')i, Str::Char
+
+        mixin :numbers
+
+        rule %r(\*/), Error
+
+        rule %r([~!%^*+=\|?:<>/-]), Operator
+        rule %r/[()\[\],]/, Punctuation
+
+        rule %r/(?:TRUE|FALSE|NULL)\b/i, Keyword::Constant
+
+        rule id do |m|
+          name = m[0].upcase
+
+          if self.class.keywords.include? name
+            token Name::Builtin
+          elsif self.class.keywords_type.include? name
+            token Keyword::Type
+          else
+            token Name::Variable
+          end
+        end
+      end
+
+      state :numbers do
+        rule %r((?:\d+[.]\d*|[.]\d+)(?:e[+-]?\d+[lu]*)?)i, Num::Float
+        rule %r(\d+e[+-]?\d+[lu]*)i, Num::Float
+        rule %r/0x[0-9a-f]+[lu]*/i, Num::Hex
+        rule %r/0[0-7]+[lu]*/i, Num::Oct
+        rule %r/\d+[lu]*/i, Num::Integer
+      end
+
+      state :string do
+        rule %r/"/, Str, :pop!
+        rule %r/\\([\\abfnrtv"']|x[a-fA-F0-9]{2,4}|[0-7]{1,3})/, Str::Escape
+        rule %r/[^\\"]+/, Str
+        rule %r/\\/, Str # stray backslash
+      end
+
+      state :preproc do
+        rule %r/\n/, Text, :pop!
+        rule %r/\s+/, Text
+
+        rule %r/({?&)(\S+)/ do
+          groups Comment::Preproc, Name::Other
+        end
+
+        rule %r/"/, Str, :string
+        mixin :numbers
+
+        rule %r/\S+/, Name
+      end
+    end
+  end
+end