This commit was generated by cvs2svn to compensate for changes in r75587,

which included commits to RCS files with non-trunk default branches.

3 files changed, 0 insertions, 1080 deletions

diff --git a/contrib/groff/grodvi/Makefile.sub b/contrib/groff/grodvi/Makefile.sub
deleted file mode 100644
index 0e5d32c..0000000
--- a/contrib/groff/grodvi/Makefile.sub
+++ /dev/null
@@ -1,6 +0,0 @@
-PROG=grodvi
-MAN1=grodvi.n
-XLIBS=$(LIBDRIVER) $(LIBGROFF)
-MLIB=$(LIBM)
-OBJS=dvi.o
-CCSRCS=$(srcdir)/dvi.cc
diff --git a/contrib/groff/grodvi/dvi.cc b/contrib/groff/grodvi/dvi.cc
deleted file mode 100644
index 305470e1..0000000
--- a/contrib/groff/grodvi/dvi.cc
+++ /dev/null
@@ -1,900 +0,0 @@
-// -*- C++ -*-
-/* Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc.
-     Written by James Clark (jjc@jclark.com)
-
-This file is part of groff.
-
-groff 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.
-
-groff 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 groff; see the file COPYING.  If not, write to the Free Software
-Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#include "driver.h"
-#include "nonposix.h"
-
-#define DEFAULT_LINEWIDTH 40
-static int linewidth = DEFAULT_LINEWIDTH;
-
-static int draw_flag = 1;
-
-/* These values were chosen because:
-
-(MULTIPLIER*SIZESCALE)/(RES*UNITWIDTH) == 1/(2^20 * 72.27)
-
-and 57816 is an exact multiple of both 72.27*SIZESCALE and 72.
-
-The width in the groff font file is the product of MULTIPLIER and the
-width in the tfm file. */
-
-#define RES 57816
-#define RES_7227 (RES/7227)
-#define UNITWIDTH 131072
-#define SIZESCALE 100
-#define MULTIPLIER 1
-
-#define FILL_MAX 1000
-
-class dvi_font : public font {
-  dvi_font(const char *);
-public:
-  int checksum;
-  int design_size;
-  ~dvi_font();
-  void handle_unknown_font_command(const char *command, const char *arg,
-				   const char *filename, int lineno);
-  static dvi_font *load_dvi_font(const char *);
-};
-
-dvi_font *dvi_font::load_dvi_font(const char *s)
-{
-  dvi_font *f = new dvi_font(s);
-  if (!f->load()) {
-    delete f;
-    return 0;
-  }
-  return f;
-}
-
-dvi_font::dvi_font(const char *nm)
-: font(nm), checksum(0), design_size(0)
-{
-}
-
-dvi_font::~dvi_font()
-{
-}
-
-void dvi_font::handle_unknown_font_command(const char *command,
-					   const char *arg,
-					   const char *filename, int lineno)
-{
-  char *ptr;
-  if (strcmp(command, "checksum") == 0) {
-    if (arg == 0)
-      fatal_with_file_and_line(filename, lineno,
-			       "`checksum' command requires an argument");
-    checksum = int(strtol(arg, &ptr, 10));
-    if (checksum == 0 && ptr == arg) {
-      fatal_with_file_and_line(filename, lineno, "bad checksum");
-    }
-  }
-  else if (strcmp(command, "designsize") == 0) {
-    if (arg == 0)
-      fatal_with_file_and_line(filename, lineno,
-			       "`designsize' command requires an argument");
-    design_size = int(strtol(arg, &ptr, 10));
-    if (design_size == 0 && ptr == arg) {
-      fatal_with_file_and_line(filename, lineno, "bad design size");
-    }
-  }
-}
-
-#define FONTS_MAX 256
-
-struct output_font {
-  dvi_font *f;
-  int point_size;
-  output_font() : f(0) { }
-};
-
-class dvi_printer : public printer {
-  FILE *fp;
-  int max_drift;
-  int byte_count;
-  int last_bop;
-  int page_count;
-  int cur_h;
-  int cur_v;
-  int end_h;
-  int max_h;
-  int max_v;
-  output_font output_font_table[FONTS_MAX];
-  font *cur_font;
-  int cur_point_size;
-  int pushed;
-  int pushed_h;
-  int pushed_v;
-  int have_pushed;
-  void preamble();
-  void postamble();
-  void define_font(int);
-  void set_font(int);
-  void possibly_begin_line();
-protected:
-  enum {
-    id_byte = 2,
-    set1 = 128,
-    put1 = 133,
-    put_rule = 137,
-    bop = 139,
-    eop = 140,
-    push = 141,
-    pop = 142,
-    right1 = 143,
-    down1 = 157,
-    fnt_num_0 = 171,
-    fnt1 = 235,
-    xxx1 = 239,
-    fnt_def1 = 243,
-    pre = 247,
-    post = 248,
-    post_post = 249,
-    filler = 223
-  };
-  int line_thickness;
-
-  void out1(int);
-  void out2(int);
-  void out3(int);
-  void out4(int);
-  void moveto(int, int);
-  void out_string(const char *);
-  void out_signed(unsigned char, int);
-  void out_unsigned(unsigned char, int);
-  void do_special(const char *);
-public:
-  dvi_printer();
-  ~dvi_printer();
-  font *make_font(const char *);
-  void begin_page(int);
-  void end_page(int);
-  void set_char(int, font *, const environment *, int w, const char *name);
-  void special(char *arg, const environment *env);
-  void end_of_line();
-  void draw(int code, int *p, int np, const environment *env);
-};
-
-
-class draw_dvi_printer : public dvi_printer {
-  int output_pen_size;
-  int fill;
-  void set_line_thickness(const environment *);
-  void fill_next();
-public:
-  draw_dvi_printer();
-  ~draw_dvi_printer();
-  void draw(int code, int *p, int np, const environment *env);
-  void end_page(int);
-};
-
-dvi_printer::dvi_printer()
-: fp(stdout), byte_count(0), last_bop(-1), page_count(0), max_h(0), max_v(0),
-  cur_font(0), cur_point_size(-1), pushed(0), line_thickness(-1)
-{
-  if (font::res != RES)
-    fatal("resolution must be %1", RES);
-  if (font::unitwidth != UNITWIDTH)
-    fatal("unitwidth must be %1", UNITWIDTH);
-  if (font::hor != 1)
-    fatal("hor must be equal to 1");
-  if (font::vert != 1)
-    fatal("vert must be equal to 1");
-  if (font::sizescale != SIZESCALE)
-    fatal("sizescale must be equal to %1", SIZESCALE);
-  max_drift = font::res/1000;	// this is fairly arbitrary
-  preamble();
-}
-
-dvi_printer::~dvi_printer()
-{
-  postamble();
-}
-
-
-draw_dvi_printer::draw_dvi_printer()
-: output_pen_size(-1), fill(FILL_MAX)
-{
-}
-
-draw_dvi_printer::~draw_dvi_printer()
-{
-}
-
-
-void dvi_printer::out1(int n)
-{
-  byte_count += 1;
-  putc(n & 0xff, fp);
-}
-
-void dvi_printer::out2(int n)
-{
-  byte_count += 2;
-  putc((n >> 8) & 0xff, fp);
-  putc(n & 0xff, fp);
-}
-
-void dvi_printer::out3(int n)
-{
-  byte_count += 3;
-  putc((n >> 16) & 0xff, fp);
-  putc((n >> 8) & 0xff, fp);
-  putc(n & 0xff, fp);
-}
-
-void dvi_printer::out4(int n)
-{
-  byte_count += 4;
-  putc((n >> 24) & 0xff, fp);
-  putc((n >> 16) & 0xff, fp);
-  putc((n >> 8) & 0xff, fp);
-  putc(n & 0xff, fp);
-}
-
-void dvi_printer::out_string(const char *s)
-{
-  out1(strlen(s));
-  while (*s != 0)
-    out1(*s++);
-}
-
-
-void dvi_printer::end_of_line()
-{
-  if (pushed) {
-    out1(pop);
-    pushed = 0;
-    cur_h = pushed_h;
-    cur_v = pushed_v;
-  }
-}
-
-void dvi_printer::possibly_begin_line()
-{
-  if (!pushed) {
-    have_pushed = pushed = 1;
-    pushed_h = cur_h;
-    pushed_v = cur_v;
-    out1(push);
-  }
-}
-
-int scale(int x, int z)
-{
-  int sw;
-  int a, b, c, d;
-  int alpha, beta;
-  alpha = 16*z; beta = 16;
-  while (z >= 040000000L) {
-    z /= 2; beta /= 2;
-  }
-  d = x & 255;
-  c = (x >> 8) & 255;
-  b = (x >> 16) & 255;
-  a = (x >> 24) & 255;
-  sw = (((((d * z) / 0400) + (c * z)) / 0400) + (b * z)) / beta;
-  if (a == 255)
-    sw -= alpha;
-  else
-    assert(a == 0);
-  return sw;
-}
-
-
-void dvi_printer::set_char(int index, font *f, const environment *env, int w, const char *name)
-{
-  int code = f->get_code(index);
-  if (env->size != cur_point_size || f != cur_font) {
-    cur_font = f;
-    cur_point_size = env->size;
-    int i;
-    for (i = 0;; i++) {
-      if (i >= FONTS_MAX) {
-	fatal("too many output fonts required");
-      }
-      if (output_font_table[i].f == 0) {
-	output_font_table[i].f = (dvi_font *)cur_font;
-	output_font_table[i].point_size = cur_point_size;
-	define_font(i);
-      }
-      if (output_font_table[i].f == cur_font
-	  && output_font_table[i].point_size == cur_point_size)
-	break;
-    }
-    set_font(i);
-  }
-  int distance = env->hpos - cur_h;
-  if (env->hpos != end_h && distance != 0) {
-    out_signed(right1, distance);
-    cur_h = env->hpos;
-  }
-  else if (distance > max_drift) {
-    out_signed(right1, distance - max_drift);
-    cur_h = env->hpos - max_drift;
-  }
-  else if (distance < -max_drift) {
-    out_signed(right1, distance + max_drift);
-    cur_h = env->hpos + max_drift;
-  }
-  if (env->vpos != cur_v) {
-    out_signed(down1, env->vpos - cur_v);
-    cur_v = env->vpos;
-  }
-  possibly_begin_line();
-  end_h = env->hpos + w;
-  cur_h += scale(f->get_width(index, UNITWIDTH)/MULTIPLIER,
-		cur_point_size*RES_7227);
-  if (cur_h > max_h)
-    max_h = cur_h;
-  if (cur_v > max_v)
-    max_v = cur_v;
-  if (code >= 0 && code <= 127)
-    out1(code);
-  else
-    out_unsigned(set1, code);
-}
-
-void dvi_printer::define_font(int i)
-{
-  out_unsigned(fnt_def1, i);
-  dvi_font *f = output_font_table[i].f;
-  out4(f->checksum);
-  out4(output_font_table[i].point_size*RES_7227);
-  out4(int((double(f->design_size)/(1<<20))*RES_7227*100 + .5));
-  const char *nm = f->get_internal_name();
-  out1(0);
-  out_string(nm);
-}
-
-void dvi_printer::set_font(int i)
-{
-  if (i >= 0 && i <= 63)
-    out1(fnt_num_0 + i);
-  else
-    out_unsigned(fnt1, i);
-}
-
-void dvi_printer::out_signed(unsigned char base, int param)
-{
-  if (-128 <= param && param < 128) {
-    out1(base);
-    out1(param);
-  }
-  else if (-32768 <= param && param < 32768) {
-    out1(base+1);
-    out2(param);
-  }
-  else if (-(1 << 23) <= param && param < (1 << 23)) {
-    out1(base+2);
-    out3(param);
-  }
-  else {
-    out1(base+3);
-    out4(param);
-  }
-}
-
-void dvi_printer::out_unsigned(unsigned char base, int param)
-{
-  if (param >= 0) {
-    if (param < 256) {
-      out1(base);
-      out1(param);
-    }
-    else if (param < 65536) {
-      out1(base+1);
-      out2(param);
-    }
-    else if (param < (1 << 24)) {
-      out1(base+2);
-      out3(param);
-    }
-    else {
-      out1(base+3);
-      out4(param);
-    }
-  }
-  else {
-    out1(base+3);
-    out4(param);
-  }
-}
-
-void dvi_printer::preamble()
-{
-  out1(pre);
-  out1(id_byte);
-  out4(254000);
-  out4(font::res);
-  out4(1000);
-  out1(0);
-}
-
-void dvi_printer::postamble()
-{
-  int tem = byte_count;
-  out1(post);
-  out4(last_bop);
-  out4(254000);
-  out4(font::res);
-  out4(1000);
-  out4(max_v);
-  out4(max_h);
-  out2(have_pushed); // stack depth
-  out2(page_count);
-  int i;
-  for (i = 0; i < FONTS_MAX && output_font_table[i].f != 0; i++)
-    define_font(i);
-  out1(post_post);
-  out4(tem);
-  out1(id_byte);
-  for (i = 0; i < 4 || byte_count % 4 != 0; i++)
-    out1(filler);
-}  
-  
-void dvi_printer::begin_page(int i)
-{
-  page_count++;
-  int tem = byte_count;
-  out1(bop);
-  out4(i);
-  for (int j = 1; j < 10; j++)
-    out4(0);
-  out4(last_bop);
-  last_bop = tem;
-  // By convention position (0,0) in a dvi file is placed at (1in, 1in).
-  cur_h = font::res;
-  cur_v = font::res;
-  end_h = 0;
-}
-
-void dvi_printer::end_page(int)
-{
-  if (pushed)
-    end_of_line();
-  out1(eop);
-  cur_font = 0;
-}
-
-void draw_dvi_printer::end_page(int len)
-{
-  dvi_printer::end_page(len);
-  output_pen_size = -1;
-}
-
-void dvi_printer::do_special(const char *s)
-{
-  int len = strlen(s);
-  if (len == 0)
-    return;
-  possibly_begin_line();
-  out_unsigned(xxx1, len);
-  while (*s)
-    out1(*s++);
-}
-
-void dvi_printer::special(char *arg, const environment *env)
-{
-  moveto(env->hpos, env->vpos);
-  do_special(arg);
-}
-
-void dvi_printer::moveto(int h, int v)
-{
-  if (h != cur_h) {
-    out_signed(right1, h - cur_h);
-    cur_h = h;
-    if (cur_h > max_h)
-      max_h = cur_h;
-  }
-  if (v != cur_v) {
-    out_signed(down1, v - cur_v);
-    cur_v = v;
-    if (cur_v > max_v)
-      max_v = cur_v;
-  }
-  end_h = 0;
-}
-
-void dvi_printer::draw(int code, int *p, int np, const environment *env)
-{
-  if (code == 'l') {
-    int x, y;
-    int height = 0, width;
-    int thickness;
-    if (line_thickness < 0)
-      thickness = env->size*RES_7227*linewidth/1000;
-    else if (line_thickness > 0)
-      thickness = line_thickness;
-    else
-      thickness = 1;
-    if (np != 2) {
-      error("2 arguments required for line");
-    }
-    else if (p[0] == 0) {
-      // vertical rule
-      if (p[1] > 0) {
-	x = env->hpos - thickness/2;
-	y = env->vpos + p[1] + thickness/2;
-	height = p[1] + thickness;
-	width = thickness;
-      }
-      else if (p[1] < 0) {
-	x = env->hpos - thickness/2;
-	y = env->vpos + thickness/2;
-	height = thickness - p[1];
-	width = thickness;
-      }
-    }
-    else if (p[1] == 0) {
-      if (p[0] > 0) {
-	x = env->hpos - thickness/2;
-	y = env->vpos + thickness/2;
-	height = thickness;
-	width = p[0] + thickness;
-      }
-      else if (p[0] < 0) {
-	x = env->hpos - p[0] - thickness/2;
-	y = env->vpos + thickness/2;
-	height = thickness;
-	width = thickness - p[0];
-      }
-    }
-    if (height != 0) {
-      moveto(x, y);
-      out1(put_rule);
-      out4(height);
-      out4(width);
-    }
-  }
-  else if (code == 't') {
-    if (np == 0) {
-      line_thickness = -1;
-    }
-    else {
-      // troff gratuitously adds an extra 0
-      if (np != 1 && np != 2)
-	error("0 or 1 argument required for thickness");
-      else
-	line_thickness = p[0];
-    }
-  }
-  else if (code == 'R') {
-    if (np != 2)
-      error("2 arguments required for rule");
-    else if (p[0] != 0 || p[1] != 0) {
-      int dh = p[0];
-      int dv = p[1];
-      int oh = env->hpos;
-      int ov = env->vpos;
-      if (dv > 0) {
-	ov += dv;
-	dv = -dv;
-      }
-      if (dh < 0) {
-	oh += dh;
-	dh = -dh;
-      }
-      moveto(oh, ov);
-      out1(put_rule);
-      out4(-dv);
-      out4(dh);
-    }
-  }
-}
-
-// XXX Will this overflow?
-
-inline int milliinches(int n)
-{
-  return (n*1000 + font::res/2)/font::res;
-}
-
-void draw_dvi_printer::set_line_thickness(const environment *env)
-{
-  int desired_pen_size
-    = milliinches(line_thickness < 0
-		  // Will this overflow?
-		  ? env->size*RES_7227*linewidth/1000
-		  : line_thickness);
-  if (desired_pen_size != output_pen_size) {
-    char buf[256];
-    sprintf(buf, "pn %d", desired_pen_size);
-    do_special(buf);
-    output_pen_size = desired_pen_size;
-  }
-}
-
-void draw_dvi_printer::fill_next()
-{
-  char buf[256];
-  sprintf(buf, "sh %.3f", double(fill)/FILL_MAX);
-  do_special(buf);
-}
-
-void draw_dvi_printer::draw(int code, int *p, int np, const environment *env)
-{
-  char buf[1024];
-  int fill_flag = 0;
-  switch (code) {
-  case 'C':
-    fill_flag = 1;
-    // fall through
-  case 'c':
-    // troff adds an extra argument to C
-    if (np != 1 && !(code == 'C' && np == 2)) {
-      error("1 argument required for circle");
-      break;
-    }
-    moveto(env->hpos+p[0]/2, env->vpos);
-    if (fill_flag)
-      fill_next();
-    else
-      set_line_thickness(env);
-    int rad;
-    rad = milliinches(p[0]/2);
-    sprintf(buf, "%s 0 0 %d %d 0 6.28319",
-	    (fill_flag ? "ia" : "ar"),
-	    rad,
-	    rad);
-    do_special(buf);
-    break;
-  case 'l':
-    if (np != 2) {
-      error("2 arguments required for line");
-      break;
-    }
-    moveto(env->hpos, env->vpos);
-    set_line_thickness(env);
-    do_special("pa 0 0");
-    sprintf(buf, "pa %d %d", milliinches(p[0]), milliinches(p[1]));
-    do_special(buf);
-    do_special("fp");
-    break;
-  case 'E':
-    fill_flag = 1;
-    // fall through
-  case 'e':
-    if (np != 2) {
-      error("2 arguments required for ellipse");
-      break;
-    }
-    moveto(env->hpos+p[0]/2, env->vpos);
-    if (fill_flag)
-      fill_next();
-    sprintf(buf, "%s 0 0 %d %d 0 6.28319",
-	    (fill_flag ? "ia" : "ar"),
-	    milliinches(p[0]/2),
-	    milliinches(p[1]/2));
-    do_special(buf);
-    break;
-  case 'P':
-    fill_flag = 1;
-    // fall through
-  case 'p':
-    {
-      if (np & 1) {
-	error("even number of arguments required for polygon");
-	break;
-      }
-      if (np == 0) {
-	error("no arguments for polygon");
-	break;
-      }
-      moveto(env->hpos, env->vpos);
-      if (fill_flag)
-	fill_next();
-      else
-	set_line_thickness(env);
-      do_special("pa 0 0");
-      int h = 0, v = 0;
-      for (int i = 0; i < np; i += 2) {
-	h += p[i];
-	v += p[i+1];
-	sprintf(buf, "pa %d %d", milliinches(h), milliinches(v));
-	do_special(buf);
-      }
-      do_special("pa 0 0");
-      do_special(fill_flag ? "ip" : "fp");
-      break;
-    }
-  case '~':
-    {
-      if (np & 1) {
-	error("even number of arguments required for spline");
-	break;
-      }
-      if (np == 0) {
-	error("no arguments for spline");
-	break;
-      }
-      moveto(env->hpos, env->vpos);
-      set_line_thickness(env);
-      do_special("pa 0 0");
-      int h = 0, v = 0;
-      for (int i = 0; i < np; i += 2) {
-	h += p[i];
-	v += p[i+1];
-	sprintf(buf, "pa %d %d", milliinches(h), milliinches(v));
-	do_special(buf);
-      }
-      do_special("sp");
-      break;
-    }
-  case 'a':
-    {
-      if (np != 4) {
-	error("4 arguments required for arc");
-	break;
-      }
-      set_line_thickness(env);
-      double c[2];
-      if (adjust_arc_center(p, c)) {
-	int rad = milliinches(int(sqrt(c[0]*c[0] + c[1]*c[1]) + .5));
-	moveto(env->hpos + int(c[0]), env->vpos + int(c[1]));
-	sprintf(buf, "ar 0 0 %d %d %f %f",
-		rad,
-		rad,
-		atan2(p[1] + p[3] - c[1], p[0] + p[2] - c[0]),
-		atan2(-c[1], -c[0]));
-	do_special(buf);
-      }
-      else {
-	moveto(env->hpos, env->vpos);
-	do_special("pa 0 0");
-	sprintf(buf,
-		"pa %d %d",
-		milliinches(p[0] + p[2]),
-		milliinches(p[1] + p[3]));
-	do_special(buf);
-	do_special("fp");
-      }
-      break;
-    }
-  case 't':
-    {
-      if (np == 0) {
-	line_thickness = -1;
-      }
-      else {
-	// troff gratuitously adds an extra 0
-	if (np != 1 && np != 2) {
-	  error("0 or 1 argument required for thickness");
-	  break;
-	}
-	line_thickness = p[0];
-      }
-      break;
-    }
-  case 'f':
-    {
-      if (np != 1 && np != 2) {
-	error("1 argument required for fill");
-	break;
-      }
-      fill = p[0];
-      if (fill < 0 || fill > FILL_MAX)
-	fill = FILL_MAX;
-      break;
-    }
-  case 'R':
-    {
-      if (np != 2) {
-	error("2 arguments required for rule");
-	break;
-      }
-      int dh = p[0];
-      if (dh == 0)
-	break;
-      int dv = p[1];
-      if (dv == 0)
-	break;
-      int oh = env->hpos;
-      int ov = env->vpos;
-      if (dv > 0) {
-	ov += dv;
-	dv = -dv;
-      }
-      if (dh < 0) {
-	oh += dh;
-	dh = -dh;
-      }
-      moveto(oh, ov);
-      out1(put_rule);
-      out4(-dv);
-      out4(dh);
-      break;
-    }
-  default:
-    error("unrecognised drawing command `%1'", char(code));
-    break;
-  }
-}
-
-font *dvi_printer::make_font(const char *nm)
-{
-  return dvi_font::load_dvi_font(nm);
-}
-
-printer *make_printer()
-{
-  if (draw_flag)
-    return new draw_dvi_printer;
-  else
-    return new dvi_printer;
-}
-
-static void usage();
-
-int main(int argc, char **argv)
-{
-  program_name = argv[0];
-  static char stderr_buf[BUFSIZ];
-  setbuf(stderr, stderr_buf);
-  int c;
-  while ((c = getopt(argc, argv, "F:vw:d")) != EOF)
-    switch(c) {
-    case 'v':
-      {
-	extern const char *Version_string;
-	fprintf(stderr, "grodvi version %s\n", Version_string);
-	fflush(stderr);
-	break;
-      }
-    case 'w':
-      if (sscanf(optarg, "%d", &linewidth) != 1
-	  || linewidth < 0 || linewidth > 1000) {
-	error("bad line width");
-	linewidth = DEFAULT_LINEWIDTH;
-      }
-      break;
-    case 'd':
-      draw_flag = 0;
-      break;
-    case 'F':
-      font::command_line_font_dir(optarg);
-      break;
-    case '?':
-      usage();
-      break;
-    default:
-      assert(0);
-    }
-#ifdef SET_BINARY
-  SET_BINARY(fileno(stdout));
-#endif
-  if (optind >= argc)
-    do_file("-");
-  else {
-    for (int i = optind; i < argc; i++)
-      do_file(argv[i]);
-  }
-  delete pr;
-  return 0;
-}
-
-static void usage()
-{
-  fprintf(stderr, "usage: %s [-dv] [-F dir] [-w n] [files ...]\n",
-	  program_name);
-  exit(1);
-}
diff --git a/contrib/groff/grodvi/grodvi.man b/contrib/groff/grodvi/grodvi.man
deleted file mode 100644
index 72baf24..0000000
--- a/contrib/groff/grodvi/grodvi.man
+++ /dev/null
@@ -1,174 +0,0 @@
-.ig \"-*- nroff -*-
-Copyright (C) 1989-2000 Free Software Foundation, Inc.
-
-Permission is granted to make and distribute verbatim copies of
-this manual provided the copyright notice and this permission notice
-are preserved on all copies.
-
-Permission is granted to copy and distribute modified versions of this
-manual under the conditions for verbatim copying, provided that the
-entire resulting derived work is distributed under the terms of a
-permission notice identical to this one.
-
-Permission is granted to copy and distribute translations of this
-manual into another language, under the above conditions for modified
-versions, except that this permission notice may be included in
-translations approved by the Free Software Foundation instead of in
-the original English.
-..
-.ie t .ds tx T\h'-.1667m'\v'.224m'E\v'-.224m'\h'-.125m'X
-.el .ds tx TeX
-.\" Like TP, but if specified indent is more than half
-.\" the current line-length - indent, use the default indent.
-.de Tp
-.ie \\n(.$=0:((0\\$1)*2u>(\\n(.lu-\\n(.iu)) .TP
-.el .TP "\\$1"
-..
-.TH GRODVI @MAN1EXT@ "@MDATE@" "Groff Version @VERSION@"
-.SH NAME
-grodvi \- convert groff output to TeX dvi format
-.SH SYNOPSIS
-.B grodvi
-[
-.B \-dv
-] [
-.BI \-w n
-] [
-.BI \-F dir
-] [
-.IR files \|.\|.\|.
-]
-.PP
-It is possible to have whitespace between a command line option and its
-parameter.
-.SH DESCRIPTION
-.B grodvi
-is a driver for
-.B groff
-that produces \*(tx dvi format.
-Normally it should be run by
-.BR groff\ \-Tdvi .
-This will run
-.BR @g@troff\ \-Tdvi ;
-it will also input the macros
-.BR @MACRODIR@/tmac.dvi ;
-if the input is being preprocessed with
-.B @g@eqn
-it will also input
-.BR @FONTDIR@/devdvi/eqnchar .
-.LP
-The dvi file generated by
-.B grodvi
-can be printed by any correctly-written dvi driver.
-The troff drawing primitives are implemented
-using the tpic version 2 specials.
-If the driver does not support these, the
-.B \eD
-commands will not produce any output.
-.LP
-There is an additional drawing command available:
-.TP
-.BI \eD'R\  dh\ dv '
-Draw a rule (solid black rectangle), with one corner
-at the current position, and the diagonally opposite corner
-at the current position 
-.RI +( dh , dv ).
-Afterwards the current position will be at the opposite corner.  This
-produces a rule in the dvi file and so can be printed even with a
-driver that does not support the tpic specials unlike the other
-.B \eD
-commands.
-.LP
-The groff command
-.BI \eX' anything '
-is translated into the same command in the dvi file as would be
-produced by
-.BI \especial{ anything }
-in \*(tx;
-.I anything may not contain a newline.
-.LP
-Font files for
-.B grodvi
-can be created from tfm files using
-.BR tfmtodit (@MAN1EXT@).
-The font description file should contain the following
-additional commands:
-.Tp \w'\fBinternalname'u+2n
-.BI internalname\   name
-The name of the tfm file (without the
-.B .tfm
-extension) is
-.IR name .
-.TP
-.BI checksum\  n
-The checksum in the tfm file is
-.IR n .
-.TP
-.BI designsize\  n
-The designsize in the tfm file is
-.IR n .
-.LP
-These are automatically generated by
-.B tfmtodit.
-.LP
-In
-.B troff
-the
-.B \eN
-escape sequence can be used to access characters by their position
-in the corresponding tfm file;
-all characters in the tfm file can be accessed this way.
-.SH OPTIONS
-.TP
-.B \-d
-Do not use tpic specials to implement drawing commands.
-Horizontal and vertical lines will be implemented by rules.
-Other drawing commands will be ignored.
-.TP
-.B \-v
-Print the version number.
-.TP
-.BI \-w n
-Set the default line thickness to
-.I n
-thousandths of an em. 
-.TP
-.BI \-F dir
-Search directory
-.IB dir /devdvi
-for font and device description files.
-.SH FILES
-.TP
-.B @FONTDIR@/devdvi/DESC
-Device description file.
-.TP
-.BI @FONTDIR@/devdvi/ F
-Font description file for font
-.IR F .
-.TP
-.B @MACRODIR@/tmac.dvi
-Macros for use with
-.BR grodvi .
-.SH BUGS
-Dvi files produced by
-.B grodvi
-use a different resolution (57816 units per inch) to those produced by
-\*(tx.
-Incorrectly written drivers which assume the resolution used by \*(tx,
-rather than using the resolution specified in the dvi file will not
-work with
-.BR grodvi .
-.LP
-When using the
-.B \-d
-option with boxed tables,
-vertical and horizontal lines can sometimes protrude by one pixel.
-This is a consequence of the way \*(tx requires that the heights
-and widths of rules be rounded.
-.SH "SEE ALSO"
-.BR tfmtodit (@MAN1EXT@),
-.BR groff (@MAN1EXT@),
-.BR @g@troff (@MAN1EXT@),
-.BR groff_out (@MAN5EXT@),
-.BR groff_font (@MAN5EXT@),
-.BR groff_char (@MAN7EXT@)