libfoundation: Add MCStringCreateWithBSTR()

peter-b · peter-b · commit be87e38d2e19 · 2017-04-19T15:30:33.000+01:00
`BSTR` is a string type used by COM, Automation and Interop functions
in the Windows API.
diff --git a/libfoundation/include/foundation.h b/libfoundation/include/foundation.h
@@ -2145,6 +2145,11 @@ MC_DLLEXPORT bool MCStringCreateWithPascalString(const unsigned char* pascal_str
 MC_DLLEXPORT bool MCStringCreateWithSysString(const char *sys_string, MCStringRef &r_string);
 #endif
 
+#if defined(__WINDOWS__)
+// Create a string from a Windows BSTR
+MC_DLLEXPORT bool MCStringCreateWithBSTR(const BSTR p_bstr, MCStringRef& r_string);
+#endif
+
 // Creates a string from existing strings. The first variant exists to provide
 // an optimised implementation in the (very common) case of only two strings.
 MC_DLLEXPORT bool MCStringCreateWithStrings(MCStringRef& r_string, MCStringRef p_one, MCStringRef p_two);
diff --git a/libfoundation/src/foundation-string.cpp b/libfoundation/src/foundation-string.cpp
@@ -6820,6 +6820,23 @@ __MCStringCreateWithStrings(MCStringRef& r_string, bool p_has_separator, unichar
     return t_success;
 }
 
+////////////////////////////////////////////////////////////////////////
+
+#if defined(__WINDOWS__)
+
+MC_DLLEXPORT_DEF bool
+MCStringCreateWithBSTR(const BSTR p_bstr,
+                       MCStringRef& r_string)
+{
+    return MCStringCreateWithChars(p_bstr,
+                                   SysStringLen(p_bstr),
+                                   r_string);
+}
+
+#endif /*__WINDOWS__*/
+
+////////////////////////////////////////////////////////////////////////
+
 MC_DLLEXPORT_DEF
 bool
 MCStringCreateWithStrings(MCStringRef& r_string, MCStringRef p_one, MCStringRef p_two)
