" 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