函数声明使用perl函数指针声明

Question

我需要创建一个函数指针文件。我正在使用perl。 我的输入是函数声明的列表。下面是一些例子：

1.

char * cc_Hightor_ind(Closed* p_Closed); 
    to 
char * (*cc_Hightor_ind)(Closed* p_Closed); 

2.

char cc_Hightor_ind(Closed* p_Closed); 
    to 
char (*cc_Hightor_ind)(Closed* p_Closed); 

这些是2通常情况下，该函数返回一个指针和值。 我不能解决如何将函数名称转换为在前面加（*。

我的逻辑是在寻找“_ind”，我回轨道字的开头并添加（*。 我我发现很难该翻译成代码。 请提出相同的。目前我使用的正则表达式的每个数据类型和添加添加（*它这是一个非常漫长的过程。

在此先感谢

Answer 1

根据更新的问题更新：

while(<DATA>) { 
    chomp; 
    s/(\*?\s+)(\w+\s*\()/$1(*$2)/; 
    say; 
} 
__DATA__ 
char * cc_Hightor_ind(Closed* p_Closed); 
char cc_Hightor_ind(Closed* p_Closed); 

输出：

char * (*cc_Hightor_ind)(Closed* p_Closed); 
char (*cc_Hightor_ind)(Closed* p_Closed); 

Answer 2

阿金处理XML正则表达式，这将永远是100％正确的，除非你涉及到一个适当的C解析器。但是你可以写出一些对大多数常见情况都是正确的，并且对于给定的C代码样本可能总是正确的 - 特别是如果该代码是自动生成的。

试试这个初始尝试，其中包括您发布的两个代码示例。如果您希望我们帮助您更那么请张贴的一个完整的例子你正在处理

use strict; 
use warnings; 

while (<DATA>) { 
    chomp; 
    (my $ptr = $_) =~ s/(\w+ \s*)\(/(*$1)(/x ; 
    print $ptr, "\n"; 
} 

__DATA__ 
char * cc_Hightor_ind(Closed* p_Closed); 
char cc_Hightor_ind(Closed* p_Closed); 

输出

char * (*cc_Hightor_ind)(Closed* p_Closed); 
char (*cc_Hightor_ind)(Closed* p_Closed); 

Answer 3

对不起，我没有时间为一个完整的答案，但这里有一些关于在Perl中解析C的讨论。 http://www.perlmonks.org/?node_id=746341也许它可以给你一些想法。

Answer 4

我在下面迂回的解决方案已经抵达:-(

my $line = "char * cc_Hightor_ind(Closed* p_Closed);"; 
# split with white-space as delimiter 
my @splt = split (/\s/, $line); 
$count = split(/\s/, $line); 
#traverse through tokens 
for ($i = 0; $i < $count; $i++) { 
    # If token has '_ind', then prepend '(*' and append ')' to it 
    if ((@splt[$i] =~ s/_ind/_ind\)/)) { 

    @splt[$i] = "\(* @splt[$i]\) "; 

    } 
} 

    $line = join (" ", @splt); 
    print "$line\n"; 

#sample output 
#D:\gsa\mytries\prl>getFptr.pl 
#char * (* cc_Hightor_ind(Closed* p_Closed);