DocBook XSLT 2.0 Stylesheet output: programlistingco.002.xml

Expected (5 differences)Actual (1 differences)
<html>
   <head>
      <link href="../../resources/css/db-prism.css" rel="stylesheet" type="text/css"/>
      <link href="../../resources/css/default.css" rel="stylesheet" type="text/css"/>
      <link href="../../resources/css/prism.css" rel="stylesheet" type="text/css"/>
      <meta charset="utf-8"/>
      <meta content="DocBook XSL 2.0 Stylesheets Vxxx" name="generator"/>
      <script src="../../resources/js/dbmodnizr.js" type="text/javascript"/>
      <title>Article wrapper</title>
   </head>
   <body>
      <article class="article" id="R.1">
         <header class="article-titlepage">
            <h2>Article wrapper</h2>
         </header>
         <div class="lists-of-titles">
            <div class="toc">
               <p>
                  <b>Table of Contents</b>
               </p>
               <ul class="toc">
                  <li>
                     <span>
                        <a href="#R.1.2">1. imagedata/@fileref + numbering + sep.</a>
                     </span>
                  </li>
                  <li>
                     <span>
                        <a href="#R.1.3">2. inlinegraphic/@fileref + numbering</a>
                     </span>
                  </li>
                  <li>
                     <span>
                        <a href="#R.1.4">3. textdata/@fileref w/o numbering or sep</a>
                     </span>
                  </li>
               </ul>
            </div>
         </div>
         <section class="section" id="R.1.2">
            <div class="section-titlepage">
               <h2>1. imagedata/@fileref + numbering + sep.</h2>
            </div>
            <pre class="programlisting language-none" data-line="1,4,9,10,11,27">
               <code>@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;</code>
            </pre>
         </section>
         <section class="section" id="R.1.3">
            <div class="section-titlepage">
               <h2>2. inlinegraphic/@fileref + numbering</h2>
            </div>
            <pre class="programlisting language-none" data-line="1,4,9,10,11,27">
               <code>@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;</code>
            </pre>
         </section>
         <section class="section" id="R.1.4">
            <div class="section-titlepage">
               <h2>3. textdata/@fileref w/o numbering or sep</h2>
            </div>
            <pre class="programlisting language-none" data-line="1,4,9,10,11,27">
               <code>@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;</code>
            </pre>
         </section>
      </article>
      <script src="../../resources/js/prism.js"/>
   </body>
</html>
<html>
   <head>
      <link href="../../resources/css/db-prism.css" rel="stylesheet" type="text/css"/>
      <link href="../../resources/css/default.css" rel="stylesheet" type="text/css"/>
      <link href="../../resources/css/prism.css" rel="stylesheet" type="text/css"/>
      <meta charset="utf-8"/>
      <meta content="DocBook XSL 2.0 Stylesheets Vxxx" name="generator"/>
      <script src="../../resources/js/dbmodnizr.js" type="text/javascript"/>
      <title>Article wrapper</title>
   </head>
   <body>
      <article class="article" id="R.1">
         <header class="article-titlepage">
            <h2>Article wrapper</h2>
         </header>
         <div class="lists-of-titles">
            <div class="toc">
               <p>
                  <b>Table of Contents</b>
               </p>
               <ul class="toc">
                  <li>
                     <span>
                        <a href="#R.1.2">1. imagedata/@fileref + numbering + sep.</a>
                     </span>
                  </li>
                  <li>
                     <span>
                        <a href="#R.1.3">2. inlinegraphic/@fileref + numbering</a>
                     </span>
                  </li>
                  <li>
                     <span>
                        <a href="#R.1.4">3. textdata/@fileref w/o numbering or sep</a>
                     </span>
                  </li>
               </ul>
            </div>
         </div>
         <div class="content">
            <section class="section" id="R.1.2">
               <div class="section-titlepage">
                  <h2>1. imagedata/@fileref + numbering + sep.</h2>
               </div>
               <div class="content">
                  <pre class="programlisting language-none" data-line="1,4,9,10,11,27">
                     <code>@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;</code>
                  </pre>
               </div>
            </section>
            <section class="section" id="R.1.3">
               <div class="section-titlepage">
                  <h2>2. inlinegraphic/@fileref + numbering</h2>
               </div>
               <div class="content">
                  <pre class="programlisting language-none" data-line="1,4,9,10,11,27">
                     <code>@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;</code>
                  </pre>
               </div>
            </section>
            <section class="section" id="R.1.4">
               <div class="section-titlepage">
                  <h2>3. textdata/@fileref w/o numbering or sep</h2>
               </div>
               <div class="content">
                  <pre class="programlisting language-none" data-line="1,4,9,10,11,27">
                     <code>@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;</code>
                  </pre>
               </div>
            </section>
         </div>
      </article>
      <script src="../../resources/js/prism.js"/>
   </body>
</html>
The “current” CSS styling is applied to the this entire document; the results in this column may be anomalous. Also, image links are broken in this column. 

Article wrapper

1. imagedata/@fileref + numbering + sep.

@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;

2. inlinegraphic/@fileref + numbering

@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;

3. textdata/@fileref w/o numbering or sep

@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;

Article wrapper

1. imagedata/@fileref + numbering + sep.

@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;

2. inlinegraphic/@fileref + numbering

@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;

3. textdata/@fileref w/o numbering or sep

@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}

exit;

XML source