X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=standalone.c;h=c54d46debb53d3a4c9e8624d6120c9a9e9c104f3;hb=5d770d0f89235b28f9c75ea43df29ce48a94ffa5;hp=7e9abc451fec0ab839365821c44012765047a740;hpb=d392d5f692337233acaf45d2a1a5158529440c16;p=gedcom-parse.git

diff --git a/standalone.c b/standalone.c
index 7e9abc4..c54d46d 100644
--- a/standalone.c
+++ b/standalone.c
@@ -6,6 +6,7 @@
 int main(int argc, char* argv[])
 {
   MECHANISM mech = IMMED_FAIL;
+  int compat_enabled = 1;
   if (argc > 1) {
     int i;
     for (i=1; i<argc; i++) {
@@ -17,21 +18,54 @@ int main(int argc, char* argv[])
 	mech = DEFER_FAIL;
       else if (!strncmp(argv[i], "-fn", 3))
 	mech = IGNORE_ERRORS;
+      else if (!strncmp(argv[i], "-nc", 3))
+	compat_enabled = 0;
       else {
 	printf ("Unrecognized option: %s\n", argv[i]);
 	exit(1);
       }
     }
   }
+  gedcom_set_compat_handling(compat_enabled);
   gedcom_set_error_handling(mech);
   if (gedcom_parse() == 0) {
     printf("Parse succeeded\n");
+    return 0;
   }
   else {
     printf("Parse failed\n");
+    return 1;
   }
 }
 
+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;