" Vim alternative syntax file " Language: Gedcom " Maintainer: Patrick Texier " Url: " Last Change: 2010 May 22 " " Fixed and improved from original file written by " Paul Johnson (pjcj@transeda.com) " " 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 if !exists("g:gedcom551") let g:gedcom551 = 0 endif syntax case match syntax keyword gedcom_record ABBR ADDR ADOP ADR1 ADR2 AFN AGE AGNC ALIA ANCE syntax keyword gedcom_record ANCI ANUL ASSO AUTH BAPL BAPM BARM BASM BIRT BLES syntax keyword gedcom_record BURI CALN CAST CAUS CENS CHAN CHAR CHIL CHR syntax keyword gedcom_record CHRA CITY CONC CONF CONL CONT COPR CORP CREM CTRY syntax keyword gedcom_record DATA DATE DEAT DESC DESI DEST DIV DIVF DSCR EDUC EMIG syntax keyword gedcom_record ENDL ENGA EVEN FAM FAMC FAMF FAMS FCOM FILE FORM syntax keyword gedcom_record GEDC GIVN GRAD HEAD HUSB IDNO IMMI INDI LANG MARB syntax keyword gedcom_record MARC MARL MARR MARS MEDI NAME NATI NATU NCHI NICK NMR syntax keyword gedcom_record NOTE NPFX NSFX OBJE OCCU ORDI ORDN PAGE PEDI PHON syntax keyword gedcom_record PLAC POST PROB PROP PUBL QUAY REFN RELA RELI REPO syntax keyword gedcom_record RESI RESN RETI RFN RIN ROLE SEX SLGC SLGS SOUR syntax keyword gedcom_record SPFX SSN STAE STAT SUBM SUBN SURN TEMP TEXT syntax keyword gedcom_record TIME TITL TRLR TYPE VERS WIFE WILL if (g:gedcom551 == 1) " Gedcom 5.5.1 tags syntax keyword gedcom_record EMAIL FAX FACT FONE LATI LONG MAP ROMN WWW else " Gedcom 5.5 tag removed in 5.5.1 syntax keyword gedcom_record BLOB endif syntax keyword gedcom_record AGE nextgroup=gedcom_age_val syntax keyword gedcom_record DATE nextgroup=gedcom_date_val syntax keyword gedcom_record NAME nextgroup=gedcom_name syntax keyword gedcom_record PEDI nextgroup=gedcom_pedi_val syntax keyword gedcom_record PLAC nextgroup=gedcom_place syntax keyword gedcom_record SEX nextgroup=gedcom_sexe_val syntax keyword gedcom_record TIME nextgroup=gedcom_time_val syntax region gedcom_id start="@" end="@" oneline contains=gedcom_ii, gedcom_in syntax match gedcom_ii "\I\+" contained nextgroup=gedcom_in syntax match gedcom_in "\d\+" contained syntax region gedcom_name start="" end="$" skipwhite oneline contains=gedcom_cname, gedcom_surname contained syntax match gedcom_cname "\i\+" contained syntax match gedcom_surname "/.\+/" contained "syntax match gedcom_error "^\s*[^0-9].\+" " Place parts if !exists("g:gedcom_nbr_place") let g:gedcom_nbr_place = 1 endif if g:gedcom_nbr_place == 2 syntax match gedcom_place "\(.*,\)\{1}.*" contained elseif g:gedcom_nbr_place == 3 syntax match gedcom_place "\(.*,\)\{2}.*" contained elseif g:gedcom_nbr_place == 4 syntax match gedcom_place "\(.*,\)\{3}.*" contained elseif g:gedcom_nbr_place == 5 syntax match gedcom_place "\(.*,\)\{4}.*" contained elseif g:gedcom_nbr_place == 6 syntax match gedcom_place "\(.*,\)\{5}.*" contained elseif g:gedcom_nbr_place == 7 syntax match gedcom_place "\(.*,\)\{6}.*" contained endif syntax region gedcom_time_val start="" end="$" oneline contains=gedcom_time contained syntax match gedcom_time "[0-2]\d:[0-5]\d\(:[0-5]\d\(\.\d\{2}\)\{0,1}\)\{0,1}" contained syntax region gedcom_sexe_val start="" end="$" oneline contains=gedcom_sexe contained syntax match gedcom_sexe "\(M\|F\|U\|?\|Unknown\)" contained syntax region gedcom_pedi_val start="" end="$" oneline contains=gedcom_pedi contained syntax region gedcom_time_val start="" end="$" oneline contains=gedcom_time contained syntax match gedcom_time "[0-2]\d:[0-5]\d\(:[0-5]\d\(\.\d\{2}\)\{0,1}\)\{0,1}" contained syntax region gedcom_sexe_val start="" end="$" oneline contains=gedcom_sexe contained syntax match gedcom_sexe "\(M\|F\|U\|?\|Unknown\)" contained syntax region gedcom_pedi_val start="" end="$" oneline contains=gedcom_pedi contained syntax match gedcom_pedi "\(adopted\|birth\|foster\|sealing\)" contained syntax region gedcom_age_val start="" end="$" oneline contains=gedcom_age contained syntax match gedcom_age "[<>]\{0,1}\(\d\{1,3}y \d\{1,2}m \d\{1,3}d\|\d\{1,3}y\|\d\{1,2}m\|\d\{1,3}d\|\d\{1,3}y \d\{1,3}d\|\d\{1,2}m \d\{1,3}d\|CHILD\|INFANT\|STILLBORN\)" contained syntax region gedcom_date_val start="" end="$" oneline contains=gedcom_date contained syntax match gedcom_date "\(AFT\|ABT\|BEF\|\EST\|CAL\|FROM\|TO\|BET\|AND\|INT\) " contained syntax match gedcom_date "@#DJULIAN@" contained syntax match gedcom_date "\(\d\{1,2} \)\{0,1}\(\(JAN\|FEB\|MAR\|APR\|MAY\|JUN\|JUL\|AUG\|SEP\|OCT\|NOV\|DEC\)\{0,1} \d\{1,4}\)\( B\.C\.\)\{0,1}" contained syntax match gedcom_date "@#DFRENCH R@ \(\d\{0,2} \)\{0,1}\(\(VEND\|BRUM\|FRIM\|NIVO\|PLUV\|VENT\|GERM\|FLOR\|PRAI\|MESS\|THER\|FRUC\|COMP\) \)\{0,1}\d\{1,2}" contained syntax match gedcom_date "@#DHEBREW@\s\+\(\d\{0,2} \)\{0,1}\(\(TSH\|CSH\|KSL\|TVT\|SHV\|ADR\|ADS\|NSN\|IYR\|SVN\|TMZ\|AAV\|ELL\) \)\{0,1}\d\{1,4}" contained syntax match gedcom_date "\d\{1,4}" contained syntax region gedcom_date start=/(/ end=/)/ oneline contained " LifeLines comments syntax region gedcom_comment start="{{" end="}}" oneline " line length test (max: 255) syntax match gedcom_error "\%>255v.\+" " 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_gedcom_syntax_inits") if version < 508 let did_gedcom_syntax_inits = 1 command -nargs=+ HiLink hi link else command -nargs=+ HiLink hi def link endif HiLink gedcom_record Statement HiLink gedcom_id Comment HiLink gedcom_comment Comment HiLink gedcom_ii PreProc HiLink gedcom_in Identifier HiLink gedcom_name PreProc HiLink gedcom_cname Type HiLink gedcom_surname Identifier HiLink gedcom_date Constant HiLink gedcom_time Constant HiLink gedcom_place Constant HiLink gedcom_sexe Constant HiLink gedcom_pedi Constant HiLink gedcom_age Constant HiLink gedcom_error Error delcommand HiLink endif let b:current_syntax = "gedcom" " vim:ts=8:sw=4