Changeset 475 for trunk/Include/Classes/System/Xml/XmlNode.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/XmlNode.ab (modified) (8 diffs)

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