" Vim syntax file
" Language:	LifeLines (v 3.0.62) <http://lifelines.sourceforge.net>
" Maintainer:	Patrick Texier <p.texier@orsennes.com>
" Location:	<http://patrick.texier.free.fr/vim/syntax/lifelines.vim>
" Last Change:	2010 May 7

" option to highlight error obsolete statements
" add the following line to your .vimrc file :
" let lifelines_deprecated = 1

" For version 5.x: Clear all syntax items
" For version 6.x: Quit when a syntax file was already loaded

" quit when a syntax file was already loaded
if exists("b:current_syntax")
  finish
endif

" A bunch of useful LifeLines keywords 3.0.62

syn keyword	lifelinesDecl		char_encoding require option include
syn keyword	lifelinesStatement	set
syn keyword	lifelinesUser		getindi geindiset getfam getint getstr choosechild
syn keyword	lifelinesUser		chooseindi choosespouse choosesubset menuchoose
syn keyword	lifelinesUser		choosefam 
syn keyword	lifelinesProc		proc func return call
syn keyword	lifelinesInclude	include
syn keyword	lifelinesDef		global
syn keyword	lifelinesConditional	if else elsif switch
syn keyword	lifelinesRepeat		continue break while
syn keyword	lifelinesLogical	and or not eq ne lt gt le ge strcmp eqstr nestr
syn keyword	lifelinesArithm		add sub mul div mod exp neg incr decr
syn keyword	lifelinesArithm		cos sin tan arccos arcsin arctan
syn keyword	lifelinesArithm		deg2dms dms2deg spdist
syn keyword	lifelinesIndi		name fullname surname givens trimname birth
syn keyword	lifelinesIndi		death burial baptism
syn keyword	lifelinesIndi		father mother nextsib prevsib sex male female
syn keyword	lifelinesIndi		pn nspouses nfamilies parents title key
syn keyword	lifelinesIndi		soundex inode root indi firstindi nextindi
syn keyword	lifelinesIndi		previndi spouses families forindi indiset
syn keyword	lifelinesIndi		addtoset deletefromset  union intersect
syn keyword	lifelinesIndi		difference parentset childset spouseset siblingset
syn keyword	lifelinesIndi		ancestorset descendentset descendantset uniqueset
syn keyword	lifelinesIndi		namesort keysort valuesort genindiset getindiset
syn keyword	lifelinesIndi		forindiset lastindi writeindi
syn keyword	lifelinesIndi		inset
syn keyword	lifelinesFam		marriage husband wife nchildren firstchild
syn keyword	lifelinesFam		lastchild fnode fam firstfam nextfam lastfam
syn keyword	lifelinesFam		prevfam children forfam writefam
syn keyword	lifelinesFam		fathers mothers Parents
syn keyword	lifelinesList		list empty length enqueue dequeue requeue
syn keyword	lifelinesList		push pop setel getel forlist inlist dup clear
syn keyword	lifelinesTable		table insert lookup
syn keyword	lifelinesGedcom		xref tag value parent child sibling savenode
syn keyword	lifelinesGedcom		fornodes traverse createnode addnode 
syn keyword	lifelinesGedcom		detachnode foreven fornotes forothr forsour
syn keyword	lifelinesGedcom		reference dereference getrecord
syn keyword	lifelinesGedcom		gengedcomstrong 
syn keyword	lifelinesFunct		date place year long short gettoday dayformat
syn keyword	lifelinesFunct		monthformat dateformat extractdate eraformat
syn keyword	lifelinesFunct		complexdate complexformat complexpic datepic
syn keyword	lifelinesFunct		extractnames extractplaces extracttokens lower
syn keyword	lifelinesFunct		yearformat
syn keyword	lifelinesFunct		upper capitalize trim rjustify 
syn keyword 	lifelinesFunct		concat strconcat strlen substring index
syn keyword	lifelinesFunct		titlecase gettext
syn keyword	lifelinesFunct		d card ord alpha roman strsoundex strtoint
syn keyword	lifelinesFunct		atoi linemode pagemod col row pos pageout nl
syn keyword	lifelinesFunct		sp qt newfile outfile copyfile print lock unlock test
syn keyword	lifelinesFunct		database version system stddate program
syn keyword	lifelinesFunct		pvalue pagemode level extractdatestr debug
syn keyword	lifelinesFunct		f float int free getcol getproperty heapused
syn keyword 	lifelinesFunct		sort rsort
syn keyword	lifelinesFunct		deleteel
syn keyword	lifelinesFunct		bytecode convertcode setlocale
" New dates functions (since 3.0.51)
syn keyword	lifelinesFunct		jd2date date2jd dayofweek setdate

" options to highlight as error obsolete statements
" please read ll-reportmanual.

if exists("lifelines_deprecated")
	syn keyword lifelinesError	getintmsg getindimsg getstrmsg
	syn keyword lifelinesError	gengedcom gengedcomweak deletenode
	syn keyword lifelinesError	save strsave
	syn keyword lifelinesError	lengthset
	if version >= 700
		let g:omni_syntax_group_exclude_lifelines = 'lifelinesError'
	endif
else
	syn keyword lifelinesUser	getintmsg getindimsg getstrmsg
	syn keyword lifelinesGedcom	gengedcom gengedcomweak deletenode
	syn keyword lifelinesFunct	save strsave
	syn keyword lifelinesIndi	lengthset
endif

syn region	lifelinesString	start=+L\="+ skip=+\\\\\|\\"+ end=+"+ contains=lifelinesSpecial

syn match	lifelinesSpecial	"\\\(\\\|\(n\|t\)\)" contained

syn keyword	lifelinesTodo		contained TODO FIXME XXX
syn region	lifelinesComment	start="/\*"  end="\*/" contains=lifelinesTodo

" integers
syn match	lifelinesNumber	"-\=\<\d\+\>"
"floats, with dot
syn match	lifelinesNumber	"-\=\<\d\+\.\d*\>"
"floats, starting with a dot
syn match	lifelinesNumber	"-\=\.\d\+\>"

" folding using {}
syn region lifelinesFoldBlock	start="{" end="}" transparent fold

"catch errors caused by wrong parenthesis
"adapted from original c.vim written by Bram Moolenaar

syn cluster	lifelinesParenGroup	contains=lifelinesParenError
syn region	lifelinesParen		transparent start='(' end=')' contains=ALLBUT,@lifelinesParenGroup
syn match	lifelinesParenError	")"
syn match	lifelinesErrInParen	contained "[{}]"

" Define the default highlighting.
" Only when an item doesn't have highlighting yet


hi def link lifelinesConditional	Conditional
hi def link lifelinesArithm	Operator
hi def link lifelinesLogical	Conditional
hi def link lifelinesInclude	Include
hi def link lifelinesComment	Comment
hi def link lifelinesStatement	Statement
hi def link lifelinesUser		Statement
hi def link lifelinesFunct		Statement
hi def link lifelinesTable		Statement
hi def link lifelinesGedcom	Statement
hi def link lifelinesList		Statement
hi def link lifelinesRepeat	Repeat
hi def link lifelinesFam		Statement
hi def link lifelinesIndi		Statement
hi def link lifelinesProc		Statement
hi def link lifelinesDef		Statement
hi def link lifelinesString	String
hi def link lifelinesSpecial	Special
hi def link lifelinesNumber	Number
hi def link lifelinesParenError	Error
hi def link lifelinesErrInParen	Error
hi def link lifelinesError		Error
hi def link lifelinesTodo		Todo
hi def link lifelinesDecl		PreProc


let b:current_syntax = "lifelines"

" vim: ts=8 sw=4