Changeset 452 for trunk/Include/Classes/ActiveBasic

Timestamp:

Mar 3, 2008, 10:15:06 PM (17 years ago)

Author:

dai

Message:

System/Xml/Serialization/XmlSerializer.abを追加。
まずはシリアライズ処理を動くようにした。
※逆シリアライズは未実装なので、ActiveBasic.Xml.Parserクラスを実装してから対応すること。

Location:

trunk/Include/Classes/ActiveBasic

Files:

• Core/TypeInfo.ab (modified) (4 diffs)
• Xml (added)
• Xml/Parser.ab (added)

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

@@ -17 +17 @@
     memberNames As *String              ' 名前リスト
     memberTypeFullNames As *String      ' 型名リスト
+    memberOffsets As *LONG_PTR          ' クラスの先頭ポインタからのオフセット値
     memberCounts As Long                ' 個数
     memberInfosCache As System.Collections.Generic.List<System.Reflection.MemberInfo>
@@ -46 +47 @@
         Dim result = New TypeBaseImpl( strNamespace, name, fullName )
         result.SetBaseType( baseType )
-        result.SetMembers( memberNames, memberTypeFullNames, memberCounts )
+        result.SetMembers( memberNames, memberTypeFullNames, memberOffsets, memberCounts )
         result.memberInfosCache = This.memberInfosCache
         result.ptrLevel = This.ptrLevel
@@ -54 +55 @@
 Public
 
-    Sub SetMembers( memberNames As *String, memberTypeFullNames As *String, num As Long )
+    Sub SetMembers( memberNames As *String, memberTypeFullNames As *String, memberOffsets As *LONG_PTR, num As Long )
         This.memberNames = memberNames
         This.memberTypeFullNames = memberTypeFullNames
+        This.memberOffsets = memberOffsets
         This.memberCounts = num
 
@@ -146 +148 @@
             Dim i As Long
             For i=0 To ELM(memberCounts)
-                memberInfosCache.Add( New System.Reflection.MemberInfo( memberNames[i], _System_TypeBase_Search( memberTypeFullNames[i] ) ) )
+                memberInfosCache.Add( New System.Reflection.MemberInfo( memberNames[i], _System_TypeBase_Search( memberTypeFullNames[i] ), memberOffsets[i] ) )
             Next
         End If