🚀 go-pugleaf

There's no good reason for eqn to accept only one-letter font names.
If you want two-letter names, just change e.y and font.c:

font	: ...
	| FONT text	{ setfont(((char *)$2)[0]|((char *)$2)[1]<<8); }
	;

setfont(ch1) int ch1; {		/* CHANGE char TO int; --GLS */
	...
	if (017400 & ft) printf(".ft %c%c\n", 0377&ft, 0377&(ft>>8));
	else printf(".ft %c\n", ft);
	...

font(p1, p2) int p1, p2; {
	...
	printf(".ds %d \\f", yyval);
	if (017400 & ft) printf("(%c%c", 0377&ft, 0377&(ft>>8));
	else printf("%c", ft);
	printf("\\*(%d\\f", p2);
	if (017400 & p1) printf("(%c%c\n", 0377&p1, 0377&(p1>>8));
	else printf("%c\n", p1);
	ft = p1;
	if (017400 & ft) printf(".ft %c%c\n", 0377&ft, 0377&(ft>>8));
	else printf(".ft %c\n", ft);
}
-- 
Col. G. L. Sicherman
...{rocksvax|decvax}!sunybcs!colonel