digest-doc.c 2.07 KB
Newer Older
Richard M. Stallman's avatar
Richard M. Stallman committed
1
/* Give this program DOC-mm.nn.oo as standard input and it outputs to
Gerd Moellmann's avatar
Gerd Moellmann committed
2
   standard output a file of nroff output containing the doc strings.
Jim Blandy's avatar
Jim Blandy committed
3

4
   Copyright (C) 1987, 1994, 2001, 2002, 2003, 2004,
Glenn Morris's avatar
Glenn Morris committed
5
                 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
Gerd Moellmann's avatar
Gerd Moellmann committed
6 7 8 9 10

   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
11
   the Free Software Foundation; either version 3, or (at your option)
Gerd Moellmann's avatar
Gerd Moellmann committed
12 13 14 15 16 17 18 19
   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
Richard M. Stallman's avatar
Richard M. Stallman committed
20
   along with GNU Emacs; see the file COPYING.  If not, write to the
Lute Kamstra's avatar
Lute Kamstra committed
21 22
   Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
   Boston, MA 02110-1301, USA.
Pavel Janík's avatar
Pavel Janík committed
23

Jim Blandy's avatar
Jim Blandy committed
24 25 26 27
   See also sorted-doc.c, which produces similar output
   but in texinfo format and sorted by function/variable name.  */

#include <stdio.h>
28

29 30 31 32 33
#ifdef DOS_NT
#include <fcntl.h>		/* for O_BINARY */
#include <io.h>			/* for setmode */
#endif

34
int
Jim Blandy's avatar
Jim Blandy committed
35 36 37 38 39
main ()
{
  register int ch;
  register int notfirst = 0;

40 41 42 43 44 45
#ifdef DOS_NT
  /* DOC is a binary file.  */
  if (!isatty (fileno (stdin)))
    setmode (fileno (stdin), O_BINARY);
#endif

Jim Blandy's avatar
Jim Blandy committed
46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
  printf (".TL\n");
  printf ("Command Summary for GNU Emacs\n");
  printf (".AU\nRichard M. Stallman\n");
  while ((ch = getchar ()) != EOF)
    {
      if (ch == '\037')
	{
	  if (notfirst)
	    printf ("\n.DE");
	  else
	    notfirst = 1;

	  printf ("\n.SH\n");

	  ch = getchar ();
	  printf (ch == 'F' ? "Function " : "Variable ");

	  while ((ch = getchar ()) != '\n')  /* Changed this line */
	    {
	      if (ch != EOF)
		  putchar (ch);
	      else
		{
		  ungetc (ch, stdin);
		  break;
		}
	    }
	  printf ("\n.DS L\n");
	}
      else
	putchar (ch);
    }
  return 0;
}
Miles Bader's avatar
Miles Bader committed
80 81 82

/* arch-tag: 2ba2c9b0-4157-4eba-bd9f-967e3677e35f
   (do not change this comment) */