From: Bob Stayton <bobs@sagehill.net>
Date: Thu, 18 Jan 2007 07:00:43 +0000 (+0000)
Subject: Now copies misc files from releasetools/db5files subdirectory.
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=a91fe4d2456617034d716d5b0c01224adb776265;p=docbook-dsssl

Now copies misc files from releasetools/db5files subdirectory.
---

diff --git a/releasetools/makedb5xsl b/releasetools/makedb5xsl
new file mode 100644
index 000000000..10cf5e917
--- /dev/null
+++ b/releasetools/makedb5xsl
@@ -0,0 +1,482 @@
+#!/usr/bin/perl -w -- #  -*- Perl -*-
+#
+#  makedb5xsl.pl - generate a parallel set of DocBook5 namespaced 
+#                  stylesheet directories from a directory of
+#                  non-namespaced stylesheets.
+#
+# $Id$
+#
+
+my $Usage = '
+USAGE:
+  makedb5xsl input-dir output-dir
+
+  where:
+    input-dir  is the directory containing non-namespaced stylesheets
+    output-dir is the destination for the db5 stylesheets
+
+  Note: an existing output-dir will be completely removed
+        before creating new output.
+';
+
+#######################################################
+# Modules to use
+# 
+use strict;
+use IO::File;
+use File::Basename;
+use File::Path;
+use File::Find;
+use File::Copy;
+
+#######################################################
+# Global variables
+# 
+my $srcdir;
+my $destdir;
+
+my @dirlist;
+my @passthru;
+my @xslfiles;
+
+# Regular expressions
+
+# namespace name regexp
+my $ns = "[A-Za-z]+";
+# other names
+my $n = "[A-Za-z][A-Za-z0-9]+";
+# xml names
+my $w = "[A-Za-z][-A-Za-z0-9._]+";
+# docbook element names (lowercase and numbers)
+my $dbname = "[a-z][a-z0-9]+";
+
+# Don't add namespace to any xsl files in these directories
+my @PassthruDirs = (
+'extensions',
+'profiling',
+'images',
+'template',
+'tools',
+'build',
+'slides',
+'website',
+'wordml',
+);
+
+# Don't add namespace to these particular files
+my @PassthruFiles = (
+'html-rtf.xsl',
+'html2xhtml.xsl',
+'xsl2profile.xsl',
+);
+
+umask 002;
+
+#######################################################
+#   main
+# 
+
+# Get the source and output directories
+
+$srcdir = $ARGV[0];
+$destdir = $ARGV[1];
+
+unless ( $srcdir ) {
+  print "ERROR: must specify input directory of non-namespaced "
+        . " stylesheets. Exiting.\n";
+  die "$Usage\n";
+}
+
+unless ( -d $srcdir ) {
+  print "ERROR: specified input directory does not exist. Exiting.\n";
+  die "$Usage\n";
+}
+
+unless ( $destdir ) {
+  print "ERROR: must specify output directory. Exiting.\n";
+  die "$Usage\n";
+  
+}
+
+# Remove any previous output completely
+
+if ( -d $destdir) {
+  print "Removing old output directory $destdir.\n";
+
+  unless ( rmtree($destdir) ) {
+    die "ERROR: cannot remove previous output directory. Exiting.\n";
+  }
+}
+
+# Create new output directory.
+print "Creating the output directory $destdir.\n";
+
+unless ( mkpath($destdir)  ) {
+  die "ERROR: cannot create output directory $destdir.\n";
+}
+
+copyDirectories($srcdir);
+
+copyPassthru();
+
+copyXsl();
+
+addFiles();
+
+
+#######################################################
+# copyDirectories - create the output directories
+# 
+sub copyDirectories {
+
+  my ($src) = @_;
+  
+  # populate @dirlist
+  find(\&dirlist, $src );
+
+  foreach my $d (@dirlist) {
+    $d =~ s/$srcdir/$destdir/;
+    print "$d\n";
+    mkdir $d;
+  }
+
+
+}
+
+#######################################################
+# dirlist - list directories (used by find)
+# 
+sub dirlist {
+
+  if ( -d $_  ) {
+    push(@dirlist, $File::Find::name);
+  }
+}
+
+#######################################################
+# copyPassthru - copy non-XSL files to output
+# 
+sub copyPassthru {
+
+  # populate @passthru
+  find(\&passthruFiles, $srcdir );
+
+  foreach my $f (@passthru) {
+    my $dest = $f;
+    $dest =~ s/$srcdir/$destdir/;
+    print STDOUT "$f\n";
+    copy ($f, $dest);
+  }
+
+
+}
+
+#######################################################
+# passthruFiles - list non-xsl files to copy
+# 
+sub passthruFiles {
+
+  if ( -f $_ ) {
+    unless ( /\.xsl$/ or /\.ent$/ ) {
+      push(@passthru, $File::Find::name);
+    }
+  }
+}
+
+#######################################################
+# copyXsl - copy XSL files to output, possibly filtering
+# 
+sub copyXsl {
+
+  # populate @xslfiles
+  find(\&xslFiles, $srcdir );
+
+  foreach my $f (@xslfiles) {
+    my $dest = $f;
+    $dest =~ s/$srcdir/$destdir/;
+    print STDOUT "$f\n";
+
+    my $basename = basename $f;
+    my $dirname = dirname $f;
+    $dest =~ m|^$destdir/(.*?)/|;
+    my $dir = $1;
+    if ( grep /^$basename$/,@PassthruFiles ) {
+      copy($f, $dest);
+    }
+    elsif ( $f =~ /stripns\.xsl/ ) {
+      # skip it
+    }
+    elsif ( grep /^$dir$/, @PassthruDirs ) {
+      copy($f, $dest);
+    }
+    else {
+      nsfilter($f, $dest);
+    }
+  }
+
+
+}
+
+#######################################################
+# xslFiles - list xsl files to process
+# 
+sub xslFiles {
+
+  if ( -f $_ ) {
+    if ( /\.xsl$/ or /\.ent$/ ) {
+      push(@xslfiles, $File::Find::name);
+    }
+  }
+}
+
+#######################################################
+# nsfilter - add namespace prefix to element names
+# 
+sub nsfilter {
+
+  my ($infile, $outfile) = @_;
+  
+  # Open and read the whole file into $_ variable for parsing
+  my $Filehandle = IO::File->new($infile)
+      or die "Can't open file $infile $!\n";
+  read ($Filehandle, $_, -s $infile);
+  $Filehandle->close;
+  
+  my $Output = IO::File->new("> $outfile") 
+     or die "Cannot write to output file $outfile.\n";
+  
+  # Set to autoflush 
+  select($Output); $| = 1;
+  
+  # Add the docbook5 namespace declaration to root element
+  
+  s|(xmlns:xsl\s*=\s*"http://www.w3.org/1999/XSL/Transform"(?!>))(\s*\n?)(\s*)|$1$2$3xmlns:d="http://docbook.org/ns/docbook"\n$3|s;
+  
+  # Convert stripNS to addNS
+  s|href="../common/stripns.xsl"|href="../common/db5.xsl"|sg;
+  
+  s|(\s*\n*)(\s*)(<xslo?:when)\s+test\s*=\s*"[^"]*?self::db:[^"]*?">.*?(</xslo?:when>)|$1$2$3 test="namespace-uri\(\*\[1\]\) != 'http://docbook.org/ns/docbook'">\n$2  <xsl:message>Adding DocBook namespace to version 4 DocBook document</xsl:message>\n$2  <xsl:variable name="addns">\n$2    <xsl:apply-templates mode="addNS"/>\n$2  </xsl:variable>\n$2  <xsl:apply-templates select="exsl:node-set\(\$addns\)"/>\n$2$4|sg;
+  
+  # Add namespace d to exclude-result-prefixes
+  
+  if ( $_ =~ /exclude-result-prefixes\s*=/ ) {
+    s|(exclude-result-prefixes\s*=\s*".*?)"|$1 d"|s;
+  }
+  else {
+    s|(<xsl:stylesheet)|$1 exclude-result-prefixes="d"\n                |s;
+  }
+  
+  # Process certain XSL attributes to add d: namespace if needed
+  # and output everything using this while loop.
+  
+  while ( /^(.*?)((match|select|test|count|from|use|elements)(\s*=\s*("|'))(.*?)(\5)|(select)(\s*=\s*("|'))(.*?)(\5))/sg ) {
+  
+    my $notname = $1;
+    my $attname = $3;
+    my $prefix =  $4;
+    my $attvalue = $6;
+    my $post = $7;
+    my $rest = $';
+    
+    &filter($notname, $Output);
+
+    print $Output $attname . $prefix;
+    
+    # special case: pass through manpages stylesheet $refentry.metadata/*
+    if ( $attvalue =~ m|\$refentry.metadata/| ) {
+      print $Output $attvalue;
+      $attvalue = '';
+    }
+
+    while ( $attvalue =~ /^(.*?)(\$$w|$w\(|$ns:$n|$w:|db:$n|\@$n:$n|'.*?'|&$w;|\@$w|not \(|stringlength \(|normalize-space \()(.*$)/sg ) {
+  
+      # process the leading content which is not pass through
+      &addnamespace($1, $Output);
+  
+      print $Output $2;
+      $attvalue = $3;    # and recurse
+    }
+  
+    &addnamespace($attvalue, $Output);
+  
+    print $Output $post;
+  
+    $_ = $rest;
+  
+  }
+  
+  # print the leftovers
+  &filter($_, $Output);
+
+  close $Output;
+
+}
+
+
+# fix any special case params like certain manpage params
+# that put element names inside param string
+
+sub filter {
+  my ($string, $Output) = @_;
+
+  # Fix up index ENTITY declarations
+  $string = &indexentitydecl($string);
+  
+  while ( $string =~ m|^(.*?)(<xsl:param([^>]+[^/])>)(.*?)(</xsl:param>)|sg  ) {
+    my $before = $1;
+    my $starttag = $2;
+    my $startstuff = $3;
+    my $value =  $4;
+    my $endtag = $5;
+    my $rest = $';
+
+    $startstuff =~ /name="(.*?)"/;
+    my $pname = $1;
+
+    print $Output $before;
+    print $Output $starttag;
+
+    # add namespace to elements inside these params
+    if ( $pname =~ /(^refentry.manual.fallback.profile$|^refentry.source.fallback.profile$|^refentry.version.profile$|^refentry.date.profile$)/ ) {
+
+      while ( $value =~ /^(.*?)(\$$w|$w\(|$ns:$n|$w:|db:$n|\@$n:$n|'.*?'|&$w;|\@$w|not \(|stringlength \(|normalize-space \()(.*$)/sg ) {
+  
+        # process the leading content which is not pass through
+        &addnamespace($1, $Output);
+  
+        print $Output $2;
+        $value = $3;    # and recurse
+      }
+  
+      &addnamespace($value, $Output);
+    }
+    else {
+      print $Output $value;
+    }
+
+    print $Output $endtag;
+
+    $string = $rest;
+    
+  }
+
+  print $Output $string;
+
+}
+
+sub indexentitydecl {
+  my ($string) = @_;
+
+  my $newstring = '';
+
+  while ( $string =~ m@^(.*?)(<!ENTITY\s+(\w+)\s+('|"))(.*?)(\4\s*>)@sg  ) {
+    my $before = $1;
+    my $entitystart = $2;
+    my $entityname = $3;
+    my $value =  $5;
+    my $entityend = $6;
+    my $rest = $';
+
+    $newstring .= $before;
+    $newstring .= $entitystart;
+
+    while ( $value =~ /^(.*?)(\$$w|$w\(|$ns:$n|$w:|db:$n|\@$n:$n|'.*?'|&$w;|\@$w|not \(|stringlength \(|normalize-space \()(.*$)/sg ) {
+
+      # process the leading content which is not pass through
+      $newstring .= &namespacefilter($1);
+
+      $newstring .= $2;
+      $value = $3;    # and recurse
+    }
+
+    $newstring .= &namespacefilter($value);
+
+    $newstring .= $entityend;
+
+    $string = $rest;
+    
+  }
+
+  $newstring .= $string;
+
+  return $newstring;
+}
+
+
+# prints a filtered string to the designated output
+sub addnamespace {
+  my ($string, $Output) = @_;
+
+  my $newstring = &namespacefilter($string);
+  print $Output $newstring;
+}
+
+# Returns a new string with namespace prefixes added
+sub namespacefilter {
+
+  my ($string) = @_;
+
+  my $newstring = '';
+
+  while ( $string =~ /^(.*?)($dbname)(.*?$)/s ) {
+
+    my $pre = $1;
+    my $name = $2;
+    my $rest = $3;
+
+    $newstring .= $pre;
+
+    # pass through XSL key words and mixed case names and olink elements
+    if ( $name =~ /(^mod$|^div$|^and$|^or$|^ttl$|^xreftext$|^dir$|^sitemap$|^obj$|^document$|^.*[A-Z].*$)/ ) {
+
+      # pass this name through
+      $newstring .= $name;
+    }
+    # pass through man template temporary elements
+    elsif ( $name =~ /(^cell$|^notesource$|^bold$|^italic$|^div$|^p$|^substitution$)/ ) {
+
+      # pass this name through
+      $newstring .= $name;
+    }
+    # pass through references to man temporary elements
+    elsif ( $name =~ /(^date$|^title$|^manual$|^source$)/ and $pre =~ /refentry\.metadata/ ) {
+
+      # pass this name through
+      $newstring .= $name;
+    }
+    # Pass through if preceded or followed by uppercase letters
+    elsif ($pre =~ /[-._A-Z]$/ || $rest =~ /^[-._A-Z]/) {
+      $newstring .= $name;
+    }
+    else {
+      # add the namespace prefix
+      $newstring .= "d:" . $name;
+    }
+
+    $string = $rest;
+  }
+
+  # print any leftovers
+  $newstring .= $string;
+
+  return $newstring;
+}
+
+
+#######################################################
+# addFiles - add some new files to db5xsl
+# 
+sub addFiles {
+  my $miscdir = dirname $0;
+  $miscdir .= '/db5files';
+  print STDOUT "miscdir is $miscdir" . "\n";
+  copy("$miscdir/db5.xsl", "$destdir/common");
+  copy("$miscdir/README", "$destdir/README");
+  copy("$miscdir/VERSION", "$destdir/VERSION");
+  copy("$miscdir/manpages.table.xsl", "$destdir/manpages/table.xsl");
+
+  # delete these obsolete files.
+
+  # Replace stripns.xsl with db5.xsl in profiling module
+  &nsfilter("$srcdir/profiling/profile.xsl", "$destdir/profiling/profile.xsl");
+}