🚀 go-pugleaf

I finally got tired of troff blathering about point-size mismatch
(common when typesetting pic output) and decided to do something
about it.  The following is for DWB 1.0; presumably something
similar would be done for DWB 2.0 (I haven't checked yet).

/*      @(#)ext.h	1.1     */
...
extern	short	*pstab;
extern	short	*ps_warned;		/* DAG -- added (see t6.c) */
...

/*      @(#)t10.c	1.1     */
...
ptinit()
...
	char	*calloc(), *setbrk(), *filebase, *p;	/* DAG -- added calloc */
...
	pstab = (short *) filebase;
	ps_warned = (short *) calloc((unsigned)(nsizes + 1), sizeof(short));
					/* DAG -- added (see t6.c) */
...

/*      @(#)t6.c	1.2     */
...
short	*pstab;
short	*ps_warned;			/* DAG -- added */
...
findps(i)
...
	if ( pstab[k] != i ) {
		if ( ps_warned[k] != i ) {	/* DAG -- added to reduce noise */
			ps_warned[k] = i;	/* DAG -- added */
			fprintf(stderr, "troff: asked for size %d, got %d\n",
				i, pstab[k]);
		}
	}