From d210d85f09a13421fc1dbea2126b2eac2dd21f90 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Sat, 19 Jun 2010 14:40:47 +0100 Subject: [PATCH] PL_get_atom_nchars --- library/yap2swi/yap2swi.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/library/yap2swi/yap2swi.c b/library/yap2swi/yap2swi.c index 857a22e2f..796982e14 100755 --- a/library/yap2swi/yap2swi.c +++ b/library/yap2swi/yap2swi.c @@ -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