+const char* val_type_str[] = { N_("null value"),
+ N_("character string"),
+ N_("date"),
+ N_("age"),
+ N_("cross-reference") };
+
+void gedcom_cast_error(const char* file, int line,
+ Gedcom_val_type tried_type,
+ Gedcom_val_type real_type)
+{
+ int tried_bit=0, real_bit=0;
+ while (tried_type && tried_type % 2 == 0) {
+ tried_bit++;
+ tried_type >>= 1;
+ }
+ while (real_type && real_type % 2 == 0) {
+ real_bit++;
+ real_type >>= 1;
+ }
+ gedcom_warning
+ (_("Wrong cast of value in file %s, at line %d: %s instead of %s"),
+ file, line, _(val_type_str[tried_bit]), _(val_type_str[real_bit]));
+}
+
+/** This function allows to customize what happens on an error. It doesn't
+ influence the generation of error or warning messages, only the behaviour
+ of the parser and its return code. See \ref Gedcom_err_mech for the
+ possible mechanisms.
+ */
+
+void gedcom_set_error_handling(Gedcom_err_mech mechanism)