forked from aniani/vim
		
	
		
			
	
	
		
			119 lines
		
	
	
		
			5.0 KiB
		
	
	
	
		
			VimL
		
	
	
	
	
	
		
		
			
		
	
	
			119 lines
		
	
	
		
			5.0 KiB
		
	
	
	
		
			VimL
		
	
	
	
	
	
|   | " Vim syntax file | ||
|  | " Language:	Lifelines (v 3.0.7) http://lifelines.sourceforge.net | ||
|  | " Maintainer:	Patrick Texier <p.texier@orsennes.com> | ||
|  | " Location:	ftp://216.71.72.236/lifelines.vim | ||
|  | " Last Change:	2002 Mar 03 | ||
|  | 
 | ||
|  | " For version 5.x: Clear all syntax items | ||
|  | " For version 6.x: Quit when a syntax file was already loaded | ||
|  | 
 | ||
|  | if version < 600 | ||
|  |   syntax clear | ||
|  | elseif exists("b:current_syntax") | ||
|  |   finish | ||
|  | endif | ||
|  | 
 | ||
|  | " A bunch of useful lifelines keywords 3.0.7 | ||
|  | 
 | ||
|  | syn keyword	lifelinesStatement	set | ||
|  | syn keyword	lifelinesUser		getindi geindiset getfam getint getstr choosechild | ||
|  | syn keyword	lifelinesUser		chooseindi choosespouse choosesubset menuchoose | ||
|  | syn keyword	lifelinesUser		choosefam getintmsg getindimsg getstrmsg | ||
|  | 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	lifelinesIndi		name fullname surname givens trimname birth | ||
|  | syn keyword	lifelinesIndi		death baptism burial | ||
|  | 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 lengthset 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	lifelinesList		list empty length enqueue dequeue requeue | ||
|  | syn keyword	lifelinesList		push pop setel getel forlist inlist | ||
|  | syn keyword	lifelinesTable		table insert lookup | ||
|  | syn keyword	lifelinesGedcom		xref tag value parent child sibling savenode | ||
|  | syn keyword	lifelinesGedcom		fornodes traverse createnode addnode deletenode | ||
|  | syn keyword	lifelinesGedcom		reference dereference getrecord | ||
|  | syn keyword     lifelinesGedcom		gengedcom gengedcomstrong gengedcomweak | ||
|  | syn keyword	lifelinesFunct		date place year long short gettoday dayformat | ||
|  | syn keyword	lifelinesFunct		monthformat dateformat extractdate | ||
|  | syn keyword	lifelinesFunct		complexdate | ||
|  | syn keyword	lifelinesFunct		extractnames extractplaces extracttokens lower | ||
|  | syn keyword     lifelinesFunct		upper capitalize trim rjustify save strsave | ||
|  | syn keyword     lifelinesFunct		concat strconcat strlen substring index | ||
|  | 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 | ||
|  | syn keyword	lifelinesFunct		database version system stddate program | ||
|  | syn keyword	lifelinesFunct		pvalue pagemode level extractdatestr debug | ||
|  | syn keyword	lifelinesFunct		f free getcol getproperty heapused | ||
|  | 
 | ||
|  | syn region	lifelinesString		start=+L\="+ skip=+\\\\\|\\"+ end=+"+ contains=lifelinesSpecial | ||
|  | 
 | ||
|  | syn region	lifelinesComment	start="/\*"  end="\*/" contains=lifelinesComment | ||
|  | 
 | ||
|  | " Only integers with lifelines | ||
|  | 
 | ||
|  | syn match	lifelinesNumber		"\<\d\+\>" | ||
|  | 
 | ||
|  | "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. | ||
|  | " For version 5.7 and earlier: only when not done already | ||
|  | " For version 5.8 and later: only when an item doesn't have highlighting yet | ||
|  | 
 | ||
|  | if version >= 508 || !exists("did_lifelines_syn_inits") | ||
|  |   if version < 508 | ||
|  |     let did_lifelines_syn_inits = 1 | ||
|  |     command -nargs=+ HiLink hi link <args> | ||
|  |   else | ||
|  |     command -nargs=+ HiLink hi def link <args> | ||
|  |   endif | ||
|  | 
 | ||
|  |   HiLink lifelinesConditional	Conditional | ||
|  |   HiLink lifelinesArithm	Operator | ||
|  |   HiLink lifelinesLogical	Conditional | ||
|  |   HiLink lifelinesInclude	Include | ||
|  |   HiLink lifelinesComment	Comment | ||
|  |   HiLink lifelinesStatement	Statement | ||
|  |   HiLink lifelinesUser		Statement | ||
|  |   HiLink lifelinesFunct		Statement | ||
|  |   HiLink lifelinesTable		Statement | ||
|  |   HiLink lifelinesGedcom	Statement | ||
|  |   HiLink lifelinesList		Statement | ||
|  |   HiLink lifelinesRepeat	Repeat | ||
|  |   HiLink lifelinesFam		Statement | ||
|  |   HiLink lifelinesIndi		Statement | ||
|  |   HiLink lifelinesProc		Statement | ||
|  |   HiLink lifelinesDef		Statement | ||
|  |   HiLink lifelinesString	String | ||
|  |   HiLink lifelinesNumber	Number | ||
|  |   HiLink lifelinesParenError	Error | ||
|  |   HiLink lifelinesErrInParen	Error | ||
|  | 
 | ||
|  |   delcommand HiLink | ||
|  | endif | ||
|  | 
 | ||
|  | let b:current_syntax = "lifelines" | ||
|  | 
 | ||
|  | " vim: ts=8 |