Rewrite TszFromSz as TsmFromSz.

I.e. using std::basic_string<TCHAR> instead of TCHAR *. This removes
all unmanaged frees.

1 files changed, 15 insertions, 0 deletions

diff --git a/c/pl.cpp b/c/pl.cpp
index ace83e7..c944547 100644
--- a/c/pl.cpp
+++ b/c/pl.cpp
@@ -1,3 +1,4 @@
+#include <windows.h>
 #include <SWI-Prolog.h>
 
 #include "pl.h"
@@ -33,6 +34,20 @@ int Query::NextSolution()
 	return 0;
 }
 
+int PL_get_tchars(term_t t, TCHAR **lpTsz, int iFlags)
+{
+#ifdef UNICODE
+	size_t sizLen;
+	if (!PL_get_wchars(t, &sizLen, lpTsz, iFlags))
+		return 0;
+	return sizLen;
+#else
+	if (!PL_get_chars(t, lpTsz, iFlags))
+		return 0;
+	return -1;
+#endif
+}
+
 int Plx(const char *szMod, const char *szPred)
 {
 	term_t t = PL_new_term_refs(0);