| rsc | eaec1e5 | 2006-03-19 06:13:42 +0000 | [diff] [blame] | 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 | } |
