Question

这里注明了属性和C＃示例，但FSharp看起来不可能。

http://msdn.microsoft.com/en-us/library/system.runtime.compilerservices.callermembernameattribute.aspx?cs-save-lang=1&cs-lang=csharp#code-snippet-2

// using System.Runtime.CompilerServices 
// using System.Diagnostics; 

public void DoProcessing()
{
    TraceMessage("Something happened.");
}

public void TraceMessage(string message,
        [CallerMemberName] string memberName = "",
        [CallerFilePath] string sourceFilePath = "",
        [CallerLineNumber] int sourceLineNumber = 0)
{
    Trace.WriteLine("message: " + message);
    Trace.WriteLine("member name: " + memberName);
    Trace.WriteLine("source file path: " + sourceFilePath);
    Trace.WriteLine("source line number: " + sourceLineNumber);
}

示例输出：

message: Something happened. 
member name: DoProcessing 
source file path: c:\Users\username\Documents\Visual Studio 2012\Projects\CallerInfoCS\CallerInfoCS\Form1.cs 
source line number: 31

是否可以在F＃中执行上述操作，如果是，那么符号是什么？

Answer 1

快速搜索compiler source code表示代码中的名称CallerMemberName未出现，因此我认为此功能不受支持。（你当然可以用属性标记一个参数，但这些属性是特殊的 - 它们指示编译器而不是在运行时以某种方式被发现和使用。）

2016年7月更新：截至6月底，F# now supports CallerLineNumber和CallerFilePath，但CallerMemberName仍然缺席。不幸的是，似乎特别难以实现这一点。

在相关说明中，F＃有一个few special identifiers，可让您获取当前的源文件名和行号，这样您就可以获得与__SOURCE_DIRECTORY__和__LINE__类似的信息
（但不是来自C＃中的来电者）。

Answer 2

这是一个快速的'n'脏黑客，滥用inline来获取此信息：

module Tracing = 
    open System
    open System.Text.RegularExpressions

    let (|TraceInfo|_|) (s:string) =
        let m = Regex.Match(s, "at (?<mem>.+?) in (?<file>.+?\.[a-zA-Z]+):line (?<line>\d+)")
        if m.Success then
            Some(m.Groups.["mem"].Value, m.Groups.["file"].Value, int m.Groups.["line"].Value)
        else None

    let inline trace s =
        printfn "%s" s
        match Environment.StackTrace with
        | TraceInfo(m, f, l) ->
            printfn "  Member: %s" m
            printfn "  File  : %s" f
            printfn "  Line  : %d" l
        | _ -> ()

它实际上或多或少都有效：

enter image description here

是否可以在f＃中使用CallerMemberNameAttribute

2 个答案: