Context Navigation

Changeset 403

Timestamp:

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

Author:

dai

Message:

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

Location:

trunk

Files:

-              r402
+              r403
     memberTypeFullNames As *String      ' 型名リスト
     memberCounts As Long                ' 個数
+    memberInfosCache As System.Collections.Generic.List<System.Reflection.MemberInfo>
 Protected
 …
     ' 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

-              r393
+              r403
             Next
         End If
+        debug
+        'KeyNotFoundException
+        Throw New KeyNotFoundException
         Return Nothing
     End Function

-              r402
+              r403
+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

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

-              r391
+              r403
 #require "./System/Collections/Generic/Dictionary.ab"
 #require "./System/Collections/Generic/List.ab"
+#require "./System/Collections/Generic/KeyNotFoundException.ab"
 /*
 #require "./System/Data/Odbc/Odbc.ab"
 …
 #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"

Note: See TracChangeset for help on using the changeset viewer.