runtime/syntax/freebasic.vim

   1 " Vim syntax file
   2 " Language:    FreeBasic
   3 " Maintainer:  Mark Manning <markem@airmail.net>
   4 " Updated:     10/22/2006
   5 "
   6 " Description:
   7 "
   8 "       Based originally on the work done by Allan Kelly <Allan.Kelly@ed.ac.uk>
   9 "       Updated by Mark Manning <markem@airmail.net>
  10 "       Applied FreeBasic support to the already excellent support
  11 "       for standard basic syntax (like QB).
  12 "
  13 "       First version based on Micro$soft QBASIC circa
  14 "       1989, as documented in 'Learn BASIC Now' by
  15 "       Halvorson&Rygmyr. Microsoft Press 1989.  This syntax file
  16 "       not a complete implementation yet.  Send suggestions to
  17 "       the maintainer.
  18 "
  19 "       Quit when a (custom) syntax file was already loaded (Taken from c.vim)
  20 "
  21 if exists("b:current_syntax")
  22   finish
  23 endif
  24 "
  25 "       Be sure to turn on the "case ignore" since current versions
  26 "       of freebasic support both upper as well as lowercase
  27 "       letters. - MEM 10/1/2006
  28 "
  29 syn case ignore
  30 "
  31 "       This list of keywords is taken directly from the FreeBasic
  32 "       user's guide as presented by the FreeBasic online site.
  33 "
  34 syn keyword     freebasicArrays                 ERASE LBOUND REDIM PRESERVE UBOUND
  35
  36 syn keyword     freebasicBitManipulation        BIT BITRESET BITSET HIBYTE HIWORD LOBYTE LOWORD SHL SHR
  37
  38 syn keyword     freebasicCompilerSwitches       DEFBYTE DEFDBL DEFINT DEFLNG DEFLNGINT DEFSHORT DEFSNG DEFSTR
  39 syn keyword     freebasicCompilerSwitches       DEFUBYTE DEFUINT DEFULNGINT DEFUSHORT
  40 syn match       freebasicCompilerSwitches       "\<option\s+\(BASE\|BYVAL\|DYNAMIC\|ESCAPE\|EXPLICIT\|NOKEYWORD\)\>"
  41 syn match       freebasicCompilerSwitches       "\<option\s+\(PRIVATE\|STATIC\)\>"
  42
  43 syn region      freebasicConditional            start="\son\s+" skip=".*" end="gosub"
  44 syn region      freebasicConditional            start="\son\s+" skip=".*" end="goto"
  45 syn match       freebasicConditional            "\<select\s+case\>"
  46 syn keyword     freebasicConditional            if iif then case else elseif with
  47
  48 syn match       freebasicConsole                "\<open\s+\(CONS\|ERR\|PIPE\|SCRN\)\>"
  49 syn keyword     freebasicConsole                BEEP CLS CSRLIN LOCATE PRINT POS SPC TAB VIEW WIDTH
  50
  51 syn keyword     freebasicDataTypes              BYTE AS DIM CONST DOUBLE ENUM INTEGER LONG LONGINT SHARED SHORT STRING
  52 syn keyword     freebasicDataTypes              SINGLE TYPE UBYTE UINTEGER ULONGINT UNION UNSIGNED USHORT WSTRING ZSTRING
  53
  54 syn keyword     freebasicDateTime               DATE DATEADD DATEDIFF DATEPART DATESERIAL DATEVALUE DAY HOUR MINUTE
  55 syn keyword     freebasicDateTime               MONTH MONTHNAME NOW SECOND SETDATE SETTIME TIME TIMESERIAL TIMEVALUE
  56 syn keyword     freebasicDateTime               TIMER YEAR WEEKDAY WEEKDAYNAME
  57
  58 syn keyword     freebasicDebug                  ASSERT STOP
  59
  60 syn keyword     freebasicErrorHandling          ERR ERL ERROR LOCAL RESUME
  61 syn match       freebasicErrorHandling          "\<resume\s+next\>"
  62 syn match       freebasicErrorHandling          "\<on\s+error\>"
  63
  64 syn match       freebasicFiles                  "\<get\s+#\>"
  65 syn match       freebasicFiles                  "\<input\s+#\>"
  66 syn match       freebasicFiles                  "\<line\s+input\s+#\>"
  67 syn match       freebasicFiles                  "\<put\s+#\>"
  68 syn keyword     freebasicFiles                  ACCESS APPEND BINARY BLOAD BSAVE CLOSE EOF FREEFILE INPUT LOC
  69 syn keyword     freebasicFiles                  LOCK LOF OPEN OUTPUT RANDOM RESET SEEK UNLOCK WRITE
  70
  71 syn keyword     freebasicFunctions              ALIAS ANY BYREF BYVAL CALL CDECL CONSTRUCTOR DESTRUCTOR
  72 syn keyword     freebasicFunctions              DECLARE FUNCTION LIB OVERLOAD PASCAL STATIC SUB STDCALL
  73 syn keyword     freebasicFunctions              VA_ARG VA_FIRST VA_NEXT
  74
  75 syn match       freebasicGraphics               "\<palette\s+get\>"
  76 syn keyword     freebasicGraphics               ALPHA CIRCLE CLS COLOR CUSTOM DRAW FLIP GET
  77 syn keyword     freebasicGraphics               IMAGECREATE IMAGEDESTROY LINE PAINT PALETTE PCOPY PMAP POINT
  78 syn keyword     freebasicGraphics               PRESET PSET PUT RGB RGBA SCREEN SCREENCOPY SCREENINFO SCREENLIST
  79 syn keyword     freebasicGraphics               SCREENLOCK SCREENPTR SCREENRES SCREENSET SCREENSYNC SCREENUNLOCK
  80 syn keyword     freebasicGraphics               TRANS USING VIEW WINDOW
  81
  82 syn match       freebasicHardware               "\<open\s+com\>"
  83 syn keyword     freebasicHardware               INP OUT WAIT LPT LPOS LPRINT
  84
  85 syn keyword     freebasicLogical                AND EQV IMP OR NOT XOR
  86
  87 syn keyword     freebasicMath                   ABS ACOS ASIN ATAN2 ATN COS EXP FIX INT LOG MOD RANDOMIZE
  88 syn keyword     freebasicMath                   RND SGN SIN SQR TAN
  89
  90 syn keyword     freebasicMemory                 ALLOCATE CALLOCATE CLEAR DEALLOCATE FIELD FRE PEEK POKE REALLOCATE
  91
  92 syn keyword     freebasicMisc                   ASM DATA LET TO READ RESTORE SIZEOF SWAP OFFSETOF
  93
  94 syn keyword     freebasicModularizing           CHAIN COMMON EXPORT EXTERN DYLIBFREE DYLIBLOAD DYLIBSYMBOL
  95 syn keyword     freebasicModularizing           PRIVATE PUBLIC
  96
  97 syn keyword     freebasicMultithreading         MUTEXCREATE MUTEXDESTROY MUTEXLOCK MUTEXUNLOCK THREADCREATE THREADWAIT
  98
  99 syn keyword     freebasicShell                  CHDIR DIR COMMAND ENVIRON EXEC EXEPATH KILL NAME MKDIR RMDIR RUN
 100
 101 syn keyword     freebasicEnviron                SHELL SYSTEM WINDOWTITLE POINTERS
 102
 103 syn keyword     freebasicLoops                  FOR LOOP WHILE WEND DO CONTINUE STEP UNTIL next
 104
 105 syn match       freebasicInclude                "\<#\s*\(inclib\|include\)\>"
 106 syn match       freebasicInclude                "\<\$\s*include\>"
 107
 108 syn keyword     freebasicPointer                PROCPTR PTR SADD STRPTR VARPTR
 109
 110 syn keyword     freebasicPredefined             __DATE__ __FB_DOS__ __FB_LINUX__ __FB_MAIN__ __FB_MIN_VERSION__
 111 syn keyword     freebasicPredefined             __FB_SIGNATURE__ __FB_VERSION__ __FB_WIN32__ __FB_VER_MAJOR__
 112 syn keyword     freebasicPredefined             __FB_VER_MINOR__ __FB_VER_PATCH__ __FILE__ __FUNCTION__
 113 syn keyword     freebasicPredefined             __LINE__ __TIME__
 114
 115 syn match       freebasicPreProcessor           "\<^#\s*\(define\|undef\)\>"
 116 syn match       freebasicPreProcessor           "\<^#\s*\(ifdef\|ifndef\|else\|elseif\|endif\|if\)\>"
 117 syn match       freebasicPreProcessor           "\<#\s*error\>"
 118 syn match       freebasicPreProcessor           "\<#\s*\(print\|dynamic\|static\)\>"
 119 syn keyword     freebasicPreProcessor           DEFINED ONCE
 120
 121 syn keyword     freebasicProgramFlow            END EXIT GOSUB GOTO
 122 syn keyword     freebasicProgramFlow            IS RETURN SCOPE SLEEP
 123
 124 syn keyword     freebasicString                 INSTR LCASE LEFT LEN LSET LTRIM MID RIGHT RSET RTRIM
 125 syn keyword     freebasicString                 SPACE STRING TRIM UCASE ASC BIN CHR CVD CVI CVL CVLONGINT
 126 syn keyword     freebasicString                 CVS CVSHORT FORMAT HEX MKD MKI MKL MKLONGINT MKS MKSHORT
 127 syn keyword     freebasicString                 OCT STR VAL VALLNG VALINT VALUINT VALULNG
 128
 129 syn keyword     freebasicTypeCasting            CAST CBYTE CDBL CINT CLNG CLNGINT CPTR CSHORT CSIGN CSNG
 130 syn keyword     freebasicTypeCasting            CUBYTE CUINT CULNGINT CUNSG CURDIR CUSHORT
 131
 132 syn match       freebasicUserInput              "\<line\s+input\>"
 133 syn keyword     freebasicUserInput              GETJOYSTICK GETKEY GETMOUSE INKEY INPUT MULTIKEY SETMOUSE
 134 "
 135 "       Do the Basic variables names first.  This is because it
 136 "       is the most inclusive of the tests.  Later on we change
 137 "       this so the identifiers are split up into the various
 138 "       types of identifiers like functions, basic commands and
 139 "       such. MEM 9/9/2006
 140 "
 141 syn match       freebasicIdentifier             "\<[a-zA-Z_][a-zA-Z0-9_]*\>"
 142 syn match       freebasicGenericFunction        "\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1
 143 "
 144 "       Function list
 145 "
 146 syn keyword     freebasicTodo           contained TODO
 147 "
 148 "       Catch errors caused by wrong parenthesis
 149 "
 150 syn region      freebasicParen          transparent start='(' end=')' contains=ALLBUT,@freebasicParenGroup
 151 syn match       freebasicParenError     ")"
 152 syn match       freebasicInParen        contained "[{}]"
 153 syn cluster     freebasicParenGroup     contains=freebasicParenError,freebasicSpecial,freebasicTodo,freebasicUserCont,freebasicUserLabel,freebasicBitField
 154 "
 155 "       Integer number, or floating point number without a dot and with "f".
 156 "
 157 syn region      freebasicHex            start="&h" end="\W"
 158 syn region      freebasicHexError       start="&h\x*[g-zG-Z]" end="\W"
 159 syn match       freebasicInteger        "\<\d\+\(u\=l\=\|lu\|f\)\>"
 160 "
 161 "       Floating point number, with dot, optional exponent
 162 "
 163 syn match       freebasicFloat          "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"
 164 "
 165 "       Floating point number, starting with a dot, optional exponent
 166 "
 167 syn match       freebasicFloat          "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
 168 "
 169 "       Floating point number, without dot, with exponent
 170 "
 171 syn match       freebasicFloat          "\<\d\+e[-+]\=\d\+[fl]\=\>"
 172 "
 173 "       Hex number
 174 "
 175 syn case match
 176 syn match       freebasicOctal          "\<0\o*\>"
 177 syn match       freebasicOctalError     "\<0\o*[89]"
 178 "
 179 "       String and Character contstants
 180 "
 181 syn region      freebasicString         start='"' end='"' contains=freebasicSpecial,freebasicTodo
 182 syn region      freebasicString         start="'" end="'" contains=freebasicSpecial,freebasicTodo
 183 "
 184 "       Comments
 185 "
 186 syn match       freebasicSpecial        contained "\\."
 187 syn region      freebasicComment        start="^rem" end="$" contains=freebasicSpecial,freebasicTodo
 188 syn region      freebasicComment        start=":\s*rem" end="$" contains=freebasicSpecial,freebasicTodo
 189 syn region      freebasicComment        start="\s*'" end="$" contains=freebasicSpecial,freebasicTodo
 190 syn region      freebasicComment        start="^'" end="$" contains=freebasicSpecial,freebasicTodo
 191 "
 192 "       Now do the comments and labels
 193 "
 194 syn match       freebasicLabel          "^\d"
 195 syn match       freebasicLabel          "\<^\w+:\>"
 196 syn region      freebasicLineNumber     start="^\d" end="\s"
 197 "
 198 "       Create the clusters
 199 "
 200 syn cluster     freebasicNumber         contains=freebasicHex,freebasicOctal,freebasicInteger,freebasicFloat
 201 syn cluster     freebasicError          contains=freebasicHexError,freebasicOctalError
 202 "
 203 "       Used with OPEN statement
 204 "
 205 syn match       freebasicFilenumber     "#\d\+"
 206 syn match       freebasicMathOperator   "[\+\-\=\|\*\/\>\<\%\()[\]]" contains=freebasicParen
 207 "
 208 "       The default methods for highlighting.  Can be overridden later
 209 "
 210 hi def link freebasicArrays             StorageClass
 211 hi def link freebasicBitManipulation    Operator
 212 hi def link freebasicCompilerSwitches   PreCondit
 213 hi def link freebasicConsole            Special
 214 hi def link freebasicDataTypes          Type
 215 hi def link freebasicDateTime           Type
 216 hi def link freebasicDebug              Special
 217 hi def link freebasicErrorHandling      Special
 218 hi def link freebasicFiles              Special
 219 hi def link freebasicFunctions          Function
 220 hi def link freebasicGraphics           Function
 221 hi def link freebasicHardware           Special
 222 hi def link freebasicLogical            Conditional
 223 hi def link freebasicMath               Function
 224 hi def link freebasicMemory             Function
 225 hi def link freebasicMisc               Special
 226 hi def link freebasicModularizing       Special
 227 hi def link freebasicMultithreading     Special
 228 hi def link freebasicShell              Special
 229 hi def link freebasicEnviron            Special
 230 hi def link freebasicPointer            Special
 231 hi def link freebasicPredefined         PreProc
 232 hi def link freebasicPreProcessor       PreProc
 233 hi def link freebasicProgramFlow        Statement
 234 hi def link freebasicString             String
 235 hi def link freebasicTypeCasting        Type
 236 hi def link freebasicUserInput          Statement
 237 hi def link freebasicComment            Comment
 238 hi def link freebasicConditional        Conditional
 239 hi def link freebasicError              Error
 240 hi def link freebasicIdentifier         Identifier
 241 hi def link freebasicInclude            Include
 242 hi def link freebasicGenericFunction    Function
 243 hi def link freebasicLabel              Label
 244 hi def link freebasicLineNumber         Label
 245 hi def link freebasicMathOperator       Operator
 246 hi def link freebasicNumber             Number
 247 hi def link freebasicSpecial            Special
 248 hi def link freebasicTodo               Todo
 249
 250 let b:current_syntax = "freebasic"
 251
 252 " vim: ts=8