#include "utf8-locale.h"
#define OUTFILE "testgedcom.out"
+#define BOGUS_FILE_NAME "Makefile.am"
FILE* outfile = NULL;
int quiet = 0;
printf(" -da Debug setting: libgedcom + yacc debug messages\n");
printf(" -2 Run the test parse 2 times instead of once\n");
printf(" -3 Run the test parse 3 times instead of once\n");
+ printf(" -b Parse a bogus file before parsing the main file\n");
printf(" -q No output to standard output\n");
}
-Gedcom_ctxt header_start(int level, Gedcom_val xref, char *tag,
+Gedcom_ctxt header_start(Gedcom_rec rec, int level, Gedcom_val xref, char *tag,
char *raw_value, int tag_value,
Gedcom_val parsed_value)
{
return (Gedcom_ctxt)1;
}
-void header_end(Gedcom_ctxt self)
+void header_end(Gedcom_rec rec, Gedcom_ctxt self)
{
output(1, "Header end, context is %d\n", (int)self);
}
char family_xreftags[100][255];
int family_nr = 1;
-Gedcom_ctxt family_start(int level, Gedcom_val xref, char *tag,
+Gedcom_ctxt family_start(Gedcom_rec rec, int level, Gedcom_val xref, char *tag,
char *raw_value, int tag_value,
Gedcom_val parsed_value)
{
return (Gedcom_ctxt)(family_nr++);
}
-Gedcom_ctxt rec_start(int level, Gedcom_val xref, char *tag,
+Gedcom_ctxt rec_start(Gedcom_rec rec, int level, Gedcom_val xref, char *tag,
char *raw_value, int tag_value,
Gedcom_val parsed_value)
{
return (Gedcom_ctxt)tag_value;
}
-Gedcom_ctxt note_start(int level, Gedcom_val xref, char *tag,
+Gedcom_ctxt note_start(Gedcom_rec rec, int level, Gedcom_val xref, char *tag,
char *raw_value, int tag_value,
Gedcom_val parsed_value)
{
return (Gedcom_ctxt)tag_value;
}
-void family_end(Gedcom_ctxt self)
+void family_end(Gedcom_rec rec, Gedcom_ctxt self)
{
output(1, "Family end, xref is %s\n", family_xreftags[(int)self]);
}
-Gedcom_ctxt submit_start(int level, Gedcom_val xref, char *tag,
+Gedcom_ctxt submit_start(Gedcom_rec rec, int level, Gedcom_val xref, char *tag,
char *raw_value, int tag_value,
Gedcom_val parsed_value)
{
return (Gedcom_ctxt)10000;
}
-Gedcom_ctxt source_start(Gedcom_ctxt parent, int level, char *tag,
- char* raw_value,
+Gedcom_ctxt source_start(Gedcom_elt elt, Gedcom_ctxt parent, int level,
+ char *tag, char* raw_value,
int tag_value, Gedcom_val parsed_value)
{
Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
return self;
}
-void source_end(Gedcom_ctxt parent, Gedcom_ctxt self, Gedcom_val parsed_value)
+void source_end(Gedcom_elt elt, Gedcom_ctxt parent, Gedcom_ctxt self,
+ Gedcom_val parsed_value)
{
output(1, "Source context %d in parent %d\n", (int)self, (int)parent);
}
-Gedcom_ctxt source_date_start(Gedcom_ctxt parent, int level, char *tag,
- char* raw_value,
- int tag_value, Gedcom_val parsed_value)
+Gedcom_ctxt date_start(Gedcom_elt elt, Gedcom_ctxt parent, int level,
+ char *tag, char* raw_value,
+ int tag_value, Gedcom_val parsed_value)
{
struct date_value dv;
Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
return self;
}
-void default_cb(Gedcom_ctxt ctxt, int level, char *tag, char *raw_value,
- int tag_value)
+Gedcom_ctxt age_start(Gedcom_elt elt, Gedcom_ctxt parent, int level,
+ char *tag, char *raw_value,
+ int tag_value, Gedcom_val parsed_value)
+{
+ struct age_value age;
+ Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
+ age = GEDCOM_AGE(parsed_value);
+ output(1, "Contents of the age_value:\n");
+ output(1, " raw value: %s\n", raw_value);
+ output(1, " type: %d\n", age.type);
+ output(1, " modifier: %d\n", age.mod);
+ output(1, " years: %d\n", age.years);
+ output(1, " months: %d\n", age.months);
+ output(1, " days: %d\n", age.days);
+ output(1, " phrase: %s\n", age.phrase);
+ return self;
+}
+
+void default_cb(Gedcom_elt elt, Gedcom_ctxt ctxt, int level, char *tag,
+ char *raw_value, int tag_value)
{
char *converted = NULL;
int conv_fails = 0;
gedcom_subscribe_to_record(REC_USER, rec_start, NULL);
gedcom_subscribe_to_element(ELT_HEAD_SOUR, source_start, source_end);
gedcom_subscribe_to_element(ELT_SOUR_DATA_EVEN_DATE,
- source_date_start, NULL);
+ date_start, NULL);
+ gedcom_subscribe_to_element(ELT_SUB_EVT_DATE, date_start, NULL);
+ gedcom_subscribe_to_element(ELT_SUB_FAM_EVT_AGE, age_start, NULL);
}
void gedcom_message_handler(Gedcom_msg_type type, char *msg)
int compat_enabled = 1;
int debug_level = 0;
int run_times = 1;
+ int bogus = 0;
int result = 0;
char* file_name = NULL;
else if (!strncmp(argv[i], "-3", 3)) {
run_times = 3;
}
+ else if (!strncmp(argv[i], "-b", 3)) {
+ bogus = 1;
+ }
else if (!strncmp(argv[i], "-q", 3)) {
quiet = 1;
}
exit(1);
}
- setlocale(LC_ALL, "");
gedcom_init();
+ setlocale(LC_ALL, "");
gedcom_set_debug_level(debug_level, NULL);
gedcom_set_compat_handling(compat_enabled);
gedcom_set_error_handling(mech);
if (!outfile) {
printf("Could not open %s for appending\n", OUTFILE);
}
+ if (bogus) {
+ output(0, "\n=== Parsing bogus file %s\n", BOGUS_FILE_NAME);
+ gedcom_parse_file(BOGUS_FILE_NAME);
+ }
while (run_times-- > 0) {
output(0, "\n=== Parsing file %s\n", file_name);
result |= gedcom_parse_file(file_name);