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" @>

Answer 2

这现在内置在 F# 中

https://msdn.microsoft.com/en-us/library/dd233234.aspx

__LINE__
__SOURCE_DIRECTORY__
__SOURCE_FILE__