source: trunk/Include/Classes/System/Xml/XmlNode.ab@ 442

Namespace System
Namespace Xml

Enum XmlNodeType
    None
    Element
    Attribute
    Text
    CDATA
    EntifyReference
    Entity
    ProcessingInstruction
    Comment
    Document
    DocumentType
    DocumentFragment
    Notation
    Whitespace
    SignificantWhitespace
    EndElement
    EndEntity
    XmlDeclaration
End Enum

/*!
@brief  XMLドキュメント内の単一のノードを表す。
*/
Class XmlNode

    'attributes As XmlAttributeCollection
    childNodes As XmlNodeList
    prefix As String
    localName As String
    namespaceURI As String
    ownerDocument As XmlDocument
    value As String
    nodeType As XmlNodeType

Public

    /*!
    @brief  コンストラクタ
    */
    Sub XmlNode( nodeType As XmlNodeType, prefix As String, localName As String, namespaceURI As String, doc As XmlDocument )
        This.prefix = prefix
        This.localName = localName
        This.namespaceURI = namespaceURI
        This.ownerDocument = doc
        This.value = Nothing

        childNodes = New XmlNodeList()
    End Sub

    /*!
    @brief  コンストラクタ
    */
    Sub XmlNode( nodeType As XmlNodeType, data As String, doc As XmlDocument )
        This.prefix = Nothing
        This.localName = Nothing
        This.namespaceURI = Nothing
        This.ownerDocument = doc
        This.value = data

        childNodes = Nothing
    End Sub


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

    /*!
    @brief  名前またはインデックスによってアクセスできる属性のコレクションを表します。
    */
    'Virtual Function Attributes() As XmlAttributeCollection
    '   Return attributes
    'End Function

    /*!
    @brief  子ノードリストを返します。
    */
    Virtual Function ChildNodes() As XmlNodeList
        Return childNodes
    End Function

    /*!
    @brief  ノードの最初の子を取得します。
    */
    Virtual Function FirstChild() As XmlNode
        If childNodes.Count = 0 Then
            ' 子ノードが1つもないときはNothingを返す
            Return Nothing
        End If
        Return childNodes[0]
    End Function

    /*!
    @brief  子ノードが1つ以上あるかどうかを取得します。
    */
    Virtual Function HasChildNodes() As Boolean
        Return Not ( childNodes.Count = 0 )
    End Function

    /*!
    @brief  このノードの子ノードだけを表すマークアップを取得または設定します。
    */
    Virtual Function InnerXml() As String
        Return InnerXmlSupportedIndent()
    End Function

    /*!
    @brief  ノードのローカル名を取得します。 
    @return ノードのローカル名。
    */
    Virtual Function LocalName() As String
        return localName
    End Function

    /*!
    @brief  このノードの名前空間 URI を取得します。
    @return このノードの名前空間 URI。
    */
    Virtual Function NamespaceURI() As String
        return NamespaceURI
    End Function

    /*!
    @brief  このノードのノードタイプを取得します。
    @return このノードのノードタイプ。
    */
    Virtual Function NodeType() As XmlNodeType
        return nodeType
    End Function

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

    /*!
    @brief  このノードが属する XmlDocument を取得します。
    @return このノードが属する XmlDocument。
    */
    Virtual Function OwnerDocument() As XmlDocument
        Return ownerDocument
    End Function

    /*!
    @brief  このノードの名前空間プリフィックスを取得または設定します。
    @return このノードの名前空間プリフィックス。たとえば、プリフィックスは要素 <bk:book> の bk です。プリフィックスがない場合、このプロパティは String.Empty を返します。
    */
    Virtual Function Prefix() As String
        return prefix
    End Function

    


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

    /*!
    @brief  このノードの子ノードリストの末尾に指定したノードを追加する。
    */
    Virtual Function AppendChild( newChild As XmlNode ) As XmlNode
        childNodes.Add( newChild )
        Return newChild
    End Function

    /*!
    @brief  ノードを複製する。
    */
    Virtual Function Clone() As XmlNode
        ' TODO: 実装
    End Function

    /*!
    @brief  派生クラスでオーバーライドされた場合は、ノードの複製を作成する。
    */
    Virtual Function CloneNode( deep As Boolean ) As XmlNode
        ' TODO: 実装
    End Function

    /*!
    @brief  XmlNode のノードに対する Foreachスタイルの反復をサポートします。
    */
    Virtual Function GetEnumerator() As IEnumerator
        ' TODO: 実装
    End Function

    /*!
    @brief  指定したノードを指定した参照ノードの直後に挿入します。
    @param  newChild 挿入するXmlNode。
            refChild 参照ノードであるXmlNode。newNode は、refNode の後に配置されます。
    @return 挿入されるノード。
    */
    Virtual Function InsertAfter( newChild As XmlNode, refChild As XmlNode ) As XmlNode
        ' TODO: 実装
    End Function

    /*!
    @brief  指定したノードを指定した参照ノードの直前に挿入します。
    @param  newChild 挿入するXmlNode。
            refChild 参照ノードであるXmlNode。newNode は、refNode の前に配置されます。
    @return 挿入されるノード。
    */
    Virtual Function InsertBefore( newChild As XmlNode, refChild As XmlNode ) As XmlNode
        ' TODO: 実装
    End Function

    /*!
    @brief  このノードの子ノードのリストの先頭に、指定したノードを追加します。
    @param  newChild 挿入するXmlNode。
    @return 挿入されるノード。
    */
    Virtual Function PrependChild( newChild As XmlNode ) As XmlNode
        ' TODO: 実装
    End Function

    /*!
    @brief  現在のノードのすべての子ノードと属性の両方、またはそのいずれかを削除します。
    */
    Virtual Sub RemoveAll()
        ' TODO: 実装
    End Sub

    /*!
    @brief  現在のノードのすべての子ノードと属性の両方、またはそのいずれかを削除します。
    @param  newChild 削除するXmlNode。
    @return 削除されたノード。
    */
    Virtual Function RemoveChild( oldChild As XmlNode ) As XmlNode
        ' TODO: 実装
    End Function

    /*!
    @brief  子ノード oldChild を newChild ノードに置き換えます。
    @param  newChild 新しいノード。
            oldChild 置換されノード。
    @return 置き換えられたノード。
    */
    Virtual Function ReplaceChild( newChild As XmlNode, oldChild As XmlNode ) As XmlNode
        ' TODO: 実装
    End Function


Protected
    Virtual Function InnerXmlSupportedIndent( isIndent = False As Boolean, indent = 0 As Long ) As String
        Dim result = ""
        If Not ActiveBasic.IsNothing( childNodes ) Then
            ' 子ノード
            Foreach childNode In childNodes
                result += childNode.OwnerXmlSupportedIndent( isIndent, indent )
            Next
        End If
        Return result
    End Function

    Virtual Function OwnerXmlSupportedIndent( isIndent = False As Boolean, indent = 0 As Long ) As String
        Dim indentStr = ""
        Dim crlfStr = ""
        If isIndent Then
            ' インデントをサポートする場合
            Dim i As Long
            For i=0 To ELM(indent)
                indentStr += Ex"\t"
            Next

            crlfStr = Ex"\r\n"
        End If

        If childNodes.Count = 0 Then
            Return indentStr + "<" + localName + " />" + crlfStr
        End If

        Dim result = ""

        ' 開始タグ
        result += indentStr + "<" + localName + ">" + crlfStr

        ' 子ノードリスト
        result += InnerXmlSupportedIndent( isIndent, indent + 1 )

        ' 終了タグ
        result += indentStr + "</" + localName + ">" + crlfStr

        Return result
    End Function
End Class

TypeDef XmlNodeList = System.Collections.Generic.List<XmlNode>


End Namespace
End Namespace