182 lines
3.9 KiB
C
182 lines
3.9 KiB
C
#include <u.h>
|
||
#include <libc.h>
|
||
#include <bio.h>
|
||
|
||
#define MAXBASE 36
|
||
|
||
void usage(void);
|
||
void put(int);
|
||
void putn(int, int);
|
||
void puttext(char *);
|
||
void putnum(char *);
|
||
int btoi(char *);
|
||
int value(int, int);
|
||
int isnum(char *);
|
||
|
||
char *str[256]={
|
||
"nul", "soh", "stx", "etx", "eot", "enq", "ack", "bel",
|
||
"bs ", "ht ", "nl ", "vt ", "ff ", "cr ", "so ", "si ",
|
||
"dle", "dc1", "dc2", "dc3", "dc4", "nak", "syn", "etb",
|
||
"can", "em ", "sub", "esc", "fs ", "gs ", "rs ", "us ",
|
||
"sp ", " ! ", " \" ", " # ", " $ ", " % ", " & ", " ' ",
|
||
" ( ", " ) ", " * ", " + ", " , ", " - ", " . ", " / ",
|
||
" 0 ", " 1 ", " 2 ", " 3 ", " 4 ", " 5 ", " 6 ", " 7 ",
|
||
" 8 ", " 9 ", " : ", " ; ", " < ", " = ", " > ", " ? ",
|
||
" @ ", " A ", " B ", " C ", " D ", " E ", " F ", " G ",
|
||
" H ", " I ", " J ", " K ", " L ", " M ", " N ", " O ",
|
||
" P ", " Q ", " R ", " S ", " T ", " U ", " V ", " W ",
|
||
" X ", " Y ", " Z ", " [ ", " \\ ", " ] ", " ^ ", " _ ",
|
||
" ` ", " a ", " b ", " c ", " d ", " e ", " f ", " g ",
|
||
" h ", " i ", " j ", " k ", " l ", " m ", " n ", " o ",
|
||
" p ", " q ", " r ", " s ", " t ", " u ", " v ", " w ",
|
||
" x ", " y ", " z ", " { ", " | ", " } ", " ~ ", "del",
|
||
"x80", "x81", "x82", "x83", "x84", "x85", "x86", "x87",
|
||
"x88", "x89", "x8a", "x8b", "x8c", "x8d", "x8e", "x8f",
|
||
"x90", "x91", "x92", "x93", "x94", "x95", "x96", "x97",
|
||
"x98", "x99", "x9a", "x9b", "x9c", "x9d", "x9e", "x9f",
|
||
"xa0", " ¡ ", " ¢ ", " £ ", " ¤ ", " ¥ ", " ¦ ", " § ",
|
||
" ¨ ", " © ", " ª ", " « ", " ¬ ", " ", " ® ", " ¯ ",
|
||
" ° ", " ± ", " ² ", " ³ ", " ´ ", " µ ", " ¶ ", " · ",
|
||
" ¸ ", " ¹ ", " º ", " » ", " ¼ ", " ½ ", " ¾ ", " ¿ ",
|
||
" À ", " Á ", " Â ", " Ã ", " Ä ", " Å ", " Æ ", " Ç ",
|
||
" È ", " É ", " Ê ", " Ë ", " Ì ", " Í ", " Î ", " Ï ",
|
||
" Ð ", " Ñ ", " Ò ", " Ó ", " Ô ", " Õ ", " Ö ", " × ",
|
||
" Ø ", " Ù ", " Ú ", " Û ", " Ü ", " Ý ", " Þ ", " ß ",
|
||
" à ", " á ", " â ", " ã ", " ä ", " å ", " æ ", " ç ",
|
||
" è ", " é ", " ê ", " ë ", " ì ", " í ", " î ", " ï ",
|
||
" ð ", " ñ ", " ò ", " ó ", " ô ", " õ ", " ö ", " ÷ ",
|
||
" ø ", " ù ", " ú ", " û ", " ü ", " ý ", " þ ", " ÿ "
|
||
};
|
||
|
||
char Ncol[]={
|
||
0,0,7,5,4,4,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
|
||
};
|
||
|
||
int nchars=128;
|
||
int base=16;
|
||
int ncol;
|
||
int text=1;
|
||
int strip=0;
|
||
Biobuf bin;
|
||
|
||
void
|
||
main(int argc, char **argv)
|
||
{
|
||
int i;
|
||
|
||
Binit(&bin, 1, OWRITE);
|
||
ARGBEGIN{
|
||
case '8':
|
||
nchars=256; break;
|
||
case 'x':
|
||
base=16; break;
|
||
case 'o':
|
||
base=8; break;
|
||
case 'd':
|
||
base=10; break;
|
||
case 'b':
|
||
base=strtoul(EARGF(usage()), 0, 0);
|
||
if(base<2||base>MAXBASE)
|
||
usage();
|
||
break;
|
||
case 'n':
|
||
text=0; break;
|
||
case 't':
|
||
strip=1;
|
||
/* fall through */
|
||
case 'c':
|
||
text=2; break;
|
||
default:
|
||
usage();
|
||
}ARGEND
|
||
|
||
ncol=Ncol[base];
|
||
if(argc==0){
|
||
for(i=0;i<nchars;i++){
|
||
put(i);
|
||
if((i&7)==7)
|
||
Bprint(&bin, "|\n");
|
||
}
|
||
}else{
|
||
if(text==1)
|
||
text=isnum(argv[0]);
|
||
while(argc--)
|
||
if(text)
|
||
puttext(*argv++);
|
||
else
|
||
putnum(*argv++);
|
||
}
|
||
Bputc(&bin, '\n');
|
||
exits(0);
|
||
}
|
||
void
|
||
usage(void)
|
||
{
|
||
fprint(2, "usage: %s [-8cnt] [-dox | -b n] [text]\n", argv0);
|
||
exits("usage");
|
||
}
|
||
void
|
||
put(int i)
|
||
{
|
||
Bputc(&bin, '|');
|
||
putn(i, ncol);
|
||
Bprint(&bin, " %s", str[i]);
|
||
}
|
||
char dig[]="0123456789abcdefghijklmnopqrstuvwxyz";
|
||
void
|
||
putn(int n, int ndig)
|
||
{
|
||
if(ndig==0)
|
||
return;
|
||
putn(n/base, ndig-1);
|
||
Bputc(&bin, dig[n%base]);
|
||
}
|
||
void
|
||
puttext(char *s)
|
||
{
|
||
int n;
|
||
n=btoi(s)&0377;
|
||
if(strip)
|
||
Bputc(&bin, n);
|
||
else
|
||
Bprint(&bin, "%s\n", str[n]);
|
||
}
|
||
void
|
||
putnum(char *s)
|
||
{
|
||
while(*s){
|
||
putn(*s++&0377, ncol);
|
||
Bputc(&bin, '\n');
|
||
}
|
||
}
|
||
int
|
||
btoi(char *s)
|
||
{
|
||
int n;
|
||
n=0;
|
||
while(*s)
|
||
n=n*base+value(*s++, 0);
|
||
return(n);
|
||
}
|
||
int
|
||
value(int c, int f)
|
||
{
|
||
char *s;
|
||
for(s=dig; s<dig+base; s++)
|
||
if(*s==c)
|
||
return(s-dig);
|
||
if(f)
|
||
return(-1);
|
||
fprint(2, "%s: bad input char %c\n", argv0, c);
|
||
exits("bad");
|
||
return 0; /* to keep ken happy */
|
||
}
|
||
int
|
||
isnum(char *s)
|
||
{
|
||
while(*s)
|
||
if(value(*s++, 1)==-1)
|
||
return(0);
|
||
return(1);
|
||
}
|