int gedcom_lex();
+void message_handler(Gedcom_msg_type type, char *msg)
+{
+ fprintf(stderr, msg);
+}
+
int test_loop(ENCODING enc, char* code)
{
int tok, res;
init_encodings();
set_encoding_width(enc);
+ gedcom_set_message_handler(message_handler);
res = open_conv_to_internal(code);
if (!res) {
gedcom_error("Unable to open conversion context: %s",
{ if (line_len != (size_t)-1) { \
line_len += strlen(yytext); \
if (line_len > MAXGEDCLINELEN * encoding_width) { \
- gedcom_error("Line too long, max %d characters", \
+ gedcom_error(_("Line too long, max %d characters allowed"), \
MAXGEDCLINELEN); \
line_len = (size_t)-1; \
return BADTOKEN; \
#define ACTION_0_DIGITS \
- { gedcom_error ("Level number with leading zero"); \
+ { gedcom_error (_("Level number with leading zero not allowed")); \
return BADTOKEN; \
}
{ int level = atoi(TO_INTERNAL(yytext, str_buf)); \
CHECK_LINE_LEN; \
if ((level < 0) || (level > MAXGEDCLEVEL)) { \
- gedcom_error ("Level number out of range [0..%d]", \
+ gedcom_error (_("Level number out of range [0..%d]"), \
MAXGEDCLEVEL); \
return BADTOKEN; \
} \
} \
else { \
/* should never happen (error to GEDCOM spec) */ \
- gedcom_error ("GEDCOM level number is %d higher than " \
- "previous", \
+ gedcom_error (_("GEDCOM level number is %d higher than previous"), \
level_diff); \
return BADTOKEN; \
} \
#define ACTION_ALPHANUM \
{ if (strlen(yytext) > MAXGEDCTAGLEN * encoding_width) { \
- gedcom_error("Tag '%s' too long, max %d characters", \
+ gedcom_error(_("Tag '%s' too long, max %d characters allowed"), \
yytext, MAXGEDCTAGLEN); \
return BADTOKEN; \
} \
#define ACTION_POINTER \
{ CHECK_LINE_LEN; \
if (strlen(yytext) > MAXGEDCPTRLEN * encoding_width) { \
- gedcom_error("Pointer '%s' too long, max %d characters", \
+ gedcom_error(_("Pointer '%s' too long, max %d characters allowed"), \
yytext, MAXGEDCPTRLEN); \
return BADTOKEN; \
} \
#define ACTION_UNEXPECTED \
- { gedcom_error("Unexpected character: '%s' (0x%02x)", \
+ { gedcom_error(_("Unexpected character: '%s' (0x%02x)"), \
yytext, yytext[0]); \
return BADTOKEN; \
}