1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192 |
- /*
- * This file is part of the UCB release of Plan 9. It is subject to the license
- * terms in the LICENSE file found in the top-level directory of this
- * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
- * part of the UCB release of Plan 9, including this file, may be copied,
- * modified, propagated, or distributed except according to the terms contained
- * in the LICENSE file.
- */
- #include <u.h>
- #include <libc.h>
- void
- usage(void)
- {
- print("status=usage\n");
- exits(0);
- }
- char*
- findarg(char *flags, Rune r)
- {
- char *p;
- Rune rr;
-
- for(p=flags; p!=(char*)1; p=strchr(p, ',')+1){
- chartorune(&rr, p);
- if(rr == r)
- return p;
- }
- return nil;
- }
- int
- countargs(char *p)
- {
- int n;
- n = 1;
- while(*p == ' ')
- p++;
- for(; *p && *p != ','; p++)
- if(*p == ' ' && *(p-1) != ' ')
- n++;
- return n;
- }
- void
- main(int argc, char *argv[])
- {
- char *flags, *p, buf[512];
- int i, n;
- Fmt fmt;
-
- doquote = needsrcquote;
- quotefmtinstall();
- argv0 = argv[0]; /* for sysfatal */
-
- flags = getenv("flagfmt");
- if(flags == nil){
- fprint(2, "$flagfmt not set\n");
- print("exit 'missing flagfmt'");
- exits(0);
- }
- fmtfdinit(&fmt, 1, buf, sizeof buf);
- for(p=flags; p!=(char*)1; p=strchr(p, ',')+1)
- fmtprint(&fmt, "flag%.1s=()\n", p);
- ARGBEGIN{
- default:
- if((p = findarg(flags, ARGC())) == nil)
- usage();
- p += runelen(ARGC());
- if(*p == ',' || *p == 0){
- fmtprint(&fmt, "flag%C=1\n", ARGC());
- break;
- }
- n = countargs(p);
- fmtprint(&fmt, "flag%C=(", ARGC());
- for(i=0; i<n; i++)
- fmtprint(&fmt, "%s%q", i ? " " : "", EARGF(usage()));
- fmtprint(&fmt, ")\n");
- }ARGEND
-
- fmtprint(&fmt, "*=(");
- for(i=0; i<argc; i++)
- fmtprint(&fmt, "%s%q", i ? " " : "", argv[i]);
- fmtprint(&fmt, ")\n");
- fmtprint(&fmt, "status=''\n");
- fmtfdflush(&fmt);
- exits(0);
- }
|