40 lines
939 B
C
40 lines
939 B
C
/*
|
|
* $Id: error.c,v 1.3 2006-10-22 13:10:45 bacon Exp $
|
|
*/
|
|
|
|
#include <sse/lsp/lsp.h>
|
|
#include <sse/bas/string.h>
|
|
|
|
static const sse_char_t* __errstr[] =
|
|
{
|
|
SSE_TEXT("no error"),
|
|
SSE_TEXT("abort"),
|
|
SSE_TEXT("end"),
|
|
SSE_TEXT("memory"),
|
|
SSE_TEXT("input not attached"),
|
|
SSE_TEXT("input"),
|
|
SSE_TEXT("output not attached"),
|
|
SSE_TEXT("output"),
|
|
SSE_TEXT("syntax"),
|
|
SSE_TEXT("bad arguments"),
|
|
SSE_TEXT("wrong arguments"),
|
|
SSE_TEXT("too few arguments"),
|
|
SSE_TEXT("too many arguments"),
|
|
SSE_TEXT("undefined function"),
|
|
SSE_TEXT("bad function"),
|
|
SSE_TEXT("duplicate formal"),
|
|
SSE_TEXT("bad symbol"),
|
|
SSE_TEXT("undefined symbol"),
|
|
SSE_TEXT("empty body"),
|
|
SSE_TEXT("bad value"),
|
|
SSE_TEXT("divide by zero")
|
|
};
|
|
|
|
int sse_lsp_error (sse_lsp_t* lsp, sse_char_t* buf, sse_size_t size)
|
|
{
|
|
if (buf == SSE_NULL || size == 0) return lsp->errnum;
|
|
sse_strxcpy (buf, size, __errstr[lsp->errnum]);
|
|
return lsp->errnum;
|
|
}
|
|
|