#Region "Microsoft.VisualBasic::a23ede7ec89a19fecb80b31cf5db5ba6, ComputingServices\Taskhost.d\Invoke\InvokeInfo.vb"

    ' Author:
    ' 
    '       asuka (amethyst.asuka@gcmodeller.org)
    '       xie (genetics@smrucc.org)
    '       xieguigang (xie.guigang@live.com)
    ' 
    ' Copyright (c) 2018 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/>.



    ' /********************************************************************************/

    ' Summaries:

    '     Class Argv
    ' 
    '         Properties: Type, value
    ' 
    '         Constructor: (+2 Overloads) Sub New
    '         Function: GetValue, ToString
    ' 
    '     Class InvokeInfo
    ' 
    '         Properties: Name, Parameters
    ' 
    '         Function: CreateObject, GetMethod, GetParameters, ToString
    ' 
    '         Sub: SetArgs
    ' 
    ' 
    ' /********************************************************************************/

#End Region

Imports System.Reflection
Imports Microsoft.VisualBasic.Linq
Imports Microsoft.VisualBasic.Scripting
Imports Microsoft.VisualBasic.Serialization.JSON

Namespace TaskHost

    ''' <summary>
    ''' 分布式计算框架之中的远程调用的参数信息
    ''' </summary>
    Public Class InvokeInfo : Inherits MetaData.TypeInfo

        ''' <summary>
        ''' The function name.(函数名)
        ''' </summary>
        ''' <returns></returns>
        Public Property name As String
        ''' <summary>
        ''' json value.(函数参数)
        ''' </summary>
        ''' <returns></returns>
        Public Property parameters As Argument()

        Public Function GetMethod() As MethodInfo
            Dim type As Type = [GetType]()
            Dim func As MethodInfo = type.GetMethod(name, BindingFlags.Public Or BindingFlags.Static)
            Return func
        End Function

        Public Overrides Function ToString() As String
            Return $"{assm}!{fullIdentity}::{name}"
        End Function

        ''' <summary>
        ''' 
        ''' </summary>
        ''' <param name="method"></param>
        ''' <param name="args">json</param>
        ''' <returns></returns>
        Public Shared Function GetParameters(method As MethodInfo, args As String()) As Object()
            Dim params As Type() = method.GetParameters.Select(Function(par) par.ParameterType).ToArray
            Dim values As Object() = args.Select(Function(arg, i) JsonContract.LoadObject(arg, params(i))).ToArray
            Return values
        End Function

        Public Shared Function CreateObject(func As [Delegate], args As Object()) As InvokeInfo
            Dim type As Type = func.Method.DeclaringType
            Dim assm As Assembly = type.Assembly
            Dim name As String = func.Method.Name
            ' 由于函数调用的参数的类型可能是基类，所以json序列化操作会存在问题，
            ' 在这里使用这个新的参数构建模块来避免这个问题
            Dim params As Argument() = args.Select(Function(arg) New Argument(arg)).ToArray

            Return New InvokeInfo With {
                .assm = assm.Location.FileName,
                .name = name,
                .parameters = params,
                .fullIdentity = type.FullName
            }
        End Function
    End Class
End Namespace