Debian 1.0 deroff

3 files changed, 354 insertions, 0 deletions

diff --git a/gnu/usr.bin/deroff/Makefile b/gnu/usr.bin/deroff/Makefile
new file mode 100644
index 00000000000..454294ac530
--- /dev/null
+++ b/gnu/usr.bin/deroff/Makefile
@@ -0,0 +1,9 @@
+#	$OpenBSD: Makefile,v 1.1 1997/03/08 01:29:07 kstailey Exp $
+
+PROG=	deroff
+SRCS=	deroff.l
+LDADD+=	-ll
+LFLAGS=	-8
+CLEANFILES+= deroff.c
+
+.include <bsd.prog.mk>
diff --git a/gnu/usr.bin/deroff/deroff.1 b/gnu/usr.bin/deroff/deroff.1
new file mode 100644
index 00000000000..d3d8bfd0d67
--- /dev/null
+++ b/gnu/usr.bin/deroff/deroff.1
@@ -0,0 +1,53 @@
+.\" $OpenBSD: deroff.1,v 1.1 1997/03/08 01:29:08 kstailey Exp $ -*- nroff -*-
+.\" $DebianId: deroff.1,v 1.1 1996/12/27 23:21:22 david Rel david $
+.TH DEROFF 1 "December 23, 1996" "Debian" "User's Reference Manual"
+.SH NAME
+deroff \- remove roff and preprocessor constructs
+.SH SYNOPSIS
+.B deroff 
+[-w] 
+.RI { file(s) }
+.PP
+.SH DESCRIPTION
+.B deroff
+reads in the named files (or stdin if none are given) and strips out 
+.B troff 
+constructs and macros. The preprocessor
+.RB ( eqn ", " tbl ", " pic ", " grap ", and "vgrind )
+sections are removed entirely.
+The resulting output, suitable for spelling, is sent to stdout.
+.PP
+.SH OPTIONS
+.TP
+.I \-w
+output a word-by-word list, delimited by newlines.
+.PP
+.SH SEE ALSO
+.BR troff (1),
+.BR eqn (1),
+.BR pic (1),
+.BR grap (1) ,
+.BR vgrind (1) .
+.PP
+.SH BUGS
+.B deroff
+is not a full 
+.BR troff (1)
+interpreter; in particular it doesn't know how to expand macros and how to
+treat 
+.IR m[mse] "'s"
+registers.
+.br
+Macros are assumed to end with 
+.I .. 
+and are simply skipped.
+.br
+.B deroff
+can be fooled with circular 
+.IR ".nx " requests.
+The
+.IR ".so " request
+deepness is limited.
+.PP
+.SH AUTHOR
+David Frey <david@eos.lugs.ch>
diff --git a/gnu/usr.bin/deroff/deroff.l b/gnu/usr.bin/deroff/deroff.l
new file mode 100644
index 00000000000..550b4ab159f
--- /dev/null
+++ b/gnu/usr.bin/deroff/deroff.l
@@ -0,0 +1,292 @@
+%{
+/***************************************************************************
+ * deroff.l                                                                *
+ *                                                                         *
+ * Removes roff constructs and preprocessors input                         *
+ *                                                                         *
+ * (c) 1996 David Frey, <david@eos.lugs.ch>                                *
+ *                                                                         * 
+ * This program 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 of the License, or (at your  *
+ * option) any later version.                                              *
+ *                                                                         * 
+ * This program 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 this program; if not, write to the                           *
+ *     Free Software Foundation, Inc.,                                     *
+ *     59 Temple Place - Suite 330,                                        *
+ *     Boston, MA 02111, USA                                               *
+ ***************************************************************************/
+
+/*
+ * $OpenBSD: deroff.l,v 1.1 1997/03/08 01:29:08 kstailey Exp $
+ * $DebianId: deroff.l,v 1.1 1996/12/28 15:58:30 david Rel $
+ */
+
+/* Acknowledgments: The inclusion code is from the lex manpage. */
+
+#include <stdio.h>
+#include <stdlib.h>
+#ifndef __OpenBSD__
+# include <getopt.h>
+#else
+# include <errno.h>
+#endif
+#include <strings.h>
+#include <ctype.h>
+#include <locale.h>
+
+#define VERSION "1.0"
+
+#ifdef HAVE_GETOPT_LONG
+struct option const long_options[] =
+{
+  {"help",     no_argument, 0, 'h'},
+  {"help",     no_argument, 0, '?'},
+  {"version",  no_argument, 0, 'V'},
+  {"wordlist", no_argument, 0, 'w'},
+  {(char *)0,  no_argument, 0, (char)0}
+};
+#endif
+
+char *progname;
+unsigned int skip=0;    /* we are in preprocessor material, skip it */
+unsigned int line;      /* current line */
+unsigned int word=0;    /* flag: output a word-by-word list */
+char *yyname;           /* name of current file */
+
+/* from the flex manpage: */
+#define MAX_INCLUDE_DEPTH 10
+YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
+int include_stack_ptr = 0;
+%}
+
+/* the "so" state is used for picking up the name of an `include' file,
+   the "nx" state is similarly used to pick up the name of a `next' file. */
+%x nx so
+
+D       [[:digit:]]
+WS      [[:blank:]]
+
+/* MC are 'macro characters', TC are 'troff characters' and
+ * CC is the (leading) 'control character'. 
+ *
+ * Reference (for this whole section):
+ *   Troff User's Manual
+ *   Computing Sciences Technical Report No. 54
+ *   AT&T Bell Laboratories, Murry Hill, New Jersey 07974.
+ *   Revised November, 1992
+ */
+
+CC      [.']
+MC      [A-Z][A-Za-z]*
+TC      [a-z0-9.()*]
+
+%%
+
+{CC}?\\\"                       /* ignore troff comments */ ;
+^{CC}ft.*                       /* ignore font  changing commands */ ;
+\\f.                            /* ignore font  changing commands */ ;
+\\s[+-]?{D}+                    /* ignore size  changing commands */ ;
+
+"\\(f"[ifl]                     if (skip == 0) fprintf(yyout,"f%c",yytext[3]);
+                                /* ligature */
+"\\(F"[il]                      if (skip == 0) fprintf(yyout,"ff%c",yytext[3]); 
+                                /* dito */
+"\\("..                         /* ignore symbols */ ;
+\\[ |^0!]                       if (skip == 0) fputc(' ',yyout); 
+                                /* various blanks: full, half, quad, digit, 
+                                   and transparent line. */
+"\\"(-|"("(hy|mi|em))           if (skip == 0) fputc('-', yyout);
+                                /* treat minus, hyphen and em-dash 
+                                   (incorrectly) as - */
+\\[e&%]                         /* ignore escape, zero-width, optional
+                                   hyphenation character */ ;
+"\\*"[^(]|"\\*("..              /* ignore interpolation of ..?
+                                   (register variables in -ms)
+                                   NOTE: This is not very wise, as we
+                                         loose the accents! 
+                                         \*['`^,:~] should be converted to
+                                         acute,grave,circumflex,cedilla,
+                                         umlaut, tilde accents. */ ;
+
+\\${D}                          /* ignore interpolation of argument D */ ;
+\\.                             /* drop the other various troff commands */ ;
+
+^{CC}{WS}*nx                    BEGIN(nx);  /* read in next file */
+<nx>[^[:space:]]+               { /* got the include file name */
+                                  if (fclose(yyin) < 0) {
+                                    fprintf(stderr, 
+                                            "%s: cannot close '%s': %s!\n",
+                                            progname, yyname, strerror(errno));
+                                  } 
+                                  if (yytext[0] == '\0') {
+                                    fprintf(stderr, 
+                                            "%s: .nx request without "\
+                                            "filename!\n", progname);
+                                    exit(1);
+                                  }
+                                  yyin=fopen(yytext, "r");
+                                  if (yyin == NULL) {
+                                    fprintf(stderr, 
+                                            "%s: .nx request: "\
+                                            "cannot open '%s': %s!\n",
+                                            progname,yytext,strerror(errno));
+                                     exit(1);
+                                  }
+                                  yy_switch_to_buffer(
+                                    yy_create_buffer(yyin,YY_BUF_SIZE));
+                                  BEGIN(INITIAL);
+                                }
+^{CC}{WS}*so			BEGIN(so);
+<nx,so>{WS}*			/* eat the whitespace */
+<so>[^[:space:]]+               { /* got the include file name */
+                   		  if (include_stack_ptr >= MAX_INCLUDE_DEPTH) {
+                                    fprintf(stderr, 
+                                            "%s: .so-requests nested too "\
+                                            "deeply!\n",
+                                            progname );
+                                    exit(1);
+                                  }
+                                  include_stack[include_stack_ptr++] =
+                                    YY_CURRENT_BUFFER;
+                                  yyin=fopen(yytext, "r" );
+                                  if (yyin == NULL) {
+                                    fprintf(stderr, 
+                                            "%s: .so request: "\
+                                             "cannot open '%s': %s!\n",
+                                             progname,yytext,strerror(errno));
+                                     exit(1);
+                                  }
+                                  yy_switch_to_buffer(
+                                    yy_create_buffer(yyin,YY_BUF_SIZE));
+                                  BEGIN(INITIAL);
+                                }
+^{CC}{WS}*de.*                  skip++; /* troff macro definition */
+^{CC}("EQ"|[PTv]S|"G1")         skip++; 
+^{CC}("EN"|[PTv]E|"G2")         skip--;
+^{WS}*".."                      skip--; /* end of troff macro definition */
+                                /* XXX: macros have not necesserally 
+                                        to end with ".." */
+^{CC}{WS}*[a-ce-mo-rt-z]{TC}.*  /* ignore troff commands including args,
+				  .de, .nx and .so already handled above */ ;
+^{CC}{WS}*(d[^e]|n[^x]|s[^o]).* /* ignore troff commands including args,
+				  .de, .nx and .so already handled above */ ;
+^{CC}{WS}*{MC}{WS}*[+-]?{D}*    /* assume that this are macros, and throw 
+                                   numeric arguments away. */ ;
+[[:punct:]]?[[:blank:]]+        { if (skip == 0) {
+                                    if (!word) { ECHO; }
+                                    else fputc('\n', yyout); 
+                                  }
+                                }
+.                               { if (skip == 0) {
+                                    if (!word) ECHO; 
+                                    else {
+                                      char c=yytext[0];
+                                      if (isalnum(c) || (c == '\'')) {
+                                        fputc(c, yyout);
+                                      }
+                                      else if (ispunct(c)) {
+                                        fputc('\n', yyout);
+                                      }
+                                    }
+                                  }
+                                }
+\n                              { line++; if (skip == 0) ECHO; }
+<<EOF>>                         { /* at end-of-file, if it was a .so
+                                     request, return to parent file */
+                                  if (--include_stack_ptr < 0) yyterminate();
+                                  else yy_delete_buffer(YY_CURRENT_BUFFER);
+                                  yy_switch_to_buffer(
+                                    include_stack[include_stack_ptr]);
+                                }
+%%
+
+int yywrap()
+{
+  return 1;
+}
+
+void yyerror(char *s)
+{
+  fprintf(stderr,"%s: %s in line %d of %s\n", progname, s, line, yyname);
+}
+
+int usage(void)
+{
+  fprintf(stderr, "usage:\n");
+  fprintf(stderr, "  %s [-w] {file(s)}\n", progname);
+  fprintf(stderr, "  %s -h|-V\n\n", progname);
+  fprintf(stderr, "options:\n");
+  fprintf(stderr, "  -w  output a word-list.\n");
+  fprintf(stderr, "  -h  output a this usage information.\n");
+  fprintf(stderr, "  -V  output copyright and license information.\n");
+  exit(1);
+}
+
+int warranty(void)
+{
+  const char warranty[]="\
+Copyright 1996 David Frey.\n\
+This is free software; see the GNU General Public Licence version 2 or later\n\
+for copying conditions.  There is NO warranty.\n\n\
+The code for .so and .nx inclusion was taken from the example code in the 
+flex(1) manual page.";
+
+  fprintf(stderr,"%s version %s.\n\n", progname, VERSION); 
+  fprintf(stderr,"%s\n", warranty);
+  exit(0);
+}
+
+int main(int argc, char *argv[])
+{
+  int c, i, res;
+
+  progname=strrchr(argv[0],'/');
+  if (progname==NULL) progname=argv[0]; 
+  else progname++;
+
+  yyout=stdout; /* just to clarify */
+#ifdef HAVE_GETOPT_LONG
+  while ((c = getopt_long(argc, argv, "h?Vw",
+                          long_options, (int *) 0)) != EOF)
+#else
+  while ((c = getopt(argc, argv, "h?Vw")) != EOF)
+#endif
+  {
+    switch (c) {
+      case 'h': case '?': usage();    break; /* NEVER REACHED */
+      case 'V':           warranty(); break; /* NEVER REACHED */
+      case 'w':           word=1;     break;
+      case 0  : default :             break;
+    }
+  }
+
+  setlocale(LC_ALL, "");
+  if (argc > optind) {
+    res=0;
+    for(i=optind; i<argc; i++) {
+      yyname=argv[i]; yyin=fopen(yyname,"r");
+      if (yyin == NULL) {
+        fprintf(stderr, "%s: cannot open '%s': %s.\n",
+                progname, yyname, strerror(errno));
+      } 
+      else {
+        line=0; res += yylex(); 
+        if (fclose(yyin) < 0) {
+          fprintf(stderr, "%s: cannot close '%s': %s!\n",
+                  progname, yyname, strerror(errno));
+        }
+      }
+    }
+  }
+  else {
+    yyin=stdin; yyout=stdout; yyname="stdin"; line=0; res=yylex();
+  }
+  return res;
+}