runtime/syntax/basic.vim

   1 " Vim syntax file
   2 " Language:     BASIC
   3 " Maintainer:   Allan Kelly <allan@fruitloaf.co.uk>
   4 " Last Change:  Tue Sep 14 14:24:23 BST 1999
   5
   6 " First version based on Micro$soft QBASIC circa 1989, as documented in
   7 " 'Learn BASIC Now' by Halvorson&Rygmyr. Microsoft Press 1989.
   8 " This syntax file not a complete implementation yet.  Send suggestions to the
   9 " maintainer.
  10
  11 " For version 5.x: Clear all syntax items
  12 " For version 6.x: Quit when a syntax file was already loaded
  13 if version < 600
  14   syntax clear
  15 elseif exists("b:current_syntax")
  16   finish
  17 endif
  18
  19 " A bunch of useful BASIC keywords
  20 syn keyword basicStatement      BEEP beep Beep BLOAD bload Bload BSAVE bsave Bsave
  21 syn keyword basicStatement      CALL call Call ABSOLUTE absolute Absolute
  22 syn keyword basicStatement      CHAIN chain Chain CHDIR chdir Chdir
  23 syn keyword basicStatement      CIRCLE circle Circle CLEAR clear Clear
  24 syn keyword basicStatement      CLOSE close Close CLS cls Cls COLOR color Color
  25 syn keyword basicStatement      COM com Com COMMON common Common
  26 syn keyword basicStatement      CONST const Const DATA data Data
  27 syn keyword basicStatement      DECLARE declare Declare DEF def Def
  28 syn keyword basicStatement      DEFDBL defdbl Defdbl DEFINT defint Defint
  29 syn keyword basicStatement      DEFLNG deflng Deflng DEFSNG defsng Defsng
  30 syn keyword basicStatement      DEFSTR defstr Defstr DIM dim Dim
  31 syn keyword basicStatement      DO do Do LOOP loop Loop
  32 syn keyword basicStatement      DRAW draw Draw END end End
  33 syn keyword basicStatement      ENVIRON environ Environ ERASE erase Erase
  34 syn keyword basicStatement      ERROR error Error EXIT exit Exit
  35 syn keyword basicStatement      FIELD field Field FILES files Files
  36 syn keyword basicStatement      FOR for For NEXT next Next
  37 syn keyword basicStatement      FUNCTION function Function GET get Get
  38 syn keyword basicStatement      GOSUB gosub Gosub GOTO goto Goto
  39 syn keyword basicStatement      IF if If THEN then Then ELSE else Else
  40 syn keyword basicStatement      INPUT input Input INPUT# input# Input#
  41 syn keyword basicStatement      IOCTL ioctl Ioctl KEY key Key
  42 syn keyword basicStatement      KILL kill Kill LET let Let
  43 syn keyword basicStatement      LINE line Line LOCATE locate Locate
  44 syn keyword basicStatement      LOCK lock Lock UNLOCK unlock Unlock
  45 syn keyword basicStatement      LPRINT lprint Lprint USING using Using
  46 syn keyword basicStatement      LSET lset Lset MKDIR mkdir Mkdir
  47 syn keyword basicStatement      NAME name Name ON on On
  48 syn keyword basicStatement      ERROR error Error OPEN open Open
  49 syn keyword basicStatement      OPTION option Option BASE base Base
  50 syn keyword basicStatement      OUT out Out PAINT paint Paint
  51 syn keyword basicStatement      PALETTE palette Palette PCOPY pcopy Pcopy
  52 syn keyword basicStatement      PEN pen Pen PLAY play Play
  53 syn keyword basicStatement      PMAP pmap Pmap POKE poke Poke
  54 syn keyword basicStatement      PRESET preset Preset PRINT print Print
  55 syn keyword basicStatement      PRINT# print# Print# USING using Using
  56 syn keyword basicStatement      PSET pset Pset PUT put Put
  57 syn keyword basicStatement      RANDOMIZE randomize Randomize READ read Read
  58 syn keyword basicStatement      REDIM redim Redim RESET reset Reset
  59 syn keyword basicStatement      RESTORE restore Restore RESUME resume Resume
  60 syn keyword basicStatement      RETURN return Return RMDIR rmdir Rmdir
  61 syn keyword basicStatement      RSET rset Rset RUN run Run
  62 syn keyword basicStatement      SEEK seek Seek SELECT select Select
  63 syn keyword basicStatement      CASE case Case SHARED shared Shared
  64 syn keyword basicStatement      SHELL shell Shell SLEEP sleep Sleep
  65 syn keyword basicStatement      SOUND sound Sound STATIC static Static
  66 syn keyword basicStatement      STOP stop Stop STRIG strig Strig
  67 syn keyword basicStatement      SUB sub Sub SWAP swap Swap
  68 syn keyword basicStatement      SYSTEM system System TIMER timer Timer
  69 syn keyword basicStatement      TROFF troff Troff TRON tron Tron
  70 syn keyword basicStatement      TYPE type Type UNLOCK unlock Unlock
  71 syn keyword basicStatement      VIEW view View WAIT wait Wait
  72 syn keyword basicStatement      WHILE while While WEND wend Wend
  73 syn keyword basicStatement      WIDTH width Width WINDOW window Window
  74 syn keyword basicStatement      WRITE write Write DATE$ date$ Date$
  75 syn keyword basicStatement      MID$ mid$ Mid$ TIME$ time$ Time$
  76
  77 syn keyword basicFunction       ABS abs Abs ASC asc Asc
  78 syn keyword basicFunction       ATN atn Atn CDBL cdbl Cdbl
  79 syn keyword basicFunction       CINT cint Cint CLNG clng Clng
  80 syn keyword basicFunction       COS cos Cos CSNG csng Csng
  81 syn keyword basicFunction       CSRLIN csrlin Csrlin CVD cvd Cvd
  82 syn keyword basicFunction       CVDMBF cvdmbf Cvdmbf CVI cvi Cvi
  83 syn keyword basicFunction       CVL cvl Cvl CVS cvs Cvs
  84 syn keyword basicFunction       CVSMBF cvsmbf Cvsmbf EOF eof Eof
  85 syn keyword basicFunction       ERDEV erdev Erdev ERL erl Erl
  86 syn keyword basicFunction       ERR err Err EXP exp Exp
  87 syn keyword basicFunction       FILEATTR fileattr Fileattr FIX fix Fix
  88 syn keyword basicFunction       FRE fre Fre FREEFILE freefile Freefile
  89 syn keyword basicFunction       INP inp Inp INSTR instr Instr
  90 syn keyword basicFunction       INT int Int LBOUND lbound Lbound
  91 syn keyword basicFunction       LEN len Len LOC loc Loc
  92 syn keyword basicFunction       LOF lof Lof LOG log Log
  93 syn keyword basicFunction       LPOS lpos Lpos PEEK peek Peek
  94 syn keyword basicFunction       PEN pen Pen POINT point Point
  95 syn keyword basicFunction       POS pos Pos RND rnd Rnd
  96 syn keyword basicFunction       SADD sadd Sadd SCREEN screen Screen
  97 syn keyword basicFunction       SEEK seek Seek SETMEM setmem Setmem
  98 syn keyword basicFunction       SGN sgn Sgn SIN sin Sin
  99 syn keyword basicFunction       SPC spc Spc SQR sqr Sqr
 100 syn keyword basicFunction       STICK stick Stick STRIG strig Strig
 101 syn keyword basicFunction       TAB tab Tab TAN tan Tan
 102 syn keyword basicFunction       UBOUND ubound Ubound VAL val Val
 103 syn keyword basicFunction       VALPTR valptr Valptr VALSEG valseg Valseg
 104 syn keyword basicFunction       VARPTR varptr Varptr VARSEG varseg Varseg
 105 syn keyword basicFunction       CHR$ Chr$ chr$ COMMAND$ command$ Command$
 106 syn keyword basicFunction       DATE$ date$ Date$ ENVIRON$ environ$ Environ$
 107 syn keyword basicFunction       ERDEV$ erdev$ Erdev$ HEX$ hex$ Hex$
 108 syn keyword basicFunction       INKEY$ inkey$ Inkey$ INPUT$ input$ Input$
 109 syn keyword basicFunction       IOCTL$ ioctl$ Ioctl$ LCASES$ lcases$ Lcases$
 110 syn keyword basicFunction       LAFT$ laft$ Laft$ LTRIM$ ltrim$ Ltrim$
 111 syn keyword basicFunction       MID$ mid$ Mid$ MKDMBF$ mkdmbf$ Mkdmbf$
 112 syn keyword basicFunction       MKD$ mkd$ Mkd$ MKI$ mki$ Mki$
 113 syn keyword basicFunction       MKL$ mkl$ Mkl$ MKSMBF$ mksmbf$ Mksmbf$
 114 syn keyword basicFunction       MKS$ mks$ Mks$ OCT$ oct$ Oct$
 115 syn keyword basicFunction       RIGHT$ right$ Right$ RTRIM$ rtrim$ Rtrim$
 116 syn keyword basicFunction       SPACE$ space$ Space$ STR$ str$ Str$
 117 syn keyword basicFunction       STRING$ string$ String$ TIME$ time$ Time$
 118 syn keyword basicFunction       UCASE$ ucase$ Ucase$ VARPTR$ varptr$ Varptr$
 119 syn keyword basicTodo contained TODO
 120
 121 "integer number, or floating point number without a dot.
 122 syn match  basicNumber          "\<\d\+\>"
 123 "floating point number, with dot
 124 syn match  basicNumber          "\<\d\+\.\d*\>"
 125 "floating point number, starting with a dot
 126 syn match  basicNumber          "\.\d\+\>"
 127
 128 " String and Character contstants
 129 syn match   basicSpecial contained "\\\d\d\d\|\\."
 130 syn region  basicString           start=+"+  skip=+\\\\\|\\"+  end=+"+  contains=basicSpecial
 131
 132 syn region  basicComment        start="REM" end="$" contains=basicTodo
 133 syn region  basicComment        start="^[ \t]*'" end="$" contains=basicTodo
 134 syn region  basicLineNumber     start="^\d" end="\s"
 135 syn match   basicTypeSpecifier  "[a-zA-Z0-9][\$%&!#]"ms=s+1
 136 " Used with OPEN statement
 137 syn match   basicFilenumber  "#\d\+"
 138 "syn sync ccomment basicComment
 139 " syn match   basicMathsOperator "[<>+\*^/\\=-]"
 140 syn match   basicMathsOperator   "-\|=\|[:<>+\*^/\\]\|AND\|OR"
 141
 142 " Define the default highlighting.
 143 " For version 5.7 and earlier: only when not done already
 144 " For version 5.8 and later: only when an item doesn't have highlighting yet
 145 if version >= 508 || !exists("did_basic_syntax_inits")
 146   if version < 508
 147     let did_basic_syntax_inits = 1
 148     command -nargs=+ HiLink hi link <args>
 149   else
 150     command -nargs=+ HiLink hi def link <args>
 151   endif
 152
 153   HiLink basicLabel             Label
 154   HiLink basicConditional       Conditional
 155   HiLink basicRepeat            Repeat
 156   HiLink basicLineNumber        Comment
 157   HiLink basicNumber            Number
 158   HiLink basicError             Error
 159   HiLink basicStatement Statement
 160   HiLink basicString            String
 161   HiLink basicComment           Comment
 162   HiLink basicSpecial           Special
 163   HiLink basicTodo              Todo
 164   HiLink basicFunction          Identifier
 165   HiLink basicTypeSpecifier Type
 166   HiLink basicFilenumber basicTypeSpecifier
 167   "hi basicMathsOperator term=bold cterm=bold gui=bold
 168
 169   delcommand HiLink
 170 endif
 171
 172 let b:current_syntax = "basic"
 173
 174 " vim: ts=8