Paper over problem with -frename-registers; Provide help for options
[official-gcc.git] / libiberty / argv.c
blobf596ffd0110a033ed095cc989cdf9b900c1500b0
1 /* Create and destroy argument vectors (argv's)
2 Copyright (C) 1992 Free Software Foundation, Inc.
3 Written by Fred Fish @ Cygnus Support
5 This file is part of the libiberty library.
6 Libiberty is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Library General Public
8 License as published by the Free Software Foundation; either
9 version 2 of the License, or (at your option) any later version.
11 Libiberty is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Library General Public License for more details.
16 You should have received a copy of the GNU Library General Public
17 License along with libiberty; see the file COPYING.LIB. If
18 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
22 /* Create and destroy argument vectors. An argument vector is simply an
23 array of string pointers, terminated by a NULL pointer. */
25 #include "ansidecl.h"
26 #include "libiberty.h"
28 #ifdef isspace
29 #undef isspace
30 #endif
31 #define isspace(ch) ((ch) == ' ' || (ch) == '\t')
33 /* Routines imported from standard C runtime libraries. */
35 #ifdef __STDC__
37 #include <stddef.h>
38 #include <string.h>
39 #include <stdlib.h>
41 #else /* !__STDC__ */
43 #if !defined _WIN32 || defined __GNUC__
44 extern char *memcpy (); /* Copy memory region */
45 extern int strlen (); /* Count length of string */
46 extern char *malloc (); /* Standard memory allocater */
47 extern char *realloc (); /* Standard memory reallocator */
48 extern void free (); /* Free malloc'd memory */
49 extern char *strdup (); /* Duplicate a string */
50 #endif
52 #endif /* __STDC__ */
54 #include "alloca-conf.h"
56 #ifndef NULL
57 #define NULL 0
58 #endif
60 #ifndef EOS
61 #define EOS '\0'
62 #endif
64 #define INITIAL_MAXARGC 8 /* Number of args + NULL in initial argv */
69 NAME
71 dupargv -- duplicate an argument vector
73 SYNOPSIS
75 char **dupargv (vector)
76 char **vector;
78 DESCRIPTION
80 Duplicate an argument vector. Simply scans through the
81 vector, duplicating each argument until the
82 terminating NULL is found.
84 RETURNS
86 Returns a pointer to the argument vector if
87 successful. Returns NULL if there is insufficient memory to
88 complete building the argument vector.
92 char **
93 dupargv (argv)
94 char **argv;
96 int argc;
97 char **copy;
99 if (argv == NULL)
100 return NULL;
102 /* the vector */
103 for (argc = 0; argv[argc] != NULL; argc++);
104 copy = (char **) malloc ((argc + 1) * sizeof (char *));
105 if (copy == NULL)
106 return NULL;
108 /* the strings */
109 for (argc = 0; argv[argc] != NULL; argc++)
111 int len = strlen (argv[argc]);
112 copy[argc] = malloc (sizeof (char *) * (len + 1));
113 if (copy[argc] == NULL)
115 freeargv (copy);
116 return NULL;
118 strcpy (copy[argc], argv[argc]);
120 copy[argc] = NULL;
121 return copy;
126 NAME
128 freeargv -- free an argument vector
130 SYNOPSIS
132 void freeargv (vector)
133 char **vector;
135 DESCRIPTION
137 Free an argument vector that was built using buildargv. Simply scans
138 through the vector, freeing the memory for each argument until the
139 terminating NULL is found, and then frees the vector itself.
141 RETURNS
143 No value.
147 void freeargv (vector)
148 char **vector;
150 register char **scan;
152 if (vector != NULL)
154 for (scan = vector; *scan != NULL; scan++)
156 free (*scan);
158 free (vector);
164 NAME
166 buildargv -- build an argument vector from a string
168 SYNOPSIS
170 char **buildargv (sp)
171 char *sp;
173 DESCRIPTION
175 Given a pointer to a string, parse the string extracting fields
176 separated by whitespace and optionally enclosed within either single
177 or double quotes (which are stripped off), and build a vector of
178 pointers to copies of the string for each field. The input string
179 remains unchanged.
181 All of the memory for the pointer array and copies of the string
182 is obtained from malloc. All of the memory can be returned to the
183 system with the single function call freeargv, which takes the
184 returned result of buildargv, as it's argument.
186 The memory for the argv array is dynamically expanded as necessary.
188 RETURNS
190 Returns a pointer to the argument vector if successful. Returns NULL
191 if the input string pointer is NULL or if there is insufficient
192 memory to complete building the argument vector.
194 NOTES
196 In order to provide a working buffer for extracting arguments into,
197 with appropriate stripping of quotes and translation of backslash
198 sequences, we allocate a working buffer at least as long as the input
199 string. This ensures that we always have enough space in which to
200 work, since the extracted arg is never larger than the input string.
202 If the input is a null string (as opposed to a NULL pointer), then
203 buildarg returns an argv that has one arg, a null string.
205 Argv is always kept terminated with a NULL arg pointer, so it can
206 be passed to freeargv at any time, or returned, as appropriate.
209 char **buildargv (input)
210 char *input;
212 char *arg;
213 char *copybuf;
214 int squote = 0;
215 int dquote = 0;
216 int bsquote = 0;
217 int argc = 0;
218 int maxargc = 0;
219 char **argv = NULL;
220 char **nargv;
222 if (input != NULL)
224 copybuf = (char *) alloca (strlen (input) + 1);
225 /* Is a do{}while to always execute the loop once. Always return an
226 argv, even for null strings. See NOTES above, test case below. */
229 /* Pick off argv[argc] */
230 while (isspace (*input))
232 input++;
234 if ((maxargc == 0) || (argc >= (maxargc - 1)))
236 /* argv needs initialization, or expansion */
237 if (argv == NULL)
239 maxargc = INITIAL_MAXARGC;
240 nargv = (char **) malloc (maxargc * sizeof (char *));
242 else
244 maxargc *= 2;
245 nargv = (char **) realloc (argv, maxargc * sizeof (char *));
247 if (nargv == NULL)
249 if (argv != NULL)
251 freeargv (argv);
252 argv = NULL;
254 break;
256 argv = nargv;
257 argv[argc] = NULL;
259 /* Begin scanning arg */
260 arg = copybuf;
261 while (*input != EOS)
263 if (isspace (*input) && !squote && !dquote && !bsquote)
265 break;
267 else
269 if (bsquote)
271 bsquote = 0;
272 *arg++ = *input;
274 else if (*input == '\\')
276 bsquote = 1;
278 else if (squote)
280 if (*input == '\'')
282 squote = 0;
284 else
286 *arg++ = *input;
289 else if (dquote)
291 if (*input == '"')
293 dquote = 0;
295 else
297 *arg++ = *input;
300 else
302 if (*input == '\'')
304 squote = 1;
306 else if (*input == '"')
308 dquote = 1;
310 else
312 *arg++ = *input;
315 input++;
318 *arg = EOS;
319 argv[argc] = strdup (copybuf);
320 if (argv[argc] == NULL)
322 freeargv (argv);
323 argv = NULL;
324 break;
326 argc++;
327 argv[argc] = NULL;
329 while (isspace (*input))
331 input++;
334 while (*input != EOS);
336 return (argv);
339 #ifdef MAIN
341 /* Simple little test driver. */
343 static char *tests[] =
345 "a simple command line",
346 "arg 'foo' is single quoted",
347 "arg \"bar\" is double quoted",
348 "arg \"foo bar\" has embedded whitespace",
349 "arg 'Jack said \\'hi\\'' has single quotes",
350 "arg 'Jack said \\\"hi\\\"' has double quotes",
351 "a b c d e f g h i j k l m n o p q r s t u v w x y z 1 2 3 4 5 6 7 8 9",
353 /* This should be expanded into only one argument. */
354 "trailing-whitespace ",
357 NULL
360 main ()
362 char **argv;
363 char **test;
364 char **targs;
366 for (test = tests; *test != NULL; test++)
368 printf ("buildargv(\"%s\")\n", *test);
369 if ((argv = buildargv (*test)) == NULL)
371 printf ("failed!\n\n");
373 else
375 for (targs = argv; *targs != NULL; targs++)
377 printf ("\t\"%s\"\n", *targs);
379 printf ("\n");
381 freeargv (argv);
386 #endif /* MAIN */