-void family_add_event(Gom_ctxt ctxt, struct event* evt)
-{
- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- if (fam)
- LINK_CHAIN_ELT(event, fam->event, evt);
-}
-
-void family_add_lss(Gom_ctxt ctxt, struct lds_event* lss)
-{
- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- if (fam)
- 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);
- if (fam)
- 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);
- if (fam)
- 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);
- if (fam)
- 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);
- if (fam)
- 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);
- if (fam) {
- fam->record_id = strdup(rin);
- if (! fam->record_id) MEMORY_ERROR;
- }
-}
-
-void family_set_change_date(Gom_ctxt ctxt, struct change_date* chan)
-{
- struct family *fam = SAFE_CTXT_CAST(family, ctxt);
- if (fam)
- fam->change_date = chan;
-}
-
-void family_add_user_data(Gom_ctxt ctxt, struct user_data* data)
-{
- struct family *obj = SAFE_CTXT_CAST(family, ctxt);
- if (obj)
- LINK_CHAIN_ELT(user_data, obj->extra, data);
-}
-
-void family_cleanup(struct family* fam)