2005-08-07 10:56:27 +00:00
|
|
|
/* Copyright (C) 1985, 1994, 2002, 2003, 2004,
|
2006-02-06 11:28:28 +00:00
|
|
|
2005, 2006 Free Software Foundation, Inc.
|
1996-01-15 09:18:04 +00:00
|
|
|
|
1989-10-31 16:00:11 +00:00
|
|
|
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
|
1994-02-27 03:35:26 +00:00
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
1989-10-31 16:00:11 +00:00
|
|
|
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
|
2005-07-04 15:47:28 +00:00
|
|
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
|
Boston, MA 02110-1301, USA. */
|
1989-10-31 16:00:11 +00:00
|
|
|
|
|
|
|
/* 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.
|
|
|
|
*
|
1995-04-13 17:24:35 +00:00
|
|
|
* Program takes one argument: an output file. This file will contain
|
1989-10-31 16:00:11 +00:00
|
|
|
* 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.
|
2001-12-29 22:25:06 +00:00
|
|
|
*
|
1989-10-31 16:00:11 +00:00
|
|
|
* Author: Larry Kolodney, 1985
|
|
|
|
*/
|
|
|
|
|
2001-12-29 22:25:06 +00:00
|
|
|
#ifdef HAVE_CONFIG_H
|
|
|
|
#include <config.h>
|
|
|
|
#endif
|
|
|
|
|
1989-10-31 16:00:11 +00:00
|
|
|
#include <stdio.h>
|
|
|
|
|
2001-12-18 15:59:09 +00:00
|
|
|
#ifndef HAVE_STDLIB_H
|
1994-10-12 20:21:51 +00:00
|
|
|
char *getenv ();
|
2001-12-18 15:59:09 +00:00
|
|
|
#endif
|
|
|
|
|
|
|
|
char *xmalloc __P ((unsigned));
|
|
|
|
char *xrealloc __P ((char *, unsigned));
|
|
|
|
void skip_to_lf __P ((FILE *));
|
|
|
|
void sysfail __P ((char *));
|
1989-10-31 16:00:11 +00:00
|
|
|
|
1994-10-12 20:21:51 +00:00
|
|
|
int
|
1989-10-31 16:00:11 +00:00
|
|
|
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;
|
1994-10-12 20:21:51 +00:00
|
|
|
char pre[10];
|
1989-10-31 16:00:11 +00:00
|
|
|
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");
|
1995-04-13 17:24:35 +00:00
|
|
|
if (!mddf)
|
|
|
|
sysfail (mdd);
|
1989-10-31 16:00:11 +00:00
|
|
|
if (argc > 1)
|
1995-04-13 17:24:35 +00:00
|
|
|
mfile = argv[1];
|
1989-10-31 16:00:11 +00:00
|
|
|
else
|
|
|
|
{
|
|
|
|
mfile = (char *) xmalloc (strlen (hd) + 7);
|
|
|
|
strcpy (mfile, hd);
|
|
|
|
strcat (mfile, "/OMAIL");
|
|
|
|
}
|
1995-04-13 17:24:35 +00:00
|
|
|
mfilef = fopen (mfile, "w");
|
|
|
|
if (!mfilef)
|
|
|
|
sysfail (mfile);
|
|
|
|
|
1989-10-31 16:00:11 +00:00
|
|
|
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");
|
1995-04-13 17:24:35 +00:00
|
|
|
if (!cff)
|
|
|
|
perror (cf);
|
|
|
|
else
|
|
|
|
{
|
|
|
|
while ((c = getc(cff)) != EOF)
|
|
|
|
putc (c, mfilef);
|
|
|
|
putc ('\n', mfilef);
|
|
|
|
skip_to_lf (mddf);
|
|
|
|
fclose (cff);
|
|
|
|
}
|
1989-10-31 16:00:11 +00:00
|
|
|
}
|
|
|
|
fclose (mddf);
|
2001-12-29 22:25:06 +00:00
|
|
|
fclose (mfilef);
|
2004-05-08 15:26:33 +00:00
|
|
|
return EXIT_SUCCESS;
|
1989-10-31 16:00:11 +00:00
|
|
|
}
|
|
|
|
|
1994-10-12 20:21:51 +00:00
|
|
|
void
|
1989-10-31 16:00:11 +00:00
|
|
|
skip_to_lf (stream)
|
|
|
|
FILE *stream;
|
|
|
|
{
|
|
|
|
register int c;
|
1995-04-13 17:24:35 +00:00
|
|
|
while ((c = getc(stream)) != EOF && c != '\n')
|
1989-10-31 16:00:11 +00:00
|
|
|
;
|
|
|
|
}
|
|
|
|
|
1994-10-12 20:21:51 +00:00
|
|
|
|
|
|
|
void
|
|
|
|
error (s1, s2)
|
|
|
|
char *s1, *s2;
|
|
|
|
{
|
|
|
|
fprintf (stderr, "cvtmail: ");
|
|
|
|
fprintf (stderr, s1, s2);
|
|
|
|
fprintf (stderr, "\n");
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Print error message and exit. */
|
|
|
|
|
|
|
|
void
|
|
|
|
fatal (s1, s2)
|
|
|
|
char *s1, *s2;
|
|
|
|
{
|
|
|
|
error (s1, s2);
|
2004-05-08 15:26:33 +00:00
|
|
|
exit (EXIT_FAILURE);
|
1994-10-12 20:21:51 +00:00
|
|
|
}
|
|
|
|
|
1995-04-13 17:24:35 +00:00
|
|
|
void
|
|
|
|
sysfail (s)
|
|
|
|
char *s;
|
|
|
|
{
|
|
|
|
fprintf (stderr, "cvtmail: ");
|
|
|
|
perror (s);
|
2004-05-08 15:26:33 +00:00
|
|
|
exit (EXIT_FAILURE);
|
1995-04-13 17:24:35 +00:00
|
|
|
}
|
|
|
|
|
1994-02-27 03:35:26 +00:00
|
|
|
char *
|
1989-10-31 16:00:11 +00:00
|
|
|
xmalloc (size)
|
1994-02-27 03:35:26 +00:00
|
|
|
unsigned size;
|
1989-10-31 16:00:11 +00:00
|
|
|
{
|
2003-02-15 10:53:55 +00:00
|
|
|
char *result = (char *) malloc (size);
|
1989-10-31 16:00:11 +00:00
|
|
|
if (!result)
|
|
|
|
fatal ("virtual memory exhausted", 0);
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
1994-02-27 03:35:26 +00:00
|
|
|
char *
|
1989-10-31 16:00:11 +00:00
|
|
|
xrealloc (ptr, size)
|
|
|
|
char *ptr;
|
1994-02-27 03:35:26 +00:00
|
|
|
unsigned size;
|
1989-10-31 16:00:11 +00:00
|
|
|
{
|
2003-02-15 10:53:55 +00:00
|
|
|
char *result = (char *) realloc (ptr, size);
|
1989-10-31 16:00:11 +00:00
|
|
|
if (!result)
|
2001-11-03 19:04:48 +00:00
|
|
|
fatal ("virtual memory exhausted", 0);
|
1989-10-31 16:00:11 +00:00
|
|
|
return result;
|
|
|
|
}
|
2003-09-01 15:45:59 +00:00
|
|
|
|
|
|
|
/* arch-tag: b93c25a9-9012-44f1-b78b-9cc7aed44a7a
|
|
|
|
(do not change this comment) */
|
2004-05-08 15:26:33 +00:00
|
|
|
|
|
|
|
/* cvtmail.c ends here */
|