Changeset 142 for Include/system/string.sbp

Timestamp:

Mar 9, 2007, 10:15:34 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Environment, OperatingSystem, Versionの追加、Unicode対応修正ほか

File:

• Include/system/string.sbp (modified) (1 diff)

Include/system/string.sbp

@@ -15 +15 @@
 End Function
 
-Function MakeStr(pBuf As *Char) As String
+Function MakeStr(pBuf As PSTR) As String
     Dim temp As String(pBuf)
     Return temp
 End Function
 
+Function MakeStr(pBuf As PWSTR) As String
+    Dim temp As String(pBuf)
+    Return temp
+End Function
+
+Dim _System_AllocForConvertedString As *Function(size As SIZE_T) As VoidPtr
+_System_AllocForConvertedString = AddressOf (GC_malloc_atomic)
+
+Function GetStr(psz As PSTR, ByRef wcs As PWSTR) As SIZE_T
+    If psz <> 0 Then
+        Return GetStr(psz, lstrlenA(psz), wcs)
+    Else
+        Return 0
+    End If
+End Function
+
+Function GetStr(psz As PSTR, len As SIZE_T, ByRef wcs As PWSTR) As SIZE_T
+    If psz = 0 Then Return 0
+    Dim sizeWCS = MultiByteToWideChar(CP_THREAD_ACP, 0, psz, len, 0, 0)
+    wcs = _System_AllocForConvertedString(SizeOf (WCHAR) * sizeWCS) As PWSTR
+    GetWCStr = MultiByteToWideChar(CP_THREAD_ACP, 0, psz, len, wcs, sizeWCS)
+    wcs[GetWCStr] = 0
+End Function
+
+Function GetStr(psz As PWSTR, ByRef wcs As PWSTR) As SIZE_T
+    wcs = psz
+    If psz <> 0 Then
+        Return lstrlenW(psz)
+    Else
+        Return 0
+    End If
+End Function
+
+Function GetStr(psz As PWSTR, len As SIZE_T, ByRef wcs As PWSTR) As SIZE_T
+    wcs = psz
+    If psz <> 0 Then
+        Return lstrlenW(psz)
+    Else
+        Return 0
+    End If
+End Function
+
+Function GetStr(psz As PWSTR, ByRef mbs As PSTR) As SIZE_T
+    If psz = 0 Then
+        Return 0
+    Else
+        Return GetStr(psz, lstrlenW(psz), mbs)
+    End If
+End Function
+
+Function GetStr(psz As PWSTR, len As SIZE_T, ByRef mbs As PSTR) As SIZE_T
+    If psz = 0 Then Return 0
+    Dim sizeMBS = WideCharToMultiByte(CP_THREAD_ACP, 0, psz, len, 0, 0, 0, 0)
+    mbs = _System_AllocForConvertedString(SizeOf (SByte) * (sizeMBS + 1)) As PSTR
+    GetStr = WideCharToMultiByte(CP_THREAD_ACP, 0, psz, len, mbs, sizeMBS, 0, 0) As SIZE_T
+    mbs[GetStr] = 0
+End Function
+
+Function GetStr(psz As PSTR, ByRef mbs As PSTR) As SIZE_T
+    mbs = psz
+    If psz <> 0 Then
+        Return lstrlenA(psz)
+    Else
+        Return 0
+    End If
+End Function
+
+Function GetStr(psz As PSTR, len As SIZE_T, ByRef mbs As PSTR) As SIZE_T
+    mbs = psz
+    Return len
+End Function
+
+Function GetStr(ByRef s As String, ByRef mbs As PSTR) As SIZE_T
+    Return GetStr(s.Chars, s.Length As SIZE_T, mbs)
+End Function
+
+Function GetStr(ByRef s As String, ByRef wcs As PWSTR) As SIZE_T
+    Return GetStr(s.Chars, s.Length As SIZE_T, wcs)
+End Function
+
+Function GetWCStr(psz As PSTR, ByRef wcs As PWSTR) As SIZE_T
+    Return GetStr(psz, wcs)
+End Function
+
+Function GetWCStr(psz As PSTR, len As SIZE_T, ByRef wcs As PWSTR) As SIZE_T
+    Return GetStr(psz, len, wcs)
+End Function
+
+Function GetWCStr(psz As PWSTR, ByRef wcs As PWSTR) As SIZE_T
+    Return GetStr(psz, wcs)
+End Function
+
+Function GetWCStr(psz As PWSTR, len As SIZE_T, ByRef wcs As PWSTR) As SIZE_T
+    Return GetStr(psz, len, wcs)
+End Function
+
+Function GetWCStr(ByRef s As String, ByRef wcs As PWSTR) As SIZE_T
+    Return GetStr(s.Chars, s.Length, wcs)
+End Function
+
+Function GetMBStr(psz As PWSTR, ByRef mbs As PSTR) As SIZE_T
+    Return GetStr(psz, mbs)
+End Function
+
+Function GetMBStr(psz As PWSTR, len As SIZE_T, ByRef mbs As PSTR) As SIZE_T
+    Return GetStr(psz, len, mbs)
+End Function
+
+Function GetMBStr(psz As PSTR, ByRef mbs As PSTR) As SIZE_T
+    Return GetStr(psz, mbs)
+End Function
+
+Function GetMBStr(psz As PSTR, len As SIZE_T, ByRef mbs As PSTR) As SIZE_T
+    Return GetStr(psz, len, mbs)
+End Function
+
+Function GetMBStr(ByRef s As String, ByRef mbs As PSTR) As SIZE_T
+    Return GetStr(s.Chars, s.Length, mbs)
+End Function
+
+Function GetTCStr(psz As PSTR, ByRef tcs As PCTSTR) As SIZE_T
+    Return GetStr(psz, tcs)
+End Function
+
+Function GetTCStr(psz As PSTR, len As SIZE_T, ByRef tcs As PCTSTR) As SIZE_T
+    Return GetStr(psz, len, tcs)
+End Function
+
+Function GetTCStr(psz As PWSTR, ByRef tcs As PCTSTR) As SIZE_T
+    Return GetStr(psz, tcs)
+End Function
+
+Function GetTCStr(psz As PWSTR, len As SIZE_T, ByRef tcs As PCTSTR) As SIZE_T
+    Return GetStr(psz, len, tcs)
+End Function
+
+Function GetTCStr(ByRef s As String, ByRef wcs As PCTSTR) As SIZE_T
+    Return GetStr(s.Chars, s.Length, tcs)
+End Function
+
+Function GetSCStr(psz As PSTR, ByRef ss As *StrChar) As SIZE_T
+    Return GetStr(psz, ss)
+End Function
+
+Function GetSCStr(psz As PSTR, len As SIZE_T, ByRef ss As *StrChar) As SIZE_T
+    Return GetStr(psz, len, ss)
+End Function
+
+Function GetSCStr(psz As PWSTR, ByRef ss As *StrChar) As SIZE_T
+    Return GetStr(psz, ss)
+End Function
+
+Function GetSCStr(psz As PWSTR, len As SIZE_T, ByRef ss As *StrChar) As SIZE_T
+    Return GetStr(psz, len, ss)
+End Function
+
+Function GetSCStr(ByRef s As String, ByRef wcs As *StrChar) As SIZE_T
+    Return GetStr(s.Chars, s.Length, ss)
+End Function
+
+Function ToWCStr(psz As PSTR) As PWSTR
+    Return GetStr(psz, ToWCStr)
+End Function
+
+Function ToWCStr(psz As PSTR, len As SIZE_T) As PWSTR
+    Return GetStr(psz, len, ToWCStr)
+End Function
+
+Function ToWCStr(psz As PWSTR) As PWSTR
+    Return GetStr(psz, ToWCStr)
+End Function
+
+Function ToWCStr(psz As PWSTR, len As SIZE_T) As PWSTR
+    Return GetStr(psz, len, ToWCStr)
+End Function
+
+Function ToWCStr(ByRef s As String) As PWSTR
+    Return GetStr(s.Chars, s.Length, ToWCStr)
+End Function
+
+Function ToMBStr(psz As PSTR) As PSTR
+    Return GetStr(psz, ToMBStr)
+End Function
+
+Function ToMBStr(psz As PSTR, len As SIZE_T) As PSTR
+    Return GetStr(psz, len, ToMBStr)
+End Function
+
+Function ToMBStr(psz As PWSTR) As PSTR
+    Return GetStr(psz, ToMBStr)
+End Function
+
+Function ToMBStr(psz As PWSTR, len As SIZE_T) As PSTR
+    Return GetStr(psz, len, ToMBStr)
+End Function
+
+Function ToMBStr(ByRef s As String) As PSTR
+    Return GetStr(s.Chars, s.Length, ToMBStr)
+End Function
+
+Function ToTCStr(psz As PSTR) As PCTSTR
+    Return GetStr(psz, ToTCStr)
+End Function
+
+Function ToTCStr(psz As PSTR, len As SIZE_T) As PCTSTR
+    Return GetStr(psz, len, ToTCStr)
+End Function
+
+Function ToTCStr(psz As PWSTR) As PCTSTR
+    Return GetStr(psz, ToTCStr)
+End Function
+
+Function ToTCStr(psz As PWSTR, len As SIZE_T) As PCTSTR
+    Return GetStr(psz, len, ToTCStr)
+End Function
+
+Function ToTCStr(ByRef s As String) As PCTSTR
+    Return GetStr(s.Chars, s.Length, ToTCStr)
+End Function
+
+Function ToSCStr(psz As PSTR) As *StrChar
+    Return GetStr(psz, ToSCStr)
+End Function
+
+Function ToSCStr(psz As PSTR, len As SIZE_T) As *StrChar
+    Return GetStr(psz, len, ToSCStr)
+End Function
+
+Function ToSCStr(psz As PWSTR) As *StrChar
+    Return GetStr(psz, ToSCStr)
+End Function
+
+Function ToSCStr(psz As PWSTR, len As SIZE_T) As *StrChar
+    Return GetStr(psz, len, ToSCStr)
+End Function
+
+Function ToSCStr(ByRef s As String) As *StrChar
+    Return GetStr(s.Chars, s.Length, ToSCStr)
+End Function
+
 #endif '_INC_BASIC_STRING