您无法在F#中实现通用接口的多个实例。在我的情况下,这实在太可惜了,因为我计划实现一个称为ICastableTo 的接口,该接口可用于模式匹配:

type ICastableTo<'T> =
    /// <summary>
    /// Returns a casted version of the object
    /// </summary>
    member this.Value : 'T

...
(*x:obj*)
match x with
| :? ICastableTo<SomeType> as x -> doSomethingWith(x.Value)
| _ -> invalidOp("can't cast like that")


但是,当我尝试实际使用它时,由于无法实现ICastableTo接口的多个版本(请参见Implementing the same interface at different generic instantiations),我遇到了一个问题,但是我的某些类实际上可转换为多个类型。

我在这里最好的选择是什么?我当然可以定义一个ICastable接口并使用一个“ PossibleCasts”属性,该属性将公开所有可用的强制转换委托,但它不是非常漂亮,并且不能很好地继承。



这是我的代码:

type BindableFunction<'T,'V>(func : 'T -> 'V) =
    member val Parent : 'T = nothing with get, set
    interface Specializable with
        member SpecializeFor(x: obj) =
            match x with | :? ICastable<'T> as x -> Parent <- x.Value | _ -> invalidOp("")


然后我有我的可塑班。例如,我有一个TCell类,该类具有对Cell(组成)的引用,因此可以将其强制转换为Cell以实现功能绑定,即使这两种类型之间没有继承链接。

我认为我最终要做的是生成非匹配的“ match x with | ICastable ”(aka,我将使用ICastableOf_Cell并使用Reflection找到好的接口(按名称获取类型),然后使用Reflection.Emit生成代码。

另一种选择是为BindableFunction提供两种泛型类型,一种为值类型,另一种为ICastableOf_Cell,这可能是一个更好的主意,但会使我的代码在各个地方更加冗长。

最佳答案

最后,我采用以下方法:

type BindableFunction<'T,'V>(convert: obj -> 'T, func : 'T -> 'V) =
    member val Parent : 'T = nothing with get, set
    interface Specializable with
        member SpecializeFor(x: obj) =
            match x with
            | :? 'T as x -> (Parent <- x)
            | _          -> (Parent <- convert(x))


这使我可以为每种类型使用唯一的接口,因此不使用通用的接口。

let CastToCell = ref(fun(o:obj) -> match o with | :? ICellScope as o -> o.ICell.Cell | _ -> invalidOp("invalid scope conversion"))


最后:

new BindableFunction<Cell,_>(!CastToCell,...)

09-15 21:11