Imported from /srv/lorry/lorry-area/swig-tarball/swig-1.3.40.tar.gz.HEADswig-1.3.40master

1 files changed, 36 insertions, 0 deletions

diff --git a/Examples/ocaml/std_string/example.h b/Examples/ocaml/std_string/example.h
new file mode 100644
index 0000000..60de984
--- /dev/null
+++ b/Examples/ocaml/std_string/example.h
@@ -0,0 +1,36 @@
+/* File : example.h -- stolen from the guile std_vector example */
+
+#include <string>
+#include <algorithm>
+#include <functional>
+#include <numeric>
+#include <stdlib.h>
+#include <locale.h>
+
+std::string from_wstring_with_locale( const std::wstring source,
+				      const std::string locale ) {
+    const char *current_locale = setlocale( LC_CTYPE, locale.c_str() );
+    int required_chars = wcstombs( NULL, source.c_str(), 0 );
+    std::string s;
+    char *temp_chars = new char[required_chars + 1];
+    temp_chars[0] = 0;
+    wcstombs( temp_chars, source.c_str(), required_chars + 1 );
+    s = temp_chars;
+    delete [] temp_chars;
+    setlocale( LC_CTYPE, current_locale );
+    return s;
+}
+
+std::wstring to_wstring_with_locale( const std::string source,
+				     const std::string locale ) {
+    const char *current_locale = setlocale( LC_CTYPE, locale.c_str() );
+    int required_chars = mbstowcs( NULL, source.c_str(), 0 );
+    std::wstring s;
+    wchar_t *temp_chars = new wchar_t[required_chars + 1];
+    temp_chars[0] = 0;
+    mbstowcs( temp_chars, source.c_str(), required_chars + 1 );
+    s = temp_chars;
+    delete [] temp_chars;
+    setlocale( LC_CTYPE, current_locale );
+    return s;
+}