]> code.delx.au - gnu-emacs/commitdiff
(main): Change delimiter from "^L" to "^_^L".
authorKarl Heuer <kwzh@gnu.org>
Thu, 3 Mar 1994 18:11:32 +0000 (18:11 +0000)
committerKarl Heuer <kwzh@gnu.org>
Thu, 3 Mar 1994 18:11:32 +0000 (18:11 +0000)
Allow for text following "BABYL OPTIONS:".
Add --help option.  Use argv[0] in error messages.

lib-src/b2m.c

index f4f3888345cecfe4a4f61452bf66a0ddf7052564..f05a0e8f678aea6d4d1a8fa8732112a2264c2666 100644 (file)
 #include <fcntl.h>
 #endif
 
-#include <../src/config.h>
+#include "../src/config.h"
+
+#ifdef __STDC__
+#include <stdlib.h>
+#endif
 
 #ifdef USG
 #include <string.h>
@@ -53,15 +57,21 @@ main (argc, argv)
   (stdout)->_flag &= ~_IOTEXT;
   (stdin)->_flag &= ~_IOTEXT;
 #endif
+  if (strcmp(argv[1], "--help") == 0)
+    {
+      fprintf(stderr, "Usage: %s <babylmailbox >unixmailbox\n", argv[0]);
+      exit (0);
+    }
   ltoday = time(0);
   today = ctime(&ltoday);
 
   if (gets(data))
-    if (strcmp(data, "BABYL OPTIONS:")) {
-      fprintf(stderr, "b2m: not a Babyl mailfile!\n");
-      exit(-1);
-    } else
-      printing = FALSE;
+    if (strncmp(data, "BABYL OPTIONS:", 14))
+      {
+       fprintf(stderr, "%s: not a Babyl mailfile!\n", argv[0]);
+       exit (-1);
+      } else
+       printing = FALSE;
   else
     exit(-1);
   if (printing)
@@ -78,11 +88,11 @@ main (argc, argv)
 
     if (!strcmp(data, "*** EOOH ***") && !printing) {
       printing = header = TRUE;
-      printf("From b2m %s", today);
+      printf("From %s %s", argv[0], today);
       continue;
     }
-    
-    if (!strcmp(data, "\f")) {
+
+    if (!strcmp(data, "\037\f")) {
       /* save labels */
       gets(data);
       p = strtok(data, " ,\r\n\t");