АЧ
Size: a a a
АЧ
АЧ
АЧ
E
АН
Dv
VA
С
VA
HK
HK
HK
HK
...
let solidityFunctionToNetMethod (solidityFunction:Root) =
let parameters =
solidityFunction.inputs
|> Seq.map ^fun j -> ProvidedParameter(j.name, solidityTypeToNetType j.internalType)
|> Seq.toList
let returnType = solidityOutputTypesToNetReturnType solidityFunction.name solidityFunction.outputs
let method = ProvidedMethod(solidityFunction.name, parameters, returnType)
returnType, method
let providedType = ProvidedTypeDefinition(sprintf "%sContract" contractName, Some typeof<obj>)
roots
|> Seq.where ^fun i -> i._type = "function"
|> Seq.map solidityFunctionToNetMethod
|> Seq.iter ^fun (method, returnType) ->
providedType.AddMember returnType
providedType.AddMember method
...
HK
RS

RS