testautomation/xml/optional/input/docbook/programlisting.003.xml

   1 <?xml version="1.0" encoding="utf-8"?>
   2 <!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN"
   3                   "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd">
   4 <article>
   5 <articleinfo>
   6 <title>Unit Test: programlisting.003</title>
   7 <releaseinfo role="CVS">$Id: programlisting.003.xml,v 1.2 2008-07-11 07:54:30 rt Exp $</releaseinfo>
   8 <author><firstname>Norman</firstname><surname>Walsh</surname>
   9         <affiliation><address><email>ndw@nwalsh.com</email></address></affiliation>
  10 </author>
  11 </articleinfo>
  12
  13 <programlisting linenumbering="numbered">@rem = '--*-Perl-*--
  14 @echo off
  15 perl.exe %_batchname %$
  16 goto endofperl
  17 @rem ';
  18
  19 # Compress mail...
  20
  21 require 'n:/home/nwalsh/lib/cygnus.pl';
  22 require 'timelocal.pl';
  23 use Cwd;
  24
  25 select (STDERR); $| = 1;
  26 select (STDOUT); $| = 1;
  27
  28 @DIRS = ("/home/nwalsh/Mail");
  29 while (@DIRS) {
  30     $dir = shift @DIRS;
  31     opendir (DIR, $dir);
  32     while ($fname = readdir(DIR)) {
  33         $file = "$dir/$fname";
  34         next if ! -d $file;
  35         next if $fname =~ /^\.\.?$/;
  36
  37         print "$file\n";
  38         push (@DIRS, $file);
  39         &amp;compress ($file);
  40     }
  41 }
  42
  43 exit;</programlisting>
  44
  45 </article>