diff options
author | Adam Stankiewicz <sheerun@sher.pl> | 2017-09-28 22:18:09 +0200 |
---|---|---|
committer | Adam Stankiewicz <sheerun@sher.pl> | 2017-09-28 22:18:09 +0200 |
commit | 27903c5b8656c796564ef073c1ebe77a2f0154e1 (patch) | |
tree | 2b0a3a14494d7976fb79a7517706e25d2a95d080 /syntax/ibasic.vim | |
parent | d5e38fa97bc50a93a66473d6cd7072fbcbadda57 (diff) | |
download | vim-polyglot-3.0.0.tar.gz vim-polyglot-3.0.0.zip |
Revert inlining basic language packv3.0.0
Diffstat (limited to 'syntax/ibasic.vim')
-rw-r--r-- | syntax/ibasic.vim | 180 |
1 files changed, 0 insertions, 180 deletions
diff --git a/syntax/ibasic.vim b/syntax/ibasic.vim deleted file mode 100644 index 27ce4caf..00000000 --- a/syntax/ibasic.vim +++ /dev/null @@ -1,180 +0,0 @@ -if !exists('g:polyglot_disabled') || index(g:polyglot_disabled, 'vim') == -1 - -" Vim syntax file -" Language: ibasic -" Maintainer: Mark Manning <markem@airmail.net> -" Originator: Allan Kelly <Allan.Kelly@ed.ac.uk> -" Created: 10/1/2006 -" Updated: 10/21/2006 -" Description: A vim file to handle the IBasic file format. -" Notes: -" Updated by Mark Manning <markem@airmail.net> -" Applied IBasic support to the already excellent support for standard -" basic syntax (like QB). -" -" First version based on Micro$soft QBASIC circa 1989, as documented in -" 'Learn BASIC Now' by Halvorson&Rygmyr. Microsoft Press 1989. -" This syntax file not a complete implementation yet. -" Send suggestions to the maintainer. -" -" This version is based upon the commands found in IBasic (www.pyxia.com). -" MEM 10/6/2006 -" -" Quit when a (custom) syntax file was already loaded (Taken from c.vim) -" -if exists("b:current_syntax") - finish -endif -" -" Be sure to turn on the "case ignore" since current versions of basic -" support both upper as well as lowercase letters. -" -syn case ignore -" -" A bunch of useful BASIC keywords -" -syn keyword ibasicStatement beep bload bsave call absolute chain chdir circle -syn keyword ibasicStatement clear close cls color com common const data -syn keyword ibasicStatement loop draw end environ erase error exit field -syn keyword ibasicStatement files function get gosub goto -syn keyword ibasicStatement input input# ioctl key kill let line locate -syn keyword ibasicStatement lock unlock lprint using lset mkdir name -syn keyword ibasicStatement on error open option base out paint palette pcopy -syn keyword ibasicStatement pen play pmap poke preset print print# using pset -syn keyword ibasicStatement put randomize read redim reset restore resume -syn keyword ibasicStatement return rmdir rset run seek screen -syn keyword ibasicStatement shared shell sleep sound static stop strig sub -syn keyword ibasicStatement swap system timer troff tron type unlock -syn keyword ibasicStatement view wait width window write -syn keyword ibasicStatement date$ mid$ time$ -" -" Do the basic variables names first. This is because it -" is the most inclusive of the tests. Later on we change -" this so the identifiers are split up into the various -" types of identifiers like functions, basic commands and -" such. MEM 9/9/2006 -" -syn match ibasicIdentifier "\<[a-zA-Z_][a-zA-Z0-9_]*\>" -syn match ibasicGenericFunction "\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1 -" -" Function list -" -syn keyword ibasicBuiltInFunction abs asc atn cdbl cint clng cos csng csrlin cvd cvdmbf -syn keyword ibasicBuiltInFunction cvi cvl cvs cvsmbf eof erdev erl err exp fileattr -syn keyword ibasicBuiltInFunction fix fre freefile inp instr lbound len loc lof -syn keyword ibasicBuiltInFunction log lpos mod peek pen point pos rnd sadd screen seek -syn keyword ibasicBuiltInFunction setmem sgn sin spc sqr stick strig tab tan ubound -syn keyword ibasicBuiltInFunction val valptr valseg varptr varseg -syn keyword ibasicBuiltInFunction chr\$ command$ date$ environ$ erdev$ hex$ inkey$ -syn keyword ibasicBuiltInFunction input$ ioctl$ lcases$ laft$ ltrim$ mid$ mkdmbf$ mkd$ -syn keyword ibasicBuiltInFunction mki$ mkl$ mksmbf$ mks$ oct$ right$ rtrim$ space$ -syn keyword ibasicBuiltInFunction str$ string$ time$ ucase$ varptr$ -syn keyword ibasicTodo contained TODO -syn cluster ibasicFunctionCluster contains=ibasicBuiltInFunction,ibasicGenericFunction - -syn keyword Conditional if else then elseif endif select case endselect -syn keyword Repeat for do while next enddo endwhile wend - -syn keyword ibasicTypeSpecifier single double defdbl defsng -syn keyword ibasicTypeSpecifier int integer uint uinteger int64 uint64 defint deflng -syn keyword ibasicTypeSpecifier byte char string istring defstr -syn keyword ibasicDefine dim def declare -" -"catch errors caused by wrong parenthesis -" -syn cluster ibasicParenGroup contains=ibasicParenError,ibasicIncluded,ibasicSpecial,ibasicTodo,ibasicUserCont,ibasicUserLabel,ibasicBitField -syn region ibasicParen transparent start='(' end=')' contains=ALLBUT,@bParenGroup -syn match ibasicParenError ")" -syn match ibasicInParen contained "[{}]" -" -"integer number, or floating point number without a dot and with "f". -" -syn region ibasicHex start="&h" end="\W" -syn region ibasicHexError start="&h\x*[g-zG-Z]" end="\W" -syn match ibasicInteger "\<\d\+\(u\=l\=\|lu\|f\)\>" -" -"floating point number, with dot, optional exponent -" -syn match ibasicFloat "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>" -" -"floating point number, starting with a dot, optional exponent -" -syn match ibasicFloat "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>" -" -"floating point number, without dot, with exponent -" -syn match ibasicFloat "\<\d\+e[-+]\=\d\+[fl]\=\>" -" -"hex number -" -syn match ibasicIdentifier "\<[a-zA-Z_][a-zA-Z0-9_]*\>" -syn match ibasicFunction "\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1 -syn case match -syn match ibasicOctalError "\<0\o*[89]" -" -" String and Character contstants -" -syn region ibasicString start='"' end='"' contains=ibasicSpecial,ibasicTodo -syn region ibasicString start="'" end="'" contains=ibasicSpecial,ibasicTodo -" -" Comments -" -syn match ibasicSpecial contained "\\." -syn region ibasicComment start="^rem" end="$" contains=ibasicSpecial,ibasicTodo -syn region ibasicComment start=":\s*rem" end="$" contains=ibasicSpecial,ibasicTodo -syn region ibasicComment start="\s*'" end="$" contains=ibasicSpecial,ibasicTodo -syn region ibasicComment start="^'" end="$" contains=ibasicSpecial,ibasicTodo -" -" Now do the comments and labels -" -syn match ibasicLabel "^\d" -syn region ibasicLineNumber start="^\d" end="\s" -" -" Pre-compiler options : FreeBasic -" -syn region ibasicPreCondit start="^\s*#\s*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)" skip="\\$" end="$" contains=ibasicString,ibasicCharacter,ibasicNumber,ibasicCommentError,ibasicSpaceError -syn match ibasicInclude "^\s*#\s*include\s*" -" -" Create the clusters -" -syn cluster ibasicNumber contains=ibasicHex,ibasicInteger,ibasicFloat -syn cluster ibasicError contains=ibasicHexError -" -" Used with OPEN statement -" -syn match ibasicFilenumber "#\d\+" -" -"syn sync ccomment ibasicComment -" -syn match ibasicMathOperator "[\+\-\=\|\*\/\>\<\%\()[\]]" contains=ibasicParen -" -" The default methods for highlighting. Can be overridden later -" -hi def link ibasicLabel Label -hi def link ibasicConditional Conditional -hi def link ibasicRepeat Repeat -hi def link ibasicHex Number -hi def link ibasicInteger Number -hi def link ibasicFloat Number -hi def link ibasicError Error -hi def link ibasicHexError Error -hi def link ibasicStatement Statement -hi def link ibasicString String -hi def link ibasicComment Comment -hi def link ibasicLineNumber Comment -hi def link ibasicSpecial Special -hi def link ibasicTodo Todo -hi def link ibasicGenericFunction Function -hi def link ibasicBuiltInFunction Function -hi def link ibasicTypeSpecifier Type -hi def link ibasicDefine Type -hi def link ibasicInclude Include -hi def link ibasicIdentifier Identifier -hi def link ibasicFilenumber ibasicTypeSpecifier -hi def link ibasicMathOperator Operator - -let b:current_syntax = "ibasic" - -" vim: ts=8 - -endif |