| " Vim syntax file |
| " Language: FreeBASIC |
| " Maintainer: Doug Kearns <dougkearns@gmail.com> |
| " Previous Maintainer: Mark Manning <markem@sim1.us> |
| " Last Change: 2022 Jun 26 |
| " |
| " Description: |
| " |
| " Based originally on the work done by Allan Kelly <Allan.Kelly@ed.ac.uk> |
| " Updated by Mark Manning <markem@sim1.us> |
| " 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. |
| " |
| " TODO: split this into separate dialect-based files, possibly with a common base |
| " |
| " Quit when a (custom) syntax file was already loaded (Taken from c.vim) |
| " |
| if exists("b:current_syntax") |
| finish |
| endif |
| " |
| " Dialect detection |
| " |
| let s:lang = freebasic#GetDialect() |
| " |
| " Whitespace Errors |
| " |
| if exists("freebasic_space_errors") |
| if !exists("freebasic_no_trail_space_error") |
| syn match freebasicSpaceError display excludenl "\s\+$" |
| endif |
| if !exists("freebasic_no_tab_space_error") |
| syn match freebasicSpaceError display " \+\t"me=e-1 |
| endif |
| 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 |
| " |
| " 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 |
| " |
| if s:lang =~# '\<\%(qb\|fblite\)\>' |
| syn iskeyword @,48-57,_,192-255,. |
| syn match freebasicIdentifier "\<\h\%(\w\|\.\)*\>" |
| syn match freebasicGenericFunction "\<\h\%(\w\|\.\)*\>\ze\s*(" |
| else |
| syn iskeyword @,48-57,_,192-255 |
| syn match freebasicIdentifier "\<\h\w*\>" |
| syn match freebasicGenericFunction "\<\h\w*\>\ze\s*(" |
| endif |
| " |
| " 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 PRESERVE REDIM UBOUND |
| |
| " array.bi |
| syn keyword freebasicArrays ARRAYLEN ARRAYSIZE |
| if s:lang == "fb" |
| syn keyword freebasicArrays ArrayConstDescriptorPtr ArrayDescriptorPtr FBARRAY |
| endif |
| |
| if s:lang == "qb" |
| syn keyword freebasicAsm __ASM |
| syn match freebasicAsm "\<end\s\+__asm\>" |
| else |
| syn keyword freebasicAsm ASM |
| syn match freebasicAsm "\<end\s\+asm\>" |
| endif |
| |
| if s:lang == "qb" |
| syn keyword freebasicBitManipulation __BIT __BITRESET __BITSET __HIBYTE __HIWORD __LOBYTE __LOWORD |
| else |
| syn keyword freebasicBitManipulation BIT BITRESET BITSET HIBYTE HIWORD LOBYTE LOWORD |
| endif |
| |
| if s:lang != "fb" |
| syn keyword freebasicCompilerSwitches DEFDBL DEFINT DEFLNG DEFSNG DEFSTR |
| endif |
| if s:lang == "qb" |
| syn keyword freebasicCompilerSwitches __DEFBYTE __DEFLONGINT __DEFSHORT __DEFUBYTE __DEFUINT __DEFULONGINT __DEFUSHORT |
| elseif s:lang == "fblite" || s:lang == "deprecated" |
| syn keyword freebasicCompilerSwitches DEFBYTE DEFLONGINT DEFSHORT DEFUBYTE DEFUINT DEFUILONGINT DEFUSHORT |
| endif |
| |
| syn match freebasicCompilerSwitches "\<option\s\+\%(BASE\|BYVAL\|DYNAMIC\|ESCAPE\|EXPLICIT\|GOSUB\|NOGOSUB\)\>" |
| syn match freebasicCompilerSwitches "\<option\s\+\%(NOKEYWORD\|PRIVATE\|STATIC\)\>" |
| |
| syn keyword freebasicData DATA READ RESTORE |
| |
| syn keyword freebasicProgramFlow EXIT GOTO RETURN SLEEP |
| syn match freebasicProgramFlow "\<end\>" |
| if s:lang == "qb" |
| syn keyword freebasicProgramFlow __SLEEP |
| endif |
| if s:lang == "fblite" || s:lang == "qb" |
| syn keyword freebasicProgramFlow GOSUB |
| endif |
| if s:lang == "fb" || s:lang == "deprecated" |
| syn keyword freebasicProgramFlow SCOPE |
| syn match freebasicProgramFlow "\<end\s\+scope\>" |
| endif |
| |
| if s:lang == "fblite" || s:lang == "qb" |
| syn region freebasicConditional matchgroup=freebasicConditional start="\<on\>" end="\<gosub\>" transparent |
| syn region freebasicConditional matchgroup=freebasicConditional start="\<on\>" end="\<goto\>" transparent |
| endif |
| syn keyword freebasicConditional IF THEN ELSE ELSEIF |
| if s:lang == "qb" |
| syn keyword freebasicConditional __IIF __WITH |
| syn match freebasicConditional "\<end\s\+__with\>" |
| else |
| syn keyword freebasicConditional IIF WITH |
| syn match freebasicConditional "\<end\s\+with\>" |
| endif |
| syn match freebasicConditional "\<end\s\+if\>" |
| syn match freebasicConditional "\<select\s\+case\>" |
| syn match freebasicConditional "\<case\>" |
| syn match freebasicConditional "\<case\s\+is\>" |
| syn match freebasicConditional "\<end\s\+select\>" |
| |
| syn keyword freebasicConsole BEEP CLS CSRLIN LOCATE PRINT POS SPC TAB USING VIEW WIDTH |
| syn match freebasicConsole "?" |
| |
| syn keyword freebasicDataTypes SINGLE DOUBLE INTEGER LONG |
| syn match freebasicDataTypes "\<string\>" |
| syn keyword freebasicDataTypes AS DIM CONST ENUM SHARED TYPE |
| syn match freebasicDataTypes "\<end\s\+enum\>" |
| syn match freebasicDataTypes "\<end\s\+type\>" |
| if s:lang == "qb" |
| syn keyword freebasicDataTypes __BOOLEAN __BYTE __LONGINT __SHORT __UBYTE __UINTEGER __ULONG __ULONGINT __UNSIGNED __USHORT __ZSTRING |
| syn match freebasicDataTypes "\<__WSTRING\>" |
| syn keyword freebasicDataTypes __EXPLICIT __EXTENDS __IMPLEMENTS __OBJECT __POINTER __PTR __SIZEOF __TYPEOF |
| syn keyword freebasicDataTypes __UNION |
| syn match freebasicDataTypes "\<end\s\+__union\>" |
| else |
| syn keyword freebasicDataTypes BOOLEAN BYTE LONGINT SHORT UBYTE UINTEGER ULONG ULONGINT UNSIGNED USHORT ZSTRING |
| syn match freebasicDataTypes "\<WSTRING\>" |
| syn keyword freebasicDataTypes EXPLICIT EXTENDS IMPLEMENTS OBJECT POINTER PTR SIZEOF TYPEOF |
| syn keyword freebasicDataTypes UNION |
| syn match freebasicDataTypes "\<end\s\+union\>" |
| endif |
| if s:lang == "fb" |
| syn keyword freebasicDataTypes BASE CLASS THIS VAR |
| endif |
| |
| if s:lang == "qb" |
| syn match freebasicDateTime "\<\%(date\|time\)\$" |
| elseif s:lang == "fblite" || s:lang == "deprecated" |
| syn match freebasicDateTime "\<\%(date\|time\)\>\$\=" |
| else " fb |
| syn keyword freebasicDateTime DATE TIME |
| endif |
| syn keyword freebasicDateTime SETDATE SETTIME |
| |
| " datetime.bi |
| syn keyword freebasicDateTime DATEADD DATEDIFF DATEPART DATESERIAL DATEVALUE DAY HOUR ISDATE MINUTE |
| syn keyword freebasicDateTime MONTH MONTHNAME NOW SECOND TIMESERIAL TIMEVALUE |
| syn keyword freebasicDateTime TIMER YEAR WEEKDAY WEEKDAYNAME |
| |
| syn keyword freebasicDebug STOP |
| if s:lang == "qb" |
| syn keyword freebasicDebug __ASSERT __ASSERTWARN |
| else |
| syn keyword freebasicDebug ASSERT ASSERTWARN |
| endif |
| |
| syn keyword freebasicErrorHandling ERR ERL ERROR |
| if s:lang == "qb" |
| syn keyword freebasicErrorHandling __ERFN __ERMN |
| syn match freebasicErrorHandling "\<on\s\+error\>" |
| else |
| syn keyword freebasicErrorHandling ERFN ERMN |
| syn match freebasicErrorHandling "\<on\s\+\%(local\s\+\)\=error\>" |
| endif |
| if s:lang != "fb" |
| syn match freebasicErrorHandling "\<resume\%(\s\+next\)\=\>" |
| endif |
| |
| 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 CLOSE EOF FREEFILE INPUT LOC |
| syn keyword freebasicFiles LOCK LOF OUTPUT RANDOM RESET SEEK UNLOCK WRITE |
| syn match freebasicFiles "\<open\>" |
| if s:lang == "qb" |
| syn keyword freebasicFiles __ENCODING |
| else |
| syn keyword freebasicFiles ENCODING WINPUT |
| syn match freebasicFiles "\<open\s\+\%(cons\|err\|pipe\|scrn\)\>" |
| endif |
| |
| " file.bi |
| syn keyword freebasicFiles FILEATTR FILECOPY FILEDATETIME FILEEXISTS FILEFLUSH FILELEN FILESETEOF |
| |
| syn keyword freebasicFunctions ALIAS BYREF BYVAL CDECL DECLARE LIB NAKED PASCAL STATIC STDCALL |
| syn match freebasicFunctions "\<option\ze\s*(" |
| |
| if s:lang == "qb" |
| syn keyword freebasicFunctions __CVA_ARG __CVA_COPY __CVA_END __CVA_LIST __CVA_START |
| syn keyword freebasicFunctions __VA_ARG __VA_FIRST __VA_NEXT |
| else |
| syn keyword freebasicFunctions CVA_ARG CVA_COPY CVA_END CVA_LIST CVA_START |
| syn keyword freebasicFunctions VA_ARG VA_FIRST VA_NEXT |
| syn keyword freebasicFunctions ANY OVERLOAD |
| endif |
| |
| syn keyword freebasicFunctions FUNCTION SUB |
| syn match freebasicFunctions "\<end\s\+function\>" |
| syn match freebasicFunctions "\<end\s\+sub\>" |
| |
| if s:lang == "fb" |
| syn keyword freebasicFunctions ABSTRACT OVERRIDE VIRTUAL __THISCALL |
| syn keyword freebasicFunctions CONSTRUCTOR DESTRUCTOR OPERATOR PROPERTY |
| syn match freebasicFunctions "\<end\s\+constructor\>" |
| syn match freebasicFunctions "\<end\s\+destructor\>" |
| syn match freebasicFunctions "\<end\s\+operator\>" |
| syn match freebasicFunctions "\<end\s\+property\>" |
| else |
| syn keyword freebasicFunctions CALL |
| endif |
| |
| syn match freebasicGraphics "\<palette\s\+get\>" |
| syn keyword freebasicGraphics ADD ALPHA BLOAD BSAVE CIRCLE CLS COLOR DRAW GET |
| syn keyword freebasicGraphics LINE PAINT PALETTE PCOPY PMAP POINT |
| syn keyword freebasicGraphics PRESET PSET PUT SCREEN |
| syn keyword freebasicGraphics TRANS WINDOW |
| if s:lang == "qb" |
| syn keyword freebasicGraphics __FLIP __IMAGECONVERTROW __IMAGECREATE __IMAGEDESTROY __IMAGEINFO __POINTCOORD |
| syn keyword freebasicGraphics __RGB __RGBA __SCREENCOPY __SCREENCONTROL __SCREENEVENT __SCREENGLPROC __SCREENINFO |
| syn keyword freebasicGraphics __SCREENLIST __SCREENLOCK __SCREENPTR __SCREENRES __SCREENSET __SCREENSYNC |
| syn keyword freebasicGraphics __SCREENUNLOCK __WINDOWTITLE |
| else |
| syn keyword freebasicGraphics CUSTOM |
| syn keyword freebasicGraphics FLIP IMAGECONVERTROW IMAGECREATE IMAGEDESTROY IMAGEINFO POINTCOORD |
| syn keyword freebasicGraphics RGB RGBA SCREENCOPY SCREENCONTROL SCREENEVENT SCREENGLPROC SCREENINFO |
| syn keyword freebasicGraphics SCREENLIST SCREENLOCK SCREENPTR SCREENRES SCREENSET SCREENSYNC |
| syn keyword freebasicGraphics SCREENUNLOCK WINDOWTITLE |
| endif |
| |
| if s:lang != "qb" |
| syn match freebasicHardware "\<open\s\+\%(com\|lpt\)\>" |
| endif |
| syn keyword freebasicHardware INP OUT WAIT LPOS LPRINT |
| |
| syn keyword freebasicMath ABS ATN COS EXP FIX FRAC INT LOG MOD RANDOMIZE RND SGN SIN SQR TAN |
| |
| if s:lang == "qb" |
| syn keyword freebasicMath __ACOS __ASIN __ATAN2 |
| else |
| syn keyword freebasicMath ACOS ASIN ATAN2 |
| endif |
| |
| if s:lang == "qb" |
| syn keyword freebasicMemory __ALLOCATE __CALLOCATE __DEALLOCATE __REALLOCATE |
| else |
| syn keyword freebasicMemory ALLOCATE CALLOCATE DEALLOCATE REALLOCATE |
| syn keyword freebasicMemory PEEK POKE CLEAR FB_MEMCOPY FB_MEMCOPYCLEAR FB_MEMMOVE SWAP SADD |
| syn keyword freebasicMemory FIELD FRE |
| endif |
| |
| syn keyword freebasicMisc LET TO |
| if s:lang == "qb" |
| syn keyword freebasicMisc __OFFSETOF |
| else |
| syn keyword freebasicMisc OFFSETOF |
| endif |
| |
| syn keyword freebasicModularizing CHAIN COMMON |
| if s:lang == "fb" |
| syn keyword freebasicModularizing EXTERN |
| syn match freebasicModularizing "\<end\s\+extern\>" |
| syn keyword freebasicModularizing PROTECTED |
| endif |
| if s:lang == "qb" |
| syn keyword freebasicModularizing __EXPORT __IMPORT __DYLIBFREE __DYLIBLOAD __DYLIBSYMBOL |
| else |
| syn keyword freebasicModularizing EXPORT IMPORT DYLIBFREE DYLIBLOAD DYLIBSYMBOL |
| syn keyword freebasicModularizing PRIVATE PUBLIC |
| syn keyword freebasicModularizing NAMESPACE |
| syn match freebasicModularizing "\<end\s\+namespace\>" |
| endif |
| |
| if s:lang != "qb" |
| syn keyword freebasicMultithreading MUTEXCREATE MUTEXDESTROY MUTEXLOCK MUTEXUNLOCK THREADCREATE THREADWAIT |
| syn keyword freebasicMultithreading CONDBROADCAST CONDCREATE CONDDESTROY CONDSIGNAL CONDWAIT |
| syn keyword freebasicMultithreading THREADCALL THREADDETACH THREADSELF |
| endif |
| |
| syn keyword freebasicShell CHDIR KILL NAME MKDIR RMDIR RUN SETENVIRON |
| if s:lang == "qb" |
| syn keyword freebasicShell __CURDIR __DIR __EXEC __EXEPATH |
| syn match freebasicString "\<\%(command\|environ\)\$" |
| else |
| " fbio.bi |
| syn keyword freebasicShell ISREDIRECTED |
| syn keyword freebasicShell CURDIR DIR EXEC EXEPATH |
| syn match freebasicString "\<\%(command\|environ\)\>\$\=" |
| endif |
| |
| syn keyword freebasicEnviron SHELL SYSTEM |
| |
| syn keyword freebasicLoops FOR LOOP WHILE WEND DO STEP UNTIL NEXT |
| if s:lang == "qb" |
| syn keyword freebasicLoops __CONTINUE |
| else |
| syn keyword freebasicLoops CONTINUE |
| endif |
| " |
| " File numbers |
| " |
| syn match freebasicFilenumber "#\d\+" |
| syn match freebasicFilenumber "#\a[[:alpha:].]*[%&!#]\=" |
| |
| syn match freebasicMetacommand "$\s*\%(dynamic\|static\)" |
| syn match freebasicMetacommand "$\s*include\s*\%(once\)\=\s*:\s*'[^']\+'" |
| syn match freebasicMetacommand '$\s*include\s*\%(once\)\=\s*:\s*"[^"]\+"' |
| syn match freebasicMetacommand '$\s*lang\s*:\s*"[^"]\+"' |
| " |
| " Intrinsic defines |
| " |
| syn keyword freebasicPredefined __DATE__ __DATE_ISO__ |
| syn keyword freebasicPredefined __FB_64BIT__ __FB_ARGC__ __FB_ARG_COUNT__ __FB_ARG_EXTRACT__ __FB_ARG_LEFTOF__ |
| syn keyword freebasicPredefined __FB_ARG_RIGHTOF__ __FB_ARGV__ __FB_ARM__ __FB_ASM__ __FB_BACKEND__ |
| syn keyword freebasicPredefined __FB_BIGENDIAN__ __FB_BUILD_DATE__ __FB_BUILD_DATE_ISO__ __FB_BUILD_SHA1__ |
| syn keyword freebasicPredefined __FB_CYGWIN__ __FB_DARWIN__ __FB_DEBUG__ __FB_DOS__ __FB_ERR__ __FB_EVAL__ |
| syn keyword freebasicPredefined __FB_FPMODE__ __FB_FPU__ __FB_FREEBSD__ __FB_GCC__ __FB_GUI__ __FB_JOIN__ |
| syn keyword freebasicPredefined __FB_LANG__ __FB_LINUX__ __FB_MAIN__ __FB_MIN_VERSION__ __FB_MT__ __FB_NETBSD__ |
| syn keyword freebasicPredefined __FB_OPENBSD__ __FB_OPTIMIZE__ __FB_OPTION_BYVAL__ __FB_OPTION_DYNAMIC__ |
| syn keyword freebasicPredefined __FB_OPTION_ESCAPE__ __FB_OPTION_EXPLICIT__ __FB_OPTION_GOSUB__ |
| syn keyword freebasicPredefined __FB_OPTION_PRIVATE__ __FB_OUT_DLL__ __FB_OUT_EXE__ __FB_OUT_LIB__ __FB_OUT_OBJ__ |
| syn keyword freebasicPredefined __FB_PCOS__ __FB_PPC__ __FB_QUOTE__ __FB_SIGNATURE__ __FB_SSE__ __FB_UNIQUEID__ |
| syn keyword freebasicPredefined __FB_UNIQUEID_POP__ __FB_UNIQUEID_PUSH__ __FB_UNIX__ __FB_UNQUOTE__ |
| syn keyword freebasicPredefined __FB_VECTORIZE__ __FB_VER_MAJOR__ __FB_VER_MINOR__ __FB_VER_PATCH__ __FB_VERSION__ |
| syn keyword freebasicPredefined __FB_WIN32__ __FB_X86__ __FB_XBOX__ |
| syn keyword freebasicPredefined __FILE__ __FILE_NQ__ __FUNCTION__ __FUNCTION_NQ__ |
| syn keyword freebasicPredefined __LINE__ __PATH__ __TIME__ |
| " |
| " Preprocessor directives |
| " |
| syn match freebasicInclude "#\s*\%(inclib\|include\%(\s\+once\)\=\|libpath\)\>" |
| |
| syn match freebasicPreProcessor "#\s*assert\>" |
| syn match freebasicPreProcessor "#\s*cmdline\>" |
| syn match freebasicPreProcessor "#\s*\%(define\|undef\)\>" |
| syn match freebasicPreProcessor "#\s*\%(if\|ifdef\|ifndef\|else\|elseif\|endif\)\>" |
| syn match freebasicPreProcessor "#\s*\%(macro\|endmacro\)\>" |
| syn match freebasicPreProcessor "#\s*error\>" |
| syn match freebasicPreProcessor "#\s*lang\>" |
| syn match freebasicPreProcessor "#\s*line\>" |
| syn match freebasicPreProcessor "#\s*pragma\%(\s\+reserve\)\=\>" |
| syn match freebasicPreProcessor "#\s*\%(print\|dynamic\|static\)\>" |
| syn keyword freebasicPreProcessor DEFINED |
| |
| syn keyword freebasicString LEN |
| syn keyword freebasicString ASC |
| " string.bi |
| syn keyword freebasicString FORMAT |
| syn keyword freebasicString VAL |
| syn keyword freebasicString CVD CVI CVL CVS |
| syn keyword freebasicString INSTR |
| syn keyword freebasicString LSET RSET |
| |
| if s:lang == "qb" |
| syn match freebasicString "\<string\$\ze\s*(" |
| syn match freebasicString "\<__wstring\ze\s*(" |
| syn match freebasicString "\<space\$" |
| syn keyword freebasicString __WSPACE |
| syn match freebasicString "\<chr\$" |
| syn keyword freebasicString __WCHR |
| syn keyword freebasicString __WBIN __WHEX __WOCT __WSTR |
| syn match freebasicString "\<\%(bin\|hex\|oct\|str\)\$" |
| syn keyword freebasicString __VALLNG __VALINT __VALUINT __VALULNG |
| syn match freebasicString "\<\%(mkd\|mki\|mkl\|mks\)\$" |
| syn keyword freebasicString __MKLONGINT __MKSHORT |
| syn keyword freebasicString __CVLONGINT __CVSHORT |
| syn match freebasicString "\<\%(left\|mid\|right\|lcase\|ucase\|ltrim\|rtrim\)\$" |
| syn keyword freebasicString __TRIM |
| syn keyword freebasicString __INSTRREV |
| else |
| syn match freebasicString "\<string\$\=\ze\s*(" |
| syn match freebasicString "\<wstring\ze\s*(" |
| syn match freebasicString "\<space\>\$\=" |
| syn keyword freebasicString WSPACE |
| syn match freebasicString "\<chr\>\$\=" |
| syn keyword freebasicString WCHR |
| syn keyword freebasicString WBIN WHEX WOCT WSTR |
| syn match freebasicString "\<\%(bin\|hex\|oct\|str\)\>\$\=" |
| syn keyword freebasicString VALLNG VALINT VALUINT VALULNG |
| syn match freebasicString "\<\%(mkd\|mki\|mkl\|mks\)\>\$\=" |
| syn match freebasicString "\<\%(mklongint\|mkshort\)\>\$\=" |
| syn keyword freebasicString CVLONGINT CVSHORT |
| syn match freebasicString "\<\%(left\|mid\|right\|lcase\|ucase\|ltrim\|rtrim\)\>\$\=" |
| syn match freebasicString "\<trim\>\$\=" |
| syn keyword freebasicString INSTRREV |
| endif |
| |
| syn keyword freebasicTypeCasting CDBL CINT CLNG CSNG |
| if s:lang == "qb" |
| syn keyword freebasicTypeCasting __CAST __CBOOL __CBYTE __CLNGINT __CPTR __CSHORT __CSIGN __CYBTE __CUINT __CULNG |
| syn keyword freebasicTypeCasting __CULNGINT __CUNSG __CUSHORT |
| else |
| syn keyword freebasicTypeCasting CAST CBOOL CBYTE CLNGINT CPTR CSHORT CSIGN CUBYTE CUINT CULNG CULNGINT CUNSG CUSHORT |
| endif |
| |
| syn match freebasicUserInput "\<line\s\+input\>" |
| syn keyword freebasicUserInput INKEY INPUT |
| if s:lang == "qb" |
| syn keyword freebasicUserInput __GETJOYSTICK __GETKEY __GETMOUSE __MULTIKEY __SETMOUSE STICK STRIG |
| else |
| syn keyword freebasicUserInput GETJOYSTICK GETKEY GETMOUSE MULTIKEY SETMOUSE |
| endif |
| " |
| " Operators |
| " |
| " TODO: make these context sensitive to remove the overlap of common operators |
| " : alpha operators should probably always be highlighted |
| " -- DJK 20/11/19 |
| if s:lang == "qb" |
| syn match freebasicArithmeticOperator "\<\%(MOD\|__SHL\|__SHR\)\>" |
| else |
| syn match freebasicArithmeticOperator "\<\%(MOD\|SHL\|SHR\)\>" |
| endif |
| syn match freebasicBitwiseOperator "\<\%(AND\|EQV\|IMP\|NOT\|OR\|XOR\)\>" " freebaseLogical? |
| if s:lang == "qb" |
| syn match freebasicAssignmentOperator "\<\%(MOD\|AND\|EQV\|IMP\|OR\|XOR\|__SHL\|__SHR\)=\@=" " exclude trailing '=' |
| else |
| syn match freebasicAssignmentOperator "\<\%(MOD\|AND\|EQV\|IMP\|OR\|XOR\|SHL\|SHR\)=\@=" |
| endif |
| syn match freebasicShortcircuitOperator "\<\%(ANDALSO\|ORELSE\)\>" |
| if s:lang == "fb" |
| syn match freebasicMemoryOperator '\<\%(new\|delete\)\>' |
| endif |
| syn keyword freebasicPointerOperator STRPTR VARPTR |
| if s:lang == "qb" |
| syn keyword freebasicPointerOperator __PROCPTR |
| else |
| syn keyword freebasicPointerOperator PROCPTR |
| endif |
| syn match freebasicTypeOperator '\<is\>' |
| syn match freebasicTypeOperator '\.' nextgroup=freebasicIdentifier skipwhite |
| if s:lang == "fb" |
| syn match freebasicTypeOperator '->' nextgroup=freebasicIdentifier skipwhite |
| endif |
| |
| if exists("freebasic_operators") |
| syn match freebasicAssignmentOperator "=>\=\|[-+&/\\*^]=" |
| if s:lang == "qb" |
| syn match freebasicAssignmentOperator "\<\%(MOD\|AND\|EQV\|IMP\|OR\|XOR\|__SHL\|__SHR\)=" " include trailing '=' |
| else |
| syn match freebasicAssignmentOperator "\<\%(MOD\|AND\|EQV\|IMP\|OR\|XOR\|SHL\|SHR\)=" |
| endif |
| syn match freebasicArithmeticOperator "[-+&/\\*^]" |
| " syn match freebasicIndexingOperator "[[\]()]" " FIXME |
| syn match freebasicRelationalOperator "=\|<>\|<=\|<\|>=\|>" |
| syn match freebasicPreprocessorOperator '\%(^\s*\)\@<!\%(##\|#\)\|[$!]"\@=' |
| syn match freebasicPointerOperator '[@*]' |
| syn match freebasicTypeOperator '\.' nextgroup=freebasicIdentifier skipwhite |
| if s:lang == "fb" |
| syn match freebasicTypeOperator '->' nextgroup=freebasicIdentifier skipwhite |
| endif |
| endif |
| |
| syn cluster freebasicOperator contains=freebasic.*Operator |
| " |
| " 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 |
| " |
| syn match freebasicHexError "&h\w*\>" |
| syn match freebasicOctalError "&o\w*\>" |
| syn match freebasicBinaryError "&b\w*\>" |
| syn match freebasicHex "&h\x\+\%([%L&U]\|UL\|LL\|ULL\)\=\>" |
| syn match freebasicOctal "&o\o\+\%([%L&U]\|UL\|LL\|ULL\)\=\>" |
| syn match freebasicBinary "&b[10]\+\%([%L&U]\|UL\|LL\|ULL\)\=\>" |
| syn match freebasicInteger "\<\d\+\%([%L&U]\|UL\|LL\|ULL\)\=\>" |
| " |
| " Floating point |
| " See: https://www.freebasic.net/forum/viewtopic.php?t=20323 |
| " |
| " Floating point number, with dot, optional exponent, optional suffix |
| " |
| syn match freebasicFloat "\<\d\+\.\d*\%([de][-+]\=\d*\)\=[f!#]\=" |
| " |
| " Floating point number, starting with a dot, optional exponent, optional suffix |
| " |
| syn match freebasicFloat "\.\d\+\%([de][-+]\=\d*\)\=[f!#]\=" |
| " |
| " Floating point number, without dot, with optional exponent, optional suffix |
| " |
| syn match freebasicFloat "\<\d\+\%([de][-+]\=\d*\)[f!#]\=" |
| " |
| " Floating point number, without dot, without exponent, with suffix |
| " |
| syn match freebasicFloat "\<\d\+[f!#]" |
| " |
| " Create the clusters |
| " |
| syn cluster freebasicNumber contains=freebasicHex,freebasicOctal,freebasicBinary,freebasicInteger,freebasicFloat |
| syn cluster freebasicNumberError contains=freebasicHexError,freebasicOctalError,freebasicBinaryError |
| " |
| " Booleans |
| " |
| if s:lang != "qb" |
| syn keyword freebasicBoolean TRUE FALSE |
| endif |
| " |
| " |
| " String and escape sequences |
| " |
| syn match freebasicSpecial contained "\\." |
| syn match freebasicSpecial contained "\\\d\{1,3}" |
| syn match freebasicSpecial contained "\\&h\x\{1,2}" |
| syn match freebasicSpecial contained "\\&o\o\{1,3}" |
| syn match freebasicSpecial contained "\\&b[01]\{1,8}" |
| syn match freebasicSpecial contained "\\u\x\{1,4}" |
| syn region freebasicString start='"' end='"' " TODO: Toggle contains on Option Escape in fblite and qb? -- DJK 20/11/19 |
| syn region freebasicString start='!\zs"' end='"' contains=freebasicSpecial |
| syn region freebasicString start='$\zs"' end='"' |
| " |
| " Line labels |
| " |
| if s:lang =~# '\<\%(qb\|fblite\)\>' |
| syn match freebasicLineLabel "^\s*\zs\h\%(\w\|\.\)*\ze\s*:" |
| else |
| syn match freebasicLineLabel "^\s*\zs\h\w*\ze\s*:" |
| endif |
| syn match freebasicLineNumber "^\s*\zs\d\+" |
| " |
| " Line continuations |
| " |
| " syn match freebasicLineContinuation "\<_\>" nextgroup=freebasicComment,freebasicPostLineContinuation skipwhite |
| syn keyword freebasicLineContinuation _ nextgroup=freebasicComment,freebasicPostLineContinuation skipwhite |
| syn match freebasicPostLineContinuation ".*" contained |
| " |
| " |
| " Type suffixes |
| if exists("freebasic_type_suffixes") && s:lang =~# '\<\%(qb\|fblite\)\>' |
| syn match freebasicTypeSuffix "\h\%(\w\|.\)*\zs[$%&!#]" |
| endif |
| " |
| " Comments |
| " |
| syn keyword freebasicTodo TODO FIXME XXX NOTE contained |
| syn region freebasicComment start="\<rem\>" end="$" contains=freebasicTodo,@Spell,freebasicMetacommand |
| syn region freebasicComment start="'" end="$" contains=freebasicTodo,@Spell,freebasicMetacommand |
| syn region freebasicDoubleComment start="''" end="$" contains=freebasicTodo,@Spell |
| |
| if !exists("freebasic_no_comment_fold") |
| syn region freebasicMultilineComment start="/'" end="'/" contains=freebasicTodo,@Spell,freeBasicMultilineComment fold keepend extend |
| syn region freebasicMultilineComment2 start="^\s*'.*\n\%(\s*'\)\@=" end="^\s*'.*\n\%(\s*'\)\@!" contains=freebasicComment,freebasicDoubleComment keepend fold |
| else |
| syn region freebasicMultilineComment start="/'" end="'/" contains=freebasicTodo,@Spell,freeBasicMultilineComment |
| endif |
| |
| syn case match |
| |
| syn sync linebreaks=1 |
| |
| " |
| " The default methods for highlighting. Can be overridden later |
| " |
| hi def link freebasicArrays StorageClass |
| hi def link freebasicAsm Special |
| hi def link freebasicBitManipulation Operator |
| hi def link freebasicBoolean Boolean |
| if s:lang == "fb" |
| hi def link freebasicCompilerSwitches freebasicUnsupportedError |
| else |
| hi def link freebasicCompilerSwitches PreCondit |
| endif |
| hi def link freebasicConsole Special |
| hi def link freebasicData Special |
| hi def link freebasicDataTypes Type |
| hi def link freebasicDateTime Type |
| hi def link freebasicDebug Special |
| hi def link freebasicErrorHandling Special |
| hi def link freebasicFilenumber Special |
| hi def link freebasicFiles Special |
| hi def link freebasicFunctions Function |
| hi def link freebasicGraphics Function |
| hi def link freebasicHardware Special |
| hi def link freebasicLoops Repeat |
| hi def link freebasicMath Function |
| if s:lang == "fb" |
| hi def link freebasicMetacommand freebasicUnsupportedError |
| else |
| hi def link freebasicMetacommand SpecialComment |
| endif |
| 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 freebasicDoubleComment Comment |
| hi def link freebasicMultilineComment 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 freebasicLineContinuation Special |
| hi def link freebasicLineLabel LineNr |
| if s:lang == "fb" |
| hi def link freebasicLineNumber freebasicUnsupportedError |
| else |
| hi def link freebasicLineNumber LineNr |
| endif |
| hi def link freebasicMathOperator Operator |
| |
| hi def link freebasicHex Number |
| hi def link freebasicOctal Number |
| hi def link freebasicBinary Number |
| hi def link freebasicInteger Number |
| hi def link freebasicFloat Float |
| |
| hi def link freebasicHexError Error |
| hi def link freebasicOctalError Error |
| hi def link freebasicBinaryError Error |
| |
| hi def link freebasicAssignmentOperator Operator |
| hi def link freebasicArithmeticOperator Operator |
| hi def link freebasicIndexingOperator Operator |
| hi def link freebasicRelationalOperator Operator |
| hi def link freebasicBitwiseOperator Operator |
| hi def link freebasicShortcircuitOperator Operator |
| hi def link freebasicPreprocessorOperator Operator |
| hi def link freebasicPointerOperator Operator |
| if exists("freebasic_operators") |
| hi def link freebasicTypeOperator Operator |
| endif |
| hi def link freebasicMemoryOperator Operator |
| |
| hi def link freebasicSpaceError Error |
| |
| hi def link freebasicSpecial Special |
| hi def link freebasicTodo Todo |
| |
| hi def link freebasicUnsupported freebasicUnsupportedError |
| hi def link freebasicUnsupportedError Error |
| |
| unlet s:lang |
| |
| let b:current_syntax = "freebasic" |
| |
| " vim: ts=8 tw=132 fdm=marker |