#!/usr/local/bin/perl
# Verify the following in the sample style sheet:
# 1) All properties are correct
# 2) All properties are represented
# Ian Jacobs - ij@w3.org
# $Id: chksample,v 1.5 2006-10-09 18:55:52 ihickson Exp $
# To use long names like $INPUT_RECORD_SEPARATOR.
use English;
$PROGNAME = substr($0, rindex($0, "/") + 1);
if (!$ARGV[0] || !$ARGV[1]) {
print "Usage: $PROGNAME style_sheet propertydb\n";
exit 1;
} else {
$style = $ARGV[0];
shift;
$propdbf = $ARGV[0];
shift;
}
if (($_ = $ARGV[0], /^-e/) && $ARGV[1]) {
shift;
$elements = $ARGV[1];
shift;
} else {
$elements = "";
}
# regexps
$sp = "[ \t\n]*"; # whitespace
$propname = "[a-zA-Z-]+";
$propval = "[a-zA-Z0-9.-]+";
$patt = "$sp(.*?)$sp";
$blockst = "[/][*]";
$blocket = "[*][/]";
sub readdbfile {
if (!open(DBASE, $_[0])) {
print STDERR "$PROGNAME Error: Cannot open dbfile: $_[0]\n";
return;
}
$dbbuf = "";
while () {
$dbbuf .= $_;
}
$_ = $dbbuf;
while (/$blockst$patt;;.*?$blocket/s) {
$placeholder = $';
# Initialize each property to "False"
my @propnames = split(/\s+/, $1);
foreach my $i (@propnames) {
$propdb{$i} = "False";
}
$_ = $placeholder;
}
}
sub readstyle {
if (!open(STYLE, $_[0])) {
print STDERR "$PROGNAME Error: Cannot open style sheet: $_[0]\n";
return;
}
$buf = "";
$INPUT_RECORD_SEPARATOR="{";
while ($buf = ) {
$INPUT_RECORD_SEPARATOR="}";
unless (eof(STYLE)) {
$rule = ;
$INPUT_RECORD_SEPARATOR="{";
$_ = $rule;
while (/$sp($propname)$sp:$sp($propval);?/) {
$placeholder = $';
$property = $1;
if (! exists $propdb{$property}) {
print STDERR "Unknown: $property.\n";
} else {
$propdb{$property} = "True";
}
$_ = $placeholder;
}
}
}
}
### main
@propdb = ();
readdbfile($propdbf);
readstyle($style);
foreach $key (sort %propdb) {
if ($propdb{$key} eq "False") {
print STDOUT "Unused: $key\n";
}
}