1 /* LDS spouse sealing sub-structure in the gedcom object model.
2 Copyright (C) 2002 The Genes Development Team
3 This file is part of the Gedcom parser library.
4 Contributed by Peter Verthez <Peter.Verthez@advalvas.be>, 2002.
6 The Gedcom parser library is free software; you can redistribute it
7 and/or modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The Gedcom parser library is distributed in the hope that it will be
12 useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the Gedcom parser library; if not, write to the
18 Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
26 #include "lds_event.h"
28 #include "individual.h"
30 #include "source_citation.h"
34 #include "gom_internal.h"
36 Gedcom_ctxt sub_lds_event_start(_ELT_PARAMS_)
38 Gom_ctxt ctxt = (Gom_ctxt)parent;
39 Gom_ctxt result = NULL;
44 struct lds_event *lds_evt = SUB_MAKEFUNC(lds_event)();
46 lds_evt->event = parsed_tag;
47 lds_evt->event_name = strdup(tag);
48 if (! lds_evt->event_name) {
53 int type = ctxt_type(ctxt);
56 ADDFUNC2(family,lds_event)(ctxt, lds_evt); break;
58 ADDFUNC2(individual,lds_event)(ctxt, lds_evt); break;
60 UNEXPECTED_CONTEXT(type);
62 result = MAKE_GOM_CTXT(elt, lds_event, lds_evt);
67 return (Gedcom_ctxt)result;
70 DEFINE_SUB_MAKEFUNC(lds_event)
71 DEFINE_SUB_ADDFUNC(lds_event)
72 DEFINE_SUB_FINDFUNC(lds_event)
73 DEFINE_SUB_REMOVEFUNC(lds_event)
74 DEFINE_SUB_MOVEFUNC(lds_event)
76 DEFINE_STRING_CB(lds_event, sub_lds_event_stat_start, date_status)
77 DEFINE_DATE_CB(lds_event, sub_lds_event_date_start, date)
78 DEFINE_STRING_CB(lds_event, sub_lds_event_temp_start, temple_code)
79 DEFINE_STRING_CB(lds_event, sub_lds_event_plac_start, place_living_ordinance)
80 DEFINE_XREF_CB(lds_event, sub_lds_event_famc_start, family, family)
82 DEFINE_ADDFUNC2(lds_event, note_sub, note)
83 DEFINE_ADDFUNC2(lds_event, source_citation, citation)
84 DEFINE_ADDFUNC2(lds_event, user_data, extra)
86 void lds_event_subscribe()
88 gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS,
89 sub_lds_event_start, def_elt_end);
90 gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL,
91 sub_lds_event_start, def_elt_end);
92 gedcom_subscribe_to_element(ELT_SUB_LIO_SLGC,
93 sub_lds_event_start, def_elt_end);
94 gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS_STAT,
95 sub_lds_event_stat_start, def_elt_end);
96 gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL_STAT,
97 sub_lds_event_stat_start, def_elt_end);
98 gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS_DATE,
99 sub_lds_event_date_start, def_elt_end);
100 gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL_DATE,
101 sub_lds_event_date_start, def_elt_end);
102 gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS_TEMP,
103 sub_lds_event_temp_start, def_elt_end);
104 gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL_TEMP,
105 sub_lds_event_temp_start, def_elt_end);
106 gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS_PLAC,
107 sub_lds_event_plac_start, def_elt_end);
108 gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL_PLAC,
109 sub_lds_event_plac_start, def_elt_end);
110 gedcom_subscribe_to_element(ELT_SUB_LIO_SLGC_FAMC,
111 sub_lds_event_famc_start, def_elt_end);
114 void UNREFALLFUNC(lds_event)(struct lds_event* obj)
117 struct lds_event* runner;
118 for (runner = obj; runner; runner = runner->next) {
119 unref_xref_value(runner->family);
120 UNREFALLFUNC(source_citation)(runner->citation);
121 UNREFALLFUNC(note_sub)(runner->note);
122 UNREFALLFUNC(user_data)(runner->extra);
127 void CLEANFUNC(lds_event)(struct lds_event* lds)
130 SAFE_FREE(lds->event_name);
131 SAFE_FREE(lds->date_status);
132 SAFE_FREE(lds->date);
133 SAFE_FREE(lds->temple_code);
134 SAFE_FREE(lds->place_living_ordinance);
135 DESTROY_CHAIN_ELTS(source_citation, lds->citation);
136 DESTROY_CHAIN_ELTS(note_sub, lds->note);
137 DESTROY_CHAIN_ELTS(user_data, lds->extra);
141 static int get_gedcom_elt(int parsed_tag)
144 switch (parsed_tag) {
145 case TAG_BAPL: case TAG_CONL: case TAG_ENDL:
146 obj_elt = ELT_SUB_LIO_BAPL; break;
148 obj_elt = ELT_SUB_LIO_SLGC; break;
150 obj_elt = ELT_SUB_LSS_SLGS; break;
152 gedcom_warning(_("Internal error: unknown evt tag %d"), parsed_tag);
157 int write_lds_events(Gedcom_write_hndl hndl, int parent, struct lds_event *lds)
160 struct lds_event* obj;
164 for (obj = lds; obj; obj = obj->next) {
165 int obj_elt = get_gedcom_elt(obj->event);
166 int lss = (obj_elt == ELT_SUB_LSS_SLGS);
167 result |= gedcom_write_element_str(hndl, obj_elt, obj->event,
169 if (obj->date_status)
170 result |= gedcom_write_element_str(hndl,
171 (lss ? ELT_SUB_LSS_SLGS_STAT :
172 ELT_SUB_LIO_BAPL_STAT), 0,
173 obj_elt, obj->date_status);
175 result |= gedcom_write_element_date(hndl,
176 (lss ? ELT_SUB_LSS_SLGS_DATE :
177 ELT_SUB_LIO_BAPL_DATE), 0,
179 if (obj->temple_code)
180 result |= gedcom_write_element_str(hndl,
181 (lss ? ELT_SUB_LSS_SLGS_TEMP :
182 ELT_SUB_LIO_BAPL_TEMP), 0,
183 obj_elt, obj->temple_code);
184 if (obj->place_living_ordinance)
185 result |= gedcom_write_element_str(hndl,
186 (lss ? ELT_SUB_LSS_SLGS_PLAC :
187 ELT_SUB_LIO_BAPL_PLAC), 0,
188 obj_elt, obj->place_living_ordinance);
190 result |= gedcom_write_element_xref(hndl, ELT_SUB_LIO_SLGC_FAMC, 0,
191 obj_elt, obj->family);
193 result |= write_citations(hndl, obj_elt, obj->citation);
195 result |= write_note_subs(hndl, obj_elt, obj->note);
197 result |= write_user_data(hndl, obj->extra);