Server IP : 85.214.239.14 / Your IP : 3.16.212.203 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/3/root/proc/2/cwd/usr/share/vim/vim90/syntax/ |
Upload File : |
" 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