lib-src/cvtmail.c

   1 /* Copyright (C) 1985, 1994 Free Software Foundation
   2
   3 This file is part of GNU Emacs.
   4
   5 GNU Emacs is free software; you can redistribute it and/or modify
   6 it under the terms of the GNU General Public License as published by
   7 the Free Software Foundation; either version 2, or (at your option)
   8 any later version.
   9
  10 GNU Emacs is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 GNU General Public License for more details.
  14
  15 You should have received a copy of the GNU General Public License
  16 along with GNU Emacs; see the file COPYING.  If not, write to
  17 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18 Boston, MA 02111-1307, USA.  */
  19
  20 /* cvtmail:
  21  * Program to convert oldstyle goslings emacs mail directories into
  22  * gnu-rmail format.  Program expects a directory called Messages to
  23  * exist in your home directory, containing individual mail messages in
  24  * separate files in the standard gosling emacs mail reader format.
  25  *
  26  * Program takes one argument: an output file.  This file will contain
  27  * all the messages in Messages directory, in berkeley mail format.
  28  * If no output file is mentioned, messages are put in ~/OMAIL.
  29  *
  30  * In order to get rmail to read the messages, the resulting file must
  31  * be mv'ed to ~/mbox, and then have rmail invoked on them.
  32  *
  33  * Author: Larry Kolodney, 1985
  34  */
  35
  36 #ifdef HAVE_CONFIG_H
  37 #include <config.h>
  38 #endif
  39
  40 #include <stdio.h>
  41
  42 #ifndef HAVE_STDLIB_H
  43 char *getenv ();
  44 #endif
  45
  46 char *xmalloc __P ((unsigned));
  47 char *xrealloc __P ((char *, unsigned));
  48 void skip_to_lf __P ((FILE *));
  49 void sysfail __P ((char *));
  50
  51 int
  52 main (argc, argv)
  53      int argc;
  54      char *argv[];
  55 {
  56   char *hd;
  57   char *md;
  58   char *mdd;
  59   char *mfile;
  60   char *cf;
  61   int cflen;
  62   FILE *mddf;
  63   FILE *mfilef;
  64   FILE *cff;
  65   char pre[10];
  66   char name[14];
  67   int c;
  68
  69   hd = (char *) getenv ("HOME");
  70
  71   md = (char *) xmalloc (strlen (hd) + 10);
  72   strcpy (md, hd);
  73   strcat (md, "/Messages");
  74
  75   mdd = (char *) xmalloc (strlen (md) + 11);
  76   strcpy (mdd, md);
  77   strcat (mdd, "/Directory");
  78
  79   cflen = 100;
  80   cf = (char *) xmalloc (cflen);
  81
  82   mddf = fopen (mdd, "r");
  83   if (!mddf)
  84     sysfail (mdd);
  85   if (argc > 1)
  86     mfile = argv[1];
  87   else
  88     {
  89       mfile = (char *) xmalloc (strlen (hd) + 7);
  90       strcpy (mfile, hd);
  91       strcat (mfile, "/OMAIL");
  92     }
  93   mfilef = fopen (mfile, "w");
  94   if (!mfilef)
  95     sysfail (mfile);
  96
  97   skip_to_lf (mddf);
  98   while (fscanf (mddf, "%4c%14[0123456789]", pre, name) != EOF)
  99     {
 100       if (cflen < strlen (md) + strlen (name) + 2)
 101         {
 102           cflen = strlen (md) + strlen (name) + 2;
 103           cf = (char *) xrealloc (cf, cflen);
 104         }
 105       strcpy (cf, md);
 106       strcat (cf,"/");
 107       strcat (cf, name);
 108       cff = fopen (cf, "r");
 109       if (!cff)
 110         perror (cf);
 111       else
 112         {
 113           while ((c = getc(cff)) != EOF)
 114             putc (c, mfilef);
 115           putc ('\n', mfilef);
 116           skip_to_lf (mddf);
 117           fclose (cff);
 118         }
 119     }
 120   fclose (mddf);
 121   fclose (mfilef);
 122   return 0;
 123 }
 124
 125 void
 126 skip_to_lf (stream)
 127      FILE *stream;
 128 {
 129   register int c;
 130   while ((c = getc(stream)) != EOF && c != '\n')
 131     ;
 132 }
 133
 134
 135 void
 136 error (s1, s2)
 137      char *s1, *s2;
 138 {
 139   fprintf (stderr, "cvtmail: ");
 140   fprintf (stderr, s1, s2);
 141   fprintf (stderr, "\n");
 142 }
 143
 144 /* Print error message and exit.  */
 145
 146 void
 147 fatal (s1, s2)
 148      char *s1, *s2;
 149 {
 150   error (s1, s2);
 151   exit (1);
 152 }
 153
 154 void
 155 sysfail (s)
 156      char *s;
 157 {
 158   fprintf (stderr, "cvtmail: ");
 159   perror (s);
 160   exit (1);
 161 }
 162
 163 char *
 164 xmalloc (size)
 165      unsigned size;
 166 {
 167   char *result = (char *) malloc (size);
 168   if (!result)
 169     fatal ("virtual memory exhausted", 0);
 170   return result;
 171 }
 172
 173 char *
 174 xrealloc (ptr, size)
 175      char *ptr;
 176      unsigned size;
 177 {
 178   char *result = (char *) realloc (ptr, size);
 179   if (!result)
 180     fatal ("virtual memory exhausted", 0);
 181   return result;
 182 }
 183
 184 /* arch-tag: b93c25a9-9012-44f1-b78b-9cc7aed44a7a
 185    (do not change this comment) */