293 lines
12 KiB
C
293 lines
12 KiB
C
/*************************************************************************
|
|
* *
|
|
* YAP Prolog %W% %G% *
|
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
|
* *
|
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
|
|
* *
|
|
**************************************************************************
|
|
* *
|
|
* File: YapError.h * mods:
|
|
** comments: error header file for YAP *
|
|
* version: $Id: Yap.h,v 1.38 2008-06-18 10:02:27 vsc Exp $ *
|
|
*************************************************************************/
|
|
|
|
#ifndef YAP_ERROR_H
|
|
#define YAP_ERROR_H 1
|
|
|
|
#define ECLASS(CL, A, B) CL,
|
|
|
|
#define E0(A, B) A,
|
|
#define E(A, B, C) A,
|
|
#define E1(A, B, C) A,
|
|
#define E2(A, B, C, D) A,
|
|
|
|
#define BEGIN_ERRORS() typedef enum {
|
|
|
|
#define END_ERRORS() \
|
|
} \
|
|
yap_error_number
|
|
|
|
#define BEGIN_ERROR_CLASSES() typedef enum {
|
|
|
|
#define END_ERROR_CLASSES() \
|
|
} \
|
|
yap_error_class_number
|
|
|
|
#include "YapErrors.h"
|
|
|
|
#define MAX_ERROR_MSG_SIZE 1024
|
|
|
|
extern void Yap_InitError__(const char *file, const char *function, int lineno,
|
|
yap_error_number e, YAP_Term g, ...);
|
|
|
|
extern struct yami *Yap_Error__(bool thrw, const char *file,
|
|
const char *function, int lineno,
|
|
yap_error_number err, YAP_Term wheret, ...);
|
|
|
|
extern void Yap_ThrowError__(const char *file, const char *function, int lineno,
|
|
yap_error_number err, YAP_Term wheret, ...)
|
|
#ifndef MSC_VER
|
|
__attribute__((noreturn))
|
|
#endif
|
|
;
|
|
|
|
#define Yap_NilError(id, ...) \
|
|
Yap_Error__(false, __FILE__, __FUNCTION__, __LINE__, id, TermNil, __VA_ARGS__)
|
|
|
|
#define Yap_InitError(id, ...) \
|
|
Yap_InitError__(__FILE__, __FUNCTION__, __LINE__, id, TermNil, __VA_ARGS__)
|
|
|
|
#define Yap_Error(id, inp, ...) \
|
|
Yap_Error__(false, __FILE__, __FUNCTION__, __LINE__, id, inp, __VA_ARGS__)
|
|
|
|
#define Yap_ThrowError(id, inp, ...) \
|
|
Yap_ThrowError__(__FILE__, __FUNCTION__, __LINE__, id, inp, __VA_ARGS__)
|
|
|
|
#ifdef YAP_TERM_H
|
|
/**
|
|
* make sure next argument is a bound instance of type
|
|
* atom.
|
|
*/
|
|
#define Yap_ensure_atom(T0, TF) \
|
|
{ if ( (TF = Yap_ensure_atom__(__FILE__, __FUNCTION__, __LINE__, T0 ) == 0L ) return false; \
|
|
}
|
|
|
|
INLINE_ONLY Term Yap_ensure_atom__(const char *fu, const char *fi, int line,
|
|
Term in) {
|
|
Term t = Deref(in);
|
|
// Term Context = Deref(ARG2);
|
|
if (!IsVarTerm(t) && IsAtomTerm(t))
|
|
return t;
|
|
if (IsVarTerm(t)) {
|
|
Yap_Error__(false, fu, fi, line, INSTANTIATION_ERROR, t, NULL);
|
|
} else {
|
|
if (IsAtomTerm(t))
|
|
return t;
|
|
Yap_Error__(false, fu, fi, line, TYPE_ERROR_ATOM, t, NULL);
|
|
return 0L;
|
|
}
|
|
|
|
#endif
|
|
|
|
#define JMP_LOCAL_ERROR(v, LAB) \
|
|
if (H + 2 * (v) > ASP - 1024) { \
|
|
LOCAL_Error_TYPE = RESOURCE_ERROR_STACK; \
|
|
LOCAL_Error_Size = 2 * (v) * sizeof(CELL); \
|
|
goto LAB; \
|
|
}
|
|
|
|
#define LOCAL_ERROR(t, v) \
|
|
if (HR + (v) > ASP - 1024) { \
|
|
LOCAL_Error_TYPE = RESOURCE_ERROR_STACK; \
|
|
LOCAL_Error_Size = 2 * (v) * sizeof(CELL); \
|
|
return NULL; \
|
|
}
|
|
|
|
#define LOCAL_TERM_ERROR(t, v) \
|
|
if (HR + (v) > ASP - 1024) { \
|
|
LOCAL_Error_TYPE = RESOURCE_ERROR_STACK; \
|
|
LOCAL_Error_Size = 2 * (v) * sizeof(CELL); \
|
|
return 0L; \
|
|
}
|
|
|
|
#define AUX_ERROR(t, n, s, TYPE) \
|
|
if (s + (n + 1) > (TYPE *)AuxSp) { \
|
|
pop_text_stack(lvl); \
|
|
LOCAL_Error_TYPE = RESOURCE_ERROR_AUXILIARY_STACK; \
|
|
LOCAL_Error_Size = n * sizeof(TYPE); \
|
|
return NULL; \
|
|
}
|
|
|
|
#define AUX_TERM_ERROR(t, n, s, TYPE) \
|
|
if (s + (n + 1) > (TYPE *)AuxSp) { \
|
|
LOCAL_Error_TYPE = RESOURCE_ERROR_AUXILIARY_STACK; \
|
|
LOCAL_Error_Size = n * sizeof(TYPE); \
|
|
return 0L; \
|
|
}
|
|
|
|
#define JMP_AUX_ERROR(n, s, t, TYPE, LAB) \
|
|
if (s + (n + 1) > (TYPE *)AuxSp) { \
|
|
LOCAL_Error_TYPE = RESOURCE_ERROR_AUXILIARY_STACK; \
|
|
LOCAL_Error_Size = n * sizeof(TYPE); \
|
|
goto LAB; \
|
|
}
|
|
|
|
#define HEAP_ERROR(a, TYPE) \
|
|
if (a == NIL) { \
|
|
LOCAL_Error_TYPE = RESOURCE_ERROR_HEAP; \
|
|
LOCAL_Error_Size = n * sizeof(TYPE); \
|
|
return NULL; \
|
|
}
|
|
|
|
#define HEAP_TERM_ERROR(a, TYPE, n) \
|
|
if (a == NIL) { \
|
|
LOCAL_Error_TYPE = RESOURCE_ERROR_HEAP; \
|
|
LOCAL_Error_Size = n * sizeof(TYPE); \
|
|
return 0L; \
|
|
}
|
|
|
|
#define JMP_HEAP_ERROR(a, n, t, TYPE, LAB) \
|
|
if (a == NIL) { \
|
|
LOCAL_Error_TYPE = RESOURCE_ERROR_HEAP; \
|
|
LOCAL_Error_Size = n * sizeof(TYPE); \
|
|
goto LAB; \
|
|
}
|
|
|
|
/**
|
|
* Error stages since it was initially processed.
|
|
*
|
|
* Notice that some of the stages may be active simultaneouly.
|
|
*/
|
|
typedef enum yap_error_status {
|
|
/// where we like to be
|
|
YAP_NO_ERROR_STATUS = 0x0,
|
|
/// Prolog discovered the problem
|
|
YAP_ERROR_INITIATED_IN_PROLOG = 0x1,
|
|
/// The problem was found before the system can cope
|
|
YAP_ERROR_INITIATED_IN_BOOT = 0x2,
|
|
/// C-helper like must_ found out the problem
|
|
YAP_ERROR_INITIATED_IN_HELPER = 0x4,
|
|
/// C-builtin crashed
|
|
YAP_ERROR_INITIATED_IN_SYSTEM_C = 0x8,
|
|
/// user code crashed
|
|
YAP_ERROR_INITIATED_IN_USER_C = 0x10,
|
|
/// ok, we put a throw to be dispatched
|
|
YAP_THROW_THROWN = 0x20,
|
|
/// someone caught it
|
|
YAP_THROW_CAUGHT = 0x40,
|
|
/// error became an exception (usually SWIG bridge)
|
|
YAP_ERROR_EXPORTED_TO_CXX = 0x80,
|
|
/// handle error in Prolog
|
|
YAP_ERROR_BEING_PROCESSED_IN_PROLOG = 0x100
|
|
/// go back t
|
|
} yap_error_stage_t;
|
|
|
|
/// a Prolog goal that caused a bug
|
|
|
|
typedef struct yap_error_prolog_source {
|
|
intptr_t prologPredCl;
|
|
uintptr_t prologPredLine;
|
|
uintptr_t prologPredFirstLine;
|
|
uintptr_t prologPredLastLine;
|
|
const char *prologPredName;
|
|
uintptr_t prologPredArity;
|
|
const char *prologPredModule;
|
|
const char *prologPredFile;
|
|
void *errorGoal;
|
|
struct error_prolog_source *errorParent;
|
|
} yap_error_prolog_source_t;
|
|
|
|
/// all we need to know about an error/throw
|
|
typedef struct s_yap_error_descriptor {
|
|
/// error identifier
|
|
yap_error_number errorNo;
|
|
/// kind of error: derived from errorNo;
|
|
yap_error_class_number errorClass;
|
|
/// if non-NULL: goal who caused error;
|
|
const char *errorGoal;
|
|
/// errorNo as text
|
|
const char *errorAsText;
|
|
/// errorClass as text
|
|
const char *classAsText;
|
|
/// c-code that generated the error
|
|
/// C-line
|
|
intptr_t errorLine;
|
|
/// C-function
|
|
const char *errorFunction;
|
|
/// C-file
|
|
const char *errorFile;
|
|
// struct error_prolog_source *errorSource;
|
|
/// Prolog predicate that caused the error: name
|
|
const char *prologPredName;
|
|
/// Prolog predicate that caused the error:arity
|
|
uintptr_t prologPredArity;
|
|
/// Prolog predicate that caused the error:module
|
|
const char *prologPredModule;
|
|
/// Prolog predicate that caused the error:line
|
|
const char *prologPredFile;
|
|
/// line where error clause defined
|
|
uintptr_t prologPredLine;
|
|
/// syntax and other parsing errors
|
|
uintptr_t parserPos;
|
|
uintptr_t parserFirstPos;
|
|
uintptr_t parserLastPos;
|
|
uintptr_t parserLine;
|
|
uintptr_t parserFirstLine;
|
|
uintptr_t parserLastLine;
|
|
const char *parserTextA;
|
|
const char *parserTextB;
|
|
const char *parserFile;
|
|
/// reading a clause, or called from read?
|
|
bool parserReadingCode;
|
|
/// whether we are consulting
|
|
bool prologConsulting;
|
|
const char *culprit;
|
|
/// Prolog stack at the time
|
|
const char *prologStack;
|
|
YAP_Term errorRawTerm, rawExtraErrorTerm;
|
|
char *errorMsg;
|
|
size_t errorMsgLen;
|
|
struct s_yap_error_descriptor *top_error;
|
|
} yap_error_descriptor_t;
|
|
|
|
/// compatibility with existing code..
|
|
#define LOCAL_Error_TYPE LOCAL_ActiveError->errorNo
|
|
#define LOCAL_Error_File LOCAL_ActiveError->errorFile
|
|
#define LOCAL_Error_Function LOCAL_ActiveError->errorFunction
|
|
#define LOCAL_Error_Lineno LOCAL_ActiveError->errorLine
|
|
#define LOCAL_Error_Size LOCAL_ActiveError->errorMsgLen
|
|
#define LOCAL_RawTerm LOCAL_ActiveError->errorRawTerm
|
|
#define LOCAL_ErrorMessage LOCAL_ActiveError->errorMsg
|
|
|
|
extern void Yap_CatchError(void);
|
|
extern void Yap_ThrowExistingError(void);
|
|
extern YAP_Term Yap_MkFullError(void);
|
|
extern bool Yap_MkErrorRecord(
|
|
yap_error_descriptor_t * r, const char *file, const char *function,
|
|
int lineno, yap_error_number type, YAP_Term where, const char *msg);
|
|
|
|
extern yap_error_descriptor_t *Yap_pc_add_location(
|
|
yap_error_descriptor_t * t, void *pc0, void *b_ptr0, void *env0);
|
|
extern yap_error_descriptor_t *Yap_env_add_location(
|
|
yap_error_descriptor_t * t, void *cp0, void *b_ptr0, void *env0,
|
|
YAP_Int ignore_first);
|
|
|
|
extern const char *Yap_dump_stack(void);
|
|
|
|
extern yap_error_descriptor_t *Yap_prolog_add_culprit(yap_error_descriptor_t *
|
|
t);
|
|
extern yap_error_class_number Yap_errorClass(yap_error_number e);
|
|
extern const char *Yap_errorName(yap_error_number e);
|
|
extern const char *Yap_errorClassName(yap_error_class_number e);
|
|
|
|
extern bool Yap_pushErrorContext(bool pass,
|
|
yap_error_descriptor_t *new_error);
|
|
extern yap_error_descriptor_t *Yap_popErrorContext(bool oerr, bool pass);
|
|
|
|
#define must_be_variable(t) if (!IsVarTerm(t)) Yap_ThrowError(UNINSTANTIATION_ERROR, v, NULL)
|
|
|
|
#endif
|
|
|
|
|