Return to cvtmail.c CVS log

Up to [Apple XNU] / GNUtools / emacs / etc

Annotation of GNUtools/emacs/etc/cvtmail.c, revision 1.1.1.1

1.1       root        1: /* Copyright (C) 1985 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 1, 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, 675 Mass Ave, Cambridge, MA 02139, USA.  */
                     18: 
                     19: /* cvtmail:
                     20:  * Program to convert oldstyle goslings emacs mail directories into
                     21:  * gnu-rmail format.  Program expects a directory called Messages to
                     22:  * exist in your home directory, containing individual mail messages in
                     23:  * separate files in the standard gosling emacs mail reader format.
                     24:  *
                     25:  * Program takes one argument: an output file.  THis file will contain
                     26:  * all the messages in Messages directory, in berkeley mail format.
                     27:  * If no output file is mentioned, messages are put in ~/OMAIL.
                     28:  *
                     29:  * In order to get rmail to read the messages, the resulting file must
                     30:  * be mv'ed to ~/mbox, and then have rmail invoked on them.
                     31:  * 
                     32:  * Author: Larry Kolodney, 1985
                     33: 
                     34:  * RMS, 2 Sept 85: Removed fix maximums on file name sizes.
                     35:  */
                     36: 
                     37: 
                     38: #include <stdio.h>
                     39: 
                     40: 
                     41: main (argc, argv)
                     42:      int argc;
                     43:      char *argv[];
                     44: {
                     45:   char *hd;
                     46:   char *md;
                     47:   char *mdd;
                     48:   char *mfile;
                     49:   char *cf;
                     50:   int cflen;
                     51:   FILE *mddf;
                     52:   FILE *mfilef;
                     53:   FILE *cff;
                     54:   char pre[10], post[100];
                     55:   char name[14];
                     56:   int c;
                     57: 
                     58:   hd = (char *) getenv ("HOME");
                     59: 
                     60:   md = (char *) xmalloc (strlen (hd) + 10);
                     61:   strcpy (md, hd);
                     62:   strcat (md, "/Messages");
                     63: 
                     64:   mdd = (char *) xmalloc (strlen (md) + 11);
                     65:   strcpy (mdd, md);
                     66:   strcat (mdd, "/Directory");
                     67: 
                     68:   cflen = 100;
                     69:   cf = (char *) xmalloc (cflen);
                     70: 
                     71:   mddf = fopen (mdd, "r");
                     72:   if (argc > 1)
                     73:     mfilef = fopen (argv[1], "w");
                     74:   else
                     75:     {
                     76:       mfile = (char *) xmalloc (strlen (hd) + 7);
                     77:       strcpy (mfile, hd);
                     78:       strcat (mfile, "/OMAIL");
                     79:       mfilef = fopen (mfile, "w");
                     80:     }
                     81:   skip_to_lf (mddf);
                     82:   while (fscanf (mddf, "%4c%14[0123456789]", pre, name) != EOF)
                     83:     {
                     84:       if (cflen < strlen (md) + strlen (name) + 2)
                     85:        {
                     86:          cflen = strlen (md) + strlen (name) + 2;
                     87:          cf = (char *) xrealloc (cf, cflen);
                     88:        }
                     89:       strcpy (cf, md);
                     90:       strcat (cf,"/");
                     91:       strcat (cf, name);
                     92:       cff = fopen (cf, "r");
                     93:       while ((c = getc(cff)) != EOF)
                     94:        putc (c, mfilef);
                     95:       putc ('\n', mfilef);
                     96:       skip_to_lf (mddf);
                     97:      fclose (cff);
                     98:     }
                     99:   fclose (mddf);
                    100:   fclose (mfilef);    
                    101:   return 0;
                    102: }
                    103: 
                    104: skip_to_lf (stream)
                    105:      FILE *stream;
                    106: {
                    107:   register int c;
                    108:   while ((c = getc(stream)) != '\n')
                    109:     ;
                    110: }
                    111: 
                    112: int
                    113: xmalloc (size)
                    114:      int size;
                    115: {
                    116:   int result = malloc (size);
                    117:   if (!result)
                    118:     fatal ("virtual memory exhausted", 0);
                    119:   return result;
                    120: }
                    121: 
                    122: int
                    123: xrealloc (ptr, size)
                    124:      char *ptr;
                    125:      int size;
                    126: {
                    127:   int result = realloc (ptr, size);
                    128:   if (!result)
                    129:     fatal ("virtual memory exhausted");
                    130:   return result;
                    131: }
                    132: 
                    133: /* Print error message and exit.  */
                    134: 
                    135: fatal (s1, s2)
                    136:      char *s1, *s2;
                    137: {
                    138:   error (s1, s2);
                    139:   exit (1);
                    140: }
                    141: 
                    142: error (s1, s2)
                    143:      char *s1, *s2;
                    144: {
                    145:   printf ("cvtmail: ");
                    146:   printf (s1, s2);
                    147:   printf ("\n");
                    148: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.