Changeset 203 for Include/basic

Timestamp:

Apr 4, 2007, 6:53:48 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

GCHandleの追加、String.Compareなどの追加、gc.sbpの修正

File:

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

Include/basic/function.sbp

@@ -1169 +1169 @@
 End Function
 
-
 Function _System_StrCmp(s1 As PCSTR, s2 As PCSTR) As Long
     Dim i = 0 As SIZE_T
@@ -1192 +1191 @@
 End Function
 
+Function _System_StrCmpN(s1 As PCSTR, s2 As PCSTR, size As SIZE_T) As Long
+    Dim i = 0 As SIZE_T
+    For i = 0 To ELM(size)
+        _System_StrCmp = s1[i] - s2[i]
+        If _System_StrCmp <> 0 Then
+            Exit Function
+        End If
+    Next
+End Function
+
+Function _System_StrCmpN(s1 As PCWSTR, s2 As PCWSTR, size As SIZE_T) As Long
+    Dim i = 0 As SIZE_T
+    For i = 0 To ELM(size)
+        _System_StrCmp = s1[i] - s2[i]
+        If _System_StrCmp <> 0 Then
+            Exit Function
+        End If
+    Next
+End Function
+
+Function _System_MemChr(s As PCSTR, c As CHAR, size As SIZE_T) As PCSTR
+    Dim i As SIZE_T
+    For i = 0 To ELM(size)
+        If s[i] = c Then
+            Return VarPtr(s[i])
+        End If
+    Next
+    Return 0
+End Function
+
+Function _System_MemChr(s As PCWSTR, c As WCHAR, size As SIZE_T) As PCWSTR
+    Dim i As SIZE_T
+    For i = 0 To ELM(size)
+        If s[i] = c Then
+            Return VarPtr(s[i])
+        End If
+    Next
+    Return 0
+End Function
+
+Function _System_MemPBrk(str As PCSTR, cStr As SIZE_T, Chars As PCSTR, cChars As SIZE_T) As PCSTR
+    Dim i As SIZE_T
+    For i = 0 To ELM(cStr)
+        If _System_MemChr(Chars, str[i], cChars) Then
+            Return VarPtr(str[i])
+        End If
+    Next
+    Return 0
+End Function
+
+Function _System_MemPBrk(str As PCWSTR, cStr As SIZE_T, Chars As PCWSTR, cChars As SIZE_T) As PCWSTR
+    Dim i As SIZE_T
+    For i = 0 To ELM(cStr)
+        If _System_MemChr(Chars, str[i], cChars) Then
+            Return VarPtr(str[i])
+        End If
+    Next
+    Return 0
+End Function
+
 Function _System_GetHashFromWordArray(p As *Word, n As SIZE_T) As Long
     Dim hash = 0 As DWord