Mercurial > hg > octave-kai > gnulib-hg
annotate lib/getsubopt.c @ 10531:e83a90adf243
Override fopen more carefully.
| author | Bruno Haible <bruno@clisp.org> |
|---|---|
| date | Sun, 28 Sep 2008 16:12:20 +0200 |
| parents | bbbbbf4cd1c5 |
| children | e8d2c6fc33ad |
| rev | line source |
|---|---|
|
8198
d84ab7c183f4
getsubopt.h is replaced with <stdlib.h>.
Bruno Haible <bruno@clisp.org>
parents:
8108
diff
changeset
|
1 /* Parse comma separated list into words. |
|
7944
a1d177cd9523
* doc/gnulib-tool.texi (Initial import): Update to match current
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
2 Copyright (C) 1996, 1997, 1999, 2004, 2007 Free Software Foundation, Inc. |
| 5138 | 3 This file is part of the GNU C Library. |
| 4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996. | |
| 5 | |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8198
diff
changeset
|
6 This program is free software: you can redistribute it and/or modify |
|
5243
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
7 it under the terms of the GNU General Public License as published by |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8198
diff
changeset
|
8 the Free Software Foundation; either version 3 of the License, or |
|
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8198
diff
changeset
|
9 (at your option) any later version. |
| 5138 | 10 |
|
5243
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
11 This program is distributed in the hope that it will be useful, |
| 5138 | 12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
5243
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
14 GNU General Public License for more details. |
| 5138 | 15 |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8198
diff
changeset
|
16 You should have received a copy of the GNU General Public License |
|
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8198
diff
changeset
|
17 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
| 5138 | 18 |
|
8108
e22e004d89dd
* lib/getsubopt.c [!_LIBC]: Include config.h and getsubopt.h.
Paul Eggert <eggert@cs.ucla.edu>
parents:
7944
diff
changeset
|
19 #if !_LIBC |
|
e22e004d89dd
* lib/getsubopt.c [!_LIBC]: Include config.h and getsubopt.h.
Paul Eggert <eggert@cs.ucla.edu>
parents:
7944
diff
changeset
|
20 # include <config.h> |
|
e22e004d89dd
* lib/getsubopt.c [!_LIBC]: Include config.h and getsubopt.h.
Paul Eggert <eggert@cs.ucla.edu>
parents:
7944
diff
changeset
|
21 #endif |
|
e22e004d89dd
* lib/getsubopt.c [!_LIBC]: Include config.h and getsubopt.h.
Paul Eggert <eggert@cs.ucla.edu>
parents:
7944
diff
changeset
|
22 |
| 5138 | 23 #include <stdlib.h> |
| 24 #include <string.h> | |
| 25 | |
| 26 #if !_LIBC | |
| 27 /* This code is written for inclusion in gnu-libc, and uses names in | |
| 28 the namespace reserved for libc. If we're compiling in gnulib, | |
| 29 define those names to be the normal ones instead. */ | |
| 30 # undef __strchrnul | |
| 31 # define __strchrnul strchrnul | |
| 32 #endif | |
| 33 | |
| 34 /* Parse comma separated suboption from *OPTIONP and match against | |
| 35 strings in TOKENS. If found return index and set *VALUEP to | |
| 36 optional value introduced by an equal sign. If the suboption is | |
| 37 not part of TOKENS return in *VALUEP beginning of unknown | |
| 38 suboption. On exit *OPTIONP is set to the beginning of the next | |
| 39 token or at the terminating NUL character. */ | |
| 40 int | |
| 41 getsubopt (char **optionp, char *const *tokens, char **valuep) | |
| 42 { | |
| 43 char *endp, *vstart; | |
| 44 int cnt; | |
| 45 | |
| 46 if (**optionp == '\0') | |
| 47 return -1; | |
| 48 | |
| 49 /* Find end of next token. */ | |
| 50 endp = __strchrnul (*optionp, ','); | |
| 51 | |
| 52 /* Find start of value. */ | |
| 53 vstart = memchr (*optionp, '=', endp - *optionp); | |
| 54 if (vstart == NULL) | |
| 55 vstart = endp; | |
| 56 | |
| 57 /* Try to match the characters between *OPTIONP and VSTART against | |
| 58 one of the TOKENS. */ | |
| 59 for (cnt = 0; tokens[cnt] != NULL; ++cnt) | |
| 60 if (strncmp (*optionp, tokens[cnt], vstart - *optionp) == 0 | |
| 61 && tokens[cnt][vstart - *optionp] == '\0') | |
| 62 { | |
| 63 /* We found the current option in TOKENS. */ | |
| 64 *valuep = vstart != endp ? vstart + 1 : NULL; | |
| 65 | |
| 66 if (*endp != '\0') | |
| 67 *endp++ = '\0'; | |
| 68 *optionp = endp; | |
| 69 | |
| 70 return cnt; | |
| 71 } | |
| 72 | |
| 73 /* The current suboption does not match any option. */ | |
| 74 *valuep = *optionp; | |
| 75 | |
| 76 if (*endp != '\0') | |
| 77 *endp++ = '\0'; | |
| 78 *optionp = endp; | |
| 79 | |
| 80 return -1; | |
| 81 } |