Changeset 126 for Include/basic/function.sbp

Timestamp:

Mar 3, 2007, 5:53:34 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

#68修正完了

File:

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

Include/basic/function.sbp

@@ -1068 +1068 @@
 End Function
 
+Function _System_IsDoubleUnitChar(lead As Char, trail As Char) As Boolean
+#ifdef UNICODE
+    Return _System_IsSurrogatePair(lead, trail)
+#else
+    Return IsDBCSLeadByte(lead) <> FALSE
+#endif
+End Function
+
 Sub _System_FillChar(p As *Char, n As SIZE_T, c As Char)
     Dim i As SIZE_T
@@ -1083 +1091 @@
 End Function
 
-Function _System_ASCII_ToLower(c As Char)
+Function _System_ASCII_ToLower(c As Char) As Char
     If _System_ASCII_IsUpper(c) Then
         Return c Or &h20
@@ -1091 +1099 @@
 End Function
 
-Function _System_ASCII_ToUpper(c As Char)
+Function _System_ASCII_ToUpper(c As Char) As Char
     If _System_ASCII_IsLower(c) Then
         Return c And (Not &h20)