1 #include <u.h>
2 #include <libc.h>
3 #include <bio.h>
4 
5 int didname;
6 int didfontname;
7 int offset;
8 void run(char*, int);
9 Biobuf bout;
10 
11 void
12 usage(void)
13 {
14 	fprint(2, "usage: afm2troff [-h] [-o offset] [file...]\n");
15 	exits("usage");
16 }
17 
18 void
19 main(int argc, char **argv)
20 {
21 	int i, fd;
22 	
23 	ARGBEGIN{
24 	case 'h':
25 		didname = 1;
26 		didfontname = 1;
27 		break;
28 	case 'o':
29 		offset = atoi(EARGF(usage()));
30 		break;
31 	default:
32 		usage();
33 	}ARGEND
34 	
35 	Binit(&bout, 1, OWRITE);
36 	if(argc == 0)
37 		run("<stdin>", 0);
38 	else{
39 		for(i=0; i<argc; i++){
40 			if((fd = open(argv[i], OREAD)) < 0)
41 				sysfatal("open %s: %r", argv[i]);
42 			run(argv[i], fd);
43 		}
44 	}
45 	Bflush(&bout);
46 }
47 
48 void
49 run(char *name, int fd)
50 {
51 	char *p, *q, *f[100];
52 	int nf, code, wid, ad;
53 	Biobuf b;
54 	
55 	Binit(&b, fd, OREAD);
56 	while((p = Brdline(&b, '\n')) != nil){
57 		p[Blinelen(&b)-1] = 0;
58 		q = strchr(p, ' ');
59 		if(q == nil)
60 			continue;
61 		*q++ = 0;
62 		while(*q == ' ' || *q == '\t')
63 			q++;
64 		if(*q == 0)
65 			continue;
66 		if(strcmp(p, "FontName") == 0 && didname++ == 0)
67 			 Bprint(&bout, "name %s\n", q);
68 		if(strcmp(p, "FullName") == 0 && didfontname++ == 0)
69 			 Bprint(&bout, "fontname %s\n", q);
70 		if(strcmp(p, "C") == 0){
71 			nf = getfields(q, f, nelem(f), 1, "\t\r\n\v ");
72 			if(nf < 5 || strcmp(f[1], ";") != 0 || strcmp(f[2], "WX") != 0)
73 				continue;
74 			code = strtol(f[0], 0, 10);
75 			wid = strtol(f[3], 0, 10);
76 			wid = (wid+5)/10;
77 			if(code == 0)
78 				continue;
79 			code += offset;
80 			ad = 0;
81 			if(nf < 6 || strcmp(f[nf-6], "B") != 0)
82 				continue;
83 			if(atoi(f[nf-4]) < -50)
84 				ad |= 1;
85 			if(atoi(f[nf-2]) > 600)
86 				ad |= 2;
87 			if(code == ' ')
88 				Bprint(&bout, "spacewidth %d\ncharset\n", wid);
89 			else
90 				Bprint(&bout, "%C\t%d\t%d\t%d %04x\n", code, wid, ad, code, code);
91 		}
92 	}
93 }