Файловый менеджер - Редактировать - /opt/imh-python/lib/python3.9/site-packages/pygments/lexers/__pycache__/business.cpython-39.pyc
Ðазад
a a�h�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-2025 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. �COBOL�cobol)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�CONTINUEZDATA�DELETEZDISPLAYZDIVIDEZDIVISION�ELSE�ENDz 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�RAISE�READZRELEASE�RESUMEZRETURNZREWRITEZSCREENZSDZSEARCHZSECTIONZSETZSORTZSTART�STOP�STRINGZSUBTRACT�SUPPRESSZ TERMINATEZTHENZUNLOCKZUNSTRINGZUSE�VALIDATEzWORKING-STORAGE�WRITEz(^|(?<=[^\w\-]))�\s*($|(?=[^\w\-]))��prefix�suffix(" ZACCESSZADDRESSZ ADVANCINGZAFTER�ALLZALPHABETZ ALPHABETICzALPHABETIC-LOWERzALPHABETIC-UPPERZALPHANUMERICzALPHANUMERIC-EDITEDZALSO�ALTERZALTERNATEANYZAREZAREAZAREASzARGUMENT-NUMBERzARGUMENT-VALUE�ASZ ASCENDINGZASSIGN�ATZAUTOz AUTO-SKIPZ AUTOMATICZ AUTOTERMINATEzBACKGROUND-COLORZBASEDZBEEPZBEFORE�BELLZBLANKZBLINKZBLOCK�BOTTOM�BYzBYTE-LENGTHZCHAININGZ CHARACTERZ CHARACTERSZCLASSZCODEzCODE-SETZCOLZ COLLATINGZCOLS�COLUMN�COLUMNS�COMMAzCOMMAND-LINEZCOMMITZCOMMONZCONSTANTZCONTAINSZCONTENTZCONTROLZCONTROLSZ CONVERTING�COPYZCORRZ 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-IDZGIVING�GLOBALZGROUPZHEADINGZ HIGHLIGHTzI-OZIDZIGNOREZIGNORING�INZINDEXZINDEXEDZINDICATEZINITIALZINITIALIZEDZINPUTZINTOZ INTRINSIC�INVALIDZISZJUSTZ JUSTIFIED�KEY�LABELZLASTZLEADINGZLEFTZLENGTH�LIMITZLIMITSZLINAGEzLINAGE-COUNTERZLINE�LINES�LOCALEZLOCKZLOWLIGHTZMANUALZMEMORY�MINUSZMODEZMULTIPLEZNATIONALzNATIONAL-EDITEDZNATIVEZNEGATIVEZNEXT�NOZNULLZNULLS�NUMBERZNUMBERSZNUMERICzNUMERIC-EDITEDzOBJECT-COMPUTERZOCCURSZOFZOFFZOMITTED�ONZONLY�OPTIONAL�ORDERZORGANIZATION�OTHERZOUTPUTZOVERFLOWZOVERLINEzPACKED-DECIMALZPADDINGZPAGEZ PARAGRAPH�PLUSZPOINTERZPOSITIONZPOSITIVEZPRESENTZPREVIOUSZPRINTERZPRINTINGzPROCEDURE-POINTERZ PROCEDURESZPROCEEDZPROGRAMzPROGRAM-POINTERZPROMPTZQUOTEZQUOTESZRANDOMZRD�RECORDZ RECORDINGZRECORDSZ RECURSIVEZ REDEFINESZREELZ REFERENCEZRELATIVE� REMAINDERZREMOVALZRENAMESZ REPLACING�REPORTZ REPORTINGZREPORTSZ REPOSITORYZREQUIREDZRESERVEZ RETURNINGz REVERSE-VIDEOZREWINDZRIGHTZROLLBACK�ROUNDEDZRUNZSAMEZSCROLLZSECUREz SEGMENT-LIMIT�SELECTZSENTENCEZSEPARATEZSEQUENCEZ SEQUENTIALZSHARINGZSIGNZSIGNEDz SIGNED-INTzSIGNED-LONGzSIGNED-SHORTZSIZEz SORT-MERGEZSOURCEzSOURCE-COMPUTERz SPECIAL-NAMES�STANDARDz STANDARD-1z STANDARD-2ZSTATUSZSUBKEYZSUMZSYMBOLICZSYNCZSYNCHRONIZEDZTALLYINGZTAPE�TESTZTHROUGHZTHRUZTIMEZTIMESZTO�TOPZTRAILINGZ TRANSFORM�TYPEZ UNDERLINEZUNITZUNSIGNEDzUNSIGNED-INTz UNSIGNED-LONGzUNSIGNED-SHORTZUNTILZUPZUPDATEZUPON�USAGEZUSING�VALUEZVALUESZVARYINGZWAIT�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-EXTENDEDrC zFUNCTION-POINTER�GETzGROUP-USAGEZ IMPLEMENTS�INFINITYZINHERITSZ INTERFACEzINTERFACE-IDr% �LC_ALL� LC_COLLATE�LC_CTYPE�LC_MESSAGES�LC_MONETARY� LC_NUMERIC�LC_TIMEzLINE-COUNTERZMESSAGEZMETHODz METHOD-ID�NESTED�NONEZNORMALZOBJECTzOBJECT-REFERENCE�OPTIONSZOVERRIDEzPAGE-COUNTER�PFZPHZPROPERTYZ PROTOTYPEZPURGEZQUEUEr&