Added functions to update timestamps in records.

[gedcom-parse.git] / gom / change_date.c

diff --git a/gom/change_date.c b/gom/change_date.c
index 8dd7fb3a97a166a135efd1a713de14daf1ac35ba..1038df32ba577d1f8c0012dace9e6ca0980ab641 100644 (file)
--- a/gom/change_date.c
+++ b/gom/change_date.c
@@ -23,6 +23,7 @@
 
 #include <stdlib.h>
 #include <string.h>
+#include <time.h>
 #include "change_date.h"
 #include "family.h"
 #include "individual.h"
@@ -54,19 +55,19 @@ Gedcom_ctxt sub_chan_start(_ELT_PARAMS_)
       
       switch (ctxt->ctxt_type) {
        case REC_FAM:
-         family_set_change_date(ctxt, chan); break;
+         ADDFUNC2_NOLIST(family,change_date)(ctxt, chan); break;
        case REC_INDI:
-         individual_set_change_date(ctxt, chan); break;
+         ADDFUNC2_NOLIST(individual,change_date)(ctxt, chan); break;
        case REC_OBJE:
-         multimedia_set_change_date(ctxt, chan); break;
+         ADDFUNC2_NOLIST(multimedia,change_date)(ctxt, chan); break;
        case REC_NOTE:
-         note_set_change_date(ctxt, chan); break;
+         ADDFUNC2_NOLIST(note,change_date)(ctxt, chan); break;
        case REC_REPO:
-         repository_set_change_date(ctxt, chan); break;
+         ADDFUNC2_NOLIST(repository,change_date)(ctxt, chan); break;
        case REC_SOUR:
-         source_set_change_date(ctxt, chan); break;
+         ADDFUNC2_NOLIST(source,change_date)(ctxt, chan); break;
        case REC_SUBM:
-         submitter_set_change_date(ctxt, chan); break;
+         ADDFUNC2_NOLIST(submitter,change_date)(ctxt, chan); break;
        default:
          UNEXPECTED_CONTEXT(ctxt->ctxt_type);
       }
@@ -77,8 +78,11 @@ Gedcom_ctxt sub_chan_start(_ELT_PARAMS_)
   return (Gedcom_ctxt)result;
 }
 
-DATE_CB(change_date, sub_chan_date_start, date)
-STRING_CB(change_date, sub_chan_time_start, time)
+DEFINE_DATE_CB(change_date, sub_chan_date_start, date)
+DEFINE_STRING_CB(change_date, sub_chan_time_start, time)
+
+DEFINE_ADDFUNC2(change_date, note_sub, note)
+DEFINE_ADDFUNC2(change_date, user_data, extra)
 
 void change_date_subscribe()
 {
@@ -89,29 +93,87 @@ void change_date_subscribe()
                              def_elt_end);
 }
 
-void change_date_add_note(Gom_ctxt ctxt, struct note_sub* note)
+void CLEANFUNC(change_date)(struct change_date *chan)
+{
+  if (chan) {
+    SAFE_FREE(chan->date);
+    SAFE_FREE(chan->time);
+    DESTROY_CHAIN_ELTS(note_sub, chan->note);
+    DESTROY_CHAIN_ELTS(user_data, chan->extra);
+  }
+  SAFE_FREE(chan);
+}
+
+struct change_date* gom_add_change_date(struct change_date** chan)
+{
+  struct change_date *obj = NULL;
+  if (chan && ! *chan) {
+    obj = (struct change_date*) malloc(sizeof(struct change_date));
+    if (! obj)
+      MEMORY_ERROR;
+    else {
+      memset(obj, 0, sizeof(struct change_date));
+      *chan = obj;
+    }
+  }
+  return obj;
+}
+
+int gom_delete_change_date(struct change_date** chan)
 {
-  struct change_date *chan = SAFE_CTXT_CAST(change_date, ctxt);
-  if (chan)
-    LINK_CHAIN_ELT(note_sub, chan->note, note);
+  int result = 1;
+  if (chan && *chan) {
+    CLEANFUNC(change_date)(*chan);
+    free(*chan);
+    *chan = NULL;
+    result = 0;
+  }
+  return result;
 }
 
-void change_date_add_user_data(Gom_ctxt ctxt, struct user_data* data)
+int update_date(struct date_value** dv, struct tm* tm_ptr)
 {
-  struct change_date *obj = SAFE_CTXT_CAST(change_date, ctxt);
-  if (obj)
-    LINK_CHAIN_ELT(user_data, obj->extra, data);
+  int result;
+  struct date_value* dval = gedcom_new_date_value(NULL);
+  dval->type        = DV_NO_MODIFIER;
+  dval->date1.cal   = CAL_GREGORIAN;
+  dval->date1.day   = tm_ptr->tm_mday;
+  dval->date1.month = tm_ptr->tm_mon + 1;
+  dval->date1.year  = tm_ptr->tm_year + 1900;
+  result = gedcom_normalize_date(DI_FROM_NUMBERS, dval);
+
+  if (result == 0) {
+    if (*dv) free(*dv);
+    *dv = dval;
+  }
+  return result;
 }
 
-void change_date_cleanup(struct change_date *chan)
+int update_time(char** tv, struct tm* tm_ptr)
 {
+  char tval[16];
+  sprintf(tval, "%02d:%02d:%02d",
+         tm_ptr->tm_hour, tm_ptr->tm_min, tm_ptr->tm_sec);
+
+  if (gom_set_string(tv, tval))
+    return 0;
+  else
+    return 1;
+}
+
+int gom_update_timestamp(struct change_date** chan, time_t t)
+{
+  int result = 1;
   if (chan) {
-    SAFE_FREE(chan->date);
-    SAFE_FREE(chan->time);
-    DESTROY_CHAIN_ELTS(note_sub, chan->note, note_sub_cleanup);
-    DESTROY_CHAIN_ELTS(user_data, chan->extra, user_data_cleanup);
+    if (! *chan) gom_add_change_date(chan);
+    if (*chan) {
+      struct tm *tm_ptr = localtime(&t);
+      result = 0;
+      result |= update_date(&((*chan)->date), tm_ptr);
+      result |= update_time(&((*chan)->time), tm_ptr);
+    }
   }
-  SAFE_FREE(chan);
+  return result;
 }
 
 int write_change_date(Gedcom_write_hndl hndl, int parent,
@@ -122,6 +184,12 @@ int write_change_date(Gedcom_write_hndl hndl, int parent,
   if (!chan) return 1;
 
   result |= gedcom_write_element_str(hndl, ELT_SUB_CHAN, 0, parent, NULL);
+  if (chan->date)
+    result |= gedcom_write_element_date(hndl, ELT_SUB_CHAN_DATE, 0,
+                                       ELT_SUB_CHAN, chan->date);
+  if (chan->time)
+    result |= gedcom_write_element_str(hndl, ELT_SUB_CHAN_TIME, 0,
+                                      ELT_SUB_CHAN_DATE, chan->time);
   if (chan->note)
     result |= write_note_subs(hndl, ELT_SUB_CHAN, chan->note);
   if (chan->extra)