Blame


1 a31db67d 2004-04-21 devnull typedef unsigned short Rune; /* 16 bits */
2 a31db67d 2004-04-21 devnull typedef unsigned char uchar;
3 a31db67d 2004-04-21 devnull #define Runeerror 0x80 /* decoding error in UTF */
4 a31db67d 2004-04-21 devnull #define Runeself 0x80 /* rune and UTF sequences are the same (<) */
5 a31db67d 2004-04-21 devnull #define UTFmax 6 /* maximum bytes per rune */
6 a31db67d 2004-04-21 devnull
7 a31db67d 2004-04-21 devnull /*
8 a31db67d 2004-04-21 devnull plan 9 argument parsing
9 a31db67d 2004-04-21 devnull */
10 a31db67d 2004-04-21 devnull #define ARGBEGIN for((argv0? 0: (argv0= *argv)),argv++,argc--;\
11 a31db67d 2004-04-21 devnull argv[0] && argv[0][0]=='-' && argv[0][1];\
12 a31db67d 2004-04-21 devnull argc--, argv++) {\
13 a31db67d 2004-04-21 devnull char *_args, *_argt, _argc;\
14 a31db67d 2004-04-21 devnull _args = &argv[0][1];\
15 a31db67d 2004-04-21 devnull if(_args[0]=='-' && _args[1]==0){\
16 a31db67d 2004-04-21 devnull argc--; argv++; break;\
17 a31db67d 2004-04-21 devnull }\
18 a31db67d 2004-04-21 devnull _argc=0;while(*_args) switch(_argc= *_args++)
19 a31db67d 2004-04-21 devnull #define ARGEND }
20 a31db67d 2004-04-21 devnull #define ARGF() (_argt=_args, _args="",\
21 a31db67d 2004-04-21 devnull (*_argt? _argt: argv[1]? (argc--, *++argv): 0))
22 a31db67d 2004-04-21 devnull #define ARGC() _argc
23 a31db67d 2004-04-21 devnull extern char *argv0;