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

add to API

Browse Source
This commit is contained in:
Vítor Manuel de Morais Santos Costa 2009-12-12 23:21:25 +00:00
parent 946b6aa812
commit b69c0ba2a9
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
library/yap2swi/yap2swi.c
View File

@ -174,6 +174,17 @@ X_API char* PL_atom_chars(atom_t a) /* SAM check type */
return AtomName(SWIAtomToAtom(a));
}
X_API int
PL_chars_to_term(term_t term,const char *s) {
YAP_Term t,error;
if ( (t=YAP_ReadBuffer(s,&error))==0L ) {
Yap_PutInSlot(term, error);
return 0L;
}
Yap_PutInSlot(term,t);
return 1L;
}
/* SWI: term_t PL_copy_term_ref(term_t from)
YAP: NO EQUIVALENT */