�
H�g�g � � � 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# G d � d e� � Z$dS ) z�
pygments.lexers.lisp
~~~~~~~~~~~~~~~~~~~~
Lexers for Lispy languages.
:copyright: Copyright 2006-2025 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� FennelLexer�
JanetLexerc �� � � e Zd ZdZdZdZddgZddgZdd gZd
Z e
j e
j z Z
d Zd Z� fd
�Zi ZdD ]~Zedk rdZdZn edk rdZdZnedk rdZdZn
edk rdZdZde� d e� 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� d0�Zeee< �d1� Z e d2� � g e d3� � gd4e j fd5e j d6fd7e d8fd9e d:fd;e fd<e!fed e"j# d=fed e"j$ d=fed e d=fed e"j% d=fd>e&d?fd@ez e&j' d=fdAez e(j) d=fdBe&j* d=fdCe+j, d=fdDe-fdEez e+j. d=fdFez e+j. d=fdGez e+j/ d=fee+j. d=fdHe0d2fdIe0dJfgd5e j dKfdLe j d=fdMe j fdNe j fgdHe dKfdIe d=fdOe fgdPe� �e d=fgd>e&dQfdRe&j1 fdSe&j1 fdTe&j1 fdUe&j1 fdVe&j1 fdWe&fgdX�Z2� xZ3S )Yr 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.
�Schemez http://www.scheme-reports.org/�scheme�scmz*.scmz*.ssz
text/x-schemezapplication/x-schemez0.6�[\w!$%&*+,/:<=>?@^~|-]+z�
(?=
\s # whitespace
| ; # comment
| \#[;|!] # fancy comments
| [)\]] # end delimiters
| $ # end of file
)
c # � �K � t � � � |� � D ]b\ }}}|t j u s|t j u r9|t
v r
|t |fV � �8|t v r|t j |fV � �S|||fV � �[|||fV � �cd S �N) �super�get_tokens_unprocessedr �Function�Variabler r r �Builtin)�self�text�index�token�value� __class__s ��d/home/asafur/pinokio/api/open-webui.git/app/env/lib/python3.11/site-packages/pygments/lexers/lisp.pyr) z"SchemeLexer.get_tokens_unprocessed= s� �� � � �#(�7�7�#A�#A�$�#G�#G� *� *� �E�5�%���
�%�%��$�-�)?�)?��O�+�+� ��%�/�/�/�/�/��o�-�-� �� �u�4�4�4�4�4� ���-�-�-�-�-��U�E�)�)�)�)�)� *� *� )� � �
� r5 z[01]z
( \#[bB] )r6 z[0-7]z
( \#[oO] )r7 z[0-9]z
( (\#[dD])? )r8 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|� � � v r
t j }n t j }|� � � ||� � � fV � d S )N�.)�groupr �Float�Integer�start)r- �match�
token_types r3 �
decimal_cbzSchemeLexer.decimal_cb� sR � � � � �%�+�+�-�-� � � � �J�J� � �J��k�k�m�m�Z���� � �6�6�6�6�6�6r4 � scheme-rootr1 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]+;�\\x[0-9a-fA-F]{2}z\\u[0-9a-fA-F]{4}z\\U[0-9a-fA-F]{6}�\\.�[^\\"]+)�rootrC r1 rE rF rG rK )4�__name__�
__module__� __qualname__�__doc__�name�url�aliases� filenames� mimetypes�
version_added�re�DOTALL� MULTILINE�flags�
valid_name� token_endr) � number_rules�base�digit�radix�prefix�ureal�decimal�naninf�real�complex_�numrB r r �Single� Multiliner r �Bin�Oct�Hexr
�Symbolr � Declaration�Charr �Constantr
r+ r* r �Escape�tokens�
__classcell__)r2 s @r3 r r s �� � � � � �� � �D�
*�C��� �G��&�!�I� �"8�9�I��M� �I�� � $�E�
,�J��I�
*�
*�
*�
*�
*�, �L� � V!� V!�� �1�9�9��E�!�E�E�
�Q�Y�Y� �E�!�E�E�
�R�Z�Z� �E�$�E�E�
�R�Z�Z�"�E�!�E� �
� � � � � � �� �
� � � � � � �� �2�:�:��G�&��� � �� � �E� "�� �� � � � � � �� �
� � � #� � �&+� � � � � � � � � �� �
� � � � � � � � � �� !� �T��� 7� 7� 7�,
�G�M� "� "�
�
�G�G� � �
� �w�~� &�
�W�&�(;� <�
��!1� 2�
�G� .� /� �� � �Z� � �!�_�f�j�&� 1�
�!�_�f�j�&� 1�
�"�
�z�6� 2�
�"�
�v�z�6� 2� �6�8� $�
�J�
��
�v� 6�
�Z�
��!4�f� =�
7���f� M� �� �� /� �� *� �:�
%�t�}�f� =�
�:�
%�t�}�f� =�
�*�
$�d�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�F�F�F�Fr4 r c �� � e Zd ZdZdZdZg d�ZddgZdgZdZ e
j e
j z Z
d Zed
z Zd Zd e� d
e� d�Zd� Zd� Z ed� � gdej dfdej dfdej fdej fgdej dfdej dfdej fgg def�d ej f�dej d f�d ej f�d ef�d ez ej f�d!ez ej f�d"ez ej f�d#ez ej 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"j# f�d,ez ej f�d-e f�d.e$j% f�d/e j& f�d0e j' f�d1e j( f�d2e f�d3 e)e e*� � df�d4 e)e"j# e*� � df�d5 e)e"j# e*� � df�d6e"j# f�d7e f�d8e f�d9ez d:z ej d;f�d<e f�d=e f�d>ez e$j+ f�d?ez d?z e$j, j- f�ee$j, f�de*df�de*df�d@�Z.dA� Z/dBS )Cr z
A Common Lisp lexer.
z Common Lispzhttps://lisp-lang.org/)z common-lisp�cl�lispz*.clz*.lispztext/x-common-lispz0.9z \\.|[\w!$%&*+-/<=>?@\[\]^{}~]�|[#.:]z(?=[ "()\'\n,;`])z(\|[^|]+\||(?:�)(?:�)*)c � � ddl m}m}m}m}m}m}m} || _ || _ || _
|| _ || _ || _
|| _ t j | fi |�� d S )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 r3 r� zCommonLispLexer.__init__? s� � � +� +� +� +� +� +� +� +� +� +� +� +� +� +� +� +� +� +� !2�� � *��� �� �$8��!� (��� *��� .�� ���D�,�,�G�,�,�,�,�,r4 c # �� K � dg}t j | ||� � D ]�\ }}}|t j u r�|| j v r|t j |fV � �/|| j v r
|t |fV � �E|| j v r|t j |fV � �`|| j v r
|t |fV � �v|| j
v r
|t |fV � ��|| j v r|t j |fV � ��|| j
v r|t j |fV � ��|||fV � ��d S �Nr[ )r r) r r+ r� r, r� r r� r� r� r� �Typer� �Class�r- r. �stackr/ r0 r1 s r3 r) z&CommonLispLexer.get_tokens_unprocessedL sc � � � ����#-�#D�T�4�QV�#W�#W� &� &� �E�5�%���
�%�%��D� 1�1�1� �� �u�4�4�4�4� ��D� .�.�.� ��%�/�/�/�/� ��D�K�'�'� �� �u�4�4�4�4� ��D� 5�5�5� ��%�/�/�/�/� ��D� -�-�-� ��%�/�/�/�/� ��D� .�.�.� �� �u�4�4�4�4� ��D� 0�0�0� ���U�2�2�2�2� ����%� %� %� %� %�/ &� &r4 �bodyrD rT rU rI rV rW �\(�\)z[^()]+rH �;.*$rE z#\d*Y.*$z"(\\.|\\\n|[^"\\])*"�:�::z:#rL �`� [-+]?\d+\.?� [-+]?\d+/\d+�<[-+]?(\d*\.\d+([defls][-+]?\d+)?|\d+(\.\d*)?[defls][-+]?\d+)z#\\.z#\\�#\(z #\d*\*[01]*rM 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*\(rF z#[+-]z (,@|,|\.)�(t|nil)�\*)r[ rE rF r� c �4 � t j d| � � rdS dS )z#Competes with Visual Prolog on *.clz
^\s*\(defun\sg�������?r )rf �search�r. s r3 � analyse_textz CommonLispLexer.analyse_text� s# � �
�9�%�t� ,� ,� ��3��1r4 N)0r\ r] r^ r_ r` ra rb rc rd re rf �
IGNORECASErh ri �nonmacro� constituent�
terminated�symbolr� r) r r rx �Preprocr rw �Specialr
r| r
r r> r= r~ r �Otherr r* ry rz r{ r r r r+ �Globalr� r� � r4 r3 r r ' s� � � � � � �� � �D�
"�C�+�+�+�G���"�I�%�&�I��M� �M�B�L� (�E�
0�H��X�%�K�%�J� >�x�
=�
=�[�
=�
=�
=�F� -� -� -�&� &� &�:
�G�F�O�O�
� �W�&�� 0�
�W�&�� /�
��)� *�
�g�'� (�
� �G�O�W� -�
�G�O�V� ,�
��� (�
�
_
�
�Z� �_
�
�g�n� %� _
� �W�&�(;� <�_
� �'�/� *�_
� %�f� -� _
� �F�]�F�M� *�!_
�" �V�^�V�]� +�#_
�$ �V�^�V�]� +�%_
�& �F�]�F�M� *�'_
�( �8� �)_
�* �8� �+_
�0 �j�
(�&�.� 9�1_
�2 �z�
)�6� 2�3_
�4 M�
�� � �
'�5_
�< �z�
!�6�;� /�=_
�> �f�_�f�k� *�?_
�D �X�v� &�E_
�J �W�]� +�K_
�P �V�^�V�]� +�Q_
�V �x� �W_
�\ �T�]� #�]_
�b &�v�z� 2�c_
�h (��� 4�i_
�n .�v�z� :�o_
�t 1�&� 9�u_
�z �(�(�6�;�7�7�� @�{_
�@ �X�X�g�m�[� A� 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� 4�m_
�r �V�^�e�
#�T�]�%9� :�s_
�t �T�]� #�u_
�z �K�� (�{_
�| �K�� (�}_
� o� o�F�b� � � � r4 r c �8 � e Zd ZdZdZdZddgZdgZddgZd Z d
Z
d Z d Z d
Z
e e
z ZdZd� Zdej fdefdej fdej fdej fdej fdefdez ej fdej fd e e ej � � fd e e ej � � fdez ej fd e f e d � � e d � � ee
� � e!f ee � � e!j" f ee� � e#j$ fd ez e#j% fee#j& fd e'fd!e'fd"e'fge(j) d# e(j) d$ d%�Z)d&� Z*d'S )(r z#
Lexer for Hy source code.
�Hyzhttp://hylang.org/�hylang�hyz*.hyz text/x-hyzapplication/x-hyz2.0)%�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�quoter9 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?�neg?znone?�nthznumeric?�odd?�pos?�remove�repeat�
repeatedly�take�take_nth�
take_while�zero?z [^ \t\n\r\f\v()[\]{};\"'`~]+c �$ � t | d�� � S )N� ��suffix)r )�entriess r3 �
_multi_escapezHyLexer._multi_escape s � ��W�S�)�)�)�)r4 r� z[ \t\n\r\f\v]+�
-?\d+\.\d+�-?\d+z 0[0-7]+j?z0[xX][a-fA-F0-9]+�"(\\\\|\\[^\\]|[^"\\])*"rL z \\(.|[a-z]+)z"^(\s*)([rRuU]{,2}"""(?:.|\n)*?""")z"^(\s*)([rRuU]{,2}'''(?:.|\n)*?''')z::?z
~@|[`\'#^~&@]� py-keywords� py-builtinsrS �(\[|\])�(\{|\})�(\(|\))�keywords�builtins)r[ r r c � � d| v sd| v rdS d S )Nz(import z(defn g�������?r� r� s r3 r� zHyLexer.analyse_textO s$ � � �� � ��T�!1�!1��3� "2�!1r4 N)+r\ r] r^ r_ r` ra rb rc rd re r� r� � hy_builtins�hy_corer rj r r rw r r r= r> rz r{ r
r| r~ r r �Docr
r r r} r r, r* r+ r r r� r� r� r4 r3 r r � s � � � � � �� � �D�
�C��� �G���I� � 0�1�I��M��M��L� �K��G� �W�$�H�
1�J�*� *� *� �g�n� %� �
� +� �F�L� )�
�v�~� &�
�6�:� &�
!�6�:� .� )�&� 1�
�J�
��
� .�
�f�k� *�
2�H�H�T�6�:�4N�4N� O�
2�H�H�T�6�:�4N�4N� O� �j�
�&�-� 0� �x� (� �G�M� "� "� �G�M� "� "� �]�=�
)�
)�7� 3� �]�<�
(�
(�'�*=� >� �]�8�
$�
$�d�l� 3� �*�
$�d�m� 4� �� � '� �� %� �� %� �� %�q:
�v #�)�*�5�"�)�*�5�{>� >�F�@� � � � r4 r c �4 � e Zd ZdZdZdZddgZg d�ZddgZd Z d
Z
d Z d Z d
Z
dZde� d�ZdZdZdZde� d�Zde� e� d�Zde� e� d�ZdZde� de� d�Zde� de� d�Ze
efd ed fgd efd ej fd ej 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&fd0e� d1e� d%�e j! d&fd2e� �e j" d&fd3e� �e j# d&fd4e� �e j$ d&fd5e� �e j! d&fd6e%j& d7fd8e%j' d&fd9e%j( d&fd:e%j( d&fd;e%j) d&fd<e*j+ d&fd=e� �e,j- d&fd> e.e,j/ e*j/ � � fd?e,j/ d@fdAe� dB�e0fdCe � d�e0dDfgdEe0fee%j1 d&fdFef e2d&� � ge
e3d&fg e4dG� � dHe� d%�e,dDfdIe0dJfdKe� d%�e,dJfe e3dLf e5e
dMe� d%��N� � e,d&f e5e dMe� d%��N� � e*j6 d&fee*d&f e4dO� � g e4dP� � d ed fg e4dG� � dQe0dRfdSe� d%�e,dRfe e3dTf e4dO� � g e4dP� � d edUfg e4dG� � e e3dVf e4dO� � g e4dP� � d ed@fgd ej dWfdXej d&fdYej fgdZe%j& d&fd[e%j7 fd\e%j& fgd]� Z8d^S )_r zJ
Lexer for Racket source code (formerly
known as PLT Scheme).
�Racketzhttp://racket-lang.org/�racket�rkt)z*.rktz*.rktdz*.rktlz
text/x-racketzapplication/x-racketz1.6(~ 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�planetrp 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>?�bytes?�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/c�false?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-handler�group-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<?�keyword?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?�nan?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?rK 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-arrow�struct?�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]|[^|\\z]+)+z(?:#e)?(?:#d)?(?:#e)?z(?:[defls][-+]?\d+)z (?:\d+(?:/\d+|\.\d*)?|\.\d+)z(?:z9|(?:\d+#+(?:\.#*|/\d+#*)?|\.\d+#+|\d+(?:\.\d*#+|/\d+#+)))z?)z(?:(?:inf|nan)\.[0f])z(?:[-+]?z|[-+]�)r9 z(?!\Z)�unquoted-datumz(?s)#;|#*z;[^\n\r\x85\u2028\u2029]*rD �
block-commentz(?u)\s+z(?i)z [-+]?\d+(?=[z])rI 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])?#bz(?iu)(#[ei])?#oz(?iu)(#[ei])?#xz (?iu)(#d)?#iz#?")rI rK 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])rM z(#lang |#!)(\S+)z#reader� quoted-datumz
(?i)\.(?=[z])|#c[is]|#['`]|#,@?z '|#[s&]|#hash(eqv?)?|#\d*(?=)rI r� z`|,@?z[|\\]�datumz quote(?=[r� )rI �quasiquoted-datumzquasiquote(?=[)rI �
unquoted-listz(?=[r� �datum*r� z,@?)rI r� zunquote(-splicing)?(?=[)rI �quasiquoted-listr� )rI � quoted-listrT rU z[^#|]+|.rJ zG(?s)\\([0-7]{1,3}|x[\da-fA-F]{1,2}|u[\da-fA-F]{1,4}|U[\da-fA-F]{1,8}|.)rZ ) r[ r� r� r� r� r� r� r� r� r� r� rK N)9r\ r] r^ r_ r` ra rb rc rd re � _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 rw rx r r r> r= ry rz r{ r
�Double�Heredocr~ �Regexr r r r} r � Namespacer
r| r r r r r, r� r� r� r4 r3 r r T s � � � � � �� �
�D�
#�C��� �G�-�-�-�I� �"8�9�I��M�^�I�Be
�I�N $��$��$�K�>�[�>�>�>�G� 4��&�I� ?� �2� 7� 2� 2� 2�O� O�'@� O�)� O� O� O� �;�_�;�i�;�;�;�O�/��I��I�I�6F�I�I�I�M�D��D�D�1A�D�D�D�� "�5� )�
�� .� /�
�
,�W� 5�
)�7�>� :�
�W�&�� 8� �� $� H�*�
G�
G� �
G�
G�
G�
�^�V�
%�
j�*�
j�
j�[f�
j�
j�
j�lr�lx� {A�
B� h�*� h� h�2K� h� h�Rk� h� h� wP� h� h� Yd� h� h� h� jp� rx�
y� U�=� U� U�/@� U� U�K\� U� U�an� U� U�q~� U� U� FQ� U� U� U� W]� Wc�
�
� ]�O�
\�
\�[�
\�
\�
\�^d�^j�lr� s� *��
)�
)�6�:�v� >� *��
)�
)�6�:�v� >� *��
)�
)�6�:�v� >� '�W�
&�
&�� �f� =� �V�]�$6� 7�
-�v�~�v� F�
6�� �V� L�
+�V�[�&� A�
&�� �f� =� %�d�m�V� <� �7�_�_�g� 1�6� :� !�
�X�g�'�� �
8�
8�
:�
��*�N� ;� =�;�
<�
<�
<�h� G�
D�-A�
D�
D�
D�
�/�
1�s;
�z �x� �
�f�m�V� ,�
�u� � �G�F�O�O�
� "�;�� 7�
�
�G�G� � �
)�+�
)�
)�
)�7�
%�
'�
�8� :� ;�
.�{�
.�
.�
.��
*�
,�
!�;�0I� J�
�U�9�%;�K�%;�%;�%;�
<�
<�
<�
�f�
�
�U�9�%;�K�%;�%;�%;�
<�
<�
<�
�\�6�
#�
�d�F� #� �G�H� � �
�
�G�F�O�O�
�� .� /�
�
�G�G� � �
�X� 9� :�
7� �
7�
7�
7��
'�
)�
!�;�0L� M� �G�H� � �
�
�G�F�O�O�
�� 1� 2�
�
�G�G� � �
!�;�0G� H� �G�H� � �
�
�G�F�O�O�
��n� -�
�
�W�&�� 0�
�W�&�� /�
�'�+� ,�
� �6�=�&� )�$�%+�]�
4�
�� � '�
�o}� }�F�F�Fr4 r c
� � e Zd ZdZdZdZdgZg d�ZddgZdZ e
j e
j z Z
d Zd
Zd ej fd ej fd
ej fdefdefdedfdedfdef eed�� � efdez ej feej fdefg dedfdedfd efgd edfgd �Z d S ) r z3
For newLISP source code (version 10.3.0).
�NewLispzhttp://www.newlisp.org/�newlisp)z*.lspz*.nlz*.kifztext/x-newlispzapplication/x-newlispz1.5(� �^�--r_ r� �!z!=�?r� r] r` �&�%r^ �++ra �<<rb rc rd re �>>r9 r� �$z$0z$1z$10z$11z$12z$13z$14z$15z$2z$3z$4z$5z$6z$7z$8z$9z$argsz$idxz$itz
$main-args�abortrf rg �acosh�add�address�ambr z append-filerk rl �argsz
array-list�array?�arrayro �asinhr� rs �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-event� 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?�global�if-notr, �ifftr� r� r/ zinf?�intr� �integer� intersect�invert�irr�joinz lambda-macrozlambda?r� z
last-errorr� zlegal?r� r� �letex�letnr r� r r9 r �lookupz
lower-casezmacro?z main-args�MAINzmake-dirr �matr@ r r r �modr; �mul�multiplyzNaN?z
net-acceptz net-closez net-connectz net-errorznet-evalz
net-interfaceznet-ipvz
net-listenz net-localz
net-lookupz
net-packetznet-peekznet-peerznet-pingznet-receive-fromznet-receive-udpz net-receivez
net-selectz net-send-toz net-send-udpznet-sendz net-servicez net-sessionsr= �nil?�nil�normalr �now�nper�npvr� r r r@ rA �ostype�packz
parse-date�parse�peek�pipe�pmtz pop-assoc�popzpost-url�powrp r- r. r/ r1 z prob-chi2zprob-zr3 z prompt-eventz
protected?�pushzput-url�pvzquote?r� �randr7 � randomizer; r= z read-expr� read-filezread-keyr> z read-utf8z reader-eventz real-path�receivezref-all�refz
regex-comp�regexz
remove-dir� rename-file�replace�resetr� rH �rotaterI �saver� �seed�seek�selectr- � semaphorerN �sequence�seriesz
set-localez set-ref-allzset-refrK �setf�setqrO �share�signal�silentrQ rR rT r� rU �source�spawnrW z starts-withrl rK �sub�swap�symrs rt ru z sys-errorzsys-inforx ry �termz throw-error�throwz time-of-dayrX �timerz
title-caseztrace-highlight�trace� transpose�Tree�trim�true?r~ �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� �#.*$rH r z\{� bracestringz \[text\]*� tagstringz('|:)�\br� rS r rT z\}rI z[^{}]+z(?s)(.*?)(\[/text\]))r[ rH rI N) r\ r] r^ r_ r` ra rb rc rd re rf r� rh ri r rj r r� rw r r
r
r r r r+ r| r r� r� r4 r3 r r � sD � � � � � �� � �D�
#�C��k�G�*�*�*�I�!�#:�;�I��M� �M�B�L� (�E�;�H�| 9�J�
�'�/� *�
�g�n� %�
�g�n� %� �Z� � )�&� 1� �F�M� *� �6�;� /� �x� � �U�8�E�
*�
*�
*�
�
� �*�
$�d�m� 4� �� � '� �� %�E#
�N �F�G� $�
�F�F� #�
�v� �
� %�f�f� 5�
�]1� 1�F�F�Fr4 r c � � e Zd ZdZdZg d�ZdgZddgZdZdZ e
j Z d Z
e
d
z Zd Zd e
� d
e� d�Zh d�Zh d�Zh d�Zh d�Zh d�Zh d�Zd� Z ed� � gdefdej fde dfde j fd ez e j fd ez e j fd ez e j fd e!fd e!fd ez e"j# fd!ez e"fd"ez e"j$ fd#e%fd$ez e j fd%e!fd&e j& fd'e"j' fd(e"j( fd)e"j) fd*e"fd+e!fd,e!fd-e!fd.ez e j* fd/ez d/z e j+ j, fee j+ fd0e!dfd1e%dfd2e%d3fg d4e fd e� d5�e j fd e fd6e fd7e fde d3fgd8�Z-d9S ):r zh
An ELisp lexer, parsing a stream and outputting the tokens
needed to highlight elisp code.
� EmacsLisp)z
emacs-lisp�elisp�emacsz*.elz text/x-elispzapplication/x-elispz"https://www.gnu.org/software/emacs�2.1z\\.|[\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 rE r- r� �blockr� �ecase�pcase�progv�psetf�psetqr� �labelsr� r6 �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, rA r r� r� r. r� �prog1�prog2r� r� r� �defvar�defconst�function� interactiver5 >� �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-resourcer] r_ ra rc rd �eqrf �ashr� r� r� �elt�eqlr� r� r �lshr �md5r r r� �putrK rQ rx rg �aref�asetro rq rs �atom�bobp�bolpr� �delq�ding�eobp�eolpr� r� �fsetr� r �logb�mapcr r r; rU rW rl r� �consp�equalr� r� �fontp�frexp�int86�isnan�ldexp�listp�memql�nconc�point�prin1�princr/ �rassqrI �subrp�widenrk �arrayp�boundp�concatr� �ffloor�floatpr� �framep�fround�imagep�insert�internr� �logand�logior�lognot�logxor�mapcarr �nlistp�nthcdrr7 �rassoc�setcar�setcdrr0 rK �sxhash�terpri�upcaser� �bufferpr� �clrhash�daemonp�fboundp�funcall�gethash�keymapp�maphash�markerp�message�natnump�numberp�puthash�remhashrH �stringp�symbolp�vconcat�vectorp�windowp�autoload�charsetp�commandp�copysign�downcase�fceilingr� �integerp�keywordp�mapatoms�nreverse�overlayp�processp�purecopy�recenter�setplistr �unintern� backtrace� byteorder� fillarray� ftruncate� functionp� mapconcat� redisplay� sequenceprq �
capitalize�
characterp�
makunbound�
propertize� fmakunbound� macroexpand� minibufferp�
documentationr� r^ r` �/=rb re r� r r= r� r� r r
r? r" rC �read-from-string> �
define-widget�with-no-warnings�with-electric-helpr8 rH rM �defalias�featurep� defvaralias> �&aux�&key�&body�&rest�&whole� &optional� &environment�&allow-other-keys> � cl-assert�
user-error�
cl-check-type�warnr� r0 c # �� K � dg}t j | ||� � D ]�\ }}}|t j u r�|t j v r|t j |fV � �4|t j v r
|t |fV � �O|t j v r|t j
|fV � �o|t j v r|t j |fV � ��|t j
v r|t j |fV � ��|t j v r|t j |fV � ��|||fV � ��d S r� )r r) r r+ r r� r* r� r �error_keywords� Exception� builtin_function_highlightedr, r� r� �Pseudor� s r3 r) z%EmacsLispLexer.get_tokens_unprocessed� sB � � � ����#-�#D�T�4�QV�#W�#W� &� &� �E�5�%���
�%�%��N� ;�;�;� �� ��5�5�5�5� ��N� 8�8�8� ��%�/�/�/�/� ��N� 9�9�9� �� ��6�6�6�6� ��N� G�G�G� �� �u�4�4�4�4� ��N� 1�1�1� �� �u�4�4�4�4� ��N� ?�?�?� �� ��6�6�6�6� ����%� %� %� %� %�) &� &r4 r� rH r� rJ rK z
\?([^\\]|\\.)r� r� rL r� r� r� r� z\[|\]rM 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� rI z[^"\\`]+z\'rY z\\\n)r[ r� rK N).r\ r] r^ r_ r` rb rc rd ra re rf rh ri r� r� r� r� r� r� r� r� r� r� r) r r r rw r
r~ r r, r| r
r r> r= r r* ry rz r{ r r+ r� r� r� r4 r3 r r | s� � � � � � �� � �D�.�.�.�G���I� �!6�7�I�
.�C��M� �L�E�
-�H��X�%�K�'�J� 4�X�
3�
3�;�
3�
3�
3�F�/� /� /�F�b� � �M�x� x� x��t
$� $� $� � � � ��
� � �N�
&� &� &�4
�G�F�O�O�
�
�Z� � �g�n� %� �6�8� $�
�v�{� +�
�F�]�D�L� )�
�V�^�V�]� +�
�F�]�F�M� *�
�8� �
�8� � �j�
(�&�.� 9�
�z�
)�6� 2�
L�
�� � �
'� �{� #� �V�^�V�]� +� �� !� �T�]� #� )�&�*� 5� +�F�J� 7� 7��
� C� 7�� ?� �x� �
�x� � �X� &� �*�
$�d�m� 4� �V�^�e�
#�T�]�%9� :�
�T�]� #� �X�v� &�
�K�� (�
�K�� (�AA
�F �&� !�
�&�_�_�_�f�m� ,�
�6�N�
�V� �
�f� �
�6�6� "�
�MN� N�F�F�Fr4 r c �� � e Zd ZdZdZdZdgZdgZddgZdZ d Z
d
Z d Z d Z
d
� e
D � � Ze� d� e D � � � � e� d� e D � � � � dZe� d�Zde� d�Zde� d�Zdedfdej fdej fdefgdej fdej fd efd efd efd efd e fd!e j fd"e j fded#fee j! fd$e"j# fee fd%efgd&�Z$d'� Z%d(� Z&d)� Z'd*� Z(d+� Z)d,� Z*d-S ).r z%
Lexer for Shen source code.
�Shenzhttp://shenlanguage.org/�shenz*.shenz text/x-shenzapplication/x-shenrO )
�datatyper" r� � defprolog�defcc�synonymsr� �package�typer� )r� r� r� r, �casesr� r8 rX �freezer1 r r� �protectrA r r r� �outputzprolog?z
trap-errorr� r z/.rK z@pz@sz@v)�r rc r] r^ r_ r` ra rd re rb z <-addressz<-vectorr� � absvectorz
absvector?z address->�adjoinrk �arityr� r� ru zbound?�call�cdr� �cnr� rW 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� r^ � 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�quitr; zread+r< r zread-file-as-bytelistzread-file-as-stringr� �releaser� r� rH �runr& rK z simple-error�snd�
specialise�spy�step�stinput�stoutput�strz string->nr[ rl �substrs �systemf�tail�tcztc?�thaw�tl�tlstr�tlv�track�tuple?�
undefmacror@ zunify!�union� unprofile� unspecialise�untrackz variable?r� zvector->r� �verifiedr� r� r� r� r� zy-or-n?)�where�skipr� r r� z<e>z<!>c � � i | ]
}|t �� S r� �r ��.0�ss r3 �
<dictcomp>zShenLexer.<dictcomp>5 s � �1�1�1�q��7�1�1�1r4 c # �2 K � | ]}|t j fV � �d S r' )r r, r s r3 � <genexpr>zShenLexer.<genexpr>6 s) � � � �8�8�!�Q�� �%�8�8�8�8�8�8r4 c # �( K � | ]
}|t fV � �d S r' r
r s r3 r zShenLexer.<genexpr>7 s& � � � �8�8�Q�Q��L�8�8�8�8�8�8r4 z[\w!$%*+,<=>?/.\'@&#:-]r^ z[a-z!$%*+,<=>?/.\'@&#_-]r] z[A-Z]rJ rI z
c#\d{1,3};z~[ARS%]z(?s).z(?s)\\\*.*?\*\\z\\\\.*rH z_{5,}z={5,}z(;|:=|\||--?>|<--?)z (:-|:|\{|\})z[+-]*\d*\.\d+(e[+-]?\d+)?z[+-]*\d+rK z(true|false|<>|\[\])z
(\[|\]|\(|\)))rK r[ c � � t j | |� � }| � |� � }| � |� � }|S r' )r r) �_process_symbols�_process_declarations)r- r. r� s r3 r) z ShenLexer.get_tokens_unprocessedX s? � ��2�4��>�>���&�&�v�.�.���+�+�F�3�3���
r4 c �N � |t t t j t j fvS r' )r r r rw rx )r- r0 s r3 � _relevantzShenLexer._relevant^ s � ��T�:�w�~�w�?P� Q�Q�Qr4 c # �� K � d}|D ]g\ }}}|||fV � | � |� � rE|r2|t k r'|| j v r |}| � ||� � E d {V �� |dk o
|t k }�hd S �NF�()r r r� �_process_declarationr )r- r� �
opening_parenr/ r0 r1 � declarations r3 r z ShenLexer._process_declarationsa s� � � � � �
�#)� F� F� �E�5�%����%� %� %� %��~�~�e�$�$�
F� � N�U�g�%5�%5�%�4�CT�:T�:T�"'�K� #� 8� 8��f� M� M�M�M�M�M�M�M�M� %�� � E��+�1E�
��
F� Fr4 c # �
K � d}|D ]{\ }}}|r;|t t j fv r&| j � |t j � � }n |t k r|| j v r t j }|dk o
|t k }|||fV � �|d S r ) r r r+ �MAPPINGSr� r* �BUILTINS_ANYWHEREr, r )r- r� r r/ r0 r1 s r3 r zShenLexer._process_symbolsk s� � � � � �
�#)� &� &� �E�5�%� �
%��7�D�M�*B�!B�!B� �
�)�)�%�� �?�?����'�!�!�e�t�/E�&E�&E� � �� !�S�L� A�U�k�-A�M����%� %� %� %� %�
&� &r4 c # � K � |D ]$\ }}}| � |� � r n|||fV � �%|dk rrd}|t k r t j n|}|||fV � |D ]L\ }}}|r|t k r t j }|||fV � | � |� � r|t k o|dk }�Mn�|dk r!|t k r t j n|}|||fV � n�|dk r�|t k r t j n|}|||fV � |D ]$\ }}}| � |� � r n|||fV � �%|dk r;|t k r0|t |fV � | � |� � D ]
\ }}}|||fV � �n(|||fV � n |t k r t j n|}|||fV � d S )Nr� Fr� r� r" �{) r r r r� r r� r* r �_process_signature)r- r r� r/ r0 r1 �prev_was_colons r3 r z ShenLexer._process_declarationu sP � � � �#)� &� &� �E�5�%��~�~�e�$�$�
������%� %� %� %� %� �*� $� $� "�N�$)�W�$4�$4�G�L�L�%�E����%� %� %� %�'-�
G�
G�#��u�e�!� )�e�w�&6�&6� #�L�E��U�E�)�)�)�)��>�>�%�(�(� G�%*�g�%5�%F�%�3�,�N��
G� �I�
%�
%�&+�w�&6�&6�D�N�N�E�E����%� %� %� %� %�
�H�
$�
$�%*�g�%5�%5�D�M�M�5�E����%� %� %� %�'-�
*�
*�#��u�e��>�>�%�(�(� ��E��U�E�)�)�)�)�)���|�|��� 0� 0��[�%�/�/�/�/�+/�+B�+B�6�+J�+J� .� .�'�E�5�%� ���-�-�-�-�-�.� �U�E�)�)�)�)�)�%*�g�%5�%5�D�M�M�5�E����%� %� %� %��r4 c # �� K � |D ]n\ }}}|t k r|dk r|t |fV � d S |t t j fv r,|� � � r t j n t j }|||fV � �od S )N�})r r r r* �istitler+ r r� )r- r� r/ r0 r1 s r3 r% z ShenLexer._process_signature� s� � � � �#)� &� &� �E�5�%��� � �E�S�L�L��[�%�/�/�/�/�����7�D�M�2�2�2�).� � � � �J��
�
�g�l�����%� %� %� %� %�
&� &r4 N)+r\ r] r^ r_ r` ra rb rc rd re r� r� �BUILTINSr" r! �update�valid_symbol_charsrj � symbol_name�variabler
r� �Interpolr rx rw r r r r r= r> r r+ r r� r� r) r r r r r% r� r4 r3 r r s � � � � � �� � �D�
$�C��h�G��
�I� � 4�5�I��M��L�
�M��H�6 H��1�1�L�1�1�1�H� �O�O�8�8�x�8�8�8�8�8�8� �O�O�8�8�-�8�8�8�8�8�8�3��&�)�)�)�J�C�.@�C�C�C�K�-�*�-�-�-�H� �6�6� "�
�F�M� *�
�� � )�
�v� �
� ��!2� 3�
��� '�
�Z� �
�{� #�
�{� #�
#�[� 1�
�g� &�
)�6�<� 8�
�&�.� )�
�6�8� $�
�t�}� %�
$�g�n� 5�
�'� "�
�{� +�
�� �F�4� � � R� R� R�F� F� F�&� &� &�$� $� $�L&� &� &� &� &r4 r c �\ � e Zd ZdZdZdgZdgZg ZdZdZ dZ
dZ d Z d
d e
j fd efd
ej fdej fdefde z ej fdej fdej fdef ee
d�� � efde z ej fde z ej f ee dd�� � ej fde z ej fe ej fde fde fgiZ d S ) r zF
A CPSA lexer based on the CPSA language as of version 2.2.12
�CPSA�cpsaz*.cpsaz3https://web.cs.wpi.edu/~guttman/cs564/cpsauser.htmlrO )�herald�varsr� r � defprotocol�defrole� defskeleton� defstrand� deflistenerznon-origz uniq-origz pen-non-orig�precedesr: rN �recvr` r. �skey�akey�data�mesg) �cat�encr� �privk�pubk�invk�ltk�genr� r% r[ r� rH r r r rL rN rO rP rJ r� rQ rR rS �rp r� r r N) r\ r] r^ r_ r` rb rc rd ra re r� r� rj r rw r r r= r> r
r| r~ r r r
r r r+ r, r* r r� r� r4 r3 r r � sK � � � � � �� � �D��h�G��
�I��I�
?�C��M��I� �I� ,�J� � �g�n� %� �Z� � �F�L� )�
�v�~� &� )�&� 1�
�J�
��
� .�
7��� E� �� � '� �� *� �U�9�U�
+�
+�
+�W� 5� �:�
%�t�}� 5�
�:�
%�t�}� 5� �U�9�Z��
>�
>�
>�� � M� �*�
$�d�m� 4�
�� � '� �� %�
�� %�Y-
�/�F�F�Fr4 r c �V � e Zd ZdZdZdZdgZdgZg ZdZ dZ
dZ d Z d
Z
d Zd Zd
ZdZdZdZdedfdedfdez ej fdez ej fdez ej fdez ej fdez ej fdez ej fdez ej fd ez 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&� � eej fgd'ez e j fd(e j fd)e f ee d$�%� � ef eed$�%� � ej f ed&� � eej fgd*e j! fd+e"fd,e#j$ fd-e#j% fd.e#fd/e fd0ej& f ee
d$�%� � ef eed$�%� � ej fd1efg
ee d$d2�3� � edf ed4� � gd5�Z'd6S )7r z�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)
�xtlangz http://extempore.moso.com.au� extemporez*.xtmz2.2) r� r" r, r$ r� r rA r� r rO r r� )
r� r# r� r� rZ r� r r5 r6 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)Jr] r^ r_ r` ra rb rc rd re r� rf rg rj rk rl ro r� rq rr rs ru ry rz r{ r| r} r~ r r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r r r r r r rH rI rQ rW rq rx r1 r7 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+ r2 r5 r9 r: r; r= r@ rA rD zscheme-report-environmentzset-car!zset-cdr!rK rY rZ r[ r\ r] r^ r_ r` ra rb rc rd re rf rg rh ri rj rk rl rr rs ztranscript-offz
transcript-onr r� r� r� r� r� r� r� r� r� r� r� )o�toStringzafill!zpfill!ztfill!�tbindzvfill!z array-fill!z
pointer-fill!z tuple-fill!r� �freer� �tupler� r� zcset!�crefr� �borz ang-namesr� r� r
r0 �sprintfr r zpset!zpref-ptrzvset!�vrefzaset!r9 zaref-ptrztset!�trefztref-ptr�salloc�halloc�zalloc�alloc�scheduler� r rQ r� rx ro rg rs rW r� r� r� r rI � llvm_printf� push_zone�pop_zonerL 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-zone�make-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� rT r� rI 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\*)\**rS )rp �commonrL rN rP r� rH r r z(#b|#o|#x)[\d.]+r rO r rJ rG r# )rI r# r~ r[ N)(r\ r] r^ r_ r` ra rb rc rd re �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
r| r~ r
r rw r r r= r> r r� r� r4 r3 r r � s) � � � � � �� � �D�
(�C��m�G�� �I��I��M��O��O� ���O� ��"��F��0 3�� $��,��
�K�� )�
�K�� (�
�#4�
4�d�m� D�
�"3�
3�T�]� C�
�#4�
4�d�m� D�
!�$5�
5�t�}� E�
�#4�
4�d�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�
�\�
�
�U�?�:�
6�
6�
6�� @� �U�#�J�
7�
7�
7�� � G� �G�H� � � ��
� .�?
�F �%�
%�v�}� 5� 8��� E� �� *� �U�?�:�
6�
6�
6�� @� �U�#�J�
7�
7�
7�� � G� �G�H� � � ��
� .�'
�0 �g�n� %� �Z� � �F�L� )�
�v�~� &� !�&� )� )�&� 1� �� � '� �U�?�:�
6�
6�
6�� @� �U�#�J�
7�
7�
7�� � G� �� %�7
�> �U�'�
�5�
I�
I�
I�
�h�
�
�G�H� � �
�m]� ]�F�F�Fr4 r c �L � e Zd ZdZdZdZddgZdgZdZdZ d Z
d
Z d Z d d
e
j fdefdefdej fdej fdefdej fde z ej f ee d�� � ef ee
d�� � ej f ee d�� � ej fdej fe ej fde fde fde fde fgiZ d S ) 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.
�Fennelzhttps://fennel-lang.org�fennel�fnlz*.fnlz2.3)?�#r� r] r^ r_ r� r� �-?>�-?>>r; z..r` z//r� ra rb rc rd re z?.r� �
accumulater �band�bnotrU �bxor�collect�commentr� �doc�doto�eachz
eval-compilerr� �hashfn�icollectr, z
import-macrosr r� r� �lshift�lua�
macrodebugr@ r �not=rA �partialz pick-argsz pick-valuesr� zrequire-macros�rshiftrK z
set-forcibly!�tsetr� r� r� z with-openz~=)r� r� r� r9 r� r� �varr\ )'�_G�_VERSION�arg�assert�bit32�collectgarbage� coroutiner� �dofiler� �getfenv� getmetatable�io�ipairsr �loadfile�
loadstring�math�nextr� r� �pairs�pcallr/ �rawequal�rawget�rawlen�rawsetrM r) �setfenv� setmetatablerK �table�tonumber�tostringr� rB �xpcallz0[a-zA-Z_!$%&*+/:<=>?^~|-][\w!$%&*+/:<=>?^~|\.-]*r[ r� z,+rH r r r z(true|false|nil)r� r� r� z\.\.\.r r r r� N) r\ r] r^ r_ r` ra rb rc re r� r� r rj r rw r r r r= r> r
r r r| r r r} r, r+ r r� r� r4 r3 r r �
s= � � � � � �� �
�D�
#�C��� �G�� �I��M� �M��L��H� E�J� �
�g�n� %�
�D�M�
�Z� �
�F�L� )�
�v�~� &�
(�&� 1�
�$�-� 0�
�J�
��
� .� �U�=��
-�
-�
-�w� 7�
�U�<��
,�
,�
,�g�.A� B�
�U�8�C�
(�
(�
(�$�,� 7�
��
� &�
�� � '� �� %�
�� %�
�� %� �;� �G$
�&�F�F�Fr4 r c � � e Zd ZdZdZdZdgZddgZddgZd Z d
Z
d Z d Z d
Z
dZdZdZde� d�Ze� de� d�ZdZdZdZdZdZdej fdefd e� d e� d e� d �efd e� d!e� d �efd"e� d e� d#�ej fd$e� �ej fd%e� d e� d&e� d#�ej fd'e� d(e� d#�ej fd)e d*fd+e fd,e fd-e f e!ee�.� � e"j# fd/e� d0�e$j% f e!e
e�.� � e$j& j' f e!e
d1e�2� � e"j( f e!e d1e�2� � e$j) f e!e d1e�2� � e$j* fee$j& fgd3e j+ fd4e j+ fd5e j+ fd6e d7fd8e fgd9�Z,d:S );r z0A lexer for the Janet programming language.
�Janetzhttps://janet-lang.org/�janetz*.janetz*.jdnz text/x-janetzapplication/x-janetz2.18)
�breakr� r� r� r, r� r� �splicerK r� �upscoper� r� )Qz%=z*=r� z+=r� z-=r� r� r� r� r� r zas->zas-macrozas?->r� r �catseq�chrr� �compif�comptime�compwhenr� �corozdef-r �defdyn�deferr� z defmacro-r� zdefn-r# r� r� �eachk�eachp�edeferz ev/do-threadz ev/gatherzev/spawnzev/spawn-threadzev/with-deadlinez ffi/defbindzfiber-fnr� �forever�forv�generatezif-letr� zif-withr� �juxt�labelr� r� r@ rA �promptr� r� �seqzshort-fn�tabseq�toggle�tracev�tryr� �usezvar-�varfnr� zwhen-letz when-with�withz with-dynsz with-symsz with-vars�eachy( r� r] r^ r_ r` ra rb rc rd re z abstract?r� � accumulate2�allz all-bindingsz all-dynamicszany?rl r� z array/clearz array/concatz array/ensurez
array/fillz array/insertz array/newzarray/new-filledz
array/peekz array/popz
array/pushz array/removez array/slicez
array/trimz
array/weakr� �asmz bad-compilez bad-parser� �blshiftr� ru rU �brshift�brushift�bufferz
buffer/bitzbuffer/bit-clearzbuffer/bit-setzbuffer/bit-togglez buffer/blitz buffer/clearz buffer/fillz
buffer/formatzbuffer/from-bytesz
buffer/newzbuffer/new-filledz buffer/popnz buffer/pushzbuffer/push-atzbuffer/push-bytezbuffer/push-stringzbuffer/push-wordz buffer/slicez buffer/trimzbuffer?r� rx �cancelz
cfunction?zcli-main�cmp�comp�comparezcompare<z compare<=zcompare=zcompare>z compare>=r� �
complementr� �curenvr� zdebug/arg-stackz debug/breakz debug/fbreakz
debug/lineagez debug/stackzdebug/stacktracez
debug/stepz
debug/unbreakzdebug/unfbreak�debuggerzdebugger-on-statusr� z deep-not=zdeep=� defglobal�describez dictionary?�disasmr� r� zdoc*z
doc-formatzdoc-ofr� r� z
drop-untilz
drop-while�dyn�eflushr� z
env-lookup�eprin�eprinf�eprintr� r� �errorfzev/acquire-lockzev/acquire-rlockzev/acquire-wlockz ev/all-taskszev/callz ev/cancelz ev/capacityzev/chanz
ev/chan-closezev/chunkzev/closezev/countz ev/deadlinezev/fullzev/givezev/give-supervisorzev/gozev/lockzev/readzev/release-lockzev/release-rlockzev/release-wlockz
ev/rselectz ev/rwlockz ev/selectzev/sleepzev/takez ev/threadzev/thread-chanzev/writer� r� r� zevery?�extremer� z ffi/alignzffi/callzffi/calling-conventionsz ffi/closez ffi/contextzffi/freez ffi/jitfnz
ffi/lookupz
ffi/mallocz
ffi/nativezffi/pointer-bufferzffi/pointer-cfunctionzffi/readz
ffi/signaturezffi/sizez
ffi/structzffi/trampolinez ffi/writezfiber/can-resume?z
fiber/currentz fiber/getenvzfiber/last-valuezfiber/maxstackz fiber/newz
fiber/rootz fiber/setenvzfiber/setmaxstackz fiber/statuszfiber?z
file/closez
file/flushz
file/linesz file/openz file/readz file/seekz file/tellz file/tempz
file/writer� r� z
find-indexr� r� z flatten-into�flush�flycheckr� � frequenciesz
from-pairsz function?� gccollect�
gcinterval�
gcsetintervalr� r� zget-in�getline�getprotor� zhas-key?z
has-value?r� z idempotent?r� zimport*r� r� zindex-ofzindexed?zint/s64z int/to-bytesz
int/to-numberzint/u64zint?�
interleave� interposer zjuxt*�keepz keep-syntaxz keep-syntax!�keys�keywordz
keyword/slicer� �kvsr� r� z lengthable?z
load-image�macex�macex1�maclintfrg z
make-imager �mapcat�marshalzmath/absz math/acosz
math/acoshz math/asinz
math/asinhz math/atanz
math/atan2z
math/atanhz math/cbrtz math/ceilzmath/cosz math/coshzmath/erfz math/erfczmath/expz math/exp2z
math/expm1z
math/floorz
math/gammazmath/gcdz
math/hypotzmath/lcmzmath/logzmath/log-gammaz
math/log10z
math/log1pz math/log2z math/nextzmath/powz math/randomzmath/rngzmath/rng-bufferz math/rng-intzmath/rng-uniformz
math/roundzmath/seedrandomzmath/sinz math/sinhz math/sqrtzmath/tanz math/tanhz
math/truncr zmax-of�mean�memcmp�mergez
merge-intoz merge-moduler zmin-ofr zmodule/add-pathszmodule/expand-pathz module/findz module/valuer znat?�nativer� z
net/acceptznet/accept-loopz net/addressznet/address-unpackz net/chunkz net/closez net/connectz net/flushz
net/listenz
net/localnamez net/peernameznet/readz
net/recv-fromz net/send-toz
net/serverznet/setsockoptz net/shutdownz net/writer� r r r� r r� zone?zos/archzos/cdzos/chmodzos/clockz os/compilerz os/cpu-countz
os/cryptorandzos/cwdzos/datezos/dirz
os/environz
os/executezos/exitz os/getenvz os/isattyzos/linkzos/lstatzos/mkdirz os/mktimezos/openz os/perm-intzos/perm-stringzos/pipez
os/posix-execz
os/posix-forkz
os/proc-closez os/proc-killz os/proc-waitz os/readlinkz os/realpathz os/renamezos/rmzos/rmdirz os/setenvzos/shellz os/sigactionzos/sleepzos/spawnzos/statz os/strftimez
os/symlinkzos/timezos/touchzos/umaskzos/whichr� r z parse-allz parser/bytez parser/clonezparser/consumez
parser/eofz parser/errorz parser/flushzparser/has-morez
parser/insertz
parser/newzparser/producez parser/statez
parser/statusz parser/wherer� r& z partition-byz peg/compilezpeg/findz peg/find-allz peg/matchz peg/replacezpeg/replace-allr� �postwalk�pp�prewalk�prin�prinfr/ r0 �product� propagater8 zput-inr� r8 �reduce�reduce2�replrM �resumer� rH zreverse!z run-context�sandboxz scan-number�setdynr0 r� �slurp�somerU zsort-by�sortedz sorted-by�spitrK zstring/ascii-lowerzstring/ascii-upperz string/byteszstring/check-setz string/findzstring/find-allz
string/formatzstring/from-byteszstring/has-prefix?zstring/has-suffix?z string/joinz
string/repeatzstring/replacezstring/replace-allzstring/reversez string/slicez string/splitz string/trimz string/trimlz string/trimrrl rR zstruct/getprotozstruct/proto-flattenzstruct/to-tablezstruct/with-protorm �sumr� z symbol/slicers r� z table/clearz table/cloneztable/getprotoz table/newztable/proto-flattenz table/rawgetztable/setprotoztable/to-structz
table/weakztable/weak-keysztable/weak-valuesztable?r� z
take-untilz
take-whiler� r: r> ztruthy?rS ztuple/bracketsz tuple/setmapz tuple/sliceztuple/sourcemapz
tuple/typer r� � unmarshal�untracer+ z update-inr� � varglobal�walkz warn-compile�xprin�xprinf�xprint�xprintf�yieldr� �zipcollz
tarray/bufferztarray/copy-bytesz
tarray/lengthz
tarray/newztarray/propertiesz tarray/sliceztarray/swap-bytesz thread/closezthread/currentz thread/exitz
thread/newzthread/receivez thread/send)z debugger-envzdefault-peg-grammarz janet/buildzjanet/config-bitsz
janet/versionzload-image-dictzmake-image-dictz math/-infzmath/ezmath/infz math/int-maxz math/int-minzmath/int32-maxzmath/int32-minzmath/nanzmath/piz module/cachezmodule/loaderszmodule/loadingz module/pathszroot-env�stderr�stdin�stdout)r( r
r~ z(?=\s|#|[)\]]|$)z[a-zA-Z!$%&*+\-./<=>?@^_]z([0-9:]|r� r z)*z[0-9a-zA-Z][0-9a-zA-Z_]*z&[+-]?[0-9a-zA-Z]+z[0-9a-fA-F][0-9a-fA-F_]*z [0-9][0-9_]*z[eE][+-]?[0-9]+rG rH z*(?x)
[+-]? [0-9]{1,2} r z \. (z)?
(z)?
z0(?x)
[+-]? [0-9]{1,2} r (\.)? z
(z(?x) [+-]? 0x z)?z(?x) [+-]? 0x (\.)? z (?x) [+-]? z)? (z(?x) [+-]? (\.)? z (z@?"rK z@?(`+)(.|\n)+?\1z['~,;|]z@?[(\[{]|[)\]}]r� z(:(z)+|:)rS rG z#\\(u[0-9a-fA-F]{4}|U[0-9a-fA-F]{6})rX rY rJ rI rZ )r[ rK N)-r\ r] r^ r_ r` ra rb rc rd re r� �builtin_macros�builtin_functions�builtin_variables� constants�
_token_end� _first_char�
_rest_charrj � _radix_unit�
_radix_exp� _hex_unit� _dec_unit�_dec_expr rw r r r{ r= r
r
r r r � Constantsr r r+ r� �Reservedr, r* r� r� r� r4 r3 r r s� � � � � � �� � �D� $�C��i�G��G�$�I� �!6�7�I��M�
�M�
�N�(O��b���I� %�J�.�K�+�[�+�+�+�J� �1�1�:�1�1�1�J�-�K� '�J� ,�I� �I� "�H� �g�n� %�
�Z� ��(3�� �:E�� � �� � � �
� �.9�� � �� � � �
� =�y�
<�
<�y�
<�
<�
<�
�Z�
� 1�Y�
0�
0�
�Z�
� H�I�
G�
G�I�
G�
G�8�
G�
G�
G�
�\�
� <�)�
;�
;�x�
;�
;�
;�
�\�
� �V�X� &� !�&� )�
�� "� �� -� �U�9�Z�
0�
0�
0�'�2C� D� &�J�
%�
%�
%�t�}� 5� �U�$�Z�
8�
8�
8�
�]�
!�
#� �U�=��J�
G�
G�
G�
�
�
� �U�>�*�Z�
H�
H�
H�
�\�
� �U�$�Z�
�
K�
K�
K�
�]�
� �� � '�SJ
�X 4�V�]� C�
!�6�=� 1�
�V�]� #�
�6�6� "�
�� �
�YS� S�F�F�Fr4 r )%r_ rf �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� r4 r3 �<module>r?
s? ��� �
� � � � H� H� H� H� H� H� H� H� H� H� H� H� H� H�4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� 4� /� .� .� .� .� .� M� M� M� M� M� M� M� M� 7� 7� 7��
J� J� J� J� J�*� J� J� J�Zy� y� y� y� y�j� y� y� y�xn� n� n� n� n�j� n� n� n�bb� b� b� b� b�*� b� b� b�J @� @� @� @� @�:� @� @� @�FB
� B
� B
� B
� B
�Z� B
� B
� B
�Ja&� a&� a&� a&� a&�
� a&� a&� a&�HK� K� K� K� K�
� K� K� K�\H� H� H� H� H�*� H� H� H�VP� P� P� P� P�*� P� P� P�fy� y� y� y� y�� y� y� y� y� yr4