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 Gom_ctxt make_gom_ctxt(int ctxt_type, OBJ_TYPE obj_type, void *ctxt_ptr)
120 Gom_ctxt ctxt = (Gom_ctxt)malloc(sizeof(struct Gom_ctxt_struct));
124 ctxt->ctxt_type = ctxt_type;
125 ctxt->obj_type = obj_type;
126 ctxt->ctxt_ptr = ctxt_ptr;
131 void NULL_DESTROY(void* anything UNUSED)
135 void destroy_gom_ctxt(Gom_ctxt ctxt)
140 void gom_cast_error(const char* file, int line,
141 OBJ_TYPE expected, OBJ_TYPE found)
144 "Wrong gom ctxt cast at %s, line %d: expected %d, found %d\n",
145 file, line, expected, found);
149 void gom_mem_error(const char *filename, int line)
151 gedcom_error(_("Could not allocate memory at %s, %d"), filename, line);
154 void gom_unexpected_context(const char* file, int line, OBJ_TYPE found)
156 gedcom_warning(_("Internal error: Unexpected context at %s, line %d: %d"),
160 void gom_no_context(const char* file, int line)
162 gedcom_warning(_("Internal error: No context at %s, line %d"),
166 void gom_default_callback (Gedcom_elt elt UNUSED, Gedcom_ctxt parent UNUSED,
167 int level, char* tag, char* raw_value,
168 int parsed_tag UNUSED)
170 gedcom_warning(_("Data loss in import: \"%d %s %s\""),
171 level, tag, raw_value);
174 void def_rec_end(Gedcom_rec rec UNUSED, Gedcom_ctxt self)
176 Gom_ctxt ctxt = (Gom_ctxt)self;
177 destroy_gom_ctxt(ctxt);
180 void def_elt_end(Gedcom_elt elt UNUSED, Gedcom_ctxt parent UNUSED,
181 Gedcom_ctxt self, Gedcom_val parsed_value UNUSED)
183 Gom_ctxt ctxt = (Gom_ctxt)self;
184 destroy_gom_ctxt(ctxt);
187 void set_xref_type(struct xref_value* xr, const char *str)
189 if (!strcasecmp(str, "FAM"))
191 else if (!strcasecmp(str, "INDI"))
192 xr->type = XREF_INDI;
193 else if (!strcasecmp(str, "NOTE"))
194 xr->type = XREF_NOTE;
195 else if (!strcasecmp(str, "OBJE"))
196 xr->type = XREF_OBJE;
197 else if (!strcasecmp(str, "REPO"))
198 xr->type = XREF_REPO;
199 else if (!strcasecmp(str, "SOUR"))
200 xr->type = XREF_SOUR;
201 else if (!strcasecmp(str, "SUBM"))
202 xr->type = XREF_SUBM;
203 else if (!strcasecmp(str, "SUBN"))
204 xr->type = XREF_SUBN;
209 char* concat_strings(NL_TYPE type, char *str1, const char *str2)
211 if (str1 != NULL && str2 != NULL) {
214 size_t len1 = strlen(str1);
215 size_t len2 = strlen(str2);
216 size_t len = len1 + len2 + 1;
219 newp = (char*) realloc(str1, len);
226 wp = memcpy (wp, str2, len2);
234 struct date_value* dup_date(struct date_value dv)
236 struct date_value* dv_ptr;
237 dv_ptr = (struct date_value*) malloc(sizeof(struct date_value));
241 memcpy(dv_ptr, &dv, sizeof(struct date_value));
246 struct age_value* dup_age(struct age_value age)
248 struct age_value* age_ptr;
249 age_ptr = (struct age_value*) malloc(sizeof(struct age_value));
253 memcpy(age_ptr, &age, sizeof(struct age_value));