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;
33 const char* default_charset = "";
35 #define SUBMITTER_LINK "@__COMPAT__SUBM__@"
36 #define DEFAULT_SUBMITTER_NAME "Submitter"
37 #define DEFAULT_GEDCOM_VERS "5.5"
38 #define DEFAULT_GEDCOM_FORM "LINEAGE-LINKED"
45 /* Incompatibility list (with GEDCOM 5.5):
48 - no submitter record, no submitter link in the header
49 - INDI.ADDR instead of INDI.RESI.ADDR
50 - NOTE doesn't have a value
53 - no submitter record, no submitter link in the header
54 - no GEDC field in the header
55 - no CHAR field in the header
56 - HEAD.TIME instead of HEAD.DATE.TIME (will be ignored here)
57 - '@' not written as '@@' in values
58 - lots of missing required values
63 /* C_NO_SUBMITTER */ C_FTREE | C_LIFELINES,
64 /* C_INDI_ADDR */ C_FTREE,
65 /* C_NOTE_NO_VALUE */ C_FTREE,
66 /* C_NO_GEDC */ C_LIFELINES,
67 /* C_NO_CHAR */ C_LIFELINES,
68 /* C_HEAD_TIME */ C_LIFELINES,
69 /* C_NO_DOUBLE_AT */ C_LIFELINES,
70 /* C_NO_REQUIRED_VALUES */ C_LIFELINES
73 /* Compatibility handling */
75 void gedcom_set_compat_handling(int enable_compat)
77 compat_enabled = enable_compat;
80 void set_compatibility(const char* program)
82 /* Reinitialize compatibility */
87 if (! strncmp(program, "ftree", 6)) {
88 gedcom_warning(_("Enabling compatibility with 'ftree'"));
89 compatibility = C_FTREE;
91 else if (! strncmp(program, "LIFELINES", 9)) {
92 /* Matches "LIFELINES 3.0.2" */
93 gedcom_warning(_("Enabling compatibility with 'Lifelines'"));
94 compatibility = C_LIFELINES;
95 default_charset = "ANSI";
100 int compat_mode(Compat_rule rule)
102 return (compat_matrix[rule] & compatibility);
105 void compat_generate_submitter_link(Gedcom_ctxt parent)
107 struct xref_value *xr = gedcom_parse_xref(SUBMITTER_LINK, XREF_USED,
109 struct tag_struct ts;
114 self = start_element(ELT_HEAD_SUBM,
115 parent, 1, ts, SUBMITTER_LINK,
116 GEDCOM_MAKE_XREF_PTR(val1, xr));
117 end_element(ELT_HEAD_SUBM, parent, self, NULL);
120 void compat_generate_submitter()
122 struct xref_value *xr = gedcom_parse_xref(SUBMITTER_LINK, XREF_DEFINED,
124 struct tag_struct ts;
125 Gedcom_ctxt self1, self2;
127 /* first generate "0 SUBM" */
130 self1 = start_record(REC_SUBM, 0, GEDCOM_MAKE_XREF_PTR(val1, xr), ts,
131 NULL, GEDCOM_MAKE_NULL(val2));
133 /* then generate "1 NAME ..." */
136 self2 = start_element(ELT_SUBM_NAME, self1, 1, ts, DEFAULT_SUBMITTER_NAME,
137 GEDCOM_MAKE_STRING(val1, DEFAULT_SUBMITTER_NAME));
139 /* close "1 NAME ..." */
140 end_element(ELT_SUBM_NAME, self1, self2, NULL);
143 end_record(REC_SUBM, self1, NULL);
146 void compat_generate_gedcom(Gedcom_ctxt parent)
148 struct tag_struct ts;
149 Gedcom_ctxt self1, self2;
151 /* first generate "1 GEDC" */
154 self1 = start_element(ELT_HEAD_GEDC, parent, 1, ts, NULL,
155 GEDCOM_MAKE_NULL(val1));
157 /* then generate "2 VERS <DEFAULT_GEDC_VERS>" */
160 self2 = start_element(ELT_HEAD_GEDC_VERS, self1, 2, ts,
162 GEDCOM_MAKE_STRING(val1, DEFAULT_GEDCOM_VERS));
165 end_element(ELT_HEAD_GEDC_VERS, self1, self2, NULL);
167 /* then generate "2 FORM <DEFAULT_GEDCOM_FORM> */
170 self2 = start_element(ELT_HEAD_GEDC_FORM, self1, 2, ts,
172 GEDCOM_MAKE_STRING(val1, DEFAULT_GEDCOM_FORM));
175 end_element(ELT_HEAD_GEDC_FORM, self1, self2, NULL);
178 end_element(ELT_HEAD_GEDC, parent, self1, NULL);
181 int compat_generate_char(Gedcom_ctxt parent)
183 struct tag_struct ts;
187 /* first generate "1 CHAR <DEFAULT_CHAR>" */
191 /* Must strdup, because default_charset is const char */
192 charset = strdup(default_charset);
196 self1 = start_element(ELT_HEAD_CHAR, parent, 1, ts, charset,
197 GEDCOM_MAKE_STRING(val1, charset));
201 end_element(ELT_HEAD_CHAR, parent, self1, NULL);
203 if (open_conv_to_internal(default_charset) == 0)
209 Gedcom_ctxt compat_generate_resi_start(Gedcom_ctxt parent)
212 struct tag_struct ts;
216 self = start_element(ELT_SUB_INDIV_RESI, parent, 1, ts, NULL,
217 GEDCOM_MAKE_NULL(val1));
221 void compat_generate_resi_end(Gedcom_ctxt parent, Gedcom_ctxt self)
223 end_element(ELT_SUB_INDIV_RESI, parent, self, NULL);