+
+/**
+ * Adds child to the family
+ */
+Gedcom_ctxt familia_gedcom_family_add_child(Gedcom_elt elt,
+ Gedcom_ctxt parent,
+ int level,
+ char* tag,
+ char* raw_value,
+ int parsed_tag,
+ Gedcom_val parsed_value)
+{
+ void * object = NULL;
+ /* XREF_PTR(FAM) */
+ struct xref_value *xr = GEDCOM_XREF_PTR(parsed_value);
+
+ object = familia_memory_stack_find(xr->string, FS_FAMILY);
+ /* parent: REC_INDI */
+ familia_family_add_child(object, parent);
+
+ return parent;
+}
+