#include "FEATURE/uwin"
#if !_UWIN
void _STUB_err(){}
#else
#pragma prototyped
#include <ast.h>
#include <error.h>
#include <windows.h>
#ifdef __EXPORT__
#define extern __EXPORT__
#endif
static void
errmsg(int level, int code, const char* fmt, va_list ap)
{
if (!error_info.id)
{
struct _astdll* dp = _ast_getdll();
char* s;
char* t;
if (s = dp->_ast__argv[0])
{
if (t = strrchr(s, '/'))
s = t + 1;
error_info.id = s;
}
}
errorv(fmt, level|ERROR_NOID, ap);
if ((level & ERROR_LEVEL) >= ERROR_ERROR)
exit(code);
}
extern void verr(int code, const char* fmt, va_list ap)
{
errmsg(ERROR_ERROR|ERROR_SYSTEM, code, fmt, ap);
}
extern void err(int code, const char* fmt, ...)
{
va_list ap;
va_start(ap, fmt);
errmsg(ERROR_ERROR|ERROR_SYSTEM, code, fmt, ap);
va_end(ap);
}
extern void verrx(int code, const char* fmt, va_list ap)
{
errmsg(ERROR_ERROR, code, fmt, ap);
}
extern void errx(int code, const char* fmt, ...)
{
va_list ap;
va_start(ap, fmt);
errmsg(ERROR_ERROR, code, fmt, ap);
va_end(ap);
}
extern void vwarn(const char* fmt, va_list ap)
{
errmsg(ERROR_WARNING|ERROR_SYSTEM, 0, fmt, ap);
}
extern void warn(const char* fmt, ...)
{
va_list ap;
va_start(ap, fmt);
errmsg(ERROR_WARNING|ERROR_SYSTEM, 0, fmt, ap);
va_end(ap);
}
extern void vwarnx(const char* fmt, va_list ap)
{
errmsg(ERROR_WARNING, 0, fmt, ap);
}
extern void warnx(const char* fmt, ...)
{
va_list ap;
va_start(ap, fmt);
errmsg(ERROR_WARNING, 0, fmt, ap);
va_end(ap);
}
#endif