Mercurial > hg > octave-kai > gnulib-hg
annotate lib/getsubopt.c @ 5459:e88a820ff3bb
Add log for human.h, xgetcwd.c (import from coreutils).
| author | Paul Eggert <eggert@cs.ucla.edu> |
|---|---|
| date | Wed, 17 Nov 2004 07:32:27 +0000 |
| parents | 8f943cf05985 |
| children | a48fb0e98c8c |
| rev | line source |
|---|---|
| 5138 | 1 /* Parse comma separate list into words. |
| 2 Copyright (C) 1996, 1997, 1999, 2004 Free Software Foundation, Inc. | |
| 3 This file is part of the GNU C Library. | |
| 4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996. | |
| 5 | |
|
5243
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
6 This program is free software; you can redistribute it and/or modify |
|
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 |
|
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
|
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
9 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 |
|
5243
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
16 You should have received a copy of the GNU General Public License along |
|
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
17 with this program; if not, write to the Free Software Foundation, |
|
8f943cf05985
Regenerate, now that it's listed in ../config/srclist.txt.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5138
diff
changeset
|
18 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
| 5138 | 19 |
| 20 #include <stdlib.h> | |
| 21 #include <string.h> | |
| 22 | |
| 23 #if !_LIBC | |
| 24 /* This code is written for inclusion in gnu-libc, and uses names in | |
| 25 the namespace reserved for libc. If we're compiling in gnulib, | |
| 26 define those names to be the normal ones instead. */ | |
| 27 # include "strchrnul.h" | |
| 28 # undef __strchrnul | |
| 29 # define __strchrnul strchrnul | |
| 30 #endif | |
| 31 | |
| 32 /* Parse comma separated suboption from *OPTIONP and match against | |
| 33 strings in TOKENS. If found return index and set *VALUEP to | |
| 34 optional value introduced by an equal sign. If the suboption is | |
| 35 not part of TOKENS return in *VALUEP beginning of unknown | |
| 36 suboption. On exit *OPTIONP is set to the beginning of the next | |
| 37 token or at the terminating NUL character. */ | |
| 38 int | |
| 39 getsubopt (char **optionp, char *const *tokens, char **valuep) | |
| 40 { | |
| 41 char *endp, *vstart; | |
| 42 int cnt; | |
| 43 | |
| 44 if (**optionp == '\0') | |
| 45 return -1; | |
| 46 | |
| 47 /* Find end of next token. */ | |
| 48 endp = __strchrnul (*optionp, ','); | |
| 49 | |
| 50 /* Find start of value. */ | |
| 51 vstart = memchr (*optionp, '=', endp - *optionp); | |
| 52 if (vstart == NULL) | |
| 53 vstart = endp; | |
| 54 | |
| 55 /* Try to match the characters between *OPTIONP and VSTART against | |
| 56 one of the TOKENS. */ | |
| 57 for (cnt = 0; tokens[cnt] != NULL; ++cnt) | |
| 58 if (strncmp (*optionp, tokens[cnt], vstart - *optionp) == 0 | |
| 59 && tokens[cnt][vstart - *optionp] == '\0') | |
| 60 { | |
| 61 /* We found the current option in TOKENS. */ | |
| 62 *valuep = vstart != endp ? vstart + 1 : NULL; | |
| 63 | |
| 64 if (*endp != '\0') | |
| 65 *endp++ = '\0'; | |
| 66 *optionp = endp; | |
| 67 | |
| 68 return cnt; | |
| 69 } | |
| 70 | |
| 71 /* The current suboption does not match any option. */ | |
| 72 *valuep = *optionp; | |
| 73 | |
| 74 if (*endp != '\0') | |
| 75 *endp++ = '\0'; | |
| 76 *optionp = endp; | |
| 77 | |
| 78 return -1; | |
| 79 } |