From 8f8ba6221e6602b11831e8f76da01b31ce214f95 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Wed, 30 Jun 2010 17:54:02 +0200
Subject: [PATCH] add SWI's PL_get_string

---
 include/SWI-Prolog.h      | 1 +
 library/yap2swi/yap2swi.c | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/include/SWI-Prolog.h b/include/SWI-Prolog.h
index 54e2b7bd0..3abdea25a 100755
--- a/include/SWI-Prolog.h
+++ b/include/SWI-Prolog.h
@@ -502,6 +502,7 @@ extern X_API int PL_thread_at_exit(void (*)(void *), void *, int);
 extern X_API PL_engine_t PL_create_engine(const PL_thread_attr_t *);
 extern X_API int PL_destroy_engine(PL_engine_t);
 extern X_API int PL_set_engine(PL_engine_t,PL_engine_t *);
+extern X_API int PL_get_string(term_t, char **, size_t *);
 extern X_API int PL_get_string_chars(term_t, char **, size_t *);
 extern X_API record_t PL_record(term_t);
 extern X_API int PL_recorded(record_t, term_t);
diff --git a/library/yap2swi/yap2swi.c b/library/yap2swi/yap2swi.c
index e1760c2a4..1b17fe457 100755
--- 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);