]>
code.delx.au - gnu-emacs/blob - lib-src/b2m.c
2 * b2m - a filter for Babyl -> Unix mail files
3 * The copyright on this file has been disclaimed.
5 * usage: b2m < babyl > mailbox
7 * I find this useful whenever I have to use a
8 * system which - shock horror! - doesn't run
9 * GNU Emacs. At least now I can read all my
10 * GNU Emacs Babyl format mail files!
12 * it's not much but it's free!
15 * E.Wilkinson@massey.ac.nz
16 * Mon Nov 7 15:54:06 PDT 1988
19 /* Made conformant to the GNU coding standards January, 1995
20 by Francesco Potorti` <pot@cnuce.cnr.it>. */
24 /* On some systems, Emacs defines static as nothing for the sake
25 of unexec. We don't want that here since we don't use unexec. */
31 #include <sys/types.h>
42 #define streq(s,t) (strcmp (s, t) == 0)
43 #define strneq(s,t,n) (strncmp (s, t, n) == 0)
47 #define TM_YEAR_BASE 1900
49 /* Nonzero if TM_YEAR is a struct tm's tm_year value that causes
50 asctime to have well-defined behavior. */
51 #ifndef TM_YEAR_IN_ASCTIME_RANGE
52 # define TM_YEAR_IN_ASCTIME_RANGE(tm_year) \
53 (1000 - TM_YEAR_BASE <= (tm_year) && (tm_year) <= 9999 - TM_YEAR_BASE)
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.
67 extern char *strtok(char *, const char *);
69 long *xmalloc (unsigned int size
);
70 long *xrealloc (char *ptr
, unsigned int size
);
71 char *concat (char *s1
, char *s2
, char *s3
);
72 long readline (struct linebuffer
*linebuffer
, register FILE *stream
);
73 void fatal (char *message
);
76 * xnew -- allocate storage. SYNOPSIS: Type *xnew (int n, Type);
78 #define xnew(n, Type) ((Type *) xmalloc ((n) * sizeof (Type)))
84 struct option longopts
[] =
86 { "help", no_argument
, NULL
, 'h' },
87 { "version", no_argument
, NULL
, 'V' },
94 main (int argc
, char **argv
)
96 logical labels_saved
, printing
, header
, first
, last_was_blank_line
;
99 char *labels
, *p
, *today
;
100 struct linebuffer data
;
103 _fmode
= O_BINARY
; /* all of files are treated as binary files */
105 if (!isatty (fileno (stdout
)))
106 setmode (fileno (stdout
), O_BINARY
);
107 if (!isatty (fileno (stdin
)))
108 setmode (fileno (stdin
), O_BINARY
);
109 #else /* not __DJGPP__ > 1 */
110 (stdout
)->_flag
&= ~_IOTEXT
;
111 (stdin
)->_flag
&= ~_IOTEXT
;
112 #endif /* not __DJGPP__ > 1 */
118 int opt
= getopt_long (argc
, argv
, "hV", longopts
, 0);
125 printf ("%s (GNU Emacs %s)\n", "b2m", VERSION
);
126 puts ("b2m is in the public domain.");
130 fprintf (stderr
, "Usage: %s <babylmailbox >unixmailbox\n", progname
);
137 fprintf (stderr
, "Usage: %s <babylmailbox >unixmailbox\n", progname
);
141 labels_saved
= printing
= header
= last_was_blank_line
= FALSE
;
144 /* Convert to a string, checking for out-of-range time stamps.
145 Don't use 'ctime', as that might dump core if the hardware clock
146 is set to a bizarre value. */
147 tm
= localtime (<oday
);
148 if (! (tm
&& TM_YEAR_IN_ASCTIME_RANGE (tm
->tm_year
)
149 && (today
= asctime (tm
))))
150 fatal ("current time is out of range");
152 data
.buffer
= xnew (200, char);
154 if (readline (&data
, stdin
) == 0
155 || !strneq (data
.buffer
, "BABYL OPTIONS:", 14))
156 fatal ("standard input is not a Babyl mailfile.");
158 while (readline (&data
, stdin
) > 0)
160 if (streq (data
.buffer
, "*** EOOH ***") && !printing
)
162 printing
= header
= TRUE
;
163 printf ("From \"Babyl to mail by %s\" %s", progname
, today
);
167 if (data
.buffer
[0] == '\037')
169 if (data
.buffer
[1] == '\0')
171 else if (data
.buffer
[1] == '\f')
175 else if (! last_was_blank_line
)
178 readline (&data
, stdin
);
179 p
= strtok (data
.buffer
, " ,\r\n\t");
180 labels
= "X-Babyl-Labels: ";
182 while ((p
= strtok (NULL
, " ,\r\n\t")))
183 labels
= concat (labels
, p
, ", ");
185 p
= &labels
[strlen (labels
) - 2];
188 printing
= header
= FALSE
;
194 if ((data
.buffer
[0] == '\0') && header
)
204 if (data
.buffer
[0] == '\0')
205 last_was_blank_line
= TRUE
;
207 last_was_blank_line
= FALSE
;
217 * Return a newly-allocated string whose contents
218 * concatenate those of s1, s2, s3.
221 concat (char *s1
, char *s2
, char *s3
)
223 int len1
= strlen (s1
), len2
= strlen (s2
), len3
= strlen (s3
);
224 char *result
= xnew (len1
+ len2
+ len3
+ 1, char);
227 strcpy (result
+ len1
, s2
);
228 strcpy (result
+ len1
+ len2
, s3
);
229 result
[len1
+ len2
+ len3
] = '\0';
235 * Read a line of text from `stream' into `linebuffer'.
236 * Return the number of characters read from `stream',
237 * which is the length of the line including the newline, if any.
240 readline (struct linebuffer
*linebuffer
, register FILE *stream
)
242 char *buffer
= linebuffer
->buffer
;
243 register char *p
= linebuffer
->buffer
;
247 pend
= p
+ linebuffer
->size
; /* Separate to avoid 386/IX compiler bug. */
251 register int c
= getc (stream
);
254 linebuffer
->size
*= 2;
255 buffer
= (char *) xrealloc (buffer
, linebuffer
->size
);
256 p
+= buffer
- linebuffer
->buffer
;
257 pend
= buffer
+ linebuffer
->size
;
258 linebuffer
->buffer
= buffer
;
268 if (p
> buffer
&& p
[-1] == '\r')
283 return (p
- buffer
+ chars_deleted
);
287 * Like malloc but get fatal error if memory is exhausted.
290 xmalloc (unsigned int size
)
292 long *result
= (long *) malloc (size
);
294 fatal ("virtual memory exhausted");
299 xrealloc (char *ptr
, unsigned int size
)
301 long *result
= (long *) realloc (ptr
, size
);
303 fatal ("virtual memory exhausted");
308 fatal (char *message
)
310 fprintf (stderr
, "%s: %s\n", progname
, message
);
314 /* arch-tag: 5a3ad2af-a802-408f-83cc-e7cf5e98653e
315 (do not change this comment) */
317 /* b2m.c ends here */