From: Norman Walsh <ndw@nwalsh.com>
Date: Thu, 13 Jun 2002 14:58:56 +0000 (+0000)
Subject: Handle parameters not really declared in params.xweb
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=7ed1e06975f70d098377f3c4fbc55ef7c8d83dce;p=docbook-dsssl

Handle parameters not really declared in params.xweb
---

diff --git a/cvstools/paramchk b/cvstools/paramchk
index cadfc2811..ae31965c2 100755
--- a/cvstools/paramchk
+++ b/cvstools/paramchk
@@ -44,10 +44,12 @@ while (<F>) {
 
     if (/<src:fragref\s+linkend=[\"\']([^\"\']+)\.frag[\"\']/) {
 	my $param = $1;
+
 	if ($params{$param} != 0) {
 	    warn "Duplicate fragref: $param\n";
 	    $ok = 0;
 	}
+
 	if (!defined $params{$param}) {
 	    warn "Fragref for unused param: $param\n";
 	    $ok = 0;
@@ -59,6 +61,12 @@ while (<F>) {
 close (F);
 
 foreach my $param (keys %params) {
+    # nb: chunker.output.* and saxon.character.representation are special!
+    if ($param eq 'saxon.character.representation'
+	|| $param =~ /^chunker\.output\./) {
+	next;
+    }
+
     if ($params{$param} == 0) {
 	warn "No fragref for param: $param\n";
 	$ok = 0;