gom/family_link.c

   1 /* Family link 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 "family_link.h"
  27 #include "individual.h"
  28 #include "note_sub.h"
  29 #include "user_rec.h"
  30 #include "gom.h"
  31 #include "gedcom.h"
  32 #include "gom_internal.h"
  33
  34 Gedcom_ctxt sub_fam_link_start(_ELT_PARAMS_)
  35 {
  36   Gom_ctxt ctxt = (Gom_ctxt)parent;
  37   Gom_ctxt result = NULL;
  38
  39   if (! ctxt)
  40     NO_CONTEXT;
  41   else {
  42     struct family_link *link = SUB_MAKEFUNC(family_link)();
  43     if (link) {
  44       link->family = GEDCOM_XREF_PTR(parsed_value);
  45
  46       switch (ctxt->ctxt_type) {
  47         case REC_INDI:
  48           ADDFUNC2(individual,family_link)(ctxt, elt, link); break;
  49         default:
  50           UNEXPECTED_CONTEXT(ctxt->ctxt_type);
  51       }
  52       result = MAKE_GOM_CTXT(elt, family_link, link);
  53     }
  54   }
  55
  56   return (Gedcom_ctxt)result;
  57 }
  58
  59 Gedcom_ctxt sub_fam_link_pedi_start(_ELT_PARAMS_)
  60 {
  61   Gom_ctxt ctxt = (Gom_ctxt)parent;
  62   Gom_ctxt result = NULL;
  63
  64   if (! ctxt)
  65     NO_CONTEXT;
  66   else {
  67     struct family_link *link = SAFE_CTXT_CAST(family_link, ctxt);
  68     if (link) {
  69       int err = 0;
  70       struct pedigree *ped = NULL;
  71       MAKE_CHAIN_ELT(pedigree, link->pedigree, ped);
  72       if (ped) {
  73         ped->pedigree = strdup(GEDCOM_STRING(parsed_value));
  74         if (! ped->pedigree) {
  75           MEMORY_ERROR;
  76           err = 1;
  77         }
  78       }
  79       if (! err)
  80         result = MAKE_GOM_CTXT(elt, pedigree, ped);
  81     }
  82   }
  83   return (Gedcom_ctxt)result;
  84 }
  85
  86 DEFINE_SUB_MAKEFUNC(family_link)
  87
  88 DEFINE_ADDFUNC2(family_link, note_sub, note)
  89 DEFINE_ADDFUNC2(family_link, user_data, extra)
  90
  91 void family_link_subscribe()
  92 {
  93   gedcom_subscribe_to_element(ELT_SUB_FAMC, sub_fam_link_start,
  94                               def_elt_end);
  95   gedcom_subscribe_to_element(ELT_SUB_FAMS, sub_fam_link_start,
  96                               def_elt_end);
  97   gedcom_subscribe_to_element(ELT_SUB_FAMC_PEDI, sub_fam_link_pedi_start,
  98                               def_elt_end);
  99 }
 100
 101 void CLEANFUNC(pedigree)(struct pedigree* ped)
 102 {
 103   if (ped) {
 104     SAFE_FREE(ped->pedigree);
 105   }
 106 }
 107
 108 void CLEANFUNC(family_link)(struct family_link *link)
 109 {
 110   if (link) {
 111     DESTROY_CHAIN_ELTS(pedigree, link->pedigree);
 112     DESTROY_CHAIN_ELTS(note_sub, link->note);
 113     DESTROY_CHAIN_ELTS(user_data, link->extra);
 114   }
 115 }
 116
 117 int write_pedigrees(Gedcom_write_hndl hndl, int parent, struct pedigree* ped)
 118 {
 119   int result = 0;
 120   struct pedigree* obj;
 121
 122   if (!ped) return 1;
 123
 124   for (obj = ped; obj; obj = obj->next) {
 125     result |= gedcom_write_element_str(hndl, ELT_SUB_FAMC_PEDI, 0, parent,
 126                                        obj->pedigree);
 127     if (obj->extra)
 128       result |= write_user_data(hndl, obj->extra);
 129   }
 130
 131   return result;
 132 }
 133
 134 int write_family_links(Gedcom_write_hndl hndl, int parent, LinkType type,
 135                        struct family_link *link)
 136 {
 137   int result = 0;
 138   struct family_link* obj;
 139   int elt = (type == LINK_TYPE_CHILD ? ELT_SUB_FAMC : ELT_SUB_FAMS);
 140
 141   if (!link) return 1;
 142
 143   for (obj = link; obj; obj = obj->next) {
 144     result |= gedcom_write_element_xref(hndl, elt, 0, parent,
 145                                         obj->family);
 146     if (obj->pedigree)
 147       result |= write_pedigrees(hndl, elt, obj->pedigree);
 148     if (obj->note)
 149       result |= write_note_subs(hndl, elt, obj->note);
 150     if (obj->extra)
 151       result |= write_user_data(hndl, obj->extra);
 152   }
 153
 154   return result;
 155 }