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()
546 	int	delim, emsz, k;  in setwd()  local
563 		k = width(i);  in setwd()
564 		wid += k;  in setwd()
565 		numtab[HP].val += k;  in setwd()
569 			k = absmot(i);  in setwd()
571 				k = -k;  in setwd()
572 			base -= k;  in setwd()
578 		if ((k = base + emsz) > numtab[ST].val)  in setwd()
579 			numtab[ST].val = k;  in setwd()
629 tchar sethl(k)  in sethl()  argument
630 int	k;  in sethl()
636 	if (k == 'u')
638 	else if (k == 'r')
666 	tchar j, k;  local
681 			k = getch0();
682 			if (cbits(k)=='i' && (lf&LFFI))
684 			else if (cbits(k)=='l' && (lf&LFFL))
687 				*pbp++ = k;
732 	register k;  local
750 	if ((k = open(longname, 0)) < 0) {
760 	read(k, (char *) ft, 3*n + nchtab + 128 - 32 + sizeof(struct Font));
761 	close(k);
763 	k = ft->nwfont;
764 	kerntab[pos] = (char *) fontab[pos] + k;
765 	codetab[pos] = (char *) fontab[pos] + 2 * k;
767 	fitab[pos] = (char *) fontab[pos] + 3 * k;
769 	if (k > n) {
823 	register i, j, k;  in casebd()  local
826 	k = 0;  in casebd()
829 		if (k)  in casebd()
835 		k = smnt;  in casebd()
838 	if (k) {  in casebd()
840 		j = k;  in casebd()