[css2] Verify that property (and descriptor) instances are defined in a database, verify that all definitions appear in the spec, verify that the markup and the content match.

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

Author: ianbjacobs

css2/Makefile

@@ -1,6 +1,6 @@
 # Makefile to generate the CSS2 document based on its "source files"
 # Arnaud Le Hors - lehors@w3.org
-# $Id: Makefile,v 1.59 1997-12-16 20:42:06 ijacobs Exp $
+# $Id: Makefile,v 1.60 1997-12-28 23:17:43 ijacobs Exp $
 
 # what needs to be set for every new release:
 THIS_VERSION= http://www.w3.org/Style/Group/9712/WD-css2-971211
@@ -166,6 +166,8 @@ CHKSAMPLE= $(PERL) ./bin/chksample
 MKREFDB = $(PERL) ./bin/mkrefdb
 # check references.
 CHKREFS= $(PERL) ./bin/chkrefs
+# check property/descriptor defs and instances
+CHKPROPS= $(PERL) ./bin/chkprops
 # add reference normative/informative class info.
 ADDREFCLASS= $(PERL) ./bin/addrefclass
 
@@ -461,6 +463,15 @@ checklnx: all
 	-@$(RM) linklint
 	$(LINKLINT) -doc linklint $(FILES)
 
+### check property instances
+
+checkprops: $(SPECSRCS) $(PROPSRC) $(DESCSRC)
+	-@echo "Checking property instances and defs."
+	-@$(CHKPROPS) $(PROPSRC) propinst $(SPECSRCS)
+	-@echo
+	-@echo "Checking descriptor instances and defs."
+	-@$(CHKPROPS) $(DESCSRC) descinst $(SPECSRCS)
+
 # get cvs logs
 
 FROMDATE=1 week ago

css2/bin/Attic/chkprops

@@ -0,0 +1,84 @@
+#!/usr/local/bin/perl
+# Check validity of property instances in sepc.
+# Ian Jacobs - ij@w3.org
+# $Id: chkprops,v 1.1 1997-12-28 23:19:35 ijacobs Exp $
+
+$PROGNAME = substr($0, rindex($0, "/") + 1);
+if ($#ARGV < 1) {
+    warn "Usage: $PROGNAME propdb prefix file1 file2 ...\n";
+    exit 1;
+} else {
+    $propdb = $ARGV[0];
+    shift;
+    $prefix = $ARGV[0];
+    shift;
+}
+
+
+$blockst = "[/][*]";
+$blocket = "[*][/]";
+sub readpropdb {
+    if (!open(DBASE, $_[0])) {
+	warn "$PROGNAME Error: Cannot open dbfile: $_[0]\n";
+	return;
+    }
+    $dbbuf = "";
+    while (<DBASE>) {
+	$dbbuf .= $_;
+    }
+    $_ = $dbbuf;
+    while (/$blockst\s*([\w-]+)\s*;;.*?$blocket/so) {
+	$placeholder = $';
+	$prop = $1;
+	$prop =~ s/^\s+//;
+        # Initialize each property to "False"
+	$propdb{$prop} = "False";
+	$_ = $placeholder;
+    }
+}
+
+
+# copy file in memory
+sub readfile {
+    $buf = "";
+    if (!open(INPUT, $_[0])) {
+	warn "$PROGNAME Error: Cannot open file: $_[0]\n";
+	return;
+    }
+    while (<INPUT>) {
+	$buf .= $_;
+    }
+    close(INPUT);
+}
+
+readpropdb($propdb);
+foreach $file (@ARGV) {
+    print STDOUT "Checking $file\n";
+    if (readfile($file)) {
+	$_ = $buf;
+	while (/<span\s*\bclass\s*=\s*(?:\"$prefix-([^\"]+)\"|$prefix-([^\s>]+))\s*>(.*?)<\/span>/sio) {
+	    $continue = $';
+	    # One of $1 and $2 will be non-empty.
+	    $propkey = "$1$2";
+	    $content = "$3";
+	    if ( ! (exists $propdb{$propkey}) ) {
+		warn "Undefined name $propkey in $file\n";
+	    } else {
+		# This key is referenced from the spec, so set to true
+		$propdb{$propkey} =~ s/False/True/si;
+	    }
+	    if ( $content !~ /\s*'$propkey'\s*/ ) {
+		warn "Content $content not same as name for $propkey in $file\n";
+	    }
+	    $_ = $continue;
+	}
+    }
+}
+
+# For each key in the hash table, see if used in the spec.
+
+while ($key = each %propdb) {
+    if ($propdb{$key} eq "False") {
+	print STDOUT "No instances of property $key in document\n";
+    }
+}

css2/bin/chkprops

@@ -0,0 +1,84 @@
+#!/usr/local/bin/perl
+# Check validity of property instances in sepc.
+# Ian Jacobs - ij@w3.org
+# $Id: chkprops,v 1.1 1997-12-28 23:19:35 ijacobs Exp $
+
+$PROGNAME = substr($0, rindex($0, "/") + 1);
+if ($#ARGV < 1) {
+    warn "Usage: $PROGNAME propdb prefix file1 file2 ...\n";
+    exit 1;
+} else {
+    $propdb = $ARGV[0];
+    shift;
+    $prefix = $ARGV[0];
+    shift;
+}
+
+
+$blockst = "[/][*]";
+$blocket = "[*][/]";
+sub readpropdb {
+    if (!open(DBASE, $_[0])) {
+	warn "$PROGNAME Error: Cannot open dbfile: $_[0]\n";
+	return;
+    }
+    $dbbuf = "";
+    while (<DBASE>) {
+	$dbbuf .= $_;
+    }
+    $_ = $dbbuf;
+    while (/$blockst\s*([\w-]+)\s*;;.*?$blocket/so) {
+	$placeholder = $';
+	$prop = $1;
+	$prop =~ s/^\s+//;
+        # Initialize each property to "False"
+	$propdb{$prop} = "False";
+	$_ = $placeholder;
+    }
+}
+
+
+# copy file in memory
+sub readfile {
+    $buf = "";
+    if (!open(INPUT, $_[0])) {
+	warn "$PROGNAME Error: Cannot open file: $_[0]\n";
+	return;
+    }
+    while (<INPUT>) {
+	$buf .= $_;
+    }
+    close(INPUT);
+}
+
+readpropdb($propdb);
+foreach $file (@ARGV) {
+    print STDOUT "Checking $file\n";
+    if (readfile($file)) {
+	$_ = $buf;
+	while (/<span\s*\bclass\s*=\s*(?:\"$prefix-([^\"]+)\"|$prefix-([^\s>]+))\s*>(.*?)<\/span>/sio) {
+	    $continue = $';
+	    # One of $1 and $2 will be non-empty.
+	    $propkey = "$1$2";
+	    $content = "$3";
+	    if ( ! (exists $propdb{$propkey}) ) {
+		warn "Undefined name $propkey in $file\n";
+	    } else {
+		# This key is referenced from the spec, so set to true
+		$propdb{$propkey} =~ s/False/True/si;
+	    }
+	    if ( $content !~ /\s*'$propkey'\s*/ ) {
+		warn "Content $content not same as name for $propkey in $file\n";
+	    }
+	    $_ = $continue;
+	}
+    }
+}
+
+# For each key in the hash table, see if used in the spec.
+
+while ($key = each %propdb) {
+    if ($propdb{$key} eq "False") {
+	print STDOUT "No instances of property $key in document\n";
+    }
+}