diff options
Diffstat (limited to 'lib-src/cvtmail.c')
-rw-r--r-- | lib-src/cvtmail.c | 150 |
1 files changed, 0 insertions, 150 deletions
diff --git a/lib-src/cvtmail.c b/lib-src/cvtmail.c deleted file mode 100644 index c1fec8792c5..00000000000 --- a/lib-src/cvtmail.c +++ /dev/null @@ -1,150 +0,0 @@ -/* Copyright (C) 1985, 1994 Free Software Foundation -This file is part of GNU Emacs. - -GNU Emacs is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -GNU Emacs is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ - -/* cvtmail: - * Program to convert oldstyle goslings emacs mail directories into - * gnu-rmail format. Program expects a directory called Messages to - * exist in your home directory, containing individual mail messages in - * separate files in the standard gosling emacs mail reader format. - * - * Program takes one argument: an output file. THis file will contain - * all the messages in Messages directory, in berkeley mail format. - * If no output file is mentioned, messages are put in ~/OMAIL. - * - * In order to get rmail to read the messages, the resulting file must - * be mv'ed to ~/mbox, and then have rmail invoked on them. - * - * Author: Larry Kolodney, 1985 - */ - - -#include <stdio.h> - -char *malloc (); -char *realloc (); -char *xmalloc (); -char *xrealloc (); -char *getenv (); - -main (argc, argv) - int argc; - char *argv[]; -{ - char *hd; - char *md; - char *mdd; - char *mfile; - char *cf; - int cflen; - FILE *mddf; - FILE *mfilef; - FILE *cff; - char pre[10], post[100]; - char name[14]; - int c; - - hd = (char *) getenv ("HOME"); - - md = (char *) xmalloc (strlen (hd) + 10); - strcpy (md, hd); - strcat (md, "/Messages"); - - mdd = (char *) xmalloc (strlen (md) + 11); - strcpy (mdd, md); - strcat (mdd, "/Directory"); - - cflen = 100; - cf = (char *) xmalloc (cflen); - - mddf = fopen (mdd, "r"); - if (argc > 1) - mfilef = fopen (argv[1], "w"); - else - { - mfile = (char *) xmalloc (strlen (hd) + 7); - strcpy (mfile, hd); - strcat (mfile, "/OMAIL"); - mfilef = fopen (mfile, "w"); - } - skip_to_lf (mddf); - while (fscanf (mddf, "%4c%14[0123456789]", pre, name) != EOF) - { - if (cflen < strlen (md) + strlen (name) + 2) - { - cflen = strlen (md) + strlen (name) + 2; - cf = (char *) xrealloc (cf, cflen); - } - strcpy (cf, md); - strcat (cf,"/"); - strcat (cf, name); - cff = fopen (cf, "r"); - while ((c = getc(cff)) != EOF) - putc (c, mfilef); - putc ('\n', mfilef); - skip_to_lf (mddf); - fclose (cff); - } - fclose (mddf); - fclose (mfilef); - return 0; -} - -skip_to_lf (stream) - FILE *stream; -{ - register int c; - while ((c = getc(stream)) != '\n') - ; -} - -char * -xmalloc (size) - unsigned size; -{ - char *result = malloc (size); - if (!result) - fatal ("virtual memory exhausted", 0); - return result; -} - -char * -xrealloc (ptr, size) - char *ptr; - unsigned size; -{ - char *result = realloc (ptr, size); - if (!result) - fatal ("virtual memory exhausted"); - return result; -} - -/* Print error message and exit. */ - -fatal (s1, s2) - char *s1, *s2; -{ - error (s1, s2); - exit (1); -} - -error (s1, s2) - char *s1, *s2; -{ - fprintf (stderr, "cvtmail: "); - fprintf (stderr, s1, s2); - fprintf (stderr, "\n"); -} |