1 files changed, 52 insertions, 76 deletions

diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index 15ffa138b51..884b6c1001e 100644
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -38,17 +38,16 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 
 #include <stdio.h>
 #include <stdlib.h>   /* config.h unconditionally includes this anyway */
-#ifdef MSDOS
-#include <fcntl.h>
-#endif /* MSDOS */
+
 #ifdef WINDOWSNT
 /* Defined to be sys_fopen in ms-w32.h, but only #ifdef emacs, so this
    is really just insurance.  */
 #undef fopen
-#include <fcntl.h>
 #include <direct.h>
 #endif /* WINDOWSNT */
 
+#include <binary-io.h>
+
 #ifdef DOS_NT
 /* Defined to be sys_chdir in ms-w32.h, but only #ifdef emacs, so this
    is really just insurance.
@@ -56,12 +55,8 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
    Similarly, msdos defines this as sys_chdir, but we're not linking with the
    file where that function is defined.  */
 #undef chdir
-#define READ_TEXT "rt"
-#define READ_BINARY "rb"
 #define IS_SLASH(c)  ((c) == '/' || (c) == '\\' || (c) == ':')
 #else  /* not DOS_NT */
-#define READ_TEXT "r"
-#define READ_BINARY "r"
 #define IS_SLASH(c)  ((c) == '/')
 #endif /* not DOS_NT */
 
@@ -73,9 +68,6 @@ static void write_globals (void);
 
 #include <unistd.h>
 
-/* Stdio stream for output to the DOC file.  */
-FILE *outfile;
-
 /* Name this program was invoked with.  */
 char *progname;
 
@@ -135,33 +127,24 @@ main (int argc, char **argv)
 
   progname = argv[0];
 
-  outfile = stdout;
-
-  /* Don't put CRs in the DOC file.  */
-#ifdef MSDOS
-  _fmode = O_BINARY;
-#if 0  /* Suspicion is that this causes hanging.
-          So instead we require people to use -o on MSDOS.  */
-  (stdout)->_flag &= ~_IOTEXT;
-  _setmode (fileno (stdout), O_BINARY);
-#endif
-  outfile = 0;
-#endif /* MSDOS */
-#ifdef WINDOWSNT
-  _fmode = O_BINARY;
-  _setmode (fileno (stdout), O_BINARY);
-#endif /* WINDOWSNT */
-
   /* If first two args are -o FILE, output to FILE.  */
   i = 1;
   if (argc > i + 1 && !strcmp (argv[i], "-o"))
     {
-      outfile = fopen (argv[i + 1], "w");
+      if (! freopen (argv[i + 1], "w", stdout))
+        {
+          perror (argv[i + 1]);
+          return EXIT_FAILURE;
+        }
       i += 2;
     }
   if (argc > i + 1 && !strcmp (argv[i], "-a"))
     {
-      outfile = fopen (argv[i + 1], "a");
+      if (! freopen (argv[i + 1], "a", stdout))
+        {
+          perror (argv[i + 1]);
+          return EXIT_FAILURE;
+        }
       i += 2;
     }
   if (argc > i + 1 && !strcmp (argv[i], "-d"))
@@ -179,8 +162,7 @@ main (int argc, char **argv)
       ++i;
     }
 
-  if (outfile == 0)
-    fatal ("No output file specified", "");
+  set_binary_mode (fileno (stdout), O_BINARY);
 
   if (generate_globals)
     start_globals ();
@@ -215,13 +197,11 @@ put_filename (char *filename)
         filename = tmp + 1;
     }
 
-  putc (037, outfile);
-  putc ('S', outfile);
-  fprintf (outfile, "%s\n", filename);
+  printf ("\037S%s\n", filename);
 }
 
-/* Read file FILENAME and output its doc strings to outfile.  */
-/* Return 1 if file is not found, 0 if it is found.  */
+/* Read file FILENAME and output its doc strings to stdout.
+   Return 1 if file is not found, 0 if it is found.  */
 
 static int
 scan_file (char *filename)
@@ -232,19 +212,19 @@ scan_file (char *filename)
   if (!generate_globals)
     put_filename (filename);
   if (len > 4 && !strcmp (filename + len - 4, ".elc"))
-    return scan_lisp_file (filename, READ_BINARY);
+    return scan_lisp_file (filename, "rb");
   else if (len > 3 && !strcmp (filename + len - 3, ".el"))
-    return scan_lisp_file (filename, READ_TEXT);
+    return scan_lisp_file (filename, "r");
   else
-    return scan_c_file (filename, READ_TEXT);
+    return scan_c_file (filename, "r");
 }
 
 static void
 start_globals (void)
 {
-  fprintf (outfile, "/* This file was auto-generated by make-docfile.  */\n");
-  fprintf (outfile, "/* DO NOT EDIT.  */\n");
-  fprintf (outfile, "struct emacs_globals {\n");
+  puts ("/* This file was auto-generated by make-docfile.  */");
+  puts ("/* DO NOT EDIT.  */");
+  puts ("struct emacs_globals {");
 }
 
 static char input_buffer[128];
@@ -373,7 +353,7 @@ scan_keyword_or_put_char (int ch, struct rcsoc_state *state)
 
 /* Skip a C string or C-style comment from INFILE, and return the
    character that follows.  COMMENT non-zero means skip a comment.  If
-   PRINTFLAG is positive, output string contents to outfile.  If it is
+   PRINTFLAG is positive, output string contents to stdout.  If it is
    negative, store contents in buf.  Convert escape sequences \n and
    \t to newline and tab; discard \ followed by newline.
    If SAW_USAGE is non-zero, then any occurrences of the string `usage:'
@@ -388,7 +368,7 @@ read_c_string_or_comment (FILE *infile, int printflag, int comment, int *saw_usa
 
   state.in_file = infile;
   state.buf_ptr = (printflag < 0 ? input_buffer : 0);
-  state.out_file = (printflag > 0 ? outfile : 0);
+  state.out_file = (printflag > 0 ? stdout : 0);
   state.pending_spaces = 0;
   state.pending_newlines = 0;
   state.keyword = (saw_usage ? "usage:" : 0);
@@ -465,18 +445,18 @@ read_c_string_or_comment (FILE *infile, int printflag, int comment, int *saw_usa
 
 
 
-/* Write to file OUT the argument names of function FUNC, whose text is in BUF.
+/* Write to stdout the argument names of function FUNC, whose text is in BUF.
    MINARGS and MAXARGS are the minimum and maximum number of arguments.  */
 
 static void
-write_c_args (FILE *out, char *func, char *buf, int minargs, int maxargs)
+write_c_args (char *func, char *buf, int minargs, int maxargs)
 {
   register char *p;
   int in_ident = 0;
   char *ident_start IF_LINT (= NULL);
   size_t ident_length = 0;
 
-  fprintf (out, "(fn");
+  fputs ("(fn", stdout);
 
   if (*buf == '(')
     ++buf;
@@ -517,10 +497,10 @@ write_c_args (FILE *out, char *func, char *buf, int minargs, int maxargs)
           if (strncmp (ident_start, "void", ident_length) == 0)
             continue;
 
-          putc (' ', out);
+          putchar (' ');
 
           if (minargs == 0 && maxargs > 0)
-            fprintf (out, "&optional ");
+            fputs ("&optional ", stdout);
 
           minargs--;
           maxargs--;
@@ -528,7 +508,7 @@ write_c_args (FILE *out, char *func, char *buf, int minargs, int maxargs)
           /* In C code, `default' is a reserved word, so we spell it
              `defalt'; demangle that here.  */
           if (ident_length == 6 && memcmp (ident_start, "defalt", 6) == 0)
-            fprintf (out, "DEFAULT");
+            fputs ("DEFAULT", stdout);
           else
             while (ident_length-- > 0)
               {
@@ -539,12 +519,12 @@ write_c_args (FILE *out, char *func, char *buf, int minargs, int maxargs)
                 else if (c == '_')
                   /* Print underscore as hyphen.  */
                   c = '-';
-                putc (c, out);
+                putchar (c);
               }
         }
     }
 
-  putc (')', out);
+  putchar (')');
 }
 
 /* The types of globals.  These are sorted roughly in decreasing alignment
@@ -613,8 +593,8 @@ compare_globals (const void *a, const void *b)
 static void
 close_emacs_globals (void)
 {
-  fprintf (outfile, "};\n");
-  fprintf (outfile, "extern struct emacs_globals globals;\n");
+  puts ("};");
+  puts ("extern struct emacs_globals globals;");
 }
 
 static void
@@ -641,7 +621,7 @@ write_globals (void)
           if (!seen_defun)
             {
               close_emacs_globals ();
-              fprintf (outfile, "\n");
+              putchar ('\n');
               seen_defun = 1;
             }
           break;
@@ -651,9 +631,9 @@ write_globals (void)
 
       if (type)
         {
-          fprintf (outfile, "  %s f_%s;\n", type, globals[i].name);
-          fprintf (outfile, "#define %s globals.f_%s\n",
-                   globals[i].name, globals[i].name);
+          printf ("  %s f_%s;\n", type, globals[i].name);
+          printf ("#define %s globals.f_%s\n",
+                  globals[i].name, globals[i].name);
         }
       else
         {
@@ -664,16 +644,16 @@ write_globals (void)
               || strcmp (globals[i].name, "Fkill_emacs") == 0
               || strcmp (globals[i].name, "Fexit_recursive_edit") == 0
               || strcmp (globals[i].name, "Fabort_recursive_edit") == 0)
-            fprintf (outfile, "_Noreturn ");
+            fputs ("_Noreturn ", stdout);
 
-          fprintf (outfile, "EXFUN (%s, ", globals[i].name);
+          printf ("EXFUN (%s, ", globals[i].name);
           if (globals[i].value == -1)
-            fprintf (outfile, "MANY");
+            fputs ("MANY", stdout);
           else if (globals[i].value == -2)
-            fprintf (outfile, "UNEVALLED");
+            fputs ("UNEVALLED", stdout);
           else
-            fprintf (outfile, "%d", globals[i].value);
-          fprintf (outfile, ")");
+            printf ("%d", globals[i].value);
+          putchar (')');
 
           /* It would be nice to have a cleaner way to deal with these
              special hacks, too.  */
@@ -681,9 +661,9 @@ write_globals (void)
               || strcmp (globals[i].name, "Ftool_bar_height") == 0
               || strcmp (globals[i].name, "Fmax_char") == 0
               || strcmp (globals[i].name, "Fidentity") == 0)
-            fprintf (outfile, " ATTRIBUTE_CONST");
+            fputs (" ATTRIBUTE_CONST", stdout);
 
-          fprintf (outfile, ";\n");
+          puts (";");
         }
 
       while (i + 1 < num_globals
@@ -952,9 +932,7 @@ scan_c_file (char *filename, const char *mode)
           int comment = c != '"';
           int saw_usage;
 
-          putc (037, outfile);
-          putc (defvarflag ? 'V' : 'F', outfile);
-          fprintf (outfile, "%s\n", input_buffer);
+          printf ("\037%c%s\n", defvarflag ? 'V' : 'F', input_buffer);
 
           if (comment)
             getc (infile);      /* Skip past `*'.  */
@@ -996,8 +974,8 @@ scan_c_file (char *filename, const char *mode)
               while (c != ')');
               *p = '\0';
               /* Output them.  */
-              fprintf (outfile, "\n\n");
-              write_c_args (outfile, input_buffer, argbuf, minargs, maxargs);
+              fputs ("\n\n", stdout);
+              write_c_args (input_buffer, argbuf, minargs, maxargs);
             }
           else if (defunflag && maxargs == -1 && !saw_usage)
             /* The DOC should provide the usage form.  */
@@ -1433,12 +1411,10 @@ scan_lisp_file (const char *filename, const char *mode)
          In the latter case, the opening quote (and leading backslash-newline)
          have already been read.  */
 
-      putc (037, outfile);
-      putc (type, outfile);
-      fprintf (outfile, "%s\n", buffer);
+      printf ("\037%c%s\n", type, buffer);
       if (saved_string)
         {
-          fputs (saved_string, outfile);
+          fputs (saved_string, stdout);
           /* Don't use one dynamic doc string twice.  */
           free (saved_string);
           saved_string = 0;