gom/header.c

   1 /* Header 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 "header.h"
  25 #include "submission.h"
  26 #include "submitter.h"
  27 #include "address.h"
  28 #include "user_rec.h"
  29 #include "gom.h"
  30 #include "gedcom.h"
  31 #include "gom_internal.h"
  32
  33 struct header gom_header;
  34
  35 Gedcom_ctxt head_start(_REC_PARAMS_)
  36 {
  37   /* Nothing special */
  38   return (Gedcom_ctxt) MAKE_GOM_CTXT(rec, header, &gom_header);
  39 }
  40
  41 STRING_CB(header, head_sour_start, source.id)
  42 STRING_CB(header, head_sour_name_start, source.name)
  43 STRING_CB(header, head_sour_vers_start, source.version)
  44 STRING_CB(header, head_sour_corp_start, source.corporation.name)
  45 STRING_CB(header, head_sour_data_start, source.data.name)
  46 DATE_CB(header, head_sour_data_date_start, source.data.date)
  47 STRING_CB(header, head_sour_data_copr_start, source.data.copyright)
  48 STRING_CB(header, head_dest_start, destination)
  49 XREF_CB(header, head_subm_start, submitter, make_submitter_record)
  50 XREF_CB(header, head_subn_start, submission, make_submission_record)
  51 DATE_CB(header, head_date_start, date)
  52 STRING_CB(header, head_date_time_start, time)
  53 STRING_CB(header, head_file_start, filename)
  54 STRING_CB(header, head_copr_start, copyright)
  55 NULL_CB(header, head_gedc_start)
  56 STRING_CB(header, head_gedc_vers_start, gedcom.version)
  57 STRING_CB(header, head_gedc_form_start, gedcom.form)
  58 STRING_CB(header, head_char_start, charset.name)
  59 STRING_CB(header, head_char_vers_start, charset.version)
  60 STRING_CB(header, head_lang_start, language)
  61 NULL_CB(header, head_plac_start)
  62 STRING_CB(header, head_plac_form_start, place_hierarchy)
  63 STRING_CB(header, head_note_start, note)
  64
  65 void header_add_address(Gom_ctxt ctxt, struct address* addr)
  66 {
  67   struct header *head = SAFE_CTXT_CAST(header, ctxt);
  68   head->source.corporation.address = addr;
  69 }
  70
  71 void header_add_phone(Gom_ctxt ctxt, char* phone)
  72 {
  73   struct header *head = SAFE_CTXT_CAST(header, ctxt);
  74   struct header_corporation *corp = &(head->source.corporation);
  75   if (! corp->phone[0])
  76     corp->phone[0] = strdup(phone);
  77   else if (! corp->phone[1])
  78     corp->phone[1] = strdup(phone);
  79   else if (! corp->phone[2])
  80     corp->phone[2] = strdup(phone);
  81 }
  82
  83 void header_add_to_note(NL_TYPE type, Gom_ctxt ctxt, char* str)
  84 {
  85   struct header *head = SAFE_CTXT_CAST(header, ctxt);
  86   head->note = concat_strings (type, head->note, str);
  87 }
  88
  89 void header_add_user_data(Gom_ctxt ctxt, struct user_data* data)
  90 {
  91   struct header *head = SAFE_CTXT_CAST(header, ctxt);
  92   LINK_CHAIN_ELT(user_data, head->extra, data)
  93 }
  94
  95 void header_subscribe()
  96 {
  97   gedcom_subscribe_to_record(REC_HEAD, head_start, def_rec_end);
  98   gedcom_subscribe_to_element(ELT_HEAD_SOUR, head_sour_start, def_elt_end);
  99   gedcom_subscribe_to_element(ELT_HEAD_SOUR_NAME, head_sour_name_start,
 100                               def_elt_end);
 101   gedcom_subscribe_to_element(ELT_HEAD_SOUR_VERS, head_sour_vers_start,
 102                               def_elt_end);
 103   gedcom_subscribe_to_element(ELT_HEAD_SOUR_CORP, head_sour_corp_start,
 104                               def_elt_end);
 105   gedcom_subscribe_to_element(ELT_HEAD_SOUR_DATA, head_sour_data_start,
 106                               def_elt_end);
 107   gedcom_subscribe_to_element(ELT_HEAD_SOUR_DATA_DATE,
 108                               head_sour_data_date_start, def_elt_end);
 109   gedcom_subscribe_to_element(ELT_HEAD_SOUR_DATA_COPR,
 110                               head_sour_data_copr_start, def_elt_end);
 111   gedcom_subscribe_to_element(ELT_HEAD_DEST, head_dest_start, def_elt_end);
 112   gedcom_subscribe_to_element(ELT_HEAD_DATE, head_date_start, def_elt_end);
 113   gedcom_subscribe_to_element(ELT_HEAD_DATE_TIME,
 114                               head_date_time_start, def_elt_end);
 115   gedcom_subscribe_to_element(ELT_HEAD_SUBM, head_subm_start, def_elt_end);
 116   gedcom_subscribe_to_element(ELT_HEAD_SUBN, head_subn_start, def_elt_end);
 117   gedcom_subscribe_to_element(ELT_HEAD_FILE, head_file_start, def_elt_end);
 118   gedcom_subscribe_to_element(ELT_HEAD_COPR, head_copr_start, def_elt_end);
 119   gedcom_subscribe_to_element(ELT_HEAD_GEDC, head_gedc_start, def_elt_end);
 120   gedcom_subscribe_to_element(ELT_HEAD_GEDC_VERS,
 121                               head_gedc_vers_start, def_elt_end);
 122   gedcom_subscribe_to_element(ELT_HEAD_GEDC_FORM,
 123                               head_gedc_form_start, def_elt_end);
 124   gedcom_subscribe_to_element(ELT_HEAD_CHAR, head_char_start, def_elt_end);
 125   gedcom_subscribe_to_element(ELT_HEAD_CHAR_VERS,
 126                               head_char_vers_start, def_elt_end);
 127   gedcom_subscribe_to_element(ELT_HEAD_LANG, head_lang_start, def_elt_end);
 128   gedcom_subscribe_to_element(ELT_HEAD_PLAC, head_plac_start, def_elt_end);
 129   gedcom_subscribe_to_element(ELT_HEAD_PLAC_FORM,
 130                               head_plac_form_start, def_elt_end);
 131   gedcom_subscribe_to_element(ELT_HEAD_NOTE, head_note_start, def_elt_end);
 132 }
 133
 134 void header_cleanup()
 135 {
 136   SAFE_FREE(gom_header.source.id);
 137   SAFE_FREE(gom_header.source.name);
 138   SAFE_FREE(gom_header.source.version);
 139   SAFE_FREE(gom_header.source.corporation.name);
 140   address_cleanup(gom_header.source.corporation.address);
 141   SAFE_FREE(gom_header.source.corporation.phone[0]);
 142   SAFE_FREE(gom_header.source.corporation.phone[1]);
 143   SAFE_FREE(gom_header.source.corporation.phone[2]);
 144   SAFE_FREE(gom_header.source.data.name);
 145   SAFE_FREE(gom_header.source.data.date);
 146   SAFE_FREE(gom_header.source.data.copyright);
 147   SAFE_FREE(gom_header.destination);
 148   SAFE_FREE(gom_header.date);
 149   SAFE_FREE(gom_header.time);
 150   SAFE_FREE(gom_header.filename);
 151   SAFE_FREE(gom_header.copyright);
 152   SAFE_FREE(gom_header.gedcom.version);
 153   SAFE_FREE(gom_header.gedcom.form);
 154   SAFE_FREE(gom_header.charset.name);
 155   SAFE_FREE(gom_header.charset.version);
 156   SAFE_FREE(gom_header.language);
 157   SAFE_FREE(gom_header.place_hierarchy);
 158   SAFE_FREE(gom_header.note);
 159   DESTROY_CHAIN_ELTS(user_data, gom_header.extra, user_data_cleanup)
 160 }
 161
 162 struct header* gom_get_header()
 163 {
 164   return &gom_header;
 165 }