src/etc/check-links.pl

   1 #!/usr/bin/perl -w
   2 # Copyright 2014 The Rust Project Developers. See the COPYRIGHT
   3 # file at the top-level directory of this distribution and at
   4 # http://rust-lang.org/COPYRIGHT.
   5 #
   6 # Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
   7 # http://www.apache.org/licenses/LICENSE-2.0> or the MIT license
   8 # <LICENSE-MIT or http://opensource.org/licenses/MIT>, at your
   9 # option. This file may not be copied, modified, or distributed
  10 # except according to those terms.
  11
  12 my $file = $ARGV[0];
  13
  14 my @lines = <>;
  15
  16 my $anchors = {};
  17
  18 my $i = 0;
  19 for $line (@lines) {
  20     $i++;
  21     if ($line =~ m/id="([^"]+)"/) {
  22         $anchors->{$1} = $i;
  23     }
  24 }
  25
  26 $i = 0;
  27 for $line (@lines) {
  28     $i++;
  29     while ($line =~ m/href="#([^"]+)"/g) {
  30         if (! exists($anchors->{$1})) {
  31             print "$file:$i: $1 referenced\n";
  32         }
  33     }
  34 }