Changeset 143 for Include/Classes

Timestamp:

Mar 10, 2007, 11:33:10 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

GetHashCodeを実装

File:

• Include/Classes/System/String.ab (modified) (2 diffs)

Include/Classes/System/String.ab

@@ -565 +565 @@
     End Function
 
+    Override Function GetHashCode() As Long
+#ifdef __STRING_IS_NOT_UNICODE
+        Dim size = (m_Length + 1) >> 1
+#else
+        Dim size = m_Length
+#endif
+        Dim hash = 0 As DWord
+        Dim p = Chars As *Word
+        Dim i As Long
+        For i = 0 To ELM(size)
+            hash = ((hash << 16) + p[i]) Mod &h7fffffff
+        Next
+        Return hash As Long
+    End Function
 Private
     ' メモリ確保に失敗すると元の文字列は失われない。（例外安全でいう強い保障）
@@ -604 +618 @@
 
 End Class
-
-Function GetMultiByteStr(ByRef s As String) As PCSTR
-#ifdef __STRING_IS_NOT_UNICODE
-    GetMultiByteStr = s.Chars
-#else
-    Dim sizeA = WideCharToMultiByte(CP_THREAD_ACP, 0, s.Chars, s.Length + 1, 0, 0, 0, 0)
-    GetMultiByteStr = GC_malloc_atomic(SizeOf (SByte) * sizeA)
-    WideCharToMultiByte(CP_THREAD_ACP, 0, s.Chars, s.Length + 1, GetMultiByteStr, sizeA, 0, 0)
-#endif
-End Function
-
-Function GetWideCharStr(ByRef s As String) As PCSTR
-#ifdef __STRING_IS_NOT_UNICODE
-    Dim sizeW = MultiByteToWideChar(CP_THREAD_ACP, 0, s.Chars, s.Length + 1, 0, 0)
-    GetWideCharStr = GC_malloc_atomic(SizeOf (WCHAR) * sizeW)
-    MultiByteToWideChar(CP_THREAD_ACP, 0, s.Chars, s.Length + 1, GetWideCharStr, sizeW)
-#else
-    GetMultiByteStr = s.Chars
-#endif
-End Function
-