Changeset 475 for trunk/Include/Classes/System/Xml

Timestamp:

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

Author:

dai

Message:

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

Location:

trunk/Include/Classes/System/Xml

Files:

• Serialization/XmlSerializer.ab (modified) (4 diffs)
• XmlNode.ab (modified) (8 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
 

trunk/Include/Classes/System/Xml/XmlNode.ab

@@ -28 +28 @@
 Class XmlNode
 
+    nodeType As XmlNodeType
     attributes As XmlAttributeCollection
     childNodes As XmlNodeList
@@ -35 +36 @@
     ownerDocument As XmlDocument
     value As String
-    nodeType As XmlNodeType
+    previousSibling As XmlNode
+    nextSibling As XmlNode
 
 Public
@@ -49 +51 @@
         This.ownerDocument = doc
         This.value = Nothing
+        This.previousSibling = Nothing
+        This.nextSibling = Nothing
 
         attributes = New XmlAttributeCollection
@@ -64 +68 @@
         This.ownerDocument = doc
         This.value = data
+        This.previousSibling = Nothing
+        This.nextSibling = Nothing
 
         attributes = New XmlAttributeCollection
@@ -114 +120 @@
 
     /*!
+    @brief  ノードの最後の子を取得します。
+    */
+    Virtual Function LastChild() As XmlNode
+        If childNodes.Count = 0 Then
+            ' 子ノードが1つもないときはNothingを返す
+            Return Nothing
+        End If
+        Return childNodes[childNodes.Count-1]
+    End Function
+
+    /*!
     @brief  ノードのローカル名を取得します。 
     @return ノードのローカル名。
@@ -130 +147 @@
 
     /*!
+    @brief  このノードの直後のノードを取得します。
+    @return このノードの直後のノード。
+    */
+    Virtual Function NextSibling() As XmlNode
+        Return nextSibling
+    End Function
+
+    /*!
     @brief  このノードのノードタイプを取得します。
     @return このノードのノードタイプ。
@@ -159 +184 @@
     Virtual Function Prefix() As String
         return prefix
+    End Function
+
+    /*!
+    @brief  このノードの直前のノードを取得します。
+    @return このノードの直前のノード。
+    */
+    Virtual Function PreviousSibling() As XmlNode
+        Return previousSibling
     End Function
 
@@ -186 +219 @@
     */
     Virtual Function AppendChild( newChild As XmlNode ) As XmlNode
+        Dim lastChild = This.LastChild
         childNodes.Add( newChild )
+
+        If Not ActiveBasic.IsNothing( lastChild ) Then
+            ' 前後の兄弟要素を指定
+            lastChild.nextSibling = newChild
+            newChild.previousSibling = lastChild
+        End If
+
         Return newChild
     End Function