15 void initoptions(cmdlineinfo *opt, int argc, char **argv, char const *list)  in initoptions()  argument
17     opt->options = list;  in initoptions()
18     opt->argc = argc;  in initoptions()
19     opt->argv = argv;  in initoptions()
20     opt->index = 0;  in initoptions()
21     opt->argptr = NULL;  in initoptions()
22     opt->stop = FALSE;  in initoptions()
27 int readoption(cmdlineinfo *opt)  in readoption()  argument
31     if (!opt->options || !opt->argc || !opt->argv)  in readoption()
38     if (!opt->argptr || !*opt->argptr) {  in readoption()
39 	if (opt->index >= opt->argc) {  in readoption()
40 	    opt->type = OPT_END;  in readoption()
43 	opt->argptr = opt->argv[opt->index];  in readoption()
44 	++opt->index;  in readoption()
49 	if (!opt->stop && opt->argptr && opt->argptr[0] == '-'  in readoption()
50 				      && opt->argptr[1] == '-'  in readoption()
51 				      && opt->argptr[2] == '\0') {  in readoption()
52 	    opt->argptr = NULL;  in readoption()
53 	    opt->stop = TRUE;  in readoption()
60 	if (*opt->argptr != '-' || opt->stop) {  in readoption()
61 	    opt->opt = 0;  in readoption()
62 	    opt->val = opt->argptr;  in readoption()
63 	    opt->type = OPT_NONOPTION;  in readoption()
64 	    opt->argptr = NULL;  in readoption()
70 	++opt->argptr;  in readoption()
71 	if (!*opt->argptr) {			/* The "-" case. */  in readoption()
72 	    opt->opt = 0;  in readoption()
73 	    opt->val = opt->argptr - 1;  in readoption()
74 	    opt->type = OPT_DASH;  in readoption()
77 	if (*opt->argptr == '-') {  in readoption()
78 	    opt->opt = 0;			/* The "--foo" case. */  in readoption()
79 	    opt->val = opt->argptr - 1;  in readoption()
80 	    opt->type = OPT_LONG;  in readoption()
81 	    opt->argptr = NULL;  in readoption()
88     opt->type = OPT_OPTION;  in readoption()
89     opt->opt = *opt->argptr;  in readoption()
90     ++opt->argptr;  in readoption()
94     str = strchr(opt->options, opt->opt);  in readoption()
96 	opt->val = opt->argptr - 1;  in readoption()
97 	opt->type = OPT_BADOPTION;  in readoption()
100 	if (*opt->argptr) {			/* Is the value here? */  in readoption()
101 	    opt->val = opt->argptr;  in readoption()
102 	    opt->argptr = NULL;  in readoption()
104 	    if (opt->index >= opt->argc) {	/* Or in the next argument? */  in readoption()
105 		opt->val = NULL;  in readoption()
106 		opt->type = OPT_NOVALUE;  in readoption()
109 		opt->val = opt->argv[opt->index];  in readoption()
110 		++opt->index;  in readoption()
114 	opt->val = NULL;  in readoption()
116     return opt->opt;  in readoption()
121 int skipoption(cmdlineinfo *opt)  in skipoption()  argument
123     if (opt->index >= opt->argc)  in skipoption()
125     opt->val = opt->argv[opt->index];  in skipoption()
126     ++opt->index;  in skipoption()