Changeset 475 for trunk/Include/Classes/System/Xml/Serialization/XmlSerializer.ab

Timestamp:

Mar 13, 2008, 9:44:51 AM (17 years ago)

Author:

dai

Message:

・XmlSerializer.Deserializeメソッドを実装（仮実装なため、数値メンバのシリアライズのみに留まっている）。
・XmlNode.LastChildメソッドを追加。
・XmlNode.NextSiblingメソッドを追加。
・XmlNode.PreviouseSiblingメソッドを追加。

File:

• trunk/Include/Classes/System/Xml/Serialization/XmlSerializer.ab (modified) (4 diffs)

trunk/Include/Classes/System/Xml/Serialization/XmlSerializer.ab

@@ -6 +6 @@
 Class XmlSerializer
     m_typeInfo As System.TypeInfo
+
+
+    '----------------------------------------------------------------
+    ' シリアライズ ロジック
+    '----------------------------------------------------------------
 
     Static Sub SerializeForBasicType( typeInfo As TypeInfo, memoryOffset As LONG_PTR, o As Object, doc As XmlDocument, parentNode As XmlNode )
@@ -44 +49 @@
         parentNode.AppendChild( childNode )
         childNode.AppendChild( doc.CreateTextNode( valueStr ) )
-
     End Sub
 
@@ -87 +91 @@
     End Sub
 
-    Function Deserialize( doc As XmlDocument ) As Object
+
+    '----------------------------------------------------------------
+    ' デシリアライズ ロジック
+    '----------------------------------------------------------------
+
+    Static Sub DeserializeForBasicType( typeInfo As TypeInfo, memoryOffset As LONG_PTR, object As Object, xmlNode As XmlNode )
+        If Not xmlNode.ChildNodes.Count = 1 Then
+            Throw
+        End If
+
+        Dim valueStr = xmlNode.ChildNodes[0].Value
+        Dim memberPtr = ObjPtr( object ) + memoryOffset
+
+        If typeInfo.FullName = "Byte" Then
+            SetByte( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "SByte" Then
+            SetByte( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "Word" Then
+            SetWord( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "Integer" Then
+            SetWord( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "DWord" Then
+            SetDWord( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "Long" Then
+            SetDWord( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "QWord" Then
+            SetQWord( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "Int64" Then
+            SetQWord( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "Boolean" Then
+            If valueStr = "True" Then
+                SetByte( memberPtr, 1 )
+            ElseIf valueStr = "False" Then
+                SetByte( memberPtr, 0 )
+            Else
+                Throw
+            End If
+        ElseIf typeInfo.FullName = "Single" Then
+            SetSingle( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "Double" Then
+            SetDouble( memberPtr, Val( valueStr ) )
+        ElseIf typeInfo.FullName = "VoidPtr" Then
+            Set_LONG_PTR( memberPtr, Val( valueStr ) As LONG_PTR )
+        Else
+            Throw
+        End If
+    End Sub
+
+    Function DeserializeForClass( typeInfo As TypeInfo, xmlNode As XmlNode ) As Object
+        If typeInfo.IsClass() and typeInfo.FullName = "System.Object" Then
+            ' Object型にたどり着いた場合
+
+            ' 派生クラスのフルネームを元に特定されたクラスを生成し、デフォルトコンストラクタを呼ぶ
+            Return ActiveBasic.Core._System_TypeForClass._System_New( m_typeInfo As ActiveBasic.Core._System_TypeForClass )
+        End If
+
+        If typeInfo.Name <> xmlNode.LocalName Then
+            Throw
+        End If
+
+        Dim object = Nothing As Object
+        Dim memberInfos = typeInfo.GetMembers()
+
+        If Not ActiveBasic.IsNothing( typeInfo.BaseType ) Then
+            ' 基底クラスが存在するとき
+
+            ' 基底クラスをシリアライズ
+            object = DeserializeForClass( typeInfo.BaseType, xmlNode )
+        End If
+
+        ' メンバをシリアライズ
+        Dim childNode = xmlNode.ChildNodes[0] As XmlNode
+        Foreach memberInfo In memberInfos
+            If ActiveBasic.IsNothing( childNode ) Then
+                Throw
+            End If
+
+            If memberInfo.MemberType.IsPointer() Then
+                Throw
+            ElseIf memberInfo.MemberType.IsClass() Then
+                Dim memberObject = DeserializeForClass( memberInfo.MemberType, childNode )
+                Set_LONG_PTR( ObjPtr( object ) + memberInfo._System_Offset, ObjPtr( memberObject ) As LONG_PTR )
+            ElseIf memberInfo.MemberType.IsValueType() Then
+                DeserializeForBasicType( memberInfo.MemberType, memberInfo._System_Offset, object, childNode )
+            End If
+
+            childNode = childNode.NextSibling
+        Next
+
+        If Not ActiveBasic.IsNothing( childNode ) Then
+            Throw
+        End If
+
+        Return object
     End Function
 
@@ -105 +202 @@
         Dim doc = New XmlDocument
         doc.Load( stream )
-        Deserialize( doc )
+        Return DeserializeForClass( m_typeInfo, doc.ChildNodes[1] )
     End Function