| Server IP : 127.0.0.1 / Your IP : 216.73.216.109 Web Server : Apache/2.4.54 (Win64) OpenSSL/1.1.1q PHP/8.1.10 System : Windows NT DESKTOP-E5T4RUN 10.0 build 19045 (Windows 10) AMD64 User : SERVERWEB ( 0) PHP Version : 8.1.10 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/cygwin64/lib/python3.9/site-packages/pygments/lexers/__pycache__/ |
Upload File : |
a
SҼas � @ sb d Z ddlZddlmZmZmZ ddlmZmZm Z m
Z
mZmZm
Z
mZ dgZG dd� de�ZdS )z�
pygments.lexers.oberon
~~~~~~~~~~~~~~~~~~~~~~
Lexers for Oberon family languages.
:copyright: Copyright 2006-2021 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 @ s8 e Zd ZdZdZddgZddgZdgZej ej
B Zed�ed �ed
�ed�ed�ed
�ed�ed�gde
fde
fgdejfgdefgdejfdejfdejfdejfdejfgdefdefgdefdefdefdefdefd efd!efd"efd#efg d$efged%d&d'�ejfed(d&d'�ejfd)ejfgd*� Zd+d,� Zd-S ).r
zp
For `Component Pascal <http://www.oberon.ch/pdf/CP-Lang.pdf>`_ source code.
.. versionadded:: 2.1
zComponent PascalZcomponentpascalZcpz*.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$]*))ZANYPTRZANYRECZBOOLEANZBYTEZCHARZINTEGERZLONGINTZREALZSET� SHORTCHAR�SHORTINTZ SHORTREALz\b)�suffix)>ZABSZABSTRACTZARRAYZASH�ASSERT�BEGINZBITSZBYZCAPZCASEZCHRZCLOSEZCONSTZDECZDIVZDO�ELSEZELSIFZEMPTY�ENDZENTIERZEXCLZEXITZ
EXTENSIBLEZFORZHALTZIFZIMPORT�INZINCZINCLZISZLENZLIMITEDZLONGZLOOP�MAXZMINZMODZMODULEZNEWZODDZOF�ORZORDZOUTZPOINTER� PROCEDUREZRECORD�REPEATZRETURNZSHORTr r ZSIZEZTHENZTYPEZTOZUNTILZVARZWHILEZWITHz(TRUE|FALSE|NIL|INF)\b) �rootr r r r r r r r c C sH d}d| v r|d7 }d| v r$|d7 }d| v r4|d7 }d| v rD|d7 }|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 r"