�
|�e4 � �` � d Z ddlZddlmZmZmZmZmZ ddlm Z m
Z
m Z m Z m
Z
mZmZmZmZmZmZ ddlmZ ddlmZmZ g d�Z G d� d e� Z G d
� d e� Z G d � d
e� Z G d� de� Z G d� de� Z G d� de� Z G d� de� Z G d� de� Z! G d� de� Z" G d� de� Z#y) z�
pygments.lexers.lisp
~~~~~~~~~~~~~~~~~~~~
Lexers for Lispy languages.
:copyright: Copyright 2006-2023 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�
Whitespace)� PythonLexer)�scheme_keywords�scheme_builtins)
� SchemeLexer�CommonLispLexer�HyLexer� RacketLexer� NewLispLexer�EmacsLispLexer� ShenLexer� CPSALexer� XtlangLexer� FennelLexerc � � � e Zd ZdZdZdZddgZddgZdd gZe j e j z Z d
Z
d Z� fd �Zi Zd
D ]y Zedk( rdZdZn edk( rdZdZnedk( rdZdZn edk( rdZdZde� de� d �Zde� d e� d �Zedk( r d Zd e� d!e� d"�Zd#Zd$e� d%e� d&�Zde� d'e� d(e� d)e� d*e� d+� Zd,e� d-e� d.e� d/�Zeee< �{ d0� Z e d1� g e d2� gd3e j< fd4e j> d5fd6e d7fd8e d9fd:e fd;e fed e!jD d<fed e!jF d<fed ed<fed e!jH d<fd=e%d>fd?e
z e%jL d<fd@e
z e'jP d<fdAe%jR d<fdBe*jV d<fdCe,fdDe
z e*jZ d<fdEe
z e*jZ d<fdFe
z e*j\ d<fe
e*jZ d<fdGe/d1fdHe/dIfgd4e j> dJfdKe j> d<fdLe j> fdMe j> fgdGe dJfdHe d<fdNe fgdOe� �e d<fgd=e%dPfdQe%j` fdRe%j` fdSe%j` fdTe%j` fdUe%j` fdVe%fgdW�Z1� xZ2S )Xr z�
A Scheme lexer.
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
�Schemez http://www.scheme-reports.org/�scheme�scmz*.scmz*.ssz
text/x-schemezapplication/x-scheme�[\w!$%&*+,/:<=>?@^~|-]+z�
(?=
\s # whitespace
| ; # comment
| \#[;|!] # fancy comments
| [)\]] # end delimiters
| $ # end of file
)
c # � �K � t �| � |� D ]k \ }}}|t j u s|t j u r:|t
v r |t |f�� �?|t v r|t j |f�� �]|||f�� �e|||f�� �m y �w�N) �super�get_tokens_unprocessedr �Function�Variabler r r �Builtin)�self�text�index�token�value� __class__s ��6/usr/lib/python3/dist-packages/pygments/lexers/lisp.pyr( z"SchemeLexer.get_tokens_unprocessed> s� �� �� �#(�7�#A�$�#G� *� �E�5�%���
�
�%��$�-�-�)?��O�+� ��%�/�/��o�-� �� � �u�4�4� ���-�-��U�E�)�)� *�s �A?B)� � �
� r3 z[01]z
( \#[bB] )r4 z[0-7]z
( \#[oO] )r5 z[0-9]z
( (\#[dD])? )r6 z [0-9a-fA-F]z
( \#[xX] )z
(
z$ (\#[iIeE])?
| \#[iIeE] z
)
z+
( / z+ )?
)
a�
(
# Decimal part
(
[0-9]+ ([.][0-9]*)?
| [.][0-9]+
)
# Optional exponent
(
[eEsSfFdDlL] [+-]? [0-9]+
)?
# Optional mantissa width
(
\|[0-9]+
)?
)
z!
(
z (?!/)
| z
)
z
(nan.0|inf.0)z
(
[+-] z' # Sign mandatory
| [+-]? z( # Sign optional
)
z
? [+-] (�|z)? i
| z (@ z)?
)
z (?x)
(
z
z�
)
# Need to ensure we have a full token. 1+ is not a
# number followed by something else, but a function
# name.
z
c # � K � d|j � v rt j }nt j }|j � ||j � f�� y �w)N�.)�groupr �Float�Integer�start)r, �match�
token_types r2 �
decimal_cbzSchemeLexer.decimal_cb� s? � �� � �%�+�+�-� � � � �J� � � �J��k�k�m�Z���� �6�6�s �AA� scheme-rootr0 z;.*?$�#\|�multiline-commentz#;[([]�commented-formz#;�commented-datumz#!r6rs�\s+�#pop�"�string�'�#:�' #\\([()/'\"._!§$%& ?=+-]|[a-zA-Z0-9]+)�(#t|#f)�('|#|`|,@|,|\.)�(?<='\()�(?<=#\()�(?<=\()z[([]z[)\]]z#pop:3�#push�\|#�[^|#]+�[|#]z [^()[\]]+z(?x).*?z#pop:2z\\x[0-9a-fA-F]+;z\\x[0-9a-fA-F]{2}z\\u[0-9a-fA-F]{4}z\\U[0-9a-fA-F]{6}�\\.�[^\\"]+)�rootrA r0 rC rD rE rI )3�__name__�
__module__� __qualname__�__doc__�name�url�aliases� filenames� mimetypes�re�DOTALL� MULTILINE�flags�
valid_name� token_endr( � number_rules�base�digit�radix�prefix�ureal�decimal�naninf�real�complex_�numr@ r r �Single� Multiliner r �Bin�Oct�Hexr
�Symbolr � Declaration�Charr �Constantr
r* r) r �Escape�tokens�
__classcell__)r1 s @r2 r r s �� � � �D�
*�C��� �G��&�!�I� �"8�9�I� �I�I�� � � $�E�
,�J��I�
*�, �L� � V!�� �1�9��E�!�E�
�Q�Y� �E�!�E�
�R�Z� �E�$�E�
�R�Z�"�E�!�E�
�
�G� � �w� � ��
�
�G� ��� � �� �2�:��G�&�� � ��'�
��E� "����� ��G� � ��
�
�F�*�V�H�A�e�W� -��f�D��� � ��
�
�H�
�
�J� �
�+� � �� !� �T��mV!�x7�,
�M� "�
�
�G� �
� �w�~�~� &�
�W�&�&�(;� <�
��!1� 2�
�G� .� /� �� � �Z� � �!�_�f�j�j�&� 1�
�!�_�f�j�j�&� 1�
�"�
�z�6� 2�
�"�
�v�z�z�6� 2� �6�8� $�
�J�
��
�
�v� 6�
�Z�
��!4�!4�f� =�
7����f� M� �� � �� /� �� *� �:�
%�t�}�}�f� =�
�:�
%�t�}�}�f� =�
�*�
$�d�m�m�V� <� �� � �� /� �k�=� 1� �{�H� -�q9
�v �W�&�&�� 0�
�W�&�&�� /�
��)�)� *�
�g�'�'� (�
� �g�w� '�
�w�� '�
�7� #�
� � �{�
#�W�f� 5�
�
�&�(� #�
�&�-�-� 0�
!�6�=�=� 1�
!�6�=�=� 1�
!�6�=�=� 1� �V�]�]� #�
�� �
�_`�F� r c �0 � e Zd ZdZdZdZg d�ZddgZdgZe j e j z Z dZ
e
d z Zd
Zd e
�d e�d
�Zd� Zd� Z ed� gdej* dfdej* dfdej* fdej* fgdej, dfdej, dfdej, fgg def�dej0 f�dej* d f�d ej2 f�d ef�d ez ej6 f�d ez ej6 f�d!ez ej6 f�d"ez ej6 f�d"e f�d#e f�d$ez e j< f�d%ez e f�d&ez e j> f�d'ez ej@ f�d(ez ej@ f�d)e df�d*e!jD f�d+ez ej6 f�d,e f�d-e#jH f�d.e jJ f�d/e jL f�d0e jN f�d1e f�d2 e(e e)� df�d3 e(e!jD e)� df�d4 e(e!jD e)� df�d5e!jD f�d6e f�d7e f�d8ez d9z ej, d:f�d;e f�d<e f�d=ez e#jT f�d>ez d>z e#jV jX f�ee#jV f�de)df�de)df�d?�Z-d@� Z.yA)Br z9
A Common Lisp lexer.
.. versionadded:: 0.9
z Common Lispzhttps://lisp-lang.org/)z common-lisp�cl�lispz*.clz*.lispztext/x-common-lispz \\.|[\w!$%&*+-/<=>?@\[\]^{}~]�|[#.:]z(?=[ "()\'\n,;`])z(\|[^|]+\||(?:�)(?:�)*)c � � ddl m}m}m}m}m}m}m} || _ || _ || _
|| _ || _ || _
|| _ t j | fi |�� y )Nr )�BUILTIN_FUNCTIONS�
SPECIAL_FORMS�MACROS�LAMBDA_LIST_KEYWORDS� DECLARATIONS�
BUILTIN_TYPES�BUILTIN_CLASSES)� pygments.lexers._cl_builtinsr� r� r� r� r� r� r� �builtin_function�
special_forms�macros�lambda_list_keywords� declarations�
builtin_types�builtin_classesr �__init__) r, �optionsr� r� r� r� r� r� r� s r2 r� zCommonLispLexer.__init__A s] � � +� +� +� !2�� � *��� �� �$8��!� (��� *��� .�� ����D�,�G�,r c # �@ K � dg}t j | ||� D ]� \ }}}|t j u r�|| j v r|t j
|f�� �=|| j v r |t |f�� �W|| j v r|t j
|f�� �{|| j v r |t |f�� ��|| j v r |t |f�� ��|| j v r|t j |f�� ��|| j v r|t j |f�� ��|||f�� �� y �w�NrX )r r( r r* r� r+ r� r r� r� r� r� �Typer� �Class�r, r- �stackr. r/ r0 s r2 r( z&CommonLispLexer.get_tokens_unprocessedN s, � �� ����#-�#D�#D�T�4�QV�#W� &� �E�5�%���
�
�%��D� 1� 1�1� �� � �u�4�4� ��D� .� .�.� ��%�/�/� ��D�K�K�'� �� � �u�4�4� ��D� 5� 5�5� ��%�/�/� ��D� -� -�-� ��%�/�/� ��D� .� .�.� �� � �u�4�4� ��D� 0� 0�0� ����U�2�2� ����%� %�/ &�s �D D �bodyrB rR rS rG rT rU �\(�\)z[^()]+rF �;.*$rC z#\d*Y.*$z"(\\.|\\\n|[^"\\])*"�:�::z:#rJ �`� [-+]?\d+\.?� [-+]?\d+/\d+�<[-+]?(\d*\.\d+([defls][-+]?\d+)?|\d+(\.\d*)?[defls][-+]?\d+)z#\\.z#\\�#\(z #\d*\*[01]*rK 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*\(rD z#[+-]z (,@|,|\.)�(t|nil)�\*)rX rC rD r� c �2 � t j d| � ryy)z#Competes with Visual Prolog on *.clz
^\s*\(defun\sg�������?r )rb �search�r- s r2 � analyse_textz CommonLispLexer.analyse_text� s � �
�9�9�%�t� ,��r N)/rY rZ r[ r\ r] r^ r_ r` ra rb �
IGNORECASErd re �nonmacro� constituent�
terminated�symbolr� r( r r rt �Preprocr rs �Specialr
rx r
r r< r; rz r �Otherr r) ru rv rw r r r{ r* �Globalr} r� � r r2 r r ( sr � ��
�D�
"�C�+�G���"�I�%�&�I� �M�M�B�L�L� (�E�
0�H��X�%�K�%�J� .6�{�
C�F� -�&�:
�F�O�
� �W�&�&�� 0�
�W�&�&�� /�
��)�)� *�
�g�'�'� (�
� �G�O�O�W� -�
�G�O�O�V� ,�
���� (�
�
_
�
�Z� �_
�
�g�n�n� %� _
� �W�&�&�(;� <�_
� �'�/�/� *�_
� %�f� -� _
� �F�]�F�M�M� *�!_
�" �V�^�V�]�]� +�#_
�$ �V�^�V�]�]� +�%_
�& �F�]�F�M�M� *�'_
�( �8� �)_
�* �8� �+_
�0 �j�
(�&�.�.� 9�1_
�2 �z�
)�6� 2�3_
�4 M�
�� � � �
'�5_
�< �z�
!�6�;�;� /�=_
�> �f�_�f�k�k� *�?_
�D �X�v� &�E_
�J �W�]�]� +�K_
�P �V�^�V�]�]� +�Q_
�V �x� �W_
�\ �T�]�]� #�]_
�b &�v�z�z� 2�c_
�h (���� 4�i_
�n .�v�z�z� :�o_
�t 1�&� 9�u_
�z �(�6�;�7�� @�{_
�@ �X�g�m�m�[� A�6� J�A_
�F �(�7�=�=�+�>�� G�G_
�L !�'�-�-� 0�M_
�R �x� �S_
�T �x� �U_
�Z �
�
"�X�
-�w���@P� Q�[_
�` �x� �a_
�f �8� $�g_
�l �*�
$�d�m�m� 4�m_
�r �V�^�e�
#�T�]�]�%9�%9� :�s_
�t �T�]�]� #�u_
�z �K�� (�{_
�| �K�� (�}_
� o�F�br r c � � e Zd ZdZdZdZdgZdgZddgZdZ d Z
d
Z d Z e e z Z
d Zd
� Zdej" fdefdefdej* fdej, fdej. fdej0 fdefdez ej4 fdej6 fd e eej: � fd e eej: � fdez ej4 fde f e d � e d � ee � e f ee
� e jB f ee
� e"jF fd ez e"jH fee"jJ fd e&fd e&fd!e&fge'jP d" e'jP d# d$�Z(d%� Z)y&)'r z>
Lexer for Hy source code.
.. versionadded:: 2.0
�Hyzhttp://hylang.org/�hylangz*.hyz text/x-hyzapplication/x-hy)%�cond�for�->�->>�car�cdr�first�rest�let�when�unless�import�do�progn�get�slice�assoczwith-decorator�,� list_comp�kwapply�~�is�inzis-notznot-in�
quasiquote�unquotezunquote-splice�quoter7 z<<=z>>=�foreach�while�eval-and-compile�eval-when-compile)�def�defn�defun�defmacro�defclass�lambda�fn�setvr� )�cycle�dec�distinct�drop�even?�filter�incz instance?z iterable?�iteratez iterator?zneg?znone?�nthznumeric?�odd?zpos?�remove�repeat�
repeatedly�take�take_nth�
take_while�zero?z(?!#)[\w!$%*+<=>?/.#:-]+c � � t | d�� S )N� ��suffix)r )�entriess r2 �
_multi_escapezHyLexer._multi_escape s � ��W�S�)�)r r� �,+rF �
-?\d+\.\d+�-?\d+z 0[0-7]+j?z0[xX][a-fA-F0-9]+�"(\\\\|\\[^\\]|[^"\\])*"rJ z \\(.|[a-z]+)z"^(\s*)([rRuU]{,2}"""(?:.|\n)*?""")z"^(\s*)([rRuU]{,2}'''(?:.|\n)*?''')z::?z
~@|[`\'#^~&@]� py-keywords� py-builtinsrQ �(\[|\])�(\{|\})�(\(|\))�keywords�builtins)rX r r c � � d| v sd| v ryy )Nz(import z(defn g�������?r� r� s r2 r� zHyLexer.analyse_textS s � � �� ��T�!1�� "2r N)*rY rZ r[ r\ r] r^ r_ r` ra r� r� � hy_builtins�hy_corer rf r� r rs r r r r; r< rv rw r
rx rz r �Docr
r r ry r r+ r) r* r r r} r� r� r r2 r r � s� � ��
�D�
�C��j�G���I� � 0�1�I��M��L� �K��G� �W�$�H�
-�J�*� �g�n�n� %� �D�M�
�Z� � �F�L�L� )�
�v�~�~� &�
�6�:�:� &�
!�6�:�:� .� )�&� 1�
�J�
��
�
� .�
�f�k�k� *�
2�H�T�6�:�:�4N� O�
2�H�T�6�:�:�4N� O� �j�
�&�-�-� 0� �x� (� �M� "� �M� "� �=�
)�7� 3� �<�
(�'�*=�*=� >� �8�
$�d�l�l� 3� �*�
$�d�m�m� 4� �� � � '� �� %� �� %� �� %�s;
�x #�)�)�*�5�"�)�)�*�5�}?�F�Br r c �� � e Zd ZdZdZdZddgZg d�ZddgZd Z d
Z
d Z d Z d
Z
de
z ZdZdZdZdez Zde�e�d�Zde�e�d�ZdZde�de�d�Zde�de�d�Ze efdedfgd efd ej6 fd ej8 d fd e fd!e�d"e
�d#�e j> d$fd!e�d%e
�d#�e j@ d$fd!e�d&e�d'e�d(e�d)e
�d#� e d$fd*e�d'e�d(e�d+e�d,e�d-e
�d#�
e j@ d$fd.e�d/e
�d#�e j@ d$fd0ez e jB d$fd1ez e jD d$fd2ez e jF d$fd3ez e j@ d$fd4e$jJ d5fd6e$jL d$fd7e$jN d$fd8e$jN d$fd9e$jP d$fd:e)jT d$fd;ez e+jX d$fd< e-e+j\ e)j\ � fd=e+j\ d>fd?e
z e/fd@e z e/dAfgdBe/fee$j` d$fdCef e1d$� ge e2d$fg e3dD� dEe
z e+dAfdFe/dGfdHe
z e+dGfe e2dIf e4e dJe
z �K� e+d$f e4e
dJe
z �K� e)jj d$fee)d$f e3dL� g e3dM� dedfg e3dD� dNe/dOfdPe
z e+dOfe e2dQf e3dL� g e3dM� dedRfg e3dD� e e2dSf e3dL� g e3dM� ded>fgd ej8 dTfdUej8 d$fdVej8 fgdWe$jJ d$fdXe$jl fdYe$jJ fgdZ� Z7y[)\r ze
Lexer for Racket source code (formerly
known as PLT Scheme).
.. versionadded:: 1.6
�Racketzhttp://racket-lang.org/�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�==z=>�_�absent�abstractzall-defined-outz all-from-out�and�any�augmentzaugment*z
augment-finalzaugment-final*�augridezaugride*�beginzbegin-for-syntax�begin0�casezcase->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�
contracted�definezdefine-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/derivedz
define-syntaxzdefine-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/name�delayz
delay/idlez
delay/namez delay/strictz
delay/syncz delay/threadr� �else�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/dc�if�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� �let*z let*-valuesz
let-syntaxz let-syntaxesz
let-valueszlet/cczlet/ec�letrecz
letrec-syntaxzletrec-syntaxeszletrec-syntaxes+valuesz
letrec-values�lib�link�localz
local-requirez log-debugz log-errorz log-fatalzlog-infoz log-warningr> zmatch*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/c�or�overmentz overment*�overridez override*zoverride-finalzoverride-final*� parameterizez
parameterize*zparameterize-breakzparametric->/c�placezplace*z
place/context�planetrl z prefix-inz
prefix-out�privatezprivate*z prompt-tag/cz protect-out�providezprovide-signature-elementszprovide/contract�publiczpublic*z public-finalz
public-final*�pubmentzpubment*r� � 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-apply�set!z set!-valuesz
set-field!�shared�streamzstream*z stream-cons�structzstruct*z struct-copyzstruct-field-indexz
struct-outzstruct/cz
struct/ctcz struct/dc�submodr' zsuper-instantiatezsuper-make-objectz super-new�syntaxz syntax-casez syntax-case*zsyntax-id-rulesz syntax-rulesz
syntax/loc�tag�thiszthis%�thunkzthunk*�timezunconstrained-domain->�unitzunit-from-contextzunit/czunit/new-import-exportzunit/sr� r� �unquote-splicing�unsyntaxzunsyntax-splicingz values/dropr� zwith-continuation-markz
with-contractz with-contract-continuation-markz
with-handlerszwith-handlers*z with-methodz with-syntax� λ(� �*z*list/c�+�-�/�<z</c�<=z<=/c�=z=/c�>z>/c�>=z>=/czabort-current-continuation�abszabsolute-path?�acosz add-between�add1z alarm-evtz
always-evtzand/c�andmap�anglezany/c�appendzappend*z
append-map�apply�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?�asin�assfr� �assq�assv�atanzbad-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=?�boolean?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?�caaaar�caaadr�caaar�caadar�caaddr�caadr�caar�cadaar�cadadr�cadar�caddar�cadddr�caddr�cadrzcall-in-nested-threadz call-with-atomic-output-filez call-with-break-parameterizationz!call-with-composable-continuationz call-with-continuation-barrierz call-with-continuation-prompt� call-with-current-continuationz*call-with-default-reading-parameterizationz call-with-escape-continuationzcall-with-exception-handlerzcall-with-file-lock/timeoutz%call-with-immediate-continuation-markzcall-with-input-bytes�call-with-input-filezcall-with-input-file*zcall-with-input-stringzcall-with-output-bytes�call-with-output-filezcall-with-output-file*zcall-with-output-stringzcall-with-parameterizationzcall-with-semaphorez call-with-semaphore/enable-break�call-with-values�call/cczcall/ecr� zcartesian-product�cdaaar�cdaadr�cdaar�cdadar�cdaddr�cdadr�cdar�cddaar�cddadr�cddar�cdddar�cddddr�cdddr�cddrr� �ceilingz 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?�
char->integer�char-alphabetic?z char-blank?�
char-ci<=?� char-ci<?� char-ci=?�
char-ci>=?� char-ci>?�
char-downcasez
char-foldcasezchar-general-categoryz
char-graphic?zchar-inz char-in/czchar-iso-control?�char-lower-case?�
char-numeric?zchar-punctuation?� char-ready?zchar-symbolic?zchar-title-case?zchar-titlecase� char-upcase�char-upper-case?zchar-utf-8-length�char-whitespace?�char<=?�char<?�char=?�char>=?�char>?�char?zcheck-duplicate-identifierzcheck-duplicatesz#checked-procedure-check-and-extractz
choice-evtzclass->interfacez
class-infoz
class-sealz class-unsealzclass?z cleanse-path�close-input-port�close-output-portzcoerce-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?�complex?�compose�compose1�conjoin� conjugate�conszcons/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-port�cos�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-milliseconds�current-input-portzcurrent-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-namespace�current-output-portzcurrent-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-file� denominatorz
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�disjoin�displayz
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!� dynamic-wind�eighth�emptyzempty-sequencez empty-stream�empty?zenvironment-variables-copyzenvironment-variables-nameszenvironment-variables-refzenvironment-variables-set!zenvironment-variables?�eofzeof-evt� eof-object?zephemeron-valuez
ephemeron?�eprintfzeq-contract-valz eq-contract?z eq-hash-code�eq?zequal-contract-valzequal-contract?zequal-hash-codezequal-secondary-hash-codezequal<%>�equal?z equal?/recurz
eqv-hash-code�eqv?�errorzerror-display-handlerzerror-escape-handlerzerror-print-context-lengthzerror-print-source-locationzerror-print-widthzerror-value->string-handler�evalzeval-jit-enabledz eval-syntaxr� zevt/czevt?�exact->inexactz
exact-ceilingz exact-floorzexact-integer?zexact-nonnegative-integer?zexact-positive-integer?z exact-roundzexact-truncate�exact?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?�exp�expandz expand-oncez
expand-syntaxzexpand-syntax-oncezexpand-syntax-to-top-formzexpand-to-top-formzexpand-user-pathz explode-path�exptzexternalizable<%>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?�floorz flush-outputz
fold-files�foldl�foldr�for-each�force�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?�gcdzgenerate-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/c� imag-partz
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-set�inexact->exactz
inexact-real?�inexact?z infinite?zinput-port-append� input-port?z
inspector?z instanceof/c�
integer->charzinteger->integer-byteszinteger-bytes->integerz
integer-inzinteger-lengthz integer-sqrtzinteger-sqrt/remainder�integer?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-pair�lcm�lengthzliberal-define-context?z link-exists?�listzlist*zlist*ofz list->byteszlist->mutable-setzlist->mutable-seteqzlist->mutable-seteqvz list->setz list->seteqz list->seteqv� list->string� list->vectorzlist->weak-setzlist->weak-seteqzlist->weak-seteqvzlist-contract?z list-prefix?�list-refzlist-set� list-tailz list-updatezlist/c�list?zlisten-port-number?�listof�loadzload-extensionzload-on-demand-enabledz
load-relativezload-relative-extensionzload/cdzload/use-compiledz local-expandzlocal-expand/capture-liftszlocal-transformer-expandz&local-transformer-expand/capture-liftszlocale-string-encoding�logzlog-all-levelsz
log-level-evtz
log-level?z
log-max-levelz log-messagez
log-receiver?z logger-namezlogger?� magnitudezmake-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-plumber�
make-polarzmake-prefab-structzmake-primitive-classzmake-proj-contractz make-pseudo-random-generatorzmake-reader-graphzmake-readtable�make-rectangularzmake-rename-transformerzmake-resolved-module-pathzmake-security-guardzmake-semaphorezmake-set!-transformerzmake-shared-byteszmake-sibling-inspectorzmake-special-commentz make-srcloc� make-stringzmake-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-group� make-vectorz
make-weak-boxzmake-weak-custom-hashzmake-weak-custom-setzmake-weak-hashzmake-weak-hasheqzmake-weak-hasheqvzmake-will-executor�mapzmatch-equality-testzmatches-arity-exactly?�max�mcar�mcdr�mcons�memberzmember-name-key-hash-codezmember-name-key=?zmember-name-key?�memf�memq�memvz merge-inputzmethod-in-interface?�minzmixin-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?�modulozmpair?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�negate� negative?z never-evtu new-∀/cu new-∃/c�newline�ninthznon-empty-listofznon-empty-string?znone/cznormal-case-pathznormalize-arityznormalize-pathznormalized-arity?�notznot/c�null�null?�number->string�number?� numeratorzobject%zobject->vectorz object-infozobject-interfacez object-method-arity-includes?z object-namezobject-or-false=?zobject=?zobject?r� zone-of/czopen-input-bytes�open-input-filezopen-input-output-filezopen-input-stringzopen-output-bytes�open-output-filezopen-output-nowherezopen-output-stringzor/czorder-of-magnitude�ormapzother-execute-bitzother-read-bitzother-write-bit� output-port?�pair?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-evt� peek-charzpeek-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?�port?� positive?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?�
procedure?�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�putenv�quotientzquotient/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�range� rational?� rationalize�readzread-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-cdot� read-charzread-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-in� real-part�real?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-port� remainder�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� �reverse�round�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-path�sinzsingle-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�sqr�sqrt�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?rI zstring->bytes/latin-1zstring->bytes/localezstring->bytes/utf-8zstring->immutable-stringzstring->keyword� string->list�string->numberz string->pathzstring->path-elementzstring->some-system-path�string->symbolzstring->uninterned-symbolzstring->unreadable-symbol�
string-appendzstring-append*� string-ci<=?� string-ci<?� string-ci=?� string-ci>=?� string-ci>?zstring-contains?� string-copyz string-copy!zstring-downcasez!string-environment-variable-name?� string-fill!zstring-foldcasez string-joinz string-len/c�
string-lengthzstring-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?�
string-refzstring-replace� string-set!z string-splitzstring-suffix?zstring-titlecasez string-trimz
string-upcasezstring-utf-8-length� string<=?�string<?�string=?� string>=?�string>?�string?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?� substringz suggest/c�symbol->stringzsymbol-interned?zsymbol-unreadable?zsymbol<?zsymbol=?�symbol?�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-right�tan�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�true�truncatez
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-contract�valuesz#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?�vectorzvector->immutable-vector� vector->listz 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-right� vector-fill!z
vector-filterzvector-filter-notzvector-immutablezvector-immutable/czvector-immutableof�
vector-lengthz
vector-mapz vector-map!z
vector-memberz vector-memqz vector-memvz
vector-refz vector-set!z vector-set*!z vector-set-performance-stats!zvector-split-atzvector-split-at-rightz vector-takezvector-take-rightzvector/c�vector?�vectorof�version�voidzvoid?zweak-box-valuez weak-box?zweak-setz
weak-seteqz weak-seteqvz will-executezwill-executor?z
will-registerzwill-try-executezwith-input-from-bytes�with-input-from-filezwith-input-from-stringzwith-output-to-bytes�with-output-to-file�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<%>�write�
write-bytez write-byteszwrite-bytes-availzwrite-bytes-avail*zwrite-bytes-avail-evtz write-bytes-avail/enable-break�
write-charz
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(?:z?)z(?:(?:inf|nan)\.[0f])z(?:[-+]?z|[-+]�)r7 z(?!\Z)�unquoted-datumz(?s)#;|#*z;[^\n\r\x85\u2028\u2029]*rB �
block-commentz(?u)\s+z(?i)z [-+]?\d+(?=[z])rG z/[-+]?(\d+(\.\d*)?|\.\d+)([deflst][-+]?\d+)?(?=[z[-+]?(z([-+]z ?i)?|[-+]z?i)(?=[z
(?i)(#d)?(z?i|�@z)(?=[z (?i)(([-+]?z t[-+]?\d+)|[-+](inf|nan)\.t)(?=[z(?iu)(#[ei])?#b%sz(?iu)(#[ei])?#o%sz(?iu)(#[ei])?#x%sz(?iu)(#d)?#i%sz#?")rG rI 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#:%sz(#lang |#!)(\S+)z#reader� quoted-datumz (?i)\.(?=[%s])|#c[is]|#['`]|#,@?z '|#[s&]|#hash(eqv?)?|#\d*(?=%s))rG r� z`|,@?z[|\\]�datumz
quote(?=[%s])r� )rG �quasiquoted-datumzquasiquote(?=[%s]))rG �
unquoted-listz(?=[%s])r� �datum*r� z,@?)rG r� zunquote(-splicing)?(?=[%s]))rG �quasiquoted-listr� )rG � quoted-listrR rS z[^#|]+|.rH zG(?s)\\([0-7]{1,3}|x[\da-fA-F]{1,2}|u[\da-fA-F]{1,4}|U[\da-fA-F]{1,8}|.)rW ) rX r� r� r� r� r� r� r� r� r� r� rI N)8rY rZ r[ r\ r] r^ r_ r` ra � _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 rs rt r r r< r; ru rv rw r
�Double�Heredocrz �Regexr r{ r ry r � Namespacer
rx r r r r r+ r| r} r� r r2 r r X s� � �� �D�
#�C��� �G�-�I� �"8�9�I�^�I�Be
�I�N $��$��$�K�2�[�@�G� 4��&�I� ?� �2�4M�N�O�0I�09�!;� �&5�y�A�O�/��-<�-=�?�M�(7�9I�J�� "�5� )�
�� .� /�
�
,�W� 5�
)�7�>�>� :�
�W�&�&�� 8� �� $� +@��
M�
�^�^�V�
%� $�[�2�39�<�<��
I� $�%>�'�)B��� #�F�
,� � .�0A��]�K�9�:@�,�,�
�
� �{�,�-3�\�\�6�
C� "�G�
+�V�Z�Z�� @� "�G�
+�V�Z�Z�� @� "�G�
+�V�Z�Z�� @� ��
(�&�,�,�� ?� �V�]�]�$6� 7�
-�v�~�~�v� F�
6�� � �V� L�
+�V�[�[�&� A�
&�� � �f� =� %�d�m�m�V� <� �w�
�� 3� 3�V� <� !�
�g�'�'�� � �
8�
:�
��*�*�N� ;� 1�;�
>�� I�
/�2F�
F�
�/�
1�AB
�H �x� �
�f�m�m�V� ,�
�u� � �F�O�
� "�;�� 7�
�
�G� �
� �
+�W�
%�
'�
�8� :� ;�
"�[�
0�'�
*�
,�
!�;�0I� J�
�9�Z�+�%=�
>�
�f�
�
�9�Z�+�%=�
>�
�\�\�6�
#�
�d�F� #� �H� �
�
�F�O�
�� .� /�
�
�G� �
�X� 9� :�
+�k�
9�7�
'�
)�
!�;�0L� M� �H� �
�
�F�O�
�� 1� 2�
�
�G� �
!�;�0G� H� �H� �
�
�F�O�
��n� -�
�
�W�&�&�� 0�
�W�&�&�� /�
�'�+�+� ,�
� �6�=�=�&� )�$�%+�]�]�
4�
�� � � '�
�}D�Fr r c
�X � e Zd ZdZdZdZdgZg d�ZddgZe j e j z Z dZ
d Zd
ej fd ej" fd ej" fd
efdefdedfdedfdef ee
d�� efdez ej0 feej2 fdefg dedfdedfdefgd edfgd �Zy ) r zN
For newLISP source code (version 10.3.0).
.. versionadded:: 1.5
�NewLispzhttp://www.newlisp.org/�newlisp)z*.lspz*.nlz*.kifztext/x-newlispzapplication/x-newlisp(� �^z--rZ r� �!z!=�?r� rX r[ �&�%rY z++r\ �<<r] r^ r_ r` �>>r7 r� �$z$0z$1z$10z$11z$12z$13z$14z$15z$2z$3z$4z$5z$6z$7z$8z$9z$argsz$idxz$itz
$main-args�abortra rb �acosh�add�address�ambr z append-filerf rg �argsz
array-listzarray?�arrayrj �asinhr� rn �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�irr�joinz lambda-macrozlambda?r� z
last-errorr� zlegal?r� r� �letex�letnr� r� r� r4 r� �lookupz
lower-casezmacro?z main-args�MAINzmake-dirr �matr> r r r �modr6 �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-sessionsr8 znil?�nil�normalr �now�nper�npvr� r r r; r< �ostype�packz
parse-date�parse�peek�pipe�pmtz pop-assoc�popzpost-url�powrl r# r$ r% r' z prob-chi2zprob-zr) z prompt-eventz
protected?�pushzput-url�pvzquote?r� �randr- � randomizer1 r3 z read-expr� read-filezread-keyr4 z read-utf8z reader-eventz real-path�receivezref-all�refz
regex-comp�regexz
remove-dir� rename-file�replace�resetr� r> �rotater? �saver� �seed�seek�selectr, � semaphorerI �sequence�seriesz
set-localez set-ref-allzset-refrA �setf�setqrE �share�signal�silentrG rH rJ r� rK �source�spawnrM z starts-withrb rI �sub�swap�symrh ri rj z sys-errorzsys-inform rn �termz throw-error�throwz time-of-dayrS �timerz
title-caseztrace-highlight�trace� transpose�Tree�trimztrue?rs �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#!(.*?)$r� z#.*$rF r� z\{� bracestringz \[text\]*� tagstringz('|:)�\br� rQ r rR z\}rG z[^{}]+z(?s)(.*?)(\[/text\]))rX r5 r6 N) rY rZ r[ r\ r] r^ r_ r` ra rb r� rd re r rf r r� rs r r
r
r r r r* rx r r} r� r r2 r r s) � �� �D�
#�C��k�G�*�I�!�#:�;�I� �M�M�B�L�L� (�E�;�H�| 9�J�
�'�/�/� *�
�g�n�n� %�
�g�n�n� %� �Z� � )�&� 1� �F�M� *� �6�;� /� �x� � �8�E�
*�
�
� �*�
$�d�m�m� 4� �� � � '� �� %�E#
�N �F�G� $�
�F�F� #�
�v� �
� %�f�f� 5�
�]1�Fr r c �( � e Zd ZdZdZg d�ZdgZddgZej Z
dZ e dz Z d Z
d
e �d e �d �Zh d
�Zh d�Zh d�Zh d�Zh d�Zh d�Zd� Z ed� gdefdej2 fdedfdej6 fdez e j: fdez ej< fd ez ej< fd e fd e fd e
z e jB fd e
z e fd e
z e jD fd!e#fd"ez ej< fd#e fd$e jH fd%e jJ fd&e jL fd'e jN fd(e fd)e fd*e fd+e fd,e
z e jP fd-ez d-z e jR jT fee jR fd.e dfd/e#dfd0e#d1fg d2efd3ez ej< fd efd4efd5efded1fgd6�Z+y7)8r 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!$%&*+-/<=>?@^{}~|]r� z(?=[ "()\]\'\n,;`])z((?:r� r� >� �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 r; r r� �blockr� �ecase�pcase�progv�psetf�psetqr� �labelsr� r1 �return�shiftfr� �declaim�declare�defface�defsetf�deftyper� �locally�pushnew�rotatefr� �defgroupr� �defsubst�deftheme�macrolet�noreturn�typecase� defadvice� defcustom� defmethod� defstruct� etypecase�
defgenericr� r� r� > �
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� interactiver0 >� �/=�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-resourcerX �eqra �ashr� r� r� �elt�eqlr� r� r� �lshr �md5r r� r� �putrA rG rm rb �aref�asetrj rl rn �atom�bobp�bolpr� �delq�ding�eobp�eolpr� r� �fsetr� r� �logb�mapcr r r1 rK rM rg r� �consp�equalr� r� �fontp�frexp�int86�isnan�ldexp�listp�memql�nconc�point�prin1�princr% �rassqr? �subrp�widenrf �arrayp�boundp�concatr� �ffloor�floatpr� �framep�fround�imagep�insert�internr� �logand�logior�lognot�logxor�mapcarr �nlistp�nthcdrr- �rassoc�setcar�setcdrr rI �sxhash�terpri�upcaserw �bufferpr� �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�setplistrt �unintern� backtrace� byteorder� fillarray� ftruncate� functionp� mapconcat� redisplay� sequenceprf �
capitalize�
characterp�
makunbound�
propertize� fmakunbound� macroexpand� minibufferp�
documentationr� rY rZ r[ r\ r^ r_ r] r` r� r� r3 r� r� r r r5 r r9 �read-from-string> �
define-widget�with-no-warnings�with-electric-helpr' rC rH �defalias�featurep� defvaralias> �&aux�&key�&body�&rest�&whole� &optional� &environment�&allow-other-keys> � cl-assert�
user-error�
cl-check-type�warnr� r c # �V K � dg}t j | ||� D �] \ }}}|t j u r�|t j
v r|t j |f�� �B|t j v r |t |f�� �`|t j v r|t j |f�� ��|t j v r|t j |f�� ��|t j v r|t j |f�� ��|t j v r|t j |f�� ��|||f�� ��
y �wr� )r r( r r* r r� r) r� r �error_keywords� Exception� builtin_function_highlightedr+ r� r� �Pseudor� s r2 r( z%EmacsLispLexer.get_tokens_unprocessed� s � �� ����#-�#D�#D�T�4�QV�#W� &� �E�5�%���
�
�%��N� ;� ;�;� �� � ��5�5� ��N� 8� 8�8� ��%�/�/� ��N� 9� 9�9� �� � ��6�6� ��N� G� G�G� �� � �u�4�4� ��N� 1� 1�1� �� � �u�4�4� ��N� ?� ?�?� �� � ��6�6� ����%� %�) &�s �D'D)r� rF r� rH rI z
\?([^\\]|\\.)r� r� rJ r� r� r� r� z\[|\]rK z#\^\^?r� 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]+)?r� r� z (,@|,|\.|:)r� r� r� r� r� rG z[^"\\`]+z`%s\'rV z\\\n)rX r� rI N),rY rZ r[ r\ r] r_ r` ra rb rd re r� r� r� r� r� r� r� r� r� r� r( r r r rs r
rz r r+ rx r
r r< r; r r) ru rv rw r{ r* r� r} r� r r2 r r � sl � �� �D�.�G���I� �!6�7�I� �L�L�E�
-�H��X�%�K�'�J� $,�[�
9�F�/�F�b�M�x��t
$� � ��
�N�
&�4
�F�O�
�
�Z� � �g�n�n� %� �6�8� $�
�v�{�{� +�
�F�]�D�L�L� )�
�V�^�V�]�]� +�
�F�]�F�M�M� *�
�8� �
�8� � �j�
(�&�.�.� 9�
�z�
)�6� 2�
L�
�� � � �
'� �{� #� �V�^�V�]�]� +� �� !� �T�]�]� #� )�&�*�*� 5� +�F�J�J� 7� 7��
�
� C� 7�� ?� �x� �
�x� � �X� &� �*�
$�d�m�m� 4� �V�^�e�
#�T�]�]�%9�%9� :�
�T�]�]� #� �X�v� &�
�K�� (�
�K�� (�AA
�F �&� !�
��
��
�
� .�
�6�N�
�V� �
�f� �
�6�6� "�
�MN�Fr r c �< � e Zd ZdZdZdZdgZdgZddgZdZ d Z
d
Z d Z e D � ��ci c] }|t �� c}}} Zej d � e D � � ej d
� e
D � � dZdez Zdez Zdez Zdedfdej* fdej, fdefgdej0 fdej2 fdefdefdefd efd e fd e j< fd e j> fded fee jB fd!e
jD fee fd"efgd#�Z#d$� Z$d%� Z%d&� Z&d'� Z'd(� Z(d)� Z)y*c c}}} w )+r z@
Lexer for Shen source code.
.. versionadded:: 2.1
�Shenzhttp://shenlanguage.org/�shenz*.shenz text/x-shenzapplication/x-shen)
�datatyper r� � defprolog�defcc�synonymsr� �package�typer� )r� r� r� r' �casesr� r% rS �freezer0 r� r� �protectr< r r r� �outputzprolog?z
trap-errorr� r z/.rA z@pz@sz@v)�r r^ rX rY rZ r[ r\ r_ r` r] z <-addressz<-vectorr� � absvectorz
absvector?z address->�adjoinrf �arityr� r� rp zbound?�call�cdr� �cnr� rD 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� rK � intersectionr� �kill�languager� �limit�lineread�loaded�macror� r �mapcan�
maxinferences�modez n->string�nlr� r r � occurrencesz occurs-checkr; �os�out�port�porters�pos�pr�precludezpreclude-all-butr% �profilezprofile-results�ps�quitr1 zread+r2 r
zread-file-as-bytelistzread-file-as-stringr� �releaser� r� r> �runr rA z simple-error�snd�
specialise�spy�step�stinput�stoutput�strz string->nrQ rb �substrh �systemf�tail�tcztc?�thaw�tl�tlstr�tlv�trackztuple?�
undefmacror. zunify!�union� unprofile� unspecialise�untrackz variable?rw zvector->r{ �verifiedr} r� r� r� r� zy-or-n?)�where�skipr� r r� z<e>z<!>c # �@ K � | ] }|t j f�� � y �wr& )r r+ ��.0�ss r2 � <genexpr>zShenLexer.<genexpr>F s � �� �8�!�Q�� � �%�8�s � c # �, K � | ] }|t f�� � y �wr& )r r� s r2 r� zShenLexer.<genexpr>G s � �� �8�Q�Q��L�8�s �z[\w!$%*+,<=>?/.\'@&#:-]z%s+z [a-z!$%%*+,<=>?/.\'@&#_-]%s*z[A-Z]%s*rH rG z
c#\d{1,3};z~[ARS%]z(?s).z(?s)\\\*.*?\*\\z\\\\.*rF z_{5,}z={5,}z(;|:=|\||--?>|<--?)z (:-|:|\{|\})z[+-]*\d*\.\d+(e[+-]?\d+)?z[+-]*\d+rI z(true|false|<>|\[\])z
(\[|\]|\(|\)))rI rX c �v � t j | |� }| j |� }| j |� }|S r& )r r( �_process_symbols�_process_declarations)r, r- r} s r2 r( z ShenLexer.get_tokens_unprocessedh s9 � ��2�2�4��>���&�&�v�.���+�+�F�3���
r c �Z � |t t t j t j fvS r& )r r r rs rt )r, r/ s r2 � _relevantzShenLexer._relevantn s � ��T�:�w�~�~�w�?P�?P� Q�Q�Qr c # �� K � d}|D ]d \ }}}|||f�� | j |� s� |r3|t k( r*|| j v r |}| j ||� E d { ��� |dk( xr |t k( }�f y 7 ��w�NF�()r r r� �_process_declarationr )r, r} �
opening_parenr. r/ r0 � declarations r2 r� z ShenLexer._process_declarationsq s� � �� � �
�#)� F� �E�5�%����%� %��~�~�e�$� �U�g�%5�%�4�CT�CT�:T�"'�K� #� 8� 8��f� M�M�M� %�� � E��+�1E�
�
F�
N�s �$A1�0A1�A/�A1c # �, K � d}|D ]� \ }}}|rC|t t j fv r+| j j |t j
� }n'|t k( r || j v rt j }|dk( xr |t k( }|||f�� �� y �wr ) r r r* �MAPPINGSr� r) �BUILTINS_ANYWHEREr+ r )r, r} r r. r/ r0 s r2 r� zShenLexer._process_symbols{ s� � �� � �
�#)� &� �E�5�%� ��7�D�M�M�*B�!B� �
�
�)�)�%�� � �?���'�!�e�t�/E�/E�&E� � � �� !�S�L� A�U�k�-A�M����%� %�
&�s �BBc # � K � |D ] \ }}}| j |� r n |||f�� �" |dk( rtd}t k( rt j n|}|f�� |D ]J \ }}}|r|t k( rt j }|||f�� | j |� s�;|t k( xr |dk( }�L y |dk( r#t k( rt j
n|}|f�� y |dk( r�t k( rt j n|}|f�� |D ] \ }}}| j |� r n |||f�� �" |dk( r6|t k( r-|t |f�� | j |� D ]
\ }}}|||f�� � y |||f�� y t k( rt j n|}|f�� y �w)Nr� Fr� r� r �{) r r r r� r r� r) r �_process_signature)r, r r} r. r/ r0 �prev_was_colons r2 r z ShenLexer._process_declaration� s� � �� �#)� &� �E�5�%��~�~�e�$�����%� %� &�
�*� $� "�N�$)�W�$4�G�L�L�%�E����%� %�'-�
G�#��u�e�!�e�w�&6� #�L�L�E��U�E�)�)��>�>�%�(�%*�g�%5�%F�%�3�,�N�
G�4 �) �I�
%�&+�w�&6�D�N�N�E�E����%� %�$ �# �H�
$�%*�g�%5�D�M�M�5�E����%� %�'-�
*�#��u�e��>�>�%�(���U�E�)�)�
*� ��|��� 0��[�%�/�/�+/�+B�+B�6�+J� .�'�E�5�%� ���-�-�.� � �U�E�)�)�
� &+�g�%5�D�M�M�5�E����%� %��s
�B E;�C-E;c # � K � |D ]p \ }}}|t k( r|dk( r
|t |f�� y |t t j fv r0|j � rt j
nt j }|||f�� �r y �w)N�})r r r r) �istitler* r r� )r, r} r. r/ r0 s r2 r
z ShenLexer._process_signature� so � �� �#)� &� �E�5�%��� �E�S�L��[�%�/�/���7�D�M�M�2�2�).� � � ��
�
�g�l�l�����%� %�
&�s �A7A9N)*rY rZ r[ r\ r] r^ r_ r` ra r� r� �BUILTINSr
r r �update�valid_symbol_charsrf � symbol_name�variabler
r| �Interpolr rt rs r r r r r; r< r r* r� r} r( r r� r� r r
)r� r� r s 000r2 r r s� � ��
�D�
$�C��h�G��
�I� � 4�5�I��L�
�M��H�6 H��$0�1�1�q��7�
�1�H� �O�O�8�x�8�8� �O�O�8�-�8�8�3���+�+�J�1�4F�F�K�� /�/�H� �6�6� "�
�F�M�M� *�
�� � � )�
�v� �
� ��!2�!2� 3�
���� '�
�Z� �
�{� #�
�{� #�
#�[� 1�
�g� &�
)�6�<�<� 8�
�&�.�.� )�
�6�8� $�
�t�}�}� %�
$�g�n�n� 5�
�'� "�
�{� +�
��F�4� R�F�&�$�L&��M 2s �Dr c � � e Zd ZdZdZdgZdgZg ZdZdZ dZ
dd e j fd
e
fd ej fd ej fd
efde
z ej$ fdej& fdej* fdef eed�� efde
z ej2 fde
z ej2 f ee dd�� ej4 fde
z ej6 fe
ej2 fde fde fgiZ y)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) rI �recvr] r- �skey�akey�data�mesg) �cat�encr� �privk�pubk�invk�ltk�genr� r$ rX r� rF r� r� r� rJ rL rM rN r7 r� rO rP rQ �rl r� r r N) rY rZ r[ r\ r] r_ r` ra r� r� rf r rs r r r; r< r
rx rz r r{ r
r r r* r+ r) r r} r� r r2 r r � s6 � ��
�D��h�G��
�I��I��I� �I� ,�J� � �g�n�n� %� �Z� � �F�L�L� )�
�v�~�~� &� )�&� 1�
�J�
��
�
� .�
7���� E� �� � � '� �� *� �9�U�
+�W� 5� �:�
%�t�}�}� 5�
�:�
%�t�}�}� 5� �9�Z��
>�� � � M� �*�
$�d�m�m� 4�
�� � � '� �� %�
�� %�Y-
�/�Fr r c �� � e Zd ZdZdZdZdgZdgZg ZdZ dZ
dZ d Z d
Z
d Zd Zd
ZdZdZdedfdedfdez ej* fdez ej* fdez ej* fdez ej* fdez ej* fdez ej* fdez ej* fdez ej* fd ez ej* fd ez ej. fd ez d z ez d z ez d!z ez d"z ej. f ee d#�$� ef eed#�$� ej* f ed%� eej4 fgd&ez ej8 fd'ej: fd(e f ee
d#�$� ef eed#�$� ej* f ed%� eej4 fgd)e j@ fd*e!fd+e"jF fd,e"jH fd-e"fd.efd/ejJ f ee d#�$� ef ee
d#�$� ej* fd0efg
ee d#d1�2� edf ed3� gd4�Z&y5)6r a An xtlang lexer for the Extempore programming environment.
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 http://extempore.moso.com.au� extemporez*.xtm) r� r r' r r� r r< r� r rJ r r� )
r� r r� r� rU r� r r0 r1 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)JrX rY rZ r[ r\ r] r^ r_ r` r� ra rb re rf rg rj r� rl rm rn rp 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? rG rM rf rm 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� zinteraction-environmentr� r� r� r� r� r� r� r� r� r� r r r r
r r znull-environmentr r r r� r r r r r r r! r( r+ r/ r0 r1 r3 r6 r7 r: zscheme-report-environmentzset-car!zset-cdr!rI rO rP rQ rR rS rT rU rV rW rX rY rZ r[ r\ r] r^ r_ r` ra rb rg rh ztranscript-offz
transcript-onrt rv rw rx ry rz r{ r r� r� r� r� )o�toStringzafill!zpfill!ztfill!�tbindzvfill!z array-fill!z
pointer-fill!z tuple-fill!ry �freer� �tupler� r� zcset!�crefr� �borz ang-namesr� r� r� r& �sprintfr r� zpset!zpref-ptrzvset!�vrefzaset!r& zaref-ptrztset!�trefztref-ptr�salloc�halloc�zalloc�alloc�scheduler� r� rG r� rm rj rb rn rM r� r� r� rt r? � llvm_printf� push_zone�pop_zoner4 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�bitcastr~ �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� rR r� rG 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)r� z(<z>|\|z\||/z/|z\*)\**rQ )rl �commonrJ rL rN r� rF r� r� z(#b|#o|#x)[\d.]+r� rM r r7 r/ r" )r1 r" re rX N)'rY rZ r[ r\ r] r^ r_ r` ra �common_keywordsr �xtlang_bind_keywords�xtlang_keywords�common_functions�scheme_functions�xtlang_functions�valid_scheme_name�valid_xtlang_name�valid_xtlang_typer r r) r r� r r r* r
rx rz r
r rs r r r; r< r{ r} r� r r2 r r
s� � �� �D�
(�C��m�G�� �I��I��O��O� ���O� ��"��F��0 3�� $��,��
�K�� )�
�K�� (�
�#4�
4�d�m�m� D�
�"3�
3�T�]�]� C�
�#4�
4�d�m�m� D�
!�$5�
5�t�}�}� E�
�#4�
4�d�m�m� D�
�"3�
3�T�]�]� C�
!�$5�
5�t�}�}� E�
$�'8�
8�$�-�-� H�
#�&7�
7�� � � G� �%�
%�w�|�|� 4� �&�
&��
0�3D�
D�w�
N�
� �!&�'�):�;�=F�G�
�\�\�
�
�?�:�
6�� @� �#�J�
7�� � � G� �H� � ��
�
� .�?
�F �%�
%�v�}�}� 5� 8���� E� �� *� �?�:�
6�� @� �#�J�
7�� � � G� �H� � ��
�
� .�'
�0 �g�n�n� %� �Z� � �F�L�L� )�
�v�~�~� &� !�&� )� )�&� 1� �� � � '� �?�:�
6�� @� �#�J�
7�� � � G� �� %�7
�> �'�
�5�
I�
�h�
�
�H� �
�m]�Fr r c � � e Zd ZdZdZdZddgZdgZdZdZ d Z
d
Z d d e j fd
efdefdej" fdej$ fdefdej* fde z ej, f eed�� ef ee d�� ej2 f ee
d�� ej4 fdej6 fe ej6 fde fde fde fde fgiZ y) r z�A lexer for the Fennel programming language.
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
�Fennelzhttps://fennel-lang.org�fennel�fnlz*.fnl)?�#r� rX rY rZ r� r� z-?>z-?>>r9 z..r[ z//r� 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�rshiftrA z
set-forcibly!�tsetrv r� r� z with-openz~=)r� r� r� r4 r� r� �varrW )'�_G�_VERSION�arg�assert�bit32�collectgarbage� coroutiner� �dofiler� �getfenv� getmetatable�io�ipairsr� �loadfile�
loadstring�math�nextr� r� �pairs�pcallr% �rawequal�rawget�rawlen�rawsetrH r �setfenv� setmetatablerI �table�tonumber�tostringr� r0 �xpcallz0[a-zA-Z_!$%&*+/:<=>?^~|-][\w!$%&*+/:<=>?^~|\.-]*rX r� r� rF r� r� r� z(true|false|nil)r� r� r� z\.\.\.r r r rs N) rY rZ r[ r\ r] r^ r_ r` r� r� r rf r rs r r r r; r< r
r r{ rx r r ry r+ r* r r} r� r r2 r r �
s" � �� �D�
#�C��� �G�� �I� �M��L��H� E�J� �
�g�n�n� %�
�D�M�
�Z� �
�F�L�L� )�
�v�~�~� &�
(�&� 1�
�$�-�-� 0�
�J�
��
�
� .� �=��
-�w� 7�
�<��
,�g�.A�.A� B�
�8�C�
(�$�,�,� 7�
��
�
� &�
�� � � '� �� %�
�� %�
�� %� �;� �G$
�&�Fr r )$r\ rb �pygments.lexerr r r r r �pygments.tokenr r r
r r r
r r r r r �pygments.lexers.pythonr � pygments.lexers._scheme_builtinsr r �__all__r r r r r r r r r r r� r r2 �<module>r� s� ���
� H� H�4� 4� 4� 4� /� M� )��
K�*� K�\z�j� z�zp�j� p�fl�*� l�^ A�:� A�HB
�Z� B
�Jb&�
� b&�JK�
� K�\I�*� I�XQ�*� Qr |