| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 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 |