1 /* $NetBSD: getopt.c,v 1.26 2003/08/07 16:43:40 agc Exp $ */
2 /* SPDX-License-Identifier: BSD-3-Clause */
3 /*
4 * Copyright (c) 1987, 1993, 1994
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 #include <string.h>
33 #include <zephyr/sys/sys_getopt.h>
34 #include "getopt_common.h"
35
36 #include <zephyr/logging/log.h>
37 LOG_MODULE_REGISTER(sys_getopt);
38
39 #define BADCH ((int)'?')
40 #define BADARG ((int)':')
41 #define EMSG ""
42
sys_getopt_init(void)43 void sys_getopt_init(void)
44 {
45 struct sys_getopt_state *state;
46
47 state = sys_getopt_state_get();
48
49 state->opterr = 1;
50 state->optind = 1;
51 state->optopt = 0;
52 state->optreset = 0;
53 state->optarg = NULL;
54
55 state->place = ""; /* EMSG */
56
57 #if CONFIG_GETOPT_LONG
58 state->nonopt_start = -1; /* first non option argument (for permute) */
59 state->nonopt_end = -1; /* first option after non options (for permute) */
60 #endif
61
62 sys_getopt_opterr = 1;
63 sys_getopt_optind = 1;
64 sys_getopt_optopt = 0;
65 sys_getopt_optreset = 0;
66 sys_getopt_optarg = NULL;
67 }
68
69 /*
70 * getopt --
71 * Parse argc/argv argument vector.
72 */
sys_getopt(int nargc,char * const nargv[],const char * ostr)73 int sys_getopt(int nargc, char *const nargv[], const char *ostr)
74 {
75 struct sys_getopt_state *state;
76 char *oli; /* option letter list index */
77
78 /* get getopt state of the current thread */
79 state = sys_getopt_state_get();
80
81 if (state->optreset || *state->place == 0) { /* update scanning pointer */
82 state->optreset = 0;
83 state->place = nargv[state->optind];
84 if (state->optind >= nargc || *state->place++ != '-') {
85 /* Argument is absent or is not an option */
86 state->place = EMSG;
87 z_getopt_global_state_update(state);
88 return -1;
89 }
90 state->optopt = *state->place++;
91 if (state->optopt == '-' && *state->place == 0) {
92 /* "--" => end of options */
93 ++state->optind;
94 state->place = EMSG;
95 z_getopt_global_state_update(state);
96 return -1;
97 }
98 if (state->optopt == 0) {
99 /* Solitary '-', treat as a '-' option
100 * if the program (eg su) is looking for it.
101 */
102 state->place = EMSG;
103 if (strchr(ostr, '-') == NULL) {
104 z_getopt_global_state_update(state);
105 return -1;
106 }
107 state->optopt = '-';
108 }
109 } else {
110 state->optopt = *state->place++;
111 }
112
113 /* See if option letter is one the caller wanted... */
114 oli = strchr(ostr, state->optopt);
115 if (state->optopt == ':' || oli == NULL) {
116 if (*state->place == 0) {
117 ++state->optind;
118 }
119 if (state->opterr && *ostr != ':') {
120 LOG_DBG("illegal option -- %c", state->optopt);
121 }
122 z_getopt_global_state_update(state);
123 return BADCH;
124 }
125
126 /* Does this option need an argument? */
127 if (oli[1] != ':') {
128 /* don't need argument */
129 state->optarg = NULL;
130 if (*state->place == 0) {
131 ++state->optind;
132 }
133 } else {
134 /* Option-argument is either the rest of this argument or the
135 * entire next argument.
136 */
137 if (*state->place) {
138 state->optarg = state->place;
139 } else if (nargc > ++state->optind) {
140 state->optarg = nargv[state->optind];
141 } else {
142 /* option-argument absent */
143 state->place = EMSG;
144 if (*ostr == ':') {
145 z_getopt_global_state_update(state);
146 return BADARG;
147 }
148 if (state->opterr) {
149 LOG_DBG("option requires an argument -- %c", state->optopt);
150 }
151 z_getopt_global_state_update(state);
152 return BADCH;
153 }
154 state->place = EMSG;
155 ++state->optind;
156 }
157 z_getopt_global_state_update(state);
158 return state->optopt; /* return option letter */
159 }
160
