Re: Re-writing Genealogy::Gedcom::Date

Hi Ron,

perhaps someone else can improve upon this, but here's a firt shot at Germ=
an=2E


german_date	::=3D any_year
	| german_r_month dot any_year
		| day dot german_r_month dot any_year
	| german_r_month any_year

dot ~ '=2E'

any_year ::=3D year | year_bc

year_bc		::=3D year german_bc

year		::=3D number

german_bc		~ 'vc'
		| 'v=2Ec=2E'
		| 'v=2Echr=2E'
	| 'vchr'
		| 'vuz'
		| 'v=2Eu=2Ez=2E'

day		~ digit
		| digit digit

digit		~ [0-9]

german_r_month	~ 'jan' | 'feb' | 'm=C3=A4r' | 'maer' | 'mrz' | 'apr' | 'ma=
i'
		| 'jun' | 'jul' | 'aug' | 'sep' | 'sept' | 'okt'
		| 'nov' | 'dez'=20