a

SҼa�E�@sZdd
lZddl
mZmZmZmZ
ddlmZmZm	Z	m
Z
mZmZ
dg
Z
Gdd�de�Zd
S)�N)�
RegexLexer�bygroups�default�words)�Text�Comment�Keyword�Name�String�Number�FactorLexercA@s`eZ
dZd
Zdg
Zdg
Zdg
Zejej	BZ
eddd�Zeddd�Z
ed	dd�Zed
dd�Zeddd�Zeddd�Zed
dd�Zeddd�Zeddd�Zeddd�Zeddd�Zdejfed�
gdefdeeeej�fdeeeejeej�fdeeeejeej�fdeeeej�fdeeeejeej�fdejdfdefdeej e�dfdeej eej �fd eej eej eej �fd!eej eej e�d"fd#eej eejeej eej�fd$eej eejeej�fd%eej eej�fd&eeeejeej�d'fd(eeeej�d'fd)eeeej�fd*eeeejeej�fdeeeejeej�fd+eeeejeej�fd,eeeej�fd-eeeej�fd.ed/fd0eeeej�fd1ed"fd2efd3efd4eeeej�fd5eej eeje�fd6eej eejeeje�fd7ej fd8e!fd9e!fd:e!fd;e!j"fd<efd=efd>efd?ej#fd@ej#fdAej#fdBe$fdCe$fdDe$fdEe$fdFe$j%fdGe$j&fdHe$fdIe$fdJefeej'fe
ej'feej'feej'feej'feej'feej'feej'feej'feej'feej'fdKefg?defdLejdfdMejdNfdOejfdKej(fgdefdedNfdPeeej(e�fdKej(fgdefdedNfdKej fgdefdedNfdKejfgdefdedNfdKejfgdQ�Z)dRS)SrZFactorZfactorz*.factorz
text/x-factor)oz-rotZ2biz2bi@z2bi*Z2curryZ2dipZ2dropZ2dupZ2keepZ2nipZ2overZ2triz2tri@z2tri*Z3biZ3curryZ3dipZ3dropZ3dupZ3keepZ3triZ4dipZ4dropZ4dupZ4keepz	<wrapper>�
=z>booleanZclone�
?z?executez?if�and�assertzassert=zassert?Zbizbi-curryz	bi-curry@z	bi-curry*zbi@zbi*ZboaZbooleanzboolean?zboth?Zbuild�callZ	callstackzcallstack>arrayz
callstack?�clearz(clone)Zcomposezcompose?Zcurryzcurry?Z	datastackZdieZdipZdoZdrop�dupZdupdzeither?zeq?zequal?ZexecuteZhashcodez	hashcode*zidentity-hashcodezidentity-tuplezidentity-tuple?�ifzif*ZkeepZloopZmost�newZnip�notZnull�object�orZoverZpickZpreposeZretainstackZrotzsame?ZswapZswapd�throwZtriz	tri-curryz
tri-curry@z
tri-curry*ztri@ztri*�tupleztuple?Zunlesszunless*ZuntilZwhenzwhen*�while�with�wrapperzwrapper?�xorz\s)
�suffix)@Z2cachez<enum>z>alistz?atz?ofZassocz
assoc-all?z
assoc-any?zassoc-clone-likez
assoc-combinez
assoc-diffzassoc-diff!zassoc-differz
assoc-eachzassoc-empty?zassoc-filterz
assoc-filter!zassoc-filter-asz
assoc-findzassoc-hashcodezassoc-intersectz
assoc-likez	assoc-mapzassoc-map-aszassoc-partitionzassoc-refinez
assoc-sizezassoc-stackz
assoc-subset?zassoc-unionzassoc-union!zassoc=z	assoc>mapzassoc?Zatzat+zat*�cachez	change-atzclear-assocz	delete-atz
delete-at*�enumzenum?zextract-keyszinc-atzkey?�keysz	map>assoczmaybe-set-atz	new-assocZofzpush-atz	rename-atzset-atz	sift-keyszsift-valuesZ
substituteZunzipzvalue-atz	value-at*zvalue?�values�zip)Z2cleavez2cleave>quotZ3cleavez3cleave>quotZ4cleavez4cleave>quotz
alist>quotzcall-effectZcasez	case-findz	case>quotZcleavezcleave>quotZcondz	cond>quotzdeep-spread>quotzexecute-effectzlinear-case-quotzno-casezno-case?zno-condzno-cond?zrecursive-hashcodezshallow-spread>quotZspreadzto-fixed-pointzwrong-valuesz
wrong-values?)c�
-�
/z/fz/iz/modz2/z2^�
<z<=z<fp-nan>�
>z>=z>bignumz>fixnumz>floatz>integerz(all-integers?)z(each-integer)z(find-integer)�
*�
+z?1+�absZalignz
all-integers?Zbignumzbignum?zbit?ZbitandZbitnotZbitorzbits>doublez
bits>floatZbitxor�complexzcomplex?�denominatorzdouble>bitszeach-integerzeven?zfind-integerzfind-last-integerZfixnumzfixnum?�floatz
float>bitszfloat?zfp-bitwise=zfp-infinity?zfp-nan-payloadzfp-nan?zfp-qnan?zfp-signzfp-snan?zfp-special?zif-zerozimaginary-partZintegerzinteger>fixnumzinteger>fixnum-strictzinteger?Zlog2zlog2-expects-positivezlog2-expects-positive?�mod�negzneg?z
next-floatznext-power-of-2Znumberznumber=znumber?�	numeratorzodd?zout-of-fixnum-rangezout-of-fixnum-range?zpower-of-2?z
prev-floatZratiozratio?Zrationalz	rational?�realz	real-partzreal?ZrecipZremZsgn�shift�sq�timeszu<zu<=zu>zu>=zunless-zeroz
unordered?z	when-zerozzero?)�Z	1sequencez2all?Z2eachZ2mapz2map-asz2map-reduceZ2reduceZ	2selectorZ	2sequenceZ3appendz
3append-asZ3eachZ3mapz3map-asZ	3sequenceZ	4sequencez<repetition>z
<reversed>z<slice>z?firstz?lastz?nthz?secondz?set-nth�
accumulatezaccumulate!z
accumulate-aszall?zany?�appendzappend!z	append-aszassert-sequencezassert-sequence=zassert-sequence?z
binary-reducezbounds-checkz
bounds-check?zbounds-errorz
bounds-error?zbut-lastzbut-last-slicezcartesian-eachz
cartesian-mapzcartesian-productz
change-nthzcheck-slicezcheck-slice-errorz
clone-likezcollapse-sliceZ	collectorz
collector-for�concatz	concat-as�copy�countZcutz	cut-slicezcut*z
delete-allzdelete-slicezdrop-prefixZeachz	each-fromz
each-indexzempty?Zexchange�filterzfilter!z	filter-as�findz	find-fromz
find-indexzfind-index-fromz	find-lastzfind-last-from�firstZfirst2Zfirst3Zfirst4Zflip�followZfourthZglueZhalvesZharvest�headz
head-slicezhead-slice*zhead*zhead?zif-emptyZ	immutablezimmutable-sequencezimmutable-sequence?z
immutable?�indexz
index-from�indicesZinfimumz
infimum-byz
insert-nthZ
interleaveZiotaz
iota-tupleziota-tuple?�joinzjoin-asZlastz
last-indexzlast-index-from�lengthZlengthenZlikeZlongerzlonger?Zlongest�mapzmap!zmap-aszmap-findz
map-find-lastz	map-indexzmap-integersz
map-reducezmap-sumz
max-lengthz
member-eq?zmember?z	midpoint@z
min-lengthZmismatch�moveznew-likez
new-resizableznew-sequenceznon-negative-integer-expectedznon-negative-integer-expected?ZnthZnthszpad-headzpad-tailZpadding�	partition�popzpop*�prefixZprependz
prepend-asZproducez
produce-as�product�pushzpush-allzpush-eitherzpush-if�reducezreduce-index�removezremove!z	remove-eqz
remove-eq!z
remove-nthzremove-nth!Z
repetitionzrepetition?z
replace-sliceZ	replicatezreplicate-as�restz
rest-slice�reversezreverse!�reversedz	reversed?�second�selectorzselector-forZsequencezsequence-hashcodez	sequence=z	sequence?z	set-firstz
set-fourthzset-lastz
set-lengthzset-nthz
set-secondz	set-thirdZshortZshortenZshorterzshorter?ZshortestZsift�slicezslice-errorzslice-error?zslice?Zsnipz
snip-slice�startzstart*Zsubseqzsubseq?rzsuffix!�sumzsum-lengthsZsupremumzsupremum-byZsurround�tailz
tail-sliceztail-slice*ztail*ztail?�thirdZtrimz	trim-headztrim-head-slicez
trim-slicez	trim-tailztrim-tail-sliceZunclipzunclip-lastzunclip-last-slicezunclip-slicezunless-emptyzvirtual-exemplarzvirtual-sequencezvirtual-sequence?zvirtual@z
when-empty)z+@Zchangez
change-globalZcounterZdec�getz
get-global�globalZinczinit-namespacesZ
initializez	is-globalz
make-assoc�	namespaceZ	namestackZoffZon�setz
set-globalz
set-namestackZtogglezwith-globalz
with-scopez
with-variablezwith-variables)Z1arrayZ2arrayZ3arrayZ4arrayz<array>z>arrayZarrayzarray?Zpairzpair?zresize-array)Yz(each-stream-block-slice)z(each-stream-block)z(stream-contents-by-block)z(stream-contents-by-element)z$(stream-contents-by-length-or-block)z(stream-contents-by-length)z+byte+z+character+z
bad-seek-typezbad-seek-type?Zbl�contentsz
each-blockzeach-block-sizezeach-block-slicez	each-linezeach-morselzeach-stream-blockzeach-stream-block-slicezeach-stream-linezerror-stream�flushzinput-streamz
input-stream?zinvalid-read-bufferzinvalid-read-buffer?�lines�nlz
output-streamzoutput-stream?�print�readz	read-intozread-partialzread-partial-intoz
read-until�read1Zreadlnz
seek-absolutezseek-absolute?zseek-endz	seek-end?z
seek-inputzseek-outputz
seek-relativezseek-relative?z	stream-blzstream-contentszstream-contents*zstream-copyzstream-copy*zstream-element-typezstream-flushz
stream-lengthzstream-linesz	stream-nlzstream-printzstream-readzstream-read-intozstream-read-partialzstream-read-partial-intozstream-read-partial-unsafezstream-read-unsafezstream-read-untilzstream-read1z
stream-readlnzstream-seekzstream-seekable?zstream-tellzstream-writez
stream-write1z
tell-inputztell-outputzwith-error-streamzwith-error-stream*zwith-error>outputzwith-input-output+error-streamsz with-input-output+error-streams*zwith-input-streamzwith-input-stream*zwith-output-streamzwith-output-stream*zwith-output>errorzwith-output+error-streamzwith-output+error-stream*zwith-streamsz
with-streams*�writeZwrite1)Z1stringz<string>z>stringz
resize-string�stringzstring?)Z1vectorz<vector>z>vectorz?pushZvectorzvector?)(z<condition>z<continuation>z	<restart>zattempt-allzattempt-all-errorzattempt-all-error?zcallback-error-hookZcallcc0Zcallcc1Zcleanupzcompute-restartsZ	conditionz
condition?Zcontinuationz
continuation?�continuezcontinue-restartz
continue-withzcurrent-continuation�errorzerror-continuationzerror-in-threadzerror-threadZifccz
ignore-errorszin-callback?zoriginal-errorZrecoverZrestartzrestart?ZrestartsZrethrowzrethrow-restarts�returnzreturn-continuationzthread-error-hookzthrow-continuezthrow-restartszwith-datastackzwith-returnz#!.*$�basez\s+z&((?:MACRO|MEMO|TYPED)?:[:]?)(\s+)(\S+)z(M:[:]?)(\s+)(\S+)(\s+)(\S+)z(C:)(\s+)(\S+)(\s+)(\S+)z(GENERIC:)(\s+)(\S+)z$(HOOK:|GENERIC#)(\s+)(\S+)(\s+)(\S+)z\(\s�stackeffectz;\sz
(USING:)(\s+)�vocabsz&(USE:|UNUSE:|IN:|QUALIFIED:)(\s+)(\S+)z%(QUALIFIED-WITH:)(\s+)(\S+)(\s+)(\S+)z#(FROM:|EXCLUDE:)(\s+)(\S+)(\s+=>\s)rz,(RENAME:)(\s+)(\S+)(\s+)(\S+)(\s+=>\s+)(\S+)z%(ALIAS:|TYPEDEF:)(\s+)(\S+)(\s+)(\S+)z$(DEFER:|FORGET:|POSTPONE:)(\s+)(\S+)z'(TUPLE:|ERROR:)(\s+)(\S+)(\s+<\s+)(\S+)�slotsz"(TUPLE:|ERROR:|BUILTIN:)(\s+)(\S+)z'(MIXIN:|UNION:|INTERSECTION:)(\s+)(\S+)z$(PREDICATE:)(\s+)(\S+)(\s+<\s+)(\S+)z(INSTANCE:)(\s+)(\S+)(\s+)(\S+)z(SLOT:)(\s+)(\S+)z(SINGLETON:)(\s+)(\S+)zSINGLETONS:�classesz)(CONSTANT:|SYMBOL:|MAIN:|HELP:)(\s+)(\S+)z
SYMBOLS:\sz	SYNTAX:\szALIEN:\sz(STRUCT:)(\s+)(\S+)z.(FUNCTION:)(\s+\S+\s+)(\S+)(\s+\(\s+[^)]+\)\s)z>(FUNCTION-ALIAS:)(\s+)(\S+)(\s+\S+\s+)(\S+)(\s+\(\s+[^)]+\)\s)z(?:<PRIVATE|PRIVATE>)\sz"""\s(?:.|\n)*?\s"""z"(?:\\\\|\\"|[^"])*"z\S+"\s+(?:\\\\|\\"|[^"])*"z%CHAR:\s+(?:\\[\\abfnrstv]|[^\\]\S*)\sz!\s+.*$z#!\s+.*$z/\*\s+(?:.|\n)*?\s\*/\sz[tf]\sz[\\$]\s+\S+zM\\\s+\S+\s+\S+z9[+-]?(?:[\d,]*\d)?\.(?:\d([\d,]*\d)?)?(?:[eE][+-]?\d+)?\sz'[+-]?\d(?:[\d,]*\d)?(?:[eE][+-]?\d+)?\sz<0x[a-fA-F\d](?:[a-fA-F\d,]*[a-fA-F\d])?(?:p\d([\d,]*\d)?)?\szANAN:\s+[a-fA-F\d](?:[a-fA-F\d,]*[a-fA-F\d])?(?:p\d([\d,]*\d)?)?\sz	0b[01]+\sz
0o[0-7]+\sz5(?:\d([\d,]*\d)?)?\+\d(?:[\d,]*\d)?/\d(?:[\d,]*\d)?\sz7(?:\-\d([\d,]*\d)?)?\-\d(?:[\d,]*\d)?/\d(?:[\d,]*\d)?\sz:(?:deprecated|final|foldable|flushable|inline|recursive)\sz\S+z\(\s+z\)\sz#popz--\sz(\{\s+)(\S+)(\s[^}]+\s\}\s))�rootrgrhrjrirkrN)*�__name__�
__module__�__qualname__�name�aliases�	filenamesZ	mimetypes�re�	MULTILINE�UNICODE�flagsrZbuiltin_kernelZbuiltin_assocsZbuiltin_combinatorsZbuiltin_mathZbuiltin_sequencesZbuiltin_namespacesZbuiltin_arraysZ
builtin_ioZbuiltin_stringsZbuiltin_vectorsZbuiltin_continuationsrZPreprocrrrrr	ZFunctionZClass�	Namespacer
ZCharZConstantrZBinZOctZBuiltinZVariable�tokens�ryry�:/usr/lib/python3.9/site-packages/pygments/lexers/factor.pyrs`



����*�,�����
�
�
�
�
�
�
�


�
�
�
�
�
�
�
�
�
�
�
�
�


�




�
�













�









�r





�


��

�

�

���)rsZpygments.lexerrrrrZpygments.tokenrrrr	r
r�__all__rryryryrz�<module>s