update.
[chise/xemacs-chise.git-] / lib-src / b2m.c
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 /* Made conformant to the GNU coding standards January, 1995
19    by Francesco Potorti` <pot@cnuce.cnr.it>. */
20
21 #ifdef HAVE_CONFIG_H
22 #include <config.h>
23 /* On some systems, Emacs defines static as nothing for the sake
24    of unexec.  We don't want that here since we don't use unexec. */
25 #undef static
26 #endif
27
28 #include <stdio.h>
29 #include <stdlib.h>
30 #include <string.h>
31 #include <time.h>
32 #include <sys/types.h>
33 #ifdef WIN32_NATIVE
34 #include <fcntl.h>
35 #endif
36
37 #undef TRUE
38 #define TRUE    1
39 #undef FALSE
40 #define FALSE   0
41
42 /* Exit codes for success and failure.  */
43 #ifdef VMS
44 #define GOOD    1
45 #define BAD     0
46 #else
47 #define GOOD    0
48 #define BAD     1
49 #endif
50
51 #define streq(s,t)      (strcmp (s, t) == 0)
52 #define strneq(s,t,n)   (strncmp (s, t, n) == 0)
53
54 typedef int logical;
55
56 /*
57  * A `struct linebuffer' is a structure which holds a line of text.
58  * `readline' reads a line from a stream into a linebuffer and works
59  * regardless of the length of the line.
60  */
61 struct linebuffer
62 {
63   long size;
64   char *buffer;
65 };
66
67
68 static long *xmalloc (unsigned int);
69 static long *xrealloc (void *, unsigned int);
70 static char *concat (char *s1, char *s2, char *s3);
71 static long readline (struct linebuffer *, FILE *);
72 static void fatal (char *);
73
74 /*
75  * xnew -- allocate storage.  SYNOPSIS: Type *xnew (int n, Type);
76  */
77 #define xnew(n, Type)   ((Type *) xmalloc ((n) * sizeof (Type)))
78
79
80
81 char *progname;
82
83 int
84 main (int argc, char *argv[])
85 {
86   logical labels_saved, printing, header;
87   time_t ltoday;
88   char *labels = NULL, *p, *today;
89   struct linebuffer data;
90
91 #ifdef WIN32_NATIVE
92   _fmode = O_BINARY;            /* all of files are treated as binary files */
93   if (!isatty (fileno (stdout)))
94     setmode (fileno (stdout), O_BINARY);
95   if (!isatty (fileno (stdin)))
96     setmode (fileno (stdin), O_BINARY);
97 #endif
98   progname = argv[0];
99
100   if (argc != 1)
101     {
102       fprintf (stderr, "Usage: %s <babylmailbox >unixmailbox\n", progname);
103       exit (GOOD);
104     }
105   labels_saved = printing = header = FALSE;
106   ltoday = time (0);
107   today = ctime (&ltoday);
108   data.size = 200;
109   data.buffer = xnew (200, char);
110
111   if (readline (&data, stdin) == 0
112       || !strneq (data.buffer, "BABYL OPTIONS:", 14))
113     fatal ("standard input is not a Babyl mailfile.");
114
115   while (readline (&data, stdin) > 0)
116     {
117       if (streq (data.buffer, "*** EOOH ***") && !printing)
118         {
119           printing = header = TRUE;
120           printf ("From \"Babyl to mail by %s\" %s", progname, today);
121           continue;
122         }
123
124       if (data.buffer[0] == '\037')
125         {
126           if (data.buffer[1] == '\0')
127             continue;
128           else if (data.buffer[1] == '\f')
129             {
130               /* Save labels. */
131               readline (&data, stdin);
132               p = strtok (data.buffer, " ,\r\n\t");
133               labels = "X-Babyl-Labels: ";
134
135               while ((p = strtok (NULL, " ,\r\n\t")))
136                 labels = concat (labels, p, ", ");
137
138               p = &labels[strlen (labels) - 2];
139               if (*p == ',')
140                 *p = '\0';
141               printing = header = FALSE;
142               labels_saved = TRUE;
143               continue;
144             }
145         }
146
147       if ((data.buffer[0] == '\0') && header)
148         {
149           header = FALSE;
150           if (labels_saved)
151             puts (labels);
152         }
153
154       if (printing)
155         puts (data.buffer);
156     }
157   return 0;
158 }
159
160
161
162 /*
163  * Return a newly-allocated string whose contents
164  * concatenate those of s1, s2, s3.
165  */
166 static char *
167 concat (char *s1, char *s2, char *s3)
168 {
169   int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3);
170   char *result = xnew (len1 + len2 + len3 + 1, char);
171
172   strcpy (result, s1);
173   strcpy (result + len1, s2);
174   strcpy (result + len1 + len2, s3);
175   result[len1 + len2 + len3] = '\0';
176
177   return result;
178 }
179
180 /*
181  * Read a line of text from `stream' into `linebuffer'.
182  * Return the number of characters read from `stream',
183  * which is the length of the line including the newline, if any.
184  */
185 static long
186 readline (struct linebuffer *linebuffer, FILE *stream)
187 {
188   char *buffer = linebuffer->buffer;
189   register char *p = linebuffer->buffer;
190   register char *pend;
191   int chars_deleted;
192
193   pend = p + linebuffer->size;  /* Separate to avoid 386/IX compiler bug.  */
194
195   while (1)
196     {
197       register int c = getc (stream);
198       if (p == pend)
199         {
200           linebuffer->size *= 2;
201           buffer = (char *) xrealloc (buffer, linebuffer->size);
202           p += buffer - linebuffer->buffer;
203           pend = buffer + linebuffer->size;
204           linebuffer->buffer = buffer;
205         }
206       if (c == EOF)
207         {
208           chars_deleted = 0;
209           break;
210         }
211       if (c == '\n')
212         {
213           if (p[-1] == '\r' && p > buffer)
214             {
215               *--p = '\0';
216               chars_deleted = 2;
217             }
218           else
219             {
220               *p = '\0';
221               chars_deleted = 1;
222             }
223           break;
224         }
225       *p++ = c;
226     }
227
228   return (p - buffer + chars_deleted);
229 }
230
231 /*
232  * Like malloc but get fatal error if memory is exhausted.
233  */
234 static long *
235 xmalloc (unsigned int size)
236 {
237   long *result = (long *) malloc (size);
238   if (result == NULL)
239     fatal ("virtual memory exhausted");
240   return result;
241 }
242
243 static long *
244 xrealloc (void *ptr, unsigned int size)
245 {
246   long *result = (long *) realloc (ptr, size);
247   if (result == NULL)
248     fatal ("virtual memory exhausted");
249   return result;
250 }
251
252 static void
253 fatal (char *message)
254 {
255   fprintf (stderr, "%s: %s\n", progname, message);
256   exit (BAD);
257 }
258