+ 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, Gedcom_val parsed_value)
+{
+ struct date_value dv;
+ Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
+ dv = GEDCOM_DATE(parsed_value);
+ output(1, "Contents of the date_value:\n");
+ output(1, " raw value: %s\n", raw_value);
+ output(1, " type: %d\n", dv.type);
+ output(1, " date1:\n");
+ output(1, " calendar type: %d\n", dv.date1.cal);
+ output(1, " day: %s\n", dv.date1.day_str);
+ output(1, " month: %s\n", dv.date1.month_str);
+ output(1, " year: %s\n", dv.date1.year_str);
+ output(1, " date type: %d\n", dv.date1.type);
+ output(1, " sdn1: %ld\n", dv.date1.sdn1);
+ output(1, " sdn2: %ld\n", dv.date1.sdn2);
+ output(1, " date2:\n");
+ output(1, " calendar type: %d\n", dv.date2.cal);
+ output(1, " day: %s\n", dv.date2.day_str);
+ output(1, " month: %s\n", dv.date2.month_str);
+ output(1, " year: %s\n", dv.date2.year_str);
+ output(1, " date type: %d\n", dv.date2.type);
+ output(1, " sdn1: %ld\n", dv.date2.sdn1);
+ output(1, " sdn2: %ld\n", dv.date2.sdn2);
+ output(1, " phrase: %s\n", dv.phrase);
+ return self;