Changeset 403 for trunk/Include/Classes

Timestamp:

Feb 12, 2008, 9:40:59 AM (16 years ago)

Author:

dai

Message:

・MemberInfoクラスを追加。
・KeyNotFoundExceptionクラスを追加。
・TypeInfo.GetMembersメソッドを追加。
・TypeInfoテストケースを追加。

Location:

trunk/Include/Classes

Files:

• ActiveBasic/Core/TypeInfo.ab (modified) (2 diffs)
• System/Collections/Generic/Dictionary.ab (modified) (1 diff)
• System/Collections/Generic/KeyNotFoundException.ab (added)
• System/Reflection/MemberInfo.ab (modified) (1 diff)
• System/TypeInfo.ab (modified) (2 diffs)
• index.ab (modified) (2 diffs)

trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab

@@ -15 +15 @@
     memberTypeFullNames As *String      ' 型名リスト
     memberCounts As Long                ' 個数
+    memberInfosCache As System.Collections.Generic.List<System.Reflection.MemberInfo>
 
 Protected
@@ -108 +109 @@
     ' Public methods
     '----------------------------------------------------------------
+
+    Override Function GetMembers() As System.Collections.Generic.List<System.Reflection.MemberInfo>
+        If Object.ReferenceEquals( memberInfosCache, Nothing ) Then
+            ' キャッシュにないときは生成する
+            memberInfosCache = New System.Collections.Generic.List
+            Dim i As Long
+            For i=0 To ELM(memberCounts)
+                memberInfosCache.Add( New System.Reflection.MemberInfo( memberNames[i], _System_TypeBase_Search( memberTypeFullNames[i] ) ) )
+            Next
+        End If
+
+        Return memberInfosCache
+    End Function
 
 End Class

trunk/Include/Classes/System/Collections/Generic/Dictionary.ab

@@ -58 +58 @@
             Next
         End If
-        debug
-        'KeyNotFoundException
+
+        Throw New KeyNotFoundException
+
         Return Nothing
     End Function

trunk/Include/Classes/System/Reflection/MemberInfo.ab

@@ +1 @@
+Namespace System
+Namespace Reflection
+
+
+Class MemberInfo
+    name As String
+    memberType As TypeInfo
+Public
+    Sub MemberInfo( name As String, memberType As TypeInfo )
+        This.name = name
+        This.memberType = memberType
+    End Sub
+
+    Function Name() As String
+        Return name
+    End Function
+
+    Function MemberType() As TypeInfo
+        Return memberType
+    End Function
+End Class
+
+
+End Namespace
+End Namespace

trunk/Include/Classes/System/TypeInfo.ab

@@ -1 @@
-' 実装中...
-'（※ まだ組み込んでいません）
-
-
 Namespace System
 
@@ -45 +41 @@
     '----------------------------------------------------------------
 
+    Abstract Function GetMembers() As System.Collections.Generic.List<System.Reflection.MemberInfo>
+
 End Class
 

trunk/Include/Classes/index.ab

@@ -27 +27 @@
 #require "./System/Collections/Generic/Dictionary.ab"
 #require "./System/Collections/Generic/List.ab"
+#require "./System/Collections/Generic/KeyNotFoundException.ab"
 /*
 #require "./System/Data/Odbc/Odbc.ab"
@@ -70 +71 @@
 #require "./System/Media/SystemSound.ab"
 #require "./System/Media/SystemSounds.ab"
+#require "./System/Reflection/MemberInfo.ab"
 #require "./System/Runtime/InteropServices/GCHandle.ab"
 #require "./System/Security/AccessControl/misc.ab"