Adds most of the toolsHEADmaster

1 files changed, 79 insertions, 0 deletions

diff --git a/v_windows/v/old/vlib/builtin/utf8.c.v b/v_windows/v/old/vlib/builtin/utf8.c.v
new file mode 100644
index 0000000..f2ead3a
--- /dev/null
+++ b/v_windows/v/old/vlib/builtin/utf8.c.v
@@ -0,0 +1,79 @@
+module builtin
+
+const (
+	cp_utf8 = 65001
+)
+
+pub fn (_str string) to_wide() &u16 {
+	$if windows {
+		unsafe {
+			num_chars := (C.MultiByteToWideChar(cp_utf8, 0, &char(_str.str), _str.len,
+				0, 0))
+			mut wstr := &u16(malloc_noscan((num_chars + 1) * 2)) // sizeof(wchar_t)
+			if wstr != 0 {
+				C.MultiByteToWideChar(cp_utf8, 0, &char(_str.str), _str.len, wstr, num_chars)
+				C.memset(&byte(wstr) + num_chars * 2, 0, 2)
+			}
+			return wstr
+		}
+	} $else {
+		return 0
+	}
+}
+
+[unsafe]
+pub fn string_from_wide(_wstr &u16) string {
+	$if windows {
+		unsafe {
+			wstr_len := C.wcslen(_wstr)
+			return string_from_wide2(_wstr, wstr_len)
+		}
+	} $else {
+		return ''
+	}
+}
+
+[unsafe]
+pub fn string_from_wide2(_wstr &u16, len int) string {
+	$if windows {
+		unsafe {
+			num_chars := C.WideCharToMultiByte(cp_utf8, 0, _wstr, len, 0, 0, 0, 0)
+			mut str_to := malloc_noscan(num_chars + 1)
+			if str_to != 0 {
+				C.WideCharToMultiByte(cp_utf8, 0, _wstr, len, &char(str_to), num_chars,
+					0, 0)
+				C.memset(str_to + num_chars, 0, 1)
+			}
+			return tos2(str_to)
+		}
+	} $else {
+		return ''
+	}
+}
+
+// Reads an utf8 character from standard input
+pub fn utf8_getchar() int {
+	c := C.getchar()
+	len := utf8_len(byte(~c))
+	if c < 0 {
+		return 0
+	} else if len == 0 {
+		return c
+	} else if len == 1 {
+		return -1
+	} else {
+		mut uc := c & ((1 << (7 - len)) - 1)
+		for i := 0; i + 1 < len; i++ {
+			c2 := C.getchar()
+			if c2 != -1 && (c2 >> 6) == 2 {
+				uc <<= 6
+				uc |= (c2 & 63)
+			} else if c2 == -1 {
+				return 0
+			} else {
+				return -1
+			}
+		}
+		return uc
+	}
+}