Mercurial > hg > octave-kai > gnulib-hg

annotate lib/rpmatch.c @ 1929:f7d4ee7478d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(get_date): Rename outermost local `probe' to `quarter'.
author Jim Meyering <jim@meyering.net>
date Sun, 29 Aug 1999 12:28:56 +0000
parents fe2322aebba2
children 8daff2f772b7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
882
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
1 /* Determine whether string value is affirmation or negative response
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
2 according to current locale's data.
1404
96a4586772e8 Change guard on <regex.h> inclusion to use new
Jim Meyering <jim@meyering.net>
parents: 882
diff changeset
3 Copyright (C) 1996, 1998 Free Software Foundation, Inc.
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
4
882
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
5 This program is free software; you can redistribute it and/or modify
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
6 it under the terms of the GNU General Public License as published by
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
7 the Free Software Foundation; either version 2, or (at your option)
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
8 any later version.
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
9
882
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
10 This program is distributed in the hope that it will be useful,
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
13 GNU General Public License for more details.
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
14
882
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
15 You should have received a copy of the GNU General Public License
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
16 along with this program; if not, write to the Free Software Foundation,
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
17 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
18
882
43308e6073b6 libitize
Jim Meyering <jim@meyering.net>
parents: 722
diff changeset
19 #if HAVE_CONFIG_H
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
20 # include <config.h>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
21 #endif
Jim Meyering <jim@meyering.net>
parents:
diff changeset
22
665
724b81f1f93a [STDC_HEADERS]: Guard inclusion of stdlib.h.
Jim Meyering <jim@meyering.net>
parents: 662
diff changeset
23 #if STDC_HEADERS || _LIBC
685
d5a36bb662b1 Make sure NULL is defined by including stddef.h
Jim Meyering <jim@meyering.net>
parents: 682
diff changeset
24 # include <stddef.h>
665
724b81f1f93a [STDC_HEADERS]: Guard inclusion of stdlib.h.
Jim Meyering <jim@meyering.net>
parents: 662
diff changeset
25 # include <stdlib.h>
685
d5a36bb662b1 Make sure NULL is defined by including stddef.h
Jim Meyering <jim@meyering.net>
parents: 682
diff changeset
26 #else
d5a36bb662b1 Make sure NULL is defined by including stddef.h
Jim Meyering <jim@meyering.net>
parents: 682
diff changeset
27 # ifndef NULL
d5a36bb662b1 Make sure NULL is defined by including stddef.h
Jim Meyering <jim@meyering.net>
parents: 682
diff changeset
28 # define NULL 0
d5a36bb662b1 Make sure NULL is defined by including stddef.h
Jim Meyering <jim@meyering.net>
parents: 682
diff changeset
29 # endif
665
724b81f1f93a [STDC_HEADERS]: Guard inclusion of stdlib.h.
Jim Meyering <jim@meyering.net>
parents: 662
diff changeset
30 #endif
724b81f1f93a [STDC_HEADERS]: Guard inclusion of stdlib.h.
Jim Meyering <jim@meyering.net>
parents: 662
diff changeset
31
681
c952aa1385fd (ENABLE_NLS): Include libintl.h and define _ to gettext.
Jim Meyering <jim@meyering.net>
parents: 667
diff changeset
32 #if ENABLE_NLS
1558
db3dc1c514e1 (rpmatch) [!ENABLE_NLS]: Hard-code tests to use `^[yY]' and `^[nN]'.
Jim Meyering <jim@meyering.net>
parents: 1557
diff changeset
33 # include <sys/types.h>
db3dc1c514e1 (rpmatch) [!ENABLE_NLS]: Hard-code tests to use `^[yY]' and `^[nN]'.
Jim Meyering <jim@meyering.net>
parents: 1557
diff changeset
34 # include <regex.h>
681
c952aa1385fd (ENABLE_NLS): Include libintl.h and define _ to gettext.
Jim Meyering <jim@meyering.net>
parents: 667
diff changeset
35 # include <libintl.h>
c952aa1385fd (ENABLE_NLS): Include libintl.h and define _ to gettext.
Jim Meyering <jim@meyering.net>
parents: 667
diff changeset
36 # define _(Text) gettext (Text)
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
37
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38 static int
1579
fe2322aebba2 split long line
Jim Meyering <jim@meyering.net>
parents: 1558
diff changeset
39 try (const char *response, const char *pattern, const int match,
fe2322aebba2 split long line
Jim Meyering <jim@meyering.net>
parents: 1558
diff changeset
40 const int nomatch, const char **lastp, regex_t *re)
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
41 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
42 if (pattern != *lastp)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
43 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
44 /* The pattern has changed. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
45 if (*lastp)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
46 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
47 /* Free the old compiled pattern. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
48 regfree (re);
Jim Meyering <jim@meyering.net>
parents:
diff changeset
49 *lastp = NULL;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
50 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
51 /* Compile the pattern and cache it for future runs. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
52 if (regcomp (re, pattern, REG_EXTENDED) != 0)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
53 return -1;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
54 *lastp = pattern;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
55 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
56
665
724b81f1f93a [STDC_HEADERS]: Guard inclusion of stdlib.h.
Jim Meyering <jim@meyering.net>
parents: 662
diff changeset
57 /* See if the regular expression matches RESPONSE. */
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
58 return regexec (re, response, 0, NULL, 0) == 0 ? match : nomatch;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
59 }
1558
db3dc1c514e1 (rpmatch) [!ENABLE_NLS]: Hard-code tests to use `^[yY]' and `^[nN]'.
Jim Meyering <jim@meyering.net>
parents: 1557
diff changeset
60 #endif
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
61
Jim Meyering <jim@meyering.net>
parents:
diff changeset
62
Jim Meyering <jim@meyering.net>
parents:
diff changeset
63 int
1557
38fd8f5d359d ansideclify
Jim Meyering <jim@meyering.net>
parents: 1417
diff changeset
64 rpmatch (const char *response)
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
65 {
1558
db3dc1c514e1 (rpmatch) [!ENABLE_NLS]: Hard-code tests to use `^[yY]' and `^[nN]'.
Jim Meyering <jim@meyering.net>
parents: 1557
diff changeset
66 #if ENABLE_NLS
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
67 /* Match against one of the response patterns, compiling the pattern
Jim Meyering <jim@meyering.net>
parents:
diff changeset
68 first if necessary. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
69
Jim Meyering <jim@meyering.net>
parents:
diff changeset
70 /* We cache the response patterns and compiled regexps here. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
71 static const char *yesexpr, *noexpr;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
72 static regex_t yesre, nore;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
73 int result;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
74
682
8356321f3b4c this conforms to POSIX.2. From Paul Eggert <eggert@twinsun.com>.
Jim Meyering <jim@meyering.net>
parents: 681
diff changeset
75 return ((result = try (response, _("^[yY]"), 1, 0,
665
724b81f1f93a [STDC_HEADERS]: Guard inclusion of stdlib.h.
Jim Meyering <jim@meyering.net>
parents: 662
diff changeset
76 &yesexpr, &yesre))
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
77 ? result
682
8356321f3b4c this conforms to POSIX.2. From Paul Eggert <eggert@twinsun.com>.
Jim Meyering <jim@meyering.net>
parents: 681
diff changeset
78 : try (response, _("^[nN]"), 0, -1, &noexpr, &nore));
1558
db3dc1c514e1 (rpmatch) [!ENABLE_NLS]: Hard-code tests to use `^[yY]' and `^[nN]'.
Jim Meyering <jim@meyering.net>
parents: 1557
diff changeset
79 #else
db3dc1c514e1 (rpmatch) [!ENABLE_NLS]: Hard-code tests to use `^[yY]' and `^[nN]'.
Jim Meyering <jim@meyering.net>
parents: 1557
diff changeset
80 /* Test against "^[yY]" and "^[nN]", hardcoded to avoid requiring regex */
db3dc1c514e1 (rpmatch) [!ENABLE_NLS]: Hard-code tests to use `^[yY]' and `^[nN]'.
Jim Meyering <jim@meyering.net>
parents: 1557
diff changeset
81 return (*response == 'y' || *response == 'Y' ? 1
db3dc1c514e1 (rpmatch) [!ENABLE_NLS]: Hard-code tests to use `^[yY]' and `^[nN]'.
Jim Meyering <jim@meyering.net>
parents: 1557
diff changeset
82 : *response == 'n' || *response == 'N' ? 0 : -1);
db3dc1c514e1 (rpmatch) [!ENABLE_NLS]: Hard-code tests to use `^[yY]' and `^[nN]'.
Jim Meyering <jim@meyering.net>
parents: 1557
diff changeset
83 #endif
662
Jim Meyering <jim@meyering.net>
parents:
diff changeset
84 }