"" " for BASIC like languages (other than VB.net).for details."" " import refrom pygments.lexer import RegexLexer, bygroups, default, words, includefrom pygments.token import Comment, Error, Keyword, Name, Number, \from pygments.lexers import _vbscript_builtins'BlitzBasicLexer' , 'BlitzMaxLexer' , 'MonkeyLexer' , 'CbmBasicV2Lexer' ,'QBasicLexer' , 'VBScriptLexer' , 'BBCBasicLexer' ]class BlitzMaxLexer(RegexLexer):"" " For BlitzMax source code."" " 'BlitzMax' 'http://blitzbasic.com ' 'blitzmax' , 'bmax' ]'*.bmx' ]'text/x-bmx' ]'1.4' '\b(Shl|Shr|Sar|Mod)\b' '@{1,2}|[!#$%]' '\b(Int|Byte|Short|Float|Double|Long)\b' '[a-z_]\w*' '({bmax_name})(?:(?:([ \t]*)({bmax_sktypes})|([ \t]*:[ \t]*\b(?:Shl|Shr|Sar|Mod)\b)' '|([ \t]*)(:)([ \t]*)(?:{bmax_lktypes}|({bmax_name})))(?:([ \t]*)(Ptr))?)' )'?((?:[ \t]|\.\.\n)*)([(])' 'root' : [# Text '\s+' , Whitespace),'(\.\.)(\n)' , bygroups(Text, Whitespace)), # Line continuation # Comments "'.*?\n" , Comment.Single),'([ \t]*)\bRem\n(\n|.)*?\s*\bEnd([ \t]*)Rem' , Comment.Multiline),# Data types '"' , String.Double, 'string' ),# Numbers '[0-9]+\.[0-9]*(?!\.)' , Number.Float),'\.[0-9]*(?!\.)' , Number.Float),'[0-9]+' , Number.Integer),'\$[0-9a-f]+' , Number.Hex),'\%[10]+' , Number.Bin),# Other '(?:(?:(:)?([ \t]*)(:?{bmax_vopwords}|([+\-*/&|~]))|Or|And|Not|[=<>^]))' , Operator),'[(),.:\[\]]' , Punctuation),'(?:#[\w \t]*)', Name.Label), '(?:\?[\w \t]*)' , Comment.Preproc),# Identifiers '\b(New)\b([ \t]?)([(]?)({bmax_name})' ,Class )),'\b(Import|Framework|Module)([ \t]+)({bmax_name}\.{bmax_name})' ,Class , Whitespace,Class , Whitespace, Keyword.Type)),'\b(Type|Extends)([ \t]+)({bmax_name})' ,Class )),# Keywords '\b(Ptr)\b' , Keyword.Type),'\b(Pi|True|False|Null|Self|Super)\b' , Keyword.Constant),'\b(Local|Global|Const|Field)\b' , Keyword.Declaration),'TNullMethodException' , 'TNullFunctionException' ,'TNullObjectException' , 'TArrayBoundsException' ,'TRuntimeException' ), prefix=r'\b' , suffix=r'\b' ), Name.Exception),'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' ,'RestoreData' ), prefix=r'\b' , suffix=r'\b' ),# Final resolve (for variable names and such) '({bmax_name})' , Name.Variable),'string' : ['""' , String.Double),'"C?' , String.Double, '#pop'), '[^"]+' , String.Double),class BlitzBasicLexer(RegexLexer):"" " For BlitzBasic source code."" " 'BlitzBasic' 'http://blitzbasic.com ' 'blitzbasic' , 'b3d' , 'bplus' ]'*.bb' , '*.decls' ]'text/x-bb' ]'2.0' '@{1,2}|[#$%]' '[a-z]\w*' '({bb_name})(?:([ \t]*)({bb_sktypes})|([ \t]*)([.])([ \t]*)(?:({bb_name})))?' )'root' : [# Text '\s+' , Whitespace),# Comments ";.*?\n" , Comment.Single),# Data types '"' , String.Double, 'string' ),# Numbers '[0-9]+\.[0-9]*(?!\.)' , Number.Float),'\.[0-9]+(?!\.)' , Number.Float),'[0-9]+' , Number.Integer),'\$[0-9a-f]+' , Number.Hex),'\%[10]+' , Number.Bin),# Other 'Shl' , 'Shr' , 'Sar' , 'Mod' , 'Or' , 'And' , 'Not' ,'Abs' , 'Sgn' , 'Handle' , 'Int' , 'Float' , 'Str' ,'First' , 'Last' , 'Before' , 'After' ),'\b' , suffix=r'\b' ),'([+\-*/~=<>^])' , Operator),'[(),:\[\]\\]' , Punctuation),'\.([ \t]*)({bb_name})' , Name.Label),# Identifiers '\b(New)\b([ \t]+)({bb_name})' ,Class )),'\b(Gosub|Goto)\b([ \t]+)({bb_name})' ,'\b(Object)\b([ \t]*)([.])([ \t]*)({bb_name})\b' ,Class )),'\b{bb_var}\b([ \t]*)(\()' ,Class , Whitespace, Punctuation)),'\b(Function)\b([ \t]+){bb_var}' ,Class )),'\b(Type)([ \t]+)({bb_name})' ,Class )),# Keywords '\b(Pi|True|False|Null)\b' , Keyword.Constant),'\b(Local|Global|Const|Field|Dim)\b' , Keyword.Declaration),'End' , 'Return' , 'Exit' , 'Chr' , 'Len' , 'Asc' , 'New' , 'Delete' , 'Insert' ,'Include' , 'Function' , 'Type' , 'If' , 'Then' , 'Else' , 'ElseIf' , 'EndIf' ,'For' , 'To' , 'Next' , 'Step' , 'Each' , 'While' , 'Wend' ,'Repeat' , 'Until' , 'Forever' , 'Select' , 'Case' , 'Default' ,'Goto' , 'Gosub' , 'Data' , 'Read' , 'Restore' ), prefix=r'\b' , suffix=r'\b' ),# Final resolve (for variable names and such) # (r'(%s)' % (bb_name), Name.Variable), Class )),'string' : ['""' , String.Double),'"C?' , String.Double, '#pop'), '[^"\n]+' , String.Double),class MonkeyLexer(RegexLexer):"" " For Monkey source code."" " 'Monkey' 'monkey' ]'*.monkey' ]'text/x-monkey' ]'https://blitzresearch.itch.io/monkeyx ' '1.6' '[a-z_]\w*' '[A-Z]\w*' '[A-Z_][A-Z0-9_]*' '[A-Z]\w*' '[a-z0-9_]*' '(?:Int|Float|String|Bool|Object|Array|Void)' # ? == Bool // % == Int // # == Float // $ == String '[?%#$]' 'root' : [# Text '\s+' , Whitespace),# Comments "'.*" , Comment),'(?i)^#rem\b', Comment.Multiline, 'comment'), # preprocessor directives '(?i)^(?:#If|#ElseIf|#Else|#EndIf|#End|#Print|#Error)\b', Comment.Preproc), # preprocessor variable (any line starting with '#' that is not a directive) '^#', Comment.Preproc, 'variables'), # String '"' , String.Double, 'string' ),# Numbers '[0-9]+\.[0-9]*(?!\.)' , Number.Float),'\.[0-9]+(?!\.)' , Number.Float),'[0-9]+' , Number.Integer),'\$[0-9a-fA-Z]+' , Number.Hex),'\%[10]+' , Number.Bin),# Native data types '\b{keyword_type}\b' , Keyword.Type),# Exception handling '(?i)\b(?:Try|Catch|Throw)\b' , Keyword.Reserved),'Throwable' , Name.Exception),# Builtins '(?i)\b(?:Null|True|False)\b' , Name.Builtin),'(?i)\b(?:Self|Super)\b' , Name.Builtin.Pseudo),'\b(?:HOST|LANG|TARGET|CONFIG)\b' , Name.Constant),# Keywords '(?i)^(Import)(\s+)(.*)(\n)' ,'(?i)^Strict\b.*\n' , Keyword.Reserved),'(?i)(Const|Local|Global|Field)(\s+)' ,'variables' ),'(?i)(New|Class|Interface|Extends|Implements)(\s+)' ,'classname' ),'(?i)(Function|Method)(\s+)' ,'funcname' ),'(?i)(?:End|Return|Public|Private|Extern|Property|' 'Final|Abstract)\b' , Keyword.Reserved),# Flow Control stuff '(?i)(?:If|Then|Else|ElseIf|EndIf|' 'Select|Case|Default|' 'While|Wend|' 'Repeat|Until|Forever|' 'For|To|Until|Step|EachIn|Next|' 'Exit|Continue)(?=\s)' , Keyword.Reserved),# not used yet '(?i)\b(?:Module|Inline)\b' , Keyword.Reserved),# Array '[\[\]]' , Punctuation),# Other '<=|>=|<>|\*=|/=|\+=|-=|&=|~=|\|=|[-&*/^+=<>|~]' , Operator),'(?i)(?:Not|Mod|Shl|Shr|And|Or)' , Operator.Word),'[(){}!#,.:]', Punctuation), # catch the rest '{name_constant}\b' , Name.Constant),'{name_function}\b' , Name.Function),'{name_variable}\b' , Name.Variable),'funcname' : ['(?i){name_function}\b' , Name.Function),':' , Punctuation, 'classname' ),'\s+' , Whitespace),'\(' , Punctuation, 'variables' ),'\)' , Punctuation, '#pop') 'classname' : ['{name_module}\.' , Name.Namespace),'{keyword_type}\b' , Keyword.Type),'{name_class}\b' , Name.Class ),# array (of given size) '(\[)(\s*)(\d*)(\s*)(\])' ,# generics '\s+(?!<)' , Whitespace, '#pop'), '<' , Punctuation, '#push'), '>' , Punctuation, '#pop'), '\n' , Whitespace, '#pop'), '#pop') 'variables' : ['{name_constant}\b' , Name.Constant),'{name_variable}\b' , Name.Variable),'{keyword_type_special}' , Keyword.Type),'\s+' , Whitespace),':' , Punctuation, 'classname' ),',' , Punctuation, '#push'), '#pop') 'string' : ['[^"~]+' , String.Double),'~q|~n|~r|~t|~z|~~' , String.Escape),'"' , String.Double, '#pop'), 'comment' : ['(?i)^#rem.*?', Comment.Multiline, "#push"), '(?i)^#end.*?', Comment.Multiline, "#pop"), '\n' , Comment.Multiline),'.+' , Comment.Multiline),class CbmBasicV2Lexer(RegexLexer):"" " For CBM BASIC V2 sources."" " 'CBM BASIC V2' 'cbmbas' ]'*.bas' ]'https://en.wikipedia.org/wiki/Commodore_BASIC ' '1.6' 'root' : ['rem.*\n' , Comment.Single),'\s+' , Whitespace),'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#?', Keyword.Reserved), 'data|restore|dim|let|def|fn' , Keyword.Declaration),'tab|spc|sgn|int|abs|usr|fre|pos|sqr|rnd|log|exp|cos|sin|tan|atn' '|peek|len|val|asc|(str|chr|left|right|mid)\$' , Name.Builtin),'[-+*/^<>=]' , Operator),'not|and|or' , Operator.Word),'"[^"\n]*.' , String),'\d+|[-+]?\d*\.\d*(e[-+]?\d+)?' , Number.Float),'[(),:;]' , Punctuation),'\w+[$%]?' , Name),def analyse_text(text):# if it starts with a line number, it shouldn't be a "modern" Basic # like VB.net if re.match(r'^\d+' , text):return 0.2class QBasicLexer(RegexLexer):"" " For QBasic source code."" " 'QBasic' 'qbasic' , 'basic' ]'*.BAS' , '*.bas' ]'text/basic' ]'https://en.wikipedia.org/wiki/QBasic ' '2.0' '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' , 'DATA' ,'DATE$' , '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', 'KEY', 'KILL' , 'LET' , 'LINE' , 'LINE INPUT' , 'LINE INPUT #', 'LOCATE', 'LOCK' , 'UNLOCK' , 'LPRINT' , 'LSET' , 'MID$' , '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' , 'PEN' ,'PLAY' , 'POKE' , 'PRESET' , 'PRINT' , 'PRINT #', 'PRINT USING', 'PSET' , 'PUT' , 'PUT' , 'RANDOMIZE' , 'READ' , 'REDIM' , 'REM' ,'RESET' , 'RESTORE' , 'RESUME' , 'RETURN' , 'RMDIR' , 'RSET' , 'RUN' ,'SCREEN' , 'SEEK' , 'SELECT CASE' , 'SHARED' , 'SHELL' , 'SLEEP' ,'SOUND' , 'STATIC' , 'STOP' , 'STRIG' , 'SUB' , 'SWAP' , 'SYSTEM' ,'TIME$' , 'TIMER' , 'TROFF' , 'TRON' , 'TYPE' , 'UEVENT' , 'UNLOCK' ,'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' , 'LOOP' , 'MOD' ,'NEXT' , 'OFF' , 'ON' , 'OUTPUT' , 'RANDOM' , 'SIGNAL' , 'SINGLE' ,'STEP' , 'STRING' , 'THEN' , 'TO' , 'UNTIL' , 'USING' , 'WEND' 'root' : ['\n+' , Text),'\s+' , Text.Whitespace),'^(\s*)(\d*)(\s*)(REM .*)$' ,'^(\s*)(\d+)(\s*)' ,'(?=[\s]*)(\w+)(?=[\s]*=)' , Name.Variable.Global ),'(?=[^"]*)\' .*$', Comment.Single), '"[^\n"]*"' , String.Double),'(END)(\s+)(FUNCTION|IF|SELECT|SUB)' ,'(DECLARE)(\s+)([A-Z]+)(\s+)(\S+)' ,'(DIM)(\s+)(SHARED)(\s+)([^\s(]+)' ,Global )),'(DIM)(\s+)([^\s(]+)' ,Global )),'^(\s*)([a-zA-Z_]+)(\s*)(\=)' ,Global , Text.Whitespace,'(GOTO|GOSUB)(\s+)(\w+\:?)' ,'(SUB)(\s+)(\w+\:?)' ,'declarations' ),'functions' ),'metacommands' ),'operators' ),'statements' ),'keywords' ),'[a-zA-Z_]\w*[$@#&!]', Name.Variable.Global), '[a-zA-Z_]\w*\:' , Name.Label),'\-?\d*\.\d+[@|#]?', Number.Float), '\-?\d+[@|#]', Number.Float), '\-?\d+#?', Number.Integer.Long), '\-?\d+#?', Number.Integer), '!=|==|:=|\.=|<<|>>|[-~+/\\*%=<>&^|?:!.]' , Operator),'[\[\]{}(),;]' , Punctuation),'[\w]+' , Name.Variable.Global ),# can't use regular \b because of X$() # XXX: use words() here 'declarations' : ['\b({})(?=\(|\b)' .format('|' .join(map(re.escape, declarations))),'functions' : ['\b({})(?=\(|\b)' .format('|' .join(map(re.escape, functions))),'metacommands' : ['\b({})(?=\(|\b)' .format('|' .join(map(re.escape, metacommands))),'operators' : ['\b({})(?=\(|\b)' .format('|' .join(map(re.escape, operators))), Operator.Word),'statements' : ['\b({})\b' .format('|' .join(map(re.escape, statements))),'keywords' : ['\b({})\b' .format('|' .join(keywords)), Keyword),def analyse_text(text):if '$DYNAMIC' in text or '$STATIC' in text:return 0.9class VBScriptLexer(RegexLexer):"" " is scripting language that is modeled on Visual Basic."" " 'VBScript' 'vbscript' ]'*.vbs' , '*.VBS' ]'https://learn.microsoft.com/en-us/previous-versions/t0aew7h6(v=vs.85) ' '2.4' 'root' : ["'[^\n]*" , Comment.Single),'\s+' , Whitespace),'"' , String.Double, 'string' ),'&h[0-9a-f]+' , Number.Hex),# Float variant 1, for example: 1., 1.e2, 1.2e3 '[0-9]+\.[0-9]*(e[+-]?[0-9]+)?' , Number.Float),'\.[0-9]+(e[+-]?[0-9]+)?' , Number.Float), # Float variant 2, for example: .1, .1e2 '[0-9]+e[+-]?[0-9]+' , Number.Float), # Float variant 3, for example: 123e45 '[0-9]+' , Number.Integer),'#.+#', String), # date or time value '(dim)(\s+)([a-z_][a-z0-9_]*)' ,'dim_more' ),'(function|sub)(\s+)([a-z_][a-z0-9_]*)' ,'(class)(\s+)([a-z_][a-z0-9_]*)' ,Class )),'(const)(\s+)([a-z_][a-z0-9_]*)' ,'(end)(\s+)(class|function|if|property|sub|with)' ,'(on)(\s+)(error)(\s+)(goto)(\s+)(0)' ,)),'(on)(\s+)(error)(\s+)(resume)(\s+)(next)' ,'(option)(\s+)(explicit)' , bygroups(Keyword, Whitespace, Keyword)),'(property)(\s+)(get|let|set)(\s+)([a-z_][a-z0-9_]*)' ,erty)),'rem\s.*[^\n]*' , Comment.Single),'\b' ), Keyword),'\b' ), Operator.Word),'\b' ), Name.Constant),'\b' ), Name.Builtin),'\b' ), Name.Builtin),'[a-z_][a-z0-9_]*' , Name),'\b_\n' , Operator),'(),.:' ), Punctuation),'.+(\n)?' , Error)'dim_more' : ['(\s*)(,)(\s*)([a-z_][a-z0-9]*)' ,'#pop'), 'string' : ['[^"\n]+' , String.Double),'\"\"' , String.Double),'"' , String.Double, '#pop'), '\n' , Error, '#pop'), # Unterminated string class BBCBasicLexer(RegexLexer):"" " and later Acorn RISC OS.is also used by BBC Basic For Windows."" " 'OTHERWISE' , 'AND' , 'DIV' , 'EOR' , 'MOD' , 'OR' , 'ERROR' ,'LINE' , 'OFF' , 'STEP' , 'SPC' , 'TAB' , 'ELSE' , 'THEN' ,'OPENIN' , 'PTR' , 'PAGE' , 'TIME' , 'LOMEM' , 'HIMEM' , 'ABS' ,'ACS' , 'ADVAL' , 'ASC' , 'ASN' , 'ATN' , 'BGET' , 'COS' , 'COUNT' ,'DEG' , 'ERL' , 'ERR' , 'EVAL' , 'EXP' , 'EXT' , 'FALSE' , 'FN' ,'GET' , 'INKEY' , 'INSTR' , 'INT' , 'LEN' , 'LN' , 'LOG' , 'NOT' ,'OPENUP' , 'OPENOUT' , 'PI' , 'POINT' , 'POS' , 'RAD' , 'RND' ,'SGN' , 'SIN' , 'SQR' , 'TAN' , 'TO' , 'TRUE' , 'USR' , 'VAL' ,'VPOS' , 'CHR$' , 'GET$' , 'INKEY$' , 'LEFT$' , 'MID$' ,'RIGHT$' , 'STR$' , 'STRING$' , 'EOF' , 'PTR' , 'PAGE' , 'TIME' ,'LOMEM' , 'HIMEM' , 'SOUND' , 'BPUT' , 'CALL' , 'CHAIN' , 'CLEAR' ,'CLOSE' , 'CLG' , 'CLS' , 'DATA' , 'DEF' , 'DIM' , 'DRAW' , 'END' ,'ENDPROC' , 'ENVELOPE' , 'FOR' , 'GOSUB' , 'GOTO' , 'GCOL' , 'IF' ,'INPUT' , 'LET' , 'LOCAL' , 'MODE' , 'MOVE' , 'NEXT' , 'ON' ,'VDU' , 'PLOT' , 'PRINT' , 'PROC' , 'READ' , 'REM' , 'REPEAT' ,'REPORT' , 'RESTORE' , 'RETURN' , 'RUN' , 'STOP' , 'COLOUR' ,'TRACE' , 'UNTIL' , 'WIDTH' , 'OSCLI' ]'WHEN' , 'OF' , 'ENDCASE' , 'ENDIF' , 'ENDWHILE' , 'CASE' ,'CIRCLE' , 'FILL' , 'ORIGIN' , 'POINT' , 'RECTANGLE' , 'SWAP' ,'WHILE' , 'WAIT' , 'MOUSE' , 'QUIT' , 'SYS' , 'INSTALL' ,'LIBRARY' , 'TINT' , 'ELLIPSE' , 'BEATS' , 'TEMPO' , 'VOICES' ,'VOICE' , 'STEREO' , 'OVERLAY' , 'APPEND' , 'AUTO' , 'CRUNCH' ,'DELETE' , 'EDIT' , 'HELP' , 'LIST' , 'LOAD' , 'LVAR' , 'NEW' ,'OLD' , 'RENUMBER' , 'SAVE' , 'TEXTLOAD' , 'TEXTSAVE' ,'TWIN' , 'TWINO' , 'INSTALL' , 'SUM' , 'BEAT' ]'BBC Basic' 'bbcbasic' ]'*.bbc' ]'https://www.bbcbasic.co.uk/bbcbasic.html ' '2.4' 'root' : ["[0-9]+" , Name.Label),"(\*)([^\n]*)" ,'code' ),'code' : ["(REM)([^\n]*)" ,'\n' , Whitespace, 'root' ),'\s+' , Whitespace),':' , Comment.Preproc),# Some special cases to make functions come out nicer '(DEF)(\s*)(FN|PROC)([A-Za-z_@][\w@]*)' ,'(FN|PROC)([A-Za-z_@][\w@]*)' ,'(GOTO|GOSUB|THEN|RESTORE)(\s*)(\d+)' ,'(TRUE|FALSE)' , Keyword.Constant),'(PAGE|LOMEM|HIMEM|TIME|WIDTH|ERL|ERR|REPORT\$|POS|VPOS|VOICES)' ,'"' , String.Double, 'string' ),'%[01]{1,32}' , Number.Bin),'&[0-9a-f]{1,8}' , Number.Hex),'[+-]?[0-9]+\.[0-9]*(E[+-]?[0-9]+)?' , Number.Float),'[+-]?\.[0-9]+(E[+-]?[0-9]+)?' , Number.Float),'[+-]?[0-9]+E[+-]?[0-9]+' , Number.Float),'[+-]?\d+' , Number.Integer),'([A-Za-z_@][\w@]*[%$]?)' , Name.Variable),'([+\-]=|[$!|?+\-*/%^=><();]|>=|<=|<>|<<|>>|>>>|,)' , Operator),'string' : ['[^"\n]+' , String.Double),'"' , String.Double, '#pop'), '\n' , Error, 'root' ), # Unterminated string def analyse_text(text):if text.startswith('10REM >' ) or text.startswith('REM >' ):return 0.9quality 77%
¤ Dauer der Verarbeitung: 0.20 Sekunden
(vorverarbeitet)
¤ *© Formatika GbR, Deutschland
