SCCS-vsn: old/roff/common_source/n1.c 4.3
SCCS-vsn: old/roff/troff/t6.c 4.2
-static char sccsid[] = "@(#)n1.c 4.2 %G%";
+static char sccsid[] = "@(#)n1.c 4.3 %G%";
#endif lint
#include "tdef.h"
#endif lint
#include "tdef.h"
stop = ptid = gflag = 1;
dpn = 0;
continue;
stop = ptid = gflag = 1;
dpn = 0;
continue;
+ case 'F':
+ {
+ extern char *fontfile;
+ fontfile = &argv[0][2];
+ }
+ continue;
#endif
default:
pto = cnum(&argv[0][1]);
#endif
default:
pto = cnum(&argv[0][1]);
-static char sccsid[] = "@(#)t6.c 4.1 %G%";
+static char sccsid[] = "@(#)t6.c 4.2 %G%";
#endif lint
#include "tdef.h"
#endif lint
#include "tdef.h"
extern int vflag;
extern int ch0;
extern int lg;
extern int vflag;
extern int ch0;
extern int lg;
-char fontfile[] = "/usr/lib/font/ftXX";
-int ffi = 16;
+char *fontfile = "/usr/lib/font/ftXX";
+int ffi = 0;
extern int bd;
extern int level;
extern int ch;
extern int bd;
extern int level;
extern int ch;
+ if (ffi == 0)
+ while (fontfile[ffi] != 'X')
+ ffi++;
skip();
if(((i = (getch() & CMASK) - '0' -1) < 0) || (i >3)){prstr("fp: bad font position\n"); return;}
if(skip() || !(j = getrq())){prstr("fp: no font name\n"); return;}
skip();
if(((i = (getch() & CMASK) - '0' -1) < 0) || (i >3)){prstr("fp: bad font position\n"); return;}
if(skip() || !(j = getrq())){prstr("fp: no font name\n"); return;}