X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/32ccc8a5747ec380a9375251e1285264356b8866..d5cad867eca6beb34092cee18237cbc55100c946:/lib-src/fakemail.c diff --git a/lib-src/fakemail.c b/lib-src/fakemail.c index e35c0f8a07..940d621942 100644 --- a/lib-src/fakemail.c +++ b/lib-src/fakemail.c @@ -1,13 +1,15 @@ /* sendmail-like interface to /bin/mail for system V, - Copyright (C) 1985, 1994, 1999, 2001, 2002, 2003, 2004, - 2005, 2006, 2007 Free Software Foundation, Inc. + Copyright (C) 1985, 1994, 1999, 2001-2011 Free Software Foundation, Inc. + +Author: Bill Rozas +(according to ack.texi) This file is part of GNU Emacs. -GNU Emacs is free software; you can redistribute it and/or modify +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. +the Free Software Foundation, either version 3 of the License, 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 @@ -15,21 +17,19 @@ 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, Inc., 51 Franklin Street, Fifth Floor, -Boston, MA 02110-1301, USA. */ +along with GNU Emacs. If not, see . */ + -#define NO_SHORTNAMES #define _XOPEN_SOURCE 500 /* for cuserid */ #ifdef HAVE_CONFIG_H #include #endif -#if defined (BSD_SYSTEM) && !defined (BSD4_1) && !defined (USE_FAKEMAIL) +#if defined (BSD_SYSTEM) && !defined (USE_FAKEMAIL) /* This program isnot used in BSD, so just avoid loader complaints. */ int -main () +main (void) { return 0; } @@ -58,11 +58,10 @@ main () #include #include #include +#include /* This is to declare cuserid. */ -#ifdef HAVE_UNISTD_H #include -#endif /* Type definitions */ @@ -99,7 +98,7 @@ typedef struct header_record *header; struct stream_record { FILE *handle; - int (*action)(); + int (*action)(FILE *); struct stream_record *rest_streams; }; typedef struct stream_record *stream_list; @@ -139,19 +138,16 @@ struct linebuffer lb; #define MAIL_PROGRAM_NAME "/bin/mail" #endif -static 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; -extern FILE *popen (); -extern int fclose (), pclose (); +static void fatal (const char *s1) NO_RETURN; #ifdef CURRENT_USER -extern struct passwd *getpwuid (); -extern unsigned short geteuid (); static struct passwd *my_entry; #define cuserid(s) \ (my_entry = getpwuid (((int) geteuid ())), \ @@ -163,8 +159,7 @@ static struct passwd *my_entry; /* Print error message. `s1' is printf control string, `s2' is arg for it. */ static void -error (s1, s2) - char *s1, *s2; +error (const char *s1, const char *s2) { printf ("%s: ", my_name); printf (s1, s2); @@ -175,8 +170,7 @@ error (s1, s2) /* Print error message and exit. */ static void -fatal (s1) - char *s1; +fatal (const char *s1) { error ("%s", s1); exit (EXIT_FAILURE); @@ -185,8 +179,7 @@ fatal (s1) /* Like malloc but get fatal error if memory is exhausted. */ static long * -xmalloc (size) - int size; +xmalloc (int size) { long *result = (long *) malloc (((unsigned) size)); if (result == ((long *) NULL)) @@ -195,9 +188,7 @@ xmalloc (size) } static long * -xrealloc (ptr, size) - long *ptr; - int size; +xrealloc (long int *ptr, int size) { long *result = (long *) realloc (ptr, ((unsigned) size)); if (result == ((long *) NULL)) @@ -207,9 +198,8 @@ xrealloc (ptr, size) /* Initialize a linebuffer for use */ -void -init_linebuffer (linebuffer) - struct linebuffer *linebuffer; +static void +init_linebuffer (struct linebuffer *linebuffer) { linebuffer->size = INITIAL_LINE_SIZE; linebuffer->buffer = ((char *) xmalloc (INITIAL_LINE_SIZE)); @@ -218,10 +208,8 @@ init_linebuffer (linebuffer) /* Read a line of text from `stream' into `linebuffer'. Return the length of the line. */ -long -readline (linebuffer, stream) - struct linebuffer *linebuffer; - FILE *stream; +static long +readline (struct linebuffer *linebuffer, FILE *stream) { char *buffer = linebuffer->buffer; char *p = linebuffer->buffer; @@ -255,10 +243,8 @@ readline (linebuffer, stream) If there is no keyword, return NULL and don't alter *REST. */ -char * -get_keyword (field, rest) - register char *field; - char **rest; +static char * +get_keyword (register char *field, char **rest) { static char keyword[KEYWORD_SIZE]; register char *ptr; @@ -282,9 +268,8 @@ get_keyword (field, rest) /* Nonzero if the string FIELD starts with a colon-terminated keyword. */ -boolean -has_keyword (field) - char *field; +static boolean +has_keyword (char *field) { char *ignored; return (get_keyword (field, &ignored) != ((char *) NULL)); @@ -300,10 +285,8 @@ has_keyword (field) We don't pay attention to overflowing WHERE; the caller has to make it big enough. */ -char * -add_field (the_list, field, where) - line_list the_list; - register char *field, *where; +static char * +add_field (line_list the_list, register char *field, register char *where) { register char c; while (true) @@ -358,8 +341,8 @@ add_field (the_list, field, where) return where; } -line_list -make_file_preface () +static line_list +make_file_preface (void) { char *the_string, *temp; long idiotic_interface; @@ -402,10 +385,8 @@ make_file_preface () return result; } -void -write_line_list (the_list, the_stream) - register line_list the_list; - FILE *the_stream; +static void +write_line_list (register line_list the_list, FILE *the_stream) { for ( ; the_list != ((line_list) NULL) ; @@ -417,23 +398,21 @@ write_line_list (the_list, the_stream) return; } -int -close_the_streams () +static int +close_the_streams (void) { register stream_list rem; for (rem = the_streams; rem != ((stream_list) NULL); rem = rem->rest_streams) - no_problems = (no_problems && - ((*rem->action) (rem->handle) == 0)); + if (no_problems && (*rem->action) (rem->handle) != 0) + error ("output error", NULL); the_streams = ((stream_list) NULL); return (no_problems ? EXIT_SUCCESS : EXIT_FAILURE); } -void -add_a_stream (the_stream, closing_action) - FILE *the_stream; - int (*closing_action)(); +static void +add_a_stream (FILE *the_stream, int (*closing_action) (FILE *)) { stream_list old = the_streams; the_streams = new_stream (); @@ -443,18 +422,18 @@ add_a_stream (the_stream, closing_action) return; } -int -my_fclose (the_file) - FILE *the_file; +static int +my_fclose (FILE *the_file) { putc ('\n', the_file); fflush (the_file); + if (ferror (the_file)) + return EOF; return fclose (the_file); } -boolean -open_a_file (name) - char *name; +static boolean +open_a_file (char *name) { FILE *the_stream = fopen (name, "a"); if (the_stream != ((FILE *) NULL)) @@ -468,9 +447,8 @@ open_a_file (name) return false; } -void -put_string (s) - char *s; +static void +put_string (char *s) { register stream_list rem; for (rem = the_streams; @@ -480,22 +458,21 @@ put_string (s) return; } -void -put_line (string) - char *string; +static void +put_line (const char *string) { register stream_list rem; for (rem = the_streams; rem != ((stream_list) NULL); rem = rem->rest_streams) { - char *s = string; + const char *s = string; int column = 0; /* Divide STRING into lines. */ while (*s != 0) { - char *breakpos; + const char *breakpos; /* Find the last char that fits. */ for (breakpos = s; *breakpos && column < 78; ++breakpos) @@ -541,10 +518,8 @@ put_line (string) the header name), and THE_LIST holds the continuation lines if any. Call open_a_file for each file. */ -void -setup_files (the_list, field) - register line_list the_list; - register char *field; +static void +setup_files (register line_list the_list, register char *field) { register char *start; register char c; @@ -579,9 +554,8 @@ setup_files (the_list, field) /* Compute the total size of all recipient names stored in THE_HEADER. The result says how big to make the buffer to pass to parse_header. */ -int -args_size (the_header) - header the_header; +static int +args_size (header the_header) { register header old = the_header; register line_list rem; @@ -611,10 +585,8 @@ args_size (the_header) Also, if the header has any FCC fields, call setup_files for each one. */ -void -parse_header (the_header, where) - header the_header; - register char *where; +static void +parse_header (header the_header, register char *where) { register header old = the_header; do @@ -645,8 +617,8 @@ parse_header (the_header, where) one for each line in that field. Continuation lines are grouped in the headers they continue. */ -header -read_header () +static header +read_header (void) { register header the_header = ((header) NULL); register line_list *next_line = ((line_list *) NULL); @@ -699,9 +671,8 @@ read_header () return the_header->next; } -void -write_header (the_header) - header the_header; +static void +write_header (header the_header) { register header old = the_header; do @@ -718,20 +689,16 @@ write_header (the_header) } int -main (argc, argv) - int argc; - char **argv; +main (int argc, char **argv) { char *command_line; header the_header; long name_length; - char *mail_program_name; + const char *mail_program_name; char buf[BUFLEN + 1]; register int size; FILE *the_pipe; - extern char *getenv (); - mail_program_name = getenv ("FAKEMAILER"); if (!(mail_program_name && *mail_program_name)) mail_program_name = MAIL_PROGRAM_NAME; @@ -764,13 +731,14 @@ main (argc, argv) put_string (buf); } + if (no_problems && (ferror (stdin) || fclose (stdin) != 0)) + error ("input error", NULL); + exit (close_the_streams ()); } #endif /* not MSDOS */ #endif /* not BSD 4.2 (or newer) */ -/* arch-tag: acb0afa6-315a-4c5b-b9e3-def5725c8783 - (do not change this comment) */ /* fakemail.c ends here */