perl 正則表達式，用於將多行調用匹配到 c function

Question

我正在尋找一個正則表達式來匹配對可變參數 c function 的所有潛在多行調用。 最終目標是打印每個調用的文件、行號和第四個參數，但不幸的是我還沒有。 到目前為止，我有這個：

 perl -ne 'print if s/^.*?(func1\s*\(([^\)\(,]+||,|\((?2)\))*\)).*?$/$1/s' test.c

與 test.c：

int main() {
        func1( a, b, c, d);
        func1( a, b,
               c, d);
        func1( func2(), b, c, d, e );
        func1( func2(a), b, c, d, e );
        return 1;
}

-- 與第二次通話不匹配。 它不匹配的原因是表達式末尾的s允許. 匹配換行符，但似乎不允許[..]構造匹配換行符。 我不知道如何克服這一點。

我也不確定如何在此引用第四個參數... $2 ， $3不會在其中填充（即使他們這樣做了，我想由於正則表達式的遞歸性質，我會遇到一些問題）。

Answer 1

不是 Perl 但也許更簡單：

$ cpp -D'func1(a,b,c,d,...)=SHOW(__FILE__,__LINE__,d)' test.c |
  grep SHOW
        SHOW("test.c",2,d);
        SHOW("test.c",3,d)
        SHOW("test.c",5,d);
        SHOW("test.c",6,d);
$ cpp -D'func1(a,b,c,d,...)=SHOW(__FILE__,__LINE__,a)' test.c |
  grep SHOW 
        SHOW("test.c",2,a);
        SHOW("test.c",3,a)
        SHOW("test.c",5,func2());
        SHOW("test.c",6,func2(a))
$

Answer 2

這應該可以捕獲您的功能，但需要注意

perl -0777 -wnE'@f = /(func1\s*\( [^;]* \))\s*;/xg; s/\s+/ /g, say for @f' tt.c

我使用語句必須由;終止的事實。 . 這不包括意外; 不過在評論中，它排除了對嵌套在另一個調用中的 this 的調用。 如果這是可能的，那么需要做更多的工作來解析它。

然而，進一步解析捕獲的調用（可能是逗號）由於嵌套調用很可能並且實際上包含逗號這一事實而變得復雜。 這個怎么樣

func1( a, b, f2(a2, b2), c );

這成為一個更有趣的小解析問題。 或者，宏呢？

你能澄清一下哪些事情是不需要考慮的嗎？