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

improve string support

Browse Source 
fix non-thread compilation.
This commit is contained in:
Vítor Santos Costa
2011-03-11 23:21:23 +00:00
parent d42db0dc5c
commit 0d6be2d858
12 changed files with 92 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
library/dialect/swi/fli/swi.c
View File

@@ -1792,22 +1792,8 @@ X_API int PL_is_number(term_t ts)
X_API int PL_is_string(term_t ts)
{
CACHE_REGS
YAP_Term t = Yap_GetFromSlot(ts PASS_REGS);
while (YAP_IsPairTerm(t)) {
YAP_Term hd = YAP_HeadOfTerm(t);
long int i;
if (!YAP_IsIntTerm(hd))
return 0;
i = YAP_IntOfTerm(hd);
if (i <= 0 || i >= 255)
return 0;
if (!YAP_IsIntTerm(hd))
return 0;
t = YAP_TailOfTerm(t);
}
if (t != TermNil)
return 0;
return FALSE;
Term t = Yap_GetFromSlot(ts PASS_REGS);
return Yap_IsStringTerm(t);
}
X_API int PL_is_variable(term_t ts)