f# - F# 中的代码行数和其他指标

Question

如何获得有关我的 F# 代码的一些不错的统计信息？

我可以想象这样的事情

• 我的代码行数
• 文件数
• 字符数？
• 函数、类、模块等的数量

Answer 1

为什么不使用一些简单的 shell 实用程序？

按顺序回答

wc -l *.fs
ls -l *.fs | wc -l
wc -c *.fs
grep module *.fs | wc -l
grep type *.fs | wc -l
grep "^let\|member" *.fs | wc -l

更新：递归文件夹的一些示例 - 我希望模式很明显

wc -l `find . -name "*.fs" `
find . -name "*.fs" | wc -l
wc -c `find . -name "*.fs" `
grep module `find . -name "*.fs" ` | wc -l

Answer 2

这是一个 F# 版本，它递归地计算fs和fsx文件（假设您安装了 F# 运行时）：

open System.IO
open System.Text.RegularExpressions

let rec allFiles dir =
    seq { yield! Directory.GetFiles dir
          yield! Seq.collect allFiles (Directory.GetDirectories dir) }

let rgType = new Regex(@"type", RegexOptions.Compiled)
let rgModule = new Regex(@"module", RegexOptions.Compiled)
let rgFunction = new Regex(@"^let|member", RegexOptions.Compiled)

let count (rg: Regex) s =
    s |> rg.Matches |> fun x -> x.Count

type Statistics = {
        NumOfLines: int; NumOfFiles: int;
        NumOfChars: int; NumOfTypes: int;
        NumOfModules: int; NumOfFunctions: int;
    } 

let getStats =
    allFiles 
    >> Seq.filter (fun f -> f.EndsWith ".fs" || f.EndsWith ".fsx")
    >> Seq.fold (fun acc f -> 
                    let contents = f |> File.ReadLines
                    { NumOfLines = acc.NumOfLines + Seq.length contents; 
                      NumOfFiles = acc.NumOfFiles + 1;
                      NumOfChars = acc.NumOfChars + Seq.sumBy String.length contents;
                      NumOfTypes = acc.NumOfTypes + Seq.sumBy (count rgType) contents;
                      NumOfModules = acc.NumOfModules + Seq.sumBy (count rgModule) contents;
                      NumOfFunctions = acc.NumOfFunctions + Seq.sumBy (count rgFunction) contents; } 
                        ) { NumOfLines = 0; NumOfFiles = 0; 
                            NumOfChars = 0; NumOfTypes = 0; 
                            NumOfModules = 0; NumOfFunctions = 0 }

Answer 3

因为 F# 编译为 IL 代码和通用类型系统 (CTS) 和PDB 文件，所以可以通过工具NDepend分析 F# 程序集，您将获得关于您的代码的82 个代码指标（+该工具的所有其他功能）。此处提供免费试用版。

免责声明，我是 NDepend 团队的成员。