| Server IP : 217.160.0.135 / Your IP : 216.73.217.85 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1074145052 ( 1074145052) PHP Version : 8.3.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /lib/python3/dist-packages/pygments/lexers/__pycache__/ |
Upload File : |
�
�E�cI � �p � d Z ddlZddlmZmZmZ ddlmZmZm Z m
Z
m Z m Z m
Z
mZ dgZ G d� de� � ZdS )z�
pygments.lexers.oberon
~~~~~~~~~~~~~~~~~~~~~~
Lexers for Oberon family languages.
:copyright: Copyright 2006-2022 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 � � 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&�'� � ej f ed(d&�'� � ej fd)ej fgd*� Z d+� Z d,S )-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 sX � � �� �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�2�9� $�E�
�G�L� !� !� �G�J� � � �G�M� "� "� �G�M� "� "� �G�I� � � �G�K� � � �G�J� � � �G�M� "� "�
� �T�N�
�T�N�
�
"�7�#4� 5�
�
�� -�
� �f�j� )�
��� ,�
)�6�<� 8�
�� � -�
��� '�
� �6� "�
�6� "�
� �h� �
�h� �
�� !�
�H� �
�8� �
�8� �
�H� �
�h� �
�H� �!
�& #�D� )�
� �U� � �!� !� !� #*�,�
0� �U� � � !� !� !� #*�"2�
4� '��(8� 9�
�mG� G�F�R� � � � rl )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� 5� 5� 5� 5� 5� 5� 5� 5�� � � � � � � � � � � � � � � � � � � � "�
"��d� d� d� d� d�:� d� d� d� d� drl