v07i110: patch #1 to thack

[Brandon S. Allbery - comp.sources.misc]

Posting-number: Volume 7, Issue 110
Submitted-by: everson%compsci.bristol.ac.uk at NSFnet-Relay.AC.UK
Archive-name: thack.p1

[This patch was posted to comp.bugs.misc but never made it here; here it is,
 for use with the next submission (patch #2...).  ++bsa]

Enclosed is the first official patch to thack, a troff to postscript
filter, recently posted to comp.sources.misc. The patches below fix 2
problems:

1) The length of US paper is different (11") to that of European A4
paper (11.5") - Added an option to the Makefile to use US page
lengths.

2) A variable (fh) was not initialized to 0. This caused problems (core
dumps) on some systems (notably, not ours) and not others. This
variable is now initialized.

Thanks to all of the people who have made favourable comments about
this program.

Apply the following fixes using the program patch or by hand.

Phill Everson
Medical Imaging
Dept Comp Sci
University of Bristol, UK

*** Makefile	Thu Jun 29 07:46:36 1989
--- Makefile.orig	Thu Jun 29 07:44:45 1989
***************
*** 1,10 ****
  .PRECIOUS: thack.c th.h
  
- # Define USPAGELENGTH to use on US 11 inch long paper. Default is European A4.
- #CFLAGS=-DUSPAGELENGTH
- 
  thack: thack.o
! 	cc $(CFLAGS) -o thack thack.o
  
  thack.c: th.h
  	touch thack.c
--- 1,7 ----
  .PRECIOUS: thack.c th.h
  
  thack: thack.o
! 	cc -o thack thack.o
  
  thack.c: th.h
  	touch thack.c
*** thack.c	Thu Jun 29 07:49:30 1989
--- thack.c.orig	Thu Jun 29 07:44:04 1989
***************
*** 10,16 ****
  	int sflag;
  	int hdist, vdist;
  	int esc, lead;
! 	int fh=0;
  
  	hdist = vdist = 0;
  	cfont = csize = -1;
--- 10,16 ----
  	int sflag;
  	int hdist, vdist;
  	int esc, lead;
! 	int fh;
  
  	hdist = vdist = 0;
  	cfont = csize = -1;
***************
*** 17,27 ****
  	tfont = font = 0;
  	tsize = size = 12;
  	esc = lead = 1;
! #ifdef USPAGELENGTH
! 	cy = ypos = 1584; /* represents 11 inches in troff vertical units */
! #else
! 	cy = ypos = 1692; /* represents 11.5 inches in troff vertical units */
! #endif
  	cx = xpos = 0;
  	sflag = 0;
  	prolog();
--- 17,23 ----
  	tfont = font = 0;
  	tsize = size = 12;
  	esc = lead = 1;
! 	cy = ypos = 1692;
  	cx = xpos = 0;
  	sflag = 0;
  	prolog();