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;
71 else if (! strncmp(program, "LIFELINES", 9)) {
72 /* Matches "LIFELINES 3.0.2" */
73 gedcom_warning(_("Enabling compatibility with 'Lifelines'"));
74 compatibility = C_LIFELINES;
75 default_charset = "ANSI";
84 int compat_mode(int compat_flags)
86 return (compat_flags & compatibility);
89 void compat_generate_submitter_link(Gedcom_ctxt parent)
91 struct xref_value *xr = gedcom_parse_xref(SUBMITTER_LINK, XREF_USED,
98 self = start_element(ELT_HEAD_SUBM,
99 parent, 1, ts, SUBMITTER_LINK,
100 GEDCOM_MAKE_XREF_PTR(val1, xr));
101 end_element(ELT_HEAD_SUBM, parent, self, NULL);
104 void compat_generate_submitter()
106 struct xref_value *xr = gedcom_parse_xref(SUBMITTER_LINK, XREF_DEFINED,
108 struct tag_struct ts;
109 Gedcom_ctxt self1, self2;
111 /* first generate "0 SUBM" */
114 self1 = start_record(REC_SUBM, 0, GEDCOM_MAKE_XREF_PTR(val1, xr), ts,
115 NULL, GEDCOM_MAKE_NULL(val2));
117 /* then generate "1 NAME ..." */
120 self2 = start_element(ELT_SUBM_NAME, self1, 1, ts, DEFAULT_SUBMITTER_NAME,
121 GEDCOM_MAKE_STRING(val1, DEFAULT_SUBMITTER_NAME));
123 /* close "1 NAME ..." */
124 end_element(ELT_SUBM_NAME, self1, self2, NULL);
127 end_record(REC_SUBM, self1);
130 void compat_generate_gedcom(Gedcom_ctxt parent)
132 struct tag_struct ts;
133 Gedcom_ctxt self1, self2;
135 /* first generate "1 GEDC" */
138 self1 = start_element(ELT_HEAD_GEDC, parent, 1, ts, NULL,
139 GEDCOM_MAKE_NULL(val1));
141 /* then generate "2 VERS <DEFAULT_GEDC_VERS>" */
144 self2 = start_element(ELT_HEAD_GEDC_VERS, self1, 2, ts,
146 GEDCOM_MAKE_STRING(val1, DEFAULT_GEDCOM_VERS));
149 end_element(ELT_HEAD_GEDC_VERS, self1, self2, NULL);
151 /* then generate "2 FORM <DEFAULT_GEDCOM_FORM> */
154 self2 = start_element(ELT_HEAD_GEDC_FORM, self1, 2, ts,
156 GEDCOM_MAKE_STRING(val1, DEFAULT_GEDCOM_FORM));
159 end_element(ELT_HEAD_GEDC_FORM, self1, self2, NULL);
162 end_element(ELT_HEAD_GEDC, parent, self1, NULL);
165 int compat_generate_char(Gedcom_ctxt parent)
167 struct tag_struct ts;
170 /* first generate "1 CHAR <DEFAULT_CHAR>" */
173 self1 = start_element(ELT_HEAD_CHAR, parent, 1, ts, default_charset,
174 GEDCOM_MAKE_STRING(val1, default_charset));
177 end_element(ELT_HEAD_CHAR, parent, self1, NULL);
178 if (open_conv_to_internal(default_charset) == 0)
184 Gedcom_ctxt compat_generate_resi_start(Gedcom_ctxt parent)
187 struct tag_struct ts;
191 self = start_element(ELT_SUB_INDIV_RESI, parent, 1, ts, NULL,
192 GEDCOM_MAKE_NULL(val1));
196 void compat_generate_resi_end(Gedcom_ctxt parent, Gedcom_ctxt self)
198 end_element(ELT_SUB_INDIV_RESI, parent, self, NULL);