34 	register i, k;  local
41 		k = absmot(j);
43 			k = -k;
44 		return(k);
66 		k = widcache[i-32].width;
68 		k = getcw(i-32);
70 			k += (bd - 1) * HOR;
72 			k = cs;
74 	widthp = k;
75 	return(k);
96 	register int	k;  local
131 		k = (fontab[xfont][0] * spacesz + 6) / 12;
148 					k = *(p + j);
157 		k = fontab[xfont][0];	/* leave a space-size space */
164 	k = *(p + j);
176 	k = ((k&BYTEMASK) * xpts + (Unitwidth / 2)) / Unitwidth;
196 		widcache[i].width = k;
198 	return(k);
222 	register k;  local
225 	k = sbits(i);
226 	if (k) {
227 		xpts = pstab[--k];
307 	register k;  local
315 		k = p[0] - '0';
317 			k = 10 * k + ( p[1] - '0');
322 		if( k > 0 && k <= nfonts && fontbase[k]->specfont == 0 ) {
326 			return(k);	/* mounted font */
328 		if( fontlab[k] && k <= MAXFONTS) {	/* translate */
332 			return(k);			/*number to a name */
335 			fprintf(stderr, "troff: no font at position %d\n", k);
343 	for (k = 1; fontlab[k] != i; k++) {
344 		if (k > MAXFONTS +1)	/* the +1 is for the ``font cache'' */
346 		if ( !fontlab[k] ) {	/* passed all existing names */
347 			if (k <= NFONT) {
348 				if(setfp(k, i, 0) < 0)
350 				nfonts = k;
358 			fontlab[k] = i;
363 			return(k);
366 	return(k);			/* was one of the existing names */
411 	register j, k;  local
413 	for (j=k=0 ; pstab[j] != 0 ; j++)
414 		if (abs(pstab[j]-i) < abs(pstab[k]-i))
415 			k = j;
417 	return(pstab[k]);
423 	register i, j, k;  in mchbits()  local
426 	for (j = 0; i > (k = pstab[j]); j++)  in mchbits()
427 		if (!k) {  in mchbits()
428 			k = pstab[--j];  in mchbits()
580 	int	delim, emsz, k;  in setwd()  local
597 		k = width(i);  in setwd()
598 		wid += k;  in setwd()
599 		numtab[HP].val += k;  in setwd()
603 			k = absmot(i);  in setwd()
605 				k = -k;  in setwd()
606 			base -= k;  in setwd()
612 		if ((k = base + emsz) > numtab[ST].val)  in setwd()
613 			numtab[ST].val = k;  in setwd()
663 tchar sethl(k)  in sethl()  argument
664 int	k;  in sethl()
670 	if (k == 'u')
672 	else if (k == 'r')
700 	tchar j, k;  local
715 			k = getch0();
716 			if (cbits(k)=='i' && (lf&LFFI))
718 			else if (cbits(k)=='l' && (lf&LFFL))
721 				*pbp++ = k;
766 	register k;  local
784 	if ((k = open(longname, 0)) < 0) {
794 	read(k, (char *) ft, 3*n + nchtab + 128 - 32 + sizeof(struct Font));
795 	close(k);
797 	k = ft->nwfont;
798 	kerntab[pos] = (char *) fontab[pos] + k;
799 	codetab[pos] = (char *) fontab[pos] + 2 * k;
801 	fitab[pos] = (char *) fontab[pos] + 3 * k;
803 	if (k > n) {
857 	register i, j, k;  in casebd()  local
860 	k = 0;  in casebd()
863 		if (k)  in casebd()
869 		k = smnt;  in casebd()
872 	if (k) {  in casebd()
874 		j = k;  in casebd()