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
use File::Find;
use File::Basename;
chdir(dirname($0));
chdir('..');
while (chomp($header=<>)) {
$header=basename($header);
$cppfile=$header;
$cppfile=~s/(\.h$)/.cpp/;
$cppfile=~s/SoVRML//;
$found=0;
find(\&wanted, '.');
if (! $found) {
print "${cppfile} not found\n";
exit(1);
}
}
sub wanted {
if ($_ eq $cppfile) {
$found=1;
local $/;
open(CPPFILE,"<$_");
$lines=<CPPFILE>;
close(CPPFILE);
if (! ($lines=~/\/*!\s+\\file\s+/)) {
$lines=~s/(#include\s+[<"].*?${header}[>"])/\/*! \\file ${header} *\/\n$1/g;
open(CPPFILE,">$_");
print CPPFILE $lines;
close(CPPFILE);
}
}
}
|
