a57a0478f141f5bab082bb4ce25491a0b7e1e972
[gnulib.git] / lib / rpmatch.c
1 /* rpmatch - determine whether string value is affirmation or negative
2              response according to current locale's data
3 Copyright (C) 1996 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 #ifdef HAVE_CONFIG_H
20 # include <config.h>
21 #endif
22
23 #if STDC_HEADERS || _LIBC
24 # include <stdlib.h>
25 #endif
26
27 #include <regex.h>
28
29 #ifndef _
30 # define _(String) String
31 #endif
32
33 static int
34 try (response, pattern, match, nomatch, lastp, re)
35      const char *response;
36      const char *pattern;
37      const int match;
38      const int nomatch;
39      const char **lastp;
40      regex_t *re;
41 {
42   if (pattern != *lastp)
43     {
44       /* The pattern has changed.  */
45       if (*lastp)
46         {
47           /* Free the old compiled pattern.  */
48           regfree (re);
49           *lastp = NULL;
50         }
51       /* Compile the pattern and cache it for future runs.  */
52       if (regcomp (re, pattern, REG_EXTENDED) != 0)
53         return -1;
54       *lastp = pattern;
55     }
56
57   /* See if the regular expression matches RESPONSE.  */
58   return regexec (re, response, 0, NULL, 0) == 0 ? match : nomatch;
59 }
60
61
62 int
63 rpmatch (response)
64      const char *response;
65 {
66   /* Match against one of the response patterns, compiling the pattern
67      first if necessary.  */
68
69   /* We cache the response patterns and compiled regexps here.  */
70   static const char *yesexpr, *noexpr;
71   static regex_t yesre, nore;
72   int result;
73
74   return ((result = try (response, _("^[yY]"), 1, 0,
75                          &yesexpr, &yesre))
76           ? result
77           : try (response, _("^[nN]"), 0, -1, &noexpr, &nore));
78 }