1 /* Note sub-structure in 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
27 #include "source_citation.h"
31 #include "change_date.h"
36 #include "gom_internal.h"
38 struct note* gom_first_note = NULL;
40 Gedcom_ctxt note_start(_REC_PARAMS_)
42 Gom_ctxt result = NULL;
43 struct xref_value* xr = GEDCOM_XREF_PTR(xref);
44 struct note* note = (struct note*) xr->object;
46 note = make_note_record(xr->string);
47 xr->object = (Gedcom_ctxt) note;
50 note->text = strdup(GEDCOM_STRING(parsed_value));
54 result = MAKE_GOM_CTXT(rec, note, xr->object);
56 return (Gedcom_ctxt)result;
59 void note_end(_REC_END_PARAMS_)
61 Gom_ctxt ctxt = (Gom_ctxt)self;
66 struct note *note = SAFE_CTXT_CAST(note, ctxt);
68 char *str = GEDCOM_STRING(parsed_value);
69 char *newvalue = strdup(str);
73 note->text = newvalue;
78 GET_REC_BY_XREF(note, XREF_NOTE, gom_get_note_by_xref)
80 Gedcom_ctxt sub_cont_conc_start(_ELT_PARAMS_)
82 Gom_ctxt ctxt = (Gom_ctxt)parent;
83 Gom_ctxt result = NULL;
88 result = make_gom_ctxt(elt, ctxt->obj_type, ctxt->ctxt_ptr);
90 return (Gedcom_ctxt)result;
95 gedcom_subscribe_to_record(REC_NOTE, note_start, note_end);
96 gedcom_subscribe_to_element(ELT_SUB_CONT, sub_cont_conc_start, def_elt_end);
97 gedcom_subscribe_to_element(ELT_SUB_CONC, sub_cont_conc_start, def_elt_end);
100 void note_add_citation(Gom_ctxt ctxt, struct source_citation* cit)
102 struct note *note = SAFE_CTXT_CAST(note, ctxt);
104 LINK_CHAIN_ELT(source_citation, note->citation, cit);
107 void note_add_user_ref(Gom_ctxt ctxt, struct user_ref_number* ref)
109 struct note *note = SAFE_CTXT_CAST(note, ctxt);
111 LINK_CHAIN_ELT(user_ref_number, note->ref, ref);
114 void note_set_record_id(Gom_ctxt ctxt, const char *rin)
116 struct note *note = SAFE_CTXT_CAST(note, ctxt);
118 note->record_id = strdup(rin);
119 if (! note->record_id) MEMORY_ERROR;
123 void note_set_change_date(Gom_ctxt ctxt, struct change_date* chan)
125 struct note *note = SAFE_CTXT_CAST(note, ctxt);
127 note->change_date = chan;
130 void note_add_user_data(Gom_ctxt ctxt, struct user_data* data)
132 struct note *obj = SAFE_CTXT_CAST(note, ctxt);
134 LINK_CHAIN_ELT(user_data, obj->extra, data);
137 void note_cleanup(struct note* note)
140 SAFE_FREE(note->xrefstr);
141 SAFE_FREE(note->text);
142 DESTROY_CHAIN_ELTS(source_citation, note->citation, citation_cleanup);
143 DESTROY_CHAIN_ELTS(user_ref_number, note->ref, user_ref_cleanup);
144 SAFE_FREE(note->record_id);
145 change_date_cleanup(note->change_date);
146 DESTROY_CHAIN_ELTS(user_data, note->extra, user_data_cleanup);
152 DESTROY_CHAIN_ELTS(note, gom_first_note, note_cleanup);
155 struct note* gom_get_first_note()
157 return gom_first_note;
160 struct note* make_note_record(const char* xrefstr)
162 struct note* note = NULL;
163 MAKE_CHAIN_ELT(note, gom_first_note, note);
165 note->xrefstr = strdup(xrefstr);
166 if (! note->xrefstr) MEMORY_ERROR;