Changeset 125 for Include/basic/function.sbp

Timestamp:

Mar 2, 2007, 2:57:09 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

#51完了

File:

• Include/basic/function.sbp (modified) (2 diffs)

Include/basic/function.sbp

@@ -694 +694 @@
     Dim temp[255] As Char
 #ifdef _WIN64
-    _sntprintf(temp, Len (temp) / SizeOf (Char), "%I64d", value)
+    _sntprintf(temp, Len (temp) \ SizeOf (Char), "%I64d", value)
 #else
-    _sntprintf(temp, Len (temp) / SizeOf (Char), "%d", value)
+    _sntprintf(temp, Len (temp) \ SizeOf (Char), "%d", value)
 #endif
     Str$ = temp
@@ -1068 +1068 @@
 End Function
 
-Function _System_FillChar(p As *Char, n As SIZE_T, c As Char)
+Sub _System_FillChar(p As *Char, n As SIZE_T, c As Char)
     Dim i As SIZE_T
     For i = 0 To ELM(n)
         p[i] = c
     Next
+End Sub
+
+Function _System_ASCII_IsUpper(c As Char) As Boolean
+    Return c As DWord - &h41 < 26 ' &h41 = Asc("A")
+End Function
+
+Function _System_ASCII_IsLower(c As Char) As Boolean
+    Return c As DWord - &h61 < 26 ' &h61 = Asc("a")
+End Function
+
+Function _System_ASCII_ToLower(c As Char)
+    If _System_ASCII_IsUpper(c) Then
+        Return c Or &h20
+    Else
+        Return c
+    End If
+End Function
+
+Function _System_ASCII_ToUpper(c As Char)
+    If _System_ASCII_IsLower(c) Then
+        Return c And (Not &h20)
+    Else
+        Return c
+    End If
+End Function
+
+Function _System_WideCharToMultiByte(s As PCWSTR) As PSTR
+    Return _System_WideCharToMultiByte(s, lstrlenW(s) + 1, 0)
+End Function
+
+Function _System_WideCharToMultiByte(s As PCWSTR, size As Long) As PSTR
+    Return _System_WideCharToMultiByte(s, size, 0)
+End Function
+
+Function _System_WideCharToMultiByte(ws As PCWSTR, size As Long, flag As DWord) As PSTR
+    Dim sizeMBS = WideCharToMultiByte(CP_THREAD_ACP, flag, s, size, 0, 0, 0, 0)
+    Dim mbs = malloc(sizeMBS) As PSTR
+    WideCharToMultiByte(CP_THREAD_ACP, flag, s, size, mbs, sizeMBS, 0, 0)
+    Return mbs
+End Function
+
+Function _System_MultiByteToWideChar(s As PCSTR) As PWSTR
+    Return _System_MultiByteToWideChar(s, lstrlenA(s) + 1, 0)
+End Function
+
+Function _System_MultiByteToWideChar(s As PCSTR, size As Long) As PWSTR
+    Return _System_MultiByteToWideChar(s, size, 0)
+End Function
+
+Function _System_MultiByteToWideChar(s As PCSTR, size As Long, flag As DWord) As PWSTR
+    Dim sizeMBS = MultiByteToWideChar(CP_THREAD_ACP, flag, s, size, 0, 0)
+    Dim mbs = malloc(SizeOf (WCHAR) * sizeMBS) As PWSTR
+    MultiByteToWideChar(CP_THREAD_ACP, flag, s, size, mbs, sizeMBS)
+    Return mbs
 End Function