File manager - Edit - /opt/saltstack/salt/lib/python3.10/site-packages/pygments/lexers/__pycache__/business.cpython-310.pyc
Back
o ;j�n � @ s� d Z ddlZddlmZmZmZmZ ddlmZm Z m Z mZmZm Z mZmZmZmZ ddlmZ g d�ZG dd� de�ZG d d � d e�ZG dd� de�ZG d d� de�ZG dd� de�ZG dd� de�ZdS )z� pygments.lexers.business ~~~~~~~~~~~~~~~~~~~~~~~~ Lexers for "business-oriented" languages. :copyright: Copyright 2006-present by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. � N)� RegexLexer�include�words�bygroups) �Text�Comment�Operator�Keyword�Name�String�Number�Punctuation�Error� Whitespace)�OPENEDGEKEYWORDS)� CobolLexer�CobolFreeformatLexer� ABAPLexer� OpenEdgeLexer�GoodDataCLLexer� MaqlLexerc @ s e Zd ZdZdZdgZg d�ZdgZdZdZ e je jB Z ed�ed �ed �ed�dejfd efgdefgdejfedddd�ejfedddd�ejfedddd�efdejfdefdefdejfdejfdejfg dej fdej!fgde"j#fde"j$fd e"j$fgd!�Z%d"S )#r z# Lexer for OpenCOBOL code. ZCOBOLZcobol)z*.cobz*.COBz*.cpyz*.CPYztext/x-cobolz#https://en.wikipedia.org/wiki/COBOL�1.6�comment�strings�core�numsz[a-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\-])))ZZACCEPT�ADDZALLOCATE�CALLZCANCELZCLOSEZCOMPUTEZ CONFIGURATION�CONTINUEZDATAZDELETEZDISPLAYZDIVIDEZDIVISION�ELSEZENDz END-ACCEPTzEND-ADDzEND-CALLzEND-COMPUTEz END-DELETEzEND-DISPLAYz END-DIVIDEzEND-EVALUATEzEND-IFzEND-MULTIPLYzEND-OF-PAGEzEND-PERFORMzEND-READz END-RETURNzEND-REWRITEz END-SEARCHz END-STARTz END-STRINGzEND-SUBTRACTzEND-UNSTRINGz END-WRITEZENVIRONMENTZEVALUATEZEXITZFD�FILEzFILE-CONTROLZFOREVERZFREEZGENERATEZGOZGOBACKZIDENTIFICATIONZIFZ INITIALIZEZINITIATEzINPUT-OUTPUTZINSPECT�INVOKEzI-O-CONTROLZLINKAGEz LOCAL-STORAGEZMERGEZMOVEZMULTIPLYZOPENZPERFORMZ PROCEDUREz PROGRAM-ID�RAISEZREADZRELEASE�RESUMEZRETURNZREWRITEZSCREENZSDZSEARCHZSECTIONZSETZSORTZSTARTZSTOP�STRINGZSUBTRACT�SUPPRESSZ TERMINATEZTHENZUNLOCKZUNSTRINGZUSE�VALIDATEzWORKING-STORAGEZWRITEz(^|(?<=[^\w\-]))�\s*($|(?=[^\w\-]))��prefix�suffix(" ZACCESSZADDRESSZ ADVANCINGZAFTER�ALLZALPHABETZ ALPHABETICzALPHABETIC-LOWERzALPHABETIC-UPPERZALPHANUMERICzALPHANUMERIC-EDITEDZALSO�ALTERZALTERNATEANYZAREZAREAZAREASzARGUMENT-NUMBERzARGUMENT-VALUE�ASZ ASCENDINGZASSIGN�ATZAUTOz AUTO-SKIPZ AUTOMATICZ AUTOTERMINATEzBACKGROUND-COLORZBASEDZBEEPZBEFOREZBELLZBLANKZBLINKZBLOCK�BOTTOM�BYzBYTE-LENGTHZCHAININGZ CHARACTERZ CHARACTERSZCLASSZCODEzCODE-SETZCOLZ COLLATINGZCOLS�COLUMN�COLUMNS�COMMAzCOMMAND-LINEZCOMMITZCOMMONZCONSTANTZCONTAINSZCONTENTZCONTROLZCONTROLSZ CONVERTINGZCOPYZCORRZ CORRESPONDING�COUNTZCRTZCURRENCYZCURSORZCYCLE�DATEZDAYzDAY-OF-WEEKZDEZ DEBUGGINGz DECIMAL-POINTZDECLARATIVES�DEFAULTZ DELIMITEDZ DELIMITERZ DEPENDINGZ DESCENDINGZDETAILZDISKZDOWNZ DUPLICATESZDYNAMICZEBCDICZENTRYzENVIRONMENT-NAMEzENVIRONMENT-VALUEZEOLZEOPZEOSZERASE�ERROR�ESCAPEZ EXCEPTIONZ EXCLUSIVEZEXTENDZEXTERNALzFILE-IDZFILLERZFINALZFIRSTZFIXEDz FLOAT-LONGzFLOAT-SHORTZFOOTING�FORzFOREGROUND-COLOR�FORMAT�FROMZFULLZFUNCTIONzFUNCTION-IDZGIVINGZGLOBALZGROUPZHEADINGZ HIGHLIGHTzI-O�ID�IGNOREZIGNORING�INZINDEXZINDEXEDZINDICATEZINITIALZINITIALIZEDZINPUTZINTOZ INTRINSIC�INVALIDZISZJUSTZ JUSTIFIED�KEY�LABELZLASTZLEADINGZLEFTZLENGTH�LIMITZLIMITSZLINAGEzLINAGE-COUNTERZLINE�LINES�LOCALEZLOCKZLOWLIGHTZMANUALZMEMORY�MINUSZMODEZMULTIPLEZNATIONALzNATIONAL-EDITEDZNATIVEZNEGATIVEZNEXTZNOZNULLZNULLS�NUMBERZNUMBERSZNUMERICzNUMERIC-EDITEDzOBJECT-COMPUTERZOCCURSZOFZOFFZOMITTED�ONZONLY�OPTIONAL�ORDERZORGANIZATION�OTHERZOUTPUTZOVERFLOWZOVERLINEzPACKED-DECIMALZPADDINGZPAGEZ PARAGRAPH�PLUS�POINTERZPOSITIONZPOSITIVEZPRESENTZPREVIOUSZPRINTERZPRINTINGzPROCEDURE-POINTERZ PROCEDURESZPROCEEDZPROGRAMzPROGRAM-POINTERZPROMPTZQUOTEZQUOTESZRANDOMZRD�RECORDZ RECORDINGZRECORDSZ RECURSIVEZ REDEFINESZREELZ REFERENCEZRELATIVE� REMAINDERZREMOVALZRENAMESZ REPLACING�REPORTZ REPORTINGZREPORTSZ REPOSITORYZREQUIREDZRESERVEZ RETURNINGz REVERSE-VIDEOZREWINDZRIGHTZROLLBACKZROUNDEDZRUNZSAMEZSCROLLZSECUREz SEGMENT-LIMIT�SELECTZSENTENCEZSEPARATEZSEQUENCEZ SEQUENTIALZSHARINGZSIGNZSIGNEDz SIGNED-INTzSIGNED-LONGzSIGNED-SHORTZSIZEz SORT-MERGEZSOURCEzSOURCE-COMPUTERz SPECIAL-NAMESZSTANDARDz STANDARD-1z STANDARD-2ZSTATUSZSUBKEYZSUMZSYMBOLICZSYNCZSYNCHRONIZEDZTALLYINGZTAPEZTESTZTHROUGHZTHRUZTIMEZTIMESZTO�TOPZTRAILINGZ TRANSFORM�TYPEZ UNDERLINEZUNITZUNSIGNEDzUNSIGNED-INTz UNSIGNED-LONGzUNSIGNED-SHORTZUNTILZUPZUPDATEZUPONZUSAGEZUSINGZVALUEZVALUESZVARYINGZWAIT�WHEN�WITHZWORDSZYYYYDDDZYYYYMMDD)qzACTIVE-CLASSZALIGNEDZANYCASEZ ARITHMETIC� ATTRIBUTEzB-ANDzB-NOTzB-ORzB-XORZBITZBOOLEANZCDZCENTERZCFZCHZCHAINzCLASS-IDZCLASSIFICATIONZ COMMUNICATIONZ CONDITIONzDATA-POINTERZDESTINATIONZDISABLEZECZEGIZEMIZENABLEzEND-RECEIVEzENTRY-CONVENTIONZEOZESIzEXCEPTION-OBJECTZEXPANDSZFACTORYzFLOAT-BINARY-16zFLOAT-BINARY-34zFLOAT-BINARY-7zFLOAT-DECIMAL-16zFLOAT-DECIMAL-34zFLOAT-EXTENDEDr: zFUNCTION-POINTERZGETzGROUP-USAGEZ IMPLEMENTS�INFINITYZINHERITSZ INTERFACEzINTERFACE-IDr! �LC_ALL� LC_COLLATE�LC_CTYPE�LC_MESSAGES�LC_MONETARY� LC_NUMERIC�LC_TIMEzLINE-COUNTERZMESSAGEZMETHODz METHOD-IDZNESTEDZNONEZNORMALZOBJECTzOBJECT-REFERENCEZOPTIONSZOVERRIDEzPAGE-COUNTER�PFZPHZPROPERTYZ PROTOTYPEZPURGEZQUEUEr"