]> granicus.if.org Git - docbook-dsssl/commitdiff
Handle parameters not really declared in params.xweb
authorNorman Walsh <ndw@nwalsh.com>
Thu, 13 Jun 2002 14:58:56 +0000 (14:58 +0000)
committerNorman Walsh <ndw@nwalsh.com>
Thu, 13 Jun 2002 14:58:56 +0000 (14:58 +0000)
cvstools/paramchk

index cadfc2811ae7a8111a7967a67ba5fd6cc5f7b674..ae31965c282f5bd07ff162e688cd1765b6bc3567 100755 (executable)
@@ -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;