Your IP : 216.73.216.213
B
ɽ�\q& � @ s� d Z ddlZddlmZmZmZmZmZmZ ddl m
Z
m Z m Z m
Z
mZmZmZmZmZ ddgZG dd� de�ZG dd� de�ZdS ) z�
pygments.lexers.fortran
~~~~~~~~~~~~~~~~~~~~~~~
Lexers for Fortran languages.
:copyright: Copyright 2006-2019 by the Pygments team, see AUTHORS.
:license: BSD, see LICENSE for details.
� N)�
RegexLexer�bygroups�include�words�using�default) �Text�Comment�Operator�Keyword�Name�String�Number� Punctuation�Generic� FortranLexer�FortranFixedLexerc @ s� e Zd ZdZdZdgZddddgZdgZej ej
B Z d e j
fd
e fed �ed �d
efed�defgedddd�efedddd�ejfdefdejfdefedddd�ejfdejfdejfgdejfd ejfgd e j fd e j fd e j fd e j fgd!�Z d"S )#r z@
Lexer for FORTRAN 90 code.
.. versionadded:: 0.10
ZFortranZfortranz*.f03z*.f90z*.F03z*.F90ztext/x-fortranz^#.*\nz!.*\n�strings�corez [a-z][\w$]*�numsz[\s]+)oZABSTRACTZACCEPTZALLZALLSTOPZ ALLOCATABLEZALLOCATE�ARRAYZASSIGNZ ASSOCIATEZ ASYNCHRONOUSZ BACKSPACEZBINDZBLOCKZ BLOCKDATAZBYTE�CALLZCASEZCLASSZCLOSEZ CODIMENSIONZCOMMONZ CONCURRRENTZ
CONTIGUOUSZCONTAINSZCONTINUEZCRITICALZCYCLEZDATAZ
DEALLOCATEZDECODEZDEFERREDZ DIMENSIONZDOZ ELEMENTAL�ELSEZENCODEZENDZENTRYZENUMZ
ENUMERATORZ EQUIVALENCEZEXITZEXTENDSZEXTERNALZ EXTRINSICZFILEZFINALZFORALLZFORMATZFUNCTIONZGENERICZGOTOZIFZIMAGESZIMPLICITZIMPORTZIMPUREZINCLUDEZINQUIREZINTENTZ INTERFACEZ INTRINSICZISZLOCKZMEMORY�MODULEZNAMELISTZNULLIFYZNONEZ
NON_INTRINSICZNON_OVERRIDABLEZNOPASSZOPENZOPTIONALZOPTIONSZ PARAMETERZPASSZPAUSE�POINTERZPRINTZPRIVATEZPROGRAMZ PROCEDUREZ PROTECTEDZPUBLICZPUREZREADZ RECURSIVEZRESULTZRETURNZREWINDZSAVEZSELECTZSEQUENCEZSTOPZ SUBMODULEZ
SUBROUTINEZSYNCZSYNCALLZ
SYNCIMAGESZ
SYNCMEMORYZTARGETZTHENZTYPEZUNLOCKZUSEZVALUEZVOLATILEZWHEREZWRITEZWHILEz\bz\s*\b)�prefix�suffix)%Z CHARACTERZCOMPLEXzDOUBLE PRECISIONzDOUBLE COMPLEXZINTEGERZLOGICALZREALZC_INTZC_SHORTZC_LONGZ C_LONG_LONGZ
C_SIGNED_CHARZC_SIZE_TZC_INT8_TZ C_INT16_TZ C_INT32_TZ C_INT64_TZC_INT_LEAST8_TZC_INT_LEAST16_TZC_INT_LEAST32_TZC_INT_LEAST64_TZ
C_INT_FAST8_TZC_INT_FAST16_TZC_INT_FAST32_TZC_INT_FAST64_TZ
C_INTMAX_TZ
C_INTPTR_TZC_FLOATZC_DOUBLEZ
C_LONG_DOUBLEZC_FLOAT_COMPLEXZC_DOUBLE_COMPLEXZC_LONG_DOUBLE_COMPLEXZC_BOOLZC_CHARZC_PTRZC_FUNPTRz$(\*\*|\*|\+|-|\/|<|>|<=|>=|==|\/=|=)z(::)z[()\[\],:&%;.](1 ZAbortZAbsZAccessZACharZACosZACosHZAdjustLZAdjustRZAImagZAIntZAlarmZAllZ AllocatedZALogZAMaxZAMinZAMod�AndZANIntZAnyZASinZASinHZ
AssociatedZATanZATanHZ
Atomic_DefineZ
Atomic_RefZBesJZBesJNZ Bessel_J0Z Bessel_J1Z Bessel_JNZ Bessel_Y0Z Bessel_Y1Z Bessel_YNZBesYZBesYNZBGEZBGTZBLEZBLTZBit_SizeZBTestZCAbsZCCosZCeilingZCExpZCharZChDirZChModZCLogZCmplxZCommand_Argument_Count�ComplexZConjgZCosZCosHZCountZCPU_TimeZCShiftZCSinZCSqRtZCTimeZC_LocZ C_AssociatedZ
C_Null_PtrZ
C_Null_FunptrZ C_F_PointerZC_F_ProcPointerZ C_Null_CharZC_AlertZ C_BackspaceZ C_Form_FeedZC_FunLocZC_SizeofZ
C_New_LineZC_Carriage_ReturnZC_Horizontal_TabZC_Vertical_TabZDAbsZDACosZDASinZDATanZ
Date_and_TimeZDbesJZDbesJNZDbesYZDbesYNZDbleZDCosZDCosHZDDiMZDErFZDErFCZDExpZDigitsZDiMZDIntZDLogZDMaxZDMinZDModZDNIntZ Dot_ProductZDProdZDSignZDSinHZDShiftLZDShiftRZDSinZDSqRtZDTanHZDTanZDTimeZEOShiftZEpsilonZErFZErFCZ ErFC_ScaledZETimeZExecute_Command_LineZExitZExp�ExponentZExtends_Type_OfZFDateZFGetZFGetCZFindLoc�FloatZFloorZFlushZFNumZFPutCZFPutZFractionZFSeekZFStatZFTellZGammaZGErrorZGetArgZ Get_CommandZGet_Command_ArgumentZGet_Environment_VariableZGetCWDZGetEnvZGetGIdZGetLogZGetPIdZGetUIdZGMTimeZHostNmZHugeZHypotZIAbsZIACharZIAllZIAndZIAnyZIArgCZIBClrZIBitsZIBSetZICharZIDateZIDiMZIDIntZIDNIntZIEOrZIErrNoZIFixZImagZImagPartZ Image_IndexZIndexZIntZIOrZIParityZIRandZIsaTtyZIShftZIShftCZISignZ
Iso_C_BindingZ
Is_ContiguousZ
Is_Iostat_EndZ
Is_Iostat_EorZITimeZKillZKindZLBoundZLCoBoundZLenZLen_TrimZLGeZLGtZLinkZLLeZLLtZLnBlnkZLoc�LogZ Log_GammaZLogicalZLongZLShiftZLStatZLTimeZMaskLZMaskRZMatMulZMaxZ MaxExponentZMaxLocZMaxValZMClockZMergeZ
Merge_BitsZ
Move_AllocZMinZ MinExponentZMinLocZMinValZModZModuloZMvBitsZNearestZNew_LineZNIntZNorm2ZNotZNullZ
Num_Images�OrZPackZParityZPErrorZ PrecisionZPresentZProductZRadixZRandZ
Random_NumberZ Random_SeedZRange�RealZRealPartZRenameZRepeatZReshapeZ RRSpacingZRShiftZ Same_Type_AsZScaleZScanZSecondZSelected_Char_KindZSelected_Int_KindZSelected_Real_KindZ Set_ExponentZShapeZShiftAZShiftLZShiftRZShortZSignZSignalZSinHZSinZSleepZSnglZSpacingZSpreadZSqRtZSRandZStatZ Storage_SizeZSumZSymLnk�SystemZ System_ClockZTanZTanHZTimeZ
This_ImageZTinyZTrailZZTransferZ TransposeZTrimZTtyNamZUBoundZUCoBoundZUMaskZUnlinkZUnpackZVerifyZXOrZZAbsZZCosZZExpZZLogZZSinZZSqRtz\.(true|false)\.z+\.(eq|ne|lt|le|gt|ge|not|and|or|eqv|neqv)\.z!(?s)"(\\\\|\\[0-7]+|\\.|[^"\\])*"z!(?s)'(\\\\|\\[0-7]+|\\.|[^'\\])*'z\d+(?![.e])(_[a-z]\w+)?z([+-]?\d*\.\d+([ed][-+]?\d+)?(_[a-z]\w+)?z([+-]?\d+\.\d*([ed][-+]?\d+)?(_[a-z]\w+)?z([+-]?\d+(\.\d*)?[ed][-+]?\d+(_[a-z]\w+)?)�rootr r r N) �__name__�
__module__� __qualname__�__doc__�name�aliases� filenamesZ mimetypes�re�
IGNORECASE� MULTILINE�flagsr �Preprocr r r r r ZTyper
Z Declarationr ZBuiltin�Wordr
�Double�Singler ZIntegerr �tokens� r6 r6 �H/opt/alt/python37/lib/python3.7/site-packages/pygments/lexers/fortran.pyr sH 1
c @ s� e Zd ZdZdZdgZddgZejZ ddd�Z
d e fd
e j fd e fd e
jd
fdee�fgdedfde dfdejdfgdee
e e�dfdee
e�dfed�gd�ZdS )r zD
Lexer for fixed format Fortran.
.. versionadded:: 2.1
Z FortranFixedZ fortranfixedz*.fz*.FNc c sR t � }|�d�d }x8|�|�D ]*\}}}|�dd�}|dkr |||fV q W dS )z8Lex a line just as free form fortran without line break.r �
� N)r �groupZget_tokens_unprocessed�replace)�self�match�ctxZlexer�text�index�token�valuer6 r6 r7 � _lex_fortran� s z FortranFixedLexer._lex_fortranz[C*].*\nz#.*\nz {0,4}!.*\nz(.{5})z cont-charz.*\n� �code�0�.z(.{66})(.*)(\n)r% z(.*)(\n))r% z cont-charrE )N)r& r' r( r) r* r+ r, r- r. r0 rC r r1 r ZLabelr r r r ZStrongr r r5 r6 r6 r6 r7 r � s$
)r) r- Zpygments.lexerr r r r r r Zpygments.tokenr r r
r r r
r r r �__all__r r r6 r6 r6 r7 �<module>
s ,