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

fix get_atom_nchars (obs from Roberto Bagnara)

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-07-05 16:00:12 +01:00
parent 1b16a3d909
commit 9413872467
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/SWI-Prolog.h
View File

@ -372,7 +372,7 @@ extern X_API int PL_get_arg(int, term_t, term_t);
extern X_API int _PL_get_arg(int, term_t, term_t); extern X_API int _PL_get_arg(int, term_t, term_t);
extern X_API int PL_get_atom(term_t, atom_t *); extern X_API int PL_get_atom(term_t, atom_t *);
extern X_API int PL_get_atom_chars(term_t, char **); extern X_API int PL_get_atom_chars(term_t, char **);
extern X_API int PL_get_atom_nchars(term_t, char **, size_t *); extern X_API int PL_get_atom_nchars(term_t, size_t *, char **);
extern X_API int PL_get_bool(term_t, int *); extern X_API int PL_get_bool(term_t, int *);
extern X_API int PL_get_chars(term_t, char **, unsigned); extern X_API int PL_get_chars(term_t, char **, unsigned);
extern X_API int PL_get_nchars(term_t, size_t *, char **, unsigned); extern X_API int PL_get_nchars(term_t, size_t *, char **, unsigned);

2
library/yap2swi/yap2swi.c
View File

@ -393,7 +393,7 @@ X_API int PL_get_atom_chars(term_t ts, char **a) /* SAM check type */
/* SWI: int PL_get_atom_chars(term_t t, char **s) /* SWI: int PL_get_atom_chars(term_t t, char **s)
YAP: char* AtomName(Atom) */ YAP: char* AtomName(Atom) */
X_API int PL_get_atom_nchars(term_t ts, char **s, size_t *len) /* SAM check type */ X_API int PL_get_atom_nchars(term_t ts, size_t *len, char **s) /* SAM check type */
{ {
Term t = Yap_GetFromSlot(ts); Term t = Yap_GetFromSlot(ts);
if (!IsAtomTerm(t)) if (!IsAtomTerm(t))