colonel@gloria.UUCP (Col. G. L. Sicherman) (05/13/85)
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