csswg-drafts/css21/bin/mkrefdb at 71bff296a92fab5e9555d01951792e5115a51077 · w3c/csswg-drafts · GitHub

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
#!/usr/local/bin/perl
# Make a database of defined references.
# Syntax of database:
# <Reference-key>;<anchor>;<file>;<n-or-i>
# Where <n-or-i> is "n" for normative and "i" for
# informative.
# Ian Jacobs - lehors@w3.org
# $Id: mkrefdb,v 1.4 2006-10-09 18:55:52 ihickson Exp $

$PROGNAME = substr($0, rindex($0, "/") + 1);

if (($_ = $ARGV[0], /^-r/) && $ARGV[0]) {
    shift;
    $realpath = $ARGV[0];
    shift;
} else {
    $realpath = ();
}

if ($#ARGV < 1) {
    print STDERR "Usage: $PROGNAME [-r realpath] references outdb\n";
    exit 1;
} else {
    $reff = $ARGV[0];
    shift;
    $outdb = $ARGV[0];
    shift;
    if (! $realpath) {
	$realpath = $reff;
    }
}

# copy file in memory
sub readfile {
    $buf = "";
    if (!open(INPUT, $_[0])) {
	print STDERR "$PROGNAME Error: Cannot open file: $_[0]\n";
	return;
    }
    while (<INPUT>) {
	$buf .= $_;
    }
    close(INPUT);
}

### main

# search for anchors.
$anchorpre="ref-";
$pattern = "name=\"$anchorpre([^\"]*?)\"";
$normpattern = "class=\"([^\"]*?)\"";
open(DBASE, "> $outdb");
readfile($reff);
$_ = $buf;
$hfil = $realpath;
$hfil =~ s/\.src/\.html/;
while (/$pattern.*?$normpattern/sio) {
    $key = uc($1);
    print DBASE "$key;$anchorpre$key;$hfil;$2\n";
    $_ = $';
}

close(OUTPUT);
close(DBASE);