Aren/haiku
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added support for three lines signatures

Browse Source 
git-svn-id: file:///srv/svn/repos/haiku/haiku/trunk@18830 a95241bf-73f2-0310-859d-f6bbb57e9c96
This commit is contained in:
Jérôme Duval 2006-09-14 09:41:08 +00:00
parent 226d853410
commit a18f94dc5b
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/tools/docbook/headersampler/HeaderSampler.pl
View File

@ -217,18 +217,22 @@ sub ValidateDocbook {
open(IN2, $gDocbookpath) || die "Can't open '$gDocbookpath'"; open(IN2, $gDocbookpath) || die "Can't open '$gDocbookpath'";
my $line = ""; my $line = "";
my $last = ""; my $last1 = "";
my $input = $_; my $last2 = "";
my $input = $_ ;
my $pattern = "<title>" . $_ . "</title>" ;
my $found = 0; my $found = 0;
while (<IN2>) { while (<IN2>) {
chomp; chomp;
s/^[\t ]+//; s/^[\t ]+//;
$line = $last . $_ ; s/[\t ]+$//;
if ( index($line, $input) >= 0 ) { $line = $last1 . $last2 . " " . $_ ;
if ( index($line, $pattern) >= 0 ) {
$found = 1; $found = 1;
break; break;
} }
$last = $_; $last1 = $last2;
$last2 = $_;
} }
if ( $found == 0 ) { if ( $found == 0 ) {
print $input . "\n" ; print $input . "\n" ;