1 /* Compatibility handling for the GEDCOM parser.
2 Copyright (C) 2001, 2002 The Genes Development Team
3 This file is part of the Gedcom parser library.
4 Contributed by Peter Verthez <Peter.Verthez@advalvas.be>, 2001.
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.
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.
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
25 #include "interface.h"
28 #include "gedcom_internal.h"
31 int compat_enabled = 1;
32 int compatibility = 0;
34 char* default_charset;
36 #define SUBMITTER_LINK "@__COMPAT__SUBM__@"
37 #define DEFAULT_SUBMITTER_NAME "Submitter"
38 #define DEFAULT_GEDCOM_VERS "5.5"
39 #define DEFAULT_GEDCOM_FORM "LINEAGE-LINKED"
41 /* Incompatibility list (with GEDCOM 5.5):
44 - no submitter record, no submitter link in the header
45 - INDI.ADDR instead of INDI.RESI.ADDR
46 - NOTE doesn't have a value
49 - no submitter record, no submitter link in the header
50 - no GEDC field in the header
51 - no CHAR field in the header
52 - HEAD.TIME instead of HEAD.DATE.TIME (will be ignored here)
53 - '@' not written as '@@' in values
54 - lots of missing required values
57 /* Compatibility handling */
59 void gedcom_set_compat_handling(int enable_compat)
61 compat_enabled = enable_compat;
64 void set_compatibility(char* program)
67 if (! strncmp(program, "ftree", 6)) {
68 gedcom_warning(_("Enabling compatibility with 'ftree'"));
69 compatibility = C_FTREE;
70 default_charset = "ANSI";
72 else if (! strncmp(program, "LIFELINES", 9)) {
73 /* Matches "LIFELINES 3.0.2" */
74 gedcom_warning(_("Enabling compatibility with 'Lifelines'"));
75 compatibility = C_LIFELINES;
76 default_charset = "ANSI";
85 int compat_mode(int compat_flags)
87 return (compat_flags & compatibility);
90 void compat_generate_submitter_link(Gedcom_ctxt parent)
92 struct xref_value *xr = gedcom_parse_xref(SUBMITTER_LINK, XREF_USED,
99 self = start_element(ELT_HEAD_SUBM,
100 parent, 1, ts, SUBMITTER_LINK,
101 GEDCOM_MAKE_XREF_PTR(val1, xr));
102 end_element(ELT_HEAD_SUBM, parent, self, NULL);
105 void compat_generate_submitter()
107 struct xref_value *xr = gedcom_parse_xref(SUBMITTER_LINK, XREF_DEFINED,
109 struct tag_struct ts;
110 Gedcom_ctxt self1, self2;
112 /* first generate "0 SUBM" */
115 self1 = start_record(REC_SUBM, 0, GEDCOM_MAKE_XREF_PTR(val1, xr), ts,
116 NULL, GEDCOM_MAKE_NULL(val2));
118 /* then generate "1 NAME ..." */
121 self2 = start_element(ELT_SUBM_NAME, self1, 1, ts, DEFAULT_SUBMITTER_NAME,
122 GEDCOM_MAKE_STRING(val1, DEFAULT_SUBMITTER_NAME));
124 /* close "1 NAME ..." */
125 end_element(ELT_SUBM_NAME, self1, self2, NULL);
128 end_record(REC_SUBM, self1);
131 void compat_generate_gedcom(Gedcom_ctxt parent)
133 struct tag_struct ts;
134 Gedcom_ctxt self1, self2;
136 /* first generate "1 GEDC" */
139 self1 = start_element(ELT_HEAD_GEDC, parent, 1, ts, NULL,
140 GEDCOM_MAKE_NULL(val1));
142 /* then generate "2 VERS <DEFAULT_GEDC_VERS>" */
145 self2 = start_element(ELT_HEAD_GEDC_VERS, self1, 2, ts,
147 GEDCOM_MAKE_STRING(val1, DEFAULT_GEDCOM_VERS));
150 end_element(ELT_HEAD_GEDC_VERS, self1, self2, NULL);
152 /* then generate "2 FORM <DEFAULT_GEDCOM_FORM> */
155 self2 = start_element(ELT_HEAD_GEDC_FORM, self1, 2, ts,
157 GEDCOM_MAKE_STRING(val1, DEFAULT_GEDCOM_FORM));
160 end_element(ELT_HEAD_GEDC_FORM, self1, self2, NULL);
163 end_element(ELT_HEAD_GEDC, parent, self1, NULL);
166 int compat_generate_char(Gedcom_ctxt parent)
168 struct tag_struct ts;
171 /* first generate "1 CHAR <DEFAULT_CHAR>" */
174 self1 = start_element(ELT_HEAD_CHAR, parent, 1, ts, default_charset,
175 GEDCOM_MAKE_STRING(val1, default_charset));
178 end_element(ELT_HEAD_CHAR, parent, self1, NULL);
179 if (open_conv_to_internal(default_charset) == 0)
185 Gedcom_ctxt compat_generate_resi_start(Gedcom_ctxt parent)
188 struct tag_struct ts;
192 self = start_element(ELT_SUB_INDIV_RESI, parent, 1, ts, NULL,
193 GEDCOM_MAKE_NULL(val1));
197 void compat_generate_resi_end(Gedcom_ctxt parent, Gedcom_ctxt self)
199 end_element(ELT_SUB_INDIV_RESI, parent, self, NULL);