Changeset 424 for trunk/Include/Classes/System/Xml/XmlDocument.ab

Timestamp:

Feb 25, 2008, 11:03:28 PM (17 years ago)

Author:

dai

Message:

System.Xml関連のクラスを仮実装してみた（まだ満足な機能レベルではない…）。

File:

• trunk/Include/Classes/System/Xml/XmlDocument.ab (modified) (3 diffs)

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

@@ -7 +7 @@
 Class XmlDocument
     Inherits XmlNode
+
+    Sub VerifyLocalName( name As String )
+        If Object.ReferenceEquals( name, Nothing ) Then
+            ' Throw System.ArgumentException()
+        ElseIf name.Length = 0 Then
+            ' Throw System.ArgumentException()
+        End If
+    End Sub
+
 Public
 
@@ -13 +22 @@
     */
     Sub XmlDocument()
+        XmlNode( "", "#document", "", Nothing )
     End Sub
 
@@ -27 +37 @@
     'End Sub
 
-    Function AppendChild( newChild As XmlNode ) As XmlNode
-        ' TODO: 実装
+    /*!
+    @brief  指定した値を使用して、XmlDeclaration ノードを作成します。
+    */
+    Function CreateXmlDeclaration( version As String, encoding As String, standalone As String ) As XmlDeclaration
+        Return New XmlDeclaration( version ,encoding, standalone, This )
     End Function
 
-    Function CloneNode( deep As Boolean ) As XmlNode
-        ' TODO: 実装
+    /*!
+    @brief  指定した名前を使用して要素を作成します。
+    */
+    Function CreateElement( name As String ) As XmlElement
+        VerifyLocalName( name )
+
+        Return New XmlElement( "", name, "", This )
+    End Function
+
+    /*!
+    @brief  このノードとそのすべての子ノードを表すマークアップを取得します。
+    @return このノードとそのすべての子ノードを格納しているマークアップ。
+    */
+    Override Function OuterXml() As String
+        Return This.InnerXml
     End Function