3
� �XRO � @ s� d Z ddlZddlmZmZmZmZmZ ddlm Z m
Z
m Z m Z m
Z
mZmZmZ ddddd gZG d
d� de�ZG d d� de�ZG d d� de�ZG d
d� de�ZG dd � d e�ZdS )z�
pygments.lexers.basic
~~~~~~~~~~~~~~~~~~~~~
Lexers for BASIC like languages (other than VB.net).
:copyright: Copyright 2006-2017 by the Pygments team, see AUTHORS.
:license: BSD, see LICENSE for details.
� N)�
RegexLexer�bygroups�default�words�include)�Text�Comment�Operator�Keyword�Name�String�Number� Punctuation�BlitzBasicLexer�
BlitzMaxLexer� MonkeyLexer�CbmBasicV2Lexer� QBasicLexerc ] @ s� e Zd ZdZdZddgZdgZdgZdZdZ d Z
d
Z d e e e
e f Z e d Z
ejejB Zd
efdefdejfdejfdejdfdejfdejfdejfdejfdej fde e fde fde j fdej!fd e e"e#j$ee e j%�fd e e f e"e#j$ee#j&�fe
e"e j'ee#j(e ee ee#j(e j%ee#j(ee �
fe e"e j)ee#j(e ee ee#j(e j%ee#j(� fd e e"e#j$ee j%�fd e#j(fd e#j*fd!e#j+fe,dud'd'd(�e j-fe,dvd'd'd(�e#j$fdne e j)fgdoejfdpejdqfdrejfgds�Z.dtS )wr zY
For `BlitzMax <http://blitzbasic.com>`_ source code.
.. versionadded:: 1.4
ZBlitzMaxZblitzmaxZbmaxz*.bmxz
text/x-bmxz\b(Shl|Shr|Sar|Mod)\bz
@{1,2}|[!#$%]z&\b(Int|Byte|Short|Float|Double|Long)\bz [a-z_]\w*zp(%s)(?:(?:([ \t]*)(%s)|([ \t]*:[ \t]*\b(?:Shl|Shr|Sar|Mod)\b)|([ \t]*)(:)([ \t]*)(?:%s|(%s)))(?:([ \t]*)(Ptr))?)z?((?:[ \t]|\.\.\n)*)([(])z[ \t]+z\.\.\nz'.*?\nz*([ \t]*)\bRem\n(\n|.)*?\s*\bEnd([ \t]*)Rem�"�stringz[0-9]+\.[0-9]*(?!\.)z\.[0-9]*(?!\.)z[0-9]+z \$[0-9a-f]+z\%[10]+z9(?:(?:(:)?([ \t]*)(:?%s|([+\-*/&|~]))|Or|And|Not|[=<>^]))z [(),.:\[\]]z
(?:#[\w \t]*)z(?:\?[\w \t]*)z\b(New)\b([ \t]?)([(]?)(%s)z+\b(Import|Framework|Module)([ \t]+)(%s\.%s)z \b(Type|Extends)([ \t]+)(%s)z \b(Ptr)\bz#\b(Pi|True|False|Null|Self|Super)\bz \b(Local|Global|Const|Field)\b�TNullMethodException�TNullFunctionException�TNullObjectException�TArrayBoundsException�TRuntimeExceptionz\b)�prefix�suffix�Strict� SuperStrict�Module�
ModuleInfo�End�Return�Continue�Exit�Public�Private�Var�VarPtr�Chr�Len�Asc�SizeOf�Sgn�Abs�Min�Max�New�Release�Delete�Incbin� IncbinPtr� IncbinLen� Framework�Include�Import�Extern� EndExtern�Function� EndFunction�Type�EndType�Extends�Method� EndMethod�Abstract�Final�If�Then�Else�ElseIf�EndIf�For�To�Next�Step�EachIn�While�Wend�EndWhile�Repeat�Until�Forever�Select�Case�Default� EndSelect�Try�Catch�EndTry�Throw�Assert�Goto�DefData�ReadData� RestoreDataz(%s)z""z"C?z#popz[^"]+)�rootr N)r r r r r )Er r r r r! r" r# r$ r% r& r' r( r) r* r+ r, r- r. r/ r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r: r; r< r= r> r? r@ rA rB rC rD rE rF rG rH rI rJ rK rL rM rN rO rP rQ rR rS rT rU rV rW rX rY rZ r[ r\ r] r^ r_ r` ra )/�__name__�
__module__� __qualname__�__doc__�name�aliases� filenames� mimetypesZ
bmax_vopwordsZ bmax_sktypesZ bmax_lktypesZ bmax_nameZbmax_varZ bmax_func�re� MULTILINE�
IGNORECASE�flagsr r �Single� Multiliner �Doubler
�Float�Integer�Hex�Binr r r �Label�Preprocr r
�Reserved�Class� Namespacer< r> �Variable�Constant� Declarationr � Exception�tokens� r� r� �/usr/lib/python3.6/basic.pyr s�
c 8 @ s� e Zd ZdZdZdddgZddgZdgZd Zd
Z d e ee f Z
e j e j
B Zd efd
ejfdejdfdejfdejfdejfdejfdejfed\d&d&d'�efd(efd)efd*e e j fd+e e e j ee j!�fd,e e e j ee j �fd-e e eeeee j!�fd.e
e e j"ee j#eeee j!ee� fd/e
e e j ee j"ee j#eeee j!� fd0e e e j ee j!�fd1e j$fd2e j%fed]d&d&d'�e j fe
e e j&ee j#eeee j!�fgdVejfdWejdXfdYejfgdZ�Z'd[S )^r z[
For `BlitzBasic <http://blitzbasic.com>`_ source code.
.. versionadded:: 2.0
Z
BlitzBasicZ
blitzbasicZb3dZbplusz*.bbz*.declsz text/x-bbz @{1,2}|[#$%]z[a-z]\w*z3(%s)(?:([ \t]*)(%s)|([ \t]*)([.])([ \t]*)(?:(%s)))?z[ \t]+z;.*?\nr r z[0-9]+\.[0-9]*(?!\.)z\.[0-9]+(?!\.)z[0-9]+z \$[0-9a-f]+z\%[10]+�Shl�Shr�Sar�Mod�Or�And�Notr. r- �Handle�Intrr �Str�First�Last�Before�Afterz\b)r r z([+\-*/~=<>^])z [(),:\[\]\\]z\.([ \t]*)(%s)z\b(New)\b([ \t]+)(%s)z \b(Gosub|Goto)\b([ \t]+)(%s)z'\b(Object)\b([ \t]*)([.])([ \t]*)(%s)\bz\b%s\b([ \t]*)(\()z\b(Function)\b([ \t]+)%sz\b(Type)([ \t]+)(%s)z\b(Pi|True|False|Null)\bz"\b(Local|Global|Const|Field|Dim)\br! r" r$ r) r* r+ r1 r3 �Insertr8 r< r> rE rF rG rH rI rJ rK rL rM �EachrO rP rR rS rT rU rV rW r^ �Gosub�Data�Read�Restorez""z"C?z#popz[^"]+)rb r N)r� r� r� r� r� r� r� r. r- r� r� rr r� r� r� r� r� )#r! r" r$ r) r* r+ r1 r3 r� r8 r< r> rE rF rG rH rI rJ rK rL rM r� rO rP rR rS rT rU rV rW r^ r� r� r� r� )(rc rd re rf rg rh ri rj Z
bb_sktypesZbb_nameZbb_varrk rl rm rn r r ro r rq r
rr rs rt ru r r r r rv r r
rx ry r< r> r| r} r{ r r� r� r� r� r q sl
c ! @ s� e Zd ZdZdZdgZdgZdgZdZdZ dZ
dZ d Z d
Z
d ZejZd efd
efdejdfdejfdejdfdejdfdejfdejfdejfdejfdej fde
e j fde j fd e j!fd e j"fd e j"j#fd e j$fd e%e j&ee j&e�fd!e j fd"e%e j'e�dfd#e%e j e�d$fd%e%e j e�d&fd'e j fd(e j fd)e j fd*e(fd+e)fd,e)j*fd-e(fd.e
e j$fd.e e j+fd.e e j,fg d/e e j+fd0e(d$fd efd1e(dfd2e(d3fgd4e e j&fd.e
e j fd.e e j-fd5e%e(eejee(�fd6ed3fd7e(d8fd9e(d3fd:ed3fe.d3�g d.e
e j$fd.e e j,fd;e e j fd efd0e(d$fd<e(d8fe.d3�gd=ejfd>ej/fdejd3fgd?ejd8fd@ejd3fd:ejfdAejfgdB�Z0dCS )Dr z�
For
`Monkey <https://en.wikipedia.org/wiki/Monkey_(programming_language)>`_
source code.
.. versionadded:: 1.6
ZMonkeyZmonkeyz*.monkeyz
text/x-monkeyz [a-z_]\w*z[A-Z]\w*z[A-Z_][A-Z0-9_]*z
[a-z0-9_]*z+(?:Int|Float|String|Bool|Object|Array|Void)z[?%#$]z\s+z'.*z (?i)^#rem\b�commentz6(?i)^(?:#If|#ElseIf|#Else|#EndIf|#End|#Print|#Error)\bz^#� variablesr r z[0-9]+\.[0-9]*(?!\.)z\.[0-9]+(?!\.)z[0-9]+z\$[0-9a-fA-Z]+z\%[10]+z\b%s\bz(?i)\b(?:Try|Catch|Throw)\bZ Throwablez(?i)\b(?:Null|True|False)\bz(?i)\b(?:Self|Super)\bz \b(?:HOST|LANG|TARGET|CONFIG)\bz(?i)^(Import)(\s+)(.*)(\n)z(?i)^Strict\b.*\nz#(?i)(Const|Local|Global|Field)(\s+)z1(?i)(New|Class|Interface|Extends|Implements)(\s+)� classnamez(?i)(Function|Method)(\s+)�funcnamezB(?i)(?:End|Return|Public|Private|Extern|Property|Final|Abstract)\bz�(?i)(?:If|Then|Else|ElseIf|EndIf|Select|Case|Default|While|Wend|Repeat|Until|Forever|For|To|Until|Step|EachIn|Next|Exit|Continue)\s+z(?i)\b(?:Module|Inline)\bz[\[\]]z.<=|>=|<>|\*=|/=|\+=|-=|&=|~=|\|=|[-&*/^+=<>|~]z (?i)(?:Not|Mod|Shl|Shr|And|Or)z [(){}!#,.:]z%s\bz(?i)%s\b�:z\(z\)z#popz%s\.z(\[)(\s*)(\d*)(\s*)(\])z\s+(?!<)�<z#push�>z\nz%s�,z[^"~]+z~q|~n|~r|~t|~z|~~z (?i)^#rem.*?z (?i)^#end.*?z.+)rb r� r� r� r r� N)1rc rd re rf rg rh ri rj Z
name_variableZ
name_functionZ
name_constantZ
name_classZ name_moduleZ keyword_typeZkeyword_type_specialrk rl rn r r rp rw r rq r
rr rs rt ru r
r> rx r r~ �BuiltinZPseudor| r rz r} r r �Wordr< r{ ry r ZEscaper r� r� r� r� r � s�
c
@ s� e Zd ZdZdZdgZdgZejZ dde
j fde fde
jfd e
jfd
ejfd efd ejfd
efdejfdefdefg iZdd� ZdS )r z>
For CBM BASIC V2 sources.
.. versionadded:: 1.6
z CBM BASIC V2Zcbmbasz*.basrb zrem.*\nz\s+z�new|run|end|for|to|next|step|go(to|sub)?|on|return|stop|cont|if|then|input#?|read|wait|load|save|verify|poke|sys|print#?|list|clr|cmd|open|close|get#?zdata|restore|dim|let|def|fnzktab|spc|sgn|int|abs|usr|fre|pos|sqr|rnd|log|exp|cos|sin|tan|atn|peek|len|val|asc|(str|chr|left|right|mid)\$z
[-+*/^<>=]z
not|and|orz "[^"\n]*.z \d+|[-+]?\d*\.\d*(e[-+]?\d+)?z[(),:;]z\w+[$%]?c C s t jd|�rdS d S )Nz\d+g�������?)rk �match)�self�textr� r� r� � analyse_texta s z CbmBasicV2Lexer.analyse_textN)rc rd re rf rg rh ri rk rm rn r ro r r
rx r} r r� r r� r r
rr r r r� r� r� r� r� r B s( c � @ s� e Zd ZdZdZddgZddgZdgZ�d Z�d Z �d Z
�d Z �d Z �d!Z
d�efd�ejfd�eejejejej�fd�eejejej�fd�ejjfd�ejfd�ejf�d eejejej�f�deejejejeje�f�deejejejejejj�f�deejejejj�f�deejejjeje �f�deejejej�f�deejejej�fe �d�e �d�e �d �e �d
�e �d �e �d ��d
ejjf�dejf�de j f�de j f�de j j!f�de j f�de f�de"f�dejjfg �d�dj#e$e%j&e�� ejfg�d�dj#e$e%j&e �� ejfg�d�dj#e$e%j&e
�� ej'fg�d�dj#e$e%j&e �� e j(fg�d�dj#e$e%j&e �� ejfg�d�dj#e
� efg�d�Z)�d�d� Z*�dS (" r zm
For
`QBasic <http://en.wikipedia.org/wiki/QBasic>`_
source code.
.. versionadded:: 2.0
ZQBasicZqbasicZbasicz*.BASz*.basz
text/basic�DATA�LET�ABS�ASC�ATN�CDBL�CHR$�CINT�CLNG�COMMAND$�COS�CSNG�CSRLIN�CVD�CVDMBF�CVI�CVL�CVS�CVSMBF�DATE$�ENVIRON$�EOF�ERDEV�ERDEV$�ERL�ERR�EXP�FILEATTR�FIX�FRE�FREEFILE�HEX$�INKEY$�INP�INPUT$�INSTR�INT�IOCTL$�LBOUND�LCASE$�LEFT$�LEN�LOC�LOF�LOG�LPOS�LTRIM$�MID$�MKD$�MKDMBF$�MKI$�MKL$�MKS$�MKSMBF$�OCT$�PEEK�PEN�PLAY�PMAP�POINT�POS�RIGHT$�RND�RTRIM$�SADD�SCREEN�SEEK�SETMEM�SGN�SIN�SPACE$�SPC�SQR�STICK�STR$�STRIG�STRING$�TAB�TAN�TIME$�TIMER�UBOUND�UCASE$�VAL�VARPTR�VARPTR$�VARSEG�$DYNAMIC�$INCLUDE�$STATIC�AND�EQV�IMP�NOT�OR�XOR�BEEP�BLOAD�BSAVE�CALL�
CALL ABSOLUTE�CALL INTERRUPT�CALLS�CHAIN�CHDIR�CIRCLE�CLEAR�CLOSE�CLS�COLOR�COM�COMMON�CONST�DECLARE�DEF FN�DEF SEG�DEFDBL�DEFINT�DEFLNG�DEFSNG�DEFSTR�DEF�DIM�DO�LOOP�DRAW�END�ENVIRON�ERASE�ERROR�EXIT�FIELD�FILES�FOR�NEXT�FUNCTION�GET�GOSUB�GOTO�IF�THEN�INPUT�INPUT #�IOCTL�KEY�KILL�LINE�
LINE INPUT� LINE INPUT #�LOCATE�LOCK�UNLOCK�LPRINT�LSET�MKDIR�NAME�ON COM�ON ERROR�ON KEY�ON PEN�ON PLAY�ON STRIG�ON TIMER� ON UEVENT�ON�OPEN�OPEN COM� OPTION BASE�OUT�PAINT�PALETTE�PCOPY�POKE�PRESET�PRINT�PRINT #� PRINT USING�PSET�PUT� RANDOMIZE�READ�REDIM�REM�RESET�RESTORE�RESUME�RETURN�RMDIR�RSET�RUN� SELECT CASE�SHARED�SHELL�SLEEP�SOUND�STATIC�STOP�SUB�SWAP�SYSTEM�TROFF�TRON�TYPE�UEVENT�VIEW�WAIT�WHILE�WEND�WIDTH�WINDOW�WRITE�ACCESS�ALIAS�ANY�APPEND�AS�BASE�BINARY�BYVAL�CASE�CDECL�DOUBLE�ELSE�ELSEIF�ENDIF�INTEGER�IS�LIST�LOCAL�LONG�MOD�OFF�OUTPUT�RANDOM�SIGNAL�SINGLE�STEP�STRING�TO�UNTIL�USINGz\n+z\s+z^(\s*)(\d*)(\s*)(REM .*)$z^(\s*)(\d+)(\s*)z(?=[\s]*)(\w+)(?=[\s]*=)z(?=[^"]*)\'.*$z "[^\n"]*"z"(END)(\s+)(FUNCTION|IF|SELECT|SUB)z (DECLARE)(\s+)([A-Z]+)(\s+)(\S+)z (DIM)(\s+)(SHARED)(\s+)([^\s(]+)z(DIM)(\s+)([^\s(]+)z^(\s*)([a-zA-Z_]+)(\s*)(\=)z(GOTO|GOSUB)(\s+)(\w+\:?)z(SUB)(\s+)(\w+\:?)� declarations� functions� metacommands� operators�
statements�keywordsz[a-zA-Z_]\w*[$@#&!]z[a-zA-Z_]\w*\:z\-?\d*\.\d+[@|#]?z \-?\d+[@|#]z\-?\d+#?z'!=|==|:=|\.=|<<|>>|[-~+/\\*%=<>&^|?:!.]z [\[\]{}(),;]z[\w]+z\b(%s)(?=\(|\b)�|z\b(%s)\b)rb r� r� r� r� r� r� c C s d| ksd| krdS d S )Nz$DYNAMICz$STATICg�������?r� )r� r� r� r� r� � s zQBasicLexer.analyse_textN)r� r� )Ur� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� )r� r� r� )r� r� r r r r )�r r r r r r r
r r r
r r r r r r r r� r� r r r r r r r r r r r r r! r" r# r$ r% r& r' r( r) r* r+ r, r- r. r/ r0 r1 r2 r3 r4 r4 r5 r� r6 r7 r8 r9 r: r; r< r= r� r> r? r@ rA rB rC rD rE rF rG rH rI rJ rK rL rM rN rO r� r� rP rQ rR rS rT rU rV rV rW rX rY rZ r[ r\ r] r^ r_ r` ra r� r� rb rc rd re rf rg rh r� ri rj rk r� r� rl rm rn ro r; rp rq rr rs rt ru rv )#rw rx ry rz r{ r| r} r~ r r� r� r� r� r� r� r� r� r� r� r r� r* r� rH r� r� r� r� r� r� r0 r� r� r� rs )+rc rd re rf rg rh ri rj r� r� r� r� r� r� r �
Whitespacer r rv r ro r{ ZGlobalr rq r
rx r} r r r
rr rs ZLongr �join�maprk �escaper| r� r r� r� r� r� r� r h s�
)rf rk Zpygments.lexerr r r r r Zpygments.tokenr r r r
r r r
r �__all__r r r r r r� r� r� r� �<module>
s ([O &