Allow elements out of context in GOM.

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

diff --git a/gom/individual.c b/gom/individual.c
index 33c4c6c512ff60c8156f476edc500b8758a275c5..b9652ef87ca28e557bb3a464059af1ec0b217f94 100644 (file)
--- a/gom/individual.c
+++ b/gom/individual.c
@@ -47,7 +47,6 @@ DEFINE_DESTROYFUNC(individual, gom_first_individual)
 DEFINE_ADDFUNC(individual, XREF_INDI)
 DEFINE_DELETEFUNC(individual)
 DEFINE_GETXREFFUNC(individual, XREF_INDI)
-DEFINE_MAKELINKFUNC(individual, XREF_INDI)
      
 DEFINE_REC_CB(individual, indi_start)
 DEFINE_STRING_CB(individual, indi_resn_start, restriction_notice)
@@ -103,6 +102,29 @@ void individual_add_family_link(Gom_ctxt ctxt, int ctxt_type,
   }
 }
 
+void UNREFALLFUNC(individual)(struct individual *obj)
+{
+  if (obj) {
+    UNREFALLFUNC(personal_name)(obj->name);
+    UNREFALLFUNC(event)(obj->event);
+    UNREFALLFUNC(event)(obj->attribute);
+    UNREFALLFUNC(lds_event)(obj->lds_individual_ordinance);
+    UNREFALLFUNC(family_link)(obj->child_to_family);
+    UNREFALLFUNC(family_link)(obj->spouse_to_family);
+    UNREFALLFUNC(xref_list)(obj->submitters);
+    UNREFALLFUNC(association)(obj->association);
+    UNREFALLFUNC(xref_list)(obj->alias);
+    UNREFALLFUNC(xref_list)(obj->ancestor_interest);
+    UNREFALLFUNC(xref_list)(obj->descendant_interest);
+    UNREFALLFUNC(source_citation)(obj->citation);
+    UNREFALLFUNC(multimedia_link)(obj->mm_link);
+    UNREFALLFUNC(note_sub)(obj->note);
+    UNREFALLFUNC(user_ref_number)(obj->ref);
+    UNREFALLFUNC(change_date)(obj->change_date);
+    UNREFALLFUNC(user_data)(obj->extra);
+  }
+}
+
 void CLEANFUNC(individual)(struct individual* indiv)
 {
   if (indiv) {