1 /* Main file for building 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
29 #include "submitter.h"
30 #include "submission.h"
32 #include "individual.h"
33 #include "multimedia.h"
35 #include "repository.h"
41 #include "source_citation.h"
42 #include "multimedia_link.h"
44 #include "lds_event.h"
46 #include "change_date.h"
47 #include "personal_name.h"
48 #include "family_link.h"
49 #include "association.h"
50 #include "source_event.h"
51 #include "source_description.h"
53 #include "gom_internal.h"
55 const char* ctxt_names[] =
59 "header", "submission", "submitter", "family", "individual",
60 "multimedia", "note", "repository", "source", "user_rec",
62 "address", "event", "place", "source_citation", "text",
63 "note_sub", "multimedia_link", "lds_event", "user_ref_number",
64 "change_date", "personal_name", "family_link", "pedigree",
65 "association", "source_event", "source_description"
68 void gom_default_callback (Gedcom_elt elt, Gedcom_ctxt parent, int level,
69 char* tag, char* raw_value, int parsed_tag);
76 individuals_cleanup();
77 multimedias_cleanup();
79 repositories_cleanup();
87 gedcom_set_default_callback(gom_default_callback);
89 submission_subscribe();
91 individual_subscribe();
92 multimedia_subscribe();
94 repository_subscribe();
96 submitter_subscribe();
102 citation_subscribe();
103 note_sub_subscribe();
104 multimedia_link_subscribe();
105 lds_event_subscribe();
106 user_ref_subscribe();
107 change_date_subscribe();
109 family_link_subscribe();
110 association_subscribe();
111 source_event_subscribe();
112 source_description_subscribe();
114 if (atexit(gom_cleanup) != 0) {
115 gedcom_warning(_("Could not register gom cleanup function"));
121 int gom_parse_file(const char* file_name)
130 gedcom_set_compat_options(0);
131 return gedcom_parse_file(file_name);
143 return gedcom_new_model();
146 int gom_write_file(const char* file_name, int *total_conv_fails)
148 Gedcom_write_hndl hndl;
151 hndl = gedcom_write_open(file_name);
153 result = write_header(hndl);
154 result |= write_submission(hndl);
155 result |= write_submitters(hndl);
156 result |= write_individuals(hndl);
157 result |= write_families(hndl);
158 result |= write_multimedia_recs(hndl);
159 result |= write_notes(hndl);
160 result |= write_repositories(hndl);
161 result |= write_sources(hndl);
162 result |= write_user_recs(hndl);
163 result |= gedcom_write_close(hndl, total_conv_fails);
169 int gom_write_xref_list(Gedcom_write_hndl hndl,
170 Gedcom_elt elt, int tag, int parent_rec_or_elt,
171 struct xref_list* val)
174 struct xref_list* xrl;
175 for (xrl = val; xrl; xrl = xrl->next) {
176 result |= gedcom_write_element_xref(hndl, elt, tag, parent_rec_or_elt,
182 Gom_ctxt make_gom_ctxt(int ctxt_type, OBJ_TYPE obj_type, void *ctxt_ptr)
184 Gom_ctxt ctxt = (Gom_ctxt)malloc(sizeof(struct Gom_ctxt_struct));
188 ctxt->ctxt_type = ctxt_type;
189 ctxt->obj_type = obj_type;
190 ctxt->ctxt_ptr = ctxt_ptr;
195 void NULL_DESTROY(void* anything UNUSED)
199 void destroy_gom_ctxt(Gom_ctxt ctxt)
204 void gom_cast_error(const char* file, int line,
205 OBJ_TYPE expected, OBJ_TYPE found)
207 const char* expected_name = "<out-of-bounds>";
208 const char* found_name = "<out-of-bounds>";
209 if (expected < T_LAST)
210 expected_name = ctxt_names[expected];
212 found_name = ctxt_names[found];
214 "Wrong gom ctxt cast at %s, line %d: expected %s, found %s\n",
215 file, line, expected_name, found_name);
219 void gom_mem_error(const char *filename, int line)
221 gedcom_error(_("Could not allocate memory at %s, %d"), filename, line);
224 void gom_xref_already_in_use(const char *xrefstr)
226 gedcom_error(_("Cross-reference key '%s' is already in use"), xrefstr);
229 void gom_unexpected_context(const char* file, int line, OBJ_TYPE found)
231 const char* found_name = "<out-of-bounds>";
233 found_name = ctxt_names[found];
234 gedcom_warning(_("Internal error: Unexpected context at %s, line %d: %s"),
235 file, line, found_name);
238 void gom_no_context(const char* file, int line)
240 gedcom_warning(_("Internal error: No context at %s, line %d"),
244 void gom_move_error(const char* type)
246 gedcom_warning(_("Could not move struct of type %s"), type);
249 void gom_find_error(const char* type)
251 gedcom_warning(_("Could not find struct of type %s in chain"), type);
254 void gom_default_callback (Gedcom_elt elt UNUSED, Gedcom_ctxt parent UNUSED,
255 int level, char* tag, char* raw_value,
256 int parsed_tag UNUSED)
258 gedcom_warning(_("Data loss in import: \"%d %s %s\""),
259 level, tag, raw_value);
262 void def_rec_end(Gedcom_rec rec UNUSED, Gedcom_ctxt self,
263 Gedcom_val parsed_value UNUSED)
265 Gom_ctxt ctxt = (Gom_ctxt)self;
266 destroy_gom_ctxt(ctxt);
269 void def_elt_end(Gedcom_elt elt UNUSED, Gedcom_ctxt parent UNUSED,
270 Gedcom_ctxt self, Gedcom_val parsed_value UNUSED)
272 Gom_ctxt ctxt = (Gom_ctxt)self;
273 destroy_gom_ctxt(ctxt);
276 void set_xref_type(struct xref_value* xr, const char *str)
278 if (!strcasecmp(str, "FAM"))
280 else if (!strcasecmp(str, "INDI"))
281 xr->type = XREF_INDI;
282 else if (!strcasecmp(str, "NOTE"))
283 xr->type = XREF_NOTE;
284 else if (!strcasecmp(str, "OBJE"))
285 xr->type = XREF_OBJE;
286 else if (!strcasecmp(str, "REPO"))
287 xr->type = XREF_REPO;
288 else if (!strcasecmp(str, "SOUR"))
289 xr->type = XREF_SOUR;
290 else if (!strcasecmp(str, "SUBM"))
291 xr->type = XREF_SUBM;
292 else if (!strcasecmp(str, "SUBN"))
293 xr->type = XREF_SUBN;