xemacs-beta: lib-src/fakemail.c comparison

comparison lib-src/fakemail.c @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14

author	cvs
date	Mon, 13 Aug 2007 11:20:41 +0200
parents	de805c49cfc1
children

comparison

equal deleted inserted replaced

-:12e008d41344
+:697ef44129c6
 Boston, MA 02111-1307, USA.  */
 /* Synched up with: FSF 19.28. */
 #define NO_SHORTNAMES
-#include <config.h>
+#include <../src/config.h>
 #if defined (BSD) && !defined (BSD4_1) && !defined (USE_FAKEMAIL)
 /* This program is not used in BSD, so just avoid loader complaints.  */
 int
 main (int argc, char *argv[])
 fprintf (stderr, "set the Lisp variable `sendmail-program' to point\n");
 fprintf (stderr, "to the path of the sendmail binary.\n");
 return 1;
 }
 #else /* not BSD 4.2 (or newer) */
+#ifdef MSDOS
+int
+main (int argc, char *argv[])
+{
+return 0;
+}
+#else /* not MSDOS */
+/* This conditional contains all the rest of the file.  */
 /* These are defined in config in some versions. */
 #ifdef static
 #undef static
 * and works regardless of the length of the line.
 */
 struct linebuffer
 {
-size_t size;
+long size;
 char *buffer;
 };
 struct linebuffer lb;
 #ifndef MAIL_PROGRAM_NAME
 #define MAIL_PROGRAM_NAME "/bin/mail"
 #endif
-static const char *my_name;
+static CONST char *my_name;
 static char *the_date;
 static char *the_user;
 static line_list file_preface;
 static stream_list the_streams;
 static boolean no_problems = true;
 #ifdef CURRENT_USER
 extern struct passwd *getpwuid ();
 extern unsigned short geteuid ();
 static struct passwd *my_entry;
 #define cuserid(s)				\
-(my_entry = getpwuid ((int) geteuid ()),	\
+(my_entry = getpwuid (((int) geteuid ())),	\
 my_entry->pw_name)
 #endif
 /* Utilities */
 /* Print error message.  `s1' is printf control string, `s2' is arg for it. */
 static void
-error (const char *s1, const char *s2)
+error (CONST char *s1, CONST char *s2)
 {
 printf ("%s: ", my_name);
 printf (s1, s2);
 printf ("\n");
 no_problems = false;
 }
 /* Print error message and exit.  */
 static void
-fatal (const char *s1, const char *s2)
+fatal (CONST char *s1, CONST char *s2)
 {
 error (s1, s2);
 exit (1);
 }
 /* Like malloc but get fatal error if memory is exhausted.  */
-static void *
+static char *
 xmalloc (size_t size)
 {
-void *result = malloc (size);
+char *result = malloc (((unsigned) size));
-if (result == NULL)
+if (result == ((char *) NULL))
 fatal ("virtual memory exhausted", (char *) 0);
 return result;
 }
-static void *
+static char *
-xrealloc (void *ptr, size_t size)
+xrealloc (char *ptr, size_t size)
 {
-void *result = realloc (ptr, size);
+char *result = realloc (ptr, ((unsigned) size));
-if (result == NULL)
+if (result == ((char *) NULL))
 fatal ("virtual memory exhausted", (char *) 0);
 return result;
 }
 /* Initialize a linebuffer for use */
 static void
 init_linebuffer (struct linebuffer *linebuffer)
 {
 linebuffer->size = INITIAL_LINE_SIZE;
-linebuffer->buffer = (char *) xmalloc (INITIAL_LINE_SIZE);
+linebuffer->buffer = ((char *) xmalloc (INITIAL_LINE_SIZE));
 }
 /* Read a line of text from `stream' into `linebuffer'.
 * Return the length of the line.
 */
 {
 int c = getc (stream);
 if (p == end)
 	{
 	  linebuffer->size *= 2;
-	  buffer = (char *) xrealloc (buffer, linebuffer->size);
+	  buffer = ((char *) xrealloc ((char *) buffer,
+				       (size_t) (linebuffer->size)));
 	  p = buffer + (p - linebuffer->buffer);
 	  end = buffer + linebuffer->size;
 	  linebuffer->buffer = buffer;
 	}
 if (c < 0 || c == '\n')
 static boolean
 has_keyword (char *field)
 {
 char *ignored;
-return (get_keyword (field, &ignored) != (char *) NULL);
+return (get_keyword (field, &ignored) != ((char *) NULL));
 }
 static char *
 add_field (line_list the_list, register char *field, register char *where)
 {
 time (&idiotic_interface);
 the_date = ctime (&idiotic_interface);
 /* the_date has an unwanted newline at the end */
 date_length = strlen (the_date) - 1;
 the_date[date_length] = '\0';
-#ifdef WIN32_NATIVE
+#ifdef WINDOWSNT
 temp = "(null)";
 #else
 temp = cuserid ((char *) NULL);
 #endif
 user_length = strlen (temp);
 {
 FILE *the_stream = fopen (name, "a");
 if (the_stream != ((FILE *) NULL))
 {
 add_a_stream (the_stream, my_fclose);
-if (the_user == (char *) NULL)
+if (the_user == ((char *) NULL))
 	file_preface = make_file_preface ();
 write_line_list (file_preface, the_stream);
 return true;
 }
 return false;
 fputs (s, rem->handle);
 return;
 }
 static void
-put_line (const char *string)
+put_line (CONST char *string)
 {
 register stream_list rem;
 for (rem = the_streams;
 rem != ((stream_list) NULL);
 rem = rem->rest_streams)
 {
-const char *s = string;
+CONST char *s = string;
 int column = 0;
 /* Divide STRING into lines.  */
 while (*s != 0)
 	{
-	  const char *breakpos;
+	  CONST char *breakpos;
 	  /* Find the last char that fits.  */
 	  for (breakpos = s; *breakpos && column < 78; ++breakpos)
 	    {
 	      if (*breakpos == '\t')
 char *mail_program_name;
 char buf[BUFLEN + 1];
 register int size;
 FILE *the_pipe;
+#if !(__STDC__ || defined(STDC_HEADERS))
+extern char *getenv ();
+#endif
 mail_program_name = getenv ("FAKEMAILER");
 if (!(mail_program_name && *mail_program_name))
 mail_program_name = (char *) MAIL_PROGRAM_NAME;
 name_length = strlen (mail_program_name);
 my_name = MY_NAME;
 the_streams = ((stream_list) NULL);
-the_date = (char *) NULL;
+the_date = ((char *) NULL);
-the_user = (char *) NULL;
+the_user = ((char *) NULL);
 the_header = read_header ();
 command_line = alloc_string ((size_t) (name_length +
 					 args_size (the_header)));
 strcpy (command_line, mail_program_name);
 parse_header (the_header, &command_line[name_length]);
 the_pipe = popen (command_line, "w");
 if (the_pipe == ((FILE *) NULL))
-fatal ("cannot open pipe to real mailer", (char *) NULL);
+fatal ("cannot open pipe to real mailer", (char *) 0);
 add_a_stream (the_pipe, pclose);
 write_header (the_header);
 }
 return close_the_streams ();
 }
+#endif /* not MSDOS */
 #endif /* not BSD 4.2 (or newer) */

Mercurial > hg > xemacs-beta

comparison lib-src/fakemail.c @ 412:697ef44129c6 r21-2-14