[css2] Fixed bug that left old headers in the db if the chapter had become shorter.

--HG--
extra : convert_revision : svn%3A73dc7c4b-06e6-40f3-b4f7-9ed1dbc14bfc/trunk%401427

Author: bert-github

css2/bin/Attic/addhanch

@@ -3,7 +3,7 @@
 # The files are rwritten.
 # Arnaud Le Hors - lehors@w3.org
 # Modifications by Bert Bos <bert@w3.org>
-# $Id: addhanch,v 2.0 1998-02-02 18:52:15 bbos Exp $
+# $Id: addhanch,v 2.1 1998-03-25 14:07:40 bbos Exp $
 
 use Getopt::Std;
 use lib 'bin';
@@ -162,5 +162,14 @@ $buf =~ s/<!--.*?-->(?!\s*<\/h[1-6])//sgio; # rm comments, except before </h?>
 # Do the real work: insert numbers and anchors
 $buf =~ s/(<h([1-6]).*?(?:title\s*=\s*\"(.*?)\".*?)?>)(.*?)(?:<!--(.*?)-->)?(<\/h[1-6][^>]*>)/addanchor($chap, $i++, $1, $2, $3, $4, $5, $6)/sgieo;
 
+# Remove next keys, if any (may happen if the chapter has become shorter)
+my $file = $chapter[$chap];
+ LOOP: while (1) {
+     my $dbkey = "$file\t$i";
+     last LOOP if (! $anchors{$dbkey});
+     delete $anchors{$dbkey};
+     $i++;
+ }
+
 writefile($output, $buf);
 dbmclose(%anchors);

css2/bin/addhanch

@@ -3,7 +3,7 @@
 # The files are rwritten.
 # Arnaud Le Hors - lehors@w3.org
 # Modifications by Bert Bos <bert@w3.org>
-# $Id: addhanch,v 2.0 1998-02-02 18:52:15 bbos Exp $
+# $Id: addhanch,v 2.1 1998-03-25 14:07:40 bbos Exp $
 
 use Getopt::Std;
 use lib 'bin';
@@ -162,5 +162,14 @@ $buf =~ s/<!--.*?-->(?!\s*<\/h[1-6])//sgio; # rm comments, except before </h?>
 # Do the real work: insert numbers and anchors
 $buf =~ s/(<h([1-6]).*?(?:title\s*=\s*\"(.*?)\".*?)?>)(.*?)(?:<!--(.*?)-->)?(<\/h[1-6][^>]*>)/addanchor($chap, $i++, $1, $2, $3, $4, $5, $6)/sgieo;
 
+# Remove next keys, if any (may happen if the chapter has become shorter)
+my $file = $chapter[$chap];
+ LOOP: while (1) {
+     my $dbkey = "$file\t$i";
+     last LOOP if (! $anchors{$dbkey});
+     delete $anchors{$dbkey};
+     $i++;
+ }
+
 writefile($output, $buf);
 dbmclose(%anchors);