JezK

Edit File: freebasic.vim

" Vim syntax file " Language: FreeBasic " Maintainer: Mark Manning <markem@airmail.net> " Updated: 10/22/2006 " " Description: " " Based originally on the work done by Allan Kelly <Allan.Kelly@ed.ac.uk> " Updated by Mark Manning <markem@airmail.net> " Applied FreeBasic 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. " " 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 freebasic support both upper as well as lowercase " letters. - MEM 10/1/2006 " syn case ignore " " This list of keywords is taken directly from the FreeBasic " user's guide as presented by the FreeBasic online site. " syn keyword freebasicArrays ERASE LBOUND REDIM PRESERVE UBOUND syn keyword freebasicBitManipulation BIT BITRESET BITSET HIBYTE HIWORD LOBYTE LOWORD SHL SHR syn keyword freebasicCompilerSwitches DEFBYTE DEFDBL DEFINT DEFLNG DEFLNGINT DEFSHORT DEFSNG DEFSTR syn keyword freebasicCompilerSwitches DEFUBYTE DEFUINT DEFULNGINT DEFUSHORT syn match freebasicCompilerSwitches "\<option\s+\(BASE\|BYVAL\|DYNAMIC\|ESCAPE\|EXPLICIT\|NOKEYWORD\)\>" syn match freebasicCompilerSwitches "\<option\s+\(PRIVATE\|STATIC\)\>" syn region freebasicConditional start="\son\s+" skip=".*" end="gosub" syn region freebasicConditional start="\son\s+" skip=".*" end="goto" syn match freebasicConditional "\<select\s+case\>" syn keyword freebasicConditional if iif then case else elseif with syn match freebasicConsole "\<open\s+\(CONS\|ERR\|PIPE\|SCRN\)\>" syn keyword freebasicConsole BEEP CLS CSRLIN LOCATE PRINT POS SPC TAB VIEW WIDTH syn keyword freebasicDataTypes BYTE AS DIM CONST DOUBLE ENUM INTEGER LONG LONGINT SHARED SHORT STRING syn keyword freebasicDataTypes SINGLE TYPE UBYTE UINTEGER ULONGINT UNION UNSIGNED USHORT WSTRING ZSTRING syn keyword freebasicDateTime DATE DATEADD DATEDIFF DATEPART DATESERIAL DATEVALUE DAY HOUR MINUTE syn keyword freebasicDateTime MONTH MONTHNAME NOW SECOND SETDATE SETTIME TIME TIMESERIAL TIMEVALUE syn keyword freebasicDateTime TIMER YEAR WEEKDAY WEEKDAYNAME syn keyword freebasicDebug ASSERT STOP syn keyword freebasicErrorHandling ERR ERL ERROR LOCAL RESUME syn match freebasicErrorHandling "\<resume\s+next\>" syn match freebasicErrorHandling "\<on\s+error\>" syn match freebasicFiles "\<get\s+#\>" syn match freebasicFiles "\<input\s+#\>" syn match freebasicFiles "\<line\s+input\s+#\>" syn match freebasicFiles "\<put\s+#\>" syn keyword freebasicFiles ACCESS APPEND BINARY BLOAD BSAVE CLOSE EOF FREEFILE INPUT LOC syn keyword freebasicFiles LOCK LOF OPEN OUTPUT RANDOM RESET SEEK UNLOCK WRITE syn keyword freebasicFunctions ALIAS ANY BYREF BYVAL CALL CDECL CONSTRUCTOR DESTRUCTOR syn keyword freebasicFunctions DECLARE FUNCTION LIB OVERLOAD PASCAL STATIC SUB STDCALL syn keyword freebasicFunctions VA_ARG VA_FIRST VA_NEXT syn match freebasicGraphics "\<palette\s+get\>" syn keyword freebasicGraphics ALPHA CIRCLE CLS COLOR CUSTOM DRAW FLIP GET syn keyword freebasicGraphics IMAGECREATE IMAGEDESTROY LINE PAINT PALETTE PCOPY PMAP POINT syn keyword freebasicGraphics PRESET PSET PUT RGB RGBA SCREEN SCREENCOPY SCREENINFO SCREENLIST syn keyword freebasicGraphics SCREENLOCK SCREENPTR SCREENRES SCREENSET SCREENSYNC SCREENUNLOCK syn keyword freebasicGraphics TRANS USING VIEW WINDOW syn match freebasicHardware "\<open\s+com\>" syn keyword freebasicHardware INP OUT WAIT LPT LPOS LPRINT syn keyword freebasicLogical AND EQV IMP OR NOT XOR syn keyword freebasicMath ABS ACOS ASIN ATAN2 ATN COS EXP FIX INT LOG MOD RANDOMIZE syn keyword freebasicMath RND SGN SIN SQR TAN syn keyword freebasicMemory ALLOCATE CALLOCATE CLEAR DEALLOCATE FIELD FRE PEEK POKE REALLOCATE syn keyword freebasicMisc ASM DATA LET TO READ RESTORE SIZEOF SWAP OFFSETOF syn keyword freebasicModularizing CHAIN COMMON EXPORT EXTERN DYLIBFREE DYLIBLOAD DYLIBSYMBOL syn keyword freebasicModularizing PRIVATE PUBLIC syn keyword freebasicMultithreading MUTEXCREATE MUTEXDESTROY MUTEXLOCK MUTEXUNLOCK THREADCREATE THREADWAIT syn keyword freebasicShell CHDIR DIR COMMAND ENVIRON EXEC EXEPATH KILL NAME MKDIR RMDIR RUN syn keyword freebasicEnviron SHELL SYSTEM WINDOWTITLE POINTERS syn keyword freebasicLoops FOR LOOP WHILE WEND DO CONTINUE STEP UNTIL next syn match freebasicInclude "\<#\s*\(inclib\|include\)\>" syn match freebasicInclude "\<\$\s*include\>" syn keyword freebasicPointer PROCPTR PTR SADD STRPTR VARPTR syn keyword freebasicPredefined __DATE__ __FB_DOS__ __FB_LINUX__ __FB_MAIN__ __FB_MIN_VERSION__ syn keyword freebasicPredefined __FB_SIGNATURE__ __FB_VERSION__ __FB_WIN32__ __FB_VER_MAJOR__ syn keyword freebasicPredefined __FB_VER_MINOR__ __FB_VER_PATCH__ __FILE__ __FUNCTION__ syn keyword freebasicPredefined __LINE__ __TIME__ syn match freebasicPreProcessor "\<^#\s*\(define\|undef\)\>" syn match freebasicPreProcessor "\<^#\s*\(ifdef\|ifndef\|else\|elseif\|endif\|if\)\>" syn match freebasicPreProcessor "\<#\s*error\>" syn match freebasicPreProcessor "\<#\s*\(print\|dynamic\|static\)\>" syn keyword freebasicPreProcessor DEFINED ONCE syn keyword freebasicProgramFlow END EXIT GOSUB GOTO syn keyword freebasicProgramFlow IS RETURN SCOPE SLEEP syn keyword freebasicString INSTR LCASE LEFT LEN LSET LTRIM MID RIGHT RSET RTRIM syn keyword freebasicString SPACE STRING TRIM UCASE ASC BIN CHR CVD CVI CVL CVLONGINT syn keyword freebasicString CVS CVSHORT FORMAT HEX MKD MKI MKL MKLONGINT MKS MKSHORT syn keyword freebasicString OCT STR VAL VALLNG VALINT VALUINT VALULNG syn keyword freebasicTypeCasting CAST CBYTE CDBL CINT CLNG CLNGINT CPTR CSHORT CSIGN CSNG syn keyword freebasicTypeCasting CUBYTE CUINT CULNGINT CUNSG CURDIR CUSHORT syn match freebasicUserInput "\<line\s+input\>" syn keyword freebasicUserInput GETJOYSTICK GETKEY GETMOUSE INKEY INPUT MULTIKEY SETMOUSE " " 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 freebasicIdentifier "\<[a-zA-Z_][a-zA-Z0-9_]*\>" syn match freebasicGenericFunction "\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1 " " Function list " syn keyword freebasicTodo contained TODO " " Catch errors caused by wrong parenthesis " syn region freebasicParen transparent start='(' end=')' contains=ALLBUT,@freebasicParenGroup syn match freebasicParenError ")" syn match freebasicInParen contained "[{}]" syn cluster freebasicParenGroup contains=freebasicParenError,freebasicSpecial,freebasicTodo,freebasicUserCont,freebasicUserLabel,freebasicBitField " " Integer number, or floating point number without a dot and with "f". " syn region freebasicHex start="&h" end="\W" syn region freebasicHexError start="&h\x*[g-zG-Z]" end="\W" syn match freebasicInteger "\<\d\+\(u\=l\=\|lu\|f\)\>" " " Floating point number, with dot, optional exponent " syn match freebasicFloat "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>" " " Floating point number, starting with a dot, optional exponent " syn match freebasicFloat "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>" " " Floating point number, without dot, with exponent " syn match freebasicFloat "\<\d\+e[-+]\=\d\+[fl]\=\>" " " Hex number " syn case match syn match freebasicOctal "\<0\o*\>" syn match freebasicOctalError "\<0\o*[89]" " " String and Character contstants " syn region freebasicString start='"' end='"' contains=freebasicSpecial,freebasicTodo syn region freebasicString start="'" end="'" contains=freebasicSpecial,freebasicTodo " " Comments " syn match freebasicSpecial contained "\\." syn region freebasicComment start="^rem" end="$" contains=freebasicSpecial,freebasicTodo syn region freebasicComment start=":\s*rem" end="$" contains=freebasicSpecial,freebasicTodo syn region freebasicComment start="\s*'" end="$" contains=freebasicSpecial,freebasicTodo syn region freebasicComment start="^'" end="$" contains=freebasicSpecial,freebasicTodo " " Now do the comments and labels " syn match freebasicLabel "^\d" syn match freebasicLabel "\<^\w+:\>" syn region freebasicLineNumber start="^\d" end="\s" " " Create the clusters " syn cluster freebasicNumber contains=freebasicHex,freebasicOctal,freebasicInteger,freebasicFloat syn cluster freebasicError contains=freebasicHexError,freebasicOctalError " " Used with OPEN statement " syn match freebasicFilenumber "#\d\+" syn match freebasicMathOperator "[\+\-\=\|\*\/\>\<\%\()[\]]" contains=freebasicParen " " The default methods for highlighting. Can be overridden later " hi def link freebasicArrays StorageClass hi def link freebasicBitManipulation Operator hi def link freebasicCompilerSwitches PreCondit hi def link freebasicConsole Special hi def link freebasicDataTypes Type hi def link freebasicDateTime Type hi def link freebasicDebug Special hi def link freebasicErrorHandling Special hi def link freebasicFiles Special hi def link freebasicFunctions Function hi def link freebasicGraphics Function hi def link freebasicHardware Special hi def link freebasicLogical Conditional hi def link freebasicMath Function hi def link freebasicMemory Function hi def link freebasicMisc Special hi def link freebasicModularizing Special hi def link freebasicMultithreading Special hi def link freebasicShell Special hi def link freebasicEnviron Special hi def link freebasicPointer Special hi def link freebasicPredefined PreProc hi def link freebasicPreProcessor PreProc hi def link freebasicProgramFlow Statement hi def link freebasicString String hi def link freebasicTypeCasting Type hi def link freebasicUserInput Statement hi def link freebasicComment Comment hi def link freebasicConditional Conditional hi def link freebasicError Error hi def link freebasicIdentifier Identifier hi def link freebasicInclude Include hi def link freebasicGenericFunction Function hi def link freebasicLabel Label hi def link freebasicLineNumber Label hi def link freebasicMathOperator Operator hi def link freebasicNumber Number hi def link freebasicSpecial Special hi def link freebasicTodo Todo let b:current_syntax = "freebasic" " vim: ts=8