/usr/share/vim/vim74/syntax/ibasic.vim is in vim-runtime 2:7.4.052-1ubuntu3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 | " 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
|