runtime/syntax/ibasic.vim

   1 " Vim syntax file
   2 " Language:     ibasic
   3 " Maintainer:   Mark Manning <markem@airmail.net>
   4 " Originator:   Allan Kelly <Allan.Kelly@ed.ac.uk>
   5 " Created:      10/1/2006
   6 " Updated:      10/21/2006
   7 " Description:  A vim file to handle the IBasic file format.
   8 " Notes:
   9 "       Updated by Mark Manning <markem@airmail.net>
  10 "       Applied IBasic support to the already excellent support for standard
  11 "       basic syntax (like QB).
  12 "
  13 "       First version based on Micro$soft QBASIC circa 1989, as documented in
  14 "       'Learn BASIC Now' by Halvorson&Rygmyr. Microsoft Press 1989.
  15 "       This syntax file not a complete implementation yet.
  16 "       Send suggestions to the maintainer.
  17 "
  18 "       This version is based upon the commands found in IBasic (www.pyxia.com).
  19 "       MEM 10/6/2006
  20 "
  21 "       Quit when a (custom) syntax file was already loaded (Taken from c.vim)
  22 "
  23 if exists("b:current_syntax")
  24   finish
  25 endif
  26 "
  27 "       Be sure to turn on the "case ignore" since current versions of basic
  28 "       support both upper as well as lowercase letters.
  29 "
  30 syn case ignore
  31 "
  32 " A bunch of useful BASIC keywords
  33 "
  34 syn keyword ibasicStatement     beep bload bsave call absolute chain chdir circle
  35 syn keyword ibasicStatement     clear close cls color com common const data
  36 syn keyword ibasicStatement     loop draw end environ erase error exit field
  37 syn keyword ibasicStatement     files function get gosub goto
  38 syn keyword ibasicStatement     input input# ioctl key kill let line locate
  39 syn keyword ibasicStatement     lock unlock lprint using lset mkdir name
  40 syn keyword ibasicStatement     on error open option base out paint palette pcopy
  41 syn keyword ibasicStatement     pen play pmap poke preset print print# using pset
  42 syn keyword ibasicStatement     put randomize read redim reset restore resume
  43 syn keyword ibasicStatement     return rmdir rset run seek screen
  44 syn keyword ibasicStatement     shared shell sleep sound static stop strig sub
  45 syn keyword ibasicStatement     swap system timer troff tron type unlock
  46 syn keyword ibasicStatement     view wait width window write
  47 syn keyword ibasicStatement     date$ mid$ time$
  48 "
  49 "       Do the basic variables names first.  This is because it
  50 "       is the most inclusive of the tests.  Later on we change
  51 "       this so the identifiers are split up into the various
  52 "       types of identifiers like functions, basic commands and
  53 "       such. MEM 9/9/2006
  54 "
  55 syn match       ibasicIdentifier                        "\<[a-zA-Z_][a-zA-Z0-9_]*\>"
  56 syn match       ibasicGenericFunction   "\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1
  57 "
  58 "       Function list
  59 "
  60 syn keyword ibasicBuiltInFunction       abs asc atn cdbl cint clng cos csng csrlin cvd cvdmbf
  61 syn keyword ibasicBuiltInFunction       cvi cvl cvs cvsmbf eof erdev erl err exp fileattr
  62 syn keyword ibasicBuiltInFunction       fix fre freefile inp instr lbound len loc lof
  63 syn keyword ibasicBuiltInFunction       log lpos mod peek pen point pos rnd sadd screen seek
  64 syn keyword ibasicBuiltInFunction       setmem sgn sin spc sqr stick strig tab tan ubound
  65 syn keyword ibasicBuiltInFunction       val valptr valseg varptr varseg
  66 syn keyword ibasicBuiltInFunction       chr\$ command$ date$ environ$ erdev$ hex$ inkey$
  67 syn keyword ibasicBuiltInFunction       input$ ioctl$ lcases$ laft$ ltrim$ mid$ mkdmbf$ mkd$
  68 syn keyword ibasicBuiltInFunction       mki$ mkl$ mksmbf$ mks$ oct$ right$ rtrim$ space$
  69 syn keyword ibasicBuiltInFunction       str$ string$ time$ ucase$ varptr$
  70 syn keyword ibasicTodo contained        TODO
  71 syn cluster     ibasicFunctionCluster   contains=ibasicBuiltInFunction,ibasicGenericFunction
  72
  73 syn keyword Conditional if else then elseif endif select case endselect
  74 syn keyword Repeat      for do while next enddo endwhile wend
  75
  76 syn keyword ibasicTypeSpecifier single double defdbl defsng
  77 syn keyword ibasicTypeSpecifier int integer uint uinteger int64 uint64 defint deflng
  78 syn keyword ibasicTypeSpecifier byte char string istring defstr
  79 syn keyword ibasicDefine        dim def declare
  80 "
  81 "catch errors caused by wrong parenthesis
  82 "
  83 syn cluster     ibasicParenGroup        contains=ibasicParenError,ibasicIncluded,ibasicSpecial,ibasicTodo,ibasicUserCont,ibasicUserLabel,ibasicBitField
  84 syn region      ibasicParen             transparent start='(' end=')' contains=ALLBUT,@bParenGroup
  85 syn match       ibasicParenError        ")"
  86 syn match       ibasicInParen   contained "[{}]"
  87 "
  88 "integer number, or floating point number without a dot and with "f".
  89 "
  90 syn region      ibasicHex               start="&h" end="\W"
  91 syn region      ibasicHexError  start="&h\x*[g-zG-Z]" end="\W"
  92 syn match       ibasicInteger   "\<\d\+\(u\=l\=\|lu\|f\)\>"
  93 "
  94 "floating point number, with dot, optional exponent
  95 "
  96 syn match       ibasicFloat             "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"
  97 "
  98 "floating point number, starting with a dot, optional exponent
  99 "
 100 syn match       ibasicFloat             "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
 101 "
 102 "floating point number, without dot, with exponent
 103 "
 104 syn match       ibasicFloat             "\<\d\+e[-+]\=\d\+[fl]\=\>"
 105 "
 106 "hex number
 107 "
 108 syn match       ibasicIdentifier        "\<[a-zA-Z_][a-zA-Z0-9_]*\>"
 109 syn match       ibasicFunction  "\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1
 110 syn case match
 111 syn match       ibasicOctalError        "\<0\o*[89]"
 112 "
 113 " String and Character contstants
 114 "
 115 syn region      ibasicString            start='"' end='"' contains=ibasicSpecial,ibasicTodo
 116 syn region      ibasicString            start="'" end="'" contains=ibasicSpecial,ibasicTodo
 117 "
 118 "       Comments
 119 "
 120 syn match       ibasicSpecial   contained "\\."
 121 syn region  ibasicComment       start="^rem" end="$" contains=ibasicSpecial,ibasicTodo
 122 syn region  ibasicComment       start=":\s*rem" end="$" contains=ibasicSpecial,ibasicTodo
 123 syn region      ibasicComment   start="\s*'" end="$" contains=ibasicSpecial,ibasicTodo
 124 syn region      ibasicComment   start="^'" end="$" contains=ibasicSpecial,ibasicTodo
 125 "
 126 "       Now do the comments and labels
 127 "
 128 syn match       ibasicLabel             "^\d"
 129 syn region  ibasicLineNumber    start="^\d" end="\s"
 130 "
 131 "       Pre-compiler options : FreeBasic
 132 "
 133 syn region      ibasicPreCondit start="^\s*#\s*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)" skip="\\$" end="$" contains=ibasicString,ibasicCharacter,ibasicNumber,ibasicCommentError,ibasicSpaceError
 134 syn match       ibasicInclude   "^\s*#\s*include\s*"
 135 "
 136 "       Create the clusters
 137 "
 138 syn cluster ibasicNumber contains=ibasicHex,ibasicInteger,ibasicFloat
 139 syn cluster     ibasicError     contains=ibasicHexError
 140 "
 141 "       Used with OPEN statement
 142 "
 143 syn match   ibasicFilenumber  "#\d\+"
 144 "
 145 "syn sync ccomment ibasicComment
 146 "
 147 syn match       ibasicMathOperator      "[\+\-\=\|\*\/\>\<\%\()[\]]" contains=ibasicParen
 148 "
 149 " The default methods for highlighting.  Can be overridden later
 150 "
 151 hi def link ibasicLabel                 Label
 152 hi def link ibasicConditional           Conditional
 153 hi def link ibasicRepeat                Repeat
 154 hi def link ibasicHex                   Number
 155 hi def link ibasicInteger               Number
 156 hi def link ibasicFloat                 Number
 157 hi def link ibasicError                 Error
 158 hi def link ibasicHexError              Error
 159 hi def link ibasicStatement             Statement
 160 hi def link ibasicString                String
 161 hi def link ibasicComment               Comment
 162 hi def link ibasicLineNumber            Comment
 163 hi def link ibasicSpecial               Special
 164 hi def link ibasicTodo                  Todo
 165 hi def link ibasicGenericFunction       Function
 166 hi def link ibasicBuiltInFunction       Function
 167 hi def link ibasicTypeSpecifier         Type
 168 hi def link ibasicDefine                Type
 169 hi def link ibasicInclude               Include
 170 hi def link ibasicIdentifier            Identifier
 171 hi def link ibasicFilenumber            ibasicTypeSpecifier
 172 hi def link ibasicMathOperator          Operator
 173
 174 let b:current_syntax = "ibasic"
 175
 176 " vim: ts=8