get-name

[guile-irrlicht.git] / src / wchar.cpp

diff --git a/src/wchar.cpp b/src/wchar.cpp
index 872c87a254bdc303192fef376217a8c829c92b80..a41a00313569681ab7de4d97dff80519aa881c05 100644 (file)
--- a/src/wchar.cpp
+++ b/src/wchar.cpp
@@ -23,7 +23,16 @@
 #include <wchar.h>
 #include "wchar.h"
 
-wchar_t*
+SCM
+scm_from_wide_char_string (const wchar_t* wtext)
+{
+  size_t nbytes = wcslen (wtext) + 1;
+  char* ctext = (char*)malloc (nbytes);
+  wcstombs (ctext, wtext, nbytes);
+  return scm_from_utf8_string (ctext);
+}
+
+const wchar_t*
 scm_to_wide_char_string (SCM text)
 {
   char* ctext = scm_to_utf8_stringn (text, NULL);