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

__LD version

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-12-02 23:08:08 +00:00
parent 9ebcae23ea
commit 18b982bd25
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
os/pl-error.c
View File

@ -30,6 +30,8 @@ PL_get_chars_ex(term_t t, char **s, unsigned int flags)
} }
#undef PL_get_atom_ex
int int
PL_get_atom_ex__LD(term_t t, atom_t *a ARG_LD) PL_get_atom_ex__LD(term_t t, atom_t *a ARG_LD)
{ if ( PL_get_atom(t, a) ) { if ( PL_get_atom(t, a) )
@ -38,6 +40,14 @@ PL_get_atom_ex__LD(term_t t, atom_t *a ARG_LD)
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t); return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);
} }
int
PL_get_atom_ex(term_t t, atom_t *a)
{ if ( PL_get_atom(t, a) )
succeed;
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);
}
int int
PL_get_integer_ex(term_t t, int *i) PL_get_integer_ex(term_t t, int *i)