X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gedcom%2Fcompat.c;h=2cbf8185ff1ee9b8a7af3eed288a1b5e99da789c;hb=6ac96eea2be7cea48b8cf4232c3be6699078173b;hp=ef319ae844e4db76748468f5c9ed437128a0b48f;hpb=d41803b9c1bcafabf115a188e3b4a489103bbdca;p=gedcom-parse.git

diff --git a/gedcom/compat.c b/gedcom/compat.c
index ef319ae..2cbf818 100644
--- a/gedcom/compat.c
+++ b/gedcom/compat.c
@@ -96,11 +96,13 @@ struct program_data data[] = {
 	- no FAMC field in SLGC
 	- uses tab character (will be converted to 8 spaces here)
 	- lines too long
+	- non-standard date formats
 
     - Personal Ancestral File 2:
         - '@' not written as '@@' in values
 	- COMM tag in submitter record
 	- double dates written as e.g. '1815/1816' instead of '1815/16'
+	- non-standard date formats
 
     - Family Origins:
         - '@' not written as '@@' in values
@@ -118,6 +120,7 @@ struct program_data data[] = {
         - '@' not written as '@@' in values
 	- SUBM.CTRY instead of SUBM.ADDR.CTRY
 	- lines too long
+	- non-standard date formats
  */
 
 int compat_matrix[] =
@@ -142,7 +145,8 @@ int compat_matrix[] =
   /* C_SUBM_CTRY */           C_PAF4,
   /* C_NOTE_TOO_LONG */       C_PAF4 | C_PAF5,
   /* C_NOTE_CONC_SOUR */      C_EASYTREE,
-  /* C_NONSTD_SOUR_TAGS */    C_EASYTREE
+  /* C_NONSTD_SOUR_TAGS */    C_EASYTREE,
+  /* C_PAF_DATES */           C_PAF2 | C_PAF4 | C_PAF5
 };
 
 union _COMPAT_STATE {
@@ -265,6 +269,12 @@ int compat_mode(Compat_rule rule)
   return (compat_matrix[rule] & compatibility);
 }
 
+void compat_close()
+{
+  compatibility_program = 0;
+  compatibility = 0;
+}
+
 /********************************************************************/
 /*  C_NO_SUBMITTER                                                  */
 /********************************************************************/