�
|�e) � �� � d Z ddlZddlmZmZmZmZ ddlmZm Z m
Z
m Z m Z m
Z
mZmZmZmZ g d�Z ej& d� Z G d� de� Z G d � d
e� Z G d � d e� Zy)
z�
pygments.lexers.r
~~~~~~~~~~~~~~~~~
Lexers for the R/S languages.
:copyright: Copyright 2006-2023 by the Pygments team, see AUTHORS.
:license: BSD, see LICENSE for details.
� N)�Lexer�
RegexLexer�include�
do_insertions)
�Text�Comment�Operator�Keyword�Name�String�Number� Punctuation�Generic�
Whitespace)�
RConsoleLexer�SLexer�RdLexerz.*?
c �( � e Zd ZdZdZddgZdgZd� Zy)r z@
For R console transcripts or R CMD BATCH output files.
�RConsole�rconsole�routz*.Routc # �6 K � t di | j ��}d}g }t j |� D ]� }|j � }|j d� s|j d� r:|j
t |� dt j |d d fgf� ||dd z
}�o|r't ||j |� � E d { ��� d}g }|j � t j |f�� �� |r$t ||j |� � E d { ��� y y 7 �T7 ��w)N� �>�+r � � )r �options�line_re�finditer�group�
startswith�append�lenr �Promptr �get_tokens_unprocessed�start�Output)�self�text�slexer�current_code_block�
insertions�match�lines �3/usr/lib/python3/dist-packages/pygments/lexers/r.pyr& z$RConsoleLexer.get_tokens_unprocessed s1 � �� ��'�$�,�,�'�� ���
� �%�%�d�+� :�E��;�;�=�D����s�#�t���s�';� �!�!�3�'9�#:�%&�����R�a��$A�#B�#D� E�"�d�1�2�h�.�"� &� ,�"�F�$A�$A�BT�$U� W� W� W� *,�&�!#�J��k�k�m�W�^�^�T�9�9�' :�0 �$��F� 9� 9�:L� M�O�
O�
O� �W��
O�s% �B>D� D�A
D�D�D�DN)�__name__�
__module__� __qualname__�__doc__�name�aliases� filenamesr& r � r0 r r s% � �� �D��6�"�G��
�I� Or8 r c �� � e Zd ZdZdZg d�Zg d�Zg d�ZdZde j fgee fgde fgd e
j fgd
efd efgd e
j fd
e j" j$ fgdej( fdefg ed� defdedfdedf ed� ed� ed� ed� ed� ed� g
d ez e j0 f ed � d e fd efgd ed!fgd"ed!fgd#� Zd$� Zy%)&r zG
For S, S-plus, and R source code.
.. versionadded:: 0.10
�S)�splus�s�r)z*.Sz*.Rz .Rhistoryz .Rprofilez .Renviron)z text/S-plusztext/Sztext/x-r-sourceztext/x-rztext/x-Rztext/x-r-historyztext/x-r-profilez;`[^`\\]*(?:\\.[^`\\]*)*`|(?:[a-zA-Z]|\.[A-Za-z_.])[\w.]*|\.z#.*$z\[{1,2}|\]{1,2}|\(|\)|;|,zH(if|else|for|while|repeat|in|next|break|return|switch|function)(?![\w.])z(<<?-|->>?|-|==|<=|>=|<|>|&&?|!=|\|\|?|\?z$\*|\+|\^|/|!|%[^%]*%|=|~|\$|@|:{1,3}zm(NULL|NA(_(integer|real|complex|character)_)?|letters|LETTERS|Inf|TRUE|FALSE|NaN|pi|\.\.(\.|[0-9]+))(?![\w.])z(T|F)\bz#0[xX][a-fA-F0-9]+([pP][0-9]+)?[Li]?z;[+-]?([0-9]+(\.[0-9]+)?|\.[0-9]+|\.)([eE][+-]?[0-9]+)?[Li]?�commentsz\s+z\'�
string_squotez\"�
string_dquote�builtin_symbols�
valid_name�numbers�keywords� punctuation� operatorsz
(%s)\s*(?=\()�
statementsz\{|\}�.z([^\'\\]|\\.)*\'z#popz([^"\\]|\\.)*") r> rB rE rD rF rA rC rG �rootr? r@ c �2 � t j d| � ryy )Nz[a-z0-9_\])\s]<-(?!-)g)\��(�?)�re�search)r* s r0 � analyse_textzSLexer.analyse_text� s � �
�9�9�-�t� 4�� 5r8 N) r1 r2 r3 r4 r5 r6 r7 � mimetypesrB r �Singler r r
�Reservedr �Constant�Builtin�Pseudor
�Hexr r r �Functionr �tokensrM r r8 r0 r r C s� � �� �D�!�G�E�I�E�I� P�J� �g�n�n� %�
� �� �
� *�;� 7�
��
�
�
�
�
� 9�(� C�
4�h� ?�
�
� �
�
�
� �� � �,�,� -�
� 4�V�Z�Z� @�
K�
�
�
�
�J� �
�Z� �
�F�O� ,�
�F�O� ,� �%� &� �L� !� �I� � �J� � �M� "� �K� �
� �
�
*�D�M�M� :� �L� !�
�{� #�
�4�L�
� !�&�&� 1�
� ��� /�
�B�F�Hr8 r c
� � e Zd ZdZdZdgZdgZdgZddej fde
fd e j fd
e fd e
j fd ej fd
efdefgiZy)r am
Pygments Lexer for R documentation (Rd) files
This is a very minimal implementation, highlighting little more
than the macros. A description of Rd syntax is found in `Writing R
Extensions <http://cran.r-project.org/doc/manuals/R-exts.html>`_
and `Parsing Rd files <http://developer.r-project.org/parseRd.pdf>`_.
.. versionadded:: 1.6
�Rd�rdz*.Rdz text/x-r-docrI z \\[\\{}%]z%.*$z\\(?:cr|l?dots|R|tab)\bz
\\[a-zA-Z]+\bz^\s*#(?:ifn?def|endif).*\bz[{}]z [^\\%\n{}]+rH N)r1 r2 r3 r4 r5 r6 r7 rN r �Escaper r
rQ �Preprocr rR r rV r r8 r0 r r � s� � � � �D��f�G���I� � �I�
�
�6�=�=� )�
�g� �
'��)9�)9� :�
�w� '�
*�G�O�O� <�
�d�l�l� #�
�T� "�
�4�L�
��Fr8 r )r4 rK �pygments.lexerr r r r �pygments.tokenr r r r
r r r
r r r �__all__�compiler r r r r r8 r0 �<module>r` sg ���
� D� D�-� -� -� 1�� �2�:�:�g� ��)O�E� )O�XT�Z� T�n$�j� $r8 |