diff options
Diffstat (limited to 'harness/tools/genintf.pl')
| -rw-r--r-- | harness/tools/genintf.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/harness/tools/genintf.pl b/harness/tools/genintf.pl index d446d83..12d525d 100644 --- a/harness/tools/genintf.pl +++ b/harness/tools/genintf.pl @@ -20,7 +20,9 @@ while (<STDIN>) { next; } - if (/^\s*EXPORT/) { + if (/^\s*EXPORT_INCLUDE\((.*)\)/) { + print "#include $1\n"; + } elsif (/^\s*EXPORT/) { my $line = "$_"; while (not ($line =~ /;$/)) { my $nextline = <STDIN>; @@ -28,10 +30,7 @@ while (<STDIN>) { $line="$line$nextline"; } - - if ($line =~ /^\s*EXPORT_INCLUDE\((.*)\)/s) { - print "#include $1\n"; - } elsif ($line =~ /^\s*EXPORT\(\s*((?:\w|\s*\*\s*)+)\s*\(\*(\w+)\)\s*\((.*)\)\);/s) { + if ($line =~ /^\s*EXPORT\(\s*((?:\w|\s*\*\s*)+)\s*\(\*(\w+)\)\s*\((.*)\)\);/s) { print "$comment"; print "$1 $2($3);\n\n"; $comment=""; |