unicode.c - 9base - revived minimalist port of Plan 9 userland to Unix
HTML git clone git://git.suckless.org/9base
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
unicode.c (1956B)
---
1 #include <u.h>
2 #include <libc.h>
3 #include <bio.h>
4
5 char usage[] = "unicode { [-t] hex hex ... | hexmin-hexmax ... | [-n] char ... }";
6 char hex[] = "0123456789abcdefABCDEF";
7 int numout = 0;
8 int text = 0;
9 char *err;
10 Biobuf bout;
11
12 char *range(char*[]);
13 char *nums(char*[]);
14 char *chars(char*[]);
15
16 void
17 main(int argc, char *argv[])
18 {
19 ARGBEGIN{
20 case 'n':
21 numout = 1;
22 break;
23 case 't':
24 text = 1;
25 break;
26 }ARGEND
27 Binit(&bout, 1, OWRITE);
28 if(argc == 0){
29 fprint(2, "usage: %s\n", usage);
30 exits("usage");
31 }
32 if(!numout && utfrune(argv[0], '-'))
33 exits(range(argv));
34 if(numout || strchr(hex, argv[0][0])==0)
35 exits(nums(argv));
36 exits(chars(argv));
37 }
38
39 char*
40 range(char *argv[])
41 {
42 char *q;
43 int min, max;
44 int i;
45
46 while(*argv){
47 q = *argv;
48 if(strchr(hex, q[0]) == 0){
49 err:
50 fprint(2, "unicode: bad range %s\n", *argv);
51 return "bad range";
52 }
53 min = strtoul(q, &q, 16);
54 if(min<0 || min>Runemax || *q!='-')
55 goto err;
56 q++;
57 if(strchr(hex, *q) == 0)
58 goto err;
59 max = strtoul(q, &q, 16);
60 if(max<0 || max>Runemax || max<min || *q!=0)
61 goto err;
62 i = 0;
63 do{
64 Bprint(&bout, "%.4x %C", min, min);
65 i++;
66 if(min==max || (i&7)==0)
67 Bprint(&bout, "\n");
68 else
69 Bprint(&bout, "\t");
70 min++;
71 }while(min<=max);
72 argv++;
73 }
74 return 0;
75 }
76
77 char*
78 nums(char *argv[])
79 {
80 char *q;
81 Rune r;
82 int w;
83
84 while(*argv){
85 q = *argv;
86 while(*q){
87 w = chartorune(&r, q);
88 if(r==0x80 && (q[0]&0xFF)!=0x80){
89 fprint(2, "unicode: invalid utf string %s\n", *argv);
90 return "bad utf";
91 }
92 Bprint(&bout, "%.4x\n", r);
93 q += w;
94 }
95 argv++;
96 }
97 return 0;
98 }
99
100 char*
101 chars(char *argv[])
102 {
103 char *q;
104 int m;
105
106 while(*argv){
107 q = *argv;
108 if(strchr(hex, q[0]) == 0){
109 err:
110 fprint(2, "unicode: bad unicode value %s\n", *argv);
111 return "bad char";
112 }
113 m = strtoul(q, &q, 16);
114 if(m<0 || m>Runemax || *q!=0)
115 goto err;
116 Bprint(&bout, "%C", m);
117 if(!text)
118 Bprint(&bout, "\n");
119 argv++;
120 }
121 return 0;
122 }