gom/submission.c

   1 /* Submission 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 "submission.h"
  27 #include "submitter.h"
  28 #include "user_rec.h"
  29 #include "gom.h"
  30 #include "gedcom.h"
  31 #include "gom_internal.h"
  32
  33 struct submission* gom_submission = NULL;
  34
  35 DEFINE_REC_CB(submission, subn_start)
  36 DEFINE_XREF_CB(submission, subn_subm_start, submitter, submitter)
  37 DEFINE_STRING_CB(submission, subn_famf_start, family_file)
  38 DEFINE_STRING_CB(submission, subn_temp_start, temple_code)
  39 DEFINE_STRING_CB(submission, subn_ance_start, nr_of_ancestor_gens)
  40 DEFINE_STRING_CB(submission, subn_desc_start, nr_of_descendant_gens)
  41 DEFINE_STRING_CB(submission, subn_ordi_start, ordinance_process_flag)
  42 DEFINE_STRING_CB(submission, subn_rin_start, record_id)
  43
  44 DEFINE_ADDFUNC2(submission, user_data, extra)
  45
  46 void submission_subscribe()
  47 {
  48   gedcom_subscribe_to_record(REC_SUBN, subn_start, def_rec_end);
  49   gedcom_subscribe_to_element(ELT_SUBN_SUBM, subn_subm_start, def_elt_end);
  50   gedcom_subscribe_to_element(ELT_SUBN_FAMF, subn_famf_start, def_elt_end);
  51   gedcom_subscribe_to_element(ELT_SUBN_TEMP, subn_temp_start, def_elt_end);
  52   gedcom_subscribe_to_element(ELT_SUBN_ANCE, subn_ance_start, def_elt_end);
  53   gedcom_subscribe_to_element(ELT_SUBN_DESC, subn_desc_start, def_elt_end);
  54   gedcom_subscribe_to_element(ELT_SUBN_ORDI, subn_ordi_start, def_elt_end);
  55   gedcom_subscribe_to_element(ELT_SUBN_RIN, subn_rin_start, def_elt_end);
  56 }
  57
  58 void UNREFALLFUNC(submission)()
  59 {
  60   if (gom_submission) {
  61     unref_xref_value(gom_submission->submitter);
  62     UNREFALLFUNC(user_data)(gom_submission->extra);
  63   }
  64 }
  65
  66 void CLEANFUNC(submission)()
  67 {
  68   if (gom_submission) {
  69     SAFE_FREE(gom_submission->xrefstr);
  70     SAFE_FREE(gom_submission->family_file);
  71     SAFE_FREE(gom_submission->temple_code);
  72     SAFE_FREE(gom_submission->nr_of_ancestor_gens);
  73     SAFE_FREE(gom_submission->nr_of_descendant_gens);
  74     SAFE_FREE(gom_submission->ordinance_process_flag);
  75     SAFE_FREE(gom_submission->record_id);
  76     DESTROY_CHAIN_ELTS(user_data, gom_submission->extra);
  77   }
  78 }
  79
  80 struct submission* gom_get_submission()
  81 {
  82   return gom_submission;
  83 }
  84
  85 struct submission* MAKEFUNC(submission)(const char* xref)
  86 {
  87   if (! gom_submission) {
  88     gom_submission = (struct submission*)malloc(sizeof(struct submission));
  89     if (! gom_submission)
  90       MEMORY_ERROR;
  91     else {
  92       memset(gom_submission, 0, sizeof(struct submission));
  93       gom_submission->xrefstr = strdup(xref);
  94       if (!gom_submission->xrefstr) MEMORY_ERROR;
  95     }
  96   }
  97
  98   return gom_submission;
  99 }
 100
 101 void DESTROYFUNC(submission)()
 102 {
 103   if (gom_submission) {
 104     submission_cleanup();
 105     SAFE_FREE(gom_submission);
 106   }
 107 }
 108
 109 struct submission* ADDFUNC(submission)(const char* xrefstr)
 110 {
 111   if (!gom_submission) {
 112     struct xref_value* xrv = gedcom_get_by_xref(xrefstr);
 113     if (xrv)
 114       gom_xref_already_in_use(xrefstr);
 115     else {
 116       gom_submission = MAKEFUNC(submission)(xrefstr);
 117       if (gom_submission) {
 118         xrv = gedcom_add_xref(XREF_SUBN, xrefstr, gom_submission);
 119         if (!xrv) {
 120           DESTROYFUNC(submission)(gom_submission);
 121           gom_submission = NULL;
 122         }
 123       }
 124     }
 125     return gom_submission;
 126   }
 127   else
 128     return NULL;
 129 }
 130
 131 int DELETEFUNC(submission)()
 132 {
 133   int result = 1;
 134   if (gom_submission) {
 135     result = gedcom_delete_xref(gom_submission->xrefstr);
 136     if (result == 0) {
 137       UNREFALLFUNC(submission)();
 138       DESTROYFUNC(submission)();
 139     }
 140   }
 141   return result;
 142 }
 143
 144 int write_submission(Gedcom_write_hndl hndl)
 145 {
 146   int result = 0;
 147
 148   if (gom_submission) {
 149     result |= gedcom_write_record_str(hndl, REC_SUBN,
 150                                       gom_submission->xrefstr, NULL);
 151     if (gom_submission->submitter)
 152       result |= gedcom_write_element_xref(hndl, ELT_SUBN_SUBM, 0,
 153                                           REC_SUBN, gom_submission->submitter);
 154     if (gom_submission->family_file)
 155       result |= gedcom_write_element_str(hndl, ELT_SUBN_FAMF, 0, REC_SUBN,
 156                                          gom_submission->family_file);
 157     if (gom_submission->temple_code)
 158       result |= gedcom_write_element_str(hndl, ELT_SUBN_TEMP, 0, REC_SUBN,
 159                                          gom_submission->temple_code);
 160     if (gom_submission->nr_of_ancestor_gens)
 161       result |= gedcom_write_element_str(hndl, ELT_SUBN_ANCE, 0, REC_SUBN,
 162                                          gom_submission->nr_of_ancestor_gens);
 163     if (gom_submission->nr_of_descendant_gens)
 164       result |= gedcom_write_element_str(hndl, ELT_SUBN_DESC, 0, REC_SUBN,
 165                                         gom_submission->nr_of_descendant_gens);
 166     if (gom_submission->ordinance_process_flag)
 167       result |= gedcom_write_element_str(hndl, ELT_SUBN_ORDI, 0, REC_SUBN,
 168                                       gom_submission->ordinance_process_flag);
 169     if (gom_submission->record_id)
 170       result |= gedcom_write_element_str(hndl, ELT_SUBN_RIN, 0, REC_SUBN,
 171                                          gom_submission->record_id);
 172     if (gom_submission->extra)
 173       result |= write_user_data(hndl, gom_submission->extra);
 174   }
 175
 176   return result;
 177 }