ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/cmd/unicode.b/
implement Unicode; include "sys.m"; sys: Sys; include "draw.m"; include "string.m"; str: String; include "bufio.m"; bufio: Bufio; Iobuf: import bufio; Unicode: module { init: fn(c: ref Draw->Context, v: list of string); }; usage: con "unicode { [-t] hex hex ... | hexmin-hexmax ... | [-n] char ... }"; hex: con "0123456789abcdefABCDEF"; numout:= 0; text:= 0; out: ref Bufio->Iobuf; stderr: ref sys->FD; init(nil: ref Draw->Context, argv: list of string) { sys = load Sys Sys->PATH; str = load String String->PATH; bufio = load Bufio Bufio->PATH; stderr = sys->fildes(2); if(str==nil || bufio==nil){ sys->fprint(stderr, "unicode: can't load String or Bufio module: %r\n"); return; } if(argv == nil){ sys->fprint(stderr, "usage: %s\n", usage); return; } argv = tl argv; while(argv != nil) { s := hd argv; if(s != nil && s[0] != '-') break; case s{ "-n" => numout = 1; "-t" => text = 1; } argv = tl argv; } if(argv == nil){ sys->fprint(stderr, "usage: %s\n", usage); return; } out = bufio->fopen(sys->fildes(1), Bufio->OWRITE); if(!numout && oneof(hd argv, '-')) range(argv); else if(numout || oneof(hex, (hd argv)[0]) == 0) nums(argv); else chars(argv); out.flush(); } oneof(s: string, c: int): int { for(i:=0; i<len s; i++) if(s[i] == c) return 1; return 0; } badrange(q: string) { sys->fprint(stderr, "unicode: bad range %s\n", q); } range(argv: list of string) { min, max: int; while(argv != nil){ q := hd argv; if(oneof(hex, q[0]) == 0){ badrange(q); return; } (min, q) = str->toint(q,16); if(min<0 || min>Sys->Runemax || len q==0 || q[0]!='-'){ badrange(hd argv); return; } q = q[1:]; if(oneof(hex, q[0]) == 0){ badrange(hd argv); return; } (max, q) = str->toint(q,16); if(max<0 || max>Sys->Runemax || max<min || len q>0){ badrange(hd argv); return; } i := 0; do{ out.puts(sys->sprint("%.4x %c", min, min)); i++; if(min==max || (i&7)==0) out.puts("\n"); else out.puts("\t"); min++; }while(min<=max); argv = tl argv; } } nums(argv: list of string) { while(argv != nil){ q := hd argv; for(i:=0; i<len q; i++) out.puts(sys->sprint("%.4x\n", q[i])); argv = tl argv; } } badvalue(s: string) { sys->fprint(stderr, "unicode: bad unicode value %s\n", s); } chars(argv: list of string) { m: int; while(argv != nil){ q := hd argv; if(oneof(hex, q[0]) == 0){ badvalue(hd argv); return; } (m, q) = str->toint(q, 16); if(m<0 || m>Sys->Runemax || len q>0){ badvalue(hd argv); return; } out.puts(sys->sprint("%c", m)); if(!text) out.puts("\n"); argv = tl argv; } }