First patches for 4.3.19:
new Makefiles for documentation; user_{input,output,error} streams are now aliases; restore YapLibDir support $(DESTDIR) fix call_residue/2 git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@8 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
21
C/errors.c
21
C/errors.c
@@ -1155,6 +1155,27 @@ Error (yap_error_number type, Term where, char *format,...)
|
||||
serious = TRUE;
|
||||
}
|
||||
break;
|
||||
case PERMISSION_ERROR_NEW_ALIAS_FOR_STREAM:
|
||||
{
|
||||
int i;
|
||||
Term ti[3];
|
||||
|
||||
#if HAVE_STRNCAT
|
||||
strncat(p, " in ", psize);
|
||||
#else
|
||||
strcat(p, " in ");
|
||||
#endif
|
||||
i = strlen(p);
|
||||
ti[0] = MkAtomTerm(LookupAtom("new"));
|
||||
ti[1] = MkAtomTerm(LookupAtom("alias"));
|
||||
ti[2] = where;
|
||||
nt[0] = MkApplTerm(MkFunctor(LookupAtom("permission_error"),3), 3, ti);
|
||||
tp = p+i;
|
||||
psize -= i;
|
||||
fun = MkFunctor(LookupAtom("error"),2);
|
||||
serious = TRUE;
|
||||
}
|
||||
break;
|
||||
case PERMISSION_ERROR_OPEN_SOURCE_SINK:
|
||||
{
|
||||
int i;
|
||||
|
Reference in New Issue
Block a user