]>
cloudbase.mooo.com Git - z180-stamp.git/blob - avr/getopt-min.c
5 * Minimum getopt, original version was:
9 getopt -- public domain version of standard System V routine
11 Strictly enforces the System V Command Syntax Standard;
12 provided by D A Gwyn of BRL for generic ANSI C implementations
14 /* $Id: getopt.c,v 1.2 1992/12/07 11:12:52 nickc Exp $ */
18 int optind
= 1; /* next argv[] index */
19 char *optarg
; /* option parameter if any */
23 getopt( /* returns letter, '?', EOF */
24 int argc
, /* argument count from main */
25 char *const argv
[], /* argument vector from main */
26 const FLASH
char *optstring
) /* allowed args, e.g. "ab:c" */
28 static int sp
= 1; /* position within argument */
29 int osp
; /* saved `sp' for param test */
30 int c
; /* option letter */
31 const FLASH
char *cp
; /* -> option in `optstring' */
35 if ( sp
== 1 ) /* fresh argument */
37 if ( optind
>= argc
/* no more arguments */
38 || argv
[optind
][0] != '-' /* no more options */
39 || argv
[optind
][1] == '\0' /* not option; stdin */
44 c
= argv
[optind
][sp
]; /* option letter */
45 osp
= sp
++; /* get ready for next letter */
47 if ( argv
[optind
][sp
] == '\0' ) /* end of argument */
49 ++optind
; /* get ready for next try */
50 sp
= 1; /* beginning of next argument */
53 if ( c
== ':' /* optstring syntax conflict */
54 || (cp
= strchr_P( optstring
, c
)) == NULL
/* not found */
58 if ( cp
[1] == ':' ) /* option takes parameter */
63 if ( sp
!= 1 ) /* reset by end of argument */
69 optarg
= argv
[optind
]; /* make parameter available */
70 ++optind
; /* skip over parameter */