1 /* Header object 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 "submission.h"
27 #include "submitter.h"
32 #include "gom_internal.h"
34 struct header gom_header;
36 Gedcom_ctxt head_start(_REC_PARAMS_)
39 return (Gedcom_ctxt) MAKE_GOM_CTXT(rec, header, &gom_header);
42 STRING_CB(header, head_sour_start, source.id)
43 STRING_CB(header, head_sour_name_start, source.name)
44 STRING_CB(header, head_sour_vers_start, source.version)
45 STRING_CB(header, head_sour_corp_start, source.corporation.name)
46 STRING_CB(header, head_sour_data_start, source.data.name)
47 DATE_CB(header, head_sour_data_date_start, source.data.date)
48 STRING_CB(header, head_sour_data_copr_start, source.data.copyright)
49 STRING_CB(header, head_dest_start, destination)
50 XREF_CB(header, head_subm_start, submitter, make_submitter_record)
51 XREF_CB(header, head_subn_start, submission, make_submission_record)
52 DATE_CB(header, head_date_start, date)
53 STRING_CB(header, head_date_time_start, time)
54 STRING_CB(header, head_file_start, filename)
55 STRING_CB(header, head_copr_start, copyright)
56 NULL_CB(header, head_gedc_start)
57 STRING_CB(header, head_gedc_vers_start, gedcom.version)
58 STRING_CB(header, head_gedc_form_start, gedcom.form)
59 STRING_CB(header, head_char_start, charset.name)
60 STRING_CB(header, head_char_vers_start, charset.version)
61 STRING_CB(header, head_lang_start, language)
62 NULL_CB(header, head_plac_start)
63 STRING_CB(header, head_plac_form_start, place_hierarchy)
64 NULL_CB(header, head_note_start) /* the end callback will fill the value */
65 STRING_END_CB(header, head_note_end, note)
67 void header_add_address(Gom_ctxt ctxt, struct address* addr)
69 struct header *head = SAFE_CTXT_CAST(header, ctxt);
71 head->source.corporation.address = addr;
74 void header_add_phone(Gom_ctxt ctxt, const char* phone)
76 struct header *head = SAFE_CTXT_CAST(header, ctxt);
78 struct header_corporation *corp = &(head->source.corporation);
80 while (i<2 && corp->phone[i]) i++;
81 if (! corp->phone[i]) {
82 corp->phone[i] = strdup(phone);
83 if (! corp->phone[i]) MEMORY_ERROR;
88 void header_add_user_data(Gom_ctxt ctxt, struct user_data* data)
90 struct header *head = SAFE_CTXT_CAST(header, ctxt);
92 LINK_CHAIN_ELT(user_data, head->extra, data);
95 void header_subscribe()
97 gedcom_subscribe_to_record(REC_HEAD, head_start, def_rec_end);
98 gedcom_subscribe_to_element(ELT_HEAD_SOUR, head_sour_start, def_elt_end);
99 gedcom_subscribe_to_element(ELT_HEAD_SOUR_NAME, head_sour_name_start,
101 gedcom_subscribe_to_element(ELT_HEAD_SOUR_VERS, head_sour_vers_start,
103 gedcom_subscribe_to_element(ELT_HEAD_SOUR_CORP, head_sour_corp_start,
105 gedcom_subscribe_to_element(ELT_HEAD_SOUR_DATA, head_sour_data_start,
107 gedcom_subscribe_to_element(ELT_HEAD_SOUR_DATA_DATE,
108 head_sour_data_date_start, def_elt_end);
109 gedcom_subscribe_to_element(ELT_HEAD_SOUR_DATA_COPR,
110 head_sour_data_copr_start, def_elt_end);
111 gedcom_subscribe_to_element(ELT_HEAD_DEST, head_dest_start, def_elt_end);
112 gedcom_subscribe_to_element(ELT_HEAD_DATE, head_date_start, def_elt_end);
113 gedcom_subscribe_to_element(ELT_HEAD_DATE_TIME,
114 head_date_time_start, def_elt_end);
115 gedcom_subscribe_to_element(ELT_HEAD_SUBM, head_subm_start, def_elt_end);
116 gedcom_subscribe_to_element(ELT_HEAD_SUBN, head_subn_start, def_elt_end);
117 gedcom_subscribe_to_element(ELT_HEAD_FILE, head_file_start, def_elt_end);
118 gedcom_subscribe_to_element(ELT_HEAD_COPR, head_copr_start, def_elt_end);
119 gedcom_subscribe_to_element(ELT_HEAD_GEDC, head_gedc_start, def_elt_end);
120 gedcom_subscribe_to_element(ELT_HEAD_GEDC_VERS,
121 head_gedc_vers_start, def_elt_end);
122 gedcom_subscribe_to_element(ELT_HEAD_GEDC_FORM,
123 head_gedc_form_start, def_elt_end);
124 gedcom_subscribe_to_element(ELT_HEAD_CHAR, head_char_start, def_elt_end);
125 gedcom_subscribe_to_element(ELT_HEAD_CHAR_VERS,
126 head_char_vers_start, def_elt_end);
127 gedcom_subscribe_to_element(ELT_HEAD_LANG, head_lang_start, def_elt_end);
128 gedcom_subscribe_to_element(ELT_HEAD_PLAC, head_plac_start, def_elt_end);
129 gedcom_subscribe_to_element(ELT_HEAD_PLAC_FORM,
130 head_plac_form_start, def_elt_end);
131 gedcom_subscribe_to_element(ELT_HEAD_NOTE, head_note_start, head_note_end);
134 void header_cleanup()
136 SAFE_FREE(gom_header.source.id);
137 SAFE_FREE(gom_header.source.name);
138 SAFE_FREE(gom_header.source.version);
139 SAFE_FREE(gom_header.source.corporation.name);
140 address_cleanup(gom_header.source.corporation.address);
141 SAFE_FREE(gom_header.source.corporation.phone[0]);
142 SAFE_FREE(gom_header.source.corporation.phone[1]);
143 SAFE_FREE(gom_header.source.corporation.phone[2]);
144 SAFE_FREE(gom_header.source.data.name);
145 SAFE_FREE(gom_header.source.data.date);
146 SAFE_FREE(gom_header.source.data.copyright);
147 SAFE_FREE(gom_header.destination);
148 SAFE_FREE(gom_header.date);
149 SAFE_FREE(gom_header.time);
150 SAFE_FREE(gom_header.filename);
151 SAFE_FREE(gom_header.copyright);
152 SAFE_FREE(gom_header.gedcom.version);
153 SAFE_FREE(gom_header.gedcom.form);
154 SAFE_FREE(gom_header.charset.name);
155 SAFE_FREE(gom_header.charset.version);
156 SAFE_FREE(gom_header.language);
157 SAFE_FREE(gom_header.place_hierarchy);
158 SAFE_FREE(gom_header.note);
159 DESTROY_CHAIN_ELTS(user_data, gom_header.extra, user_data_cleanup);
162 struct header* gom_get_header()
167 int gom_header_update_timestamp(time_t t)
170 struct tm *tm_ptr = localtime(&t);
171 result |= update_date(&gom_header.date, tm_ptr);
172 result |= update_time(&gom_header.time, tm_ptr);
176 int write_header(Gedcom_write_hndl hndl)
181 result |= gedcom_write_record_str(hndl, REC_HEAD, NULL, NULL);
182 if (gom_header.charset.name)
183 result |= gedcom_write_element_str(hndl, ELT_HEAD_CHAR, 0, REC_HEAD,
184 gom_header.charset.name);
185 if (gom_header.charset.version)
186 result |= gedcom_write_element_str(hndl, ELT_HEAD_CHAR_VERS, 0,
188 gom_header.charset.version);
189 if (gom_header.source.id)
190 result |= gedcom_write_element_str(hndl, ELT_HEAD_SOUR, 0, REC_HEAD,
191 gom_header.source.id);
192 if (gom_header.source.name)
193 result |= gedcom_write_element_str(hndl, ELT_HEAD_SOUR_NAME, 0,
195 gom_header.source.name);
196 if (gom_header.source.version)
197 result |= gedcom_write_element_str(hndl, ELT_HEAD_SOUR_VERS, 0,
199 gom_header.source.version);
200 if (gom_header.source.corporation.name)
201 result |= gedcom_write_element_str(hndl, ELT_HEAD_SOUR_CORP, 0,
203 gom_header.source.corporation.name);
204 if (gom_header.source.corporation.address)
205 result |= write_address(hndl, ELT_HEAD_SOUR_CORP,
206 gom_header.source.corporation.address);
207 for (i = 0; i < 3 && gom_header.source.corporation.phone[i]; i++)
208 result |= gedcom_write_element_str(hndl, ELT_SUB_PHON, 0, ELT_HEAD_SOUR_CORP,
209 gom_header.source.corporation.phone[i]);
210 if (gom_header.source.data.name)
211 result |= gedcom_write_element_str(hndl, ELT_HEAD_SOUR_DATA, 0,
213 gom_header.source.data.name);
214 if (gom_header.source.data.date)
215 result |= gedcom_write_element_date(hndl, ELT_HEAD_SOUR_DATA_DATE, 0,
217 gom_header.source.data.date);
218 if (gom_header.source.data.copyright)
219 result |= gedcom_write_element_str(hndl, ELT_HEAD_SOUR_DATA_COPR, 0,
221 gom_header.source.data.copyright);
222 if (gom_header.destination)
223 result |= gedcom_write_element_str(hndl, ELT_HEAD_DEST, 0, REC_HEAD,
224 gom_header.destination);
226 result |= gedcom_write_element_date(hndl, ELT_HEAD_DATE, 0, REC_HEAD,
229 result |= gedcom_write_element_str(hndl, ELT_HEAD_DATE_TIME, 0,
230 ELT_HEAD_DATE, gom_header.time);
231 if (gom_header.submitter)
232 result |= gedcom_write_element_xref(hndl, ELT_HEAD_SUBM, 0, REC_HEAD,
233 gom_header.submitter);
234 if (gom_header.submission)
235 result |= gedcom_write_element_xref(hndl, ELT_HEAD_SUBN, 0, REC_HEAD,
236 gom_header.submission);
237 if (gom_header.filename)
238 result |= gedcom_write_element_str(hndl, ELT_HEAD_FILE, 0, REC_HEAD,
239 gom_header.filename);
240 if (gom_header.copyright)
241 result |= gedcom_write_element_str(hndl, ELT_HEAD_COPR, 0, REC_HEAD,
242 gom_header.copyright);
243 result |= gedcom_write_element_str(hndl, ELT_HEAD_GEDC, 0, REC_HEAD,
245 if (gom_header.gedcom.version)
246 result |= gedcom_write_element_str(hndl, ELT_HEAD_GEDC_VERS, 0,
248 gom_header.gedcom.version);
249 if (gom_header.gedcom.form)
250 result |= gedcom_write_element_str(hndl, ELT_HEAD_GEDC_FORM, 0,
252 gom_header.gedcom.form);
253 if (gom_header.language)
254 result |= gedcom_write_element_str(hndl, ELT_HEAD_LANG, 0,
256 gom_header.language);
257 if (gom_header.place_hierarchy) {
258 result |= gedcom_write_element_str(hndl, ELT_HEAD_PLAC, 0, REC_HEAD,
260 result |= gedcom_write_element_str(hndl, ELT_HEAD_PLAC_FORM, 0,
262 gom_header.place_hierarchy);
265 result |= gedcom_write_element_str(hndl, ELT_HEAD_NOTE, 0,
268 if (gom_header.extra)
269 result |= write_user_data(hndl, gom_header.extra);