1888 lines
43 KiB
C
1888 lines
43 KiB
C
/*************************************************************************
|
|
* *
|
|
* Yap Prolog *
|
|
* *
|
|
* Yap Prolog Was Developed At Nccup - Universidade Do Porto *
|
|
* *
|
|
* Copyright L.Damas, V.S.Costa And Universidade Do Porto 1985-1997 *
|
|
* *
|
|
**************************************************************************
|
|
* *
|
|
* File: errors.c *
|
|
* Last Rev: *
|
|
* Mods: *
|
|
* Comments: Yap'S error handlers *
|
|
* *
|
|
*************************************************************************/
|
|
|
|
#include "absmi.h"
|
|
#include "yapio.h"
|
|
#if HAVE_STDARG_H
|
|
#include <stdarg.h>
|
|
#endif
|
|
#include <stdlib.h>
|
|
#if HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif
|
|
#if HAVE_STRING_H
|
|
#include <string.h>
|
|
#endif
|
|
#include "Foreign.h"
|
|
|
|
|
|
#ifdef DEBUG
|
|
STATIC_PROTO (int hidden, (Atom));
|
|
STATIC_PROTO (int legal_env, (CELL *));
|
|
void STD_PROTO (DumpActiveGoals, (void));
|
|
STATIC_PROTO (void detect_bug_location, (yamop *,find_pred_type,char *, int));
|
|
|
|
#define ONHEAP(ptr) (CellPtr(ptr) >= CellPtr(Yap_HeapBase) && CellPtr(ptr) < CellPtr(HeapTop))
|
|
|
|
#define ONLOCAL(ptr) (CellPtr(ptr) > CellPtr(H) && CellPtr(ptr) < CellPtr(Yap_LocalBase))
|
|
|
|
static int
|
|
hidden (Atom at)
|
|
{
|
|
AtomEntry *chain;
|
|
|
|
READ_LOCK(INVISIBLECHAIN.AERWLock);
|
|
chain = RepAtom(INVISIBLECHAIN.Entry);
|
|
while (!EndOfPAEntr (chain) && AbsAtom (chain) != at)
|
|
chain = RepAtom(chain->NextOfAE);
|
|
READ_UNLOCK(INVISIBLECHAIN.AERWLock);
|
|
if (EndOfPAEntr (chain))
|
|
return (FALSE);
|
|
return (TRUE);
|
|
}
|
|
|
|
static int
|
|
legal_env (CELL *ep)
|
|
{
|
|
CELL cp, ps;
|
|
PredEntry *pe;
|
|
if (!ONLOCAL (ep) || Unsigned (ep) & 3)
|
|
return (FALSE);
|
|
cp = ep[E_CP];
|
|
if (!ONHEAP (cp))
|
|
return (FALSE);
|
|
ps = *((CELL *) (Addr (cp) - CellSize));
|
|
pe = (PredEntry *) (ps - sizeof (OPREG) - sizeof (Prop));
|
|
PELOCK(70,pe);
|
|
if (!ONHEAP (pe) || Unsigned (pe) & 3 || pe->KindOfPE & 0xff00) {
|
|
UNLOCK(pe->PELock);
|
|
return (FALSE);
|
|
}
|
|
UNLOCK(pe->PELock);
|
|
return (TRUE);
|
|
}
|
|
|
|
void
|
|
DumpActiveGoals (void)
|
|
{
|
|
/* try to dump active goals */
|
|
CELL *ep = YENV; /* and current environment */
|
|
choiceptr b_ptr = B;
|
|
CELL cp;
|
|
PredEntry *pe;
|
|
int first = 1;
|
|
|
|
if (legal_env (YENV) && YENV < ENV)
|
|
ep = YENV;
|
|
else if (legal_env (ENV))
|
|
ep = ENV;
|
|
while (TRUE)
|
|
{
|
|
if (!ONLOCAL (ep) || (Unsigned (ep) & (sizeof(CELL)-1)))
|
|
break;
|
|
cp = ep[E_CP];
|
|
if (!ONHEAP (cp) || (Unsigned (cp) & (sizeof(CELL)-1)))
|
|
break;
|
|
pe = EnvPreg((yamop *)cp);
|
|
if (!ONHEAP (pe) || Unsigned (pe) & (sizeof(CELL)-1))
|
|
break;
|
|
PELOCK(71,pe);
|
|
if (pe->KindOfPE & 0xff00) {
|
|
UNLOCK(pe->PELock);
|
|
break;
|
|
}
|
|
if (pe->PredFlags & (CompiledPredFlag | DynamicPredFlag))
|
|
{
|
|
Functor f;
|
|
Term mod = TermProlog;
|
|
|
|
UNLOCK(pe->PELock);
|
|
f = pe->FunctorOfPred;
|
|
if (pe->KindOfPE && hidden (NameOfFunctor (f)))
|
|
goto next;
|
|
if (first++ == 1)
|
|
fprintf(stderr,"Active ancestors:\n");
|
|
if (pe->ModuleOfPred) mod = pe->ModuleOfPred;
|
|
Yap_DebugPlWrite (mod);
|
|
Yap_DebugPutc (Yap_c_error_stream,':');
|
|
if (pe->ArityOfPE == 0) {
|
|
Yap_DebugPlWrite (MkAtomTerm ((Atom)f));
|
|
} else {
|
|
Yap_DebugPlWrite (MkAtomTerm (NameOfFunctor (f)));
|
|
Yap_DebugPutc (Yap_c_error_stream,'/');
|
|
Yap_DebugPlWrite (MkIntTerm (ArityOfFunctor (f)));
|
|
}
|
|
Yap_DebugPutc (Yap_c_error_stream,'\n');
|
|
} else {
|
|
UNLOCK(pe->PELock);
|
|
}
|
|
next:
|
|
ep = (CELL *) ep[E_E];
|
|
}
|
|
first = 1;
|
|
fprintf(stderr,"Active Choice-Points:\n");
|
|
while (TRUE)
|
|
{
|
|
PredEntry *pe;
|
|
|
|
if (!ONLOCAL (b_ptr) || b_ptr->cp_b == NULL)
|
|
break;
|
|
pe = Yap_PredForChoicePt(b_ptr);
|
|
PELOCK(72,pe);
|
|
{
|
|
Functor f;
|
|
Term mod = PROLOG_MODULE;
|
|
|
|
f = pe->FunctorOfPred;
|
|
if (pe->ModuleOfPred)
|
|
mod = pe->ModuleOfPred;
|
|
else mod = TermProlog;
|
|
Yap_DebugPlWrite (mod);
|
|
Yap_DebugPutc (Yap_c_error_stream,':');
|
|
if (pe->ArityOfPE == 0) {
|
|
Yap_DebugPlWrite (MkAtomTerm (NameOfFunctor(f)));
|
|
} else {
|
|
Int i = 0, arity = pe->ArityOfPE;
|
|
Term *args = &(b_ptr->cp_a1);
|
|
Yap_DebugPlWrite (MkAtomTerm (NameOfFunctor (f)));
|
|
Yap_DebugPutc (Yap_c_error_stream,'(');
|
|
for (i= 0; i < arity; i++) {
|
|
if (i > 0) Yap_DebugPutc (Yap_c_error_stream,',');
|
|
Yap_DebugPlWrite(args[i]);
|
|
}
|
|
Yap_DebugPutc (Yap_c_error_stream,')');
|
|
}
|
|
Yap_DebugPutc (Yap_c_error_stream,'\n');
|
|
}
|
|
UNLOCK(pe->PELock);
|
|
b_ptr = b_ptr->cp_b;
|
|
}
|
|
}
|
|
#endif /* DEBUG */
|
|
|
|
static void
|
|
detect_bug_location(yamop *yap_pc, find_pred_type where_from, char *tp, int psize)
|
|
{
|
|
Atom pred_name;
|
|
UInt pred_arity;
|
|
Term pred_module;
|
|
Int cl;
|
|
|
|
tp[0] = '\0';
|
|
if ((cl = Yap_PredForCode(yap_pc, where_from, &pred_name, &pred_arity, &pred_module))
|
|
== 0) {
|
|
/* system predicate */
|
|
#if HAVE_SNPRINTF
|
|
snprintf(tp, psize, "%s",
|
|
"meta-call");
|
|
#else
|
|
sprintf(tp, "%s",
|
|
"meta-call");
|
|
#endif
|
|
} else if (pred_module == 0) {
|
|
/* don't give info on system predicates */
|
|
#if HAVE_SNPRINTF
|
|
snprintf(tp, psize, "prolog:%s/%lu",
|
|
RepAtom(pred_name)->StrOfAE, (unsigned long int)pred_arity);
|
|
#else
|
|
sprintf(tp, "in prolog:%s/%lu",
|
|
RepAtom(pred_name)->StrOfAE, (unsigned long int)pred_arity);
|
|
#endif
|
|
} else if (cl < 0) {
|
|
#if HAVE_SNPRINTF
|
|
snprintf(tp, psize, "%s:%s/%lu",
|
|
RepAtom(AtomOfTerm(pred_module))->StrOfAE,
|
|
RepAtom(pred_name)->StrOfAE, (unsigned long int)pred_arity);
|
|
#else
|
|
sprintf(tp, "%s:%s/%lu",
|
|
RepAtom(AtomOfTerm(pred_module))->StrOfAE,
|
|
RepAtom(pred_name)->StrOfAE, (unsigned long int)pred_arity);
|
|
#endif
|
|
} else {
|
|
#if HAVE_SNPRINTF
|
|
snprintf(tp, psize, "%s:%s/%lu at clause %lu ",
|
|
RepAtom(AtomOfTerm(pred_module))->StrOfAE,
|
|
RepAtom(pred_name)->StrOfAE, (unsigned long int)pred_arity, (unsigned long int)cl);
|
|
#else
|
|
sprintf(tp, "%s:%s/%lu at clause %lu",
|
|
RepAtom(AtomOfTerm(pred_module))->StrOfAE,
|
|
RepAtom(pred_name)->StrOfAE, (unsigned long int)pred_arity, (unsigned long int)cl);
|
|
#endif
|
|
}
|
|
}
|
|
|
|
static int
|
|
handled_exception(void)
|
|
{
|
|
yamop *pos = NEXTOP(PredDollarCatch->cs.p_code.TrueCodeOfPred,l);
|
|
int found_handler = FALSE;
|
|
choiceptr gc_b;
|
|
|
|
gc_b = B;
|
|
while (gc_b) {
|
|
yamop *ap = gc_b->cp_ap;
|
|
if (ap == NOCODE) {
|
|
/* C-code: let they deal with that */
|
|
return FALSE;
|
|
} else if (ap == pos) {
|
|
if (found_handler)
|
|
return TRUE; /* we have two handlers */
|
|
found_handler = TRUE;
|
|
}
|
|
gc_b = gc_b->cp_b;
|
|
}
|
|
/* handled by Top c-code? */
|
|
return !found_handler;
|
|
}
|
|
|
|
|
|
static void
|
|
dump_stack(void)
|
|
{
|
|
choiceptr b_ptr = B;
|
|
CELL *env_ptr = ENV;
|
|
char tp[256];
|
|
yamop *ipc = CP;
|
|
int max_count = 200;
|
|
|
|
/* check if handled */
|
|
if (handled_exception())
|
|
return;
|
|
#if DEBUG
|
|
fprintf(stderr,"%% YAP regs: P=%p, CP=%p, ASP=%p, H=%p, TR=%p, HeapTop=%p\n",P,CP,ASP,H,TR,HeapTop);
|
|
fprintf(stderr,"%% YAP mode: %ux\n",(unsigned int)Yap_PrologMode);
|
|
if (Yap_ErrorMessage)
|
|
fprintf(stderr,"%% YAP_ErrorMessage: %s\n",Yap_ErrorMessage);
|
|
#endif
|
|
if (H > ASP || H > LCL0) {
|
|
fprintf(stderr,"%% YAP ERROR: Global Collided against Local (%p--%p)\n",H,ASP);
|
|
} else if (HeapTop > (ADDR)Yap_GlobalBase) {
|
|
fprintf(stderr,"%% YAP ERROR: Code Space Collided against Global (%p--%p)\n", HeapTop, Yap_GlobalBase);
|
|
} else {
|
|
#if !USE_SYSTEM_MALLOC
|
|
fprintf (stderr,"%ldKB of Code Space (%p--%p)\n",(long int)((CELL)HeapTop-(CELL)Yap_HeapBase)/1024,Yap_HeapBase,HeapTop);
|
|
#if USE_DL_MALLOC
|
|
if (Yap_NOfMemoryHoles) {
|
|
UInt i;
|
|
|
|
for (i=0; i < Yap_NOfMemoryHoles; i++)
|
|
fprintf(stderr," Current hole: %p--%p\n",
|
|
Yap_MemoryHoles[i].start,
|
|
Yap_MemoryHoles[i].end);
|
|
}
|
|
#endif
|
|
#endif
|
|
detect_bug_location(P, FIND_PRED_FROM_ANYWHERE, (char *)H, 256);
|
|
fprintf (stderr,"%%\n%% PC: %s\n",(char *)H);
|
|
detect_bug_location(CP, FIND_PRED_FROM_ANYWHERE, (char *)H, 256);
|
|
fprintf (stderr,"%% Continuation: %s\n",(char *)H);
|
|
fprintf (stderr,"%% %luKB of Global Stack (%p--%p)\n",(unsigned long int)(sizeof(CELL)*(H-H0))/1024,H0,H);
|
|
fprintf (stderr,"%% %luKB of Local Stack (%p--%p)\n",(unsigned long int)(sizeof(CELL)*(LCL0-ASP))/1024,ASP,LCL0);
|
|
fprintf (stderr,"%% %luKB of Trail (%p--%p)\n",(unsigned long int)((ADDR)TR-Yap_TrailBase)/1024,Yap_TrailBase,TR);
|
|
fprintf (stderr,"%% Performed %ld garbage collections\n", (unsigned long int)GcCalls);
|
|
#if LOW_LEVEL_TRACER
|
|
{
|
|
extern long long vsc_count;
|
|
|
|
if (vsc_count) {
|
|
fprintf(stderr,"Trace Counter at %lld\n",vsc_count);
|
|
}
|
|
}
|
|
#endif
|
|
fprintf (stderr,"%% All Active Calls and\n");
|
|
fprintf (stderr,"%% Goals With Alternatives Open (Global In Use--Local In Use)\n%%\n");
|
|
while (b_ptr != NULL) {
|
|
while (env_ptr && env_ptr <= (CELL *)b_ptr) {
|
|
detect_bug_location(ipc, FIND_PRED_FROM_ENV, tp, 256);
|
|
if (env_ptr == (CELL *)b_ptr &&
|
|
(choiceptr)env_ptr[E_CB] > b_ptr) {
|
|
b_ptr = b_ptr->cp_b;
|
|
fprintf(stderr,"%% %s\n", tp);
|
|
} else {
|
|
fprintf(stderr,"%% %s\n", tp);
|
|
}
|
|
if (!max_count--) {
|
|
fprintf(stderr,"%% .....\n");
|
|
return;
|
|
}
|
|
ipc = (yamop *)(env_ptr[E_CP]);
|
|
env_ptr = (CELL *)(env_ptr[E_E]);
|
|
}
|
|
if (b_ptr) {
|
|
if (!max_count--) {
|
|
fprintf(stderr,"%% .....\n");
|
|
return;
|
|
}
|
|
if (b_ptr->cp_ap && /* tabling */
|
|
b_ptr->cp_ap->opc != Yap_opcode(_or_else) &&
|
|
b_ptr->cp_ap->opc != Yap_opcode(_or_last) &&
|
|
b_ptr->cp_ap->opc != Yap_opcode(_Nstop)) {
|
|
/* we can safely ignore ; because there is always an upper env */
|
|
detect_bug_location(b_ptr->cp_ap, FIND_PRED_FROM_CP, tp, 256);
|
|
fprintf(stderr,"%% %s (%luKB--%luKB)\n", tp,
|
|
(unsigned long int)((b_ptr->cp_h-H0)*sizeof(CELL)/1024),
|
|
(unsigned long int)((ADDR)LCL0-(ADDR)b_ptr)/1024);
|
|
}
|
|
b_ptr = b_ptr->cp_b;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
static void
|
|
error_exit_yap (int value)
|
|
{
|
|
if (!(Yap_PrologMode & BootMode)) {
|
|
dump_stack();
|
|
#if DEBUG
|
|
#endif
|
|
}
|
|
fprintf(stderr, "\n Exiting ....\n");
|
|
Yap_exit(value);
|
|
}
|
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
void
|
|
Yap_bug_location(yamop *pc)
|
|
{
|
|
detect_bug_location(pc, FIND_PRED_FROM_ANYWHERE, (char *)H, 256);
|
|
fprintf(stderr,"%s\n",(char *)H);
|
|
}
|
|
|
|
#endif
|
|
|
|
/* This needs to be a static because I can't trust the stack (WIN32), and
|
|
I can't trust the Yap stacks (error) */
|
|
#define YAP_BUF_SIZE 512
|
|
|
|
static char tmpbuf[YAP_BUF_SIZE];
|
|
|
|
yamop *
|
|
Yap_Error(yap_error_number type, Term where, char *format,...)
|
|
{
|
|
va_list ap;
|
|
CELL nt[3];
|
|
Functor fun;
|
|
int serious;
|
|
char *tp = tmpbuf;
|
|
int psize = YAP_BUF_SIZE;
|
|
|
|
Yap_Error_TYPE = YAP_NO_ERROR;
|
|
if (where == 0L)
|
|
where = TermNil;
|
|
#if DEBUG_STRICT
|
|
if (Yap_heap_regs && !(Yap_PrologMode & BootMode))
|
|
fprintf(stderr,"***** Processing Error %d (%lx,%x) %s***\n", type, (unsigned long int)ActiveSignals,Yap_PrologMode,format);
|
|
else
|
|
fprintf(stderr,"***** Processing Error %d (%x) %s***\n", type,Yap_PrologMode,format);
|
|
#endif
|
|
if (type == INTERRUPT_ERROR) {
|
|
fprintf(stderr,"%% YAP exiting: cannot handle signal %d\n",
|
|
(int)IntOfTerm(where));
|
|
Yap_exit(1);
|
|
}
|
|
/* disallow recursive error handling */
|
|
if (Yap_PrologMode & InErrorMode) {
|
|
/* error within error */
|
|
va_start (ap, format);
|
|
/* now build the error string */
|
|
if (format != NULL) {
|
|
#if HAVE_VSNPRINTF
|
|
(void) vsnprintf(tmpbuf, YAP_BUF_SIZE, format, ap);
|
|
#else
|
|
(void) vsprintf(tmpbuf, format, ap);
|
|
#endif
|
|
} else {
|
|
tmpbuf[0] = '\0';
|
|
}
|
|
va_end (ap);
|
|
fprintf(stderr,"%% ERROR WITHIN ERROR: %s\n", tmpbuf);
|
|
exit(1);
|
|
}
|
|
/* must do this here */
|
|
if (type == FATAL_ERROR
|
|
|| type == INTERNAL_ERROR
|
|
#if USE_SYSTEM_MALLOC
|
|
|| !Yap_heap_regs
|
|
#else
|
|
|| !Yap_HeapBase
|
|
#endif
|
|
) {
|
|
if (format != NULL) {
|
|
va_start (ap, format);
|
|
/* now build the error string */
|
|
#if HAVE_VSNPRINTF
|
|
(void) vsnprintf(tmpbuf, YAP_BUF_SIZE, format, ap);
|
|
#else
|
|
(void) vsprintf(tmpbuf, format, ap);
|
|
#endif
|
|
va_end (ap);
|
|
} else {
|
|
tmpbuf[0] = '\0';
|
|
}
|
|
if (Yap_PrologMode == UserCCallMode) {
|
|
fprintf(stderr,"%%\n%%\n");
|
|
fprintf(stderr,"%% YAP OOOPS in USER C-CODE: %s.\n",tmpbuf);
|
|
fprintf(stderr,"%%\n%%\n");
|
|
} else {
|
|
fprintf(stderr,"%%\n%%\n");
|
|
fprintf(stderr,"%% YAP OOOPS: %s.\n",tmpbuf);
|
|
fprintf(stderr,"%%\n%%\n");
|
|
}
|
|
error_exit_yap (1);
|
|
}
|
|
if (P == (yamop *)(FAILCODE))
|
|
return P;
|
|
/* PURE_ABORT may not have set where correctly, BootMode may not have the data terms ready */
|
|
if (type == PURE_ABORT || Yap_PrologMode & BootMode) {
|
|
where = TermNil;
|
|
Yap_PrologMode &= ~AbortMode;
|
|
Yap_PrologMode |= InErrorMode;
|
|
/* make sure failure will be seen at next port */
|
|
if (Yap_PrologMode & AsyncIntMode)
|
|
Yap_signal(YAP_FAIL_SIGNAL);
|
|
P = FAILCODE;
|
|
} else {
|
|
if (IsVarTerm(where)) {
|
|
/* we must be careful someone gave us a copy to a local variable */
|
|
Term t = MkVarTerm();
|
|
Yap_unify(t, where);
|
|
where = Deref(where);
|
|
}
|
|
/* Exit Abort Mode, if we were there */
|
|
Yap_PrologMode &= ~AbortMode;
|
|
Yap_PrologMode |= InErrorMode;
|
|
if (!(where = Yap_CopyTerm(where))) {
|
|
where = TermNil;
|
|
}
|
|
}
|
|
va_start (ap, format);
|
|
/* now build the error string */
|
|
if (format != NULL)
|
|
{
|
|
#if HAVE_VSNPRINTF
|
|
(void) vsnprintf(tmpbuf, YAP_BUF_SIZE, format, ap);
|
|
#else
|
|
(void) vsprintf(tmpbuf, format, ap);
|
|
#endif
|
|
}
|
|
else
|
|
tmpbuf[0] = '\0';
|
|
va_end (ap);
|
|
if (Yap_PrologMode & BootMode) {
|
|
/* crash in flames! */
|
|
fprintf(stderr,"%% YAP Fatal Error: %s exiting....\n",tmpbuf);
|
|
error_exit_yap (1);
|
|
}
|
|
#ifdef DEBUGX
|
|
DumpActiveGoals();
|
|
#endif /* DEBUG */
|
|
switch (type) {
|
|
case INTERNAL_ERROR:
|
|
{
|
|
fprintf(stderr,"%% Internal YAP Error: %s exiting....\n",tmpbuf);
|
|
serious = TRUE;
|
|
if (Yap_PrologMode & BootMode) {
|
|
fprintf(stderr,"%% YAP crashed while booting %s\n",tmpbuf);
|
|
} else {
|
|
detect_bug_location(P, FIND_PRED_FROM_ANYWHERE, tmpbuf, YAP_BUF_SIZE);
|
|
fprintf(stderr,"%% Bug found while executing %s\n",tmpbuf);
|
|
}
|
|
error_exit_yap (1);
|
|
}
|
|
case FATAL_ERROR:
|
|
{
|
|
fprintf(stderr,"%% Fatal YAP Error: %s exiting....\n",tmpbuf);
|
|
error_exit_yap (1);
|
|
}
|
|
case INTERRUPT_ERROR:
|
|
{
|
|
error_exit_yap (1);
|
|
}
|
|
case PURE_ABORT:
|
|
fun = FunctorVar;
|
|
serious = TRUE;
|
|
break;
|
|
case CALL_COUNTER_UNDERFLOW:
|
|
/* Do a long jump */
|
|
ReductionsCounterOn = FALSE;
|
|
PredEntriesCounterOn = FALSE;
|
|
RetriesCounterOn = FALSE;
|
|
Yap_JumpToEnv(MkAtomTerm(AtomCallCounter));
|
|
P = (yamop *)FAILCODE;
|
|
Yap_PrologMode &= ~InErrorMode;
|
|
return(P);
|
|
case PRED_ENTRY_COUNTER_UNDERFLOW:
|
|
/* Do a long jump */
|
|
ReductionsCounterOn = FALSE;
|
|
PredEntriesCounterOn = FALSE;
|
|
RetriesCounterOn = FALSE;
|
|
Yap_JumpToEnv(MkAtomTerm(AtomCallAndRetryCounter));
|
|
P = (yamop *)FAILCODE;
|
|
Yap_PrologMode &= ~InErrorMode;
|
|
return(P);
|
|
case RETRY_COUNTER_UNDERFLOW:
|
|
/* Do a long jump */
|
|
ReductionsCounterOn = FALSE;
|
|
PredEntriesCounterOn = FALSE;
|
|
RetriesCounterOn = FALSE;
|
|
Yap_JumpToEnv(MkAtomTerm(AtomRetryCounter));
|
|
P = (yamop *)FAILCODE;
|
|
Yap_PrologMode &= ~InErrorMode;
|
|
return(P);
|
|
case CONSISTENCY_ERROR:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorConsistencyError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_ARRAY_OVERFLOW:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomArrayOverflow);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_ARRAY_TYPE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomArrayType);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_IO_MODE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomIOMode);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_MUTABLE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomMutable);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_NON_EMPTY_LIST:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomNonEmptyList);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_NOT_LESS_THAN_ZERO:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomNotLessThanZero);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_NOT_NL:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomNotNewline);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_NOT_ZERO:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomNotZero);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_OUT_OF_RANGE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomOutOfRange);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_OPERATOR_PRIORITY:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomOperatorPriority);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_OPERATOR_SPECIFIER:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomOperatorSpecifier);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_RADIX:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomRadix);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_SHIFT_COUNT_OVERFLOW:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomShiftCountOverflow);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_SOURCE_SINK:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomSourceSink);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomVStream);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_STREAM_OR_ALIAS:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomStreamOrAlias);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_STREAM_ENCODING:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomEncoding);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_STREAM_POSITION:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomStreamPosition);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_SYNTAX_ERROR_HANDLER:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomSyntaxErrorHandler);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case DOMAIN_ERROR_TIMEOUT_SPEC:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomTimeOutSpec);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorDomainError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EXISTENCE_ERROR_SOURCE_SINK:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomSourceSink);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorExistenceError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EXISTENCE_ERROR_ARRAY:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomArray);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorExistenceError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EXISTENCE_ERROR_KEY:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomKey);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorExistenceError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EXISTENCE_ERROR_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomVStream);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorExistenceError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EXISTENCE_ERROR_VARIABLE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomVariable);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorExistenceError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EVALUATION_ERROR_FLOAT_OVERFLOW:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomFloatOverflow);
|
|
nt[0] = Yap_MkApplTerm(FunctorEvaluationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EVALUATION_ERROR_INT_OVERFLOW:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomIntOverflow);
|
|
nt[0] = Yap_MkApplTerm(FunctorEvaluationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EVALUATION_ERROR_UNDEFINED:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomUndefined);
|
|
nt[0] = Yap_MkApplTerm(FunctorEvaluationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EVALUATION_ERROR_FLOAT_UNDERFLOW:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomFloatUnderflow);
|
|
nt[0] = Yap_MkApplTerm(FunctorEvaluationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EVALUATION_ERROR_UNDERFLOW:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomUnderflow);
|
|
nt[0] = Yap_MkApplTerm(FunctorEvaluationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case EVALUATION_ERROR_ZERO_DIVISOR:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomZeroDivisor);
|
|
nt[0] = Yap_MkApplTerm(FunctorEvaluationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case INSTANTIATION_ERROR:
|
|
{
|
|
int i;
|
|
|
|
i = strlen(tmpbuf);
|
|
nt[0] = MkAtomTerm(AtomInstantiationError);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case OPERATING_SYSTEM_ERROR:
|
|
{
|
|
int i;
|
|
|
|
i = strlen(tmpbuf);
|
|
nt[0] = MkAtomTerm(AtomOperatingSystemError);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case OUT_OF_HEAP_ERROR:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
dump_stack();
|
|
ti[0] = MkAtomTerm(AtomCodeSpace);
|
|
i = strlen(tmpbuf);
|
|
nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case OUT_OF_STACK_ERROR:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
dump_stack();
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomStack);
|
|
nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case OUT_OF_ATTVARS_ERROR:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
dump_stack();
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomAttributes);
|
|
nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case OUT_OF_AUXSPACE_ERROR:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
dump_stack();
|
|
i = strlen(tmpbuf);
|
|
tp = tmpbuf+i;
|
|
ti[0] = MkAtomTerm(AtomUnificationStack);
|
|
nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case OUT_OF_TRAIL_ERROR:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
dump_stack();
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomTrail);
|
|
nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_ACCESS_PRIVATE_PROCEDURE:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomAccess);
|
|
ti[1] = MkAtomTerm(AtomPrivateProcedure);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_CREATE_ARRAY:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomCreate);
|
|
ti[1] = MkAtomTerm(AtomArray);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_CREATE_OPERATOR:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomCreate);
|
|
ti[1] = MkAtomTerm(AtomOperator);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_INPUT_BINARY_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomInput);
|
|
ti[1] = MkAtomTerm(AtomBinaryStream);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_INPUT_PAST_END_OF_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomInput);
|
|
ti[1] = MkAtomTerm(AtomPastEndOfStream);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_INPUT_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomInput);
|
|
ti[1] = MkAtomTerm(AtomVStream);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_INPUT_TEXT_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomInput);
|
|
ti[1] = MkAtomTerm(AtomTextStream);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_MODIFY_STATIC_PROCEDURE:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomModify);
|
|
ti[1] = MkAtomTerm(AtomStaticProcedure);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_NEW_ALIAS_FOR_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomNew);
|
|
ti[1] = MkAtomTerm(AtomAlias);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_OPEN_SOURCE_SINK:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomOpen);
|
|
ti[1] = MkAtomTerm(AtomSourceSink);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_OUTPUT_BINARY_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomOutput);
|
|
ti[1] = MkAtomTerm(AtomBinaryStream);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_OUTPUT_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomOutput);
|
|
ti[1] = MkAtomTerm(AtomVStream);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_OUTPUT_TEXT_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomOutput);
|
|
ti[1] = MkAtomTerm(AtomTextStream);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_REPOSITION_STREAM:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomReposition);
|
|
ti[1] = MkAtomTerm(AtomVStream);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case PERMISSION_ERROR_RESIZE_ARRAY:
|
|
{
|
|
int i;
|
|
Term ti[3];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomResize);
|
|
ti[1] = MkAtomTerm(AtomArray);
|
|
ti[2] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorPermissionError, 3, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case REPRESENTATION_ERROR_CHARACTER:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomCharacter);
|
|
nt[0] = Yap_MkApplTerm(FunctorRepresentationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case REPRESENTATION_ERROR_CHARACTER_CODE:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomCharacterCode);
|
|
nt[0] = Yap_MkApplTerm(FunctorRepresentationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case REPRESENTATION_ERROR_MAX_ARITY:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomMaxArity);
|
|
nt[0] = Yap_MkApplTerm(FunctorRepresentationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case REPRESENTATION_ERROR_VARIABLE:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomVariable);
|
|
nt[0] = Yap_MkApplTerm(FunctorRepresentationError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case RESOURCE_ERROR_MAX_STREAMS:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomStreams);
|
|
nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case RESOURCE_ERROR_STACK:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomStack);
|
|
nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case RESOURCE_ERROR_HUGE_INT:
|
|
{
|
|
int i;
|
|
Term ti[1];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomHugeInt);
|
|
nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case SYNTAX_ERROR:
|
|
{
|
|
int i;
|
|
|
|
Term ti[1];
|
|
i = strlen(tmpbuf);
|
|
ti[0] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorShortSyntaxError, 1, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case SYSTEM_ERROR:
|
|
{
|
|
int i;
|
|
|
|
i = strlen(tmpbuf);
|
|
nt[0] = MkAtomTerm(AtomSystemError);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case INTERNAL_COMPILER_ERROR:
|
|
{
|
|
int i;
|
|
|
|
i = strlen(tmpbuf);
|
|
nt[0] = MkAtomTerm(AtomInternalCompilerError);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_ARRAY:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomArray);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_ATOM:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomAtom);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_ATOMIC:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomAtomic);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_BYTE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomByte);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_CALLABLE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomCallable);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_CHAR:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomChar);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_CHARACTER:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomCharacter);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_COMPOUND:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomCompound);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_DBREF:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomDBReference);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_DBTERM:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomDBTerm);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_EVALUABLE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomEvaluable);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_FLOAT:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomFloat);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_INTEGER:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomInteger);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_KEY:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomKey);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_LIST:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomList);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_NUMBER:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomNumber);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_PREDICATE_INDICATOR:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomPredicateIndicator);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_PTR:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomPointer);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_UBYTE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomUnsignedByte);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_UCHAR:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomUnsignedChar);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
case TYPE_ERROR_VARIABLE:
|
|
{
|
|
int i;
|
|
Term ti[2];
|
|
|
|
i = strlen(tmpbuf);
|
|
ti[0] = MkAtomTerm(AtomVariable);
|
|
ti[1] = where;
|
|
nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
break;
|
|
default:
|
|
{
|
|
int i;
|
|
|
|
i = strlen(tmpbuf);
|
|
nt[0] = MkAtomTerm(AtomSystemError);
|
|
tp = tmpbuf+i;
|
|
psize -= i;
|
|
fun = FunctorError;
|
|
serious = TRUE;
|
|
}
|
|
}
|
|
if (type != PURE_ABORT) {
|
|
/* This is used by some complex procedures to detect there was an error */
|
|
if (IsAtomTerm(nt[0])) {
|
|
Yap_ErrorMessage = RepAtom(AtomOfTerm(nt[0]))->StrOfAE;
|
|
} else {
|
|
Yap_ErrorMessage = RepAtom(NameOfFunctor(FunctorOfTerm(nt[0])))->StrOfAE;
|
|
}
|
|
}
|
|
switch (type) {
|
|
case OUT_OF_HEAP_ERROR:
|
|
case OUT_OF_STACK_ERROR:
|
|
case OUT_OF_TRAIL_ERROR:
|
|
nt[1] = MkAtomTerm(Yap_LookupAtom(tmpbuf));
|
|
break;
|
|
default:
|
|
{
|
|
Term stack_dump;
|
|
|
|
if ((stack_dump = Yap_all_calls()) == 0L) {
|
|
stack_dump = TermNil;
|
|
Yap_Error_Size = 0L;
|
|
}
|
|
nt[1] = MkPairTerm(MkAtomTerm(Yap_LookupAtom(tmpbuf)), stack_dump);
|
|
}
|
|
}
|
|
if (serious) {
|
|
/* disable active signals at this point */
|
|
ActiveSignals = 0;
|
|
CreepFlag = CalculateStackGap();
|
|
Yap_PrologMode &= ~InErrorMode;
|
|
LOCK(SignalLock);
|
|
/* we might be in the middle of a critical region */
|
|
if (Yap_InterruptsDisabled) {
|
|
Yap_InterruptsDisabled = 0;
|
|
UncaughtThrow = TRUE;
|
|
UNLOCK(SignalLock);
|
|
#if PUSH_REGS
|
|
restore_absmi_regs(&Yap_standard_regs);
|
|
#endif
|
|
siglongjmp(Yap_RestartEnv,1);
|
|
}
|
|
UNLOCK(SignalLock);
|
|
/* wait if we we are in user code,
|
|
it's up to her to decide */
|
|
|
|
if (Yap_PrologMode & UserCCallMode) {
|
|
if (!(EX = Yap_StoreTermInDB(Yap_MkApplTerm(fun, 2, nt), 0))) {
|
|
/* fat chance */
|
|
siglongjmp(Yap_RestartEnv,1);
|
|
}
|
|
} else {
|
|
if (type == PURE_ABORT) {
|
|
Yap_JumpToEnv(MkAtomTerm(AtomDAbort));
|
|
} else
|
|
Yap_JumpToEnv(Yap_MkApplTerm(fun, 2, nt));
|
|
P = (yamop *)FAILCODE;
|
|
}
|
|
} else {
|
|
Yap_PrologMode &= ~InErrorMode;
|
|
}
|
|
return P;
|
|
}
|
|
|