#Region "Microsoft.VisualBasic::d84cf71136d6b90c2ab79e1936e90c96, ..\ComputingServices\Taskhost.d\Object\ShadowsCopy.vb"

    ' Author:
    ' 
    '       asuka (amethyst.asuka@gcmodeller.org)
    '       xieguigang (xie.guigang@live.com)
    ' 
    ' Copyright (c) 2016 GPL3 Licensed
    ' 
    ' 
    ' GNU GENERAL PUBLIC LICENSE (GPL3)
    ' 
    ' This program is free software: you can redistribute it and/or modify
    ' it under the terms of the GNU General Public License as published by
    ' the Free Software Foundation, either version 3 of the License, or
    ' (at your option) any later version.
    ' 
    ' This program is distributed in the hope that it will be useful,
    ' but WITHOUT ANY WARRANTY; without even the implied warranty of
    ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    ' GNU General Public License for more details.
    ' 
    ' You should have received a copy of the GNU General Public License
    ' along with this program. If not, see <http://www.gnu.org/licenses/>.

#End Region

Imports System.Reflection
Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel

Namespace TaskHost

    Module ShadowsCopy

        ''' <summary>
        ''' 将客户端上面的对象数据复制到远程主机上面的内存管理模块之中
        ''' </summary>
        ''' <param name="from">Client上面的</param>
        ''' <param name="target">服务器上面的</param>
        ''' <param name="memory">内存管理模块单元</param>
        ''' <returns></returns>
        Public Function ShadowsCopy(from As Object, target As Object, memory As MemoryHash) As Boolean
            Dim p As Long = ObjectAddress.AddressOf(target).ReferenceAddress

            Return __innerCopy(from,
                               target,
                               memory,
                               New List(Of Long) + p)
        End Function

        ''' <summary>
        ''' 
        ''' </summary>
        ''' <param name="from"></param>
        ''' <param name="target">远程服务器上面的对象</param>
        ''' <param name="memory">远程对象的内存管理模块</param>
        ''' <param name="stack">Avoided of the loop reference.(内存管理的复制堆栈记录)</param>
        ''' <returns></returns>
        Private Function __innerCopy(from As Object, target As Object, memory As MemoryHash, stack As List(Of Long)) As Boolean
            Dim props As PropertyInfo() = from.GetType.GetReadWriteProperties

            For Each prop As PropertyInfo In props
                Dim value As Object = prop.GetValue(from)

                If ToStrings.ContainsKey(prop.PropertyType) Then
                    Call prop.SetValue(target, value)  ' 值类型，直接复制
                Else   ' 引用类型，递归按址复制
                    Dim addr As ObjectAddress = ObjectAddress.AddressOf(value) ' 得到对象在内存之中的位置指针
                    If memory.IsNull(addr.ReferenceAddress) Then
                        Call memory.SetObject(value)  ' 空的，则直接插入
                    Else
                        Dim innerTarget As Object = prop.GetValue(target)

                        addr = ObjectAddress.AddressOf(innerTarget)  ' 假若是引用类型的对象，在复制的时候还需要检查栈空间，否则会出现死循环 栈空间溢出

                        ' 检查栈空间是否已经复制过当前的对象了？
                        If stack.IndexOf(addr.ReferenceAddress) = -1 Then     ' 假若出现循环引用的话，应该怎样进行复制？？
                            Call stack.Add(addr.ReferenceAddress)      ' 写栈路径记录
                            Call __innerCopy(value, innerTarget, memory, stack)  ' 假若已经存在了，则递归进入下一层复制
                        End If
                    End If
                End If
            Next

            Return True
        End Function
    End Module
End Namespace