1 /* Test program for the Gedcom library.
2 Copyright (C) 2001 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 printf("gedcom-parse test program for libgedcom\n\n");
32 printf("Usage: gedcom-parse [options] file\n");
34 printf(" -h Show this help text\n");
35 printf(" -nc Disable compatibility mode\n");
36 printf(" -fi Fail immediately on errors\n");
37 printf(" -fd Deferred fail on errors, but parse completely\n");
38 printf(" -fn No fail on errors\n");
39 printf(" -dg Debug setting: only libgedcom debug messages\n");
40 printf(" -da Debug setting: libgedcom + yacc debug messages\n");
41 printf(" -2 Run the test parse 2 times instead of once\n");
42 printf(" -3 Run the test parse 3 times instead of once\n");
45 Gedcom_ctxt header_start(int level, char *xref, char *tag)
47 printf("Header start\n");
48 return (Gedcom_ctxt)0;
51 void header_end(Gedcom_ctxt self)
53 printf("Header end, context is %d\n", (int)self);
56 char family_xreftags[100][255];
59 Gedcom_ctxt family_start(int level, char *xref, char *tag)
61 printf("Family start, xref is %s\n", xref);
62 strcpy(family_xreftags[family_nr], xref);
63 return (Gedcom_ctxt)(family_nr++);
66 void family_end(Gedcom_ctxt self)
68 printf("Family end, xref is %s\n", family_xreftags[(int)self]);
71 Gedcom_ctxt submit_start(int level, char *xref, char *tag)
73 printf("Submitter, xref is %s\n", xref);
74 return (Gedcom_ctxt)10000;
77 Gedcom_ctxt source_start(Gedcom_ctxt parent, int level, char *tag,
78 char* raw_value, Gedcom_val parsed_value)
80 Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
81 printf("Source is %s (ctxt is %d, parent is %d)\n",
82 GEDCOM_STRING(parsed_value), (int) self, (int) parent);
86 void source_end(Gedcom_ctxt parent, Gedcom_ctxt self, Gedcom_val parsed_value)
88 printf("Source context %d in parent %d\n", (int)self, (int)parent);
91 Gedcom_ctxt source_date_start(Gedcom_ctxt parent, int level, char *tag,
92 char* raw_value, Gedcom_val parsed_value)
95 Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
96 dv = GEDCOM_DATE(parsed_value);
97 printf("Contents of the date_value:\n");
98 printf(" raw value: %s\n", raw_value);
99 printf(" type: %d\n", dv.type);
101 printf(" calendar type: %d\n", dv.date1.cal);
102 printf(" day: %s\n", dv.date1.day_str);
103 printf(" month: %s\n", dv.date1.month_str);
104 printf(" year: %s\n", dv.date1.year_str);
105 printf(" date type: %d\n", dv.date1.type);
106 printf(" sdn1: %ld\n", dv.date1.sdn1);
107 printf(" sdn2: %ld\n", dv.date1.sdn2);
109 printf(" calendar type: %d\n", dv.date2.cal);
110 printf(" day: %s\n", dv.date2.day_str);
111 printf(" month: %s\n", dv.date2.month_str);
112 printf(" year: %s\n", dv.date2.year_str);
113 printf(" date type: %d\n", dv.date2.type);
114 printf(" sdn1: %ld\n", dv.date2.sdn1);
115 printf(" sdn2: %ld\n", dv.date2.sdn2);
116 printf(" phrase: %s\n", dv.phrase);
120 void default_cb(Gedcom_ctxt ctxt, int level, char *tag, char *raw_value)
122 printf("== %d %s %s (ctxt is %d)\n", level, tag, raw_value, (int)ctxt);
125 void subscribe_callbacks()
127 gedcom_subscribe_to_record(REC_HEAD, header_start, header_end);
128 gedcom_subscribe_to_record(REC_FAM, family_start, family_end);
129 gedcom_subscribe_to_record(REC_SUBM, submit_start, NULL);
130 gedcom_subscribe_to_element(ELT_HEAD_SOUR, source_start, source_end);
131 gedcom_subscribe_to_element(ELT_SOUR_DATA_EVEN_DATE,
132 source_date_start, NULL);
135 void gedcom_message_handler(Gedcom_msg_type type, char *msg)
138 fprintf(stderr, "MESSAGE: ");
139 else if (type == WARNING)
140 fprintf(stderr, "WARNING: ");
141 else if (type == ERROR)
142 fprintf(stderr, "ERROR: ");
143 fprintf(stderr, msg);
146 int main(int argc, char* argv[])
148 Gedcom_err_mech mech = IMMED_FAIL;
149 int compat_enabled = 1;
153 char* file_name = NULL;
157 for (i=1; i<argc; i++) {
158 if (!strncmp(argv[i], "-da", 4))
160 else if (!strncmp(argv[i], "-dg", 4))
162 else if (!strncmp(argv[i], "-fi", 4))
164 else if (!strncmp(argv[i], "-fd", 4))
166 else if (!strncmp(argv[i], "-fn", 4))
167 mech = IGNORE_ERRORS;
168 else if (!strncmp(argv[i], "-nc", 4))
170 else if (!strncmp(argv[i], "-h", 3)) {
174 else if (!strncmp(argv[i], "-2", 3)) {
177 else if (!strncmp(argv[i], "-3", 3)) {
180 else if (strncmp(argv[i], "-", 1)) {
185 printf ("Unrecognized option: %s\n", argv[i]);
193 printf("No file name given\n");
198 gedcom_set_debug_level(debug_level, NULL);
199 gedcom_set_compat_handling(compat_enabled);
200 gedcom_set_error_handling(mech);
201 gedcom_set_message_handler(gedcom_message_handler);
202 gedcom_set_default_callback(default_cb);
204 subscribe_callbacks();
205 while (run_times-- > 0) {
206 result |= gedcom_parse_file(file_name);
209 printf("Parse succeeded\n");
213 printf("Parse failed\n");