Можно ли избежать написания стандартного кода для классов, производных от интерфейса? - PullRequest
Новая
       9

Можно ли избежать написания стандартного кода для классов, производных от интерфейса?

0 голосов
/ 08 мая 2018

У меня есть много классов, которые реализуют интерфейс. Всякий раз, когда я определяю класс, я должен написать что-то подобное в определении класса: 

interface Model.IModel with

        member this.Assets          = modelArg.Assets
        member this.AuxData         = modelArg.AuxData
        member this.Benchmark       = modelArg.Benchmark
        member this.CalcPeriods     = modelArg.CalcPeriods
        member this.CashTicker      = modelArg.CashTicker
        member this.Description     = modelArg.Description
        member this.FirstValidDate  = modelArg.FirstValidDate
        member this.Name            = modelArg.Name
        member this.ParamData       = modelArg.ParamData
        member this.ParamList       = modelArg.ParamList
        member this.Strategy        = modelArg.Strategy

        member this.CalcStartTime with get() = calcStartTime and
                                       set v = calcStartTime <- v

        member this.Counter with get() = counter and
                                 set v = counter <- v

Есть ли способ избежать повторения этого для каждого класса, производного от интерфейса IModel? Код идентичен во всех случаях.

1 Ответ

0 голосов
/ 10 мая 2018

Чтобы сделать обсуждение немного более конкретным и из-за ограниченного пространства в комментариях, что-то вроде приведенного ниже будет или не будет работать для вас? 

 type ModelArg = {
     Number: int
     Name: string
 }

 type IModel(modelArg: ModelArg) = 
    abstract member Number: int
    abstract member Name: string
    default __.Number = modelArg.Number
    default __.Name = modelArg.Name

type ConcreteModel1(modelArg: ModelArg) =
    inherit IModel(modelArg)

type ConcreteModel2(modelArg: ModelArg) =
    inherit IModel(modelArg)

let modelArg1 = {Number=2; Name ="Joe"}
let modelArg2 = {Number=3; Name = "Jim"}

let getNumberAndName(x: IModel) =
    (x.Number, x.Name)

let model1 = ConcreteModel1(modelArg1)
let model2 = ConcreteModel2(modelArg2)

getNumberAndName(model1)
//val it : int * string = (2, "Joe")
getNumberAndName(model2)
//val it : int * string = (3, "Jim")
...