add SWI's PL_get_string

2010-06-30 17:54:02 +02:00
parent 0f241ae87c
commit 8f8ba6221e
2 changed files with 6 additions and 0 deletions
--- a/library/yap2swi/yap2swi.c
+++ b/library/yap2swi/yap2swi.c
@@ -684,6 +684,11 @@ X_API int PL_get_head(term_t ts, term_t h)
  return 1;
 }

+X_API int PL_get_string(term_t t, char **s, size_t *len)
+{
+  return PL_get_string_chars(t, s, len);
+}
+
 X_API int PL_get_string_chars(term_t t, char **s, size_t *len)
 {
  Term tt = Yap_GetFromSlot(t);