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)
190 Gom_ctxt ctxt = (Gom_ctxt)self;
191 destroy_gom_ctxt(ctxt);
194 void def_elt_end(Gedcom_elt elt UNUSED, Gedcom_ctxt parent UNUSED,
195 Gedcom_ctxt self, Gedcom_val parsed_value UNUSED)
197 Gom_ctxt ctxt = (Gom_ctxt)self;
198 destroy_gom_ctxt(ctxt);
201 void set_xref_type(struct xref_value* xr, const char *str)
203 if (!strcasecmp(str, "FAM"))
205 else if (!strcasecmp(str, "INDI"))
206 xr->type = XREF_INDI;
207 else if (!strcasecmp(str, "NOTE"))
208 xr->type = XREF_NOTE;
209 else if (!strcasecmp(str, "OBJE"))
210 xr->type = XREF_OBJE;
211 else if (!strcasecmp(str, "REPO"))
212 xr->type = XREF_REPO;
213 else if (!strcasecmp(str, "SOUR"))
214 xr->type = XREF_SOUR;
215 else if (!strcasecmp(str, "SUBM"))
216 xr->type = XREF_SUBM;
217 else if (!strcasecmp(str, "SUBN"))
218 xr->type = XREF_SUBN;
223 char* concat_strings(NL_TYPE type, char *str1, const char *str2)
225 if (str1 != NULL && str2 != NULL) {
228 size_t len1 = strlen(str1);
229 size_t len2 = strlen(str2);
230 size_t len = len1 + len2 + 1;
233 newp = (char*) realloc(str1, len);
240 wp = memcpy (wp, str2, len2);
248 struct date_value* dup_date(struct date_value dv)
250 struct date_value* dv_ptr;
251 dv_ptr = (struct date_value*) malloc(sizeof(struct date_value));
255 memcpy(dv_ptr, &dv, sizeof(struct date_value));
260 struct age_value* dup_age(struct age_value age)
262 struct age_value* age_ptr;
263 age_ptr = (struct age_value*) malloc(sizeof(struct age_value));
267 memcpy(age_ptr, &age, sizeof(struct age_value));