12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879 |
- # -*- coding: utf-8 -*-
- """
- pygments.lexers.parasail
- ~~~~~~~~~~~~~~~~~~~~~~~~
- Lexer for ParaSail.
- :copyright: Copyright 2006-2019 by the Pygments team, see AUTHORS.
- :license: BSD, see LICENSE for details.
- """
- import re
- from pygments.lexer import RegexLexer, include
- from pygments.token import Text, Comment, Operator, Keyword, Name, String, \
- Number, Punctuation, Literal
- __all__ = ['ParaSailLexer']
- class ParaSailLexer(RegexLexer):
- """
- For `ParaSail <http://www.parasail-lang.org>`_ source code.
- .. versionadded:: 2.1
- """
- name = 'ParaSail'
- aliases = ['parasail']
- filenames = ['*.psi', '*.psl']
- mimetypes = ['text/x-parasail']
- flags = re.MULTILINE
- tokens = {
- 'root': [
- (r'[^\S\n]+', Text),
- (r'//.*?\n', Comment.Single),
- (r'\b(and|or|xor)=', Operator.Word),
- (r'\b(and(\s+then)?|or(\s+else)?|xor|rem|mod|'
- r'(is|not)\s+null)\b',
- Operator.Word),
- # Keywords
- (r'\b(abs|abstract|all|block|class|concurrent|const|continue|'
- r'each|end|exit|extends|exports|forward|func|global|implements|'
- r'import|in|interface|is|lambda|locked|new|not|null|of|op|'
- r'optional|private|queued|ref|return|reverse|separate|some|'
- r'type|until|var|with|'
- # Control flow
- r'if|then|else|elsif|case|for|while|loop)\b',
- Keyword.Reserved),
- (r'(abstract\s+)?(interface|class|op|func|type)',
- Keyword.Declaration),
- # Literals
- (r'"[^"]*"', String),
- (r'\\[\'ntrf"0]', String.Escape),
- (r'#[a-zA-Z]\w*', Literal), # Enumeration
- include('numbers'),
- (r"'[^']'", String.Char),
- (r'[a-zA-Z]\w*', Name),
- # Operators and Punctuation
- (r'(<==|==>|<=>|\*\*=|<\|=|<<=|>>=|==|!=|=\?|<=|>=|'
- r'\*\*|<<|>>|=>|:=|\+=|-=|\*=|\|=|\||/=|\+|-|\*|/|'
- r'\.\.|<\.\.|\.\.<|<\.\.<)',
- Operator),
- (r'(<|>|\[|\]|\(|\)|\||:|;|,|.|\{|\}|->)',
- Punctuation),
- (r'\n+', Text),
- ],
- 'numbers': [
- (r'\d[0-9_]*#[0-9a-fA-F][0-9a-fA-F_]*#', Number.Hex), # any base
- (r'0[xX][0-9a-fA-F][0-9a-fA-F_]*', Number.Hex), # C-like hex
- (r'0[bB][01][01_]*', Number.Bin), # C-like bin
- (r'\d[0-9_]*\.\d[0-9_]*[eE][+-]\d[0-9_]*', # float exp
- Number.Float),
- (r'\d[0-9_]*\.\d[0-9_]*', Number.Float), # float
- (r'\d[0-9_]*', Number.Integer), # integer
- ],
- }
|