a jK@s^dZddlmZmZmZmZddlmZmZm Z m Z m Z m Z m Z mZdgZGdddeZdS)z pygments.lexers.factor ~~~~~~~~~~~~~~~~~~~~~~ Lexers for the Factor language. :copyright: Copyright 2006-present by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. ) RegexLexerbygroupsdefaultwords)TextCommentKeywordNameStringNumber Whitespace Punctuation FactorLexercA@s eZdZdZdZdZdgZdgZdgZdZ e dd d Z e d d d Z e d d d Z e d d d Ze dd d Ze dd d Ze dd d Ze dd d Ze dd d Ze dd d Ze dd d Zdejfedgdefdeeeejfdeeeejeejfdeeeejeejfdeeeejfdeeeejeejfdeejedfdeeefd eejed!fd"eejeejfd#eejeejeejfd$eejeejed%fd&eejeejeejee eej fd'eejeejeejfd(eejeejfd)eeeejee eejd*fd+eeeejd*fd,eeeejfd-eeeejee eejfd.eeeejeejfd/eeeejfd0eeeejfd1ed2fd3eeeejfd4eeed%fd5eeefd6eeefd7eeeejfd8eejee!eejee ee!e e fd9eejee!eejeejee ee!e e fd:eejefd;e"fdee"j#ee"j#efd?efd@efdAefdBej$fdCej$fdDej$fdEe%fdFe%fdGe%fdHe%fdIe%j&fdJe%j'fdKe%fdLe%fdMefe eej(efe eej(efe eej(efeeej(efeeej(efeeej(efeeej(efeeej(efeeej(efeeej(efeeej(efdNe!fg>defdOeejedfdPeejedQfdReejefdNej)fgdefdSeeedQfdTee!eej)ee!ee!efdNej)fgdefdSeeedQfdNejfgdefdSeeedQfdNejfgdefdSeeedQfdNejfgdUZ*dVS)Wrz( Lexer for the Factor language. Factorzhttp://factorcode.orgfactorz*.factorz text/x-factorz1.4)oz-rotZ2biz2bi@z2bi*Z2curryZ2dipZ2dropZ2dupZ2keepZ2nipZ2overZ2triz2tri@z2tri*Z3biZ3curryZ3dipZ3dropZ3dupZ3keepZ3triZ4dipZ4dropZ4dupZ4keepz =z>booleanclone?z?executez?ifandassertzassert=zassert?Zbizbi-curryz bi-curry@z bi-curry*zbi@zbi*boabooleanzboolean?zboth?buildcallZ callstackzcallstack>arrayz callstack?clearz(clone)Zcomposezcompose?curryzcurry?Z datastackZdieZdipdoZdropdupZdupdzeither?zeq?zequal?executeZhashcodez hashcode*zidentity-hashcodezidentity-tuplezidentity-tuple?ifzif*ZkeeploopZmostnewZnipnotnullobjectorZoverpickZpreposeZ retainstackZrotzsame?ZswapZswapdthrowZtriz tri-curryz tri-curry@z tri-curry*ztri@ztri*tupleztuple?Zunlesszunless*Zuntilwhenzwhen*whilewithwrapperzwrapper?xorz(\s+))suffix)@Z2cachezz>alistz?atz?ofZassocz 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-assocZofzpush-atz rename-atzset-atz sift-keysz sift-values substituteZunzipzvalue-atz value-at*zvalue?valueszip)Z2cleavez 2cleave>quotZ3cleavez 3cleave>quotZ4cleavez 4cleave>quotz alist>quotz call-effectcasez case-findz case>quotZcleavez cleave>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>bignumz>fixnumz>floatz>integerz(all-integers?)z(each-integer)z(find-integer)*+z?1+absalignz all-integers?Zbignumzbignum?zbit?ZbitandZbitnotZbitorz bits>doublez bits>floatZbitxorcomplexzcomplex? denominatorz double>bitsz each-integerzeven?z find-integerzfind-last-integerZfixnumzfixnum?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?Zrationalz rational?realz real-partzreal?ZrecipremZsgnshiftsqtimeszuzu>=z unless-zeroz unordered?z when-zerozzero?)Z 1sequencez2all?Z2eachZ2mapz2map-asz 2map-reduceZ2reduceZ 2selectorZ 2sequenceZ3appendz 3append-asZ3eachZ3mapz3map-asZ 3sequenceZ 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-prefixZeachz each-fromz each-indexzempty?Zexchangefilterzfilter!z filter-asfindz find-fromz find-indexzfind-index-fromz find-lastzfind-last-fromfirstZfirst2Zfirst3Zfirst4flipfollowZfourthZglueZhalvesZharvestheadz head-slicez head-slice*zhead*zhead?zif-emptyZ immutablezimmutable-sequencezimmutable-sequence?z immutable?indexz index-fromindicesZinfimumz infimum-byz insert-nth interleaveiotaz iota-tuplez iota-tuple?joinzjoin-aslastz last-indexzlast-index-fromlengthZlengthenZlikeZlongerzlonger?Zlongestmapzmap!zmap-aszmap-findz map-find-lastz map-indexz map-integersz map-reducezmap-sumz max-lengthz member-eq?zmember?z midpoint@z min-lengthZmismatchmoveznew-likez new-resizablez new-sequenceznon-negative-integer-expectedznon-negative-integer-expected?ZnthZnthszpad-headzpad-tailpadding partitionpopzpop*prefixprependz prepend-asZproducez produce-asproductpushzpush-allz push-eitherzpush-ifreducez reduce-indexremovezremove!z remove-eqz remove-eq!z remove-nthz remove-nth!Z repetitionz repetition?z replace-sliceZ 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-thirdshortshortenZshorterzshorter?ZshortestZsiftslicez slice-errorz slice-error?zslice?Zsnipz snip-slicestartzstart*Zsubseqzsubseq?r.zsuffix!sumz sum-lengthsZsupremumz supremum-byZsurroundtailz tail-slicez tail-slice*ztail*ztail?thirdZtrimz trim-headztrim-head-slicez trim-slicez trim-tailztrim-tail-sliceZunclipz unclip-lastzunclip-last-slicez unclip-slicez unless-emptyzvirtual-exemplarzvirtual-sequencezvirtual-sequence?zvirtual@z when-empty)z+@Zchangez change-globalcounterdecgetz get-globalglobalinczinit-namespacesZ initializez is-globalz make-assoc namespaceZ namestackoffonsetz set-globalz set-namestacktogglez with-globalz with-scopez with-variablezwith-variables) Z1arrayZ2arrayZ3arrayZ4arrayzz>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-untilread1Zreadlnz 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*writeZwrite1)Z1stringzz>stringz resize-stringstringzstring?)Z1vectorzz>vectorz?pushZvectorzvector?)(z zz z attempt-allzattempt-all-errorzattempt-all-error?zcallback-error-hookZcallcc0Zcallcc1cleanupzcompute-restarts conditionz condition?Z continuationz continuation?continuezcontinue-restartz continue-withzcurrent-continuationerrorzerror-continuationzerror-in-threadz error-threadZifccz ignore-errorsz in-callback?zoriginal-errorZrecoverZrestartzrestart?ZrestartsZrethrowzrethrow-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[\s\S]*?\s"""z"(?:\\\\|\\"|[^"])*"z (\S+")(\s+)((?:\\\\|\\"|[^"])*")z)(CHAR:)(\s+)(\\[\\abfnrstv]|[^\\]\S*)(\s)z!\s+.*$z#!\s+.*$z/\*\s+[\s\S]*?\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__nameurlaliases filenames mimetypes version_addedrZbuiltin_kernelZbuiltin_assocsZbuiltin_combinatorsZ builtin_mathZbuiltin_sequencesZbuiltin_namespacesZbuiltin_arraysZ builtin_ioZbuiltin_stringsZbuiltin_vectorsZbuiltin_continuationsrPreprocrr rrr FunctionClass Namespacer rr CharConstantr BinOctBuiltinVariabletokensrrs (