1 /* Cross-reference manipulation routines.
2 Copyright (C) 2001,2002 The Genes Development Team
3 This file is part of the Gedcom parser library.
4 Contributed by Peter Verthez <Peter.Verthez@advalvas.be>, 2001.
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
24 #include "gedcom_internal.h"
28 struct xref_value def_xref_val = { XREF_NONE, "<error>", NULL };
29 static hash_t *xrefs = NULL;
31 char* xref_type_str[] = { N_("nothing"),
35 N_("a multimedia object"),
36 N_("a source repository"),
39 N_("a submission record"),
40 N_("an application-specific record"),
44 struct xref_value xref;
45 Xref_type defined_type;
51 hnode_t *xref_alloc(void *c __attribute__((unused)))
53 return malloc(sizeof *xref_alloc(NULL));
56 void xref_free(hnode_t *n, void *c __attribute__((unused)))
58 struct xref_node *xr = (struct xref_node *)hnode_get(n);
59 free((void*)hnode_getkey(n));
60 free(xr->xref.string);
65 void clear_xref_node(struct xref_node *xr)
67 xr->xref.type = XREF_NONE;
68 /* Make sure that the 'string' member always contains a valid string */
70 xr->xref.string = strdup("");
71 if (!xr->xref.string) MEMORY_ERROR;
72 xr->xref.object = NULL;
73 xr->defined_type = XREF_NONE;
74 xr->used_type = XREF_NONE;
75 xr->defined_line = -1;
79 struct xref_node *make_xref_node()
81 struct xref_node *xr = (struct xref_node *)malloc(sizeof(struct xref_node));
83 xr->xref.string = NULL;
97 void make_xref_table()
102 /* Only register initially (if xrefs is still NULL) */
103 /* So that it is only registered once */
104 if (atexit(cleanup_xrefs) != 0) {
105 gedcom_warning(_("Could not register xref cleanup function"));
107 xrefs = hash_create(HASHCOUNT_T_MAX, NULL, NULL);
108 hash_set_allocator(xrefs, xref_alloc, xref_free, NULL);
111 int check_xref_table()
116 struct xref_node *xr;
118 /* Check for undefined and unused xrefs */
119 hash_scan_begin(&hs, xrefs);
120 while ((node = hash_scan_next(&hs))) {
121 xr = (struct xref_node *)hnode_get(node);
122 if (xr->defined_type == XREF_NONE && xr->used_type != XREF_NONE) {
123 gedcom_error(_("Cross-reference %s used on line %d is not defined"),
124 xr->xref.string, xr->used_line);
127 if (xr->used_type == XREF_NONE && xr->defined_type != XREF_NONE) {
128 gedcom_warning(_("Cross-reference %s defined on line %d is never used"),
129 xr->xref.string, xr->defined_line);
136 struct xref_value *gedcom_get_by_xref(char *key)
138 hnode_t *node = hash_lookup(xrefs, key);
140 struct xref_node *xr = (struct xref_node *)hnode_get(node);
147 struct xref_value *gedcom_parse_xref(char *raw_value,
148 Xref_ctxt ctxt, Xref_type xref_type)
150 struct xref_node *xr = NULL;
152 hnode_t *node = hash_lookup(xrefs, raw_value);
154 xr = (struct xref_node *)hnode_get(node);
157 char *key = strdup(raw_value);
159 xr = make_xref_node();
160 xr->xref.type = xref_type;
162 free(xr->xref.string);
163 xr->xref.string = strdup(raw_value);
164 if (! xr->xref.string) MEMORY_ERROR;
165 hash_alloc_insert(xrefs, key, xr);
171 if (ctxt == XREF_DEFINED && xr->defined_type == XREF_NONE) {
172 xr->defined_type = xref_type;
173 xr->defined_line = line_no;
175 else if (ctxt == XREF_USED && xr->used_type == XREF_NONE) {
176 xr->used_type = xref_type;
177 xr->used_line = line_no;
180 if ((ctxt == XREF_DEFINED && xr->defined_type != xref_type &&
181 xr->defined_type != XREF_ANY)
182 || (ctxt == XREF_USED &&
183 (xr->defined_type != XREF_NONE && xr->defined_type != xref_type &&
184 xr->defined_type != XREF_ANY))) {
185 gedcom_error(_("Cross-reference %s previously defined as pointer to %s, "
187 xr->xref.string, xref_type_str[xr->defined_type],
191 else if ((ctxt == XREF_USED && xr->used_type != xref_type)
192 || (ctxt == XREF_DEFINED &&
193 (xr->used_type != XREF_NONE && xr->used_type != xref_type))) {
194 gedcom_error(_("Cross-reference %s previously used as pointer to %s, "
196 xr->xref.string, xref_type_str[xr->used_type], xr->used_line);