File: //opt/saltstack/salt/lib/python3.10/site-packages/pygments/lexers/__pycache__/perl.cpython-310.pyc
o
;j� � @ s� d Z ddlZddlmZmZmZmZmZmZm Z m
Z
ddl m Z m
Z
mZmZmZmZmZmZmZ ddlmZ ddgZG dd� de�ZG d d� de�ZdS )
z�
pygments.lexers.perl
~~~~~~~~~~~~~~~~~~~~
Lexers for Perl, Raku and related languages.
:copyright: Copyright 2006-present by the Pygments team, see AUTHORS.
:license: BSD, see LICENSE for details.
� N)�
RegexLexer�ExtendedRegexLexer�include�bygroups�using�this�default�words) �Text�Comment�Operator�Keyword�Name�String�Number� Punctuation�
Whitespace)�shebang_matches� PerlLexer�
Perl6Lexerc @ sV e Zd ZdZdZdZddgZg d�ZddgZd Z e
j e
j B Z
d
ejd fd ejd fd
ejd fdejd fdejd fdejd fdejd fdejd fdejd fdejd fg
g dejf�dejf�dejf�eddd�ef�deeeeeee�d f�d ejf�d ejf�d ejf�d ejf�d!ejf�d"ejf�d#ejd$f�d%ejd$f�d&ejd$f�d'ejd$f�d(ejf�d)ejd$f�d*ejf�d+ef�ed,dd�ej f�d-ej j f�d.eeeej eej e�f�d/ej d0f�d1ej j!f�d2ej j!f�d3ej d4f�d5e"j#f�d6e"j$f�d7e"j%f�d8e"j&f�d9e"j&f�d:e"j'f�d;ef�d<ef�d=ej(f�d>ejf�d?ej)d@f�dAej)dBf�dCej)dDf�dEej)dFf�dGej)f�dHeeeej*�f�dIeeeej*�f�dJeee�dKf�edLdd�ef�dMef�dNef�dOef�dPedQf�dRej+d fdSej+fgd+efdTed fdUed fdVej*fdWej d fgdXej*d fdYej*d fdWed fdZej,d fd[e-d fgd\ej.fd+efd]eee�fd^ed fd_ed fgd`ej)fdaej)fdTej)d@fdbej)d fdcej)fgddej)fdaej)fdeej)dBfdfej)d fdgej)fgdhej)fdaej)fdiej)dDfdjej)d fdkej)fgdlej)fdaej)fdmej)dFfdnej)d fdoej)fgdpej d fgdq� Z/drds� Z0dtS )ur z
For Perl source code.
�Perlzhttps://www.perl.org�perl�pl)�*.pl�*.pm�*.tz*.perlz text/x-perlzapplication/x-perl� z"/(\\\\|\\[^\\]|[^\\/])*/[egimosx]*�#popz"!(\\\\|\\[^\\]|[^\\!])*![egimosx]*z\\(\\\\|[^\\])*\\[egimosx]*z$\{(\\\\|\\[^\\]|[^\\}])*\}[egimosx]*z"<(\\\\|\\[^\\]|[^\\>])*>[egimosx]*z%\[(\\\\|\\[^\\]|[^\\\]])*\][egimosx]*z$\((\\\\|\\[^\\]|[^\\)])*\)[egimosx]*z"@(\\\\|\\[^\\]|[^\\@])*@[egimosx]*z"%(\\\\|\\[^\\]|[^\\%])*%[egimosx]*z$\$(\\\\|\\[^\\]|[^\\$])*\$[egimosx]*z \A\#!.+?$z\#.*?$z^=[a-zA-Z0-9]+\s+.*?\n=cut)�case�continue�do�else�elsif�forZforeach�if�last�my�next�our�redo�reset�then�unless�until�while�print�new�BEGIN�CHECK�INIT�END�returnz\b��suffixz!(format)(\s+)(\w+)(\s*)(=)(\s*\n)�formatz$(eq|lt|gt|le|ge|ne|not|and|or|cmp)\bz:s/(\\\\|\\[^\\]|[^\\/])*/(\\\\|\\[^\\]|[^\\/])*/[egimosx]*z.s!(\\\\|\\!|[^!])*!(\\\\|\\!|[^!])*![egimosx]*z+s\\(\\\\|[^\\])*\\(\\\\|[^\\])*\\[egimosx]*z:s@(\\\\|\\[^\\]|[^\\@])*@(\\\\|\\[^\\]|[^\\@])*@[egimosx]*z:s%(\\\\|\\[^\\]|[^\\%])*%(\\\\|\\[^\\]|[^\\%])*%[egimosx]*z s\{(\\\\|\\[^\\]|[^\\}])*\}\s*�balanced-regexz s<(\\\\|\\[^\\]|[^\\>])*>\s*z s\[(\\\\|\\[^\\]|[^\\\]])*\]\s*z s\((\\\\|\\[^\\]|[^\\)])*\)\s*z&m?/(\\\\|\\[^\\]|[^\\/\n])*/[gcimosx]*zm(?=[/!\\{<\[(@%$])z6((?<==~)|(?<=\())\s*/(\\\\|\\[^\\]|[^\\/])*/[gcimosx]*z\s+)��abs�accept�alarm�atan2�bindZbinmode�blessZcaller�chdir�chmod�chomp�chop�chown�chr�chroot�closeZclosedir�connectr �cosZcryptZdbmcloseZdbmopen�defined�delete�die�dumpZeachZendgrentZ
endhostentZ endnetentZ endprotoentZendpwentZ
endservent�eof�eval�exec�exists�exit�exp�fcntl�fileno�flock�forkr8 Zformline�getcZgetgrent�getgrgid�getgrnam�
gethostbyaddr�
gethostbynameZ
gethostent�getloginZ getnetbyaddrZ getnetbynameZ getnetent� getpeername�getpgrp�getppid� getpriority�getprotobynameZgetprotobynumberZ getprotoentZgetpwent�getpwnam�getpwuid�
getservbyname�
getservbyportZ
getservent� getsockname�
getsockopt�glob�gmtimeZgoto�grep�hex�import�index�int�ioctl�join�keys�killr% �lcZlcfirst�length�link�listen�local� localtime�log�lstat�map�mkdirZmsgctlZmsggetZmsgrcvZmsgsndr& r' �oct�openZopendir�ordr( �pack�pipe�pop�pos�printfZ prototype�pushZ quotemeta�rand�readZreaddir�readline�readlinkZreadpipe�recvr) �ref�rename�reverseZ rewinddir�rindex�rmdirZscalar�seekZseekdir�selectZsemctlZsemgetZsemop�sendZsetgrentZ
sethostentZ setnetent�setpgrp� setpriorityZ setprotoentZsetpwentZ
setservent�
setsockopt�shiftZshmctlZshmgetZshmreadZshmwrite�shutdown�sin�sleep�socket�
socketpair�sort�splice�split�sprintf�sqrt�srand�statZstudy�substr�symlinkZsyscallZsysopenZsysreadZsysseek�systemZsyswrite�tellZtelldirZtieZtied�time�times�tr�truncate�ucZucfirst�umaskZundef�unlink�unpack�unshiftZuntie�utime�valuesZvec�wait�waitpidZ wantarray�warn�writez+((__(DATA|DIE|WARN)__)|(STD(IN|OUT|ERR)))\bz/(<<)([\'"]?)([a-zA-Z_]\w*)(\2;?\n.*?\n)(\3)(\n)Z__END__�end-partz\$\^[ADEFHILMOPSTWX]z(\$[\\\"\[\]'&`+*.,;=%~?@$!<>(^|/-](?!\w)z[$@%#]+�varname�0_?[0-7]+(_[0-7]+)*� 0x[0-9A-Fa-f]+(_[0-9A-Fa-f]+)*�0b[01]+(_[01]+)*�?(?i)(\d*(_\d*)*\.\d+(_\d*)*|\d+(_\d*)*\.\d+(_\d*)*)(e[+-]?\d+)?� (?i)\d+(_\d*)*e[+-]?\d+(_\d*)*�
\d+(_\d+)*�'(\\\\|\\[^\\]|[^'\\])*'�"(\\\\|\\[^\\]|[^"\\])*"z`(\\\\|\\[^\\]|[^`\\])*`z <([^\s>]+)>z(q|qq|qw|qr|qx)\{� cb-stringz(q|qq|qw|qr|qx)\(� rb-stringz(q|qq|qw|qr|qx)\[� sb-stringz(q|qq|qw|qr|qx)\<� lt-stringz (q|qq|qw|qr|qx)([\W_])(.|\n)*?\2z/(package)(\s+)([a-zA-Z_]\w*(?:::[a-zA-Z_]\w*)*)z6(use|require|no)(\s+)([a-zA-Z_]\w*(?:::[a-zA-Z_]\w*)*)z
(sub)(\s+)�funcname)�no�package�require�usez=(\[\]|\*\*|::|<<|>>|>=|<=>|<=|={3}|!=|=~|!~|&&?|\|\||\.{1,3})z[-+/*%=<>&^|!\\~]=?z[()\[\]:;,<>/?{}]z(?=\w)�namez\.\nz[^\n]*\n�\{z\)|,z\w+::z[\w:]+z+[a-zA-Z_]\w*(::[a-zA-Z_]\w*)*(::)?(?=\s*->)z [a-zA-Z_]\w*(::[a-zA-Z_]\w*)*::z
[A-Z_]+(?=\W)z(?=\W)z[a-zA-Z_]\w*[!?]?z(\([$@%]*\))(\s*)�;z.*?\{z\\[{}\\]z\\�\}z[^{}\\]+z\\[()\\]z\(z\)z[^()]+z
\\[\[\]\\]z\[z\]z[^\[\]]+z\\[<>\\]z\<z\>z[^<>]+z.+) r9 �rootr8 r� r� r� r� r� r� r� r� c C s: t | d�rdS d}t�d| �r|d7 }d| v r|d }|S )Nr Tr z(?:my|our)\s+[$@%(]g�������?�:=� )r �re�search)�text�result� r� �H/opt/saltstack/salt/lib/python3.10/site-packages/pygments/lexers/perl.py� analyse_text� s
zPerlLexer.analyse_textN)1�__name__�
__module__� __qualname__�__doc__r� �url�aliases� filenames� mimetypes�
version_addedr� �DOTALL� MULTILINE�flagsr �Regexr ZHashbang�Single� Multiliner r
r r r r r ZWord�BuiltinZPseudoZ DelimiterZPreproc�Variable�Globalr �Oct�Hex�Bin�Float�IntegerZBacktickZOther� NamespaceZInterpolZConstantr
ZFunction�tokensr� r� r� r� r� r s�
� ������
�� ���������
�
����� �
� ��"�#���
?�@��
B�
C�
D�
E�F�G�H�I��K�L�M�N�O�P�
Q�
R�
S�
T�U�V ��X ��Z�[���^��`�a�c�
f�
�
� �
�
�
�
�
� �� .c
s2 e Zd ZdZdZdZg d�Zg d�ZddgZdZ e
j e
j B Z
d Zd
Zd Zd Zd
Zi dd�dd�dd�dd�dd�dd�dd�d d �d d �d d �d!d �d"d#�d$d#�d%d#�d&d'�d(d)�d*d+�i d,d-�d.d/�d0d1�d2d3�d4d5�d6d7�d8d9�d:d;�d<d=�d>d?�d@dA�dBdC�dDdE�dFdG�dHdI�dJdK�dLdM��i dNdO�dPdQ�dRdS�dTdU�dVdW�dXdY�dZd[�d\d]�d^d_�d`da�dbdc�ddde�dfdg�dhdi�djdk�dldm�dndo��i dpdq�drds�dtdu�dvdw�dxdy�dzd{�d|d}�d~d�d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d���i d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d���i d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�dÓd�dœd�dǓd�dɓd�d˓d�d͓d�dϓd�dѓd�dӓd�dՓ�i d�dדd�dٓd�dۓd�dݓd�dߓd�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d��d�d���i d�d��d�d��d�d��d�d���d �d��d�d��d�d��d�d��d�d ��d
�d ��d �d
��d�d��d�d��d�d��d�d��d�d��d�d��i �d�d��d �d ��d �d ��d �d!��d"�d#��d$�d%��d&�d'��d(�d)��d*�d+��d,�d-��d.�d/��d0�d1��d2�d3��d4�d5��d6�d7��d8�d9��d:�d;��i �d<�d=��d>�d?��d@�dA��dB�dC��dD�dE��dF�dG��dH�dI��dJ�dK��dL�dM��dN�dO��dP�dQ��dR�dS��dT�dU��dV�dW��dX�dY��dZ�d[��d\�d]��i �d^�d_��d`�da��db�dc��dd�de��df�dg��dh�di��dj�dk��dl�dm��dn�do��dp�dq��dr�ds��dt�du��dv�dw��dx�dy��dz�d{��d|�d}��d~�d���d��d��d��d��d��d���Z�dːd��d��Z�d��d�� Z�d��d�� Z�d��d�� Z�d��d�� Zg �d��d��e� �d� eej�f��d�ej f��d�ejf��d�ejf��d�ejf��d�e �d� e e e ��d�f��d�e �d� e �d� e e e ��d�f��d�e e e e e �f�eee�e f�eee�d��d��e j!f�eee�e j!f��d�e �d� e j"f��d�e j"j#f��d�e j"j#f��d�e �d� e j"j#f��d�e j"f��d�ee$�f��d�e%j&f��d�e%j'f��d�e%j(f��d�e%j)f��d�e%j)f��d�e%j*f��d�e$j+f��d�e$j+f��d�e f��d�ee$j+�f��d�e$j+f��d�e$f�ee�e,f��d�e �d� e f��d�e$f��d�e$f�e-�d���d�ef�d�ef�d�e.fge-�d���d�e.�d�f�d�e.fg�d��d��e� �d� ee ��d�fe/�d��g�d�e.�d�f�d�e0e1�f�d�e$j+f�d�e$j+f�d�e$j+f�d�ej f�d�ef�d�e$j+fg�dƜZ2�dǐdȄ Z3� f�dɐdʄZ4� Z5S (� r z/
For Raku (a.k.a. Perl 6) source code.
ZPerl6zhttps://www.raku.org)Zperl6Zpl6Zraku)r r z*.nqpz*.p6z*.6plz*.p6lz*.pl6z*.6pmz*.p6mz*.pm6r z*.rakuz *.rakumodz
*.rakutestz *.rakudocz text/x-perl6zapplication/x-perl6z2.0z['\w:-])Nr1 ZCATCHr2 ZCLOSEZCONTROLZDOCr4 ZENTERZFIRSTr3 ZKEEPZLASTZLEAVEZNEXT�POSTZPREZQUITZUNDOZanonZaugment�but�classZconstantr �doesr! r" �enumr# ZgatherZgivenZgrammarZhasr$ rm �isZletZloop�made�make�method�module�multir& ZneedZorwithr( Zproceed�proto�repeatr� r5 z return-rw�returns�roleZrule�state�subZ submethodZsubsetZsucceedZ supersede�token�tryZunitr, r- r� �whenr. �withZwithoutZexportZnative�repr�required�rw�symbol( ZACCEPTSr: Zabs2rel�absoluter; Zaccessed�acosZacosecZacosech�acoshZacotanZacotanh�acquireZact�action�actions�addZ
add_attributeZadd_enum_value� add_fallbackZ
add_methodZ
add_parentZadd_private_methodZadd_roleZ add_trusteeZadverb�after�all�allocateZallof�allowedzalternative-names� annotationsZantipairZ antipairs�anyZanyofZ app_lifetime�append�archZarchname�argsZarity�ArrayZasecZasech�asin�asinhz
ASSIGN-KEYz
ASSIGN-POSZassuming�astZat�atanr= �atanhzAT-KEYz
atomic-assignzatomic-dec-fetchz atomic-fetchzatomic-fetch-addzatomic-fetch-deczatomic-fetch-inczatomic-fetch-subzatomic-inc-fetchzAT-POSZ
attributesZauth�awaitZ backtrace�Bag�BagHashzbail-out�base�basenamezbase-repeatingZbatchzBIND-KEYzBIND-POSz bind-stderrz
bind-stdinz bind-stdoutzbind-udp�bitsr? �block�Boolz bool-onlyZbounds�breakZBridge�brokenZBUILDz
build-date�bytes�cacheZ callframezcalling-packagezCALL-MEZcallsameZcallwithZcan�cancelZ
candidatesZcandozcan-okZ canonpathZcapsZcaption�CaptureZcasZcatdirZ
categorizezcategorize-listZcatfileZcatpath�causeZceilingZcglobal�changed�Channel�charsr@ �childz
child-namezchild-typenamerA rB rC rE Zchrs�chunksZcisZclassifyz
classify-listZcleanup�clonerG �closedz close-stdinzcmp-ok�codeZcodesZcollate�column�comb� combinationsZcommandZcomment�compiler�ComplexZcomposeZ compose_typeZcomposerZ conditionZconfigZconfigure_destroyZconfigure_type_checkingZconjrH � constraintsZ construct�contains�contents�copyrI ZcosecZcosech�coshZcotanZcotanh�countz
count-onlyz cpu-coresz cpu-usageZCREATEZ create_type�crossZcue�curdirZcurupdir�d�Date�DateTime�dayZdaycountz day-of-monthz day-of-weekz day-of-yearz
days-in-monthZ declaration�decode�decoderZdeepmapr rJ ZDEFINITEZdelayedz
DELETE-KEYz
DELETE-POS� denominator�descZDESTROYZ
destroyers�devnullZdiagz did-you-meanrL zdies-ok�dir�dirnamezdir-sepZ DISTROnamesr r� zdoes-okZdonez done-testingZduckmapZdynamic�eZeagerZearlierZelems�emitZ enclosing�encode�encoder�encoding�endz ends-withZenum_from_valueZenum_value_listZ enum_valuesZenumsrN ZEVALz eval-dies-okZEVALFILEz
eval-lives-ok� exceptionz excludes-maxz excludes-minz
EXISTS-KEYz
EXISTS-POSrR �exitcoderS �expectedzexplicitly-manageZexpmod� extension�fZfailz
fails-likeZfcZfeature�file�filenameZ find_methodZfind_method_qualifiedZfinish�firstZflatZflatmapZflip�floorZflunk�flush�fmtr8 � formatterZfreeze�fromz from-listz from-loopz
from-posix�fullz full-barrier�get� get_valuerX ZgistZgotZgrabZ grabpairsrk �handleZhandledZhandlesZhardwareZ has_accessor�Hash�head�headerszhh-mm-ssZhiddenZhides�hour�howZhyper�idZillegalZim�in�indentrn �indicesZindirZinfiniteZinfixz infix:<+>z infix:<->Zinstall_method_cache�InstantZinstead�Intz
int-bounds�intervalz in-timezonez invalid-str�invertZinvocant�IOzIO::Notification.watch-pathZ
is_trustedZis_typeZisaz is-absolutezisa-okz is-approxz is-deeplyz is-hiddenzis-initial-threadzis-intzis-lazyz is-leap-yearZisNaNZisntzis-primez is-relativez
is-routinez
is-settingzis-win�item�iteratorrq ZkeepZkeptZ KERNELnames�keyZkeyofrr rs ZkvZkxxv�l�langr% ZlastcallZlaterZlazyrt Zleading�levelZlike�line�linesrv �Listrw Zlivezlives-okrx �lockrz �log10�lookupZlsbr� ZMAINr� �Map�match�maxZmaxpairs�merge�messager� Z method_table�methodsZmigrate�minZminmaxZminpairs�minuteZ misplaced�Mix�MixHashr} �modeZmodified�month�move�mroZmsbr� Z multinessr& r� �namedZ named_namesZnarrowZ
nativecastznative-descriptorZ nativesizeofr0 �new_typeznew-from-daycountznew-from-pairsr' Z
nextcalleez next-handleZnextsameZnextwith�NFC�NFD�NFKC�NFKDznl-inznl-outZnodemapZnok�noneZnorm�notZnote�nowZnude�Num� numerator�NumericZof�offsetzoffset-in-hourszoffset-in-minutes�ok�oldzon-closeZonez on-switchr ZopenedZ operation�optionalr� Zords�origzos-errorZosnamez
out-bufferr� r� z package-kindz package-nameZpackages�pair�pairsZpairupZ parameter�params�parentz parent-name�parents�parsez
parse-baseZ parsefilez parse-names�parts�pass�pathzpath-sep�payloadz peer-hostz peer-portZperiodsr � permutationsZphaserZpickZ pickpairs�pid� placeholderZplanZplusZpolar�pollZpolymodr� r� Z
positional�posixZpostfixZ postmatchz precomp-extzprecomp-target�pred�prefixZprematchZprependr/ r� zprint-nlzprint-toZprivateZprivate_method_table�procZproduce�Promise�promptZprotectzpull-oner� zpush-allz
push-at-leastz push-exactlyzpush-until-lazy�putzqualifier-type�quit�rZrace�radixr� �range�Rat�rawr� r� Z readchars�readonly�ready�RealZ
reallocateZreals�reasonZreblessZreceiver� Z redispatcherr) �reduceZrel2absZrelative�releaser� ZrepeatedZ replacement�reportZreserved�resolveZrestorer� ZresumeZrethrowr� �rightr� r� r� Zroles_to_composeZrolishZroll�rootdir�roots�rotateZrotor�roundZ
roundrobinz routine-type�runZrwx�sZsamecaseZsamemarkZsamewithZsayz schedule-onZ scheduler�scopeZsecZsech�secondr� �selfr� �SetZ
set_hidden�set_name� set_packageZset_rwZ set_value�SetHashzset-instrumentsZsetup_finalization�shape�share�shellr� ZsiblingZsigil�sign�signalZsignalsZ signaturer� �sinhZsinkzsink-all�skipz
skip-at-leastzskip-at-least-pull-onezskip-onez skip-restr� z sleep-timerz sleep-until�SlipZslurpz
slurp-restZslurpyZsnapZsnapper�soz socket-hostz socket-portr� �sourcezsource-packageZspawnZSPECr� r� ZsplitdirZ splitpathr� Zspurtr� Zsquishr� Zstable�start�startedz starts-with�status�stderr�stdout�StrZ
sub_signatureZsubbufz subbuf-rwZsubnameZsubparse�substz subst-mutater� z substr-eqz substr-rwZsubtestZsucc�sum�Supplyr� �t�tailZtakeztake-rw�tan�tanhZtap�targetz target-nameZtcZtclcr� r+ Zthrottle�throwz throws-like�timezoneZtmpdir�to�todayZtodoZtogglezto-posix�totalZtrailingZtransZtreeZtrimz trim-leadingz
trim-trailingr� z truncated-toZtrustsZ try_acquireZtryingZtwigil�typeZ
type_captures�typenamer� ZudpZuncaught_handlerZunimatchZuninameZuninamesZuniparseZunipropZuniprops�uniqueZunivalZunivalsZunliker� Zunlockr� Zunpolarr� �unwrapZupdirZUSAGEzuse-ok�utc�val�valuer� ZVAR�variablezverbose-config�versionZVMnamesZvolumeZvow�wr� r� Zwatchz
watch-path�weekzweekday-of-monthz week-numberz week-yearZWHATr ZWHEREZ WHEREFOREZWHICHZWHOz whole-secondZWHYZwordcaser Z
workaround�wrapr� zwrite-to�xZyada�year�yieldz
yyyy-mm-dd�z�zipz
zip-latest)��False�True�Anyr Z Associative�ASTZ atomicintZ AttributeZ BacktracezBacktrace::Framer" ZBaggyr# ZBlobZBlockr( ZBuf�CallableZ CallFrameZ Cancellationr. ZCArrayr1 ZCoder; r< Z
ComplexStrZCoolZCurrentThreadSchedulerZCursorrF ZDateishrG ZDistroZDurationZEncoding� ExceptionZFailureZFatRatZGrammarrg Z
HyperWhateverrp rq Zint16Zint32Zint64Zint8ZIntStrrt z IO::ArgFilesz
IO::CatHandlez
IO::HandlezIO::NotificationzIO::PathzIO::Path::Cygwinz
IO::Path::QNXzIO::Path::UnixzIO::Path::Win32zIO::Pipez
IO::SocketzIO::Socket::AsynczIO::Socket::INETzIO::SpeczIO::Spec::Cygwinz
IO::Spec::QNXzIO::Spec::UnixzIO::Spec::Win32z IO::Special�Iterable�IteratorZJunctionZKernelZLabelr} �Lockz Lock::AsyncZlongZlonglongZMacror� �Matchz Metamodel::AttributeContainerzMetamodel::C3MROzMetamodel::ClassHOWzMetamodel::EnumHOWzMetamodel::FinalizationzMetamodel::MethodContainerz!Metamodel::MROBasedMethodDispatchz Metamodel::MultipleInheritancezMetamodel::NamingzMetamodel::Primitivesz!Metamodel::PrivateMethodContainerzMetamodel::RoleContainerzMetamodel::TrustingZMethodr� r� ZMixyZMur� r� r� r� ZNilr� Znum32Znum64r� ZNumStrZObjAtZOrderZPairZ Parameterr z
Pod::BlockzPod::Block::CodezPod::Block::CommentzPod::Block::DeclaratorzPod::Block::NamedzPod::Block::ParazPod::Block::Tablez Pod::Headingz Pod::ItemZPointerZ
PositionalZPositionalBindFailoverZProcz Proc::Asyncr� ZProxyZ PseudoStashZ QuantHashZRanger� ZRationalZRatStrr� r� ZRoutineZScalarZ Scheduler� SemaphoreZSeqr� r� ZSettyZ SignatureZsize_tr� ZStashr� Z StrDistanceZStringyZSubZ SubmethodZSupplierzSupplier::Preservingr� ZSystemicZTapZ Telemetryz Telemetry::Instrument::Threadz Telemetry::Instrument::UsagezTelemetry::PeriodzTelemetry::Sampler�ThreadZThreadPoolSchedulerZUIntZuint16Zuint32Zuint64Zuint8ZUni�utf8r� �VersionZVMZWhateverZ WhateverCodeZ
WrapHandle)f�X�Zr Zalso�andZandthen�before�cmpZdiv�eqZeqv�extra�ff�fff�ge�gt�leZleg�lt�m�mm�mod�ne�or�orelse�rxr� r� r� �xor�xxz++z--z**�!�+�-�~�?�|�||�+^�~^�?^�^�*�/�%z%%z+&z+<z+>z~&z~<z~>z?&�gcd�lcmr$ r% z+|r* z~|r+ z?|r, r& �&r- r� r� z<=>z..z..^z^..z^..^z!=z==�<z<=�>z>=z~~z===z!eqvz&&r) z^^z//r� r� z??z!!r r r� r� z<==z==>z<<==z==>>Zunicmp�(�)r4 r5 �[�]�{�}� «� »u ༺u ༻u ༼u ༽u ᚛u ᚜u ‘u ’u ‚u ‛u “u ”u „u ‟u ‹u ›u ⁅u ⁆u ⁽u ⁾u ₍u ₎u ∈u ∋u ∉u ∌u ∊u ∍u ∕u ⧵u ∼u ∽u ≃u ⋍u ≒u ≓u ≔u ≕u ≤u ≥u ≦u ≧u ≨u ≩u ≪u ≫u ≮u ≯u ≰u ≱u ≲u ≳u ≴u ≵u ≶u ≷u ≸u ≹u ≺u ≻u ≼u ≽u ≾u ≿u ⊀u ⊁u ⊂u ⊃u ⊄u ⊅u ⊆u ⊇u ⊈u ⊉u ⊊u ⊋u ⊏u ⊐u ⊑u ⊒u ⊘u ⦸u ⊢u ⊣u ⊦u ⫞u ⊨u ⫤u ⊩u ⫣u ⊫u ⫥u ⊰u ⊱u ⊲u ⊳u ⊴u ⊵u ⊶u ⊷u ⋉u ⋊u ⋋u ⋌u ⋐u ⋑u ⋖u ⋗u ⋘u ⋙u ⋚u ⋛u ⋜u ⋝u ⋞u ⋟u ⋠u ⋡u ⋢u ⋣u ⋤u ⋥u ⋦u ⋧u ⋨u ⋩u ⋪u ⋫u ⋬u ⋭u ⋰u ⋱u ⋲u ⋺u ⋳u ⋻u ⋴u ⋼u ⋶u ⋽u ⋷u ⋾u ⌈u ⌉u ⌊u ⌋u 〈u 〉u ⎴u ⎵u ❨u ❩u ❪u ❫u ❬u ❭u ❮u ❯u ❰u ❱u ❲u ❳u ❴u ❵u ⟃u ⟄u ⟅u ⟆u ⟕u ⟖u ⟝u ⟞u ⟢u ⟣u ⟤u ⟥u ⟦u ⟧u ⟨u ⟩u ⟪u ⟫u ⦃u ⦄u ⦅u ⦆u ⦇u ⦈u ⦉u ⦊u ⦋u ⦌u ⦍u ⦎u ⦏u ⦐u ⦑u ⦒u ⦓u ⦔u ⦕u ⦖u ⦗u ⦘u ⧀u ⧁u ⧄u ⧅u ⧏u ⧐u ⧑u ⧒u ⧔u ⧕u ⧘u ⧙u ⧚u ⧛u ⧸u ⧹u ⧼u ⧽u ⨫u ⨬u ⨭u ⨮u ⨴u ⨵u ⨼u ⨽u ⩤u ⩥u ⩹u ⩺u ⩽u ⩾u ⩿u ⪀u ⪁u ⪂u ⪃u ⪄u ⪋u ⪌u ⪑u ⪒u ⪓u ⪔u ⪕u ⪖u ⪗u ⪘u ⪙u ⪚u ⪛u ⪜u ⪡u ⪢u ⪦u ⪧u ⪨u ⪩u ⪪u ⪫u ⪬u ⪭u ⪯u ⪰u ⪳u ⪴u ⪻u ⪼u ⪽u ⪾u ⪿u ⫀u ⫁u ⫂u ⫃u ⫄u ⫅u ⫆u ⫍u ⫎u ⫏u ⫐u ⫑u ⫒u ⫓u ⫔u ⫕u ⫖u ⫬u ⫭u ⫷u ⫸u ⫹u ⫺u ⸂u ⸃u ⸄u ⸅u ⸉u ⸊u ⸌u ⸍u ⸜u ⸝u ⸠u ⸡u 〈u 〉u 《u 》u 「u 」u 『u 』u 【u 】u 〔u 〕u 〖u 〗u 〘u 〙u 〚u 〛u 〝u 〞u ﴾u ﴿u ︗u ︘u ︵u ︶u ︷u ︸u ︹u ︺u ︻u ︼u ︽u ︾u ︿u ﹀u ﹁u ﹂u ﹃u ﹄u ﹇u ﹈u ﹙u ﹚u ﹛u ﹜u ﹝u ﹞u （u ）u ＞u ］u ｝u ｠u ｣)u ＜u ［u ｛u ｟u ｢Nr c C sh |d u rd| d� dd� | D �� | d S d| d | d d� d d� | D �� d | d
| d S ) Nz\b(r( c s � � | ]}t �|�V qd S �N�r� �escape��.0r� r� r� r� � <genexpr>� � � z/Perl6Lexer._build_word_match.<locals>.<genexpr>z)\bz(?<!r7 r6 c s r> r? r@ rB r� r� r� rD � rE z(?!)rq )r Zboundary_regex_fragmentr� r7 r� r� r� �_build_word_match� s& ��������z Perl6Lexer._build_word_matchc s � fdd�}|S )Nc 3 s� � |� � }|d }t|�}|�d�}tj�|d �}|j}|d u r-|�||�d�| �} nE|| }
d} |�d�} | dkrp|�|| | �}
|�|
| | �}|dkrWt|�}d} n|
dkrf|
|k rf| d7 } |
} n| d8 } |} | dks<|} | dk rzt|�} |d ur�t� d|�r�||�d�| | � }t� dt�
|� d || d � tj �}|r�| |� � 7 } nt|�} |�� � ||�� | | � fV | | |_
d S ) N� delimiter�adverbsr � ���z:to\bz^\s*z\s*$)� groupdict�lenrd r �PERL6_BRACKETSr� �findr� r� r� rA r� rU r� )�lexerr� �context�groupsZ
opening_charsZn_charsrH Zcloserr� Zend_posZ
closing_charsZ
nesting_levelZ
search_posZ
next_open_posZnext_close_posZheredoc_terminatorZ end_heredoc�� token_classr� r� �callback� sN �
��� z.Perl6Lexer.brackets_callback.<locals>.callbackr� )rS rT r� rR r� �brackets_callback� s 5z Perl6Lexer.brackets_callbackc c sf � |j }|�� t|j|�� |�� � fV |�� |_t|�dkr/|d dkr1| jd7 _d S d S d S )Nr� ���r rI )�stackr� r
r� rU r� rL �perl6_token_nesting_level�rO r� rP rW r� r� r� �opening_brace_callback0 s �"
�z!Perl6Lexer.opening_brace_callbackc c s| � |j }|�� t|j|�� |�� � fV |�� |_t|�dkr8|d dkr:| jd8 _|jdkr<|�� d S d S d S d S )Nr� rV r rI r ) rW r� r
r� rU r� rL rX r� rY r� r� r� �closing_brace_callback= s �"
�z!Perl6Lexer.closing_brace_callbackc c sD � d|_ |�� t|j|�� |�� � fV |�� |_|j�d� d S )NrI r� )rX r� r
r� rU r� rW r )rO r� rP r� r� r� �embedded_perl6_callbackK s
�"
z"Perl6Lexer.embedded_perl6_callbackz$#[`|=](?P<delimiter>(?P<first_char>[z])(?P=first_char)*)z#[^\n]*$z%^(\s*)=begin\s+(\w+)\b.*?^\1=end\s+\2z^(\s*)=for.*?\n\s*?\nz
^=.*?\n\s*?\nz(regex|token|rule)(\s*z+:sym)�token-sym-bracketsz(regex|token|rule)(?!z)(\s*z+)?� pre-tokenz(role)(\s+)(q)(\s*)z
(?::[UD])?r6 z[$@%&][.^:?=!~]?u +(?:<<.*?>>|<.*?>|«.*?»)*u \$[!/](?:<<.*?>>|<.*?>|«.*?»)*z::\?\w+z[$@%&]\*z \$(?:<.*?>)+zn(?:q|qq|Q)[a-zA-Z]?\s*(?P<adverbs>:[\w\s:]+)?\s*(?P<delimiter>(?P<first_char>[^0-9a-zA-Z:\s])(?P=first_char)*)r� r� r� r� r� r� z (?<=~~)\s*/(?:\\\\|\\/|.)*?/z (?<=[=(,])\s*/(?:\\\\|\\/|.)*?/z
m\w+(?=\()z_(?:m|ms|rx)\s*(?P<adverbs>:[\w\s:]+)?\s*(?P<delimiter>(?P<first_char>[^\w:\s])(?P=first_char)*)zB(?:s|ss|tr)\s*(?::[\w\s:]+)?\s*/(?:\\\\|\\/|.)*?/(?:\\\\|\\/|.)*?/z
<[^\s=].*?\S>z\wr. r� r� �commonr� r� z.+?)r r z (?P<delimiter>(?P<first_char>[)r r^ r z,(?<=:)(?:my|our|state|constant|temp|let).*?;z<(?:[-!?+.]\s*)?\[.*?\]>z (?<!\\)'(\\\\|\\[^\\]|[^'\\])*'z (?<!\\)"(\\\\|\\[^\\]|[^"\\])*"z#.*?$)r_ r� r^ r] r c C s� dd� }| � � }||�}d�|�} t| d�rdS d}d}t�dtj d | �r+d }d}|D ]0}t�d
d |�}t�d |�r=q-t�d
|�rF dS t�d|�}|r]|sW|� d�d urZ dS d}q- d| v rf|d }|S )Nc S sH d}g }| D ]}t �d|�rd}qt �d|�rd}q|s!|�|� q|S )NFz
^=(?:end|cut)z^=\w+T)r� r� r )r| Zin_podZstripped_linesr{ r� r� r� � strip_pod� s
�z*Perl6Lexer.analyse_text.<locals>.strip_pod�
zperl6|rakudo|niecza|pugsTFz(?:my|our|has)\s+(?:z
+\s+)?[$@%&(]g�������?z#.*r z^\s*$z$^\s*(?:use\s+)?v6(?:\.\d(?:\.\d)?)?;z?^\s*(?:(?P<scope>my|our)\s+)?(?:module|class|role|enum|grammar)r� g�������?r� r� )
�
splitlinesrq r r� r� r �PERL6_IDENTIFIER_RANGEr r� �group)r� r` r| Z
saw_perl_declZratingr{ Z
class_declr� r� r� r� � s>
�� zPerl6Lexer.analyse_textc s$ t � jdi |�� |�dd�| _d S )NrT zutf-8r� )�super�__init__rd rT )r� �options�� __class__r� r� rf � s zPerl6Lexer.__init__)Nr r )6r� r� r� r� r� r� r� r� r� r� r� r� r� r� rc ZPERL6_KEYWORDSZPERL6_BUILTINSZPERL6_BUILTIN_CLASSESZPERL6_OPERATORSrM rF rU rZ r[ r\ rq r r� r� r r
r r r� r� r� r r r� r� r� r� r� r� r r r
r r r r� r� rf �
__classcell__r� r� rh r� r � s� t&������������������������ � � �
�
�
� � � � � � �
�
�
������������������������������������������� � � � � � � � � � � � � � � �!�!�!�"�"�"�#�#�#�$�$�$�%�%�%�&�&�&�'�'�'�(�(�(�)�)�)�*�*�*�+�+�+�,�,�,�-�-�-�.�.�.�/�/�/�0�0�0�1�1�1�2�2�2�3�3�3�4�4�4�5�5�5�6�6�6�7�7�7�8�8�8�9�9�9�:�:�:�;�;�;�<�<�<�=�=�=�>�>�>�?�?
�C 8
��
�
�
�
� �� �� �
������ � ���
���
�
�
� ��
!�
"�
#�
$�%�&��(��*�
+�,�-�.�1� �
��
�� O7)r� r� Zpygments.lexerr r r r r r r r Zpygments.tokenr
r r r
r r r r r Z
pygments.utilr �__all__r r r� r� r� r� �<module> s
(, M