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

Atom Translations and CUDA stub

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-10-04 13:22:00 +01:00
parent 860a5dcd02
commit 43163a190f
17 changed files with 481 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
C/c_interface.c
View File

@@ -567,6 +567,8 @@ X_API size_t YAP_ExportTerm(Term, char *, size_t);
X_API size_t YAP_SizeOfExportedTerm(char *);
X_API Term YAP_ImportTerm(char *);
X_API int YAP_RequiresExtraStack(size_t);
X_API Int YAP_AtomToInt(Atom At);
X_API Atom YAP_IntToAtom(Int i);
static UInt
current_arity(void)
@@ -4140,3 +4142,21 @@ YAP_RequiresExtraStack(size_t sz) {
RECOVER_H();
return TRUE;
}
X_API Int
YAP_AtomToInt(Atom At)
{
TranslationEntry *te = Yap_GetTranslationProp(At);
if (te != NIL) return te->Translation;
SWI_Atoms[AtomTranslations] = At;
Yap_PutAtomTranslation(At, AtomTranslations);
AtomTranslations++;
return AtomTranslations-1;
}
X_API Atom
YAP_IntToAtom(Int i)
{
return SWI_Atoms[i];
}