|
Server : Apache System : Linux iad1-shared-b8-43 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64 User : dh_edsupp ( 6597262) PHP Version : 8.2.26 Disable Function : NONE Directory : /lib/python3/dist-packages/pygments/lexers/__pycache__/ |
Upload File : |
o
���a�- � @ s d Z ddlZddlmZmZmZmZmZ ddlm Z m
Z
m Z m Z m
Z
mZmZmZmZmZ ddlmZ g d�ZG dd� de�ZG d d
� d
e�ZG d d � d e�ZG d
d� de�ZG dd� de�ZG dd� de�ZG dd� de�Z G dd� de�Z G dd� de�Z G dd� de�Z dS )z�
pygments.lexers.lisp
~~~~~~~~~~~~~~~~~~~~
Lexers for Lispy languages.
:copyright: Copyright 2006-2021 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 @ s� e Zd ZdZdZddgZddgZddgZej ej
B Z d Z d
Z
d Zed �ged
�gdejfdejdfdedfdefdefdejdfdejdfdedfde ejdfdejdfdejdfd e fd d � d d � e D �� e dfd!e ej dfd"e ej dfd#d � d$d � e
D �� ej dfd%e ej!dfeej dfd&e"d fd'e"d(fgdejd)fd*ejdfd+ejfd,ejfgd-ed)fd.edfd/efgd0�Z#d1S )2r 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
�Scheme�scheme�scmz*.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!$%&*+,/:<=>?@^~|-]+� scheme-root�valuez;.*?$�#\|�multiline-commentz#;\s*\(�commented-formz#!r6rs�\s+�
-?\d+\.\d+�#pop�-?\d+�"(\\\\|\\[^\\]|[^"\\])*"�'�' #\\([()/'\"._!§$%& ?=+-]|[a-zA-Z0-9]+)�(#t|#f)�('|#|`|,@|,|\.)z(%s)�|c c � � | ]
}t �|�d V qdS �� N��re�escape��.0�entry� r �6/usr/lib/python3/dist-packages/pygments/lexers/lisp.py� <genexpr>� � � zSchemeLexer.<genexpr>�(?<='\()�(?<=#\()z (?<=\()(%s)c c r r r r r r r r � r �(?<=\()z\(|\[z\)|\]z#pop:3�#push�\|#�[^|#]+�[|#]�\(�\)�[^()]+)�rootr r r r N)$�__name__�
__module__� __qualname__�__doc__�name�aliases� filenames� mimetypesr �DOTALL� MULTILINE�flags�keywords�builtins�
valid_namer r �Single� Multiliner r
�Float�Integerr �Symbol�Charr �Constantr �joinr
�Variable�Builtin�Functionr �tokensr r r r r sf
,��
��
�
@
��
�r c @ s~ e Zd ZdZdZg d�ZddgZdgZej ej
B Z dZ e d Z
d Zd
e e
f Zd d � Zd
d� Zed�gdejdfdejdfdejfdejfgdejdfdejdfdejfgg def�dejf�dejdf�d ejf�d ef�d e ejf�d e ejf�d e ejf�d!e ejf�d!ef�d"ef�d#e e j f�d$e e f�d%e e j f�d&e ej f�d'e ej f�d(edf�d)e j!f�d*e ejf�d+ef�d,e"j#f�d-e j$f�d.e j%f�d/e j&f�d0e f�d1e'e e(�df�d2e'e j!e(�df�d3e'e j!e(�df�d4e j!f�d5ef�d6ef�d7e d8 ejd9f�d:ef�d;ef�d<e e"j)f�d=e d= e"j*j+f�ee"j*f�de(df�de(df�d>�Z,d?S )@r z9
A Common Lisp lexer.
.. versionadded:: 0.9
z Common Lisp)z common-lisp�cl�lispz*.clz*.lispztext/x-common-lispz \\.|[\w!$%&*+-/<=>?@\[\]^{}~]�|[#.:]z(?=[ "()\'\n,;`])z(\|[^|]+\||(?:%s)(?:%s)*)c K sd ddl m}m}m}m}m}m}m} || _|| _ || _
|| _ || _ || _
|| _tj| fi |�� d S )Nr )�BUILTIN_FUNCTIONS�
SPECIAL_FORMS�MACROS�LAMBDA_LIST_KEYWORDS� DECLARATIONS�
BUILTIN_TYPES�BUILTIN_CLASSES)� pygments.lexers._cl_builtinsrF rG rH rI rJ rK rL �builtin_function�
special_forms�macros�lambda_list_keywords� declarations�
builtin_types�builtin_classesr �__init__) �self�optionsrF rG rH rI rJ rK rL r r r rU � s $zCommonLispLexer.__init__c c s� � dg}t �| ||�D ]h\}}}|tju rm|| jv r"|tj|fV q || jv r.|t|fV q || jv r;|tj|fV q || j v rG|t|fV q || j
v rS|t|fV q || j v r`|tj |fV q || j
v rm|tj|fV q |||fV q d S �Nr( )r �get_tokens_unprocessedr r? rN r@ rO r
rP rQ rR rS �TyperT �Class�rV �text�stack�index�tokenr r r r rY � s6 �
�z&CommonLispLexer.get_tokens_unprocessed�bodyr 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 ra N)-r) r* r+ r, r- r. r/ r0 r �
IGNORECASEr2 r3 �nonmacro� constituent�
terminated�symbolrU rY r r r8 �Preprocr r7 �Specialr r; r r
r: r9 r< r �Otherr rA �Bin�Oct�Hexr r r= r? �GlobalrB r r r r r � s�
�
�
���
� �� � � � ��� �
���� � �"�%� (�+�.�1�4�7�:�=�@�C�F�I�J�M�P�S� V�Y�Z�]�^�
�r 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
�Hy�hylangz*.hyz text/x-hyzapplication/x-hy)%r# �for�->�->>r^ rm �first�restr' �when�unless�importr+ �progn�get�slicerF zwith-decorator�,� list_comp�kwapply�~�is�inzis-notznot-inr0 r1 zunquote-splicer/ r z<<=z>>=�foreach�while�eval-and-compile�eval-when-compile)�def�defn�defun�defmacro�defclassr �fn�setvr )�cycle�dec�distinct�dropr� �filter�incz instance?z iterable?�iteratez iterator?zneg?znone?�nthznumeric?r� zpos?�remove�repeat�
repeatedly�take�take_nth�
take_whiler z(?!#)[\w!$%*+<=>?/.#:-]+c C s t | dd�S )Nr ��suffix)r )�entriesr r r �
_multi_escape� s zHyLexer._multi_escaperb �[,\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 �(\[|\])�(\{|\})�(\(|\))r4 r5 )r( r� r� c C s d| v sd| v r
dS d S )Nz(import z(defn g�������?r )r] r r r � analyse_text� s �zHyLexer.analyse_textN)(r) r* r+ r, r- r. r/ r0 rO rR � hy_builtins�hy_corer5 r6 r� r r7 r r
r9 r: ry rz r r; r< r �Docr r r
� Declarationr r@ rA r? r r rB r� r r r r r s sR
�;� @r c @ s e Zd ZdZdZddgZg d�ZddgZdZd Z d
Z
d Z d Z d
e Z
dZdZdZde Zdeef Zdeef ZdZdeef Zdeef Ze efdedfgdefdejfdejdfd 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 fd.e
e)j*d fd/e+e)j,e'j,�fd0e)j,d1fd2e e-fd3e
e-d4fgd5e-fe
e"j.d fd6efe/d �ge e0d fge1d7�d8e e)d4fd9e-d:fd;e e)d:fe
e0d<fe2ed=d>e d?�e)d fe2e d=d>e d?�e'j3d fe
e'd fe1d@�g e1dA�dedfge1d7�dBe-dCfdDe e)dCfe
e0dEfe1d@�ge1dA�dedFfge1d7�e
e0dGfe1d@�ge1dA�ded1fgdejdHfdIejd fdJejfgdKe"j#d fdLe"j4fdMe"j#fgdN� Z5dOS )Pr z�
Lexer for `Racket <http://racket-lang.org/>`_ source code (formerly
known as PLT Scheme).
.. versionadded:: 1.6
�Racket�racket�rkt)z*.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-referencer z->*z->*mz->dz->dmz->iz->mz...z:do-in�==r. �_�absent�abstractzall-defined-outz all-from-outr$ �any�augmentzaugment*z
augment-finalzaugment-final*�augridezaugride*r* zbegin-for-syntax�begin0r& 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/dc�contractz contract-outzcontract-struct�
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/derivedr3 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-out�export�extendsz failure-cont�falsezfalse/c�fieldz field-bound?�filezflat-murec-contractzflat-rec-contractr~ 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:stream�genericz get-fieldzhash/dcr! �impliesr� r zinclude-at/relative-toz include-at/relative-to/readerzinclude/reader�inheritz
inherit-fieldz
inherit/innerz
inherit/super�initz init-dependz
init-fieldz init-rest�inner�inspect� instantiate� interfacez
interface*zinvariant-assertionz invoke-unitzinvoke-unit/inferr �lazyr' r( z let*-valuesr4 z let-syntaxesz
let-valueszlet/cczlet/ecr) r5 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-key�mixin�modulezmodule*zmodule+�nand�new�norzobject-contractzobject/c�onlyzonly-inz only-meta-in�openzopt/cr% �overmentz overment*�overridez override*zoverride-finalzoverride-final*� parameterizez
parameterize*zparameterize-breakzparametric->/c�placezplace*z
place/context�planet�prefixz prefix-inz
prefix-out�privatezprivate*z prompt-tag/cz protect-out�providezprovide-signature-elementszprovide/contract�publiczpublic*z public-finalz
public-final*�pubmentzpubment*r0 � 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!�shared�streamzstream*z stream-cons�structzstruct*z struct-copyzstruct-field-indexz
struct-outzstruct/cz
struct/ctcz struct/dc�submod�superzsuper-instantiatezsuper-make-objectz super-new�syntaxz syntax-casez syntax-case*zsyntax-id-rulesr6 z
syntax/loc�tag�thiszthis%�thunkzthunk*�timezunconstrained-domain->�unitzunit-from-contextzunit/czunit/new-import-exportzunit/sr� r1 r2 �unsyntaxzunsyntax-splicingz values/dropr� zwith-continuation-markz
with-contractz with-contract-continuation-markz
with-handlerszwith-handlers*z with-methodz with-syntax� λ(� r7 z*list/cr8 r9 r: r; z</cr< z<=/cr= z=/cr> z>/cr? z>=/czabort-current-continuationr@ zabsolute-path?rA z add-between�add1z alarm-evtz
always-evtzand/c�andmaprB zany/crC zappend*z
append-maprD �argmax�argminzarithmetic-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?rE �assfrF rG rH rI zbad-number-of-results�bannerz
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=?rJ zbound-identifier=?�boxzbox-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?rK rL rM rN rO rP rQ rR rS rT rU rV rW rX zcall-in-nested-threadz call-with-atomic-output-filez call-with-break-parameterizationz!call-with-composable-continuationz call-with-continuation-barrierz call-with-continuation-promptrY z*call-with-default-reading-parameterizationz call-with-escape-continuationzcall-with-exception-handlerzcall-with-file-lock/timeoutz%call-with-immediate-continuation-markzcall-with-input-bytesrZ zcall-with-input-file*zcall-with-input-stringzcall-with-output-bytesr[ zcall-with-output-file*zcall-with-output-stringzcall-with-parameterizationzcall-with-semaphorez call-with-semaphore/enable-breakr\ r] zcall/ecr^ zcartesian-productr_ r` ra rb rc rd re rf rg rh ri rj rk rl rm rn 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?ro rp z char-blank?rq rr rs rt ru rv z
char-foldcasezchar-general-categoryz
char-graphic?zchar-inz char-in/czchar-iso-control?rw rx zchar-punctuation?ry zchar-symbolic?zchar-title-case?zchar-titlecaserz r{ zchar-utf-8-lengthr| 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� �compose�compose1�conjoin� conjugater� zcons/c�cons?�constzcontinuation-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�curry�curryrzcustodian-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-list�disjoinr� z
display-lineszdisplay-lines-to-filezdisplay-to-file� displaylnzdouble-flonum?r� zdrop-common-prefixz
drop-right�dropfz 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� �eighth�emptyzempty-sequencez empty-stream�empty?zenvironment-variables-copyzenvironment-variables-nameszenvironment-variables-refzenvironment-variables-set!zenvironment-variables?�eofzeof-evtr� zephemeron-valuez
ephemeron?�eprintfzeq-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-handler�exnzexn-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-names�fifthz 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-path�findfr� z
first-or/czfixnum?z
flat-contractzflat-contract-predicatezflat-contract-property?zflat-contract?zflat-named-contract�flattenzfloating-point-bytes->realzflonum?r� z flush-outputz
fold-files�foldl�foldrr� r� �format�fourth�fprintfzfree-identifier=?zfree-label-identifier=?zfree-template-identifier=?z free-transformer-identifier=?zfsemaphore-countzfsemaphore-postzfsemaphore-try-wait?zfsemaphore-waitz fsemaphore?�futurezfuture?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?�hasheq�hasheqvzidentifier-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?�listofr� 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� �mcar�mcdr�mconsr� zmember-name-key-hash-codezmember-name-key=?zmember-name-key?�memfr� 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� �ninthznon-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-magnitude�ormapzother-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?�pizpi.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-mode�pregexpzpregexp?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-port�regexpz 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-duplicates�remqzremq*�remvzremv*zrename-contractzrename-file-or-directoryzrename-transformer-targetzrename-transformer?z replace-evtz reroot-pathz resolve-pathzresolved-module-path-namezresolved-module-path?r� 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?�seteq�seteqv�seventh�sgnz shared-bytesz
shell-executezshrink-path-wrt�shufflezsimple-form-pathz
simplify-pathr� zsingle-flonum?�sinh�sixthzskip-projection-wrapper?�sleepzsome-system-path->string�sortzspecial-comment-valuezspecial-comment?zspecial-filter-input-portzsplit-atzsplit-at-rightzsplit-common-prefixz
split-pathz splitf-atzsplitf-at-right�sqrr� �srcloczsrcloc->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?�sub1�subbytesz 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-right�takefz 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-transfer�tenthzterminal-port?zthe-unsupplied-arg�third�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-apply�touchztransplant-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?�unboxzuncaught-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� �vectorof�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-file�writeln�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)#;|#*z;[^\n\r\x85\u2028\u2029]*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 rr z`|,@?z[|\\]�datumz
quote(?=[%s])re )r �quasiquoted-datumzquasiquote(?=[%s]))r �
unquoted-listz(?u)z(?=[%s])�r� r� �datum*r� z,@?)r rp zunquote(-splicing)?(?=[%s]))r �quasiquoted-listrt )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( rs rw r� rp ru rt rx rr ry rq r� N)6r) r* r+ r, r- r. r/ r0 � _keywords� _builtins�_opening_parenthesis�_closing_parenthesis� _delimiters�_symbol�_exact_decimal_prefix� _exponent�_inexact_simple_no_hashes�_inexact_simple�_inexact_normal_no_hashes�_inexact_normal�_inexact_special�
_inexact_real�_inexact_unsignedr r r r7 r8 r
r: r9 rx ry rz r �Double�Heredocr< �Regexr r= r
r� r � Namespacer r; r r r r r@ �EscaperB r r r r r � s" a ,�� � �
�����������
�
��D
���������� ���
�
��
�r c
@ s� e Zd ZdZdZdgZg d�ZddgZej ej
B ej B Z dZ
dZd ejfd
ejfd ejfd efd
efdedfdedfdefee
dd�efde ejfeejfdefg dedfdedfdefgdedfgd �Zd S ) r zl
For `newLISP. <http://www.newlisp.org/>`_ source code (version 10.3.0).
.. versionadded:: 1.5
�NewLisp�newlisp)z*.lspz*.nlz*.kifztext/x-newlispzapplication/x-newlisp(� �^z--r9 rc �!z!=�?�@r7 r: �&�%r8 z++r; �<<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@ rA �acosh�add�address�ambr$ z append-filerC rD �argsz
array-listzarray?�arrayrE �asinhrF rI �atan2�atanhzatom?z
base64-decz
base64-encz bayes-queryz bayes-trainr* �beta�betai�bind�binomial�bits�callbackr& �catch�ceilz
change-dir�char�chopr[ �clean�closez
command-eventr# r� �constantzcontext?�contextr
�copyr� r r �cpymem�crc32z crit-chi2zcrit-zz current-liner
z date-listz
date-parsez
date-valuer �debugr� zdef-newr z define-macror r z
delete-url�delete�destroy�det�device�
differencez
directory?� directory�divzdo-untilzdo-while�doargs�dolist�dostring�dotimes�dotree�dump�dupr �encryptz ends-with�env�erfz error-eventz eval-stringr� �exec�existsr r� r �explode�extend�factor�fftz file-infozfile?r� zfind-all�findr� �flatzfloat?�floatr� �fltr� zfor-allr~ �forkr" �fv�gammai�gammalnr� zget-charz get-floatzget-intzget-longz
get-stringzget-urlzglobal?�globalzif-notr! �ifftr� r� r_ zinf?�intr� �integer� intersect�invert�irrr> z lambda-macrozlambda?r z
last-errorr, zlegal?r� r' �letex�letnr� r� r� r� r� �lookupz
lower-casezmacro?z main-args�MAINzmake-dirr� �matr� r� r� r� �modr� �mul�multiplyzNaN?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?�nil�normalr� �now�nper�npvr� r� r� r� r% �ostype�packz
parse-date�parse�peek�pipe�pmtz pop-assoc�popzpost-url�powr� r; r< r= r? z prob-chi2zprob-zr@ z prompt-eventz
protected?�pushzput-url�pvzquote?r/ �randrC � randomizer� r� z read-expr� read-filezread-keyrF z read-utf8z reader-eventz real-path�receivezref-all�refz
regex-comp�regexz
remove-dir� rename-file�replace�resetr� r� �rotater� �save�search�seed�seek�selectrV � semaphorer� �sequence�seriesz
set-localez set-ref-allzset-refrN �setf�setqrR �share�signal�silentr� rT rV r� rW �source�spawnr� z starts-withr� r� �sub�swap�symr� r] r^ z sys-errorzsys-infor� ra �termz throw-error�throwz time-of-dayr� �timerz
title-caseztrace-highlight�trace� transpose�Tree�trimztrue?rf �unicode�unify�uniquer� �unpack�untilz
upper-case�utf8�utf8len�uuidzwait-pidr� r� r� r� z
write-filez
write-linez
xfer-eventz xml-errorz xml-parsez
xml-type-tagsr z$([\w!$%&*+.,/<=>?@^~|-])+|(\[.*?\])+z#!(.*?)$rb z#.*$r r z\{� bracestringz \[text\]*� tagstringz('|:)�\br� r r� r! z\}r z[^{}]+z(?s)(.*?)(\[/text\]))r( r r N) r) r* r+ r, r- r. r/ r0 r rp r2 �UNICODEr3 r5 r6 r ru r7 r r r r r
r r? r; r rB r r r r r � s> >
� �'��
�r c @ s� e Zd ZdZdZg d�ZdgZddgZej Z
dZ e d Z d Z
d
e e f Zh d �Zh d �Zh d
�Zh d�Zh d�Zh d�Zdd� Zed�gdefdejfdedfdejfde e j fde ej fde ej fde 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 dfd.e#dfd/e#d0fg d1efd2e ej fd efd3efd4efded0fgd5�Z+d6S )7r z�
An ELisp lexer, parsing a stream and outputting the tokens
needed to highlight elisp code.
.. versionadded:: 2.1
� EmacsLisp)z
emacs-lisp�elisp�emacsz*.elz text/x-elispzapplication/x-elispz\\.|[\w!$%&*+-/<=>?@^{}~|]rE z(?=[ "()\]\'\n,;`])z((?:%s)(?:%s)*)>� �do*�cl-do�cl-do*�cl-the�cl-case�cl-decf�cl-flet�cl-incf�cl-letf�cl-loop�cl-remf�cl-block�cl-callf�cl-defun�cl-ecase�cl-flet*�cl-letf*�cl-progv�cl-psetf�cl-psetq� cl-callf2� cl-dolist� cl-labels� cl-return� cl-shiftf� eval-when� pcase-let�
cl-declaim�
cl-declare�
cl-deftype�
cl-dotimes�
cl-locally�
cl-pushnew�
cl-rotatef�
cl-tagbody�
do-symbols�
pcase-let*�
setq-local�
with-slots� cl-defmacro� cl-defsubst� cl-function� cl-macrolet� cl-typecase� ert-deftest� lexical-let� return-from� track-mouse� use-package� cl-defstruct� cl-etypecase� cl-eval-when� defvar-local� dont-compile� lexical-let*� oref-default� oset-default� pcase-dolist� with-timeout�
cl-do-symbols�
define-advice�
ignore-errors�cl-return-from�do-all-symbols�pcase-defmacro�while-no-input�with-temp-file�def-edebug-spec�define-skeleton�load-time-value�save-match-data�with-case-table�with-file-modes�with-local-quit�declare-function�delay-mode-hooks�pcase-exhaustive�with-temp-buffer�cl-do-all-symbols�define-minor-mode�with-syntax-table�with-temp-message�with-wrapper-hook�cl-load-time-value�cl-symbol-macrolet�destructuring-bind�atomic-change-group�define-alternatives�define-derived-mode�define-generic-mode�define-modify-macro�multiple-value-bind�multiple-value-setq�with-category-table�with-current-buffer�with-demoted-errors�with-selected-frame�define-setf-expander�save-selected-window�with-coding-priority�with-eval-after-load�with-selected-window�cl-destructuring-bind�define-compiler-macro�save-window-excursion�cl-multiple-value-bind�cl-multiple-value-setq�cl-define-compiler-macro�define-global-minor-mode�with-tramp-file-property�with-silent-modifications�combine-after-change-calls�define-obsolete-face-alias�with-output-to-temp-buffer�condition-case-unless-debug�with-parsed-tramp-file-name� define-globalized-minor-mode� with-tramp-progress-reporter� define-obsolete-function-alias� define-obsolete-variable-alias� dotimes-with-progress-reporter� with-tramp-connection-propertyr+ �rxr� r& �decf�flet�incf�loop�oref�osetr� rJ r r� �blockr� �ecase�pcase�progv�psetf�psetqr� �labelsr r) �return�shiftfr� �declaim�declare�defface�defsetf�deftyper� �locally�pushnew�rotatefr� �defgroupr� �defsubst�deftheme�macrolet�noreturn�typecase� defadvice� defcustom� defmethod� defstruct� etypecase�
defgenericr� r� rk > �
subr-arity� setq-default�condition-case�save-excursion�unwind-protect�save-restriction�save-current-bufferr! r% r$ r' r# r r� �prog1�prog2r� r/ r� �defvar�defconst�function� interactiver( >� �/=�1+�1-�font-at�string<�string=�string>�type-of�car-safe�cdr-safe�file-acl�font-get�font-put�gap-size�get-byte�max-char�time-add�tty-type�user-uid� byte-code� dump-face� emacs-pid� face-font� field-end� find-font� font-info� font-spec� gc-status� goto-char� group-gid� indent-to� make-char� match-end� open-font� plist-get� plist-put� point-max� point-min� run-hooks� scroll-up� sleep-for� subr-name� top-level� unix-sync� window-at�
char-after�
char-equal�
char-width�
close-font�
copy-alist�
define-key�
dump-emacs�
file-modes�
float-time�
frame-list�
get-buffer�
gnutls-bye�
image-size�
kill-emacs�
list-fonts�
looking-at�
lookup-key�
map-keymap�
match-data�
next-frame�
process-id�
query-font�
read-event�
region-end�
resume-tty�
scan-lists�
scan-sexps�
set-buffer�
set-marker�
split-char�
widget-get�
widget-put�
window-end�
x-hide-tip�
x-show-tip� access-file� bool-vector� buffer-list� buffer-name� buffer-size� ccl-execute� char-before� char-syntax� copy-keymap� copy-marker� decode-char� decode-time� delete-char� draw-string� dump-colors� encode-char� encode-time� end-of-line� eval-buffer� eval-region� frame-focus� get-process� gnutls-boot� image-flush� insert-byte� insert-char� intern-soft� invisible-p� iso-charset� key-binding� kill-buffer� locale-info� lock-buffer� lower-frame� make-keymap� make-marker� make-symbol� mark-marker� memory-info� message-box� new-fontset� next-window� overlay-end� overlay-get� overlay-put� overlays-at� overlays-in� posn-at-x-y� raise-frame� read-buffer� recent-keys� safe-length� scroll-down� scroll-left� secure-hash� set-default� suspend-tty� symbol-name� system-name� time-less-p� upcase-word� window-list� yes-or-no-p� assoc-string� call-process� case-table-p� char-charset� char-table-p� clear-string� color-gray-p� current-time� delete-field� delete-frame� do-auto-save� erase-buffer� field-string� font-match-p� fontset-font� fontset-info� fontset-list� forward-char� forward-line� forward-word� frame-live-p� gap-position� hash-table-p� image-mask-p� kill-process� load-average� lookup-image� make-overlay� memory-limit� move-overlay� msdos-memget� msdos-memput� other-buffer� plist-member� point-marker� process-list� process-mark� process-name� process-type� quit-process� read-command� redraw-frame� scroll-right� select-frame� set-file-acl� stop-process� string-bytes� string-equal� string-lessp� string-match� string-width� symbol-plist� symbol-value� syntax-table� system-users� widget-apply� window-edges� window-frame� window-point� window-start� write-region� x-list-fonts� x-popup-menu�
backward-char�
bitmap-spec-p�
bool-vector-p�
buffer-live-p�
buffer-string�
ccl-program-p�
charset-after�
charset-plist�
copy-sequence�
default-value�
delete-region�
discard-input�
downcase-word�
end-kbd-macro�
file-exists-p�
file-locked-p�
forward-point�
get-file-char�
gnutls-deinit�
gnutls-errorp�
iconify-frame�
keymap-parent�
keymap-prompt�
lax-plist-get�
lax-plist-put�
marker-buffer�
msdos-mouse-p�
overlay-lists�
overlay-start�
posn-at-point�
process-plist�
query-fontset�
read-function�
read-variable�
rename-buffer�
replace-match�
select-window�
set-quit-char�
sort-charsets�
start-process�
suspend-emacs�
system-groups�
terminal-list�
terminal-name�
time-subtract�
tty-top-frame�
undo-boundary�
unify-charset�
unlock-buffer�
upcase-region�
use-local-map�
user-real-uid�
window-buffer�
window-list-1�
window-live-p�
window-parent�
window-system�
x-file-dialog�
x-focus-frame�
x-select-font�
x-synchronize�backtrace-eval�byte-to-string�category-table�char-to-string�color-distance�compute-motion�current-buffer�current-column�dbus--init-bus�default-boundp�delete-overlay�delete-process�dump-glyph-row�fetch-bytecode�file-regular-p�file-symlink-p�following-char�font-drive-otf�font-xlfd-name�frame-terminal�function-equal�gfile-rm-watch�gpm-mouse-stop�group-real-gid�image-metadata�make-byte-code�make-temp-name�map-char-table�matching-paren�message-or-box�mouse-position�move-to-column�overlay-buffer�position-bytes�preceding-char�previous-frame�process-buffer�process-filter�process-status�recent-doskeys�recursive-edit�redraw-display�search-forward�selected-frame�set-case-table�set-file-modes�set-file-times�set-frame-size�set-input-mode�set-match-data�signal-process�string-to-char�syntax-table-p�try-completion�unibyte-string�use-global-map�user-full-name�w32-frame-rect�window-fringes�window-hscroll�window-margins�window-valid-p�window-vscroll�x-create-frame�x-display-list�x-family-fonts�x-get-resource�x-popup-dialog�all-completions�backtrace-debug�backtrace-frame�bool-vector-not�capitalize-word�coding-system-p�compare-strings�completing-read�copy-hash-table�current-message�define-category�delete-terminal�describe-vector�directory-files�downcase-region�field-beginning�file-attributes�file-readable-p�file-writable-p�font-get-glyphs�forward-comment�frame-parameter�frame-text-cols�frame-visible-p�garbage-collect�get-file-buffer�getenv-internal�gfile-add-watch�gpm-mouse-start�hash-table-size�hash-table-test�input-pending-p�invocation-name�key-description�make-char-table�make-hash-table�marker-position�match-beginning�open-termscript�previous-window�prin1-to-string�process-command�process-contact�recursion-depth�search-backward�selected-window�set-cursor-size�set-frame-width�start-kbd-macro�string-greaterp�symbol-function�terminal-live-p�test-completion�tool-bar-height�trace-redisplay�trace-to-stderr�upcase-initials�user-login-name�vertical-motion�w32-has-winsock�window-top-line�window-use-time�x-get-atom-name�x-server-vendor�xw-color-values�add-name-to-file�apropos-internal�autoload-do-load�buffer-file-name�buffer-substring�buffer-swap-text�byte-to-position�category-table-p�char-or-string-p�char-table-range�clear-face-cache�clear-font-cache�continue-process�decode-big5-char�decode-sjis-char�encode-big5-char�encode-sjis-char�expand-file-name�file-directory-p�file-system-info�font-family-list�fontset-list-all�format-mode-line�frame-char-width�frame-face-alist�frame-font-cache�frame-parameters�frame-text-lines�frame-text-width�frame-total-cols�get-pos-property�get-screen-color�hash-table-count�inotify-rm-watch�interactive-form�local-variable-p�lookup-image-map�make-bool-vector�minibuffer-depth�msdos-mouse-init�narrow-to-region�number-to-string�overlay-recenter�point-max-marker�point-min-marker�posix-looking-at�process-send-eof�process-sentinel�process-tty-name�profiler-cpu-log�region-beginning�run-hook-wrapped�set-fontset-font�set-frame-height�set-message-beep�set-screen-color�set-syntax-table�set-window-point�set-window-start�string-to-number�string-to-syntax�tty-no-underline�window-new-pixel�window-new-total�window-old-point�window-parameter�window-pixel-top�window-top-child�x-display-planes�x-frame-geometry�x-parse-geometry�x-server-version�zlib-available-p�backtrace--locals�beginning-of-line�bool-vector-union�buffer-modified-p�capitalize-region�car-less-than-car�char-category-set�char-table-parent�clear-image-cache�coding-system-put�color-supported-p�command-remapping�controlling-tty-p�copy-syntax-table�current-idle-time�current-local-map�current-time-zone�debug-timer-check�dump-glyph-matrix�dump-tool-bar-row�execute-kbd-macro�file-executable-p�frame-char-height�frame-pixel-width�frame-root-window�frame-text-height�frame-total-lines�get-buffer-create�get-buffer-window�get-char-property�get-load-suffixes�get-text-property�imagemagick-types�indirect-function�indirect-variable�inotify-add-watch�interrupt-process�line-end-position�line-pixel-height�local-key-binding�make-category-set�map-charset-chars�memory-use-counts�minibuffer-prompt�minibuffer-window�open-dribble-file�profiler-cpu-stop�put-text-property�re-search-forward�read-key-sequence�set-charset-plist�set-keymap-parent�set-process-plist�set-window-buffer�string-as-unibyte�string-to-unibyte�suspicious-object�text-property-any�this-command-keys�transpose-regions�w32-shell-execute�where-is-internal�window-body-width�window-left-child�window-new-normal�window-parameters�window-pixel-left�window-text-width�x-display-screens�x-load-color-file�x-open-connection�x-window-property�accessible-keymaps�buffer-base-buffer�buffer-enable-undo�buffer-local-value�call-interactively�category-docstring�char-table-subtype�clear-charset-maps�coding-system-base�constrain-to-field�current-case-table�current-global-map�current-input-mode�daemon-initialized�default-file-modes�event-convert-list�font-shape-gstring�format-time-string�frame-border-width�frame-first-window�frame-fringe-width�frame-pixel-height�get-buffer-process�global-key-binding�gnutls-available-p�gnutls-peer-status�init-image-library�insert-and-inherit�internal-char-font�make-frame-visible�make-sparse-keymap�make-symbolic-link�msdos-mouse-enable�msdos-set-keyboard�multibyte-string-p�number-or-marker-p�overlay-properties�parse-partial-sexp�posix-string-match�process-attributes�process-connection�profiler-cpu-start�re-search-backward�read-coding-system�recent-auto-save-p�run-hook-with-args�set-category-table�set-frame-position�set-mouse-position�set-process-buffer�set-process-filter�set-time-zone-rule�set-window-fringes�set-window-hscroll�set-window-margins�set-window-vscroll�skip-chars-forward�special-variable-p�terminal-parameter�text-properties-at�visible-frame-list�w32-battery-status�w32-long-file-name�w32-unload-winsock�w32notify-rm-watch�window-body-height�window-dedicated-p�window-left-column�window-line-height�window-normal-size�window-pixel-edges�window-pixel-width�window-scroll-bars�window-text-height�window-total-width�x-close-connection�x-display-mm-width�x-wm-set-size-hint�xw-color-defined-p�xw-display-color-p�Snarf-documentation�add-text-properties�bool-vector-subsetp�call-last-kbd-macro�call-process-region�charset-id-internal�check-coding-system�coding-system-plist�copy-category-table�current-active-maps�current-indentation�current-time-string�delete-all-overlays�directory-file-name�exit-recursive-edit�file-name-directory�find-charset-region�find-charset-string�font-otf-alternates�force-window-update�get-unused-category�gnutls-error-fatalp�gnutls-error-string�handle-save-session�handle-switch-frame�hash-table-weakness�integer-or-marker-p�kill-local-variable�make-category-table�make-local-variable�make-serial-process�make-terminal-frame�map-keymap-internal�minibuffer-contents�modify-syntax-entry�move-point-visually�move-to-window-line�msdos-mouse-disable�newline-cache-check�next-overlay-change�optimize-char-table�play-sound-internal�process-exit-status�process-send-region�process-send-string�profiler-memory-log�read-char-exclusive�scroll-other-window�self-insert-command�set-input-meta-mode�set-text-properties�show-face-resources�skip-chars-backward�skip-syntax-forward�standard-case-table�string-as-multibyte�string-make-unibyte�string-to-multibyte�terminal-parameters�tty-display-color-p�w32-get-locale-info�w32-short-file-name�w32-toggle-lock-key�w32-window-exists-p�w32notify-add-watch�window-inside-edges�window-minibuffer-p�window-next-buffers�window-next-sibling�window-pixel-height�window-prev-buffers�window-prev-sibling�window-resize-apply�window-total-height�x-display-mm-height�x-register-dnd-atom�x-selection-owner-p�abort-recursive-edit�base64-decode-region�base64-decode-string�base64-encode-region�base64-encode-string�bidi-resolved-levels�buffer-modified-tick�bury-buffer-internal�byte-code-function-p�dbus-get-unique-name�decode-coding-region�decode-coding-string�default-printer-name�define-charset-alias�define-fringe-bitmap�detect-coding-region�detect-coding-string�encode-coding-region�encode-coding-string�error-message-string�file-name-absolute-p�file-name-completion�file-selinux-context�font-face-attributes�font-get-system-font�gnutls-get-initstage�insert-file-contents�internal-lisp-face-p�internal-show-cursor�invocation-directory�locate-file-internal�make-frame-invisible�make-indirect-buffer�make-network-process�menu-bar-menu-at-x-y�merge-face-attribute�mouse-pixel-position�next-property-change�posix-search-forward�prefix-numeric-value�profiler-memory-stop�read-from-minibuffer�read-no-blanks-input�redirect-frame-focus�register-ccl-program�set-buffer-multibyte�set-char-table-range�set-charset-priority�set-process-sentinel�set-window-new-pixel�set-window-new-total�set-window-parameter�skip-syntax-backward�string-collate-lessp�subst-char-in-region�terminal-local-value�tool-bar-pixel-width�user-real-login-name�visited-file-modtime�w32-define-rgb-color�w32-register-hot-key�w32-send-sys-command�window-display-table�x-display-save-under�x-selection-exists-p�accept-process-output�backward-prefix-chars�buffer-has-markers-at�ccl-execute-on-string�char-table-extra-slot�charset-priority-list�coding-system-aliases�dbus-message-internal�declare-equiv-charset�define-prefix-command�destroy-fringe-bitmap�file-attributes-lessp�font-variation-glyphs�frame-selected-window�fringe-bitmaps-at-pos�funcall-interactively�get-internal-run-time�insert-before-markers�insert-startup-screen�internal--track-mouse�list-system-processes�marker-insertion-type�minibuffer-prompt-end�modify-category-entry�msdos-long-file-names�posix-search-backward�process-coding-system�profiler-memory-start�set-buffer-auto-saved�set-buffer-major-mode�set-buffer-modified-p�set-char-table-parent�set-minibuffer-window�set-window-new-normal�split-window-internal�standard-syntax-table�store-kbd-macro-event�string-collate-equalp�string-make-multibyte�text-char-description�text-property-not-all�w32-default-color-map�x-display-color-cells�x-display-grayscale-p�x-display-pixel-width�x-send-client-message�x-uses-old-gtk-dialog�add-face-text-property�buffer-local-variables�category-set-mnemonics�char-resolve-modifiers�coding-system-eol-type�default-toplevel-value�define-hash-table-test�delete-window-internal�documentation-property�dump-redisplay-history�file-name-as-directory�file-name-nondirectory�file-newer-than-file-p�find-file-name-handler�force-mode-line-update�format-network-address�frame-scroll-bar-width�hash-table-rehash-size�internal-show-cursor-p�keyboard-coding-system�menu-or-popup-active-p�minor-mode-key-binding�network-interface-info�network-interface-list�profiler-cpu-running-p�remove-text-properties�set-default-file-modes�set-fringe-bitmap-face�set-terminal-parameter�set-window-dedicated-p�set-window-scroll-bars�single-key-description�terminal-coding-system�upcase-initials-region�variable-binding-locus�vector-or-char-table-p�w16-get-clipboard-data�w16-selection-exists-p�w16-set-clipboard-data�w32-get-clipboard-data�w32-selection-exists-p�w32-set-clipboard-data�w32-set-current-locale�w32-unregister-hot-key�window-configuration-p�window-text-pixel-size�x-display-pixel-height�x-display-visual-class�zlib-decompress-region�cancel-kbd-macro-events�clear-this-command-keys�compose-region-internal�compose-string-internal�composition-get-gstring�coordinates-in-window-p�current-minor-mode-maps�define-charset-internal�dump-frame-glyph-matrix�frame-pointer-visible-p�frame-scroll-bar-height�insert-buffer-substring�internal-copy-lisp-face�internal-make-lisp-face�libxml-parse-xml-region�line-beginning-position�local-variable-if-set-p�make-directory-internal�modify-frame-parameters�msdos-downcase-filename�msdos-set-mouse-buttons�pos-visible-in-window-p�previous-overlay-change�process-running-child-p�send-string-to-terminal�set-output-flow-control�set-process-window-size�set-standard-case-table�set-window-next-buffers�set-window-prev-buffers�standard-category-table�substitute-command-keys�substitute-in-file-name�substring-no-properties�tty-display-color-cells�w32-frame-menu-bar-size�w32-get-keyboard-layout�w32-get-valid-codepages�w32-reconstruct-hot-key�w32-registered-hot-keys�w32-set-keyboard-layout�window-mode-line-height�window-scroll-bar-width�x-display-backing-store�active-minibuffer-window�barf-if-buffer-read-only�bool-vector-exclusive-or�bool-vector-intersection�describe-buffer-bindings�generate-new-buffer-name�internal-complete-buffer�kill-all-local-variables�last-nonminibuffer-frame�libxml-parse-html-region�previous-property-change�process-datagram-address�read-key-sequence-vector�serial-process-configure�set-file-selinux-context�set-input-interrupt-mode�set-mouse-pixel-position�set-terminal-local-value�set-visited-file-modtime�set-window-configuration�set-window-display-table�this-command-keys-vector�this-single-command-keys�w32-get-codepage-charset�w32-get-console-codepage�w32-get-valid-locale-ids�w32-set-console-codepage�w32-set-process-priority�waiting-for-user-input-p�window-combination-limit�window-scroll-bar-height�x-change-window-property�x-delete-window-property�x-get-selection-internal�x-menu-bar-open-internal�x-own-selection-internal�compare-buffer-substrings�delete-and-extract-region�delete-directory-internal�external-debugging-output�face-attribute-relative-p�face-attributes-as-vector�file-name-all-completions�find-composition-internal�frame-or-buffer-changed-p�frame-right-divider-width�get-unused-iso-final-char�make-variable-frame-local�multibyte-char-to-unibyte�next-char-property-change�profiler-memory-running-p�redirect-debugging-output�restore-buffer-modified-p�set-char-table-extra-slot�set-frame-selected-window�set-marker-insertion-type�set-process-coding-system�system-move-file-to-trash�tool-bar-get-system-style�translate-region-internal�unencodable-char-position�unibyte-char-to-multibyte�w32-get-current-locale-id�w32-get-default-locale-id�window-header-line-height�window-inside-pixel-edges�window-resize-apply-total�x-backspace-delete-keys-p�x-server-max-request-size�bool-vector-set-difference�buffer-chars-modified-tick�define-coding-system-alias�equal-including-properties�field-string-no-properties�frame-bottom-divider-width�internal-lisp-face-empty-p�internal-lisp-face-equal-p�make-variable-buffer-local�minibuffer-selected-window�other-window-for-scrolling�process-filter-multibyte-p�process-query-on-exit-flag�read-non-nil-coding-system�reset-this-command-lengths�set-coding-system-priority�set-default-toplevel-value�set-network-process-option�window-configuration-frame�window-right-divider-width�check-coding-systems-region�coding-system-priority-list�file-accessible-directory-p�font-get-system-normal-font�hash-table-rehash-threshold�next-single-property-change�resize-mini-window-internal�run-window-scroll-functions�verify-visited-file-modtime�window-absolute-pixel-edges�window-bottom-divider-width�x-disown-selection-internal� bool-vector-count-population� combine-after-change-execute� current-window-configuration� find-operation-coding-system� internal-face-x-get-resource� next-read-file-uses-dialog-p� register-code-conversion-map� set-process-datagram-address� set-process-filter-multibyte� set-window-combination-limit� this-single-command-raw-keys� window-redisplay-end-trigger� bool-vector-count-consecutive� compare-window-configurations� define-coding-system-internal� delete-other-windows-internal� get-char-property-and-overlay� get-unicode-property-internal� internal-make-var-non-special� internal-merge-in-global-face� msdos-remember-default-colors� previous-char-property-change� put-unicode-property-internal� unhandled-file-name-directory� buffer-substring-no-properties� clear-buffer-auto-save-failure� command-error-default-function� directory-files-and-attributes� internal-describe-syntax-value� minibuffer-completion-contents� remove-list-of-text-properties� set-process-query-on-exit-flag� w32-get-valid-keyboard-layouts� internal-default-process-filter� previous-single-property-change� unicode-property-table-internal� w32-get-console-output-codepage� w32-set-console-output-codepage� current-bidi-paragraph-direction� internal-get-lisp-face-attribute� internal-set-lisp-face-attribute� next-single-char-property-change� run-hook-with-args-until-failure� run-hook-with-args-until-success� set-window-redisplay-end-trigger�!insert-before-markers-and-inherit�!internal-default-process-sentinel�!internal-set-font-selection-order�!minibuffer-contents-no-properties�!x-display-monitor-attributes-list�"display-supports-face-attributes-p�"process-inherit-coding-system-flag�"window-inside-absolute-pixel-edges�#bidi-find-overridden-directionality�#cygwin-convert-file-name-to-windows�#find-coding-systems-region-internal�#gnutls-peer-status-warning-describe�#internal-lisp-face-attribute-values�#set-keyboard-coding-system-internal�#set-terminal-coding-system-internal�#w32-display-monitor-attributes-list�$previous-single-char-property-change�$run-window-configuration-change-hook�%cygwin-convert-file-name-from-windows�%internal-event-symbol-parse-modifiers�&set-process-inherit-coding-system-flag�(set-safe-terminal-coding-system-internal�(tty-suppress-bold-inverse-default-colors�*internal-set-alternative-font-family-alist�,internal-set-alternative-font-registry-alist�.frame-can-run-window-configuration-change-hook�.internal-set-lisp-face-attribute-from-resourcer7 �eqr@ �ashr^ rm r� �elt�eqlr� r� r� �lshr� �md5r� r� r� �putrN r� r� rA �aref�asetrE rG rI �atom�bobp�bolpr� �delq�ding�eobp�eolpr� r� �fsetr� r� �logb�mapcr� r5 r� rW r� rD rF �consp�equalr� r� �fontp�frexp�int86�isnan�ldexp�listp�memql�nconc�point�prin1�princr= �rassqr� �subrp�widenrC �arrayp�boundp�concatr� �ffloor�floatpr" �framep�fround�imagep�insert�internr� �logand�logior�lognot�logxor�mapcarr� �nlistp�nthcdrrC �rassoc�setcar�setcdrr r� �sxhash�terpri�upcaser� �bufferprn �clrhash�daemonp�fboundp�funcall�gethash�keymapp�maphash�markerp�message�natnump�numberp�puthash�remhashr� �stringp�symbolp�vconcat�vectorp�windowp�autoload�charsetp�commandp�copysign�downcase�fceilingr+ �integerp�keywordp�mapatoms�nreverse�overlayp�processp�purecopy�recenter�setplistr� �unintern� backtrace� byteorder� fillarray� ftruncate� functionp� mapconcat� redisplay� sequencepr� �
capitalize�
characterp�
makunbound�
propertize� fmakunbound� macroexpand� minibufferp�
documentationr� r8 r9 r: r; r= r> r< r? r
r. r� r� r r� r� rG r� rI �read-from-string> �
define-widget�with-no-warnings�with-electric-helpr r� r� �defalias�featurep� defvaralias> �&aux�&key�&body�&rest�&whole� &optional� &environment�&allow-other-keys> � cl-assert�
user-error�
cl-check-type�warnr r c c s� � dg}t �| ||�D ]]\}}}|tju rb|tjv r"|tj|fV q |tjv r.|t|fV q |tj v r;|tj
|fV q |tj v rH|tj |fV q |tj
v rU|tj |fV q |tjv rb|tj|fV q |||fV q d S rX )r rY r r? r rN rA rO r
�error_keywords� Exception� builtin_function_highlightedr@ rP rQ �Pseudor\ r r r rY 1 s0 �
�z%EmacsLispLexer.get_tokens_unprocessedra r rb rz r� z
\?([^\\]|\\.)rc rd r re rf rg rh z\[|\]rj z#\^\^?rk 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]+)?rl rm z (,@|,|\.|:)rn ro ri r% r& r z[^"\\`]+z`%s\'z\\.z\\\n)r( ra r� N),r) r* r+ r, r- r. r/ r0 r r2 r3 rq rr rs rt rP rO rN r� rQ r� rY r r r r7 r r< r r@ r; r r
r: r9 r rA rx ry rz r= r? r{ rB r r r r r s� 1 =�
�� �C �
�r c @ sD e Zd ZdZdZdgZdgZddgZdZdZ d Z
d
Z d d � eD �Z e �
d
d� e
D �� e �
dd� e D �� dZde Zde Zde Zdedfdejfdejfdefgdejfdejfdefd efd efd efd efd ej fd!ej fded"fee j fd#e j!feefd$efgd%�Z"d&d'� Z#d(d)� Z$d*d+� Z%d,d-� Z&d.d/� Z'd0d1� Z(d2S )3r z^
Lexer for `Shen <http://shenlanguage.org/>`_ source code.
.. versionadded:: 2.1
�Shen�shenz*.shenz text/x-shenzapplication/x-shen)
�datatyper r� � defprolog�defcc�synonymsr� �package�typer� )r r� r' r! �casesr# r r� �freezer r� r� �protectr% r$ r� r+ �outputzprolog?z
trap-errorr r� z/.rN z@pz@sz@v)�r� r= r7 r8 r9 r: r; r> r? r< z <-addressz<-vectorr� � absvectorz
absvector?z address->�adjoinrC �arityrF r� rJ zbound?�call�cdr� �cnr r- r� r �cutr� r� zelement?r zenable-type-theoryzerror-to-stringr� zeval-kl� exceptionr� �external�failzfail-ifr� �findall�fix�fst�fwhenr& zget-timer( �hd�hdstr�hdv�head� identical�implementationr� r zinclude-all-but�
inferences�inputzinput+r� r4 � intersectionr� �kill�languager� �limit�lineread�loaded�macrorr r� �mapcan�
maxinferences�modez n->string�nlr� r5 r� � occurrencesz occurs-checkr� �os�out�port�porters�pos�pr�precludezpreclude-all-butr= �profilezprofile-results�ps�quitr� zread+rE r� zread-file-as-bytelistzread-file-as-stringru �releaser� r� r� �runr� rN z simple-error�snd�
specialise�spy�step�stinput�stoutput�strz string->nr� r� �substr� �systemf�tail�tcztc?�thaw�tl�tlstr�tlv�trackztuple?�
undefmacror zunify!�union� unprofile� unspecialise�untrackz variable?r� zvector->r� �verifiedri r� r� rl rm zy-or-n?)�where�skipr� r� r� z<e>z<!>c C s i | ]}|t �qS r �r
�r �sr r r �
<dictcomp>� s zShenLexer.<dictcomp>c c s � | ]}|t jfV qd S �N)r r@ r� r r r r � s � zShenLexer.<genexpr>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*rz 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 rY �_process_symbols�_process_declarations)rV r] rB r r r rY � s
z ShenLexer.get_tokens_unprocessedc C s |t tjtjfvS r� )r r r7 r8 )rV r` r r r � _relevant� s zShenLexer._relevantc c sl � d}|D ].\}}}|||fV | � |�r3|r+|tkr+|| jv r+|}| �||�E d H |dko2|tk}qd S �NF�()r� r
rJ �_process_declarationr )rV rB �
opening_parenr_ r` r � declarationr r r r� � s �
��z ShenLexer._process_declarationsc c sr � d}|D ]1\}}}|r |t tjfv r | j�|tj�}n |t kr(|| jv r(tj}|dko/|tk}|||fV qd S r� ) r r r? �MAPPINGSr� rA �BUILTINS_ANYWHEREr@ r )rV rB r� r_ r` r r r r r� s ��zShenLexer._process_symbolsc c s� � |D ]\}}}| � |�r n|||fV q|dkrQd}|tkr#tjn|}|||fV |D ]!\}}}|r;|tkr;tj}|||fV | � |�rN|tkoM|dk}q-d S |dkrf|tkr\tjn|}|||fV d S |dkr�|tkrqtjn|}|||fV |D ]\}}}| � |�r� n|||fV q{|dkr�|tkr�|t|fV | �|�D ] \}}}|||fV q�d S |||fV d S |tkr�tjn|}|||fV d S )Nr� Frc r� r �{) r� r r
rZ r r� rA r �_process_signature)rV r� rB r_ r` r �prev_was_colonr r r r� sL �
�� �
�� z ShenLexer._process_declarationc c sf � |D ]-\}}}|t kr|dkr|t|fV d S |t tjfv r*|�� r'tjntj}|||fV qd S )N�})r r r rA �istitler? r
rZ )rV rB r_ r` r r r r r� 4 s � �z ShenLexer._process_signatureN))r) r* r+ r, r- r. r/ r0 rJ rG �BUILTINSr� r� �update�valid_symbol_charsr6 � symbol_name�variabler r� �Interpolr r8 r7 r r r r
r9 r: r r? r
r� rB rY r� r� r� r� r� r r r r r � sX ���
&r 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
�CPSA�cpsaz*.cpsa)�herald�varsr� r � defprotocol�defrole� defskeleton� defstrand� deflistenerznon-origz uniq-origz pen-non-orig�precedesr r� �recvr- r] �skey�akey�data�mesg) �cat�encr( �privk�pubk�invk�ltk�genr� r r( rb r r r
r r r
r r r r� r r r rv r� r� N) r) r* r+ r, r- r. r/ r0 r{ r| r6 r r7 r r
r9 r: r r; r< r r= r r r
r? r@ rA r rB r r r r r > s: ��r 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
�xtlang� extemporez*.xtm) r r r! r" r# r$ r% r' r* r- r� r� )
r+ r, r0 r1 r2 r� r& r( r) r/ ) z bind-funczbind-valzbind-libz bind-typez
bind-aliasz bind-polyz
bind-dylibz
bind-lib-funcz bind-lib-val)�letz�memzone�cast�convertr� �doloop)Jr7 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 rW rX r^ r_ r` ra rb rc rd re rf rg rh ri rj rk rl rm rn r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r? rC r� r� r� )�rY rZ r[ r\ r] 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� r� r )o�toStringzafill!zpfill!ztfill!�tbindzvfill!z array-fill!z
pointer-fill!z tuple-fill!r� �freer� �tupler� r� zcset!�crefr� �borz ang-namesr� r� r� r> �sprintfr5 r� zpset!zpref-ptrzvset!�vrefzaset!r zaref-ptrztset!�trefztref-ptr�salloc�halloc�zalloc�alloc�scheduler� r� r� r� r� rE rA rI r� r� r� rn r� r� � llvm_printf� push_zone�pop_zoner r� � 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-ref�pref�pdref� impc_null�bitcastrj �ifretzret->zclrun->z
make-env-zonezmake-envz<>�dtof�ftod�i1tof�i1tod�i1toi8�i1toi32�i1toi64�i8tof�i8tod�i8toi1�i8toi32�i8toi64�i32tof�i32tod�i32toi1�i32toi8�i32toi64�i64tof�i64tod�i64toi1�i64toi8�i64toi32r 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)rc z(<z>|\|z\||/z/|z\*)\**r )r� �commonr r
r rb r r r
z(#b|#o|#x)[\d.]+r r r� r rv r )r r rB r( N)&r) r* r+ r, r- r. r/ r0 �common_keywords�scheme_keywords�xtlang_bind_keywords�xtlang_keywords�common_functions�scheme_functions�xtlang_functions�valid_scheme_name�valid_xtlang_name�valid_xtlang_typer r rA r
rZ r r r? r r; r< r r r7 r r
r9 r: r= rB r r r r r � s�
# ������ #�� ��
�r c @ s� e Zd ZdZdZddgZdgZdZdZdZ d Z
d
d e j fd e
fd
ejfdejfdefdejfde
ejfeedd�efeedd�ejfee dd�ejfdejfe
ejfdefdefdefdefgiZdS )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
�Fennel�fennel�fnlz*.fnl)?�#r� r7 r8 r9 r r� z-?>z-?>>�.z..r: z//rc r; r< r= r> r? z?.r� �
accumulater$ �band�bnotr �bxor�collect�commentr+ �doc�doto�eachz
eval-compilerr~ �hashfn�icollectr! z
import-macrosr r� r' �lshift�lua�
macrodebugr� r� znot=r% �partialz pick-argsz pick-valuesr/ zrequire-macros�rshiftrN z
set-forcibly!�tsetr� r� r� z with-openz~=)r� r� r r� r� rP �varr� )'�_G�_VERSION�arg�assert�bit32�collectgarbage� coroutiner� �dofiler �getfenv� getmetatable�io�ipairsr� �loadfile�
loadstring�math�nextr� r� �pairs�pcallr= �rawequal�rawget�rawlen�rawsetr� r �setfenv� setmetatabler� �table�tonumber�tostringr� r �xpcallz0[a-zA-Z_!$%&*+/:<=>?^~|-][\w!$%&*+/:<=>?^~|\.-]*r( rb r� r r
r z(true|false|nil)rc r r� z\.\.\.r� r� r� rP N) r) r* r+ r, r- r. r/ rO rR r5 r6 r r7 r r
r9 r: r r r= r; r r
r� r@ r? r rB r r r r r X
s8 ��r ) r, r �pygments.lexerr r r r r �pygments.tokenr r r r
r r r
r r r �pygments.lexers.pythonr �__all__r r r r r r r r r r r r r r �<module> sB
0 * 3q 5
%N M