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

PL_get_atom_nchars

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-06-19 14:40:47 +01:00
parent 2d6fc978e4
commit d210d85f09
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
library/yap2swi/yap2swi.c
View File

@ -391,6 +391,18 @@ X_API int PL_get_atom_chars(term_t ts, char **a) /* SAM check type */
return 1;
}
/* SWI: int PL_get_atom_chars(term_t t, char **s)
YAP: char* AtomName(Atom) */
X_API int PL_get_atom_nchars(term_t ts, char **s, size_t *len) /* SAM check type */
{
Term t = Yap_GetFromSlot(ts);
if (!IsAtomTerm(t))
return 0;
*s = RepAtom(AtomOfTerm(t))->StrOfAE;
*len = strlen(*s);
return 1;
}
/*
int PL_get_chars(term_t +t, char **s, unsigned flags) Convert the
argument term t to a 0-terminated C-string. flags is a bitwise