ref: 2d221e61e3820a007ff2204adb73ad3ab27010c6
dir: /sys/src/cmd/aux/kbdfs/mklatin.c/
/* * Parse /lib/keyboard to create latin1.h table for kbdfs. * mklatin -r prints an array of integers rather than a Rune string literal. */ #include <u.h> #include <libc.h> #include <bio.h> #include <ctype.h> int rflag; enum { MAXLD = 2, /* latin1.c assumes this is 2 */ }; char *head = "" "/*\n" " * This is automatically generated by %s from /lib/keyboard\n" " * Edit /lib/keyboard instead.\n" " */\n"; /* * kbdfs assumes that strlen(ld) is at most 2. * It also assumes that tab[i].ld can be a prefix of tab[j].ld * only when j < i. We ensure this by sorting the output by prefix length. * The so array is indexed by the character value. */ typedef struct Trie Trie; struct Trie { int n; /* of characters r */ char seq[MAXLD+1]; Rune r[256]; Trie *link[256]; }; Trie *root; Trie* mktrie(char *seq) { uchar *q; Trie **tp; if(root == nil) { root = malloc(sizeof *root); memset(root, 0, sizeof *root); } assert(seq[0] != '\0'); tp = &root; for(q=(uchar*)seq; *(q+1) != '\0'; q++) { tp = &(*tp)->link[*q]; if(*tp == nil) { *tp = malloc(sizeof(**tp)); assert(*tp != nil); memset(*tp, 0, sizeof(**tp)); strcpy((*tp)->seq, seq); (*tp)->seq[q+1-(uchar*)seq] = '\0'; } } assert(*tp != nil); return *tp; } /* add character sequence s meaning rune r */ void insert(char *s, Rune r) { uchar lastc; int len; Trie *t; len = strlen(s); lastc = (uchar)s[len-1]; t = mktrie(s); if(t->r[lastc]) { fprint(2, "warning: table duplicate: %s is %C and %C\n", s, t->r[lastc], r); return; } t->r[lastc] = r; t->n++; } void cprintchar(Biobuf *b, int c) { /* print a byte c safe for a C string. */ switch(c) { case '\'': case '\"': case '\\': Bprint(b, "\\%c", c); break; case '\t': Bprint(b, "\\t"); break; default: if(isascii(c) && isprint(c)) Bprint(b, "%c", c); else Bprint(b, "\\x%.2x", c); break; } } void cprints(Biobuf *b, char *p) { while(*p != '\0') cprintchar(b, *p++); } void printtrie(Biobuf *b, Trie *t) { int i; for(i=0; i<256; i++) if(t->link[i]) printtrie(b, t->link[i]); if(t->n > 0) { Bprint(b, "\t\""); cprints(b, t->seq); Bprint(b, "\", \""); for(i=0; i<256; i++) if(t->r[i]) cprintchar(b, i); Bprint(b, "\",\t"); if(rflag) { Bprint(b, "{"); for(i=0; i<256; i++) if(t->r[i]) Bprint(b, " 0x%.4ux,", t->r[i]); Bprint(b, " }"); } else { Bprint(b, "L\""); for(i=0; i<256; i++) if(t->r[i]) Bprint(b, "%C", t->r[i]); Bprint(b, "\""); } Bprint(b, ",\n"); } } void readfile(char *fname) { Biobuf *b; char *line, *p; char *seq; int inseq; int lineno; Rune r; if((b = Bopen(fname, OREAD)) == 0) { fprint(2, "cannot open \"%s\": %r\n", fname); exits("open"); } lineno = 0; while((line = Brdline(b, '\n')) != 0) { lineno++; if(line[0] == '#') continue; r = strtol(line, nil, 16); p = strchr(line, ' '); if(r == 0 || p != line+4 || p[0] != ' ' || p[1] != ' ') { fprint(2, "%s:%d: cannot parse line\n", fname, lineno); continue; } p = line+6; /* 00AE Or rO ® registered trade mark sign */ for(inseq=1, seq=p; (uchar)*p < Runeself; p++) { if(*p == '\0' || isspace(*p)) { if(inseq && p-seq >= 2) { *p = '\0'; inseq = 0; insert(seq, r); *p = ' '; } if(*p == '\0') break; } else { if(!inseq) { seq = p; inseq = 1; } } } } } void usage(void) { fprint(2, "usage: mklatinkbd [-r] [/lib/keyboard]\n"); exits("usage"); } void main(int argc, char **argv) { Biobuf bout; ARGBEGIN{ case 'r': /* print rune values */ rflag = 1; break; default: usage(); }ARGEND if(argc > 1) usage(); readfile(argc == 1 ? argv[0] : "/fd/0"); Binit(&bout, 1, OWRITE); if(root) printtrie(&bout, root); exits(0); }