ed2ae35a41d70cc4ac452fa215e138ff4a14ab08
[gedcom-parse.git] / gom / address.c
1 /* Address 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.
5
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.
10
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.
15
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
19    02111-1307 USA.  */
20
21 /* $Id$ */
22 /* $Name$ */
23
24 #include <stdlib.h>
25 #include <string.h>
26 #include "gom_internal.h"
27 #include "header.h"
28 #include "event.h"
29 #include "address.h"
30 #include "repository.h"
31 #include "submitter.h"
32 #include "user_rec.h"
33 #include "gom.h"
34 #include "gedcom.h"
35
36 Gedcom_ctxt sub_addr_start(_ELT_PARAMS_)
37 {
38   Gom_ctxt ctxt = (Gom_ctxt)parent;
39   Gom_ctxt result = NULL;
40
41   if (!ctxt)
42     NO_CONTEXT;
43   else {
44     struct address *addr = (struct address *)malloc(sizeof(struct address));
45     if (!addr)
46       MEMORY_ERROR;
47     else {
48       memset (addr, 0, sizeof(struct address));
49       switch (ctxt->ctxt_type) {
50         case ELT_HEAD_SOUR_CORP:
51           header_add_address(ctxt, addr); break;
52         case ELT_SUB_FAM_EVT:
53         case ELT_SUB_FAM_EVT_EVEN:
54         case ELT_SUB_INDIV_ATTR:
55         case ELT_SUB_INDIV_RESI:
56         case ELT_SUB_INDIV_BIRT:
57         case ELT_SUB_INDIV_GEN:
58         case ELT_SUB_INDIV_ADOP:
59         case ELT_SUB_INDIV_EVEN:
60           event_add_address(ctxt, addr); break;
61         case REC_REPO:
62           repository_add_address(ctxt, addr); break;
63         case REC_SUBM:
64           submitter_add_address(ctxt, addr); break;
65         default:
66           UNEXPECTED_CONTEXT(ctxt->ctxt_type);
67       }
68       result = MAKE_GOM_CTXT(elt, address, addr);
69     }
70   }
71   
72   return (Gedcom_ctxt)result;
73 }
74
75 void sub_addr_end(_ELT_END_PARAMS_)
76 {
77   Gom_ctxt ctxt = (Gom_ctxt)self;
78
79   if (! ctxt)
80     NO_CONTEXT;
81   else {
82     struct address *addr = SAFE_CTXT_CAST(address, ctxt);
83     if (addr) {
84       char *str = GEDCOM_STRING(parsed_value);
85       char *newvalue = strdup(str);
86       if (! newvalue)
87         MEMORY_ERROR;
88       else
89         addr->full_label = newvalue;
90     }
91   }
92 }
93
94 Gedcom_ctxt sub_addr_cont_start(_ELT_PARAMS_)
95 {
96   Gom_ctxt ctxt = (Gom_ctxt)parent;
97   Gom_ctxt result = NULL;
98   if (! ctxt)
99     NO_CONTEXT;
100   else {
101     result = make_gom_ctxt(elt, ctxt->ctxt_type, ctxt->ctxt_ptr);
102   }
103   return (Gedcom_ctxt)result;
104 }
105
106 STRING_CB(address, sub_addr_adr1_start, line1)
107 STRING_CB(address, sub_addr_adr2_start, line2)
108 STRING_CB(address, sub_addr_city_start, city)
109 STRING_CB(address, sub_addr_stae_start, state)
110 STRING_CB(address, sub_addr_post_start, postal)
111 STRING_CB(address, sub_addr_ctry_start, country)
112
113 Gedcom_ctxt sub_phon_start(_ELT_PARAMS_)
114 {
115   Gom_ctxt ctxt = (Gom_ctxt)parent;
116   Gom_ctxt result = NULL;
117
118   if (! ctxt)
119     NO_CONTEXT;
120   else {
121     char *str = GEDCOM_STRING(parsed_value);
122     switch (ctxt->ctxt_type) {
123       case ELT_HEAD_SOUR_CORP:
124         header_add_phone(ctxt, str); break;
125       case ELT_SUB_FAM_EVT:
126       case ELT_SUB_INDIV_ATTR:
127       case ELT_SUB_INDIV_RESI:
128       case ELT_SUB_INDIV_BIRT:
129       case ELT_SUB_INDIV_GEN:
130       case ELT_SUB_INDIV_ADOP:
131       case ELT_SUB_INDIV_EVEN:
132         event_add_phone(ctxt, str); break;
133       case REC_REPO:
134         repository_add_phone(ctxt, str); break;
135       case REC_SUBM:
136         submitter_add_phone(ctxt, str); break;
137       default:
138         UNEXPECTED_CONTEXT(ctxt->ctxt_type);
139     }
140     result = make_gom_ctxt(elt, ctxt->obj_type, ctxt->ctxt_ptr);
141   }
142   return (Gedcom_ctxt)result;
143 }
144
145 void address_subscribe()
146 {
147   gedcom_subscribe_to_element(ELT_SUB_ADDR, sub_addr_start, sub_addr_end);
148   gedcom_subscribe_to_element(ELT_SUB_ADDR_CONT,
149                               sub_addr_cont_start, def_elt_end);
150   gedcom_subscribe_to_element(ELT_SUB_ADDR_ADR1,
151                               sub_addr_adr1_start, def_elt_end);
152   gedcom_subscribe_to_element(ELT_SUB_ADDR_ADR2,
153                               sub_addr_adr2_start, def_elt_end);
154   gedcom_subscribe_to_element(ELT_SUB_ADDR_CITY,
155                               sub_addr_city_start, def_elt_end);
156   gedcom_subscribe_to_element(ELT_SUB_ADDR_STAE,
157                               sub_addr_stae_start, def_elt_end);
158   gedcom_subscribe_to_element(ELT_SUB_ADDR_POST,
159                               sub_addr_post_start, def_elt_end);
160   gedcom_subscribe_to_element(ELT_SUB_ADDR_CTRY,
161                               sub_addr_ctry_start, def_elt_end);
162   gedcom_subscribe_to_element(ELT_SUB_PHON, sub_phon_start, def_elt_end);
163 }
164
165 void address_add_user_data(Gom_ctxt ctxt, struct user_data* data)
166 {
167   struct address *obj = SAFE_CTXT_CAST(address, ctxt);
168   if (obj)
169     LINK_CHAIN_ELT(user_data, obj->extra, data);
170 }
171
172 void address_cleanup(struct address *address)
173 {
174   if (address) {
175     SAFE_FREE(address->full_label);
176     SAFE_FREE(address->line1);
177     SAFE_FREE(address->line2);
178     SAFE_FREE(address->city);
179     SAFE_FREE(address->state);
180     SAFE_FREE(address->postal);
181     SAFE_FREE(address->country);
182     DESTROY_CHAIN_ELTS(user_data, address->extra, user_data_cleanup);
183   }
184   SAFE_FREE(address);
185 }