Mercurial > emacs
annotate lib-src/b2m.c @ 6214:512963eb02fe
(main): Change delimiter from "^L" to "^_^L".
Allow for text following "BABYL OPTIONS:".
Add --help option. Use argv[0] in error messages.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 05 Mar 1994 21:49:26 +0000 |
parents | cbf3383981cb |
children | 226d490216f7 |
rev | line source |
---|---|
440 | 1 /* |
2 * b2m - a filter for Babyl -> Unix mail files | |
3 * | |
4 * usage: b2m < babyl > mailbox | |
5 * | |
6 * I find this useful whenever I have to use a | |
7 * system which - shock horror! - doesn't run | |
8 * Gnu emacs. At least now I can read all my | |
9 * Gnumacs Babyl format mail files! | |
10 * | |
11 * it's not much but it's free! | |
12 * | |
13 * Ed Wilkinson | |
14 * E.Wilkinson@massey.ac.nz | |
15 * Mon Nov 7 15:54:06 PDT 1988 | |
16 */ | |
17 | |
18 #include <stdio.h> | |
19 #include <time.h> | |
4008
b43e59cb1d54
* b2m.c: #include <sys/types.h>.
Jim Blandy <jimb@redhat.com>
parents:
2101
diff
changeset
|
20 #include <sys/types.h> |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
21 #ifdef MSDOS |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
22 #include <fcntl.h> |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
23 #endif |
998 | 24 |
6214
512963eb02fe
(main): Change delimiter from "^L" to "^_^L".
Richard M. Stallman <rms@gnu.org>
parents:
6173
diff
changeset
|
25 #include <../src/config.h> |
998 | 26 |
27 #ifdef USG | |
28 #include <string.h> | |
29 #else | |
440 | 30 #include <strings.h> |
998 | 31 #endif |
440 | 32 |
33 /* BSD's strings.h does not declare the type of strtok. */ | |
34 extern char *strtok (); | |
35 | |
4572
beb5acbcd482
(TRUE, FALSE): Don't define if already defined.
Richard M. Stallman <rms@gnu.org>
parents:
4008
diff
changeset
|
36 #ifndef TRUE |
440 | 37 #define TRUE (1) |
4572
beb5acbcd482
(TRUE, FALSE): Don't define if already defined.
Richard M. Stallman <rms@gnu.org>
parents:
4008
diff
changeset
|
38 #endif |
beb5acbcd482
(TRUE, FALSE): Don't define if already defined.
Richard M. Stallman <rms@gnu.org>
parents:
4008
diff
changeset
|
39 #ifndef FALSE |
440 | 40 #define FALSE (0) |
4572
beb5acbcd482
(TRUE, FALSE): Don't define if already defined.
Richard M. Stallman <rms@gnu.org>
parents:
4008
diff
changeset
|
41 #endif |
440 | 42 |
43 int header = FALSE, printing; | |
4008
b43e59cb1d54
* b2m.c: #include <sys/types.h>.
Jim Blandy <jimb@redhat.com>
parents:
2101
diff
changeset
|
44 time_t ltoday; |
440 | 45 char from[256], labels[256], data[256], *p, *today; |
46 | |
2101
df8249aa4901
* b2m.c (main): Don't exit upon reading a blank line.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
47 main (argc, argv) |
df8249aa4901
* b2m.c (main): Don't exit upon reading a blank line.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
48 int argc; |
df8249aa4901
* b2m.c (main): Don't exit upon reading a blank line.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
49 char **argv; |
440 | 50 { |
5448
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
51 #ifdef MSDOS |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
52 _fmode = O_BINARY; /* all of files are treated as binary files */ |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
53 (stdout)->_flag &= ~_IOTEXT; |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
54 (stdin)->_flag &= ~_IOTEXT; |
18de002e47dd
(main) [MSDOS]: Open all files as binary.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
55 #endif |
6173
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
56 if (strcmp(argv[1], "--help") == 0) |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
57 { |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
58 fprintf(stderr, "Usage: %s <babylmailbox >unixmailbox\n", argv[0]); |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
59 exit (0); |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
60 } |
440 | 61 ltoday = time(0); |
62 today = ctime(<oday); | |
63 | |
64 if (gets(data)) | |
6173
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
65 if (strncmp(data, "BABYL OPTIONS:", 14)) |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
66 { |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
67 fprintf(stderr, "%s: not a Babyl mailfile!\n", argv[0]); |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
68 exit (-1); |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
69 } else |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
70 printing = FALSE; |
440 | 71 else |
72 exit(-1); | |
73 if (printing) | |
74 puts(data); | |
75 | |
76 while (gets(data)) { | |
2101
df8249aa4901
* b2m.c (main): Don't exit upon reading a blank line.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
77 |
df8249aa4901
* b2m.c (main): Don't exit upon reading a blank line.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
78 #if 0 |
df8249aa4901
* b2m.c (main): Don't exit upon reading a blank line.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
79 /* What was this for? Does somebody have something against blank |
df8249aa4901
* b2m.c (main): Don't exit upon reading a blank line.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
80 lines? */ |
440 | 81 if (!strcmp(data, "")) |
82 exit(0); | |
2101
df8249aa4901
* b2m.c (main): Don't exit upon reading a blank line.
Jim Blandy <jimb@redhat.com>
parents:
998
diff
changeset
|
83 #endif |
440 | 84 |
85 if (!strcmp(data, "*** EOOH ***") && !printing) { | |
86 printing = header = TRUE; | |
6173
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
87 printf("From %s %s", argv[0], today); |
440 | 88 continue; |
89 } | |
6173
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
90 |
cbf3383981cb
(main): Change delimiter from "^L" to "^_^L".
Karl Heuer <kwzh@gnu.org>
parents:
5448
diff
changeset
|
91 if (!strcmp(data, "\037\f")) { |
440 | 92 /* save labels */ |
93 gets(data); | |
94 p = strtok(data, " ,\r\n\t"); | |
95 strcpy(labels, "X-Babyl-Labels: "); | |
96 | |
97 while (p = strtok(NULL, " ,\r\n\t")) { | |
98 strcat(labels, p); | |
99 strcat(labels, ", "); | |
100 } | |
101 | |
102 labels[strlen(labels) - 2] = '\0'; | |
103 printing = header = FALSE; | |
104 continue; | |
105 } | |
106 | |
107 if (!strlen(data) && header) { | |
108 header = FALSE; | |
109 if (strcmp(labels, "X-Babyl-Labels")) | |
110 puts(labels); | |
111 } | |
112 | |
113 if (printing) | |
114 puts(data); | |
115 } | |
116 } |