" Vim syntax file" Language:	ibasic" Maintainer:	Mark Manning <markem@airmail.net>" Originator:	Allan Kelly <Allan.Kelly@ed.ac.uk>" Created:	10/1/2006" Updated:	10/21/2006" Description:  A vim file to handle the IBasic file format." Notes:"	Updated by Mark Manning <markem@airmail.net>"	Applied IBasic 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.""	This version is based upon the commands found in IBasic (www.pyxia.com)."	MEM 10/6/2006""	Quit when a (custom) syntax file was already loaded (Taken from c.vim)"if exists("b:current_syntax")  finishendif""	Be sure to turn on the "case ignore" since current versions of basic"	support both upper as well as lowercase letters."syn case ignore"" A bunch of useful BASIC keywords"syn keyword ibasicStatement	beep bload bsave call absolute chain chdir circlesyn keyword ibasicStatement	clear close cls color com common const datasyn keyword ibasicStatement	loop draw end environ erase error exit fieldsyn keyword ibasicStatement	files function get gosub gotosyn keyword ibasicStatement	input input# ioctl key kill let line locatesyn keyword ibasicStatement	lock unlock lprint using lset mkdir namesyn keyword ibasicStatement	on error open option base out paint palette pcopysyn keyword ibasicStatement	pen play pmap poke preset print print# using psetsyn keyword ibasicStatement	put randomize read redim reset restore resumesyn keyword ibasicStatement	return rmdir rset run seek screensyn keyword ibasicStatement	shared shell sleep sound static stop strig subsyn keyword ibasicStatement	swap system timer troff tron type unlocksyn keyword ibasicStatement	view wait width window writesyn keyword ibasicStatement	date$ mid$ time$""	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	ibasicIdentifier			"\<[a-zA-Z_][a-zA-Z0-9_]*\>"syn match	ibasicGenericFunction	"\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1""	Function list"syn keyword ibasicBuiltInFunction	abs asc atn cdbl cint clng cos csng csrlin cvd cvdmbfsyn keyword ibasicBuiltInFunction	cvi cvl cvs cvsmbf eof erdev erl err exp fileattrsyn keyword ibasicBuiltInFunction	fix fre freefile inp instr lbound len loc lofsyn keyword ibasicBuiltInFunction	log lpos mod peek pen point pos rnd sadd screen seeksyn keyword ibasicBuiltInFunction	setmem sgn sin spc sqr stick strig tab tan uboundsyn keyword ibasicBuiltInFunction	val valptr valseg varptr varsegsyn keyword ibasicBuiltInFunction	chr\$ command$ date$ environ$ erdev$ hex$ inkey$syn keyword ibasicBuiltInFunction	input$ ioctl$ lcases$ laft$ ltrim$ mid$ mkdmbf$ mkd$syn keyword ibasicBuiltInFunction	mki$ mkl$ mksmbf$ mks$ oct$ right$ rtrim$ space$syn keyword ibasicBuiltInFunction	str$ string$ time$ ucase$ varptr$syn keyword ibasicTodo contained	TODOsyn cluster	ibasicFunctionCluster	contains=ibasicBuiltInFunction,ibasicGenericFunction syn keyword Conditional	if else then elseif endif select case endselectsyn keyword Repeat	for do while next enddo endwhile wend syn keyword ibasicTypeSpecifier	single double defdbl defsngsyn keyword ibasicTypeSpecifier	int integer uint uinteger int64 uint64 defint deflngsyn keyword ibasicTypeSpecifier	byte char string istring defstrsyn keyword ibasicDefine	dim def declare""catch errors caused by wrong parenthesis"syn cluster	ibasicParenGroup	contains=ibasicParenError,ibasicIncluded,ibasicSpecial,ibasicTodo,ibasicUserCont,ibasicUserLabel,ibasicBitFieldsyn region	ibasicParen		transparent start='(' end=')' contains=ALLBUT,@bParenGroupsyn match	ibasicParenError	")"syn match	ibasicInParen	contained "[{}]"""integer number, or floating point number without a dot and with "f"."syn region	ibasicHex		start="&h" end="\W"syn region	ibasicHexError	start="&h\x*[g-zG-Z]" end="\W"syn match	ibasicInteger	"\<\d\+\(u\=l\=\|lu\|f\)\>"""floating point number, with dot, optional exponent"syn match	ibasicFloat		"\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"""floating point number, starting with a dot, optional exponent"syn match	ibasicFloat		"\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"""floating point number, without dot, with exponent"syn match	ibasicFloat		"\<\d\+e[-+]\=\d\+[fl]\=\>"""hex number"syn match	ibasicIdentifier	"\<[a-zA-Z_][a-zA-Z0-9_]*\>"syn match	ibasicFunction	"\<[a-zA-Z_][a-zA-Z0-9_]*\>\s*("me=e-1,he=e-1syn case matchsyn match	ibasicOctalError	"\<0\o*[89]""" String and Character contstants"syn region	ibasicString		start='"' end='"' contains=ibasicSpecial,ibasicTodosyn region	ibasicString		start="'" end="'" contains=ibasicSpecial,ibasicTodo""	Comments"syn match	ibasicSpecial	contained "\\."syn region  ibasicComment	start="^rem" end="$" contains=ibasicSpecial,ibasicTodosyn region  ibasicComment	start=":\s*rem" end="$" contains=ibasicSpecial,ibasicTodosyn region	ibasicComment	start="\s*'" end="$" contains=ibasicSpecial,ibasicTodosyn region	ibasicComment	start="^'" end="$" contains=ibasicSpecial,ibasicTodo""	Now do the comments and labels"syn match	ibasicLabel		"^\d"syn region  ibasicLineNumber	start="^\d" end="\s"""	Pre-compiler options : FreeBasic"syn region	ibasicPreCondit	start="^\s*#\s*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)" skip="\\$" end="$" contains=ibasicString,ibasicCharacter,ibasicNumber,ibasicCommentError,ibasicSpaceErrorsyn match	ibasicInclude	"^\s*#\s*include\s*"""	Create the clusters"syn cluster ibasicNumber contains=ibasicHex,ibasicInteger,ibasicFloatsyn cluster	ibasicError	contains=ibasicHexError""	Used with OPEN statement"syn match   ibasicFilenumber  "#\d\+"""syn sync ccomment ibasicComment"syn match	ibasicMathOperator	"[\+\-\=\|\*\/\>\<\%\()[\]]" contains=ibasicParen"" The default methods for highlighting.  Can be overridden later"hi def link ibasicLabel			Labelhi def link ibasicConditional		Conditionalhi def link ibasicRepeat		Repeathi def link ibasicHex			Numberhi def link ibasicInteger		Numberhi def link ibasicFloat			Numberhi def link ibasicError			Errorhi def link ibasicHexError		Errorhi def link ibasicStatement		Statementhi def link ibasicString		Stringhi def link ibasicComment		Commenthi def link ibasicLineNumber		Commenthi def link ibasicSpecial		Specialhi def link ibasicTodo			Todohi def link ibasicGenericFunction	Functionhi def link ibasicBuiltInFunction	Functionhi def link ibasicTypeSpecifier		Typehi def link ibasicDefine		Typehi def link ibasicInclude		Includehi def link ibasicIdentifier		Identifierhi def link ibasicFilenumber		ibasicTypeSpecifierhi def link ibasicMathOperator		Operator let b:current_syntax = "ibasic" " vim: ts=8