diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

generate known atoms and functors automatically

Browse Source
This commit is contained in:
Vítor Santos Costa
2008-12-23 01:53:52 +00:00
parent 8efcdf7eaa
commit a8ac9bfb43
34 changed files with 2180 additions and 1003 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
C/computils.c
View File

@@ -349,11 +349,11 @@ write_functor(Functor f)
{
if (IsExtensionFunctor(f)) {
if (f == FunctorDBRef) {
Yap_DebugPlWrite(MkAtomTerm(Yap_LookupAtom("DBRef")));
Yap_DebugPlWrite(MkAtomTerm(AtomDBREF));
} else if (f == FunctorLongInt) {
Yap_DebugPlWrite(MkAtomTerm(Yap_LookupAtom("LongInt")));
Yap_DebugPlWrite(MkAtomTerm(AtomLONGINT));
} else if (f == FunctorDouble) {
Yap_DebugPlWrite(MkAtomTerm(Yap_LookupAtom("Double")));
Yap_DebugPlWrite(MkAtomTerm(AtomDOUBLE));
}
} else {
Yap_DebugPlWrite(MkAtomTerm(NameOfFunctor (f)));
@@ -499,11 +499,11 @@ ShowOp (char *f, struct PSEUDO *cpc)
Functor fun = (Functor)*cptr++;
if (IsExtensionFunctor(fun)) {
if (fun == FunctorDBRef) {
Yap_DebugPlWrite(MkAtomTerm(Yap_LookupAtom("DBRef")));
Yap_DebugPlWrite(MkAtomTerm(AtomDBREF));
} else if (fun == FunctorLongInt) {
Yap_DebugPlWrite(MkAtomTerm(Yap_LookupAtom("LongInt")));
Yap_DebugPlWrite(MkAtomTerm(AtomLONGINT));
} else if (fun == FunctorDouble) {
Yap_DebugPlWrite(MkAtomTerm(Yap_LookupAtom("Double")));
Yap_DebugPlWrite(MkAtomTerm(AtomDOUBLE));
}
} else {
Yap_DebugPlWrite (MkAtomTerm(NameOfFunctor(fun)));