Changeset 119 for Include/basic/function.sbp

Timestamp:

Feb 23, 2007, 11:00:24 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Unicode (#50) 前準備
Byte→Char (#51) 型名は殆ど完了、ただし中身までは手を付けていないものが多い

File:

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

Include/basic/function.sbp

@@ -514 +514 @@
     End If
 End Sub
-Function _ecvt(value As Double, count As Long, ByRef dec As Long, ByRef sign As Long) As BytePtr
-    Dim temp As BytePtr
+Function _ecvt(value As Double, count As Long, ByRef dec As Long, ByRef sign As Long) As *Char
+    Dim temp As *Char
     Dim i As Long, i2 As Long
 
@@ -540 +540 @@
     dec=1
     While value<0.999999999999999  'value<1
-        value=value*10
-        dec=dec-1
+        value *= 10
+        dec--
     Wend
     While 9.99999999999999<=value  '10<=value
-        value=value/10
-        dec=dec+1
+        value /= 10
+        dec++
     Wend
 
@@ -555 +555 @@
     _System_ecvt_buffer[i]=0
 
-    i=i-1
+    i--
     If value>=5 Then
         '切り上げ処理
@@ -562 +562 @@
 
     For i=0 To count-1
-        _System_ecvt_buffer[i]=_System_ecvt_buffer[i]+&H30
+        _System_ecvt_buffer[i] += &H30
     Next
     _System_ecvt_buffer[i]=0
@@ -713 +713 @@
 End Function
 
-Function Val(buf As BytePtr) As Double
+Function Val(buf As *Char) As Double
     Dim i As Long, i2 As Long, i3 As Long, i4 As Long
     Dim temporary As String
-    Dim TempPtr As BytePtr
+    Dim TempPtr As *Char
     Dim dbl As Double
     Dim i64data As Int64
@@ -1024 +1024 @@
 End Function
 
+Function _System_IsSurrogatePair(wcHigh As WCHAR, wcLow As WCHAR) As Boolean
+    If &hD800 <= wcHigh And wcHigh < &hDC00 Then
+        If &hDC00 <= wcLow And wcLow < &hE000 Then
+            Return True
+        End If
+    End If
+    Return False
+End Function
 
 #endif '_INC_FUNCTION