o azL@sfdZddlZddlmZmZmZmZddlmZm Z m Z m Z m Z m Z mZmZdgZGdddeZdS)z pygments.lexers.factor ~~~~~~~~~~~~~~~~~~~~~~ Lexers for the Factor language. :copyright: Copyright 2006-2021 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. N) RegexLexerbygroupsdefaultwords)TextCommentKeywordNameStringNumber Whitespace Punctuation FactorLexerc@seZdZdZdZdgZdgZdgZej ej BZ e dddZ e d ddZe d ddZe d ddZe d ddZe d ddZe dddZe dddZe dddZe dddZe dddZdejfedggdefdeeeejfdeeeej eejfdeeeejeej fdeeeejfdeeeejeejfdeejedfdeeefdeej!edfd eej!eej!fd!eej!eej!eej!fd"eej!eej!ed#fd$eej!eejeej!ee"eej fd%eej!eejeejfd&eej!eejfd'eeeej ee"eej d(fd)eeeej d(fd*eeeej fd+eeeej ee"eej fdeeeejeej fd,eeeej eej fd-eeeejfd.eeeej fd/ed0fd1eeeejfd2eeed#fd3eeefd4eeefd5eeeej fd6eej!ee#eejee"ee#e"e fd7eej!ee#eejeejee"ee#e"e fd8eej!efd9e$fd:e$fd;ee$ee$fdefd?efd@ej&fdAej&fdBej&fdCe'fdDe'fdEe'fdFe'fdGe'j(fdHe'j)fdIe'fdJe'fdKefe eej*efeeej*efeeej*efeeej*efeeej*efeeej*efeeej*efeeej*efeeej*efeeej*efeeej*efdLe#fdefdMeejedfdNeejedOfdPeejefdLej+fgdefdQeeedOfdRee#eej+ee#ee#efdLej+fgdefdQeeedOfdLej!fgdefdQeeedOfdLej fgdefdQeeedOfdLejfgdSZ,dTS)Urz^ Lexer for the `Factor `_ language. .. versionadded:: 1.4 Factorfactorz*.factorz text/x-factor)oz-rot2biz2bi@z2bi*2curry2dip2drop2dup2keep2nip2over2triz2tri@z2tri*3bi3curry3dip3drop3dup3keep3tri4dip4drop4dup4keepz =z>booleanclone?z?executez?ifandassertzassert=zassert?bizbi-curryz bi-curry@z bi-curry*zbi@zbi*boabooleanzboolean?zboth?buildcall callstackzcallstack>arrayz callstack?clearz(clone)composezcompose?curryzcurry? datastackdiedipdodropdupdupdzeither?zeq?zequal?executehashcodez hashcode*zidentity-hashcodezidentity-tuplezidentity-tuple?ifzif*keeploopmostnewnipnotnullobjectoroverpickprepose retainstackrotzsame?swapswapdthrowtriz tri-curryz tri-curry@z tri-curry*ztri@ztri*tupleztuple?unlesszunless*untilwhenzwhen*whilewithwrapperzwrapper?xorz(\s+))suffix)@2cachezz>alistz?atz?ofassocz assoc-all?z assoc-any?zassoc-clone-likez assoc-combinez assoc-diffz assoc-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-sizez assoc-stackz assoc-subset?z assoc-unionz assoc-union!zassoc=z assoc>mapzassoc?atzat+zat*cachez change-atz clear-assocz delete-atz delete-at*enumzenum?z extract-keyszinc-atzkey?keysz map>assocz maybe-set-atz new-assocofzpush-atz rename-atzset-atz sift-keysz sift-values substituteunzipzvalue-atz value-at*zvalue?valueszip)2cleavez 2cleave>quot3cleavez 3cleave>quot4cleavez 4cleave>quotz alist>quotz call-effectcasez case-findz case>quotcleavez cleave>quotcondz cond>quotzdeep-spread>quotzexecute-effectzlinear-case-quotzno-casezno-case?zno-condzno-cond?zrecursive-hashcodezshallow-spread>quotspreadzto-fixed-pointz wrong-valuesz wrong-values?)c-/z/fz/iz/modz2/z2^>z>=z>bignumz>fixnumz>floatz>integerz(all-integers?)z(each-integer)z(find-integer)*+z?1+absalignz all-integers?bignumzbignum?zbit?bitandbitnotbitorz bits>doublez bits>floatbitxorcomplexzcomplex? denominatorz double>bitsz each-integerzeven?z find-integerzfind-last-integerfixnumzfixnum?floatz float>bitszfloat?z fp-bitwise=z fp-infinity?zfp-nan-payloadzfp-nan?zfp-qnan?zfp-signzfp-snan?z fp-special?zif-zerozimaginary-partintegerzinteger>fixnumzinteger>fixnum-strictzinteger?log2zlog2-expects-positivezlog2-expects-positive?modnegzneg?z next-floatznext-power-of-2numberznumber=znumber? numeratorzodd?zout-of-fixnum-rangezout-of-fixnum-range?z power-of-2?z prev-floatratiozratio?rationalz rational?realz real-partzreal?recipremsgnshiftsqtimeszuzu>=z unless-zeroz unordered?z when-zerozzero?) 1sequencez2all?2each2mapz2map-asz 2map-reduce2reduce 2selector 2sequence3appendz 3append-as3each3mapz3map-as 3sequence 4sequencez z zz?firstz?lastz?nthz?secondz?set-nth accumulatez accumulate!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-nthz check-slicezcheck-slice-errorz clone-likezcollapse-slice collectorz collector-forconcatz concat-ascopycountcutz cut-slicezcut*z delete-allz delete-slicez drop-prefixeachz each-fromz each-indexzempty?exchangefilterzfilter!z filter-asfindz find-fromz find-indexzfind-index-fromz find-lastzfind-last-fromfirstfirst2first3first4flipfollowfourthgluehalvesharvestheadz head-slicez head-slice*zhead*zhead?zif-empty immutablezimmutable-sequencezimmutable-sequence?z immutable?indexz index-fromindicesinfimumz infimum-byz insert-nth interleaveiotaz iota-tuplez iota-tuple?joinzjoin-aslastz last-indexzlast-index-fromlengthlengthenlikelongerzlonger?longestmapzmap!zmap-aszmap-findz map-find-lastz map-indexz map-integersz map-reducezmap-sumz max-lengthz member-eq?zmember?z midpoint@z min-lengthmismatchmoveznew-likez new-resizablez new-sequenceznon-negative-integer-expectedznon-negative-integer-expected?nthnthszpad-headzpad-tailpadding partitionpopzpop*prefixprependz prepend-asproducez produce-asproductpushzpush-allz push-eitherzpush-ifreducez reduce-indexremovezremove!z remove-eqz remove-eq!z remove-nthz remove-nth! repetitionz repetition?z replace-slice replicatez replicate-asrestz rest-slicereversezreverse!reversedz reversed?secondselectorz selector-forsequencezsequence-hashcodez sequence=z sequence?z set-firstz set-fourthzset-lastz set-lengthzset-nthz set-secondz set-thirdshortshortenshorterzshorter?shortestsiftslicez slice-errorz slice-error?zslice?snipz snip-slicestartzstart*subseqzsubseq?rWzsuffix!sumz sum-lengthssupremumz supremum-bysurroundtailz tail-slicez tail-slice*ztail*ztail?thirdtrimz trim-headztrim-head-slicez trim-slicez trim-tailztrim-tail-sliceunclipz unclip-lastzunclip-last-slicez unclip-slicez unless-emptyzvirtual-exemplarzvirtual-sequencezvirtual-sequence?zvirtual@z when-empty)z+@changez change-globalcounterdecgetz get-globalglobalinczinit-namespaces initializez is-globalz make-assoc namespace namestackoffonsetz set-globalz set-namestacktogglez with-globalz with-scopez with-variablezwith-variables) 1array2array3array4arrayzz>arrayarrayzarray?pairzpair?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?blcontentsz each-blockzeach-block-sizezeach-block-slicez each-linez each-morselzeach-stream-blockzeach-stream-block-slicezeach-stream-linez error-streamflushz input-streamz input-stream?zinvalid-read-bufferzinvalid-read-buffer?linesnlz output-streamzoutput-stream?printreadz read-intoz read-partialzread-partial-intoz read-untilread1readlnz seek-absolutezseek-absolute?zseek-endz seek-end?z seek-inputz seek-outputz seek-relativezseek-relative?z stream-blzstream-contentszstream-contents*z stream-copyz stream-copy*zstream-element-typez stream-flushz stream-lengthz stream-linesz stream-nlz stream-printz stream-readzstream-read-intozstream-read-partialzstream-read-partial-intozstream-read-partial-unsafezstream-read-unsafezstream-read-untilz stream-read1z stream-readlnz stream-seekzstream-seekable?z stream-tellz stream-writez stream-write1z tell-inputz tell-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*writewrite1)1stringzz>stringz resize-stringstringzstring?)1vectorzz>vectorz?pushvectorzvector?)(z zz z attempt-allzattempt-all-errorzattempt-all-error?zcallback-error-hookcallcc0callcc1cleanupzcompute-restarts conditionz condition? continuationz continuation?continuezcontinue-restartz continue-withzcurrent-continuationerrorzerror-continuationzerror-in-threadz error-threadifccz ignore-errorsz in-callback?zoriginal-errorrecoverrestartzrestart?restartsrethrowzrethrow-restartsreturnzreturn-continuationzthread-error-hookzthrow-continuezthrow-restartszwith-datastackz with-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(;)(\s)z (USING:)(\s+)vocabsz&(USE:|UNUSE:|IN:|QUALIFIED:)(\s+)(\S+)z%(QUALIFIED-WITH:)(\s+)(\S+)(\s+)(\S+)z#(FROM:|EXCLUDE:)(\s+)(\S+)(\s+=>\s)rz0(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+)z SINGLETONS:classesz)(CONSTANT:|SYMBOL:|MAIN:|HELP:)(\s+)(\S+)z(SYMBOLS:)(\s+)z(SYNTAX:)(\s+)z (ALIEN:)(\s+)z(STRUCT:)(\s+)(\S+)z<(FUNCTION:)(\s+)(\S+)(\s+)(\S+)(\s+)(\()(\s+)([^)]+)(\))(\s)zL(FUNCTION-ALIAS:)(\s+)(\S+)(\s+)(\S+)(\s+)(\S+)(\s+)(\()(\s+)([^)]+)(\))(\s)z()(\s)z"""\s(?:.|\n)*?\s"""z"(?:\\\\|\\"|[^"])*"z (\S+")(\s+)((?:\\\\|\\"|[^"])*")z)(CHAR:)(\s+)(\\[\\abfnrstv]|[^\\]\S*)(\s)z!\s+.*$z#!\s+.*$z/\*\s+(?:.|\n)*?\s\*/z[tf]\bz [\\$]\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 (\))(\s+)z#popz (--)(\s+)z(;)(\s+)z((\{)(\s+)(\S+)(\s+)([^}]+)(\s+)(\})(\s+))rootrrrrrrN)-__name__ __module__ __qualname____doc__namealiases filenames mimetypesre MULTILINEUNICODEflagsrbuiltin_kernelbuiltin_assocsbuiltin_combinators builtin_mathbuiltin_sequencesbuiltin_namespacesbuiltin_arrays builtin_iobuiltin_stringsbuiltin_vectorsbuiltin_continuationsrPreprocrr rrr FunctionClass Namespacer rr CharConstantr BinOctBuiltinVariabletokensr6r68/usr/lib/python3/dist-packages/pygments/lexers/factor.pyrs8  *,           #&*-/ 1 4689:= ? @ ABC  I  SVWX Z^_`cfgjklmnopqtxyz{|}~    )rrpygments.lexerrrrrpygments.tokenrrrr r r r r __all__rr6r6r6r7s  (