Merge branch 'master' of ssh://yap.git.sourceforge.net/gitroot/yap/yap-6.3
This commit is contained in:
@@ -993,6 +993,14 @@ int Yap_getInputStream(term_t t, IOSTREAM **s)
|
||||
return getInputStream(t, s);
|
||||
}
|
||||
|
||||
extern int Yap_getOutputStream(term_t t, IOSTREAM **s);
|
||||
|
||||
int Yap_getOutputStream(term_t t, IOSTREAM **s)
|
||||
{
|
||||
GET_LD
|
||||
return getOutputStream(t, s);
|
||||
}
|
||||
|
||||
#ifdef _WIN32
|
||||
|
||||
#include <windows.h>
|
||||
@@ -1157,6 +1165,20 @@ Yap_dowrite(Term t, IOSTREAM *stream, int flags, int priority)
|
||||
return res;
|
||||
}
|
||||
|
||||
int
|
||||
isWideAtom(atom_t atom)
|
||||
{
|
||||
Atom a = (Atom)atomValue(atom);
|
||||
return IsWideAtom(a);
|
||||
}
|
||||
|
||||
wchar_t *
|
||||
nameOfWideAtom(atom_t atom)
|
||||
{
|
||||
Atom a = (Atom)atomValue(atom);
|
||||
return RepAtom(a)->WStrOfAE;
|
||||
}
|
||||
|
||||
|
||||
#if THREADS
|
||||
|
||||
@@ -1207,7 +1229,6 @@ error:
|
||||
return rc;
|
||||
}
|
||||
|
||||
|
||||
int
|
||||
recursiveMutexInit(recursiveMutex *m)
|
||||
{
|
||||
|
||||
Reference in New Issue
Block a user