1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin * *
3da2e3ebdSchin * This software is part of the ast package *
4*3e14f97fSRoger A. Faulkner * Copyright (c) 1985-2010 AT&T Intellectual Property *
5da2e3ebdSchin * and is licensed under the *
6da2e3ebdSchin * Common Public License, Version 1.0 *
77c2fbfb3SApril Chin * by AT&T Intellectual Property *
8da2e3ebdSchin * *
9da2e3ebdSchin * A copy of the License is available at *
10da2e3ebdSchin * http://www.opensource.org/licenses/cpl1.0.txt *
11da2e3ebdSchin * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
12da2e3ebdSchin * *
13da2e3ebdSchin * Information and Software Systems Research *
14da2e3ebdSchin * AT&T Research *
15da2e3ebdSchin * Florham Park NJ *
16da2e3ebdSchin * *
17da2e3ebdSchin * Glenn Fowler <gsf@research.att.com> *
18da2e3ebdSchin * David Korn <dgk@research.att.com> *
19da2e3ebdSchin * Phong Vo <kpv@research.att.com> *
20da2e3ebdSchin * *
21da2e3ebdSchin ***********************************************************************/
22da2e3ebdSchin #pragma prototyped
23da2e3ebdSchin
24da2e3ebdSchin /*
25da2e3ebdSchin * posix regex fatal error interface to error()
26da2e3ebdSchin */
27da2e3ebdSchin
28da2e3ebdSchin #include "reglib.h"
29da2e3ebdSchin
30da2e3ebdSchin #include <error.h>
31da2e3ebdSchin
32da2e3ebdSchin void
regfatalpat(regex_t * p,int level,int code,const char * pat)33da2e3ebdSchin regfatalpat(regex_t* p, int level, int code, const char* pat)
34da2e3ebdSchin {
35da2e3ebdSchin char buf[128];
36da2e3ebdSchin
37da2e3ebdSchin regerror(code, p, buf, sizeof(buf));
38da2e3ebdSchin regfree(p);
39da2e3ebdSchin if (pat)
40da2e3ebdSchin error(level, "regular expression: %s: %s", pat, buf);
41da2e3ebdSchin else
42da2e3ebdSchin error(level, "regular expression: %s", buf);
43da2e3ebdSchin }
44da2e3ebdSchin
45da2e3ebdSchin void
regfatal(regex_t * p,int level,int code)46da2e3ebdSchin regfatal(regex_t* p, int level, int code)
47da2e3ebdSchin {
48da2e3ebdSchin regfatalpat(p, level, code, NiL);
49da2e3ebdSchin }
50