[[ Foundation ]] Add unicode string constructor

runrevmark · runrevmark · commit 2a21250cd27f · 2019-11-26T10:23:27.000Z
This patch adds a new string constructor `MCStringCreateUnicodeWithChars`
which creates a string-ref from utf-16 codeunits, but forces it to be
a unicode string (i.e. doesn't check to see if it is native).
diff --git a/libfoundation/include/foundation.h b/libfoundation/include/foundation.h
@@ -2180,6 +2180,10 @@ MC_DLLEXPORT bool MCStringCreateWithBytesAndRelease(byte_t *bytes, uindex_t byte
 MC_DLLEXPORT bool MCStringCreateWithChars(const unichar_t *chars, uindex_t char_count, MCStringRef& r_string);
 MC_DLLEXPORT bool MCStringCreateWithCharsAndRelease(unichar_t *chars, uindex_t char_count, MCStringRef& r_string);
 
+// Create an immutable string from the given unicode char sequence and force it
+// to be unicode.
+MC_DLLEXPORT bool MCStringCreateUnicodeWithChars(const unichar_t *chars, uindex_t char_count, MCStringRef& r_string);
+
 // Create an immutable string from the given NUL terminated unicode char sequence.
 MC_DLLEXPORT bool MCStringCreateWithWString(const unichar_t *wstring, MCStringRef& r_string);
 MC_DLLEXPORT bool MCStringCreateWithWStringAndRelease(unichar_t *wstring, MCStringRef& r_string);
diff --git a/libfoundation/src/foundation-string.cpp b/libfoundation/src/foundation-string.cpp
@@ -557,6 +557,50 @@ bool MCStringCreateWithCharsAndRelease(unichar_t *p_chars, uindex_t p_char_count
     return false;
 }
 
+MC_DLLEXPORT_DEF
+bool MCStringCreateUnicodeWithChars(const unichar_t *p_chars, uindex_t p_char_count, MCStringRef& r_string)
+{
+    if (p_char_count == 0)
+    {
+        if (kMCEmptyString != nil)
+        {
+            r_string = MCValueRetain(kMCEmptyString);
+            return true;
+        }
+    }
+    else
+    {
+        MCAssert(nil != p_chars);
+    }
+    
+    bool t_success;
+    t_success = true;
+    
+    __MCString *self;
+    self = nil;
+    if (t_success)
+        t_success = __MCValueCreate(kMCValueTypeCodeString, self);
+    
+    if (t_success)
+        t_success = MCMemoryNewArray(p_char_count + 1, self -> chars);
+    
+    if (t_success)
+    {
+        MCStrCharsMapFromUnicode(p_chars, p_char_count, self -> chars, self -> char_count);
+        self -> flags |= kMCStringFlagIsNotNative;
+        r_string = self;
+    }
+    else
+    {
+        if (self != nil)
+            MCMemoryDeleteArray(self -> chars);
+        
+        MCMemoryDelete(self);
+    }
+    
+    return t_success;
+}
+
 MC_DLLEXPORT_DEF
 bool MCStringCreateWithWString(const unichar_t *p_wstring, MCStringRef& r_string)
 {
