in lib:
[gnulib.git] / lib / rpmatch.c
1 /* Determine whether string value is affirmation or negative response
2    according to current locale's data.
3    Copyright (C) 1996, 1998, 2000, 2002, 2003 Free Software Foundation, Inc.
4
5    This program is free software; you can redistribute it and/or modify
6    it under the terms of the GNU General Public License as published by
7    the Free Software Foundation; either version 2, or (at your option)
8    any later version.
9
10    This program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13    GNU General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software Foundation,
17    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
18
19 #if HAVE_CONFIG_H
20 # include <config.h>
21 #endif
22
23 #include <stddef.h>
24 #if STDC_HEADERS || _LIBC
25 # include <stdlib.h>
26 #endif
27
28 #if ENABLE_NLS
29 # include <sys/types.h>
30 # include <limits.h>
31 # include <regex.h>
32 # include "gettext.h"
33 # define _(msgid) gettext (msgid)
34
35 static int
36 try (const char *response, const char *pattern, const int match,
37      const int nomatch, const char **lastp, regex_t *re)
38 {
39   if (pattern != *lastp)
40     {
41       /* The pattern has changed.  */
42       if (*lastp)
43         {
44           /* Free the old compiled pattern.  */
45           regfree (re);
46           *lastp = NULL;
47         }
48       /* Compile the pattern and cache it for future runs.  */
49       if (regcomp (re, pattern, REG_EXTENDED) != 0)
50         return -1;
51       *lastp = pattern;
52     }
53
54   /* See if the regular expression matches RESPONSE.  */
55   return regexec (re, response, 0, NULL, 0) == 0 ? match : nomatch;
56 }
57 #endif
58
59
60 int
61 rpmatch (const char *response)
62 {
63 #if ENABLE_NLS
64   /* Match against one of the response patterns, compiling the pattern
65      first if necessary.  */
66
67   /* We cache the response patterns and compiled regexps here.  */
68   static const char *yesexpr, *noexpr;
69   static regex_t yesre, nore;
70   int result;
71
72   return ((result = try (response, _("^[yY]"), 1, 0,
73                          &yesexpr, &yesre))
74           ? result
75           : try (response, _("^[nN]"), 0, -1, &noexpr, &nore));
76 #else
77   /* Test against "^[yY]" and "^[nN]", hardcoded to avoid requiring regex */
78   return (*response == 'y' || *response == 'Y' ? 1
79           : *response == 'n' || *response == 'N' ? 0 : -1);
80 #endif
81 }