- }
-}
-
-int gedcom_debug_print(char* s, ...)
-{
- int res;
-#if YYDEBUG != 0
- if (gedcom_debug) {
- va_list ap;
- va_start(ap, s);
- res = vfprintf(stderr, s, ap);
- va_end(ap);
- }
-#endif
- return(res);
-}
-
-int gedcom_warning(char* s, ...)
-{
- int res;
- va_list ap;
-
- va_start(ap, s);
- fprintf(stderr, "Warning on line %d: ", line_no);
- res = vfprintf(stderr, s, ap);
- fprintf(stderr, "\n");
- va_end(ap);
-
- return res;
-}
-
-int gedcom_error(char* s, ...)
-{
- int res;
- va_list ap;
-
- va_start(ap, s);
- fprintf(stderr, "Error on line %d: ", line_no);
- res = vfprintf(stderr, s, ap);
- fprintf(stderr, "\n");
- va_end(ap);
-
- return res;