build: Fix for newer Auto tools.

[anag] / regexp.c

/* -*-c-*-
 *
 * $Id: regexp.c,v 1.2 2004/04/08 01:36:19 mdw Exp $
 *
 * Matches regular expressions
 *
 * (c) 2002 Mark Wooding
 */

/*----- Licensing notice --------------------------------------------------* 
 *
 * This file is part of Anag: a simple wordgame helper.
 *
 * Anag is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 * 
 * Anag is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with Anag; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/*----- Header files ------------------------------------------------------*/

#ifdef HAVE_CONFIG_H
#  include "config.h"
#endif

#ifndef HAVE_REGCOMP
  extern int dummy;
#else

#include "anag.h"
#include <regex.h>

/*----- Data structures ---------------------------------------------------*/

typedef struct node_regexp {
  node n;
  const char *s;
  regex_t rx;
} node_regexp;

/*----- Main code ---------------------------------------------------------*/

/* --- Node matcher --- */

static int n_regexp(node *nn, const char *p, size_t sz)
{
  node_regexp *n = (node_regexp *)nn;
  int e;

  switch (e = regexec(&n->rx, p, 0, 0, 0)) {
    case 0:
      return 1;
    case REG_NOMATCH:
      return 0;
    default: {
      char buf[256];
      regerror(e, &n->rx, buf, sizeof(buf));
      die("error matching regexp `%s' against `%s': %s",
	  n->s, p, buf);
    } break;
  }
  return (0);
}

/* --- Node creation --- */

node *regexp(const char *const *av)
{
  node_regexp *n = xmalloc(sizeof(*n));
  int e;
  n->n.func = n_regexp;
  if ((e = regcomp(&n->rx, av[0],
		   REG_EXTENDED | REG_ICASE | REG_NOSUB)) != 0) {
    char buf[256];
    regerror(e, &n->rx, buf, sizeof(buf));
    die("bad regular expression `%s': %s", av[0], buf);
  }
  return (&n->n);
}

/*----- That's all, folks -------------------------------------------------*/

#endif