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
314 		k = p[0] - '0';
316 			k = 10 * k + ( p[1] - '0');
321 		if( k > 0 && k <= nfonts && k < smnt ) {
325 			return(k);	/* mounted font */
327 		if( fontlab[k] && k <= MAXFONTS) {	/* translate */
331 			return(k);			/*number to a name */
334 			fprintf(stderr, "troff: no font at position %d\n", k);
342 	for (k = 1; fontlab[k] != i; k++) {
343 		if (k > MAXFONTS +1)	/* the +1 is for the ``font cache'' */
345 		if ( !fontlab[k] ) {	/* passed all existing names */
353 				fontlab[k] = i;
358 				return(k);
362 	return(k);			/* was one of the existing names */
407 	register j, k;  local
409 	for (j=k=0 ; pstab[j] != 0 ; j++)
410 		if (abs(pstab[j]-i) < abs(pstab[k]-i))
411 			k = j;
413 	return(pstab[k]);
419 	register i, j, k;  in mchbits()  local
422 	for (j = 0; i > (k = pstab[j]); j++)  in mchbits()
423 		if (!k) {  in mchbits()
424 			k = pstab[--j];  in mchbits()
539 	int	delim, emsz, k;  in setwd()  local
556 		k = width(i);  in setwd()
557 		wid += k;  in setwd()
558 		numtab[HP].val += k;  in setwd()
562 			k = absmot(i);  in setwd()
564 				k = -k;  in setwd()
565 			base -= k;  in setwd()
571 		if ((k = base + emsz) > numtab[ST].val)  in setwd()
572 			numtab[ST].val = k;  in setwd()
622 tchar sethl(k)  in sethl()  argument
623 int	k;  in sethl()
629 	if (k == 'u')
631 	else if (k == 'r')
659 	tchar j, k;  local
674 			k = getch0();
675 			if (cbits(k)=='i' && (lf&LFFI))
677 			else if (cbits(k)=='l' && (lf&LFFL))
680 				*pbp++ = k;
723 	register k;  local
739 	if ((k = open(longname, 0)) < 0) {
744 	read(k, (char *) fontbase[pos], 3*n + nchtab + 128 - 32 + sizeof(struct Font));
754 	close(k);
805 	register i, j, k;  in casebd()  local
808 	k = 0;  in casebd()
811 		if (k)  in casebd()
817 		k = smnt;  in casebd()
820 	if (k) {  in casebd()
822 		j = k;  in casebd()