File: //usr/lib/python3/dist-packages/pygments/lexers/__pycache__/lisp.cpython-38.pyc
U
G�
\�0 �
@ s d Z ddlZddlmZmZmZmZmZ ddlm Z m
Z
m Z m Z m
Z
mZmZmZmZmZ ddlmZ dddd d
d d d
ddg
ZG dd� de�ZG dd� de�ZG dd� de�ZG dd � d e�ZG dd
� d
e�ZG dd � d e�ZG dd � d e�Z G dd
� d
e�Z G dd� de�Z G dd� de�Z dS )z�
pygments.lexers.lisp
~~~~~~~~~~~~~~~~~~~~
Lexers for Lispy languages.
:copyright: Copyright 2006-2017 by the Pygments team, see AUTHORS.
:license: BSD, see LICENSE for details.
� N)�
RegexLexer�include�bygroups�words�default)
�Text�Comment�Operator�Keyword�Name�String�Number� Punctuation�Literal�Error)� PythonLexer� SchemeLexer�CommonLispLexer�HyLexer� RacketLexer� NewLispLexer�EmacsLispLexer� ShenLexer� CPSALexer� XtlangLexer� FennelLexerc @ sJ e Zd ZdZdZddgZddgZddgZd Zd
Z d Z
d e j fd
e j
dfde dfde fdefdejfdejfdefde
ejfdejfdejfdefdd�d d � eD �� efd e
ejfd e
ejfd d�d!d � e D �� ejfd"e
ej fe
ejfd#e fd$e fgd
e j
d%fd&e j
d'fd(e j
fd)e j
fgd*e d%fd+e d'fd,e fgd-�Z d.S )/r a�
A Scheme lexer, parsing a stream and outputting the tokens
needed to highlight scheme code.
This lexer could be most probably easily subclassed to parse
other LISP-Dialects like Common Lisp, Emacs Lisp or AutoLisp.
This parser is checked with pastes from the LISP pastebin
at http://paste.lisp.org/ to cover as much syntax as possible.
It supports the full Scheme syntax as defined in R5RS.
.. versionadded:: 0.6
ZScheme�schemeZscmz*.scmz*.ssz
text/x-schemezapplication/x-scheme)�lambda�define�if�else�cond�and�or�case�let�let*�letrec�begin�do�delay�set!�=>�quote�
quasiquote�unquote�unquote-splicing�
define-syntax�
let-syntax�
letrec-syntax� syntax-rules)��*�+�-�/�<�<=�=�>�>=�abs�acos�angle�append�apply�asin�assoc�assq�assv�atan�boolean?�caaaar�caaadr�caaar�caadar�caaddr�caadr�caar�cadaar�cadadr�cadar�caddar�cadddr�caddr�cadr� call-with-current-continuation�call-with-input-file�call-with-output-file�call-with-values�call/cc�car�cdaaar�cdaadr�cdaar�cdadar�cdaddr�cdadr�cdar�cddaar�cddadr�cddar�cdddar�cddddr�cdddr�cddr�cdr�ceiling�
char->integer�char-alphabetic?�
char-ci<=?� char-ci<?� char-ci=?�
char-ci>=?� char-ci>?�
char-downcase�char-lower-case?�
char-numeric?� char-ready?� char-upcase�char-upper-case?�char-whitespace?�char<=?�char<?�char=?�char>=?�char>?�char?�close-input-port�close-output-port�complex?�cons�cos�current-input-port�current-output-port� denominator�display� dynamic-wind� eof-object?�eq?�equal?�eqv?�eval�even?�exact->inexact�exact?�exp�expt�floor�for-each�force�gcd� imag-part�inexact->exact�inexact?� input-port?�
integer->char�integer?�interaction-environment�lcm�length�list� list->string� list->vector�list-ref� list-tail�list?�load�log� magnitude�
make-polar�make-rectangular� make-string� make-vector�map�max�member�memq�memv�min�modulo� negative?�newline�not�null-environment�null?�number->string�number?� numerator�odd?�open-input-file�open-output-file� output-port?�pair?� peek-char�port?� positive?�
procedure?�quotient� rational?� rationalize�read� read-char� real-part�real?� remainder�reverse�round�scheme-report-environment�set-car!�set-cdr!�sin�sqrt�string� string->list�string->number�string->symbol�
string-append� string-ci<=?� string-ci<?� string-ci=?� string-ci>=?� string-ci>?� string-copy� string-fill!�
string-length�
string-ref� string-set!� string<=?�string<?�string=?� string>=?�string>?�string?� substring�symbol->string�symbol?�tan�transcript-off�
transcript-on�truncate�values�vector� vector->list� vector-fill!�
vector-length�
vector-ref� vector-set!�vector?�with-input-from-file�with-output-to-file�write�
write-char�zero?�[\w!$%&*+,/:<=>?@^~|-]+�;.*$�#\|�multiline-commentz#;\s*\(�commented-formz#!r6rs�\s+�
-?\d+\.\d+�-?\d+�"(\\\\|\\"|[^"])*"�'�' #\\([()/'\"._!§$%& ?=+-]|[a-zA-Z0-9]+)�(#t|#f)�('|#|`|,@|,|\.)z(%s)�|c c s | ]}t �|�d V qdS �� N��re�escape��.0�entry� r �6/usr/lib/python3/dist-packages/pygments/lexers/lisp.py� <genexpr>� s zSchemeLexer.<genexpr>�(?<='\()�(?<=#\()z (?<=\()(%s)c c s | ]}t �|�d V qdS r
r r r r r r � s �(?<=\()�(\(|\))�(\[|\])�#push�\|#�#pop�[^|#]+�[|#]�\(�\)�[^()]+)�rootr r N) �__name__�
__module__� __qualname__�__doc__�name�aliases� filenames� mimetypes�keywords�builtins�
valid_namer �Single� Multiliner r
�Float�Integerr �Symbol�Charr �Constantr �joinr
�Variable�Builtin�Functionr �tokensr r r r r sV
,
� � �8
���c , @ s2 e Zd ZdZdZdddgZddgZdgZej ej
B Z d Z e d
Z
d Zd e e
f Zd
d� Zdd� Zed�gdejdfdejdfdejfdejfgdejdfdejdfdejfgdefd ejfdejd fd ejfd efd e ejfd!e ejfd"e ejfd#e ejfd#efd$efd%e e j fd&e e fd'e e j fd(e ej fd)e ej fd*edfd+e j!fd,e ejfd-efd.e"j#fd/e j$fd0e j%fd1e j&fd2e fd3e'e e(�dfd4e'e j!e(�dfd5e'e j!e(�dfd6e j!fd7efd8efd9e d: ejd;fd<efd=efd>e e"j)fd?e d? e"j*j+fee"j*fde(dfde(dfg'd@�Z,dAS )Br z9
A Common Lisp lexer.
.. versionadded:: 0.9
z Common Lispz common-lispZclZlispz*.clz*.lispztext/x-common-lispz \\.|[\w!$%&*+-/<=>?@\[\]^{}~]�|[#.:]z(?=[ "()\'\n,;`])z(\|[^|]+\||(?:%s)(?:%s)*)c K s` ddl m}m}m}m}m}m}m} || _|| _ || _
|| _ || _ || _
|| _tj| f|� d S )Nr )�BUILTIN_FUNCTIONS�
SPECIAL_FORMS�MACROS�LAMBDA_LIST_KEYWORDS� DECLARATIONS�
BUILTIN_TYPES�BUILTIN_CLASSES)Z pygments.lexers._cl_builtinsr> r? r@ rA rB rC rD �builtin_function�
special_forms�macros�lambda_list_keywords� declarations�
builtin_types�builtin_classesr �__init__) �selfZoptionsr> r? r@ rA rB rC rD r r r rL � s $zCommonLispLexer.__init__c c s� dg}t �| ||�D ]�\}}}|tjkr�|| jkrB|tj|fV q|| jkrZ|t|fV q|| jkrt|tj|fV q|| j kr�|t|fV q|| j
kr�|t|fV q|| j kr�|tj |fV q|| j
kr�|tj|fV q|||fV qd S �Nr% )r �get_tokens_unprocessedr r9 rE r: rF r
rG rH rI rJ �TyperK �Class�rM �text�stack�index�token�valuer r r rO � s2
z&CommonLispLexer.get_tokens_unprocessed�bodyr r r r r r! r" r# r$ r r r z#\d*Y.*$z"(\\.|\\\n|[^"\\])*"�:�::z:#r �`� [-+]?\d+\.?� [-+]?\d+/\d+�<[-+]?(\d*\.\d+([defls][-+]?\d+)?|\d+(\.\d*)?[defls][-+]?\d+)z#\\.z#\\�#\(z #\d*\*[01]*�#:z#[.,]�#\'z#b[+-]?[01]+(/[01]+)?z#o[+-]?[0-7]+(/[0-7]+)?z #x[+-]?[0-9a-f]+(/[0-9a-f]+)?z #\d+r[+-]?[0-9a-z]+(/[0-9a-z]+)?z(#c)(\()z (#\d+a)(\()z(#s)(\()z#p?"(\\.|[^"])*"�#\d+=�#\d+#z#+nilz\s*\(r z#[+-]z (,@|,|\.)�(t|nil)�\*)r% r r rX N)-r& r' r( r) r* r+ r, r- r �
IGNORECASE� MULTILINE�flags�nonmacro� constituent�
terminated�symbolrL rO r r r2 �Preprocr r1 �Specialr r5 r r
r4 r3 r6 r ZOtherr r; �Bin�Oct�Hexr r r7 r9 �Globalr< r r r r r � s�
�
�
�
�� ��c @ s6 e Zd ZdZdZdgZdgZddgZdZdZ d Z
d
Z e
e Z d Z
d d
� Zdejfdefdejfdejfdejfdejfdefde
ejfdejfdeeej�fdeeej�fde
ejfde fe d�e d �ee�e fee �e j fee �e j!fd e
e j"fe
e j#fd e$fd e$fd e$fge%j&d! e%j&d" d#�Z&d$d%� Z'd&S )'r zV
Lexer for `Hy <http://hylang.org/>`_ source code.
.. versionadded:: 2.0
ZHyZhylangz*.hyz text/x-hyzapplication/x-hy)%r! �for�->�->>r\ rk �first�restr% �when�unless�importr) �progn�get�slicerD zwith-decorator�,Z list_compZkwapply�~�is�inzis-notznot-inr. r/ zunquote-splicer- r z<<=z>>=Zforeach�while�eval-and-compile�eval-when-compile)�def�defn�defun�defmacro�defclassr �fnZsetvr )�cycle�decZdistinct�dropr� �filter�incz instance?z iterable?Ziteratez iterator?zneg?znone?�nthznumeric?r� zpos?�remove�repeatZ
repeatedly�takeZtake_nthZ
take_whiler� z(?!#)[\w!$%*+<=>?/.#-:]+c C s t | dd�S )Nr ��suffix)r )�entriesr r r �
_multi_escape� s zHyLexer._multi_escaper �[,\s]+r r z 0[0-7]+j?z0[xX][a-fA-F0-9]+r r z \\(.|[a-z]+)z"^(\s*)([rRuU]{,2}"""(?:.|\n)*?""")z"^(\s*)([rRuU]{,2}'''(?:.|\n)*?''')z::?z
~@|[`\'#^~&@]� py-keywords� py-builtinsr r �(\{|\})r r. r/ )r% r� r� c C s d| ksd| krdS d S )Nz(import z(defn g�������?r )rS r r r � analyse_text� s zHyLexer.analyse_textN)(r& r' r( r) r* r+ r, r- rF rI Z hy_builtinsZhy_corer/ r0 r� r r1 r r
r3 r4 rp rq r r5 r6 r ZDocr r r
� Declarationr r: r; r9 r r r< r� r r r r r Z sP
�;�@c @ s e Zd ZdZdZddgZdddgZdd gZd
Zd Z d Z
d
Z dZ de Z
dZdZdZde Zdeef Zdeef ZdZdeef Zdeef Ze efdedfgdefdejfd ejd fd efd ee f e j d fd!ee f e j d fd"eeeee f e d fd#eeeeee f e j d fd$ee f e j d fd%e
e j d fd&e
e j d fd'e
e j!d fd(e
e j d fd)e"j#d*fd+e"j$d fd,e"j%d fd-e"j%d fd.e"j&d fd/e'j(d fd0e
e)j*d fd1e+e)j,e'j,�fd2e)j,d3fd4e e-fd5e
e-d6fgd7e-fe
e"j.d fd8efe/d �ge e0d fge1d9�d:e e)d6fd;e-d<fd=e e)d<fe
e0d>fe2ed?d@e dA�e)d fe2e d?d@e dA�e'j3d fe
e'd fe1dB�g e1dC�dedfge1d9�dDe-dEfdFe e)dEfe
e0dGfe1dB�ge1dC�dedHfge1d9�e
e0dIfe1dB�ge1dC�ded3fgd ejdJfdKejd fdLejfgdMe"j#d fdNe"j4fdOe"j#fgdP� Z5dQS )Rr z�
Lexer for `Racket <http://racket-lang.org/>`_ source code (formerly
known as PLT Scheme).
.. versionadded:: 1.6
ZRacketZracketZrktz*.rktz*.rktdz*.rktlz
text/x-racketzapplication/x-racket(~ z#%appz#%datumz #%declarez #%expressionz#%module-beginz #%plain-appz#%plain-lambdaz#%plain-module-beginz#%printing-module-beginz #%providez #%requirez#%stratified-bodyz#%topz#%top-interactionz#%variable-referencert z->*z->*mz->dz->dmz->iz->m�...z:do-in�==r, �_ZabsentZabstractzall-defined-outz all-from-outr" �anyZaugmentzaugment*z
augment-finalzaugment-final*Zaugridezaugride*r( zbegin-for-syntaxZbegin0r$ zcase->zcase->mz case-lambda�classzclass*zclass-field-accessorzclass-field-mutatorzclass/cz
class/derivedz
combine-inz combine-outz command-linez
compound-unitzcompound-unit/inferr! zcons/dcZcontractz contract-outzcontract-structZ
contractedr zdefine-compound-unitzdefine-compound-unit/inferzdefine-contract-structzdefine-custom-hash-typeszdefine-custom-set-typeszdefine-for-syntaxzdefine-local-member-namez
define-loggerzdefine-match-expanderzdefine-member-namez define-module-boundary-contractzdefine-namespace-anchorz define-opt/czdefine-sequence-syntaxzdefine-serializable-classzdefine-serializable-class*zdefine-signaturezdefine-signature-formz
define-structzdefine-struct/contractzdefine-struct/derivedr1 zdefine-syntax-rulezdefine-syntaxesz define-unitzdefine-unit-bindingzdefine-unit-from-contextzdefine-unit/contractz define-unit/new-import-exportz
define-unit/sz
define-valueszdefine-values-for-exportzdefine-values-for-syntaxzdefine-values/invoke-unitz define-values/invoke-unit/inferzdefine/augmentzdefine/augment-finalzdefine/augridezdefine/contractzdefine/final-propz define/matchzdefine/overmentzdefine/overridezdefine/override-finalzdefine/privatez
define/publiczdefine/public-finalzdefine/pubmentz define/subexpression-pos-propz"define/subexpression-pos-prop/namer* z
delay/idlez
delay/namez delay/strictz
delay/syncz delay/threadr) r �exceptz except-inz
except-outZexportZextendsz failure-cont�falsezfalse/cZfieldz field-bound?�filezflat-murec-contractzflat-rec-contractrs zfor*zfor*/andz
for*/asyncz
for*/firstz for*/foldzfor*/fold/derivedz for*/hashz for*/hasheqz for*/hasheqvz for*/lastz for*/listz
for*/listszfor*/mutable-setzfor*/mutable-seteqzfor*/mutable-seteqvzfor*/orz for*/productzfor*/setz
for*/seteqz for*/seteqvz for*/streamzfor*/sumz for*/vectorz
for*/weak-setzfor*/weak-seteqzfor*/weak-seteqvz for-labelzfor-metaz
for-syntaxz for-templatezfor/andz for/asyncz for/firstzfor/foldzfor/fold/derivedzfor/hashz
for/hasheqz for/hasheqvzfor/lastzfor/listz for/listszfor/mutable-setzfor/mutable-seteqzfor/mutable-seteqvzfor/orz for/productzfor/setz for/seteqz
for/seteqvz
for/streamzfor/sumz
for/vectorz for/weak-setzfor/weak-seteqzfor/weak-seteqvzgen:custom-writezgen:dictzgen:equal+hashzgen:setz
gen:streamZgenericz get-fieldzhash/dcr Zimpliesrz r zinclude-at/relative-toz include-at/relative-to/readerzinclude/readerZinheritz
inherit-fieldz
inherit/innerz
inherit/superZinitz init-dependz
init-fieldz init-rest�inner�inspectZ instantiateZ interfacez
interface*zinvariant-assertionz invoke-unitzinvoke-unit/inferr Zlazyr% r& z let*-valuesr2 z let-syntaxesz
let-valueszlet/cczlet/ecr' r3 zletrec-syntaxeszletrec-syntaxes+valuesz
letrec-values�lib�link�localz
local-requirez log-debugz log-errorz log-fatalzlog-infoz log-warning�matchzmatch*zmatch*/derivedz match-definezmatch-define-valuesz match-lambdaz
match-lambda*zmatch-lambda**z match-letz
match-let*zmatch-let*-valueszmatch-let-valuesz match-letreczmatch-letrec-valuesz
match/derivedz match/valueszmember-name-keyZmixin�modulezmodule*zmodule+Znand�newZnorzobject-contractzobject/cZonlyzonly-inz only-meta-in�openzopt/cr# Zovermentz overment*�overridez override*zoverride-finalzoverride-final*Z parameterizez
parameterize*zparameterize-breakzparametric->/cZplacezplace*z
place/contextZplanet�prefixz prefix-inz
prefix-outZprivatezprivate*z prompt-tag/cz protect-out�providezprovide-signature-elementszprovide/contractZpubliczpublic*z public-finalz
public-final*Zpubmentzpubment*r. Z quasisyntaxzquasisyntax/locr- z quote-syntaxzquote-syntax/prunezrecontract-outzrecursive-contractz relative-in�renamez rename-inz rename-innerz
rename-outz rename-super�require�sendzsend*zsend+z send-genericz
send/applyzsend/keyword-applyr+ z set!-valuesz
set-field!Zshared�streamzstream*z stream-consZstructzstruct*z struct-copyzstruct-field-indexz
struct-outzstruct/cz
struct/ctcz struct/dcZsubmod�superzsuper-instantiatezsuper-make-objectz super-newZsyntaxz syntax-casez syntax-case*zsyntax-id-rulesr4 z
syntax/loc�tag�thiszthis%Zthunkzthunk*�timezunconstrained-domain->Zunitzunit-from-contextzunit/czunit/new-import-exportzunit/sry r/ r0 Zunsyntaxzunsyntax-splicingz values/droprx zwith-continuation-markz
with-contractz with-contract-continuation-markz
with-handlerszwith-handlers*z with-methodz with-syntax� λ(� r5 z*list/cr6 r7 r8 r9 z</cr: z<=/cr; z=/cr< z>/cr= z>=/czabort-current-continuationr> zabsolute-path?r? z add-betweenZadd1z alarm-evtz
always-evtzand/cZandmapr@ zany/crA zappend*z
append-maprB ZargmaxZargminzarithmetic-shiftzarity-at-leastzarity-at-least-valuezarity-at-least?zarity-checking-wrapperzarity-includes?zarity=?zarrow-contract-infoz#arrow-contract-info-accepts-arglistz'arrow-contract-info-chaperone-procedurez%arrow-contract-info-check-first-orderzarrow-contract-info?rC ZassfrD rE rF rG zbad-number-of-resultsZbannerz
base->-doms/cz
base->-rngs/czbase->?z between/cz bitwise-andzbitwise-bit-fieldzbitwise-bit-set?z bitwise-iorz bitwise-notz bitwise-xorzblame-add-car-contextzblame-add-cdr-contextzblame-add-contextzblame-add-missing-partyzblame-add-nth-arg-contextzblame-add-range-contextzblame-add-unknown-contextz
blame-contextzblame-contractzblame-fmt->-stringzblame-missing-party?zblame-negativezblame-original?zblame-positivezblame-replace-negativez blame-sourcez
blame-swapzblame-swapped?z blame-updatez blame-valuezblame?z boolean=?rH zbound-identifier=?Zboxzbox-cas!z
box-immutablezbox-immutable/czbox/czbox?z
break-enabledzbreak-parameterization?z break-threadz!build-chaperone-contract-propertyzbuild-compound-type-namezbuild-contract-propertyz build-flat-contract-propertyz
build-listz
build-pathzbuild-path/convention-typez build-stringz build-vectorz byte-pregexpz
byte-pregexp?z byte-ready?z byte-regexpz byte-regexp?zbyte?�byteszbytes->immutable-bytesz bytes->listz bytes->pathzbytes->path-elementzbytes->string/latin-1zbytes->string/localezbytes->string/utf-8z bytes-appendz
bytes-append*zbytes-close-converterz
bytes-convertzbytes-convert-endzbytes-converter?z
bytes-copyz bytes-copy!z bytes-environment-variable-name?z bytes-fill!z
bytes-joinz bytes-lengthzbytes-no-nuls?zbytes-open-converterz bytes-refz
bytes-set!zbytes-utf-8-indexzbytes-utf-8-lengthzbytes-utf-8-refzbytes<?zbytes=?zbytes>?zbytes?rI rJ rK rL rM rN rO rP rQ rR rS rT rU rV zcall-in-nested-threadz call-with-atomic-output-filez call-with-break-parameterizationz!call-with-composable-continuationz call-with-continuation-barrierz call-with-continuation-promptrW z*call-with-default-reading-parameterizationz call-with-escape-continuationzcall-with-exception-handlerzcall-with-file-lock/timeoutz%call-with-immediate-continuation-markzcall-with-input-bytesrX zcall-with-input-file*zcall-with-input-stringzcall-with-output-bytesrY zcall-with-output-file*zcall-with-output-stringzcall-with-parameterizationzcall-with-semaphorez call-with-semaphore/enable-breakrZ r[ zcall/ecr\ zcartesian-productr] r^ r_ r` ra rb rc rd re rf rg rh ri rj rk rl z channel-getz channel-putzchannel-put-evtzchannel-put-evt?zchannel-try-getz channel/czchannel?z
chaperone-boxzchaperone-channelz chaperone-continuation-mark-keyz chaperone-contract-property?zchaperone-contract?z
chaperone-evtzchaperone-hashzchaperone-hash-setz
chaperone-of?zchaperone-procedurezchaperone-procedure*zchaperone-prompt-tagzchaperone-structzchaperone-struct-typezchaperone-vectorz
chaperone?rm rn z char-blank?ro rp rq rr rs rt z
char-foldcasezchar-general-categoryz
char-graphic?zchar-inz char-in/czchar-iso-control?ru rv zchar-punctuation?rw zchar-symbolic?zchar-title-case?zchar-titlecaserx ry zchar-utf-8-lengthrz r{ r| r} r~ r r� zcheck-duplicate-identifierzcheck-duplicatesz#checked-procedure-check-and-extractz
choice-evtzclass->interfacez
class-infoz
class-sealz class-unsealzclass?z cleanse-pathr� r� zcoerce-chaperone-contractzcoerce-chaperone-contractszcoerce-contractzcoerce-contract/fzcoerce-contractszcoerce-flat-contractzcoerce-flat-contractszcollect-garbagezcollection-file-pathzcollection-path� combinations�compilez compile-allow-set!-undefinedz$compile-context-preservation-enabledz compile-enforce-module-constantszcompile-syntaxz compiled-expression-recompilezcompiled-expression?zcompiled-module-expression?zcomplete-path?r� ZcomposeZcompose1Zconjoin� conjugater� zcons/c�cons?Zconstzcontinuation-mark-key/czcontinuation-mark-key?z continuation-mark-set->contextzcontinuation-mark-set->listz continuation-mark-set->list*zcontinuation-mark-set-firstzcontinuation-mark-set?zcontinuation-marksz continuation-prompt-available?zcontinuation-prompt-tag?z
continuation?z contract-continuation-mark-keyz#contract-custom-write-property-proczcontract-exercisezcontract-first-orderz contract-first-order-passes?z contract-late-neg-projectionz
contract-namez
contract-proczcontract-projectionzcontract-property?zcontract-random-generatez contract-random-generate-failz contract-random-generate-fail?z0contract-random-generate-get-current-environmentz contract-random-generate-stashz contract-random-generate/choosezcontract-stronger?zcontract-struct-exercisezcontract-struct-generatez#contract-struct-late-neg-projectionz contract-struct-list-contract?z contract-val-first-projectionz contract?zconvert-streamzcopy-directory/files� copy-filez copy-portr� �cosh�countzcurrent-blame-formatz current-break-parameterizationzcurrent-code-inspectorz current-command-line-argumentszcurrent-compilezcurrent-compiled-file-rootszcurrent-continuation-markszcurrent-contract-regionzcurrent-custodianzcurrent-directoryzcurrent-directory-for-userz
current-drivez current-environment-variableszcurrent-error-portz current-evalz#current-evt-pseudo-random-generatorz current-force-delete-permissionszcurrent-futurezcurrent-gc-millisecondsz"current-get-interaction-input-portz current-inexact-millisecondsr� zcurrent-inspectorz current-library-collection-linksz current-library-collection-pathsz current-loadzcurrent-load-extensionz current-load-relative-directoryzcurrent-load/use-compiledzcurrent-localezcurrent-loggerzcurrent-memory-usezcurrent-millisecondszcurrent-module-declare-namez current-module-declare-sourcez current-module-name-resolverz current-module-path-for-loadzcurrent-namespacer� zcurrent-parameterizationzcurrent-plumberz$current-preserved-thread-cell-valuesz
current-printz current-process-millisecondszcurrent-prompt-readz current-pseudo-random-generatorzcurrent-read-interactionzcurrent-reader-guardzcurrent-readtablezcurrent-secondszcurrent-security-guardz!current-subprocess-custodian-modezcurrent-threadzcurrent-thread-groupz!current-thread-initial-stack-sizez current-write-relative-directory�curryZcurryrzcustodian-box-valuezcustodian-box?zcustodian-limit-memoryzcustodian-managed-listz&custodian-memory-accounting-available?zcustodian-require-memoryzcustodian-shutdown-allz
custodian?z custom-print-quotable-accessorzcustom-print-quotable?zcustom-write-accessorzcustom-write-property-procz
custom-write?�datezdate*zdate*-nanosecondzdate*-time-zone-namezdate*?zdate-dayz date-dst?z date-hourz date-minutez
date-monthz date-secondzdate-time-zone-offsetz
date-week-dayz date-yearz
date-year-dayzdate?z
datum->syntaxzdatum-intern-literalz default-continuation-prompt-tagzdegrees->radianszdelete-directoryzdelete-directory/files� delete-filer� z
dict->listzdict-can-functional-set?zdict-can-remove-keys?z
dict-clearz dict-clear!z dict-copyz
dict-countz dict-empty?z
dict-for-eachz
dict-has-key?zdict-implements/czdict-implements?zdict-iter-contractzdict-iterate-firstzdict-iterate-keyzdict-iterate-nextzdict-iterate-valuezdict-key-contractz dict-keyszdict-mapz
dict-mutable?zdict-refz dict-ref!z dict-removez dict-remove!zdict-setz dict-set!z dict-set*z
dict-set*!z dict-updatez dict-update!zdict-value-contractz dict-valueszdict?zdirectory-exists?zdirectory-listZdisjoinr� z
display-lineszdisplay-lines-to-filezdisplay-to-fileZ displaylnzdouble-flonum?r� zdrop-common-prefixz
drop-rightZdropfz dropf-rightzdump-memory-statszdup-input-portzdup-output-portz
dynamic->*zdynamic-get-fieldzdynamic-object/cz
dynamic-placezdynamic-place*zdynamic-requirezdynamic-require-for-syntaxz dynamic-sendzdynamic-set-field!r� Zeighth�emptyzempty-sequencez empty-stream�empty?zenvironment-variables-copyzenvironment-variables-nameszenvironment-variables-refzenvironment-variables-set!zenvironment-variables?�eofzeof-evtr� zephemeron-valuez
ephemeron?Zeprintfzeq-contract-valz eq-contract?z eq-hash-coder� zequal-contract-valzequal-contract?zequal-hash-codezequal-secondary-hash-codezequal<%>r� z equal?/recurz
eqv-hash-coder� �errorzerror-display-handlerzerror-escape-handlerzerror-print-context-lengthzerror-print-source-locationzerror-print-widthzerror-value->string-handlerr� zeval-jit-enabledz eval-syntaxr� zevt/czevt?r� z
exact-ceilingz exact-floorzexact-integer?zexact-nonnegative-integer?zexact-positive-integer?z exact-roundzexact-truncater� zexecutable-yield-handler�exitz exit-handlerZexnzexn-continuation-marksz exn-messagez exn:breakzexn:break-continuationzexn:break:hang-upzexn:break:hang-up?zexn:break:terminatezexn:break:terminate?z
exn:break?zexn:failzexn:fail:contractzexn:fail:contract:arityzexn:fail:contract:arity?zexn:fail:contract:blamez exn:fail:contract:blame-objectzexn:fail:contract:blame?z exn:fail:contract:continuationz exn:fail:contract:continuation?z exn:fail:contract:divide-by-zeroz!exn:fail:contract:divide-by-zero?z#exn:fail:contract:non-fixnum-resultz$exn:fail:contract:non-fixnum-result?zexn:fail:contract:variablez exn:fail:contract:variable-idzexn:fail:contract:variable?zexn:fail:contract?zexn:fail:filesystemzexn:fail:filesystem:errnoz exn:fail:filesystem:errno-errnozexn:fail:filesystem:errno?zexn:fail:filesystem:existszexn:fail:filesystem:exists?z"exn:fail:filesystem:missing-modulez'exn:fail:filesystem:missing-module-pathz#exn:fail:filesystem:missing-module?zexn:fail:filesystem:versionz exn:fail:filesystem:version?zexn:fail:filesystem?zexn:fail:networkzexn:fail:network:errnoz exn:fail:network:errno-errnozexn:fail:network:errno?zexn:fail:network?zexn:fail:objectzexn:fail:object?zexn:fail:out-of-memoryzexn:fail:out-of-memory?z
exn:fail:readzexn:fail:read-srclocszexn:fail:read:eofzexn:fail:read:eof?zexn:fail:read:non-charzexn:fail:read:non-char?zexn:fail:read?zexn:fail:syntaxzexn:fail:syntax-exprsz exn:fail:syntax:missing-modulez#exn:fail:syntax:missing-module-pathz exn:fail:syntax:missing-module?zexn:fail:syntax:unboundzexn:fail:syntax:unbound?zexn:fail:syntax?zexn:fail:unsupportedzexn:fail:unsupported?z
exn:fail:userzexn:fail:user?z exn:fail?zexn:misc:match?zexn:missing-module-accessorzexn:missing-module?zexn:srclocs-accessorz exn:srclocs?zexn?r� �expandz expand-oncez
expand-syntaxzexpand-syntax-oncezexpand-syntax-to-top-formzexpand-to-top-formzexpand-user-pathz explode-pathr� zexternalizable<%>zfailure-result/czfalse?z field-namesZfifthz file->byteszfile->bytes-linesz file->linesz
file->listz file->stringz file->valuez file-exists?zfile-name-from-pathzfile-or-directory-identityz file-or-directory-modify-secondsz file-or-directory-permissionsz
file-positionzfile-position*z file-sizezfile-stream-buffer-modezfile-stream-port?z
file-truncatezfilename-extensionzfilesystem-change-evtz filesystem-change-evt-cancelzfilesystem-change-evt?zfilesystem-root-listr� z
filter-mapz
filter-notzfilter-read-input-portzfind-executable-pathz
find-filesz find-library-collection-linksz find-library-collection-pathszfind-relative-pathzfind-system-pathZfindfrv z
first-or/czfixnum?z
flat-contractzflat-contract-predicatezflat-contract-property?zflat-contract?zflat-named-contractZflattenzfloating-point-bytes->realzflonum?r� z flush-outputz
fold-filesZfoldlZfoldrr� r� �formatZfourthZfprintfzfree-identifier=?zfree-label-identifier=?zfree-template-identifier=?z free-transformer-identifier=?zfsemaphore-countzfsemaphore-postzfsemaphore-try-wait?zfsemaphore-waitz fsemaphore?Zfuturezfuture?zfutures-enabled?r� zgenerate-member-keyzgenerate-temporariesz generic-set?zgeneric?�gensymzget-output-byteszget-output-stringzget-preferencez get/build-late-neg-projectionz get/build-val-first-projection�getenvzglobal-port-print-handlerzgroup-byzgroup-execute-bitzgroup-read-bitzgroup-write-bitz guard-evtz
handle-evtz handle-evt?z
has-blame?z
has-contract?�hashz
hash->listz
hash-clearz hash-clear!z hash-copyzhash-copy-clearz
hash-countz hash-empty?zhash-eq?z hash-equal?z hash-eqv?z
hash-for-eachz
hash-has-key?zhash-iterate-firstzhash-iterate-keyzhash-iterate-key+valuezhash-iterate-nextzhash-iterate-pairzhash-iterate-valuez hash-keyszhash-mapzhash-placeholder?zhash-refz hash-ref!z hash-removez hash-remove!zhash-setz hash-set!z hash-set*z
hash-set*!z hash-updatez hash-update!z hash-valuesz
hash-weak?zhash/czhash?ZhasheqZhasheqvzidentifier-bindingzidentifier-binding-symbolzidentifier-label-bindingz identifier-prune-lexical-contextz!identifier-prune-to-source-modulez)identifier-remove-from-definition-contextzidentifier-template-bindingz identifier-transformer-bindingz identifier?�identityzif/cr� z
immutable?zimpersonate-boxzimpersonate-channelz!impersonate-continuation-mark-keyzimpersonate-hashzimpersonate-hash-setzimpersonate-procedurezimpersonate-procedure*zimpersonate-prompt-tagzimpersonate-structzimpersonate-vectorzimpersonator-contract?zimpersonator-ephemeronzimpersonator-of?z"impersonator-prop:application-markzimpersonator-prop:blamez impersonator-prop:contractedz)impersonator-property-accessor-procedure?zimpersonator-property?z
impersonator?zimplementation?zimplementation?/czin-byteszin-bytes-lineszin-combinationszin-cyclezin-dictz in-dict-keysz
in-dict-pairszin-dict-valuesz in-directoryzin-hashz in-hash-keysz
in-hash-pairszin-hash-valueszin-immutable-hashzin-immutable-hash-keyszin-immutable-hash-pairszin-immutable-hash-valueszin-immutable-setz
in-indexedzin-input-port-byteszin-input-port-charszin-lineszin-listzin-mlistzin-mutable-hashzin-mutable-hash-keyszin-mutable-hash-pairszin-mutable-hash-valueszin-mutable-setz in-naturalsz in-parallelzin-permutationszin-portz in-producerzin-rangez in-sequenceszin-setzin-slicez in-streamz in-stringz in-syntaxzin-valuezin-values*-sequencezin-values-sequencez in-vectorz in-weak-hashzin-weak-hash-keyszin-weak-hash-pairszin-weak-hash-valuesz in-weak-setr� z
inexact-real?r� z infinite?zinput-port-appendr� z
inspector?z instanceof/cr� zinteger->integer-byteszinteger-bytes->integerz
integer-inzinteger-lengthz integer-sqrtzinteger-sqrt/remainderr� zinterface->method-nameszinterface-extension?z
interface?z/internal-definition-context-binding-identifiersz%internal-definition-context-introducez internal-definition-context-sealz internal-definition-context?zis-a?zis-a?/czkeyword->stringz
keyword-applyz keyword<?zkeyword?zkeywords-matchz kill-thread�lastz last-pairr� r� zliberal-define-context?z link-exists?r� zlist*zlist*ofz list->byteszlist->mutable-setzlist->mutable-seteqzlist->mutable-seteqvz list->setz list->seteqz list->seteqvr� r� zlist->weak-setzlist->weak-seteqzlist->weak-seteqvzlist-contract?z list-prefix?r� zlist-setr� z list-updatezlist/cr� zlisten-port-number?Zlistofr� zload-extensionzload-on-demand-enabledz
load-relativezload-relative-extensionzload/cdzload/use-compiledz local-expandzlocal-expand/capture-liftszlocal-transformer-expandz&local-transformer-expand/capture-liftszlocale-string-encodingr� zlog-all-levelsz
log-level-evtz
log-level?z
log-max-levelz log-messagez
log-receiver?z logger-namezlogger?r� zmake-arity-at-leastzmake-base-empty-namespacezmake-base-namespacez
make-bytesz make-channelzmake-chaperone-contractzmake-continuation-mark-keyz make-continuation-prompt-tagz
make-contractzmake-custodianzmake-custodian-boxzmake-custom-hashzmake-custom-hash-typeszmake-custom-setzmake-custom-set-typesz make-datez
make-date*zmake-derived-parameterzmake-directoryzmake-directory*zmake-do-sequencezmake-empty-namespacezmake-environment-variableszmake-ephemeronzmake-exnzmake-exn:breakzmake-exn:break:hang-upzmake-exn:break:terminatez
make-exn:failzmake-exn:fail:contractz make-exn:fail:contract:arityz make-exn:fail:contract:blamez#make-exn:fail:contract:continuationz%make-exn:fail:contract:divide-by-zeroz(make-exn:fail:contract:non-fixnum-resultz make-exn:fail:contract:variablezmake-exn:fail:filesystemz make-exn:fail:filesystem:errnoz make-exn:fail:filesystem:existsz'make-exn:fail:filesystem:missing-modulez make-exn:fail:filesystem:versionzmake-exn:fail:networkzmake-exn:fail:network:errnozmake-exn:fail:objectzmake-exn:fail:out-of-memoryzmake-exn:fail:readzmake-exn:fail:read:eofzmake-exn:fail:read:non-charzmake-exn:fail:syntaxz#make-exn:fail:syntax:missing-modulez make-exn:fail:syntax:unboundzmake-exn:fail:unsupportedzmake-exn:fail:userzmake-file-or-directory-linkzmake-flat-contractzmake-fsemaphorez make-genericz!make-handle-get-preference-lockedz make-hashzmake-hash-placeholderz make-hasheqzmake-hasheq-placeholderz make-hasheqvzmake-hasheqv-placeholderzmake-immutable-custom-hashzmake-immutable-hashzmake-immutable-hasheqzmake-immutable-hasheqvzmake-impersonator-propertyzmake-input-portz make-input-port/read-to-peekzmake-inspectorzmake-keyword-procedurezmake-known-char-range-listzmake-limited-input-port� make-listzmake-lock-file-namezmake-log-receiverz make-loggerzmake-mixin-contractzmake-mutable-custom-setz make-none/cz make-objectzmake-output-portzmake-parameterzmake-parent-directory*zmake-phantom-bytesz make-pipezmake-pipe-with-specialszmake-placeholderz make-plumberr� zmake-prefab-structzmake-primitive-classzmake-proj-contractz make-pseudo-random-generatorzmake-reader-graphzmake-readtabler� zmake-rename-transformerzmake-resolved-module-pathzmake-security-guardzmake-semaphorezmake-set!-transformerzmake-shared-byteszmake-sibling-inspectorzmake-special-commentz make-srclocr� zmake-struct-field-accessorzmake-struct-field-mutatorzmake-struct-typezmake-struct-type-propertyz make-syntax-delta-introducerzmake-syntax-introducerzmake-temporary-filez'make-tentative-pretty-print-output-portzmake-thread-cellzmake-thread-groupr� z
make-weak-boxzmake-weak-custom-hashzmake-weak-custom-setzmake-weak-hashzmake-weak-hasheqzmake-weak-hasheqvzmake-will-executorr� zmatch-equality-testzmatches-arity-exactly?r� ZmcarZmcdrZmconsr� zmember-name-key-hash-codezmember-name-key=?zmember-name-key?Zmemfr� r� z merge-inputzmethod-in-interface?r� zmixin-contractzmodule->exportszmodule->importszmodule->language-infozmodule->namespacez'module-compiled-cross-phase-persistent?zmodule-compiled-exportszmodule-compiled-importsz module-compiled-language-infozmodule-compiled-namezmodule-compiled-submoduleszmodule-declared?zmodule-path-index-joinzmodule-path-index-resolvezmodule-path-index-splitzmodule-path-index-submodulezmodule-path-index?z module-path?zmodule-predefined?zmodule-provide-protected?r� zmpair?z mutable-setz
mutable-seteqzmutable-seteqvzn->thznack-guard-evtz!namespace-anchor->empty-namespaceznamespace-anchor->namespaceznamespace-anchor?znamespace-attach-modulez#namespace-attach-module-declarationznamespace-base-phaseznamespace-mapped-symbolsznamespace-module-identifierznamespace-module-registryznamespace-requireznamespace-require/constantznamespace-require/copyz namespace-require/expansion-timez namespace-set-variable-value!z namespace-symbol->identifierznamespace-syntax-introducez namespace-undefine-variable!znamespace-unprotect-moduleznamespace-variable-valuez
namespace?znan?znatural-number/c�negater� z never-evtu new-∀/cu new-∃/cr� Zninthznon-empty-listofznon-empty-string?znone/cznormal-case-pathznormalize-arityznormalize-pathznormalized-arity?r� znot/c�nullr� r� r� r� zobject%zobject->vectorz object-infozobject-interfacez object-method-arity-includes?z object-namezobject-or-false=?zobject=?zobject?r� zone-of/czopen-input-bytesr� zopen-input-output-filezopen-input-stringzopen-output-bytesr� zopen-output-nowherezopen-output-stringzor/czorder-of-magnitudeZormapzother-execute-bitzother-read-bitzother-write-bitr� r� zparameter-procedure=?z parameter/cz
parameter?zparameterization?zparse-command-line� partitionz path->byteszpath->complete-pathzpath->directory-pathz path->stringzpath-add-suffixzpath-convention-typezpath-element->byteszpath-element->stringz
path-element?zpath-for-some-system?zpath-list-string->path-listz path-onlyzpath-replace-suffixz path-string?zpath<?zpath?zpathlist-closurez peek-bytezpeek-byte-or-specialz
peek-bytesz peek-bytes!zpeek-bytes!-evtzpeek-bytes-avail!zpeek-bytes-avail!*zpeek-bytes-avail!-evtz peek-bytes-avail!/enable-breakzpeek-bytes-evtr� zpeek-char-or-specialz peek-stringz peek-string!zpeek-string!-evtzpeek-string-evtzpeeking-input-port� permutationszphantom-bytes?Zpizpi.fzpipe-content-lengthz place-breakz
place-channelzplace-channel-getzplace-channel-putzplace-channel-put/getzplace-channel?zplace-dead-evtzplace-enabled?z
place-killzplace-location?zplace-message-allowed?z place-sleepz
place-waitzplace?zplaceholder-getzplaceholder-set!z placeholder?zplumber-add-flush!zplumber-flush-allz plumber-flush-handle-remove!zplumber-flush-handle?zplumber?zpoll-guard-evtz port->byteszport->bytes-linesz port->linesz
port->listz port->stringzport-closed-evtz port-closed?zport-commit-peekedzport-count-lines!zport-count-lines-enabledzport-counts-lines?zport-display-handlerzport-file-identityzport-file-unlockzport-next-locationz port-number?zport-print-handlerzport-progress-evtz port-provides-progress-evts?zport-read-handlerzport-try-file-lock?zport-write-handlerzport-writes-atomic?zport-writes-special?r� r� z predicate/czprefab-key->struct-typez prefab-key?zprefab-struct-keyzpreferences-lock-file-modeZpregexpzpregexp?zpretty-displayz
pretty-format� pretty-printz"pretty-print-.-symbol-without-barsz#pretty-print-abbreviate-read-macroszpretty-print-columnsz pretty-print-current-style-tablezpretty-print-depthz pretty-print-exact-as-decimalz pretty-print-extend-style-tablezpretty-print-handlerzpretty-print-newlinez pretty-print-post-print-hookzpretty-print-pre-print-hookzpretty-print-print-hookzpretty-print-print-linezpretty-print-remap-stylablez pretty-print-show-inexactnesszpretty-print-size-hookzpretty-print-style-table?zpretty-printingz pretty-writezprimitive-closure?zprimitive-result-arity�
primitive?�printzprint-as-expressionzprint-boolean-long-formz print-boxz print-graphzprint-hash-tablezprint-mpair-curly-braceszprint-pair-curly-braceszprint-reader-abbreviationsz print-structzprint-syntax-widthzprint-unreadablezprint-vector-lengthz printable/cz printable<%>�printf�printlnzprocedure->methodzprocedure-arityzprocedure-arity-includes/czprocedure-arity-includes?zprocedure-arity?z procedure-closure-contents-eq?zprocedure-extract-targetzprocedure-keywordszprocedure-reduce-arityz procedure-reduce-keyword-arityzprocedure-renamezprocedure-result-arityzprocedure-specializezprocedure-struct-type?r� �processzprocess*zprocess*/portsz
process/portszprocessor-countz
progress-evt?zpromise-forced?zpromise-running?z promise/cz
promise/name?zpromise?zprop:arity-stringzprop:arrow-contractz prop:arrow-contract-get-infozprop:arrow-contract?z
prop:blamezprop:chaperone-contractzprop:checked-procedurez
prop:contractzprop:contractedzprop:custom-print-quotablezprop:custom-writez prop:dictzprop:dict/contractzprop:equal+hashzprop:evtzprop:exn:missing-modulezprop:exn:srclocszprop:expansion-contextszprop:flat-contractzprop:impersonator-ofzprop:input-portzprop:liberal-define-contextzprop:object-namezprop:opt-chaperone-contractz$prop:opt-chaperone-contract-get-testz prop:opt-chaperone-contract?zprop:orc-contractz"prop:orc-contract-get-subcontractszprop:orc-contract?zprop:output-portzprop:place-locationzprop:procedurezprop:recursive-contractz prop:recursive-contract-unrollzprop:recursive-contract?zprop:rename-transformerz
prop:sequencezprop:set!-transformerz prop:streamzproper-subset?z pseudo-random-generator->vectorz pseudo-random-generator-vector?zpseudo-random-generator?zput-preferences�putenvr� zquotient/remainderzradians->degrees�raisezraise-argument-errorzraise-arguments-errorzraise-arity-errorzraise-blame-errorzraise-contract-errorzraise-mismatch-errorzraise-not-cons-blame-errorzraise-range-errorzraise-result-errorzraise-syntax-errorzraise-type-errorzraise-user-error�randomz random-seed�ranger� r� r� zread-accept-bar-quotezread-accept-boxzread-accept-compiledzread-accept-dotzread-accept-graphzread-accept-infix-dotzread-accept-langzread-accept-quasiquotezread-accept-reader� read-bytezread-byte-or-specialz
read-bytesz read-bytes!zread-bytes!-evtzread-bytes-avail!zread-bytes-avail!*zread-bytes-avail!-evtz read-bytes-avail!/enable-breakzread-bytes-evtzread-bytes-linezread-bytes-line-evtzread-case-sensitivez read-cdotr� zread-char-or-specialzread-curly-brace-as-parenzread-curly-brace-with-tagzread-decimal-as-inexactzread-eval-print-loopz
read-language� read-linez
read-line-evtzread-on-demand-sourcez read-square-bracket-as-parenz read-square-bracket-with-tag� read-stringz read-string!zread-string!-evtzread-string-evtz read-syntaxzread-syntax/recursivezread/recursivezreadtable-mappingz
readtable?zreal->decimal-stringzreal->double-flonumzreal->floating-point-byteszreal->single-flonumzreal-inr� r� zreencode-input-portzreencode-output-portZregexpz regexp-matchz
regexp-match*zregexp-match-evtzregexp-match-exact?zregexp-match-peekzregexp-match-peek-immediatezregexp-match-peek-positionsz regexp-match-peek-positions*z%regexp-match-peek-positions-immediatez)regexp-match-peek-positions-immediate/endz regexp-match-peek-positions/endzregexp-match-positionszregexp-match-positions*zregexp-match-positions/endzregexp-match/endz
regexp-match?zregexp-max-lookbehind� regexp-quotezregexp-replacezregexp-replace*zregexp-replace-quotezregexp-replacesz regexp-splitzregexp-try-matchzregexp?zrelative-path?zrelocate-input-portzrelocate-output-portr� �remfzremf*r� zremove*zremove-duplicatesZremqzremq*Zremvzremv*zrename-contractzrename-file-or-directoryzrename-transformer-targetzrename-transformer?z replace-evtz reroot-pathz resolve-pathzresolved-module-path-namezresolved-module-path?rw r� r� �secondz
seconds->datezsecurity-guard?zsemaphore-peek-evtzsemaphore-peek-evt?zsemaphore-postzsemaphore-try-wait?zsemaphore-waitzsemaphore-wait/enable-breakz
semaphore?zsequence->listzsequence->streamzsequence-add-betweenzsequence-andmapzsequence-appendzsequence-countzsequence-filterz
sequence-foldzsequence-for-eachzsequence-generatezsequence-generate*zsequence-lengthz sequence-mapzsequence-ormapz sequence-refz
sequence-tailz
sequence/cz sequence?�setzset!-transformer-procedurezset!-transformer?z set->listz set->streamzset-addzset-add!zset-box!z set-clearz
set-clear!zset-copyzset-copy-clearz set-countz
set-empty?zset-eq?z
set-equal?zset-eqv?z set-firstz set-for-eachzset-implements/czset-implements?z
set-intersectzset-intersect!zset-mapz set-mcar!z set-mcdr!z set-member?z set-mutable?zset-phantom-bytes!zset-port-next-location!z
set-removez set-remove!zset-restzset-some-basic-contracts!z set-subtractz
set-subtract!zset-symmetric-differencezset-symmetric-difference!z set-unionz
set-union!z set-weak?zset/czset=?zset?ZseteqZseteqvZseventh�sgnz shared-bytesz
shell-executezshrink-path-wrtZshufflezsimple-form-pathz
simplify-pathr� zsingle-flonum?�sinhZsixthzskip-projection-wrapper?�sleepzsome-system-path->string�sortzspecial-comment-valuezspecial-comment?zspecial-filter-input-portzsplit-atzsplit-at-rightzsplit-common-prefixz
split-pathz splitf-atzsplitf-at-rightZsqrr� Zsrcloczsrcloc->stringz
srcloc-columnz srcloc-linezsrcloc-positionz
srcloc-sourcez srcloc-spanzsrcloc?z
stop-afterz stop-beforez stream->listzstream-add-betweenz
stream-andmapz
stream-appendz stream-countz
stream-empty?z
stream-filterz stream-firstz stream-foldzstream-for-eachz
stream-lengthz
stream-mapz stream-ormapz
stream-refz stream-restz stream-tailzstream/czstream?r� zstring->bytes/latin-1zstring->bytes/localezstring->bytes/utf-8zstring->immutable-stringzstring->keywordr� r� z string->pathzstring->path-elementzstring->some-system-pathr� zstring->uninterned-symbolzstring->unreadable-symbolr� zstring-append*r� r� r� r� r� zstring-contains?r� z string-copy!zstring-downcasez!string-environment-variable-name?r� zstring-foldcasez string-joinz string-len/cr� zstring-locale-ci<?zstring-locale-ci=?zstring-locale-ci>?zstring-locale-downcasezstring-locale-upcasezstring-locale<?zstring-locale=?zstring-locale>?zstring-no-nuls?zstring-normalize-nfczstring-normalize-nfdzstring-normalize-nfkczstring-normalize-nfkdzstring-normalize-spacesz string-port?zstring-prefix?r� zstring-replacer� z string-splitzstring-suffix?zstring-titlecasez string-trimz
string-upcasezstring-utf-8-lengthr� r� r� r� r� r� zstruct->vectorzstruct-accessor-procedure?z struct-constructor-procedure?z struct-infozstruct-mutator-procedure?zstruct-predicate-procedure?zstruct-type-infoz struct-type-make-constructorzstruct-type-make-predicatez(struct-type-property-accessor-procedure?zstruct-type-property/czstruct-type-property?z struct-type?zstruct:arity-at-leastzstruct:arrow-contract-infoz struct:datez struct:date*z
struct:exnzstruct:exn:breakzstruct:exn:break:hang-upzstruct:exn:break:terminatezstruct:exn:failzstruct:exn:fail:contractz struct:exn:fail:contract:arityz struct:exn:fail:contract:blamez%struct:exn:fail:contract:continuationz'struct:exn:fail:contract:divide-by-zeroz*struct:exn:fail:contract:non-fixnum-resultz!struct:exn:fail:contract:variablezstruct:exn:fail:filesystemz struct:exn:fail:filesystem:errnoz!struct:exn:fail:filesystem:existsz)struct:exn:fail:filesystem:missing-modulez"struct:exn:fail:filesystem:versionzstruct:exn:fail:networkz struct:exn:fail:network:errnozstruct:exn:fail:objectz struct:exn:fail:out-of-memoryzstruct:exn:fail:readzstruct:exn:fail:read:eofz struct:exn:fail:read:non-charzstruct:exn:fail:syntaxz%struct:exn:fail:syntax:missing-modulez struct:exn:fail:syntax:unboundzstruct:exn:fail:unsupportedzstruct:exn:fail:userz
struct:srclocz struct:wrapped-extra-arg-arrowzstruct?Zsub1Zsubbytesz subclass?z subclass?/c�
subprocesszsubprocess-group-enabledzsubprocess-killzsubprocess-pidzsubprocess-statuszsubprocess-waitz subprocess?zsubset?r� z suggest/cr� zsymbol-interned?zsymbol-unreadable?zsymbol<?zsymbol=?r� �symbols�synczsync/enable-breakz sync/timeoutzsync/timeout/enable-breakz
syntax->datumz syntax->listz
syntax-armz
syntax-columnzsyntax-debug-infoz
syntax-disarmzsyntax-ez syntax-linezsyntax-local-bind-syntaxeszsyntax-local-certifierzsyntax-local-contextz syntax-local-expand-expressionzsyntax-local-get-shadowerz"syntax-local-identifier-as-bindingzsyntax-local-introducezsyntax-local-lift-contextz syntax-local-lift-expressionzsyntax-local-lift-modulez(syntax-local-lift-module-end-declarationzsyntax-local-lift-providezsyntax-local-lift-requirez#syntax-local-lift-values-expressionz$syntax-local-make-definition-contextz"syntax-local-make-delta-introducerz'syntax-local-module-defined-identifierszsyntax-local-module-exportsz(syntax-local-module-required-identifierszsyntax-local-namezsyntax-local-phase-levelzsyntax-local-submodulesz*syntax-local-transforming-module-provides?zsyntax-local-valuez syntax-local-value/immediatezsyntax-original?zsyntax-positionzsyntax-propertyzsyntax-property-preserved?zsyntax-property-symbol-keyszsyntax-protectz syntax-rearmzsyntax-recertifyzsyntax-shift-phase-levelz
syntax-sourcezsyntax-source-modulez syntax-spanz syntax-taintzsyntax-tainted?zsyntax-track-originz&syntax-transforming-module-expression?z syntax-transforming-with-lifts?zsyntax-transforming?zsyntax/czsyntax?�systemzsystem*zsystem*/exit-codezsystem-big-endian?zsystem-idle-evtzsystem-language+countryzsystem-library-subpathzsystem-path-convention-typez system-typezsystem/exit-codeztail-marks-match?r� ztake-common-prefixz
take-rightZtakefz takef-rightr� �tanhztcp-abandon-portz
tcp-acceptztcp-accept-evtztcp-accept-ready?ztcp-accept/enable-breakz
tcp-addressesz tcp-closez tcp-connectztcp-connect/enable-breakz
tcp-listenz
tcp-listener?z tcp-port?z"tentative-pretty-print-port-cancelz$tentative-pretty-print-port-transferZtenthzterminal-port?zthe-unsupplied-argZthird�threadzthread-cell-refzthread-cell-set!zthread-cell-values?z thread-cell?zthread-dead-evtz thread-dead?z
thread-group?zthread-receivezthread-receive-evtz
thread-resumezthread-resume-evtzthread-rewind-receivezthread-running?z thread-sendzthread-suspendzthread-suspend-evtzthread-try-receivez thread-waitzthread/suspend-to-killzthread?z
time-applyZtouchztransplant-input-portztransplant-output-port�truer� z
udp-addressesz udp-bind!z
udp-bound?z udp-closez udp-connect!zudp-connected?zudp-multicast-interfacezudp-multicast-join-group!zudp-multicast-leave-group!zudp-multicast-loopback?z udp-multicast-set-interface!zudp-multicast-set-loopback!zudp-multicast-set-ttl!zudp-multicast-ttlzudp-open-socketz udp-receive!z
udp-receive!*zudp-receive!-evtzudp-receive!/enable-breakzudp-receive-ready-evtzudp-sendz udp-send*z udp-send-evtzudp-send-ready-evtz udp-send-toz udp-send-to*zudp-send-to-evtzudp-send-to/enable-breakzudp-send/enable-breakzudp?Zunboxzuncaught-exception-handlerzunit?zunspecified-domzunsupplied-arg?zuse-collection-link-pathszuse-compiled-file-pathsz use-user-specific-search-pathszuser-execute-bitz
user-read-bitzuser-write-bitz value-blamezvalue-contractr� z#variable-reference->empty-namespacez%variable-reference->module-base-phasez0variable-reference->module-declaration-inspectorz%variable-reference->module-path-indexz!variable-reference->module-sourcez variable-reference->namespacezvariable-reference->phasez(variable-reference->resolved-module-pathz variable-reference-constant?zvariable-reference?r� zvector->immutable-vectorr� z vector->pseudo-random-generatorz vector->pseudo-random-generator!zvector->valuesz
vector-appendz
vector-argmaxz
vector-argminz vector-copyz vector-copy!z vector-countz vector-dropzvector-drop-rightr� z
vector-filterzvector-filter-notzvector-immutablezvector-immutable/czvector-immutableofr� z
vector-mapz vector-map!z
vector-memberz vector-memqz vector-memvr� r� z vector-set*!z vector-set-performance-stats!zvector-split-atzvector-split-at-rightz vector-takezvector-take-rightzvector/cr� Zvectorof�version�voidzvoid?zweak-box-valuez weak-box?zweak-setz
weak-seteqz weak-seteqvz will-executezwill-executor?z
will-registerzwill-try-executezwith-input-from-bytesr� zwith-input-from-stringzwith-output-to-bytesr� �with-output-to-stringzwould-be-futurezwrap-evtzwrapped-extra-arg-arrowz0wrapped-extra-arg-arrow-extra-neg-party-argumentz!wrapped-extra-arg-arrow-real-funczwrapped-extra-arg-arrow?z writable<%>r� �
write-bytez write-byteszwrite-bytes-availzwrite-bytes-avail*zwrite-bytes-avail-evtz write-bytes-avail/enable-breakr� z
write-specialzwrite-special-avail*zwrite-special-evtz write-string�
write-to-fileZwriteln�xorr� z~.az~.sz~.vz~az~ez~rz~sz~vz[([{]z[)\]}]z()[\]{}",\'`;\sz!(?:\|[^|]*\||\\[\w\W]|[^|\\%s]+)+z(?:#e)?(?:#d)?(?:#e)?z(?:[defls][-+]?\d+)z (?:\d+(?:/\d+|\.\d*)?|\.\d+)z>(?:%s|(?:\d+#+(?:\.#*|/\d+#*)?|\.\d+#+|\d+(?:\.\d*#+|/\d+#+)))z (?:%s%s?)z(?:(?:inf|nan)\.[0f])z(?:[-+]?%s|[-+]%s)z (?:%s|%s)z(?!\Z)�unquoted-datumz(?s)#;|#*u ;[^\n\r
]*r �
block-commentz(?u)\s+z(?i)%s[-+]?\d+(?=[%s])r z9(?i)%s[-+]?(\d+(\.\d*)?|\.\d+)([deflst][-+]?\d+)?(?=[%s])z+(?i)%s[-+]?(%s([-+]%s?i)?|[-+]%s?i)(?=[%s])z/(?i)(#d)?(%s([-+]%s?i)?|[-+]%s?i|%s@%s)(?=[%s])z1(?i)(([-+]?%st[-+]?\d+)|[-+](inf|nan)\.t)(?=[%s])z(?iu)(#[ei])?#b%sz(?iu)(#[ei])?#o%sz(?iu)(#[ei])?#x%sz(?iu)(#d)?#i%sz#?")r r� z #<<(.+)\n(^(?!\1$).*$\n)*^\1$z&#\\(u[\da-fA-F]{1,4}|U[\da-fA-F]{1,8})z(?is)#\\([0-7]{3}|[a-z]+|.)z(?s)#[pr]x#?"(\\?.)*?"z#(true|false|[tTfF])z(?u)#:%sz(#lang |#!)(\S+)z#reader� quoted-datumz (?i)\.(?=[%s])|#c[is]|#['`]|#,@?z '|#[s&]|#hash(eqv?)?|#\d*(?=%s))r r� z`|,@?z[|\\]�datumz
quote(?=[%s])r[ )r �quasiquoted-datumzquasiquote(?=[%s]))r �
unquoted-listz(?u)z(?=[%s])�r� r� �datum*r� z,@?)r r� zunquote(-splicing)?(?=[%s]))r �quasiquoted-listr� )r � quoted-listr r z[^#|]+|.�"zG(?s)\\([0-7]{1,3}|x[\da-fA-F]{1,2}|u[\da-fA-F]{1,4}|U[\da-fA-F]{1,8}|.)z[^\\"]+) r% r� r r� r� r� r� r r� r r� r� N)6r& r' r( r) r* r+ r, r- � _keywords� _builtinsZ_opening_parenthesisZ_closing_parenthesisZ _delimitersZ_symbolZ_exact_decimal_prefixZ _exponentZ_inexact_simple_no_hashesZ_inexact_simpleZ_inexact_normal_no_hashesZ_inexact_normalZ_inexact_specialZ
_inexact_realZ_inexact_unsignedr r r r1 r2 r
r4 r3 ro rp rq r �DoubleZHeredocr6 ZRegexr r7 r
r� r � Namespacer r5 r r r r r: �Escaper< r r r r r � s4
a ,�� � �
�� � �� � ���� �
�
��D
���� � ����� ���
�
���c
@ s� e Zd ZdZdZdgZdddgZddgZej ej
B ej B Z d Z
d
Zd ejfd ejfd
ejfdefdefdedfdedfdefee
dd�efde ejfeejfdefg dedfdedfd efgd edfgd �Zd S ) r zd
For `newLISP. <www.newlisp.org>`_ source code (version 10.3.0).
.. versionadded:: 1.5
ZNewLispZnewlispz*.lspz*.nlz*.kifztext/x-newlispzapplication/x-newlisp(� �^z--r7 rY �!z!=�?�@r5 r8 �&�%r6 z++r9 �<<r: r; r< r= �>>r r �$z$0z$1z$10z$11z$12z$13z$14z$15z$2z$3z$4z$5z$6z$7z$8z$9z$argsz$idxz$itz
$main-args�abortr> r? Zacosh�addZaddressZambr" z append-filerA rB �argsz
array-listzarray?�arrayrC ZasinhrD rG Zatan2Zatanhzatom?z
base64-decz
base64-encz bayes-queryz bayes-trainr( ZbetaZbetai�bindZbinomial�bits�callbackr$ �catchZceilz
change-dir�charZchoprQ Zclean�closez
command-eventr! r� Zconstantzcontext?�contextr� �copyr� r� r� ZcpymemZcrc32z crit-chi2zcrit-zz current-liner� z date-listz
date-parsez
date-valuer� �debugr� zdef-newr z define-macror r� z
delete-url�delete�destroyZdetZdevice�
differencez
directory?Z directoryZdivzdo-untilzdo-whileZdoargs�dolistZdostring�dotimesZdotree�dump�dupr� Zencryptz ends-with�envZerfz error-eventz eval-stringr� �exec�existsr� r� r� �explode�extendZfactorZfftz file-infozfile?r� zfind-all�findrv Zflatzfloat?�floatr� Zfltr� zfor-allrs �forkr� ZfvZgammaiZgammalnr� zget-charz get-floatzget-intzget-longz
get-stringzget-urlzglobal?�globalzif-notr Zifftrz r� rU zinf?�intr� ZintegerZ intersect�invertZirrr8 z lambda-macrozlambda?r z
last-errorr� zlegal?r� r% ZletexZletnr� r� r� r� r� �lookupz
lower-casezmacro?z main-argsZMAINzmake-dirr� Zmatr� r� r� r� �modr� �mulZmultiplyzNaN?z
net-acceptz net-closez net-connectz net-errorznet-evalz
net-interfaceznet-ipvz
net-listenz net-localz
net-lookupz
net-packetznet-peekznet-peerznet-pingznet-receive-fromznet-receive-udpz net-receivez
net-selectz net-send-toz net-send-udpznet-sendz net-servicez net-sessionsr� znil?�nilZnormalr� �nowZnperZnpvr� r� r� r� r# ZostypeZpackz
parse-date�parse�peek�pipeZpmtz pop-assoc�popzpost-url�powr� r� r� r� r� z prob-chi2zprob-zr� z prompt-eventz
protected?�pushzput-urlZpvzquote?r- Zrandr� Z randomizer� r� z read-expr� read-filezread-keyr� z read-utf8z reader-eventz real-pathZreceivezref-all�refz
regex-compZregexz
remove-dir� rename-file�replace�resetrw r� �rotater� �save�searchZseed�seek�selectrM Z semaphorer� ZsequenceZseriesz
set-localez set-ref-allzset-refr� �setf�setqr� Zshare�signalZsilentr� r� r� r} r� �sourceZspawnr� z starts-withr� r� �subZswapZsymr� r� r� z sys-errorzsys-infor� r� Ztermz throw-error�throwz time-of-dayr� Ztimerz
title-caseztrace-highlight�traceZ transposeZTreeZtrimztrue?r� Zunicode�unify�uniquery �unpackZuntilz
upper-case�utf8Zutf8lenZuuidzwait-pidrx r� r� r� z
write-filez
write-linez
xfer-eventz xml-errorz xml-parsez
xml-type-tagsr� z$([\w!$%&*+.,/<=>?@^~|-])+|(\[.*?\])+z#!(.*?)$r z#.*$r r z\{� bracestringz \[text\]*� tagstringz('|:)�\br� r r r z\}r z[^{}]+z(?s)(.*?)(\[/text\]))r% rQ rR N) r& r' r( r) r* r+ r, r- r rf rg �UNICODErh r/ r0 r rm r1 r r r r r
r r9 r5 r r< r r r r r y s<
>
� �'���c @ s� e Zd ZdZdZdddgZdgZddgZej Z
d Z e d
Z d Z
d e e f Zed
�Zed�Zed�Zed�Zed�Zed�Zdd� Zed�gdefdejfdedfdej fde e j fd e ej fd e ej fd e fd e fd e
e!j"fd e
e!fd!e
e!j#fd"e$fd#e ej fd$e fd%e j%fd&e!j&fd'e!j'fd(e!j(fd)e!fd*e fd+e fd,e fd-e
e j)fd.e d. e j*j+fee j*fd/e dfd0e$dfd1e$d2fg d3efd4e ej fd efd5efd6efded2fgd7�Z,d8S )9r z�
An ELisp lexer, parsing a stream and outputting the tokens
needed to highlight elisp code.
.. versionadded:: 2.1
Z EmacsLispZemacsZelispz
emacs-lispz*.elz text/x-elispzapplication/x-elispz\\.|[\w!$%&*+-/<=>?@^{}~|]r= z(?=[ "()\]\'\n,;`])z((?:%s)(?:%s)*))�zatomic-change-groupr$ �blockzcl-blockzcl-callfz cl-callf2zcl-casezcl-decfz
cl-declaimz
cl-declarezcl-define-compiler-macroz cl-defmacroz cl-defstructz cl-defsubstz
cl-deftypezcl-defunzcl-destructuring-bindzcl-dozcl-do*zcl-do-all-symbolsz
cl-do-symbolsz cl-dolistz
cl-dotimeszcl-ecasez cl-etypecasez eval-whenz cl-eval-whenzcl-fletzcl-flet*z cl-functionzcl-incfz cl-labelszcl-letfzcl-letf*zcl-load-time-valuez
cl-locallyzcl-loopz cl-macroletzcl-multiple-value-bindzcl-multiple-value-setqzcl-progvzcl-psetfzcl-psetqz
cl-pushnewzcl-remfz cl-returnzcl-return-fromz
cl-rotatefz cl-shiftfzcl-symbol-macroletz
cl-tagbodyzcl-thez cl-typecasezcombine-after-change-callszcondition-case-unless-debugZdecfZdeclaim�declarezdeclare-functionzdef-edebug-specZ defadvicer� Z defcustomZdeffaceZ
defgenericZdefgroupz
define-advicezdefine-alternativeszdefine-compiler-macrozdefine-derived-modezdefine-generic-modezdefine-global-minor-modez define-globalized-minor-modezdefine-minor-modezdefine-modify-macrozdefine-obsolete-face-aliasz define-obsolete-function-aliasz define-obsolete-variable-aliaszdefine-setf-expanderzdefine-skeletonr� Z defmethodZdefsetfZ defstructZdefsubstZdefthemeZdeftyper� z defvar-localzdelay-mode-hookszdestructuring-bindr) zdo*zdo-all-symbolsz
do-symbolsr" z dont-compiler# z dotimes-with-progress-reporterZecasez ert-deftestZ etypecaser� r� Zfletz
ignore-errorsZincf�labelsr r' z lexical-letz lexical-let*Zloopzmultiple-value-bindzmultiple-value-setqZnoreturnZorefz oref-defaultZosetz oset-defaultZpcasezpcase-defmacroz pcase-dolistzpcase-exhaustivez pcase-letz
pcase-let*r9 ZpsetfZpsetqr; Zpushnewr� �returnZrotatefZrxzsave-match-datazsave-selected-windowzsave-window-excursionrF z
setq-localZshiftfz track-mouseZtypecasery z use-packagerx zwhile-no-inputzwith-case-tablezwith-category-tablezwith-coding-priorityzwith-current-bufferzwith-demoted-errorszwith-eval-after-loadzwith-file-modeszwith-local-quitr� zwith-output-to-temp-bufferzwith-parsed-tramp-file-namezwith-selected-framezwith-selected-windowzwith-silent-modificationsz
with-slotszwith-syntax-tablezwith-temp-bufferzwith-temp-filezwith-temp-messagez with-timeoutz with-tramp-connection-propertyzwith-tramp-file-propertyz with-tramp-progress-reporterzwith-wrapper-hookzload-time-valueZlocallyZmacroletZprogvz return-from)r" r r! zcondition-caseZdefconstZdefvar�functionr � interactiver% r& r# Zprog1Zprog2r{ r- zsave-current-bufferzsave-excursionzsave-restrictionrG z setq-defaultz
subr-arityzunwind-protectr� ( r r5 r6 r7 r8 z/=z1+z1-r9 r: r; r< r= zSnarf-documentationzabort-recursive-editr> zaccept-process-outputz access-filezaccessible-keymapsr? zactive-minibuffer-windowzadd-face-text-propertyzadd-name-to-filezadd-text-propertieszall-completionsrA rB zapropos-internal�arefZarraypZasetZashrC rD z assoc-stringrE rG ZatomZautoloadzautoload-do-loadZ backtracezbacktrace--localszbacktrace-debugzbacktrace-evalzbacktrace-framez
backward-charzbackward-prefix-charszbarf-if-buffer-read-onlyzbase64-decode-regionzbase64-decode-stringzbase64-encode-regionzbase64-encode-stringzbeginning-of-linez#bidi-find-overridden-directionalityzbidi-resolved-levelsz
bitmap-spec-pZbobpZbolpz bool-vectorz bool-vector-count-consecutivez bool-vector-count-populationzbool-vector-exclusive-orzbool-vector-intersectionzbool-vector-notz
bool-vector-pzbool-vector-set-differencezbool-vector-subsetpzbool-vector-unionZboundpzbuffer-base-bufferzbuffer-chars-modified-tickzbuffer-enable-undozbuffer-file-namezbuffer-has-markers-atz buffer-listz
buffer-live-pzbuffer-local-valuezbuffer-local-variableszbuffer-modified-pzbuffer-modified-tickz buffer-namez buffer-sizez
buffer-stringzbuffer-substringz buffer-substring-no-propertieszbuffer-swap-textZbufferpzbury-buffer-internalz byte-codezbyte-code-function-pzbyte-to-positionzbyte-to-string� byteorderzcall-interactivelyzcall-last-kbd-macroz call-processzcall-process-regionzcancel-kbd-macro-events�
capitalizezcapitalize-regionzcapitalize-wordr\ zcar-less-than-carzcar-safez case-table-pzcategory-docstringzcategory-set-mnemonicszcategory-tablezcategory-table-pz ccl-executezccl-execute-on-stringz
ccl-program-prk zcdr-saferl z
char-afterz char-beforezchar-category-setz char-charsetz
char-equalzchar-or-string-pzchar-resolve-modifiersz char-syntaxzchar-table-extra-slotz char-table-pzchar-table-parentzchar-table-rangezchar-table-subtypezchar-to-stringz
char-widthZ
characterpz
charset-afterzcharset-id-internalz
charset-plistzcharset-priority-listZcharsetpzcheck-coding-systemzcheck-coding-systems-regionz clear-buffer-auto-save-failurezclear-charset-mapszclear-face-cachezclear-font-cachezclear-image-cachez clear-stringzclear-this-command-keysz
close-fontZclrhashzcoding-system-aliaseszcoding-system-basezcoding-system-eol-typezcoding-system-pzcoding-system-plistzcoding-system-priority-listzcoding-system-putzcolor-distancez color-gray-pzcolor-supported-pz combine-after-change-executez command-error-default-functionzcommand-remappingZcommandpzcompare-buffer-substringszcompare-stringsz compare-window-configurationszcompleting-readzcompose-region-internalzcompose-string-internalzcomposition-get-gstringzcompute-motion�concatr� Zconspzconstrain-to-fieldzcontinue-processzcontrolling-tty-pzcoordinates-in-window-pz
copy-alistzcopy-category-tabler� zcopy-hash-tablez copy-keymapz copy-markerz
copy-sequencezcopy-syntax-tableZcopysignr� zcurrent-active-mapsz current-bidi-paragraph-directionzcurrent-bufferzcurrent-case-tablezcurrent-columnzcurrent-global-mapzcurrent-idle-timezcurrent-indentationzcurrent-input-modezcurrent-local-mapzcurrent-messagezcurrent-minor-mode-mapsz current-timezcurrent-time-stringzcurrent-time-zonez current-window-configurationz%cygwin-convert-file-name-from-windowsz#cygwin-convert-file-name-to-windowszdaemon-initializedZdaemonpzdbus--init-buszdbus-get-unique-namezdbus-message-internalzdebug-timer-checkzdeclare-equiv-charsetzdecode-big5-charz decode-charzdecode-coding-regionzdecode-coding-stringzdecode-sjis-charz decode-timezdefault-boundpzdefault-file-modeszdefault-printer-namezdefault-toplevel-valuez
default-valuezdefine-categoryzdefine-charset-aliaszdefine-charset-internalzdefine-coding-system-aliasz define-coding-system-internalzdefine-fringe-bitmapzdefine-hash-table-testz
define-keyzdefine-prefix-commandr zdelete-all-overlayszdelete-and-extract-regionz delete-charzdelete-directory-internalz delete-fieldr� z delete-framez delete-other-windows-internalzdelete-overlayzdelete-processz
delete-regionzdelete-terminalzdelete-window-internalZdelqzdescribe-buffer-bindingszdescribe-vectorzdestroy-fringe-bitmapzdetect-coding-regionzdetect-coding-stringZdingzdirectory-file-namezdirectory-filesz directory-files-and-attributesz
discard-inputz"display-supports-face-attributes-pz do-auto-saveZ
documentationzdocumentation-propertyZdowncasezdowncase-regionz
downcase-wordz draw-stringz dump-colorsz
dump-emacsz dump-facezdump-frame-glyph-matrixzdump-glyph-matrixzdump-glyph-rowzdump-redisplay-historyzdump-tool-bar-rowZeltz emacs-pidzencode-big5-charz encode-charzencode-coding-regionzencode-coding-stringzencode-sjis-charz encode-timez
end-kbd-macroz end-of-lineZeobpZeolp�eqZeqlZequalzequal-including-propertiesz erase-bufferzerror-message-stringr� z eval-bufferz eval-regionzevent-convert-listzexecute-kbd-macrozexit-recursive-editr� zexpand-file-namer� zexternal-debugging-outputzface-attribute-relative-pzface-attributes-as-vectorz face-fontZfboundpZfceilingzfetch-bytecodeZffloorzfield-beginningz field-endz field-stringzfield-string-no-propertieszfile-accessible-directory-pzfile-aclzfile-attributeszfile-attributes-lesspzfile-directory-pzfile-executable-pz
file-exists-pz
file-locked-pz
file-modeszfile-name-absolute-pzfile-name-all-completionszfile-name-as-directoryzfile-name-completionzfile-name-directoryzfile-name-nondirectoryzfile-newer-than-file-pzfile-readable-pzfile-regular-pzfile-selinux-contextzfile-symlink-p�file-system-infor` zfile-writable-pZ fillarrayzfind-charset-regionzfind-charset-stringz#find-coding-systems-region-internalzfind-composition-internalzfind-file-name-handlerz find-fontz find-operation-coding-systemr, z
float-timeZfloatpr� Z fmakunboundzfollowing-charzfont-atzfont-drive-otfzfont-face-attributeszfont-family-listzfont-getzfont-get-glyphszfont-get-system-fontzfont-get-system-normal-fontz font-infoz font-match-pzfont-otf-alternateszfont-putzfont-shape-gstringz font-speczfont-variation-glyphszfont-xlfd-nameZfontpz fontset-fontz fontset-infoz fontset-listzfontset-list-allzforce-mode-line-updatezforce-window-updater� zformat-mode-linezformat-network-addresszformat-time-stringz forward-charzforward-commentz forward-linez forward-wordzframe-border-widthzframe-bottom-divider-widthz.frame-can-run-window-configuration-change-hookzframe-char-heightzframe-char-widthzframe-face-alistzframe-first-windowz frame-focuszframe-font-cachezframe-fringe-widthz
frame-listz frame-live-pzframe-or-buffer-changed-pzframe-parameterzframe-parameterszframe-pixel-heightzframe-pixel-widthzframe-pointer-visible-pzframe-right-divider-widthzframe-root-windowzframe-scroll-bar-heightzframe-scroll-bar-widthzframe-selected-windowzframe-terminalzframe-text-colszframe-text-heightzframe-text-lineszframe-text-widthzframe-total-colszframe-total-lineszframe-visible-pZframepZfrexpzfringe-bitmaps-at-posZfround�fset� ftruncateZfuncallzfuncall-interactivelyzfunction-equalZ functionpz gap-positionzgap-sizezgarbage-collectz gc-statuszgenerate-new-buffer-namer| z
get-bufferzget-buffer-createzget-buffer-processzget-buffer-windowzget-bytezget-char-propertyz get-char-property-and-overlayzget-file-bufferz
get-file-charzget-internal-run-timezget-load-suffixeszget-pos-propertyz get-processzget-screen-colorzget-text-propertyz get-unicode-property-internalzget-unused-categoryzget-unused-iso-final-charzgetenv-internalZgethashzgfile-add-watchzgfile-rm-watchzglobal-key-bindingzgnutls-available-pz gnutls-bootz
gnutls-byez
gnutls-deinitzgnutls-error-fatalpzgnutls-error-stringz
gnutls-errorpzgnutls-get-initstagezgnutls-peer-statusz#gnutls-peer-status-warning-describez goto-charzgpm-mouse-startzgpm-mouse-stopz group-gidzgroup-real-gidzhandle-save-sessionzhandle-switch-framezhash-table-countz hash-table-pzhash-table-rehash-sizezhash-table-rehash-thresholdzhash-table-sizezhash-table-testzhash-table-weaknessz
iconify-framer� z image-flushz image-mask-pzimage-metadataz
image-sizezimagemagick-typesZimagepz indent-tozindirect-functionzindirect-variablezinit-image-libraryzinotify-add-watchzinotify-rm-watchzinput-pending-p�insertzinsert-and-inheritzinsert-before-markersz!insert-before-markers-and-inheritzinsert-buffer-substringz insert-bytez insert-charzinsert-file-contentszinsert-startup-screenZint86zinteger-or-marker-pZintegerpzinteractive-form�internz intern-softzinternal--track-mousezinternal-char-fontzinternal-complete-bufferzinternal-copy-lisp-facez internal-default-process-filterz!internal-default-process-sentinelz internal-describe-syntax-valuez%internal-event-symbol-parse-modifiersz internal-face-x-get-resourcez internal-get-lisp-face-attributez#internal-lisp-face-attribute-valueszinternal-lisp-face-empty-pzinternal-lisp-face-equal-pzinternal-lisp-face-pzinternal-make-lisp-facez internal-make-var-non-specialz internal-merge-in-global-facez*internal-set-alternative-font-family-alistz,internal-set-alternative-font-registry-alistz!internal-set-font-selection-orderz internal-set-lisp-face-attributez.internal-set-lisp-face-attribute-from-resourcezinternal-show-cursorzinternal-show-cursor-pzinterrupt-processz invisible-pzinvocation-directoryzinvocation-nameZisnanz iso-charsetz key-bindingzkey-descriptionzkeyboard-coding-systemz
keymap-parentz
keymap-promptZkeymappZkeywordpzkill-all-local-variablesz kill-bufferz
kill-emacszkill-local-variablez kill-processzlast-nonminibuffer-framez
lax-plist-getz
lax-plist-putZldexpr� zlibxml-parse-html-regionzlibxml-parse-xml-regionzline-beginning-positionzline-end-positionzline-pixel-heightr� z
list-fontszlist-system-processesZlistpr� z load-averagezlocal-key-bindingzlocal-variable-if-set-pzlocal-variable-pz locale-infozlocate-file-internalz lock-bufferr� ZlogandZlogbZlogiorZlognotZlogxorz
looking-atz lookup-imagezlookup-image-mapz
lookup-keyz lower-frameZlsh� macroexpandzmake-bool-vectorzmake-byte-codezmake-category-setzmake-category-tablez make-charzmake-char-tablezmake-directory-internalzmake-frame-invisiblezmake-frame-visiblezmake-hash-tablezmake-indirect-bufferz make-keymapr� zmake-local-variablez make-markerzmake-network-processz make-overlayzmake-serial-processzmake-sparse-keymapr� z make-symbolzmake-symbolic-linkzmake-temp-namezmake-terminal-framezmake-variable-buffer-localzmake-variable-frame-localr� Z
makunboundzmap-char-tablezmap-charset-charsz
map-keymapzmap-keymap-internalZmapatomsZmapcZmapcarZ mapconcatZmaphashz mark-markerz
marker-bufferzmarker-insertion-typezmarker-positionZmarkerpzmatch-beginningz
match-dataz match-endzmatching-parenr� zmax-charZmd5r� z memory-infoz memory-limitzmemory-use-countsr� Zmemqlzmenu-bar-menu-at-x-y�menu-or-popup-active-prf zmerge-face-attribute�messagez message-boxzmessage-or-boxr� z minibuffer-completion-contentszminibuffer-contentsz!minibuffer-contents-no-propertieszminibuffer-depthzminibuffer-promptzminibuffer-prompt-endzminibuffer-selected-windowzminibuffer-windowZ minibufferpzminor-mode-key-bindingr2 zmodify-category-entryzmodify-frame-parameterszmodify-syntax-entryzmouse-pixel-positionzmouse-positionz move-overlayzmove-point-visuallyzmove-to-columnzmove-to-window-linezmsdos-downcase-filenamezmsdos-long-file-namesz msdos-memgetz msdos-memputzmsdos-mouse-disablezmsdos-mouse-enablezmsdos-mouse-initz
msdos-mouse-pz msdos-remember-default-colorszmsdos-set-keyboardzmsdos-set-mouse-buttonszmultibyte-char-to-unibytezmultibyte-string-pznarrow-to-regionZnatnumpZnconcznetwork-interface-infoznetwork-interface-listz new-fontsetznewline-cache-checkznext-char-property-changez
next-frameznext-overlay-changeznext-property-changez next-read-file-uses-dialog-pz next-single-char-property-changeznext-single-property-changez next-windowZnlistpZnreverser� Znthcdrr� znumber-or-marker-pznumber-to-stringZnumberpzopen-dribble-filez open-fontzopen-termscriptzoptimize-char-tablez other-bufferzother-window-for-scrollingzoverlay-bufferz overlay-endz overlay-getz
overlay-listszoverlay-propertiesz overlay-putzoverlay-recenterz
overlay-startZoverlaypz overlays-atz overlays-inzparse-partial-sexpzplay-sound-internalz plist-getz plist-memberz plist-putZpointz point-markerz point-maxzpoint-max-markerz point-minzpoint-min-markerzpos-visible-in-window-pzposition-byteszposix-looking-atzposix-search-backwardzposix-search-forwardzposix-string-matchz
posn-at-pointz posn-at-x-yzpreceding-charzprefix-numeric-valuez previous-char-property-changezprevious-framezprevious-overlay-changezprevious-property-changez$previous-single-char-property-changez previous-single-property-changezprevious-windowZprin1zprin1-to-stringZprincr� zprocess-attributeszprocess-bufferzprocess-coding-systemzprocess-commandzprocess-connectionzprocess-contactzprocess-datagram-addresszprocess-exit-statuszprocess-filterzprocess-filter-multibyte-pz
process-idz"process-inherit-coding-system-flagz process-listz process-markz process-namez
process-plistzprocess-query-on-exit-flagzprocess-running-child-pzprocess-send-eofzprocess-send-regionzprocess-send-stringzprocess-sentinelzprocess-statuszprocess-tty-namez process-typeZprocesspzprofiler-cpu-logzprofiler-cpu-running-pzprofiler-cpu-startzprofiler-cpu-stopzprofiler-memory-logzprofiler-memory-running-pzprofiler-memory-startzprofiler-memory-stopZ
propertizeZpurecopy�putzput-text-propertyz put-unicode-property-internalZputhashz
query-fontz
query-fontsetz quit-processz raise-framer� ZrassocZrassqzre-search-backwardzre-search-forwardr� z read-bufferr� zread-char-exclusivezread-coding-systemz read-commandz
read-eventzread-from-minibuffer�read-from-stringz
read-functionzread-key-sequencezread-key-sequence-vectorzread-no-blanks-inputzread-non-nil-coding-systemr� z
read-variablezrecent-auto-save-pzrecent-doskeysz recent-keysZrecenterzrecursion-depthzrecursive-editzredirect-debugging-outputzredirect-frame-focusZ redisplayzredraw-displayz redraw-framer� zregion-beginningz
region-endzregister-ccl-programz register-code-conversion-mapZremhashz remove-list-of-text-propertieszremove-text-propertiesz
rename-bufferr> z
replace-matchzreset-this-command-lengthszresize-mini-window-internalzrestore-buffer-modified-pz
resume-ttyr� r� zrun-hook-with-argsz run-hook-with-args-until-failurez run-hook-with-args-until-successzrun-hook-wrappedz run-hooksz$run-window-configuration-change-hookzrun-window-scroll-functionsz safe-lengthz
scan-listsz
scan-sexpsz scroll-downz scroll-leftzscroll-other-windowz scroll-rightz scroll-upzsearch-backwardzsearch-forwardz secure-hashz select-framez
select-windowzselected-framezselected-windowzself-insert-commandzsend-string-to-terminalZ sequencepzserial-process-configurer� z
set-bufferzset-buffer-auto-savedzset-buffer-major-modezset-buffer-modified-pzset-buffer-multibytezset-case-tablezset-category-tablezset-char-table-extra-slotzset-char-table-parentzset-char-table-rangezset-charset-plistzset-charset-priorityzset-coding-system-priorityzset-cursor-sizez set-defaultzset-default-file-modeszset-default-toplevel-valuez set-file-aclzset-file-modeszset-file-selinux-contextzset-file-timeszset-fontset-fontzset-frame-heightzset-frame-positionzset-frame-selected-windowzset-frame-sizezset-frame-widthzset-fringe-bitmap-facezset-input-interrupt-modezset-input-meta-modezset-input-modez#set-keyboard-coding-system-internalzset-keymap-parentz
set-markerzset-marker-insertion-typezset-match-datazset-message-beepzset-minibuffer-windowzset-mouse-pixel-positionzset-mouse-positionzset-network-process-optionzset-output-flow-controlzset-process-bufferzset-process-coding-systemz set-process-datagram-addresszset-process-filterz set-process-filter-multibytez&set-process-inherit-coding-system-flagzset-process-plistz set-process-query-on-exit-flagzset-process-sentinelzset-process-window-sizez
set-quit-charz(set-safe-terminal-coding-system-internalzset-screen-colorzset-standard-case-tablezset-syntax-tablez#set-terminal-coding-system-internalzset-terminal-local-valuezset-terminal-parameterzset-text-propertieszset-time-zone-rulezset-visited-file-modtimezset-window-bufferz set-window-combination-limitzset-window-configurationzset-window-dedicated-pzset-window-display-tablezset-window-fringeszset-window-hscrollzset-window-marginszset-window-new-normalzset-window-new-pixelzset-window-new-totalzset-window-next-bufferszset-window-parameterzset-window-pointzset-window-prev-buffersz set-window-redisplay-end-triggerzset-window-scroll-barszset-window-startzset-window-vscrollZsetcarZsetcdrZsetplistzshow-face-resourcesrH zsignal-processr� zsingle-key-descriptionzskip-chars-backwardzskip-chars-forwardzskip-syntax-backwardzskip-syntax-forwardz sleep-forr� z
sort-charsetszspecial-variable-pz
split-charzsplit-window-internalr� zstandard-case-tablezstandard-category-tablezstandard-syntax-tablezstart-kbd-macroz
start-processz stop-processzstore-kbd-macro-eventr� zstring-as-multibytezstring-as-unibytez string-byteszstring-collate-equalpzstring-collate-lesspz string-equalz string-lesspzstring-make-multibytezstring-make-unibytez string-matchzstring-to-charzstring-to-multibytezstring-to-numberzstring-to-syntaxzstring-to-unibytez string-widthZstringpz subr-nameZsubrpzsubst-char-in-regionzsubstitute-command-keyszsubstitute-in-file-namer� zsubstring-no-propertiesz
suspend-emacsz suspend-ttyzsuspicious-objectZsxhashzsymbol-functionz symbol-namez symbol-plistz symbol-valueZsymbolpz syntax-tablezsyntax-table-pz
system-groupszsystem-move-file-to-trashz system-namez system-usersr� zterminal-coding-systemz
terminal-listzterminal-live-pzterminal-local-valuez
terminal-namezterminal-parameterzterminal-parametersZterpriztest-completionztext-char-descriptionztext-properties-atztext-property-anyztext-property-not-allzthis-command-keyszthis-command-keys-vectorzthis-single-command-keysz this-single-command-raw-keysztime-addz time-less-pz
time-subtractztool-bar-get-system-styleztool-bar-heightztool-bar-pixel-widthz top-levelztrace-redisplayztrace-to-stderrztranslate-region-internalztranspose-regionsr� ztry-completionztty-display-color-cellsztty-display-color-pztty-no-underlinez(tty-suppress-bold-inverse-default-colorsz
tty-top-frameztty-typeztype-ofz
undo-boundaryzunencodable-char-positionz unhandled-file-name-directoryzunibyte-char-to-multibytezunibyte-stringz unicode-property-table-internalz
unify-charsetZuninternz unix-syncz
unlock-bufferZupcasezupcase-initialszupcase-initials-regionz
upcase-regionz upcase-wordzuse-global-mapz
use-local-mapzuser-full-namezuser-login-namezuser-real-login-namez
user-real-uidzuser-uidzvariable-binding-locusZvconcatr� zvector-or-char-table-pZvectorpzverify-visited-file-modtimezvertical-motionzvisible-frame-listzvisited-file-modtimezw16-get-clipboard-datazw16-selection-exists-pzw16-set-clipboard-datazw32-battery-statuszw32-default-color-mapzw32-define-rgb-colorz#w32-display-monitor-attributes-listzw32-frame-menu-bar-sizezw32-frame-rectzw32-get-clipboard-datazw32-get-codepage-charsetzw32-get-console-codepagez w32-get-console-output-codepagezw32-get-current-locale-idzw32-get-default-locale-idzw32-get-keyboard-layoutzw32-get-locale-infozw32-get-valid-codepagesz w32-get-valid-keyboard-layoutszw32-get-valid-locale-idszw32-has-winsockzw32-long-file-namezw32-reconstruct-hot-keyzw32-register-hot-keyzw32-registered-hot-keyszw32-selection-exists-pzw32-send-sys-commandzw32-set-clipboard-datazw32-set-console-codepagez w32-set-console-output-codepagezw32-set-current-localezw32-set-keyboard-layoutzw32-set-process-priorityzw32-shell-executezw32-short-file-namezw32-toggle-lock-keyzw32-unload-winsockzw32-unregister-hot-keyzw32-window-exists-pzw32notify-add-watchzw32notify-rm-watchzwaiting-for-user-input-pzwhere-is-internalZwidenz widget-applyz
widget-getz
widget-putzwindow-absolute-pixel-edgesz window-atzwindow-body-heightzwindow-body-widthzwindow-bottom-divider-widthz
window-bufferzwindow-combination-limitzwindow-configuration-framezwindow-configuration-pzwindow-dedicated-pzwindow-display-tablez window-edgesz
window-endz window-framezwindow-fringeszwindow-header-line-heightzwindow-hscrollz"window-inside-absolute-pixel-edgeszwindow-inside-edgeszwindow-inside-pixel-edgeszwindow-left-childzwindow-left-columnzwindow-line-heightz window-listz
window-list-1z
window-live-pzwindow-marginszwindow-minibuffer-pzwindow-mode-line-heightzwindow-new-normalzwindow-new-pixelzwindow-new-totalzwindow-next-bufferszwindow-next-siblingzwindow-normal-sizezwindow-old-pointzwindow-parameterzwindow-parametersz
window-parentzwindow-pixel-edgeszwindow-pixel-heightzwindow-pixel-leftzwindow-pixel-topzwindow-pixel-widthz window-pointzwindow-prev-bufferszwindow-prev-siblingz window-redisplay-end-triggerzwindow-resize-applyzwindow-resize-apply-totalzwindow-right-divider-widthzwindow-scroll-bar-heightzwindow-scroll-bar-widthzwindow-scroll-barsz window-startz
window-systemzwindow-text-heightzwindow-text-pixel-sizezwindow-text-widthzwindow-top-childzwindow-top-linezwindow-total-heightzwindow-total-widthzwindow-use-timezwindow-valid-pzwindow-vscrollZwindowpr� z write-regionzx-backspace-delete-keys-p�x-change-window-propertyrj �x-close-connectionrk �x-create-framerl �x-delete-window-propertyrm zx-disown-selection-internal�x-display-backing-storern �x-display-color-cellsro �x-display-grayscale-prp �x-display-listrq �x-display-mm-heightrr �x-display-mm-widthrs z!x-display-monitor-attributes-list�x-display-pixel-heightrt �x-display-pixel-widthru �x-display-planesrv �x-display-save-underrw �x-display-screensrx �x-display-visual-classry zx-family-fonts�
x-file-dialogrz rz z
x-focus-frame�x-frame-geometryr{ zx-get-atom-namezx-get-resourcezx-get-selection-internal�
x-hide-tipr| z x-list-fontszx-load-color-file�x-menu-bar-open-internalr} �x-open-connectionr~ zx-own-selection-internalzx-parse-geometryzx-popup-dialogz x-popup-menuzx-register-dnd-atom�
x-select-fontr zx-selection-exists-pzx-selection-owner-pzx-send-client-message�x-server-max-request-sizer� �x-server-vendorr� �x-server-versionr� �
x-show-tipr� �
x-synchronizer� zx-uses-old-gtk-dialog�x-window-propertyr� zx-wm-set-size-hint�xw-color-defined-pr� �xw-color-valuesr� �xw-display-color-pr� z yes-or-no-pzzlib-available-pzzlib-decompress-regionz
forward-point) Z defvaraliasr� r� zwith-no-warningsz
define-widgetzwith-electric-helprK ZdefaliasZfeaturep)z&allow-other-keysz&auxz&bodyz &environmentz&keyz &optionalz&restz&whole)z cl-assertz
cl-check-typer� rH z
user-error�warnc c s� dg}t �| ||�D ]�\}}}|tjkr�|tjkrB|tj|fV q|tjkrZ|t|fV q|tj krt|tj
|fV q|tj kr�|tj |fV q|tj
kr�|tj |fV q|tjkr�|tj|fV q|||fV qd S rN )r rO r r9 r rE r; rF r
�error_keywords� Exception� builtin_function_highlightedr: rG rH �PseudorR r r r rO s,
z%EmacsLispLexer.get_tokens_unprocessedrX r r r r� z
\?([^\\]|\\.)rY rZ r r[ r\ r] r^ z\[|\]r` z#\^\^?ra z#[bB][+-]?[01]+(/[01]+)?z#[oO][+-]?[0-7]+(/[0-7]+)?z&#[xX][+-]?[0-9a-fA-F]+(/[0-9a-fA-F]+)?z&#\d+r[+-]?[0-9a-zA-Z]+(/[0-9a-zA-Z]+)?rb rc z (,@|,|\.|:)rd re r_ r" r# r z[^"\\`]+z`%s\'z\\.z\\\n)r% rX r� N)-r& r' r( r) r* r+ r, r- r rg rh ri rj rk rl r� rG rF rE r� rH r� rO r r r r1 r r6 r r: r5 r r
r4 r3 r r; ro rp rq r7 r9 rr r< r r r r r � s�
1 <�
�� �C ��c @ sH e Zd ZdZdZdgZdgZddgZdZdZ d Z
d
Z e d d � eD ��Z
e
�d
d � e
D �� e
�dd � e D �� dZde Zde Zde Zdedfdejfdejfdefgdejfdejfdefdefd efd efd efd e j fd e j fded!fee j fd"e!j"feefd#efgd$�Z#d%d&� Z$d'd(� Z%d)d*� Z&d+d,� Z'd-d.� Z(d/d0� Z)d1S )2r z^
Lexer for `Shen <http://shenlanguage.org/>`_ source code.
.. versionadded:: 2.1
ZShenZshenz*.shenz text/x-shenzapplication/x-shen)
�datatyper r� Z defprologZdefccZsynonymsrV �package�typerY )r r| r% r Zcasesr! rh r� ZfreezerW r� r Zprotectr# r" r� r) �outputzprolog?z
trap-errorr� r� z/.r� z@pz@sz@v)�r� r; r5 r6 r7 r8 r9 r< r= r: z <-addressz<-vectorr Z absvectorz
absvector?z address->ZadjoinrA ZarityrD r rH zbound?�callZcdr Zcnr� r^ r� r� Zcutr r! zelement?r� zenable-type-theoryzerror-to-stringr� zeval-klZ exceptionr) ZexternalZfailzfail-ifr� �findallZfixZfstZfwhenr� zget-timer� ZhdZhdstrZhdv�headZ identical�implementationr� r zinclude-all-butZ
inferences�inputzinput+r� rd � intersectionr� �killZlanguager� �limitZlinereadZloadedZmacrore r� ZmapcanZ
maxinferences�modez n->string�nlr� r� r� Z occurrencesz occurs-checkr� �os�outZportZporters�pos�prZprecludezpreclude-all-butr� Zprofilezprofile-resultsZps�quitr� zread+r� r< zread-file-as-bytelistzread-file-as-stringri �releaser� rX r� �runrB r� z simple-errorZsndZ
specialiseZspy�stepZstinputZstoutput�strz string->nr� r� Zsubstr� Zsystemf�tailZtcztc?ZthawZtlZtlstrZtlvZtrackztuple?Z
undefmacrorM zunify!�unionZ unprofileZ unspecialiseZuntrackz variable?r� zvector->r� Zverifiedr� r� rx r� r� zy-or-n?)�where�skipr r� r
z<e>z<!>c c s | ]}|t fV qd S �N�r
�r �sr r r r � s zShenLexer.<genexpr>c c s | ]}|t jfV qd S r� )r r: r� r r r r � s c c s | ]}|t fV qd S r� r� r� r r r r � s z[\w!$%*+,<=>?/.\'@&#:-]z%s+z [a-z!$%%*+,<=>?/.\'@&#_-]%s*z[A-Z]%s*r r z
c#\d{1,3};z~[ARS%]z(?s).z(?s)\\\*.*?\*\\z\\\\.*r z_{5,}z={5,}z(;|:=|\||--?>|<--?)z (:-|:|\{|\})z[+-]*\d*\.\d+(e[+-]?\d+)?z[+-]*\d+r� z(true|false|<>|\[\])z
(\[|\]|\(|\)))r� r% c C s$ t �| |�}| �|�}| �|�}|S r� )r rO �_process_symbols�_process_declarations)rM rS r< r r r rO � s
z ShenLexer.get_tokens_unprocessedc C s |t tjtjfkS r� )r r r1 r2 )rM rV r r r � _relevant� s zShenLexer._relevantc c s| d}|D ]n\}}}|||fV | � |�r|rf|tkrf|| jkrf|}| �||�D ]\}}}|||fV qN|dkot|tk}qd S �NF�()r� r
rB �_process_declarationr )rM r< �
opening_parenrU rV rW � declarationr r r r� � s
� z ShenLexer._process_declarationsc c sp d}|D ]b\}}}|r6|t tjfkr6| j�|tj�}n|t krN|| jkrNtj}|dko\|tk}|||fV qd S r� ) r r r9 �MAPPINGSr| r; �BUILTINS_ANYWHEREr: r )rM r< r� rU rV rW r r r r� � s zShenLexer._process_symbolsc c s� |D ]$\}}}| � |�r q*|||fV q|dkr�d}|tkrDtjn|}|||fV |D ]B\}}}|rt|tkrttj}|||fV | � |�rX|tko�|dk}qXn�|dkr�|tkr�tjn|}|||fV n�|dk�rp|tkr�tjn|}|||fV |D ](\}}}| � |��r �q |||fV q�|dk�rb|tk�rb|t|fV | �|�D ]\}}}|||fV �qFn |||fV n |tk�r�tjn|}|||fV d S )Nr� FrY r� r �{) r� r r
rP r r r; r �_process_signature)rM r� r< rU rV rW Zprev_was_colonr r r r� � s@
z ShenLexer._process_declarationc c sd |D ]Z\}}}|t kr0|dkr0|t|fV d S |t tjfkrR|�� rLtjntj}|||fV qd S )N�})r r r r; �istitler9 r
rP )rM r< rU rV rW r r r r� s z ShenLexer._process_signatureN)*r& r' r( r) r* r+ r, r- rB r? ZBUILTINSr� �dictr� �updateZvalid_symbol_charsr0 Z symbol_nameZvariabler r ZInterpolr r2 r1 r r r r
r3 r4 r r9 r
r� r< rO r� r� r� r� r� r r r r r � sV ���
&c @ s� e Zd ZdZdZdgZdgZg ZdZdZ dZ
dd e j fd
e
fd ejfd ejfd
efde
ejfdejfdejfdefeedd�efde
ejfde
ejfee ddd�ejfde
ejfe
ejfde fde fgiZ dS )r za
A CPSA lexer based on the CPSA language as of version 2.2.12
.. versionadded:: 2.1
ZCPSAZcpsaz*.cpsa)Zherald�varsr� r Z defprotocolZdefroleZ defskeletonZ defstrandZ deflistenerznon-origz uniq-origz pen-non-origZprecedesrL r� Zrecvr* rS ZskeyZakey�dataZmesg) �cat�encr� ZprivkZpubkZinvkZltk�genr� r� r% r r r r r r r r
r rS r� r r r r� r r N) r& r' r( r) r* r+ r, r- r r r0 r r1 r r
r3 r4 r r5 r6 r r7 r r r
r9 r: r; r r< r r r r r & s8 ��c @ s� e Zd ZdZdZdgZdgZg ZdZdZ dZ
dZ d Z d
Z
d Zd Zd
ZdZdedfdedfde ejfde ejfde ejfde ejfde ejfde ejfde ejfde ejfde ejfd e ejfd e d e d e d e d! ejfee d"d#�efeed"d#�ejfed$�eejfgd%e ejfd&ej fd'e fee d"d#�efee
d"d#�ejfed$�eejfgd(e j fd)e fd*e!j"fd+e!j#fd,e!fd-efd.ej$feed"d#�efee d"d#�ejfd/efg
ee
d"d0d1�edfed2�gd3�Z%d4S )5r a+ An xtlang lexer for the `Extempore programming environment
<http://extempore.moso.com.au>`_.
This is a mixture of Scheme and xtlang, really. Keyword lists are
taken from the Extempore Emacs mode
(https://github.com/extemporelang/extempore-emacs-mode)
.. versionadded:: 2.2
�xtlangZ extemporez*.xtm) r r r r r! r" r# r% r( r+ r� r� )
r) r* r. r/ r0 r� r$ r& r' r- ) z bind-funczbind-valzbind-libz bind-typez
bind-aliasz bind-polyz
bind-dylibz
bind-lib-funcz bind-lib-val)Zletz�memzone�castZconvertr# Zdoloop)Jr5 r6 r7 r8 r9 r: r; r< r= r r> r? r@ rA rB rC rD rE rF rG rH rI rJ rK rL rM rN rO rP rQ rR rS rT rU rV r\ r] r^ r_ r` ra rb rc rd re rf rg rh ri rj rk rl r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r r5 )�rW rX rY rZ r[ rm rn ro rp rq rr rs rt ru rv rw rx ry rz 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� 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� 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� 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� r� r� r� r� r� )oZtoStringzafill!zpfill!ztfill!Ztbindzvfill!z array-fill!z
pointer-fill!z tuple-fill!r� Zfreer �tupler� r zcset!Zcrefr
Zborz ang-namesr r r4 r� Zsprintfr� r5 zpset!zpref-ptrzvset!Zvrefzaset!r[ zaref-ptrztset!Ztrefztref-ptrZsallocZhallocZzallocZallocZscheduler� r� r� r� r� rC r? rG r� r� r� rl r� r� Z llvm_printfZ push_zoneZpop_zoner� r Z llvm_sprintfz
make-arrayz
array-set!z array-refz
array-ref-ptrz pointer-set!z pointer-refzpointer-ref-ptrz stack-allocz
heap-allocz
zone-allocz
make-tuplez
tuple-set!z tuple-refz
tuple-ref-ptrz closure-set!z closure-refZprefZpdrefZ impc_nullZbitcastr� Zifretzret->zclrun->z
make-env-zonezmake-envz<>ZdtofZftodZi1tofZi1todZi1toi8Zi1toi32Zi1toi64Zi8tofZi8todZi8toi1Zi8toi32Zi8toi64Zi32tofZi32todZi32toi1Zi32toi8Zi32toi64Zi64tofZi64todZi64toi1Zi64toi8Zi64toi32r� z[\w.!-]+z[]{}[\w<>,*/|!-]+r" r r# r z(?<=bind-func\s)z(?<=bind-val\s)z(?<=bind-type\s)z(?<=bind-alias\s)z(?<=bind-poly\s)z(?<=bind-lib\s)z(?<=bind-dylib\s)z(?<=bind-lib-func\s)z(?<=bind-lib-val\s)rY z(<z>|\|z\||/z/|z\*)\**r )r� �commonr r r r r r r z(#b|#o|#x)[\d.]+r r
r rS r� r )r� r r� r% N)&r& r' r( r) r* r+ r, r- Zcommon_keywordsZscheme_keywordsZxtlang_bind_keywordsZxtlang_keywordsZcommon_functionsZscheme_functionsZxtlang_functionsZvalid_scheme_nameZvalid_xtlang_nameZvalid_xtlang_typer r r; r
rP r r r9 r r5 r6 r r r1 r r
r3 r4 r7 r< r r r r r t s�
# ������# �� ���c @ s� e Zd ZdZdZddgZdgZdZdZdZ d d
e
j fd e fd e
jfd
e
jfdefdefde ejfeedd�efeedd�ejfdejfe ejfdefdefdefgiZdS )r z�A lexer for the `Fennel programming language <https://fennel-lang.org>`_.
Fennel compiles to Lua, so all the Lua builtins are recognized as well
as the special forms that are particular to the Fennel compiler.
.. versionadded:: 2.3
ZFennelZfennelZfnlz*.fnl).zrequire-macrosz
eval-compilerr) r� r rx Zeachrs r� r r� r� r. �varr� r% ZtsetZdotoz
set-forcibly!r� �partialr� r# r" r� r� r4 �.r6 z..r r7 r5 r r8 r< r9 r= r: r; z~=�#r� rY rt ru )'Z_GZ_VERSION�arg�assertZbit32Zcollectgarbage� coroutiner Zdofiler� ZgetfenvZ getmetatable�ioZipairsr� ZloadfileZ
loadstringZmath�nextr� r� ZpairsZpcallr� ZrawequalZrawgetZrawlenZrawsetr� rE ZsetfenvZ setmetatabler� �tableZtonumberZtostringr� rO Zxpcallz2[a-zA-Z_!$%&*+/:<=>?@^~|-][\w!$%&*+/:<=>?@^~|\.-]*r% r r� r r r z'(\\\\|\\'|[^'])*'rY r r� z\.\.\.r r r� N)r& r' r( r) r* r+ r, rF r/ r0 r r1 r r
r3 r4 r r5 r r
r r: r9 r r< r r r r r @
s0
��) r) r Zpygments.lexerr r r r r Zpygments.tokenr r r r
r r r
r r r Zpygments.lexers.pythonr �__all__r r r r r r r r r r r r r r �<module> sN
0 � 3q 5 'N M