gom/lds_event.c

   1 /* LDS spouse sealing 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 "lds_event.h"
  27 #include "family.h"
  28 #include "individual.h"
  29 #include "note_sub.h"
  30 #include "source_citation.h"
  31 #include "user_rec.h"
  32 #include "gom.h"
  33 #include "gedcom.h"
  34 #include "gom_internal.h"
  35
  36 Gedcom_ctxt sub_lds_event_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 lds_event *lds_evt = SUB_MAKEFUNC(lds_event)();
  45     if (lds_evt) {
  46       lds_evt->event = parsed_tag;
  47       lds_evt->event_name = strdup(tag);
  48       if (! lds_evt->event_name) {
  49         MEMORY_ERROR;
  50         free(lds_evt);
  51       }
  52       else {
  53         int type = ctxt_type(ctxt);
  54         switch (type) {
  55           case REC_FAM:
  56             ADDFUNC2(family,lds_event)(ctxt, lds_evt); break;
  57           case REC_INDI:
  58             ADDFUNC2(individual,lds_event)(ctxt, lds_evt); break;
  59           default:
  60             UNEXPECTED_CONTEXT(type);
  61         }
  62         result = MAKE_GOM_CTXT(elt, lds_event, lds_evt);
  63       }
  64     }
  65   }
  66
  67   return (Gedcom_ctxt)result;
  68 }
  69
  70 DEFINE_SUB_MAKEFUNC(lds_event)
  71 DEFINE_SUB_ADDFUNC(lds_event)
  72 DEFINE_SUB_FINDFUNC(lds_event)
  73 DEFINE_SUB_REMOVEFUNC(lds_event)
  74 DEFINE_SUB_MOVEFUNC(lds_event)
  75
  76 DEFINE_STRING_CB(lds_event, sub_lds_event_stat_start, date_status)
  77 DEFINE_DATE_CB(lds_event, sub_lds_event_date_start, date)
  78 DEFINE_STRING_CB(lds_event, sub_lds_event_temp_start, temple_code)
  79 DEFINE_STRING_CB(lds_event, sub_lds_event_plac_start, place_living_ordinance)
  80 DEFINE_XREF_CB(lds_event, sub_lds_event_famc_start, family, family)
  81
  82 DEFINE_ADDFUNC2(lds_event, note_sub, note)
  83 DEFINE_ADDFUNC2(lds_event, source_citation, citation)
  84 DEFINE_ADDFUNC2(lds_event, user_data, extra)
  85
  86 void lds_event_subscribe()
  87 {
  88   gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS,
  89                               sub_lds_event_start, def_elt_end);
  90   gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL,
  91                               sub_lds_event_start, def_elt_end);
  92   gedcom_subscribe_to_element(ELT_SUB_LIO_SLGC,
  93                               sub_lds_event_start, def_elt_end);
  94   gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS_STAT,
  95                               sub_lds_event_stat_start, def_elt_end);
  96   gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL_STAT,
  97                               sub_lds_event_stat_start, def_elt_end);
  98   gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS_DATE,
  99                               sub_lds_event_date_start, def_elt_end);
 100   gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL_DATE,
 101                               sub_lds_event_date_start, def_elt_end);
 102   gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS_TEMP,
 103                               sub_lds_event_temp_start, def_elt_end);
 104   gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL_TEMP,
 105                               sub_lds_event_temp_start, def_elt_end);
 106   gedcom_subscribe_to_element(ELT_SUB_LSS_SLGS_PLAC,
 107                               sub_lds_event_plac_start, def_elt_end);
 108   gedcom_subscribe_to_element(ELT_SUB_LIO_BAPL_PLAC,
 109                               sub_lds_event_plac_start, def_elt_end);
 110   gedcom_subscribe_to_element(ELT_SUB_LIO_SLGC_FAMC,
 111                               sub_lds_event_famc_start, def_elt_end);
 112 }
 113
 114 void UNREFALLFUNC(lds_event)(struct lds_event* obj)
 115 {
 116   if (obj) {
 117     struct lds_event* runner;
 118     for (runner = obj; runner; runner = runner->next) {
 119       unref_xref_value(runner->family);
 120       UNREFALLFUNC(source_citation)(runner->citation);
 121       UNREFALLFUNC(note_sub)(runner->note);
 122       UNREFALLFUNC(user_data)(runner->extra);
 123     }
 124   }
 125 }
 126
 127 void CLEANFUNC(lds_event)(struct lds_event* lds)
 128 {
 129   if (lds) {
 130     SAFE_FREE(lds->event_name);
 131     SAFE_FREE(lds->date_status);
 132     SAFE_FREE(lds->date);
 133     SAFE_FREE(lds->temple_code);
 134     SAFE_FREE(lds->place_living_ordinance);
 135     DESTROY_CHAIN_ELTS(source_citation, lds->citation);
 136     DESTROY_CHAIN_ELTS(note_sub, lds->note);
 137     DESTROY_CHAIN_ELTS(user_data, lds->extra);
 138   }
 139 }
 140
 141 static int get_gedcom_elt(int parsed_tag)
 142 {
 143   int obj_elt = 0;
 144   switch (parsed_tag) {
 145     case TAG_BAPL: case TAG_CONL: case TAG_ENDL:
 146       obj_elt = ELT_SUB_LIO_BAPL; break;
 147     case TAG_SLGC:
 148       obj_elt = ELT_SUB_LIO_SLGC; break;
 149     case TAG_SLGS:
 150       obj_elt = ELT_SUB_LSS_SLGS; break;
 151     default:
 152       gedcom_warning(_("Internal error: unknown evt tag %d"), parsed_tag);
 153   }
 154   return obj_elt;
 155 }
 156
 157 int write_lds_events(Gedcom_write_hndl hndl, int parent, struct lds_event *lds)
 158 {
 159   int result = 0;
 160   struct lds_event* obj;
 161
 162   if (!lds) return 1;
 163
 164   for (obj = lds; obj; obj = obj->next) {
 165     int obj_elt = get_gedcom_elt(obj->event);
 166     int lss = (obj_elt == ELT_SUB_LSS_SLGS);
 167     result |= gedcom_write_element_str(hndl, obj_elt, obj->event,
 168                                        parent, NULL);
 169     if (obj->date_status)
 170       result |= gedcom_write_element_str(hndl,
 171                                          (lss ? ELT_SUB_LSS_SLGS_STAT :
 172                                           ELT_SUB_LIO_BAPL_STAT), 0,
 173                                          obj_elt, obj->date_status);
 174     if (obj->date)
 175       result |= gedcom_write_element_date(hndl,
 176                                           (lss ? ELT_SUB_LSS_SLGS_DATE :
 177                                            ELT_SUB_LIO_BAPL_DATE), 0,
 178                                           obj_elt, obj->date);
 179     if (obj->temple_code)
 180       result |= gedcom_write_element_str(hndl,
 181                                          (lss ? ELT_SUB_LSS_SLGS_TEMP :
 182                                           ELT_SUB_LIO_BAPL_TEMP), 0,
 183                                          obj_elt, obj->temple_code);
 184     if (obj->place_living_ordinance)
 185       result |= gedcom_write_element_str(hndl,
 186                                          (lss ? ELT_SUB_LSS_SLGS_PLAC :
 187                                           ELT_SUB_LIO_BAPL_PLAC), 0,
 188                                          obj_elt, obj->place_living_ordinance);
 189     if (obj->family)
 190       result |= gedcom_write_element_xref(hndl, ELT_SUB_LIO_SLGC_FAMC, 0,
 191                                           obj_elt, obj->family);
 192     if (obj->citation)
 193       result |= write_citations(hndl, obj_elt, obj->citation);
 194     if (obj->note)
 195       result |= write_note_subs(hndl, obj_elt, obj->note);
 196     if (obj->extra)
 197       result |= write_user_data(hndl, obj->extra);
 198   }
 199
 200   return result;
 201 }