4

我正在进行一项关于Linux 内核中极其冗长和复杂的函数的小型学术研究。我试图弄清楚是否有充分的理由编写 600 或 800 行长的函数。

为此，我想找到一个可以从 .c 文件中提取函数的工具，这样我就可以对该函数运行一些自动化测试。

例如，如果我cifs_parse_mount_options()在文件中有函数connect.c，我正在寻找一个大致可以工作的解决方案：

extract /fs/cifs/connect.c cifs_parse_mount_options

并返回函数的 523 行代码（！），从左大括号到右大括号。

当然，像这样操作现有软件包的任何方式也是gcc最有帮助的。

谢谢，

乌迪

编辑：正则表达式提取 C 函数原型声明的答案？让我相信，通过正则表达式匹配函数声明绝非易事。

4

3 回答 3

3

你为什么不编写一个小的 PERL/PHP/Python 脚本，甚至是一个小的 C++、Java 或 C# 程序来做到这一点？

我不知道任何已经制作的工具可以做到这一点，但编写代码来解析文本文件并从 C++ 代码文件中提取函数体不应超过 20 行代码。唯一困难的部分是定位函数的开头，这应该是使用 RegEx 的一项相对简单的任务。之后，您只需遍历文件的其余部分，跟踪打开和关闭大括号，当您到达函数体关闭大括号时，您就完成了。

于 2009-07-17T15:42:05.020 回答
1

缩进 -kr 代码 -o code.out

awk -f split.awk code.out

你必须适应一点 split.awk 这有点特定于我的代码和重构需求（例如，你有 so struct 谁不是 typedefs

而且我相信你可以制作一个更好的脚本:-)

--
BEGIN   { line=0; FS="";
    out=ARGV[ARGC-1]  ".out";
    var=ARGV[ARGC-1]  ".var";
    ext=ARGV[ARGC-1]  ".ext";
    def=ARGV[ARGC-1]  ".def";
    inc=ARGV[ARGC-1]  ".inc";
    typ=ARGV[ARGC-1]  ".typ";
    system ( rm " " -f " " out " " var " " ext " " def " " inc " " typ );
    }
/^[     ]*\/\/.*/   { print "comment :" $0 "\n"; print $0 >> out ; next ;}
/^#define.*/        { print "define :" $0 ; print $0 >>def ; next;}
/^#include.*/       { print "define :" $0 ; print $0 >>inc ; next;}
/^typedef.*{$/      { print "typedef var :" $0 "\n"; decl="typedef";print $0 >> typ;infile="typ";next;}
/^extern.*$/        { print "extern :" $0 "\n"; print $0 >> ext;infile="ext";next;}
/^[^    }].*{$/     { print "init var :" $0 "\n";decl="var";print $0 >> var; infile="vars";
                print $0;
                fout=gensub("^([^    \\*])*[    ]*([a-zA-A0-9_]*)\\[.*","\\2","g") ".vars";
                     print "var decl : " $0 "in file " fout;
                     print $0 >fout;
                next;
                        }
/^[^    }].*)$/     { print "func  :" $0 "\n";decl="func"; infile="func";
                print $0;
                fout=gensub("^.*[    \\*]([a-zA-A0-9_]*)[   ]*\\(.*","\\1","g") ".func";
                     print "function : " $0 "in file " fout;
                     print $0 >fout;
                next;
            }
/^}[    ]*$/        { print "end of " decl ":" $0 "\n"; 
                if(infile=="typ") {
                    print $0 >> typ;
                }else if (infile=="ext"){
                    print $0 >> ext;
                }else if (infile=="var") {
                    print $0 >> var;
                }else if ((infile=="func")||(infile=="vars")) {
                    print $0 >> fout; 
                    fflush (fout);
                    close (fout);
                }else if (infile=="def") {
                    print $0 >> def;
                }else if (infile=="inc"){
                    print $0 >> inc;
                }else print $0 >> out;
                next;
            }
/^[a-zA-Z_]/        { print "extern :" $0 "\n"; print $0 >> var;infile="var";next;}
            { print "other :" $0 "\n" ; 
                if(infile=="typ") {
                    print $0 >> typ;
                }else if (infile=="ext"){
                    print $0 >> ext;
                }else if (infile=="var") {
                    print $0 >> var;
                }else if ((infile=="func")||(infile=="vars")){
                    print $0 >> fout;
                }else if (infile=="def") {
                    print $0 >> def;
                }else if (infile=="inc"){
                    print $0 >> inc;
                }else print $0 >> out;
               next;
               }
于 2010-05-21T19:27:31.110 回答
1

如果您发现难以提取函数名称：

1> 使用 ctags（一个程序）提取函数名。ctags -x --c-kinds=fp path_to_file。2>一旦你得到函数名，编写一个简单的perl脚本通过传递函数的脚本名来提取函数的内容，如上所述。

于 2015-03-15T07:29:43.077 回答