22 lines
686 B
Perl
22 lines
686 B
Perl
#!/usr/bin/perl -w
|
|
|
|
|
|
my $arg = qr/[^,]*/;
|
|
|
|
while(<>) {
|
|
chomp;
|
|
if (/^HAMMER_FN_DECL_NOARG\(([^,]*), ([^,]*)\);/) {
|
|
print "$1 $2(void);\n";
|
|
print "$1 $2__m(HAllocator* mm__);\n";
|
|
} elsif (/^HAMMER_FN_DECL\(([^,]*), ([^,]*), ([^)]*)\);/) {
|
|
print "$1 $2($3);\n";
|
|
print "$1 $2__m(HAllocator* mm__, $3);\n";
|
|
} elsif (/^HAMMER_FN_DECL_VARARGS_ATTR\((__attribute__\(\([^)]*\)\)), ([^,]*), ([^,]*), ([^)]*)\);/) {
|
|
print "$2 $3($4, ...);\n";
|
|
print "$2 $3__m(HAllocator *mm__, $4, ...);\n";
|
|
print "$2 $3__a(void* args);\n";
|
|
print "$2 $3__ma(HAllocator* mm__, void* args);\n";
|
|
} elsif (/^HAMMER_FN_DECL/) {
|
|
print "\e[1;31m!!!\e[0m " . $_ . "\n";
|
|
}
|
|
}
|