source: trunk/ab5.0/ablib/src/Classes/System/Xml/XmlDocument.ab@ 655

Namespace System
Namespace Xml

/*!
@brief  XMLドキュメントを表す
*/
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

    /*!
    @brief  コンストラクタ
    */
    Sub XmlDocument()
        XmlNode( XmlNodeType.Document, "", "#document", "", Nothing )
    End Sub

    /*!
    @brief  コンストラクタ
    */
    'Sub XmlDocument( xmlImplementation As XmlImplementation )
    'End Sub

    /*!
    @brief  コンストラクタ
    */
    'Sub XmlDocument( xmlNameTable As XmlNameTable )
    'End Sub


    '----------------------------------------------------------------
    ' パブリック プロパティ
    '----------------------------------------------------------------

    /*!
    @brief  このノードとそのすべての子ノードを表すマークアップを取得します。
    @return このノードとそのすべての子ノードを格納しているマークアップ。
    */
    Override Function OuterXml() As String
        Return This.InnerXml
    End Function


    '----------------------------------------------------------------
    ' パブリック メソッド
    '----------------------------------------------------------------

    /*!
    @brief  指定した値を使用して、XmlDeclaration ノードを作成します。
    @param  version XMLのバージョン番号。
            encoding 文字コード。（例："shift-jis", "UTF-8", "EUC-JP"）
            standalone 外部DTDの参照が必要かどうか。"yes" or "no"
    */
    Function CreateXmlDeclaration( version As String, encoding As String, standalone As String ) As XmlDeclaration
        Return New XmlDeclaration( version ,encoding, standalone, This )
    End Function

    /*!
    @brief  指定した名前を使用して属性を作成します。
    @param  name 属性名
    */
    Function CreateAttribute( name As String) As XmlAttribute
        VerifyLocalName( name )

        Return New XmlAttribute( "", name, "", This )
    End Function

    /*!
    @brief  指定した名前を使用して要素を作成します。
    @param  name 要素名。
    */
    Function CreateElement( name As String ) As XmlElement
        VerifyLocalName( name )

        Return New XmlElement( "", name, "", This )
    End Function

    /*!
    @brief  指定した文字列を使用してテキストノードを作成します。
    @param  text 文字列。
    */
    Function CreateTextNode( text As String ) As XmlText
        Return New XmlText( text, This )
    End Function

    /*!
    @brief  指定したストリームからXML文書を読み込む。
    @param  reader 読み込むリーダ。
    */
    Virtual Sub Load( reader As System.IO.TextReader )
        This.RemoveAll()
        ActiveBasic.Xml.Parser.Parse( reader.ReadToEnd(), This )
    End Sub

    /*!
    @brief  指定したストリームからXML文書を読み込む。
    @param  stream 読み込み先のストリーム。
    */
    Virtual Sub Load( inStream As System.IO.Stream )
        Load( New System.IO.StreamReader( inStream ) )
    End Sub

    /*!
    @brief  指定したファイルからXML文書を読み込む。
    @param  ファイルパス。
    */
    Virtual Sub Load( filename As String )
        Dim r = New System.IO.StreamReader( filename )
        Load( r )
        r.Dispose()
    End Sub

    /*!
    @brief  指定したストリームにXML文書を保存する。
    @param  stream 保存先のストリーム。
    */
    Virtual Sub Save( outStream As System.IO.Stream )
        Dim writer = New IO.StreamWriter( outStream )
        Save( writer )
        writer.Flush()
    End Sub

    /*!
    @brief  指定したファイルにXML文書を保存する。
    @param  ファイルパス。
    */
    Virtual Sub Save( filename As String )
        Dim w = New IO.StreamWriter( filename )
        Save( w )
        w.Dispose()
    End Sub

    /*!
    @brief  指定したテキストライタにXML文書を保存する。
    @param  テキストライタ。
    */
    Virtual Sub Save( writer As System.IO.TextWriter )
        writer.Write( InnerXmlSupportedIndent( True ) )
    End Sub
End Class


End Namespace
End Namespace