/********************************************************/
/*							*/
/*		    ROFF4, Version 1.50			*/
/*							*/
/* (C) 1983 by	Ernest E. Bergmann			*/
/*		Physics, Building #16			*/
/*		Lehigh Univerisity			*/
/*		Bethlehem, Pa. 18015			*/
/*							*/
/* Permission is hereby granted for all commercial and	*/
/* non-commercial reproduction and distribution of this	*/
/* material provided this notice is included.		*/
/*							*/
/********************************************************/
/*July 4, 1983*/
#include "roff4.h"

/**************************************************
handles case of leading blanks or tabs; empty lines 
***************************************************/
leadbl (line)
char *line;
{int i, j, white;
brk();
/* figure out white space Nov 13*/
for (white=0, i=0; line[i] == ' ' || line[i] == '\t'; i++ )
	{if(line[i]==' ') white++;
	else white=min(RMVAL,TABSIZ*(1+white/TABSIZ));
	}
if ( line[i] != NEWLINE ) TIVAL += white;
/* move line to left */
for(j=0;(line[j]=line[i])!='\0';j++,i++);
}
/*****************************************
		puts out page header
******************************************/
phead()
{CURPAG = NEWPAG++;
if(PAGESTOP)
	{bdos(2,7);	/*ring bell*/
	bdos(1);	/*wait til char typed at console*/
	}
PLINENO=0;FPLINENO=0;
if (M1VAL > 0 )
      { VLINENO = M1VAL-1;
	if (CURPAG % 2) puttl3 ( OHEAD, OH2, OH3, CURPAG );
	else puttl3 ( EHEAD, EH2, EH3, CURPAG );
      }
VLINENO = M1VAL+M2VAL; FVLINENO=0;
if DEBUG fprintf(STDERR,"\nVLINENO=%d", VLINENO);
}
/**************************************
		puts out page footer
***************************************/
pfoot()
{VLINENO = BOTTOM+M3VAL; FVLINENO=0;
if ( M4VAL > 0 )
      { if(CURPAG % 2)puttl3 ( OFOOT,OF2,OF3, CURPAG );
	else puttl3(EFOOT,EF2,EF3,CURPAG);
	VLINENO = PLVAL;FVLINENO=0;
	if (FFEED) putchar(FORMF);
	else padv();
	whole();
	PLINENO = 0;FPLINENO=0;/*printer at start of new page*/
      }
}
/**********************************************
	space n lines or to bottom of the page
***********************************************/
space (n)
int n;
{if DEBUG
 fprintf(STDERR,"\nSPACE %d line(s), LINENO= %d", n, VLINENO);
brk();	/* flush out last unfilled line */
if (VLINENO >= BOTTOM)	return;	/* end of page */
if (!VLINENO) phead();	/* top of page */
VLINENO += n;
if DEBUG fprintf(STDERR,"\n	LINENO = %d", VLINENO);
if (VLINENO >= BOTTOM) pfoot(); /* print footer if bottom */
}
/*******************************************************/
text (line)
char *line;
{char wrdbuf [LSZ];
int i, j, k;
char *p1, *p2;
if DEBUG fprintf(STDERR,"\n\nTEXT:<%s>", line);
if (line[0] == BLANK || line[0]==NEWLINE || line[0] == TAB)
	leadbl (line);
if (CEVAL > 0)
      { center(line);
	put(line);
	CEVAL--;
      }
else if(line[0]==NEWLINE) space(LSVAL);
else if(!FILL) put(line);
else while (WE_HAVE_A_WORD == getwrd (line, wrdbuf))
	putwrd (wrdbuf);
}
/******************************************************
	put out a line of text with correct indentation
	underlining if specified
*******************************************************/
put (line)
char *line;
{int i,fs,minfs;
if (VLINENO == 0 || VLINENO >= BOTTOM )	phead();
fs=(VLINENO-OLDLN)*FRVAL;
minfs=OLDBOT-OUTTOP; if(!(OLDBOT&&OUTTOP)) minfs++;
while(fs<minfs) {fs+=FRVAL; VLINENO++;}
need(0);
putline(line);
TIVAL = INVAL;
VLINENO += LSVAL;
if DEBUG fprintf(STDERR,"\nLINENO=%d, LSVAL=%d",VLINENO,LSVAL);
if (VLINENO >= BOTTOM)	pfoot();
}
/***********************************************************
concatenates the word onto the end of OUTBUF for filled text
************************************************************/
putwrd (wrdbuf)	/*Nov 22: SENTENCE*/
char *wrdbuf;
{int i, j, k;
char s[MAXLINE], ch;
int line_len, new_out_width, wid;
int nextra;
if DEBUG fprintf(STDERR,"\nwrdbuf = <%s>",wrdbuf);
skip_blanks (wrdbuf); trunc_bl (wrdbuf);
wid =1+SENTENCE+strln3(wrdbuf,TRUE,1);/*sets WTOP,WBOT*/
line_len = RMVAL - TIVAL;
new_out_width = OUTW+wid;
if (new_out_width > min (line_len, MAXLINE-1))
      { nextra = min(line_len, MAXLINE-1)-OUTW+1;
	if(OUTBUF[OUTPOS-2]==BLANK) nextra++;
	if(JUSTIFY) spread(OUTBUF,nextra,OUTWRDS);
	brk();
      }
OUTW += wid;
OUTcat(wrdbuf);
OUTSP(); if(SENTENCE) OUTSP();
OUTWRDS++;
if(WTOP<OUTTOP) OUTTOP=WTOP;
if(WBOT>OUTBOT) OUTBOT=WBOT;
}
/**********************************************************
	a new putline routine; sends line to  OUTPUT2
***********************************************************/
putline (line)
char *line;
{char c;
blanks(TIVAL);
for(;c=*line;line++) putout(c);
putout('\0');
printout();
}
/****************************************/
OUTcat(str)	/*appends string to OUTBUF*/
char *str;
{while(OUTBUF[OUTPOS]=*(str++))
	OUTPOS++;
}
/****************************************/
OUTSP()		/*appends BLANK to OUTBUF*/
{OUTBUF[OUTPOS++]=BLANK;
OUTBUF[OUTPOS]='\0';
}
/****************************************/
gloss()	/*prints on STDOUT a glossary of .tr chars*/
{int i;
char line[20],tcs;
put("GLOSSARY:");
put("USE     <GET>");
tcs=TCVAL;
TCVAL |= 128; /*set most significant bit*/
for(i=1;i<19;i++) line[i]=' ';
line[0]=tcs;
line[8]='<';
line[9]=TCVAL;
line[11]='>';
line[12]='\0';
for(i=' ';i<127;i++)
	{if(TPTR[i-' '])
		{line[1]=line[10]=i;
		put(line);
		}
	}
TCVAL=tcs;
SPACE(HUGE);
}

.