X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gom%2Fgom_modify.c;h=b876a9e5cfa2790ff825a629ceec8b915a6c7ccf;hb=28297bd9b57fa7d8c3600d040cc08e5e73a62c27;hp=82205ffb4ca03cc02548ac0ed131aa9a748313b9;hpb=32002ea8d471295f49c4e7e4789afd9feacc96b5;p=gedcom-parse.git

diff --git a/gom/gom_modify.c b/gom/gom_modify.c
index 82205ff..b876a9e 100644
--- a/gom/gom_modify.c
+++ b/gom/gom_modify.c
@@ -24,6 +24,7 @@
 #include <stdlib.h>
 #include <string.h>
 #include "utf8tools.h"
+#include "user_rec.h"
 #include "gom.h"
 #include "gom_internal.h"
 
@@ -78,17 +79,31 @@ char* gom_set_string_for_locale(char** data, const char* locale_str)
   return result;
 }
 
-struct xref_value* gom_set_xref_value(struct xref_value** data,
-				      struct xref_value* newval)
+void CLEANFUNC(xref_list)(struct xref_list *obj)
+{
+  if (obj) {
+    DESTROY_CHAIN_ELTS(user_data, obj->extra);
+  }
+}
+
+struct xref_value* gom_set_xref(struct xref_value** data, const char* xref)
 {
   struct xref_value* result = NULL;
+  struct xref_value* newval = NULL;
+  
   if (data) {
+    if (xref) {
+      newval = gedcom_get_by_xref(xref);
+      if (!newval)
+	gedcom_error(_("No record found for xref '%s'"), xref);
+    }
+    
     /* Unreference the old value if not NULL */
     if (*data)
       result = gedcom_unlink_xref((*data)->type, (*data)->string);
     else
       result = newval;
-
+    
     /* Reference the new value if not NULL */
     if (result != NULL && newval) {
       result = gedcom_link_xref(newval->type, newval->string);
@@ -104,3 +119,54 @@ struct xref_value* gom_set_xref_value(struct xref_value** data,
   }
   return result;
 }
+
+struct xref_list* gom_add_xref(struct xref_list** data, const char* xref)
+{
+  struct xref_value* result = NULL;
+  struct xref_value* newval = NULL;
+  struct xref_list* xrl = NULL;
+
+  if (data && xref) {
+    newval = gedcom_get_by_xref(xref);
+    if (!newval)
+      gedcom_error(_("No record found for xref '%s'"), xref);
+    else {
+      result = gedcom_link_xref(newval->type, newval->string);
+      if (result != NULL) {
+	MAKE_CHAIN_ELT(xref_list, *data, xrl);
+	if (xrl) xrl->xref = newval;
+      }
+    }
+  }
+
+  return xrl;
+}
+
+int gom_remove_xref(struct xref_list** data, const char* xref)
+{
+  struct xref_value* xr = NULL;
+  int result = 1;
+  
+  if (data && xref) {
+    xr = gedcom_get_by_xref(xref);
+    if (!xr)
+      gedcom_error(_("No record found for xref '%s'"), xref);
+    else {
+      struct xref_list* xrl = NULL;
+      for (xrl = *data ; xrl ; xrl = xrl->next) {
+	if (xrl->xref == xr) {
+	  UNLINK_CHAIN_ELT(xref_list, *data, xrl);
+	  gedcom_unlink_xref(xr->type, xr->string);
+	  CLEANFUNC(xref_list)(xrl);
+	  SAFE_FREE(xrl);
+	  result = 0;
+	  break;
+	}
+      }
+      if (result == 1)
+	gedcom_error(_("Xref '%s' to remove not part of chain"), xref);
+    }
+  }
+
+  return result;
+}