PostgreSQL Source Code git master
All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Pages
getopt_long.c File Reference
#include "c.h"
#include "getopt_long.h"
Include dependency graph for getopt_long.c:

Go to the source code of this file.

Macros

#define BADCH   '?'
 
#define BADARG   ':'
 
#define EMSG   ""
 

Functions

int getopt_long (int argc, char *const argv[], const char *optstring, const struct option *longopts, int *longindex)
 

Macro Definition Documentation

◆ BADARG

#define BADARG   ':'

Definition at line 42 of file getopt_long.c.

◆ BADCH

#define BADCH   '?'

Definition at line 41 of file getopt_long.c.

◆ EMSG

#define EMSG   ""

Definition at line 43 of file getopt_long.c.

Function Documentation

◆ getopt_long()

int getopt_long ( int  argc,
char *const  argv[],
const char *  optstring,
const struct option longopts,
int *  longindex 
)

Definition at line 60 of file getopt_long.c.

63{
64 static char *place = EMSG; /* option letter processing */
65 char *oli; /* option letter list index */
66 static int nonopt_start = -1;
67 static bool force_nonopt = false;
68
69 if (!*place)
70 { /* update scanning pointer */
71 char **args = (char **) argv;
72
73retry:
74
75 /*
76 * If we are out of arguments or only non-options remain, return -1.
77 */
78 if (optind >= argc || optind == nonopt_start)
79 {
80 place = EMSG;
81 nonopt_start = -1;
82 force_nonopt = false;
83 return -1;
84 }
85
86 place = argv[optind];
87
88 /*
89 * An argument is a non-option if it meets any of the following
90 * criteria: it follows an argument that is equivalent to the string
91 * "--", it does not start with '-', or it is equivalent to the string
92 * "-". When we encounter a non-option, we move it to the end of argv
93 * (after shifting all remaining arguments over to make room), and
94 * then we try again with the next argument.
95 */
96 if (force_nonopt || place[0] != '-' || place[1] == '\0')
97 {
98 for (int i = optind; i < argc - 1; i++)
99 args[i] = args[i + 1];
100 args[argc - 1] = place;
101
102 if (nonopt_start == -1)
103 nonopt_start = argc - 1;
104 else
105 nonopt_start--;
106
107 goto retry;
108 }
109
110 place++;
111
112 if (place[0] == '-' && place[1] == '\0')
113 {
114 /* found "--", treat it as end of options */
115 ++optind;
116 force_nonopt = true;
117 goto retry;
118 }
119
120 if (place[0] == '-' && place[1])
121 {
122 /* long option */
123 size_t namelen;
124 int i;
125
126 place++;
127
128 namelen = strcspn(place, "=");
129 for (i = 0; longopts[i].name != NULL; i++)
130 {
131 if (strlen(longopts[i].name) == namelen
132 && strncmp(place, longopts[i].name, namelen) == 0)
133 {
134 int has_arg = longopts[i].has_arg;
135
136 if (has_arg != no_argument)
137 {
138 if (place[namelen] == '=')
139 optarg = place + namelen + 1;
140 else if (optind < argc - 1 &&
141 has_arg == required_argument)
142 {
143 optind++;
144 optarg = argv[optind];
145 }
146 else
147 {
148 if (optstring[0] == ':')
149 return BADARG;
150
151 if (opterr && has_arg == required_argument)
152 fprintf(stderr,
153 "%s: option requires an argument -- %s\n",
154 argv[0], place);
155
156 place = EMSG;
157 optind++;
158
159 if (has_arg == required_argument)
160 return BADCH;
161 optarg = NULL;
162 }
163 }
164 else
165 {
166 optarg = NULL;
167 if (place[namelen] != 0)
168 {
169 /* XXX error? */
170 }
171 }
172
173 optind++;
174
175 if (longindex)
176 *longindex = i;
177
178 place = EMSG;
179
180 if (longopts[i].flag == NULL)
181 return longopts[i].val;
182 else
183 {
184 *longopts[i].flag = longopts[i].val;
185 return 0;
186 }
187 }
188 }
189
190 if (opterr && optstring[0] != ':')
191 fprintf(stderr,
192 "%s: illegal option -- %s\n", argv[0], place);
193 place = EMSG;
194 optind++;
195 return BADCH;
196 }
197 }
198
199 /* short option */
200 optopt = (int) *place++;
201
202 oli = strchr(optstring, optopt);
203 if (!oli)
204 {
205 if (!*place)
206 ++optind;
207 if (opterr && *optstring != ':')
208 fprintf(stderr,
209 "%s: illegal option -- %c\n", argv[0], optopt);
210 return BADCH;
211 }
212
213 if (oli[1] != ':')
214 { /* don't need argument */
215 optarg = NULL;
216 if (!*place)
217 ++optind;
218 }
219 else
220 { /* need an argument */
221 if (*place) /* no white space */
222 optarg = place;
223 else if (argc <= ++optind)
224 { /* no arg */
225 place = EMSG;
226 if (*optstring == ':')
227 return BADARG;
228 if (opterr)
229 fprintf(stderr,
230 "%s: option requires an argument -- %c\n",
231 argv[0], optopt);
232 return BADCH;
233 }
234 else
235 /* white space */
236 optarg = argv[optind];
237 place = EMSG;
238 ++optind;
239 }
240 return optopt;
241}
#define fprintf(file, fmt, msg)
Definition: cubescan.l:21
#define BADCH
Definition: getopt_long.c:41
#define BADARG
Definition: getopt_long.c:42
#define EMSG
Definition: getopt_long.c:43
#define no_argument
Definition: getopt_long.h:25
#define required_argument
Definition: getopt_long.h:26
int i
Definition: isn.c:72
PGDLLIMPORT int optind
Definition: getopt.c:51
PGDLLIMPORT int optopt
Definition: getopt.c:52
PGDLLIMPORT int opterr
Definition: getopt.c:50
PGDLLIMPORT char * optarg
Definition: getopt.c:53
int val
Definition: getopt_long.h:22
int has_arg
Definition: getopt_long.h:20
int * flag
Definition: getopt_long.h:21
const char * name
Definition: getopt_long.h:19
char * flag(int b)
Definition: test-ctype.c:33
const char * name

References generate_unaccent_rules::args, BADARG, BADCH, EMSG, option::flag, flag(), fprintf, option::has_arg, i, name, option::name, no_argument, optarg, opterr, optind, optopt, required_argument, and option::val.

Referenced by get_opts(), handle_args(), main(), parse_psql_options(), parseCommandLine(), and regression_main().