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"
37 void output(int to_stdout_too, char* format, ...)
42 vfprintf(outfile, format, ap);
44 if (to_stdout_too && !quiet) {
52 printf("gedcom-parse test program for libgedcom\n\n");
53 printf("Usage: testgedcom [options] file\n");
55 printf(" -h Show this help text\n");
56 printf(" -nc Disable compatibility mode\n");
57 printf(" -fi Fail immediately on errors\n");
58 printf(" -fd Deferred fail on errors, but parse completely\n");
59 printf(" -fn No fail on errors\n");
60 printf(" -dg Debug setting: only libgedcom debug messages\n");
61 printf(" -da Debug setting: libgedcom + yacc debug messages\n");
62 printf(" -2 Run the test parse 2 times instead of once\n");
63 printf(" -3 Run the test parse 3 times instead of once\n");
64 printf(" -q No output to standard output\n");
67 Gedcom_ctxt header_start(int level, Gedcom_val xref, char *tag,
68 char *raw_value, int tag_value,
69 Gedcom_val parsed_value)
71 output(1, "Header start\n");
72 return (Gedcom_ctxt)1;
75 void header_end(Gedcom_ctxt self)
77 output(1, "Header end, context is %d\n", (int)self);
80 char family_xreftags[100][255];
83 Gedcom_ctxt family_start(int level, Gedcom_val xref, char *tag,
84 char *raw_value, int tag_value,
85 Gedcom_val parsed_value)
87 struct xref_value *xr = GEDCOM_XREF_PTR(xref);
88 output(1, "Family start, xref is %s\n", xr->string);
89 strcpy(family_xreftags[family_nr], xr->string);
90 xr->object = (Gedcom_ctxt)family_nr;
91 return (Gedcom_ctxt)(family_nr++);
94 Gedcom_ctxt rec_start(int level, Gedcom_val xref, char *tag,
95 char *raw_value, int tag_value,
96 Gedcom_val parsed_value)
98 char* xref_str = NULL;
99 if (! GEDCOM_IS_NULL(xref))
100 xref_str = GEDCOM_XREF_PTR(xref)->string;
101 output(1, "Rec %s start, xref is %s\n", tag, xref_str);
102 return (Gedcom_ctxt)tag_value;
105 Gedcom_ctxt note_start(int level, Gedcom_val xref, char *tag,
106 char *raw_value, int tag_value,
107 Gedcom_val parsed_value)
109 output(1, "== %d %s (%d) %s (xref is %s)\n",
110 level, tag, tag_value, GEDCOM_STRING(parsed_value),
111 GEDCOM_XREF_PTR(xref)->string);
112 return (Gedcom_ctxt)tag_value;
115 void family_end(Gedcom_ctxt self)
117 output(1, "Family end, xref is %s\n", family_xreftags[(int)self]);
120 Gedcom_ctxt submit_start(int level, Gedcom_val xref, char *tag,
121 char *raw_value, int tag_value,
122 Gedcom_val parsed_value)
124 output(1, "Submitter, xref is %s\n", GEDCOM_XREF_PTR(xref)->string);
125 return (Gedcom_ctxt)10000;
128 Gedcom_ctxt source_start(Gedcom_ctxt parent, int level, char *tag,
130 int tag_value, Gedcom_val parsed_value)
132 Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
133 output(1, "Source is %s (ctxt is %d, parent is %d)\n",
134 GEDCOM_STRING(parsed_value), (int) self, (int) parent);
138 void source_end(Gedcom_ctxt parent, Gedcom_ctxt self, Gedcom_val parsed_value)
140 output(1, "Source context %d in parent %d\n", (int)self, (int)parent);
143 Gedcom_ctxt source_date_start(Gedcom_ctxt parent, int level, char *tag,
145 int tag_value, Gedcom_val parsed_value)
147 struct date_value dv;
148 Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
149 dv = GEDCOM_DATE(parsed_value);
150 output(1, "Contents of the date_value:\n");
151 output(1, " raw value: %s\n", raw_value);
152 output(1, " type: %d\n", dv.type);
153 output(1, " date1:\n");
154 output(1, " calendar type: %d\n", dv.date1.cal);
155 output(1, " day: %s\n", dv.date1.day_str);
156 output(1, " month: %s\n", dv.date1.month_str);
157 output(1, " year: %s\n", dv.date1.year_str);
158 output(1, " date type: %d\n", dv.date1.type);
159 output(1, " sdn1: %ld\n", dv.date1.sdn1);
160 output(1, " sdn2: %ld\n", dv.date1.sdn2);
161 output(1, " date2:\n");
162 output(1, " calendar type: %d\n", dv.date2.cal);
163 output(1, " day: %s\n", dv.date2.day_str);
164 output(1, " month: %s\n", dv.date2.month_str);
165 output(1, " year: %s\n", dv.date2.year_str);
166 output(1, " date type: %d\n", dv.date2.type);
167 output(1, " sdn1: %ld\n", dv.date2.sdn1);
168 output(1, " sdn2: %ld\n", dv.date2.sdn2);
169 output(1, " phrase: %s\n", dv.phrase);
173 void default_cb(Gedcom_ctxt ctxt, int level, char *tag, char *raw_value,
176 char *converted = NULL;
179 converted = convert_utf8_to_locale(raw_value, &conv_fails);
180 output(0, "== %d %s (%d) %s (ctxt is %d, conversion failures: %d)\n",
181 level, tag, tag_value, converted, (int)ctxt, conv_fails);
184 void subscribe_callbacks()
186 gedcom_subscribe_to_record(REC_HEAD, header_start, header_end);
187 gedcom_subscribe_to_record(REC_FAM, family_start, family_end);
188 gedcom_subscribe_to_record(REC_INDI, rec_start, NULL);
189 gedcom_subscribe_to_record(REC_OBJE, rec_start, NULL);
190 gedcom_subscribe_to_record(REC_NOTE, note_start, NULL);
191 gedcom_subscribe_to_record(REC_REPO, rec_start, NULL);
192 gedcom_subscribe_to_record(REC_SOUR, rec_start, NULL);
193 gedcom_subscribe_to_record(REC_SUBN, rec_start, NULL);
194 gedcom_subscribe_to_record(REC_SUBM, submit_start, NULL);
195 gedcom_subscribe_to_record(REC_USER, rec_start, NULL);
196 gedcom_subscribe_to_element(ELT_HEAD_SOUR, source_start, source_end);
197 gedcom_subscribe_to_element(ELT_SOUR_DATA_EVEN_DATE,
198 source_date_start, NULL);
201 void gedcom_message_handler(Gedcom_msg_type type, char *msg)
204 output(1, "MESSAGE: ");
205 else if (type == WARNING)
206 output(1, "WARNING: ");
207 else if (type == ERROR)
208 output(1, "ERROR: ");
209 output(1, "%s\n", msg);
212 int main(int argc, char* argv[])
214 Gedcom_err_mech mech = IMMED_FAIL;
215 int compat_enabled = 1;
219 char* file_name = NULL;
223 for (i=1; i<argc; i++) {
224 if (!strncmp(argv[i], "-da", 4))
226 else if (!strncmp(argv[i], "-dg", 4))
228 else if (!strncmp(argv[i], "-fi", 4))
230 else if (!strncmp(argv[i], "-fd", 4))
232 else if (!strncmp(argv[i], "-fn", 4))
233 mech = IGNORE_ERRORS;
234 else if (!strncmp(argv[i], "-nc", 4))
236 else if (!strncmp(argv[i], "-h", 3)) {
240 else if (!strncmp(argv[i], "-2", 3)) {
243 else if (!strncmp(argv[i], "-3", 3)) {
246 else if (!strncmp(argv[i], "-q", 3)) {
249 else if (strncmp(argv[i], "-", 1)) {
254 printf ("Unrecognized option: %s\n", argv[i]);
262 printf("No file name given\n");
267 setlocale(LC_ALL, "");
268 gedcom_set_debug_level(debug_level, NULL);
269 gedcom_set_compat_handling(compat_enabled);
270 gedcom_set_error_handling(mech);
271 gedcom_set_message_handler(gedcom_message_handler);
272 gedcom_set_default_callback(default_cb);
274 subscribe_callbacks();
275 outfile = fopen(OUTFILE, "a");
277 printf("Could not open %s for appending\n", OUTFILE);
279 while (run_times-- > 0) {
280 output(0, "\n=== Parsing file %s\n", file_name);
281 result |= gedcom_parse_file(file_name);
285 output(1, "Parse succeeded\n");
289 output(1, "Parse failed\n");