X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;ds=sidebyside;f=gedcom%2Fwrite.c;h=f8721da6cc91bab6fd841a150a586a9a79407831;hb=1568cb8ab16ecc1984d0d00b8ae8189c32508b08;hp=aba4195be34c88f9dadeb63fc13a999dfe9badc3;hpb=1bf88d7236d734f77d7f404ded6ba505030d92bc;p=gedcom-parse.git

diff --git a/gedcom/write.c b/gedcom/write.c
index aba4195..f8721da 100644
--- a/gedcom/write.c
+++ b/gedcom/write.c
@@ -420,6 +420,28 @@ int gedcom_write_element_xref(Gedcom_write_hndl hndl,
   return result;
 }
 
+int gedcom_write_element_date(Gedcom_write_hndl hndl,
+			      Gedcom_elt elt, int tag, int parent_rec_or_elt,
+			      struct date_value* val)
+{
+  int result = 1;
+  if (check_type(elt, (val ? GV_DATE_VALUE : GV_NULL)))
+    result = _gedcom_write_val(hndl, elt, tag, parent_rec_or_elt, NULL,
+			       gedcom_date_to_string(val));
+  return result;
+}
+
+int gedcom_write_element_age(Gedcom_write_hndl hndl,
+			     Gedcom_elt elt, int tag, int parent_rec_or_elt,
+			     struct age_value* val)
+{
+  int result = 1;
+  if (check_type(elt, (val ? GV_AGE_VALUE : GV_NULL)))
+    result = _gedcom_write_val(hndl, elt, tag, parent_rec_or_elt, NULL,
+			       gedcom_age_to_string(val));
+  return result;
+}
+
 int gedcom_write_user_str(Gedcom_write_hndl hndl, int level, char* tag,
 			  char* xrefstr, char* value)
 {