- }
-}
-
-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;