source: trunk/Include/Classes/System/Xml/Serialization/XmlSerializer.ab@ 472

Namespace System
Namespace Xml
Namespace Serialization


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 )
        Dim valueStr = Nothing As String
        If typeInfo.FullName = "Byte" Then
            valueStr = Str$( GetByte( ObjPtr( o ) + memoryOffset ) As Byte )
        ElseIf typeInfo.FullName = "SByte" Then
            valueStr = Str$( GetByte( ObjPtr( o ) + memoryOffset ) As SByte )
        ElseIf typeInfo.FullName = "Word" Then
            valueStr = Str$( GetWord( ObjPtr( o ) + memoryOffset ) As Word )
        ElseIf typeInfo.FullName = "Integer" Then
            valueStr = Str$( GetWord( ObjPtr( o ) + memoryOffset ) As Integer )
        ElseIf typeInfo.FullName = "DWord" Then
            valueStr = Str$( GetDWord( ObjPtr( o ) + memoryOffset ) As DWord )
        ElseIf typeInfo.FullName = "Long" Then
            valueStr = Str$( GetDWord( ObjPtr( o ) + memoryOffset ) As Long )
        ElseIf typeInfo.FullName = "QWord" Then
            valueStr = Str$( GetQWord( ObjPtr( o ) + memoryOffset ) As QWord )
        ElseIf typeInfo.FullName = "Int64" Then
            valueStr = Str$( GetQWord( ObjPtr( o ) + memoryOffset ) As Int64 )
        ElseIf typeInfo.FullName = "Boolean" Then
            If GetByte( ObjPtr( o ) + memoryOffset ) As Boolean Then
                valueStr = "True"
            Else
                valueStr = "False"
            End If
        ElseIf typeInfo.FullName = "Single" Then
            valueStr = Str$( GetSingle( ObjPtr( o ) + memoryOffset ) As Single )
        ElseIf typeInfo.FullName = "Double" Then
            valueStr = Str$( GetDouble( ObjPtr( o ) + memoryOffset ) As Double )
        ElseIf typeInfo.FullName = "VoidPtr" Then
            valueStr = Str$( Get_LONG_PTR( ObjPtr( o ) + memoryOffset ) )
        Else
            Throw
        End If

        Dim childNode = doc.CreateElement( typeInfo.FullName )
        parentNode.AppendChild( childNode )
        childNode.AppendChild( doc.CreateTextNode( valueStr ) )

    End Sub

    Static Sub SerializeForClass( typeInfo As TypeInfo, o As Object, doc As XmlDocument, parentNode = Nothing As XmlNode )
        If typeInfo.IsClass() and typeInfo.FullName = "System.Object" Then
            ' Object型はシリアライズしない
            Return
        End If

        If ActiveBasic.IsNothing( parentNode ) Then
            parentNode = doc
        End If

        Dim memberInfos = typeInfo.GetMembers()

        ' 子ノードを生成
        Dim childNode = doc.CreateElement( typeInfo.Name )
        Dim namespaceAttr = doc.CreateAttribute( "namespace" )
        namespaceAttr.Value = typeInfo.Namespace
        childNode.Attributes.Add( namespaceAttr )

        ' 親ノードへ追加
        parentNode.AppendChild( childNode )

        If Not ActiveBasic.IsNothing( typeInfo.BaseType ) Then
            ' 基底クラスが存在するとき

            ' 基底クラスをシリアライズ
            SerializeForClass( typeInfo.BaseType, o, doc, childNode )
        End If

        ' メンバをシリアライズ
        Foreach memberInfo In memberInfos
            If memberInfo.MemberType.IsPointer() Then
                Throw
            ElseIf memberInfo.MemberType.IsClass() Then
                SerializeForClass( memberInfo.MemberType, o, doc, childNode )
            ElseIf memberInfo.MemberType.IsValueType() Then
                SerializeForBasicType( memberInfo.MemberType, memberInfo._System_Offset, o, doc, childNode )
            End If
        Next
    End Sub

    Function Deserialize( doc As XmlDocument ) As Object
    End Function

Public
    Sub XmlSerializer( typeInfo As System.TypeInfo )
        This.m_typeInfo = typeInfo
    End Sub
    Sub ~XmlSerializer()
    End Sub


    /*!
    @brief  XML文書をオブジェクトに逆シリアライズします。
    @author Daisuke Yamamoto
    */
    Function Deserialize( stream As System.IO.Stream ) As Object
        Dim doc = New XmlDocument
        doc.Load( stream )
        Deserialize( doc )
    End Function

    /*!
    @brief  オブジェクトをXML文書にシリアライズします。
    @author Daisuke Yamamoto
    */
    Sub Serialize( stream As System.IO.Stream, o As Object )
        Dim doc = New XmlDocument
        doc.AppendChild( doc.CreateXmlDeclaration( "1.0", "shift-jis", Nothing ) )

        SerializeForClass( m_typeInfo, o, doc )

        ' ストリームに保存
        doc.Save( stream )
    End Sub
End Class


End Namespace
End Namespace
End Namespace