1 /* Test program for the Gedcom library.
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
31 #include "utf8-locale.h"
33 #define OUTFILE "testgedcom.out"
36 void output(int to_stdout_too, char* format, ...)
41 vfprintf(outfile, format, ap);
51 printf("gedcom-parse test program for libgedcom\n\n");
52 printf("Usage: testgedcom [options] file\n");
54 printf(" -h Show this help text\n");
55 printf(" -nc Disable compatibility mode\n");
56 printf(" -fi Fail immediately on errors\n");
57 printf(" -fd Deferred fail on errors, but parse completely\n");
58 printf(" -fn No fail on errors\n");
59 printf(" -dg Debug setting: only libgedcom debug messages\n");
60 printf(" -da Debug setting: libgedcom + yacc debug messages\n");
61 printf(" -2 Run the test parse 2 times instead of once\n");
62 printf(" -3 Run the test parse 3 times instead of once\n");
65 Gedcom_ctxt header_start(int level, Gedcom_val xref, char *tag,
66 char *raw_value, int tag_value,
67 Gedcom_val parsed_value)
69 output(1, "Header start\n");
70 return (Gedcom_ctxt)1;
73 void header_end(Gedcom_ctxt self)
75 output(1, "Header end, context is %d\n", (int)self);
78 char family_xreftags[100][255];
81 Gedcom_ctxt family_start(int level, Gedcom_val xref, char *tag,
82 char *raw_value, int tag_value,
83 Gedcom_val parsed_value)
85 struct xref_value *xr = GEDCOM_XREF_PTR(xref);
86 output(1, "Family start, xref is %s\n", xr->string);
87 strcpy(family_xreftags[family_nr], xr->string);
88 xr->object = (Gedcom_ctxt)family_nr;
89 return (Gedcom_ctxt)(family_nr++);
92 Gedcom_ctxt rec_start(int level, Gedcom_val xref, char *tag,
93 char *raw_value, int tag_value,
94 Gedcom_val parsed_value)
96 char* xref_str = NULL;
97 if (! GEDCOM_IS_NULL(xref))
98 xref_str = GEDCOM_XREF_PTR(xref)->string;
99 output(1, "Rec %s start, xref is %s\n", tag, xref_str);
100 return (Gedcom_ctxt)tag_value;
103 Gedcom_ctxt note_start(int level, Gedcom_val xref, char *tag,
104 char *raw_value, int tag_value,
105 Gedcom_val parsed_value)
107 output(1, "== %d %s (%d) %s (xref is %s)\n",
108 level, tag, tag_value, GEDCOM_STRING(parsed_value),
109 GEDCOM_XREF_PTR(xref)->string);
110 return (Gedcom_ctxt)tag_value;
113 void family_end(Gedcom_ctxt self)
115 output(1, "Family end, xref is %s\n", family_xreftags[(int)self]);
118 Gedcom_ctxt submit_start(int level, Gedcom_val xref, char *tag,
119 char *raw_value, int tag_value,
120 Gedcom_val parsed_value)
122 output(1, "Submitter, xref is %s\n", GEDCOM_XREF_PTR(xref)->string);
123 return (Gedcom_ctxt)10000;
126 Gedcom_ctxt source_start(Gedcom_ctxt parent, int level, char *tag,
128 int tag_value, Gedcom_val parsed_value)
130 Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
131 output(1, "Source is %s (ctxt is %d, parent is %d)\n",
132 GEDCOM_STRING(parsed_value), (int) self, (int) parent);
136 void source_end(Gedcom_ctxt parent, Gedcom_ctxt self, Gedcom_val parsed_value)
138 output(1, "Source context %d in parent %d\n", (int)self, (int)parent);
141 Gedcom_ctxt source_date_start(Gedcom_ctxt parent, int level, char *tag,
143 int tag_value, Gedcom_val parsed_value)
145 struct date_value dv;
146 Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
147 dv = GEDCOM_DATE(parsed_value);
148 output(1, "Contents of the date_value:\n");
149 output(1, " raw value: %s\n", raw_value);
150 output(1, " type: %d\n", dv.type);
151 output(1, " date1:\n");
152 output(1, " calendar type: %d\n", dv.date1.cal);
153 output(1, " day: %s\n", dv.date1.day_str);
154 output(1, " month: %s\n", dv.date1.month_str);
155 output(1, " year: %s\n", dv.date1.year_str);
156 output(1, " date type: %d\n", dv.date1.type);
157 output(1, " sdn1: %ld\n", dv.date1.sdn1);
158 output(1, " sdn2: %ld\n", dv.date1.sdn2);
159 output(1, " date2:\n");
160 output(1, " calendar type: %d\n", dv.date2.cal);
161 output(1, " day: %s\n", dv.date2.day_str);
162 output(1, " month: %s\n", dv.date2.month_str);
163 output(1, " year: %s\n", dv.date2.year_str);
164 output(1, " date type: %d\n", dv.date2.type);
165 output(1, " sdn1: %ld\n", dv.date2.sdn1);
166 output(1, " sdn2: %ld\n", dv.date2.sdn2);
167 output(1, " phrase: %s\n", dv.phrase);
171 void default_cb(Gedcom_ctxt ctxt, int level, char *tag, char *raw_value,
174 char *converted = NULL;
177 converted = convert_utf8_to_locale(raw_value, &conv_fails);
178 output(0, "== %d %s (%d) %s (ctxt is %d, conversion failures: %d)\n",
179 level, tag, tag_value, converted, (int)ctxt, conv_fails);
182 void subscribe_callbacks()
184 gedcom_subscribe_to_record(REC_HEAD, header_start, header_end);
185 gedcom_subscribe_to_record(REC_FAM, family_start, family_end);
186 gedcom_subscribe_to_record(REC_INDI, rec_start, NULL);
187 gedcom_subscribe_to_record(REC_OBJE, rec_start, NULL);
188 gedcom_subscribe_to_record(REC_NOTE, note_start, NULL);
189 gedcom_subscribe_to_record(REC_REPO, rec_start, NULL);
190 gedcom_subscribe_to_record(REC_SOUR, rec_start, NULL);
191 gedcom_subscribe_to_record(REC_SUBN, rec_start, NULL);
192 gedcom_subscribe_to_record(REC_SUBM, submit_start, NULL);
193 gedcom_subscribe_to_record(REC_USER, rec_start, NULL);
194 gedcom_subscribe_to_element(ELT_HEAD_SOUR, source_start, source_end);
195 gedcom_subscribe_to_element(ELT_SOUR_DATA_EVEN_DATE,
196 source_date_start, NULL);
199 void gedcom_message_handler(Gedcom_msg_type type, char *msg)
202 output(1, "MESSAGE: ");
203 else if (type == WARNING)
204 output(1, "WARNING: ");
205 else if (type == ERROR)
206 output(1, "ERROR: ");
207 output(1, "%s\n", msg);
210 int main(int argc, char* argv[])
212 Gedcom_err_mech mech = IMMED_FAIL;
213 int compat_enabled = 1;
217 char* file_name = NULL;
221 for (i=1; i<argc; i++) {
222 if (!strncmp(argv[i], "-da", 4))
224 else if (!strncmp(argv[i], "-dg", 4))
226 else if (!strncmp(argv[i], "-fi", 4))
228 else if (!strncmp(argv[i], "-fd", 4))
230 else if (!strncmp(argv[i], "-fn", 4))
231 mech = IGNORE_ERRORS;
232 else if (!strncmp(argv[i], "-nc", 4))
234 else if (!strncmp(argv[i], "-h", 3)) {
238 else if (!strncmp(argv[i], "-2", 3)) {
241 else if (!strncmp(argv[i], "-3", 3)) {
244 else if (strncmp(argv[i], "-", 1)) {
249 printf ("Unrecognized option: %s\n", argv[i]);
257 printf("No file name given\n");
262 setlocale(LC_ALL, "");
263 gedcom_set_debug_level(debug_level, NULL);
264 gedcom_set_compat_handling(compat_enabled);
265 gedcom_set_error_handling(mech);
266 gedcom_set_message_handler(gedcom_message_handler);
267 gedcom_set_default_callback(default_cb);
269 subscribe_callbacks();
270 outfile = fopen(OUTFILE, "a");
272 printf("Could not open %s for appending\n", OUTFILE);
274 while (run_times-- > 0) {
275 output(0, "\n=== Parsing file %s\n", file_name);
276 result |= gedcom_parse_file(file_name);
280 printf("Parse succeeded\n");
284 printf("Parse failed\n");