From a1327077466b5e8a6158826b3a0432d1755f3e9e Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Sat, 21 Nov 2009 22:21:17 +0000 Subject: [PATCH] undo PL_error updates --- include/SWI-Prolog.h | 41 --------------------------------------- library/yap2swi/yap2swi.c | 41 +++++++++++++++++++++++++++++++++++++++ 2 files changed, 41 insertions(+), 41 deletions(-) diff --git a/include/SWI-Prolog.h b/include/SWI-Prolog.h index dd418c4e2..0a1b3c8af 100755 --- a/include/SWI-Prolog.h +++ b/include/SWI-Prolog.h @@ -280,47 +280,6 @@ typedef struct foreign_context *control_t; /* end from pl-itf.h */ -/* Required by PL_error */ -#define ERR_NO_ERROR 0 -#define ERR_INSTANTIATION 1 /* void */ -#define ERR_TYPE 2 /* atom_t expected, term_t value */ -#define ERR_DOMAIN 3 /* atom_t domain, term_t value */ -#define ERR_REPRESENTATION 4 /* atom_t what */ -#define ERR_MODIFY_STATIC_PROC 5 /* predicate_t proc */ -#define ERR_EVALUATION 6 /* atom_t what */ -#define ERR_AR_TYPE 7 /* atom_t expected, Number value */ -#define ERR_NOT_EVALUABLE 8 /* functor_t func */ -#define ERR_DIV_BY_ZERO 9 /* void */ -#define ERR_FAILED 10 /* predicate_t proc */ -#define ERR_FILE_OPERATION 11 /* atom_t action, atom_t type, term_t */ -#define ERR_PERMISSION 12 /* atom_t type, atom_t op, term_t obj*/ -#define ERR_NOT_IMPLEMENTED 13 /* const char *what */ -#define ERR_EXISTENCE 14 /* atom_t type, term_t obj */ -#define ERR_STREAM_OP 15 /* atom_t action, term_t obj */ -#define ERR_RESOURCE 16 /* atom_t resource */ -#define ERR_NOMEM 17 /* void */ -#define ERR_SYSCALL 18 /* void */ -#define ERR_SHELL_FAILED 19 /* term_t command */ -#define ERR_SHELL_SIGNALLED 20 /* term_t command, int signal */ -#define ERR_AR_UNDEF 21 /* void */ -#define ERR_AR_OVERFLOW 22 /* void */ -#define ERR_AR_UNDERFLOW 23 /* void */ -#define ERR_UNDEFINED_PROC 24 /* Definition def */ -#define ERR_SIGNALLED 25 /* int sig, char *name */ -#define ERR_CLOSED_STREAM 26 /* IOSTREAM * */ -#define ERR_BUSY 27 /* mutexes */ -#define ERR_PERMISSION_PROC 28 /* op, type, Definition */ -#define ERR_DDE_OP 29 /* op, error */ -#define ERR_SYNTAX 30 /* what */ -#define ERR_SHARED_OBJECT_OP 31 /* op, error */ -#define ERR_TIMEOUT 32 /* op, object */ -#define ERR_NOT_IMPLEMENTED_PROC 33 /* name, arity */ -#define ERR_FORMAT 34 /* message */ -#define ERR_FORMAT_ARG 35 /* seq, term */ -#define ERR_OCCURS_CHECK 36 /* Word, Word */ -#define ERR_CHARS_TYPE 37 /* char *, term */ -#define ERR_MUST_BE_VAR 38 /* int argn, term_t term */ - /******************************* * CALL-BACK * *******************************/ diff --git a/library/yap2swi/yap2swi.c b/library/yap2swi/yap2swi.c index b8917bfae..367db2429 100644 --- a/library/yap2swi/yap2swi.c +++ b/library/yap2swi/yap2swi.c @@ -46,6 +46,47 @@ #define TMP_BUF_SIZE 2*BUF_SIZE #define BUF_RINGS 16 +/* Required by PL_error */ +#define ERR_NO_ERROR 0 +#define ERR_INSTANTIATION 1 /* void */ +#define ERR_TYPE 2 /* atom_t expected, term_t value */ +#define ERR_DOMAIN 3 /* atom_t domain, term_t value */ +#define ERR_REPRESENTATION 4 /* atom_t what */ +#define ERR_MODIFY_STATIC_PROC 5 /* predicate_t proc */ +#define ERR_EVALUATION 6 /* atom_t what */ +#define ERR_AR_TYPE 7 /* atom_t expected, Number value */ +#define ERR_NOT_EVALUABLE 8 /* functor_t func */ +#define ERR_DIV_BY_ZERO 9 /* void */ +#define ERR_FAILED 10 /* predicate_t proc */ +#define ERR_FILE_OPERATION 11 /* atom_t action, atom_t type, term_t */ +#define ERR_PERMISSION 12 /* atom_t type, atom_t op, term_t obj*/ +#define ERR_NOT_IMPLEMENTED 13 /* const char *what */ +#define ERR_EXISTENCE 14 /* atom_t type, term_t obj */ +#define ERR_STREAM_OP 15 /* atom_t action, term_t obj */ +#define ERR_RESOURCE 16 /* atom_t resource */ +#define ERR_NOMEM 17 /* void */ +#define ERR_SYSCALL 18 /* void */ +#define ERR_SHELL_FAILED 19 /* term_t command */ +#define ERR_SHELL_SIGNALLED 20 /* term_t command, int signal */ +#define ERR_AR_UNDEF 21 /* void */ +#define ERR_AR_OVERFLOW 22 /* void */ +#define ERR_AR_UNDERFLOW 23 /* void */ +#define ERR_UNDEFINED_PROC 24 /* Definition def */ +#define ERR_SIGNALLED 25 /* int sig, char *name */ +#define ERR_CLOSED_STREAM 26 /* IOSTREAM * */ +#define ERR_BUSY 27 /* mutexes */ +#define ERR_PERMISSION_PROC 28 /* op, type, Definition */ +#define ERR_DDE_OP 29 /* op, error */ +#define ERR_SYNTAX 30 /* what */ +#define ERR_SHARED_OBJECT_OP 31 /* op, error */ +#define ERR_TIMEOUT 32 /* op, object */ +#define ERR_NOT_IMPLEMENTED_PROC 33 /* name, arity */ +#define ERR_FORMAT 34 /* message */ +#define ERR_FORMAT_ARG 35 /* seq, term */ +#define ERR_OCCURS_CHECK 36 /* Word, Word */ +#define ERR_CHARS_TYPE 37 /* char *, term */ +#define ERR_MUST_BE_VAR 38 /* int argn, term_t term */ + static inline atom_t AtomToSWIAtom(Atom at) {