1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#! /usr/bin/perl
my $guard_symbol = "INC_BARNOWL_OWL_PROTOTYPES_H";
print "#ifndef $guard_symbol\n";
print "#define $guard_symbol\n";
foreach $file (@ARGV) {
open(FILE, $file);
print "/* -------------------------------- $file -------------------------------- */\n";
while (<FILE>) {
if (/^\S/
&& (/\{\s*$/ || /\)\s*$/)
&& !/\}/
&& !/^\{/
&& !/^#/
&& !/^static/
&& !/^system/
&& !/^XS/
&& !/\/\*/
&& !/ZWRITEOPTIONS/
&& !/owlfaim_priv/)
{
s/\s+\{/\;/;
s/\)[ \t]*$/\)\;/;
print "extern ";
print;
} elsif (/^#if/ || /^#else/ || /^#endif/) {
print;
}
}
close(FILE);
print "\n";
}
print "#endif /* $guard_symbol */\n";
|
