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 void gom_default_callback (Gedcom_elt elt, Gedcom_ctxt parent, int level,
56 char* tag, char* raw_value, int parsed_tag);
63 individuals_cleanup();
64 multimedias_cleanup();
66 repositories_cleanup();
74 gedcom_set_default_callback(gom_default_callback);
76 submission_subscribe();
78 individual_subscribe();
79 multimedia_subscribe();
81 repository_subscribe();
83 submitter_subscribe();
91 multimedia_link_subscribe();
92 lds_event_subscribe();
94 change_date_subscribe();
96 family_link_subscribe();
97 association_subscribe();
98 source_event_subscribe();
99 source_description_subscribe();
101 if (atexit(gom_cleanup) != 0) {
102 gedcom_warning(_("Could not register gom cleanup function"));
106 int gom_parse_file(const char* file_name)
109 return gedcom_parse_file(file_name);
115 return gedcom_new_model();
118 int gom_write_file(const char* file_name, int *total_conv_fails)
120 Gedcom_write_hndl hndl;
123 hndl = gedcom_write_open(file_name);
125 result = write_header(hndl);
126 result |= gedcom_write_close(hndl, total_conv_fails);
132 Gom_ctxt make_gom_ctxt(int ctxt_type, OBJ_TYPE obj_type, void *ctxt_ptr)
134 Gom_ctxt ctxt = (Gom_ctxt)malloc(sizeof(struct Gom_ctxt_struct));
138 ctxt->ctxt_type = ctxt_type;
139 ctxt->obj_type = obj_type;
140 ctxt->ctxt_ptr = ctxt_ptr;
145 void NULL_DESTROY(void* anything UNUSED)
149 void destroy_gom_ctxt(Gom_ctxt ctxt)
154 void gom_cast_error(const char* file, int line,
155 OBJ_TYPE expected, OBJ_TYPE found)
158 "Wrong gom ctxt cast at %s, line %d: expected %d, found %d\n",
159 file, line, expected, found);
163 void gom_mem_error(const char *filename, int line)
165 gedcom_error(_("Could not allocate memory at %s, %d"), filename, line);
168 void gom_unexpected_context(const char* file, int line, OBJ_TYPE found)
170 gedcom_warning(_("Internal error: Unexpected context at %s, line %d: %d"),
174 void gom_no_context(const char* file, int line)
176 gedcom_warning(_("Internal error: No context at %s, line %d"),
180 void gom_default_callback (Gedcom_elt elt UNUSED, Gedcom_ctxt parent UNUSED,
181 int level, char* tag, char* raw_value,
182 int parsed_tag UNUSED)
184 gedcom_warning(_("Data loss in import: \"%d %s %s\""),
185 level, tag, raw_value);
188 void def_rec_end(Gedcom_rec rec UNUSED, Gedcom_ctxt self,
189 Gedcom_val parsed_value UNUSED)
191 Gom_ctxt ctxt = (Gom_ctxt)self;
192 destroy_gom_ctxt(ctxt);
195 void def_elt_end(Gedcom_elt elt UNUSED, Gedcom_ctxt parent UNUSED,
196 Gedcom_ctxt self, Gedcom_val parsed_value UNUSED)
198 Gom_ctxt ctxt = (Gom_ctxt)self;
199 destroy_gom_ctxt(ctxt);
202 void set_xref_type(struct xref_value* xr, const char *str)
204 if (!strcasecmp(str, "FAM"))
206 else if (!strcasecmp(str, "INDI"))
207 xr->type = XREF_INDI;
208 else if (!strcasecmp(str, "NOTE"))
209 xr->type = XREF_NOTE;
210 else if (!strcasecmp(str, "OBJE"))
211 xr->type = XREF_OBJE;
212 else if (!strcasecmp(str, "REPO"))
213 xr->type = XREF_REPO;
214 else if (!strcasecmp(str, "SOUR"))
215 xr->type = XREF_SOUR;
216 else if (!strcasecmp(str, "SUBM"))
217 xr->type = XREF_SUBM;
218 else if (!strcasecmp(str, "SUBN"))
219 xr->type = XREF_SUBN;
224 struct date_value* dup_date(struct date_value dv)
226 struct date_value* dv_ptr;
227 dv_ptr = (struct date_value*) malloc(sizeof(struct date_value));
231 memcpy(dv_ptr, &dv, sizeof(struct date_value));
236 struct age_value* dup_age(struct age_value age)
238 struct age_value* age_ptr;
239 age_ptr = (struct age_value*) malloc(sizeof(struct age_value));
243 memcpy(age_ptr, &age, sizeof(struct age_value));