�
|�eI � �h � d Z ddlZddlmZmZmZ ddlmZmZm Z m
Z
m Z m Z m
Z
mZ dgZ G d� de� Zy)z�
pygments.lexers.oberon
~~~~~~~~~~~~~~~~~~~~~~
Lexers for Oberon family languages.
:copyright: Copyright 2006-2023 by the Pygments team, see AUTHORS.
:license: BSD, see LICENSE for details.
� N)�
RegexLexer�include�words)�Text�Comment�Operator�Keyword�Name�String�Number� Punctuation�ComponentPascalLexerc �N � e Zd ZdZdZddgZddgZdgZej ej z Z e d� e d � e d
� e d � e d � e d
� e d� e d� gde
fde
fgdej fgdefgdej$ fdej$ fdej& fdej& fdej( fgdefdefgdefd efd efd efd efd efd!efd"efd#efg d$efg ed%d&�'� ej4 f ed(d&�'� ej6 fd)ej8 fgd*� Z d+� Z y,)-r zF
For Component Pascal source code.
.. versionadded:: 2.1
zComponent Pascal�componentpascal�cpz*.cpz*.cpsztext/x-component-pascal�
whitespace�comments� punctuation� numliterals�strings� operators�builtins� identifiersz\n+z\s+z\(\*([^$].*?)\*\)z[()\[\]{},.:;|]z [0-9A-F]+X\bz[0-9A-F]+[HL]\bz[0-9]+\.[0-9]+E[+-][0-9]+z[0-9]+\.[0-9]+z[0-9]+z '[^\n']*'z "[^\n"]*"z[+-]z[*/]z[=#<>]z\^�&�~z:=z\.\.z\$z([a-zA-Z_$][\w$]*)) �ANYPTR�ANYREC�BOOLEAN�BYTE�CHAR�INTEGER�LONGINT�REAL�SET� SHORTCHAR�SHORTINT� SHORTREALz\b)�suffix)>�ABS�ABSTRACT�ARRAY�ASH�ASSERT�BEGIN�BITS�BY�CAP�CASE�CHR�CLOSE�CONST�DEC�DIV�DO�ELSE�ELSIF�EMPTY�END�ENTIER�EXCL�EXIT�
EXTENSIBLE�FOR�HALT�IF�IMPORT�IN�INC�INCL�IS�LEN�LIMITED�LONG�LOOP�MAX�MIN�MOD�MODULE�NEW�ODD�OF�OR�ORD�OUT�POINTER� PROCEDURE�RECORD�REPEAT�RETURN�SHORTr% r& �SIZE�THEN�TYPE�TO�UNTIL�VAR�WHILE�WITHz(TRUE|FALSE|NIL|INF)\b) �rootr r r r r r r r c �R � d}d| v r|dz
}d| v r|dz
}d| v r|dz
}d| v r|dz
}|S )z�The only other lexer using .cp is the C++ one, so we check if for
a few common Pascal keywords here. Those are unfortunately quite
common across various business languages as well.r r. g{�G�z�?r< rX � )�text�results �8/usr/lib/python3/dist-packages/pygments/lexers/oberon.py� analyse_textz!ComponentPascalLexer.analyse_textj sO � � �� �d�?� �d�N�F� �D�=� �d�N�F� �$� � �d�N�F� �D�=� �d�N�F��
� N) �__name__�
__module__� __qualname__�__doc__�name�aliases� filenames� mimetypes�re� MULTILINE�DOTALL�flagsr r r � Multiliner
r �Hex�Float�Integerr r r
r r �Type�Reserved�Constant�tokensrk rg rl rj r r s� � ��
�D� �$�'�G���!�I�*�+�I� �L�L�2�9�9� $�E�
�L� !� �J� � �M� "� �M� "� �I� � �K� � �J� � �M� "�
� �T�N�
�T�N�
�
"�7�#4�#4� 5�
�
�� -�
� �f�j�j� )�
���� ,�
)�6�<�<� 8�
�� � � -�
���� '�
� �6� "�
�6� "�
� �h� �
�h� �
�� !�
�H� �
�8� �
�8� �
�H� �
�h� �
�H� �!
�& #�D� )�
� � � �!� #*�,�,�
0� � � � !� #*�"2�"2�
4� '��(8�(8� 9�
�mG�F�Rrl )rp ru �pygments.lexerr r r �pygments.tokenr r r r r
r r r
�__all__r rg rl rj �<module>r� s< ���
� 5� 5�� � � "�
"��d�:� drl |