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

diff --git a/gedcom/compat.c b/gedcom/compat.c
index ef319ae..ce45d41 100644
--- a/gedcom/compat.c
+++ b/gedcom/compat.c
@@ -36,6 +36,14 @@ int compatibility_program = 0;
 int compatibility_version = 0;
 const char* default_charset = "";
 
+void cleanup_compat_buffer();
+struct safe_buffer compat_buffer = { NULL, 0, NULL, 0, cleanup_compat_buffer };
+
+void cleanup_compat_buffer()
+{
+  cleanup_buffer(&compat_buffer);
+}
+
 #define SUBMITTER_LINK         "@__COMPAT__SUBM__@"
 #define SLGC_FAMC_LINK         "@__COMPAT__FAM_SLGC__@"
 #define DEFAULT_SUBMITTER_NAME "Submitter"
@@ -96,11 +104,12 @@ struct program_data data[] = {
 	- no FAMC field in SLGC
 	- uses tab character (will be converted to 8 spaces here)
 	- lines too long
+	- double dates written as e.g. '1815/1816'
 
     - 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'
+	- double dates written as e.g. '1815/1816'
 
     - Family Origins:
         - '@' not written as '@@' in values
@@ -118,6 +127,7 @@ struct program_data data[] = {
         - '@' not written as '@@' in values
 	- SUBM.CTRY instead of SUBM.ADDR.CTRY
 	- lines too long
+	- double dates written as e.g. '1815/1816'
  */
 
 int compat_matrix[] =
@@ -142,7 +152,7 @@ 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,
 };
 
 union _COMPAT_STATE {
@@ -265,6 +275,12 @@ int compat_mode(Compat_rule rule)
   return (compat_matrix[rule] & compatibility);
 }
 
+void compat_close()
+{
+  compatibility_program = 0;
+  compatibility = 0;
+}
+
 /********************************************************************/
 /*  C_NO_SUBMITTER                                                  */
 /********************************************************************/
@@ -635,6 +651,51 @@ void compat_subm_comm_cont_end(Gedcom_ctxt parent, Gedcom_ctxt self)
   }
 }
 
+/********************************************************************/
+/*  C_DOUBLE_DATES_4                                                */
+/********************************************************************/
+
+void compat_date_start()
+{
+  if (compat_mode(C_DOUBLE_DATES_4)) {
+    reset_buffer(&compat_buffer);
+    compat_state[C_DOUBLE_DATES_4].i = 0;
+  }
+}
+
+int compat_double_date_check(char* year2)
+{
+  return (compat_mode(C_DOUBLE_DATES_4)
+	  && !compat_state[C_DOUBLE_DATES_4].i
+	  && strlen(year2) == 4);
+}
+
+int compat_double_date_final(struct date_value* dv, const char** curr_line)
+{
+  char* compat_line_value = get_buf_string(&compat_buffer);
+  compat_state[C_DOUBLE_DATES_4].i = 1;
+  if (compat_line_value && compat_line_value[0]
+      && (dv->type == DV_NO_MODIFIER || dv->type == DV_ABOUT)
+      && dv->date1.day == -1
+      && dv->date1.month == -1) {
+    gedcom_warning(_("Converting '%s' to standard '%s'"),
+		   *curr_line, compat_line_value);
+    *curr_line = compat_line_value;
+  }
+  return 1;
+}
+
+int compat_date_check(struct date_value* dv, const char** curr_line)
+{
+  if (compat_mode(C_DOUBLE_DATES_4)
+      && compat_double_date_final(dv, curr_line)) {
+    return 1;
+  }
+  else {
+    return 0;
+  }
+}
+
 /********************************************************************/
 /*  C_NOTE_TOO_LONG                                                 */
 /********************************************************************/