f# - F# 代码引用中的文件和行号

Question

有没有办法从代码引用中提取文件名和行号，以便我们可以为引用代码的转换添加调试信息。还有其他方法吗？

Answer 1

尝试这样的事情:

let sourceInfo (e:Quotations.Expr) = 
    let (|Val|_|) e : 't option = 
        match e with
        | Quotations.Patterns.Value(:? 't as v,_) -> Some v
        | _ -> None
    let (|Tup|_|) = Quotations.Patterns.(|NewTuple|_|)

    e.CustomAttributes
    |> List.tryPick (function | Tup [Val("DebugRange")
                                     Tup [Val(file:string)
                                          Val(startLine:int) 
                                          Val(startCol:int)
                                          Val(endLine:int)
                                          Val(endCol:int)]] 
                                  -> Some(file,startLine,startCol,endLine,endCol) 
                              | _ -> None)

sourceInfo <@ "test" @>