gom/submitter.c

   1 /* Submitter object 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 "submitter.h"
  27 #include "address.h"
  28 #include "multimedia_link.h"
  29 #include "change_date.h"
  30 #include "user_rec.h"
  31 #include "gom.h"
  32 #include "gedcom.h"
  33 #include "gom_internal.h"
  34
  35 struct submitter* gom_first_submitter = NULL;
  36
  37 DEFINE_MAKEFUNC(submitter, gom_first_submitter)
  38 DEFINE_DESTROYFUNC(submitter, gom_first_submitter)
  39 DEFINE_ADDFUNC(submitter, XREF_SUBM)
  40 DEFINE_DELETEFUNC(submitter)
  41 DEFINE_GETXREFFUNC(submitter, XREF_SUBM)
  42 DEFINE_MAKELINKFUNC(submitter, XREF_SUBM)
  43
  44 DEFINE_REC_CB(submitter, subm_start)
  45 DEFINE_STRING_CB(submitter, subm_name_start, name)
  46 DEFINE_STRING_CB(submitter, subm_rfn_start, record_file_nr)
  47 DEFINE_STRING_CB(submitter, subm_rin_start, record_id)
  48
  49 DEFINE_ADDFUNC2(submitter, multimedia_link, mm_link)
  50 DEFINE_ADDFUNC2(submitter, user_data, extra)
  51 DEFINE_ADDFUNC2_NOLIST(submitter, address, address)
  52 DEFINE_ADDFUNC2_NOLIST(submitter, change_date, change_date)
  53 DEFINE_ADDFUNC2_STRN(submitter, phone, 3)
  54
  55 Gedcom_ctxt subm_lang_start(_ELT_PARAMS_)
  56 {
  57   Gom_ctxt ctxt = (Gom_ctxt)parent;
  58   Gom_ctxt result = NULL;
  59
  60   if (! ctxt)
  61     NO_CONTEXT;
  62   else {
  63     struct submitter *subm = SAFE_CTXT_CAST(submitter, ctxt);
  64
  65     if (subm) {
  66       int err = 0;
  67       char *str = GEDCOM_STRING(parsed_value);
  68       int i = 0;
  69
  70       while (i<2 && subm->language[i]) i++;
  71       if (! subm->language[i]) {
  72         subm->language[i] = strdup(str);
  73         if (! subm->language[i]) {
  74           MEMORY_ERROR;
  75           err = 1;
  76         }
  77       }
  78       if (! err)
  79         result = MAKE_GOM_CTXT(elt, submitter, subm);
  80     }
  81   }
  82
  83   return (Gedcom_ctxt)result;
  84 }
  85
  86 void submitter_subscribe()
  87 {
  88   gedcom_subscribe_to_record(REC_SUBM, subm_start, def_rec_end);
  89   gedcom_subscribe_to_element(ELT_SUBM_NAME, subm_name_start, def_elt_end);
  90   gedcom_subscribe_to_element(ELT_SUBM_LANG, subm_lang_start, def_elt_end);
  91   gedcom_subscribe_to_element(ELT_SUBM_RFN, subm_rfn_start, def_elt_end);
  92   gedcom_subscribe_to_element(ELT_SUBM_RIN, subm_rin_start, def_elt_end);
  93 }
  94
  95 void CLEANFUNC(submitter)(struct submitter* rec)
  96 {
  97   if (rec) {
  98     SAFE_FREE(rec->xrefstr);
  99     SAFE_FREE(rec->name);
 100     CLEANFUNC(address)(rec->address);
 101     SAFE_FREE(rec->phone[0]);
 102     SAFE_FREE(rec->phone[1]);
 103     SAFE_FREE(rec->phone[2]);
 104     DESTROY_CHAIN_ELTS(multimedia_link, rec->mm_link);
 105     SAFE_FREE(rec->language[0]);
 106     SAFE_FREE(rec->language[1]);
 107     SAFE_FREE(rec->language[2]);
 108     SAFE_FREE(rec->record_file_nr);
 109     SAFE_FREE(rec->record_id);
 110     CLEANFUNC(change_date)(rec->change_date);
 111     DESTROY_CHAIN_ELTS(user_data, rec->extra);
 112   }
 113 }
 114
 115 void submitters_cleanup()
 116 {
 117   DESTROY_CHAIN_ELTS(submitter, gom_first_submitter);
 118 }
 119
 120 struct submitter* gom_get_first_submitter()
 121 {
 122   return gom_first_submitter;
 123 }
 124
 125 int write_submitters(Gedcom_write_hndl hndl)
 126 {
 127   int result = 0;
 128   int i;
 129   struct submitter* obj;
 130
 131   for (obj = gom_first_submitter; obj; obj = obj->next) {
 132     result |= gedcom_write_record_str(hndl, REC_SUBM, obj->xrefstr, NULL);
 133     if (obj->name)
 134       result |= gedcom_write_element_str(hndl, ELT_SUBM_NAME, 0, REC_SUBM,
 135                                          obj->name);
 136     if (obj->address)
 137       result |= write_address(hndl, REC_SUBM, obj->address);
 138     for (i = 0; i < 3 && obj->phone[i]; i++)
 139       result |= gedcom_write_element_str(hndl, ELT_SUB_PHON, 0, REC_SUBM,
 140                                          obj->phone[i]);
 141     if (obj->mm_link)
 142       result |= write_multimedia_links(hndl, REC_SUBM, obj->mm_link);
 143     for (i = 0; i < 3 && obj->language[i]; i++)
 144       result |= gedcom_write_element_str(hndl, ELT_SUBM_LANG, 0, REC_SUBM,
 145                                          obj->language[i]);
 146     if (obj->record_file_nr)
 147       result |= gedcom_write_element_str(hndl, ELT_SUBM_RFN, 0, REC_SUBM,
 148                                          obj->record_file_nr);
 149     if (obj->record_id)
 150       result |= gedcom_write_element_str(hndl, ELT_SUBM_RIN, 0, REC_SUBM,
 151                                          obj->record_id);
 152     if (obj->change_date)
 153       result |= write_change_date(hndl, REC_SUBM, obj->change_date);
 154     if (obj->extra)
 155       result |= write_user_data(hndl, obj->extra);
 156   }
 157
 158   return result;
 159 }
 160