diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
commit | 3950ffe2a485479f6561c27364d3d7df5a21d124 (patch) | |
tree | 468c6e14449d1b1e279222ec32f676b0311917d2 /src/lib/libast/regex/regfatal.c | |
download | ksh-upstream.tar.gz |
Imported Upstream version 93u+upstream
Diffstat (limited to 'src/lib/libast/regex/regfatal.c')
-rw-r--r-- | src/lib/libast/regex/regfatal.c | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/src/lib/libast/regex/regfatal.c b/src/lib/libast/regex/regfatal.c new file mode 100644 index 0000000..09e8689 --- /dev/null +++ b/src/lib/libast/regex/regfatal.c @@ -0,0 +1,49 @@ +/*********************************************************************** +* * +* This software is part of the ast package * +* Copyright (c) 1985-2011 AT&T Intellectual Property * +* and is licensed under the * +* Eclipse Public License, Version 1.0 * +* by AT&T Intellectual Property * +* * +* A copy of the License is available at * +* http://www.eclipse.org/org/documents/epl-v10.html * +* (with md5 checksum b35adb5213ca9657e911e9befb180842) * +* * +* Information and Software Systems Research * +* AT&T Research * +* Florham Park NJ * +* * +* Glenn Fowler <gsf@research.att.com> * +* David Korn <dgk@research.att.com> * +* Phong Vo <kpv@research.att.com> * +* * +***********************************************************************/ +#pragma prototyped + +/* + * posix regex fatal error interface to error() + */ + +#include "reglib.h" + +#include <error.h> + +void +regfatalpat(regex_t* p, int level, int code, const char* pat) +{ + char buf[128]; + + regerror(code, p, buf, sizeof(buf)); + regfree(p); + if (pat) + error(level, "regular expression: %s: %s", pat, buf); + else + error(level, "regular expression: %s", buf); +} + +void +regfatal(regex_t* p, int level, int code) +{ + regfatalpat(p, level, code, NiL); +} |