#!/usr/local/bin/perl
# Add links from instances to definitions
# Write to stdout
#
# Arnaud Le Hors - lehors@w3.org
# $Id: addlinks,v 2.1 1998-02-10 17:49:23 bbos Exp $
use lib 'bin';
use utils;
$PROG = substr($0, rindex($0, "/") + 1);
$USAGE = "Usage: $PROG dbase file [ins-class/def-class [ins-class/def-class...]]\n";
# $1=starttag, $2=class excl. prefix, $3=contents, $4=endtag
$pre = '(]*?class\s*=\s*[\"\']?';
$post = '([^\s\"\'>]+)[\"\']?.*?>)(.*?)()';
# compute relative path from 1 to 2
sub rpath {
@path1 = split("/", $_[0]);
@path2 = split("/", $_[1]);
pop(@path1);
while ($path1[0] eq $path2[0]) {
shift(@path1);
shift(@path2);
}
$root = "";
foreach $el (@path1) {
$root .= "../";
}
$path = join("/", @path2);
return "$root$path";
}
# Find the URL for $_[0] in %anchors, create around/in element
sub gen_anch {
my ($key, $stag, $content, $etag) = @_;
my $anch = $anchors{$key};
if (! defined $anch) {
warn "$PROG: index $_[0] not found\n";
$anch = "";
}
if ($content =~ /^]*?href\s*=/sio) {
# An A with an HREF at the start, give up...
warn "$PROG: cannot add link to \"$anch\", there is a link already:
\t$content\n";
return "$stag$content$etag";
} elsif ($content =~ /^
return "$stag before the existing one
return "$stag$`$&$'$etag";
} else {
# No in content, enclose whole element
return "$stag$content$etag";
}
}
### main
($dbase = $ARGV[0]) || die $USAGE;
shift;
($file = $ARGV[0]) || die $USAGE;
shift;
dbmopen(%anchors, $dbase, 0666) || die "$PROG: cannot open database $dbase\n";
# Load file
$buf = readfile($file);
# Loop over class/dbase pairs
while (($class1, $class2) = split(/\//, $ARGV[0])) {
shift;
$buf =~ s/$pre$class1$post/gen_anch("$class2$2", $1, $3, $4)/sieg;
}
dbmclose(%anchors);
# Write result
print $buf;