- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- LINK_CHAIN_ELT(lds_event, fam->lds_spouse_sealing, lss)
-}
-
-void family_add_citation(Gom_ctxt ctxt, struct source_citation* cit)
-{
- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- LINK_CHAIN_ELT(source_citation, fam->citation, cit)
-}
-
-void family_add_mm_link(Gom_ctxt ctxt, struct multimedia_link* link)
-{
- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- LINK_CHAIN_ELT(multimedia_link, fam->mm_link, link)
-}
-
-void family_add_note(Gom_ctxt ctxt, struct note_sub* note)
-{
- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- LINK_CHAIN_ELT(note_sub, fam->note, note)
-}
-
-void family_add_user_ref(Gom_ctxt ctxt, struct user_ref_number* ref)
-{
- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- LINK_CHAIN_ELT(user_ref_number, fam->ref, ref)
-}
-
-void family_set_record_id(Gom_ctxt ctxt, char *rin)
-{
- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- fam->record_id = strdup(rin);
-}
-
-void family_set_change_date(Gom_ctxt ctxt, struct change_date* chan)
-{
- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- fam->change_date = chan;
-}
-
-void family_add_user_data(Gom_ctxt ctxt, struct user_data* data)
-{
- struct family *obj = SAFE_CTXT_CAST(family, ctxt);
- LINK_CHAIN_ELT(user_data, obj->extra, data)
-}
-
-void family_cleanup(struct family* fam)
-{
- SAFE_FREE(fam->xrefstr);
- DESTROY_CHAIN_ELTS(event, fam->event, event_cleanup)
- DESTROY_CHAIN_ELTS(xref_list, fam->children, NULL_DESTROY)
- SAFE_FREE(fam->nr_of_children);
- DESTROY_CHAIN_ELTS(xref_list, fam->submitters, NULL_DESTROY)
- DESTROY_CHAIN_ELTS(lds_event, fam->lds_spouse_sealing, lds_event_cleanup)
- DESTROY_CHAIN_ELTS(source_citation, fam->citation, citation_cleanup)
- DESTROY_CHAIN_ELTS(multimedia_link, fam->mm_link, multimedia_link_cleanup)
- DESTROY_CHAIN_ELTS(note_sub, fam->note, note_sub_cleanup)
- DESTROY_CHAIN_ELTS(user_ref_number, fam->ref, user_ref_cleanup)
- SAFE_FREE(fam->record_id);
- change_date_cleanup(fam->change_date);
- DESTROY_CHAIN_ELTS(user_data, fam->extra, user_data_cleanup)
+ if (fam) {
+ SAFE_FREE(fam->xrefstr);
+ DESTROY_CHAIN_ELTS(event, fam->event);
+ DESTROY_CHAIN_ELTS(xref_list, fam->children);
+ SAFE_FREE(fam->nr_of_children);
+ DESTROY_CHAIN_ELTS(xref_list, fam->submitters);
+ DESTROY_CHAIN_ELTS(lds_event, fam->lds_spouse_sealing);
+ DESTROY_CHAIN_ELTS(source_citation, fam->citation);
+ DESTROY_CHAIN_ELTS(multimedia_link, fam->mm_link);
+ DESTROY_CHAIN_ELTS(note_sub, fam->note);
+ DESTROY_CHAIN_ELTS(user_ref_number, fam->ref);
+ SAFE_FREE(fam->record_id);
+ CLEANFUNC(change_date)(fam->change_date);
+ DESTROY_CHAIN_ELTS(user_data, fam->extra);
+ }