|emdZddlZddlmZmZmZmZddlmZm Z m Z m Z m Z m Z mZmZmZmZddlmZgdZGddeZGd d eZGd d eZGd deZGddeZGddeZy)z pygments.lexers.business ~~~~~~~~~~~~~~~~~~~~~~~~ Lexers for "business-oriented" languages. :copyright: Copyright 2006-2023 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. N) RegexLexerincludewordsbygroups) TextCommentOperatorKeywordNameStringNumber PunctuationError Whitespace)OPENEDGEKEYWORDS) CobolLexerCobolFreeformatLexer ABAPLexer OpenEdgeLexerGoodDataCLLexer MaqlLexerc HeZdZdZdZdgZgdZdgZejejzZ e de de de d d e jfd efgd efgd e j"fedddej(fedddej*fedddefdej.fdefdefde j4fde j6fdej8fg dej<fdej>fgde jBfde jDfde jDfgdZ#y )!rz> Lexer for OpenCOBOL code. .. versionadded:: 1.6 COBOLcobol)z*.cobz*.COBz*.cpyz*.CPYz text/x-cobolcommentstringscorenumsz-z0-9]([\w\-]*[a-z0-9]+)?z[ \t]+z(^.{6}[*/].*\n|^.{6}|\*>.*\n)za(^|(?<=[^\w\-]))(ALL\s+)?((ZEROES)|(HIGH-VALUE|LOW-VALUE|QUOTE|SPACE|ZERO)(S)?)\s*($|(?=[^\w\-])))ZACCEPTADDALLOCATECALLCANCELCLOSECOMPUTE CONFIGURATIONCONTINUEDATADELETEDISPLAYDIVIDEDIVISIONELSEENDz END-ACCEPTzEND-ADDzEND-CALLz END-COMPUTEz END-DELETEz END-DISPLAYz END-DIVIDEz END-EVALUATEzEND-IFz END-MULTIPLYz END-OF-PAGEz END-PERFORMzEND-READz END-RETURNz END-REWRITEz END-SEARCHz END-STARTz END-STRINGz END-SUBTRACTz END-UNSTRINGz END-WRITE ENVIRONMENTEVALUATEEXITFDFILEz FILE-CONTROLFOREVERFREEGENERATEGOGOBACKIDENTIFICATIONIF INITIALIZEINITIATEz INPUT-OUTPUTINSPECTINVOKEz I-O-CONTROLLINKAGEz LOCAL-STORAGEMERGEMOVEMULTIPLYOPENPERFORM PROCEDUREz PROGRAM-IDRAISEREADRELEASERESUMERETURNREWRITESCREENSDSEARCHSECTIONSETSORTSTARTSTOPSTRINGSUBTRACTSUPPRESS TERMINATETHENUNLOCKUNSTRINGUSEVALIDATEzWORKING-STORAGEWRITEz(^|(?<=[^\w\-]))\s*($|(?=[^\w\-]))prefixsuffix("ACCESSADDRESS ADVANCINGAFTERALLALPHABET ALPHABETICzALPHABETIC-LOWERzALPHABETIC-UPPER ALPHANUMERICzALPHANUMERIC-EDITEDALSOALTER ALTERNATEANYAREAREAAREASzARGUMENT-NUMBERzARGUMENT-VALUEAS ASCENDINGASSIGNATAUTOz AUTO-SKIP AUTOMATIC AUTOTERMINATEzBACKGROUND-COLORBASEDBEEPBEFOREBELLBLANKBLINKBLOCKBOTTOMBYz BYTE-LENGTHCHAINING CHARACTER CHARACTERSCLASSCODEzCODE-SETCOL COLLATINGCOLSCOLUMNCOLUMNSCOMMAz COMMAND-LINECOMMITCOMMONCONSTANTCONTAINSCONTENTCONTROLCONTROLS CONVERTINGCOPYCORR CORRESPONDINGCOUNTCRTCURRENCYCURSORCYCLEDATEDAYz DAY-OF-WEEKDE DEBUGGINGz DECIMAL-POINT DECLARATIVESDEFAULT DELIMITED DELIMITER DEPENDING DESCENDINGDETAILDISKDOWN DUPLICATESDYNAMICEBCDICENTRYzENVIRONMENT-NAMEzENVIRONMENT-VALUEEOLEOPEOSERASEERRORESCAPE EXCEPTION EXCLUSIVEEXTENDEXTERNALzFILE-IDFILLERFINALFIRSTFIXEDz FLOAT-LONGz FLOAT-SHORTFOOTINGFORzFOREGROUND-COLORFORMATFROMFULLFUNCTIONz FUNCTION-IDGIVINGGLOBALGROUPHEADING HIGHLIGHTzI-OIDIGNOREIGNORINGININDEXINDEXEDINDICATEINITIAL INITIALIZEDINPUTINTO INTRINSICINVALIDISJUST JUSTIFIEDKEYLABELLASTLEADINGLEFTLENGTHLIMITLIMITSLINAGEzLINAGE-COUNTERLINELINESLOCALELOCKLOWLIGHTMANUALMEMORYMINUSMODEMULTIPLENATIONALzNATIONAL-EDITEDNATIVENEGATIVENEXTNONULLNULLSNUMBERNUMBERSNUMERICzNUMERIC-EDITEDzOBJECT-COMPUTEROCCURSOFOFFOMITTEDONONLYOPTIONALORDER ORGANIZATIONOTHEROUTPUTOVERFLOWOVERLINEzPACKED-DECIMALPADDINGPAGE PARAGRAPHPLUSPOINTERPOSITIONPOSITIVEPRESENTPREVIOUSPRINTERPRINTINGzPROCEDURE-POINTER PROCEDURESPROCEEDPROGRAMzPROGRAM-POINTERPROMPTQUOTEQUOTESRANDOMRDRECORD RECORDINGRECORDS RECURSIVE REDEFINESREEL REFERENCERELATIVE REMAINDERREMOVALRENAMES REPLACINGREPORT REPORTINGREPORTS REPOSITORYREQUIREDRESERVE RETURNINGz REVERSE-VIDEOREWINDRIGHTROLLBACKROUNDEDRUNSAMESCROLLSECUREz SEGMENT-LIMITSELECTSENTENCESEPARATESEQUENCE SEQUENTIALSHARINGSIGNSIGNEDz SIGNED-INTz SIGNED-LONGz SIGNED-SHORTSIZEz SORT-MERGESOURCEzSOURCE-COMPUTERz SPECIAL-NAMESSTANDARDz STANDARD-1z STANDARD-2STATUSSUBKEYSUMSYMBOLICSYNC SYNCHRONIZEDTALLYINGTAPETESTTHROUGHTHRUTIMETIMESTOTOPTRAILING TRANSFORMTYPE UNDERLINEUNITUNSIGNEDz UNSIGNED-INTz UNSIGNED-LONGzUNSIGNED-SHORTUNTILUPUPDATEUPONUSAGEUSINGVALUEVALUESVARYINGWAITWHENWITHWORDSYYYYDDDYYYYMMDD)qz ACTIVE-CLASSALIGNEDANYCASE ARITHMETIC ATTRIBUTEzB-ANDzB-NOTzB-ORzB-XORBITBOOLEANCDCENTERCFCHCHAINzCLASS-IDCLASSIFICATION COMMUNICATION CONDITIONz DATA-POINTER DESTINATIONDISABLEECEGIEMIENABLEz END-RECEIVEzENTRY-CONVENTIONEOESIzEXCEPTION-OBJECTEXPANDSFACTORYzFLOAT-BINARY-16zFLOAT-BINARY-34zFLOAT-BINARY-7zFLOAT-DECIMAL-16zFLOAT-DECIMAL-34zFLOAT-EXTENDEDrzFUNCTION-POINTERGETz GROUP-USAGE IMPLEMENTSINFINITYINHERITS INTERFACEz INTERFACE-IDr>LC_ALL LC_COLLATELC_CTYPE LC_MESSAGES LC_MONETARY LC_NUMERICLC_TIMEz LINE-COUNTERMESSAGEMETHODz METHOD-IDNESTEDNONENORMALOBJECTzOBJECT-REFERENCEOPTIONSOVERRIDEz PAGE-COUNTERPFPHPROPERTY PROTOTYPEPURGEQUEUErFRAISINGRECEIVERELATIONREPLACEzREPRESENTS-NOT-A-NUMBERRESETrIRETRYRFRHSECONDSSEGMENTSELFSENDSOURCES STATEMENTSTEPSTRONGz SUB-QUEUE-1z SUB-QUEUE-2z SUB-QUEUE-3SUPERSYMBOLzSYSTEM-DEFAULTTABLETERMINALTEXTTYPEDEFzUCS-4 UNIVERSALz USER-DEFAULTzUTF-16zUTF-8z VAL-STATUSVALIDr\zVALIDATE-STATUSz(^|(?<=[^\w\-]))(PIC\s+.+?(?=(\s|\.\s))|PICTURE\s+.+?(?=(\s|\.\s))|(COMPUTATIONAL)(-[1-5X])?|(COMP)(-[1-5X])?|BINARY-C-LONG|BINARY-CHAR|BINARY-DOUBLE|BINARY-LONG|BINARY-SHORT|BINARY)\s*($|(?=[^\w\-]))z"(\*\*|\*|\+|-|/|<=|>=|<|>|==|/=|=)z ([(),;:&%.])a(^|(?<=[^\w\-]))(ABS|ACOS|ANNUITY|ASIN|ATAN|BYTE-LENGTH|CHAR|COMBINED-DATETIME|CONCATENATE|COS|CURRENT-DATE|DATE-OF-INTEGER|DATE-TO-YYYYMMDD|DAY-OF-INTEGER|DAY-TO-YYYYDDD|EXCEPTION-(?:FILE|LOCATION|STATEMENT|STATUS)|EXP10|EXP|E|FACTORIAL|FRACTION-PART|INTEGER-OF-(?:DATE|DAY|PART)|INTEGER|LENGTH|LOCALE-(?:DATE|TIME(?:-FROM-SECONDS)?)|LOG(?:10)?|LOWER-CASE|MAX|MEAN|MEDIAN|MIDRANGE|MIN|MOD|NUMVAL(?:-C)?|ORD(?:-MAX|-MIN)?|PI|PRESENT-VALUE|RANDOM|RANGE|REM|REVERSE|SECONDS-FROM-FORMATTED-TIME|SECONDS-PAST-MIDNIGHT|SIGN|SIN|SQRT|STANDARD-DEVIATION|STORED-CHAR-LENGTH|SUBSTITUTE(?:-CASE)?|SUM|TAN|TEST-DATE-YYYYMMDD|TEST-DAY-YYYYDDD|TRIM|UPPER-CASE|VARIANCE|WHEN-COMPILED|YEAR-TO-YYYY)\s*($|(?=[^\w\-]))z.(^|(?<=[^\w\-]))(true|false)\s*($|(?=[^\w\-]))z\(^|(?<=[^\w\-]))(equal|equals|ne|lt|le|gt|ge|greater|less|than|not|and|or)\s*($|(?=[^\w\-]))z"[^"\n]*("|\n)z'[^'\n]*('|\n)z\d+(\s*|\.$|$)z[+-]?\d*\.\d+(E[-+]?\d+)?z[+-]?\d+\.\d*(E[-+]?\d+)?)rootrrrrN)$__name__ __module__ __qualname____doc__namealiases filenames mimetypesre IGNORECASE MULTILINEflagsrr VariablerrConstantrr ReservedPseudorTyper rFunctionBuiltinWordr DoubleSingler IntegerFloattokens:/usr/lib/python3/dist-packages/pygments/lexers/business.pyrrs DiG4I I MMBLL (E I  I  FO FO +T]] ;  # .w 7 #]]  , 5H,#.$  % *4Hj+3Hk5Jl^^m6 rF,.6K-M./ 4* ,3<<  93H =k *  "& 0? M@AI PaR p .  .   / )6<< 8 )6<< 8 SnFrrcfeZdZdZdZdgZddgZgZejejzZ dde fgiZ y) rzJ Lexer for Free format OpenCOBOL code. .. versionadded:: 1.6 COBOLFree cobolfreez*.cblz*.CBLrz(\*>.*\n|^\w*\*.*$)N)rrrrrrrrrrrrrrrrrrrsO DmG'"II MMBLL (E  #W - FrrcfeZdZdZdZdgZddgZdgZejejzZ de fde jfd e jfd e jfgd ej"fd ej"fged defdefdeee ej*fdeee eej"efdeee ej*e efdeee ej*fdee ej"eej*fdej*fdeeeej2fdeeeej"fdefdefdefdeej4efdefdej2fdej6fedd efd!ejfd"ejfd#eeejefd$efd%eeefgd&Zy')(rzO Lexer for ABAP, SAP's integrated language. .. versionadded:: 1.1 ABAPabapz*.abapz*.ABAPz text/x-abap\s+z^\*.*$z\".*?\nz##\w+z<\S+>z\w[\w~]*(?:(\[\])|->\*)?commonz*CALL\s+(?:BADI|CUSTOMER-FUNCTION|FUNCTION)zR(CALL\s+(?:DIALOG|SCREEN|SUBSCREEN|SELECTION-SCREEN|TRANSACTION|TRANSFORMATION))\bz(FORM|PERFORM)(\s+)(\w+)z(PERFORM)(\s+)(\()(\w+)(\))z%(MODULE)(\s+)(\S+)(\s+)(INPUT|OUTPUT)z(METHOD)(\s+)([\w~]+)z (\s+)([\w\-]+)([=\-]>)([\w\-~]+)z(?<=(=|-)>)([\w\-~]+)(?=\()z(TEXT)(-)(\d{3})z(TEXT)(-)(\w{3})a(ADD-CORRESPONDING|AUTHORITY-CHECK|CLASS-DATA|CLASS-EVENTS|CLASS-METHODS|CLASS-POOL|DELETE-ADJACENT|DIVIDE-CORRESPONDING|EDITOR-CALL|ENHANCEMENT-POINT|ENHANCEMENT-SECTION|EXIT-COMMAND|FIELD-GROUPS|FIELD-SYMBOLS|FIELD-SYMBOL|FUNCTION-POOL|INTERFACE-POOL|INVERTED-DATE|LOAD-OF-PROGRAM|LOG-POINT|MESSAGE-ID|MOVE-CORRESPONDING|MULTIPLY-CORRESPONDING|NEW-LINE|NEW-PAGE|NEW-SECTION|NO-EXTENSION|OUTPUT-LENGTH|PRINT-CONTROL|SELECT-OPTIONS|START-OF-SELECTION|SUBTRACT-CORRESPONDING|SYNTAX-CHECK|SYSTEM-EXCEPTIONS|TYPE-POOL|TYPE-POOLS|NO-DISPLAY)\ba (?])(CREATE\s+(PUBLIC|PRIVATE|DATA|OBJECT)|(PUBLIC|PRIVATE|PROTECTED)\s+SECTION|(TYPE|LIKE)\s+((LINE\s+OF|REF\s+TO|(SORTED|STANDARD|HASHED)\s+TABLE\s+OF))?|FROM\s+(DATABASE|MEMORY)|CALL\s+METHOD|(GROUP|ORDER) BY|HAVING|SEPARATED BY|GET\s+(BADI|BIT|CURSOR|DATASET|LOCALE|PARAMETER|PF-STATUS|(PROPERTY|REFERENCE)\s+OF|RUN\s+TIME|TIME\s+(STAMP)?)?|SET\s+(BIT|BLANK\s+LINES|COUNTRY|CURSOR|DATASET|EXTENDED\s+CHECK|HANDLER|HOLD\s+DATA|LANGUAGE|LEFT\s+SCROLL-BOUNDARY|LOCALE|MARGIN|PARAMETER|PF-STATUS|PROPERTY\s+OF|RUN\s+TIME\s+(ANALYZER|CLOCK\s+RESOLUTION)|SCREEN|TITLEBAR|UPADTE\s+TASK\s+LOCAL|USER-COMMAND)|CONVERT\s+((INVERTED-)?DATE|TIME|TIME\s+STAMP|TEXT)|(CLOSE|OPEN)\s+(DATASET|CURSOR)|(TO|FROM)\s+(DATA BUFFER|INTERNAL TABLE|MEMORY ID|DATABASE|SHARED\s+(MEMORY|BUFFER))|DESCRIBE\s+(DISTANCE\s+BETWEEN|FIELD|LIST|TABLE)|FREE\s(MEMORY|OBJECT)?|PROCESS\s+(BEFORE\s+OUTPUT|AFTER\s+INPUT|ON\s+(VALUE-REQUEST|HELP-REQUEST))|AT\s+(LINE-SELECTION|USER-COMMAND|END\s+OF|NEW)|AT\s+SELECTION-SCREEN(\s+(ON(\s+(BLOCK|(HELP|VALUE)-REQUEST\s+FOR|END\s+OF|RADIOBUTTON\s+GROUP))?|OUTPUT))?|SELECTION-SCREEN:?\s+((BEGIN|END)\s+OF\s+((TABBED\s+)?BLOCK|LINE|SCREEN)|COMMENT|FUNCTION\s+KEY|INCLUDE\s+BLOCKS|POSITION|PUSHBUTTON|SKIP|ULINE)|LEAVE\s+(LIST-PROCESSING|PROGRAM|SCREEN|TO LIST-PROCESSING|TO TRANSACTION)(ENDING|STARTING)\s+AT|FORMAT\s+(COLOR|INTENSIFIED|INVERSE|HOTSPOT|INPUT|FRAMES|RESET)|AS\s+(CHECKBOX|SUBSCREEN|WINDOW)|WITH\s+(((NON-)?UNIQUE)?\s+KEY|FRAME)|(BEGIN|END)\s+OF|DELETE(\s+ADJACENT\s+DUPLICATES\sFROM)?|COMPARING(\s+ALL\s+FIELDS)?|(INSERT|APPEND)(\s+INITIAL\s+LINE\s+(IN)?TO|\s+LINES\s+OF)?|IN\s+((BYTE|CHARACTER)\s+MODE|PROGRAM)|END-OF-(DEFINITION|PAGE|SELECTION)|WITH\s+FRAME(\s+TITLE)|(REPLACE|FIND)\s+((FIRST|ALL)\s+OCCURRENCES?\s+OF\s+)?(SUBSTRING|REGEX)?|MATCH\s+(LENGTH|COUNT|LINE|OFFSET)|(RESPECTING|IGNORING)\s+CASE|IN\s+UPDATE\s+TASK|(SOURCE|RESULT)\s+(XML)?|REFERENCE\s+INTO|AND\s+(MARK|RETURN)|CLIENT\s+SPECIFIED|CORRESPONDING\s+FIELDS\s+OF|IF\s+FOUND|FOR\s+EVENT|INHERITING\s+FROM|LEAVE\s+TO\s+SCREEN|LOOP\s+AT\s+(SCREEN)?|LOWER\s+CASE|MATCHCODE\s+OBJECT|MODIF\s+ID|MODIFY\s+SCREEN|NESTING\s+LEVEL|NO\s+INTERVALS|OF\s+STRUCTURE|RADIOBUTTON\s+GROUP|RANGE\s+OF|REF\s+TO|SUPPRESS DIALOG|TABLE\s+OF|UPPER\s+CASE|TRANSPORTING\s+NO\s+FIELDS|VALUE\s+CHECK|VISIBLE\s+LENGTH|HEADER\s+LINE|COMMON\s+PART)\ba(^|(?<=(\s|\.)))(ABBREVIATED|ABSTRACT|ADD|ALIASES|ALIGN|ALPHA|ASSERT|AS|ASSIGN(ING)?|AT(\s+FIRST)?|BACK|BLOCK|BREAK-POINT|CASE|CAST|CATCH|CHANGING|CHECK|CLASS|CLEAR|COLLECT|COLOR|COMMIT|COND|CONV|CREATE|COMMUNICATION|COMPONENTS?|COMPUTE|CONCATENATE|CONDENSE|CONSTANTS|CONTEXTS|CONTINUE|CONTROLS|COUNTRY|CURRENCY|DATA|DATE|DECIMALS|DEFAULT|DEFINE|DEFINITION|DEFERRED|DEMAND|DETAIL|DIRECTORY|DIVIDE|DO|DUMMY|ELSE(IF)?|ENDAT|ENDCASE|ENDCATCH|ENDCLASS|ENDDO|ENDFORM|ENDFUNCTION|ENDIF|ENDINTERFACE|ENDLOOP|ENDMETHOD|ENDMODULE|ENDSELECT|ENDTRY|ENDWHILE|ENHANCEMENT|EVENTS|EXACT|EXCEPTIONS?|EXIT|EXPONENT|EXPORT|EXPORTING|EXTRACT|FETCH|FIELDS?|FOR|FORM|FORMAT|FREE|FROM|FUNCTION|HIDE|ID|IF|IMPORT|IMPLEMENTATION|IMPORTING|IN|INCLUDE|INCLUDING|INDEX|INFOTYPES|INITIALIZATION|INTERFACE|INTERFACES|INTO|LANGUAGE|LEAVE|LENGTH|LINES|LOAD|LOCAL|JOIN|KEY|NEW|NEXT|MAXIMUM|MESSAGE|METHOD[S]?|MINIMUM|MODULE|MODIFIER|MODIFY|MOVE|MULTIPLY|NODES|NUMBER|OBLIGATORY|OBJECT|OF|OFF|ON|OTHERS|OVERLAY|PACK|PAD|PARAMETERS|PERCENTAGE|POSITION|PROGRAM|PROVIDE|PUBLIC|PUT|PF\d\d|RAISE|RAISING|RANGES?|READ|RECEIVE|REDEFINITION|REFRESH|REJECT|REPORT|RESERVE|REF|RESUME|RETRY|RETURN|RETURNING|RIGHT|ROLLBACK|REPLACE|SCROLL|SEARCH|SELECT|SHIFT|SIGN|SINGLE|SIZE|SKIP|SORT|SPLIT|STATICS|STOP|STYLE|SUBMATCHES|SUBMIT|SUBTRACT|SUM(?!\()|SUMMARY|SUMMING|SUPPLY|SWITCH|TABLE|TABLES|TIMESTAMP|TIMES?|TIMEZONE|TITLE|\??TO|TOP-OF-PAGE|TRANSFER|TRANSLATE|TRY|TYPES|ULINE|UNDER|UNPACK|UPDATE|USING|VALUE|VALUES|VIA|VARYING|VARY|WAIT|WHEN|WHERE|WIDTH|WHILE|WITH|WINDOW|WRITE|XSD|ZERO)\ba8(abs|acos|asin|atan|boolc|boolx|bit_set|char_off|charlen|ceil|cmax|cmin|condense|contains|contains_any_of|contains_any_not_of|concat_lines_of|cos|cosh|count|count_any_of|count_any_not_of|dbmaxlen|distance|escape|exp|find|find_end|find_any_of|find_any_not_of|floor|frac|from_mixed|insert|lines|log|log10|match|matches|nmax|nmin|numofchar|repeat|replace|rescale|reverse|round|segment|shift_left|shift_right|sign|sin|sinh|sqrt|strlen|substring|substring_after|substring_from|substring_before|substring_to|tan|tanh|to_upper|to_lower|to_mixed|translate|trunc|xstrlen)(\()\bz&[0-9][0-9]+z(?<=(\s|.))(AND|OR|EQ|NE|GT|LT|GE|LE|CO|CN|CA|NA|CS|NOT|NS|CP|NP|BYTE-CO|BYTE-CN|BYTE-CA|BYTE-NA|BYTE-CS|BYTE-NS|IS\s+(NOT\s+)?(INITIAL|ASSIGNED|REQUESTED|BOUND))\bvariable-namesz [?*<>=\-+&]z '(''|[^'])*'z `([^`])*`z([|}])([^{}|]*?)([|{])z [/;:()\[\],.]z(!)(\w+))rrrN)rrrrrrrrrrrrrrrSpecialr rrr rrrr r rrrr rrrrrrsd DhG8$II MMBLL (EZ  '  ( w '  t}} % ($-- 8 H  :  /  ) gz4== 9 ; + gz; { S U 5 gz4==*g N P& gz4== 9 ;1 j$--4== I K,T]] ;! g{FNN ; = g{DMM : <   8NpPWq8 XvJ>LS? TD !){ C! E$   'DEM]] T $ %X & fmm , 6== ) & k6==+ > @ { + (8T2 3iu AFrrcdeZdZdZdZgdZddgZddgZdZe e d d Z d e jd fde jdfde jfdej fdej$feej&fe ej*fdej.fdej0fdej2fdej4fdefdefdefdej<fgde jfd e jdfde jdfde jfgd e jfde jdfd!e jdfgd"Zd#Z y$)%rz Lexer for `OpenEdge ABL (formerly Progress) `_ source code. .. versionadded:: 1.5 z OpenEdge ABL)openedgeablprogressz*.pz*.clsztext/x-openedgezapplication/x-openedgez(?i)(^|(?<=[^\w\-]))(CHARACTER|CHAR|CHARA|CHARAC|CHARACT|CHARACTE|COM-HANDLE|DATE|DATETIME|DATETIME-TZ|DECIMAL|DEC|DECI|DECIM|DECIMA|HANDLE|INT64|INTEGER|INT|INTE|INTEG|INTEGE|LOGICAL|LONGCHAR|MEMPTR|RAW|RECID|ROWID)\s*($|(?=[^\w\-]))z(?i)(^|(?<=[^\w\-]))r^r_z/\*rz\{ preprocessorz\s*&.*z0[xX][0-9a-fA-F]+[LlUu]*z(?i)(DEFINE|DEF|DEFI|DEFIN)\bz"(\\\\|\\[^\\]|[^"\\])*"z'(\\\\|\\[^\\]|[^'\\])*'z%[0-9][0-9]*\.[0-9]+([eE][0-9]+)?[fd]?rrz[+*/=-]z[.:()].z[^*/]z#pushz\*/#popz[*/]z[^{}]z\})rrrc@d}d|vr|dz }d|vr|dz }d|vr|dz }|S)z>Try to identify OpenEdge ABL based on a few common constructs.rzEND.g?zEND PROCEDURE.zELSE DO:r)textresults r analyse_textzOpenEdgeLexer.analyse_texts> T> dNF t # dNF   dNF rN)!rrrrrrrrtypesrrkeywordsr MultilinePreprocr Hexr Declarationrr rr rrrrrr rrrrrrrrrsz D-G I"$<=IKE %313H W&& 2 GOO^ 4  ( (&** 5 -w/B/B C GLL ! t|| $ (&-- 8 (&-- 8 5v|| D  ' Z  "  $ 4== ! $w(( ) W&& 0 W&& / g'' (  w ' GOOW - GOOV , 1F> rrc eZdZdZdZdgZdgZdgZejZ de jfde jfded fd efd efgd ed fdefde j"fdefdedfdefdefgdej,fded fdefgdZy)rz Lexer for `GoodData-CL `_ script files. .. versionadded:: 1.4 z GoodData-CLz gooddata-clz*.gdcztext/x-gooddata-cl#.*z[a-z]\w*z\( args-list;rz\)r,="string-literal([0-9]+(?:\.[0-9]+)?(?:e[+-]?[0-9]{1,3})?z\s\\[tnrfbae"\\][^\\"]+)rrrN)rrrrrrrrrrrrrr rrrrr r r rEscaperrrrrrs DoG I%&I MMEW^^ $ $-- ( K - ;  TN  K ( ;  $-- ( 8  6+ , 8& A J    . 66 "   /FrrcJeZdZdZdZdgZdgZddgZejZ de jfde jfd efd ed fd efd efdefde jj"feddefde j(fdej,fdefdefg dej2fd edfdefgdZy)rz Lexer for `GoodData MAQL `_ scripts. .. versionadded:: 1.4 MAQLmaqlz*.maqlztext/x-gooddata-maqlzapplication/x-gooddata-maqlz IDENTIFIER\bz \{[^}]+\}rrrz \<\>|\!\=z\=|\>\=|\>|\<\=|\r s ??+++@ +CCL:&N NbBJBJ,j,^= =r