[docbook-checkins] CVS: testdocs extensions.xml,NONE,1.1 sample.txt,NONE,1.1 Makefile,1.2,1.3 sections.xml,1.2,1.3

[Norman W. <nw...@us...>]

Update of /cvsroot/docbook/testdocs
In directory usw-pr-cvs1:/tmp/cvs-serv8778

Modified Files:
	Makefile sections.xml 
Added Files:
	extensions.xml sample.txt 
Log Message:
Updated test documents

--- NEW FILE ---
<?xml version='1.0'?>
<!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN"
  "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd">
<article>
<title>Extensions</title>

<para>This document attempts to exercise all of the stylesheet
extension functions.</para>

<section><title>Callouts</title>

<para>Callouts using <sgmltag>programlistingco</sgmltag>:</para>

<programlistingco>
<areaspec>
<area coords="1" id="prologue"/>
<area coords="4" id="skipeof"/>
<areaset coords="" id="xreq">
<area coords="9" id="require1"/>
<area coords="10" id="require2"/>
</areaset>
<area coords="11 12" id="use"/>
<area coords="27" id="funccall"/>
</areaspec>
<programlisting>@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);
        &amp;compress ($file);
    }
}

exit;</programlisting>
<calloutlist>
<callout arearefs="prologue">
<para>The prologue handles embedding a Perl script in a DOS batch file.</para>
</callout>
<callout arearefs="skipeof">
<para>The <literal>goto</literal> statement, interpreted by the DOS batch
file interpreter, skips over the body of the Perl script.</para>
</callout>
<callout arearefs="require1">
<para>The <literal>require</literal> statement sources in external program
fragments.</para>
</callout>
<callout arearefs="use">
<para>The <literal>use</literal> statement is similar, but has additional
utility.  It is a Perl5 function.  (Note that this callout area specifies
both a line and a column.)</para>
</callout>
<callout arearefs="funccall">
<para>This is a user subroutine call.</para>
</callout>
</calloutlist>
</programlistingco>
</section>

<section><title>Text Insert</title>

<programlisting><inlinemediaobject>
<imageobject>
<imagedata format="linespecific" fileref="sample.txt"/>
</imageobject>
</inlinemediaobject></programlisting>

</section>

<section><title>Line Numbering</title>

<programlisting linenumbering="numbered">@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);
        &amp;compress ($file);
    }
}

exit;</programlisting>

</section>

<section><title>All Three!</title>

<programlistingco>
<areaspec>
<area coords="1" id="prologue2"/>
<area coords="4" id="skipeof2"/>
<areaset coords="" id="xreq2">
<area coords="9" id="require12"/>
<area coords="10" id="require22"/>
</areaset>
<area coords="11 12" id="use2"/>
<area coords="27" id="funccall2"/>
</areaspec>
<programlisting linenumbering="numbered"
><?dbhtml linenumbering.everyNth="2" linenumbering.separator=" >"
?><?dbfo linenumbering.everyNth="2" linenumbering.separator=" >"
?><inlinemediaobject>
<imageobject>
<imagedata format="linespecific" fileref="sample.txt"/>
</imageobject>
</inlinemediaobject></programlisting>
</programlistingco>

</section>

</article>


--- NEW FILE ---
@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);
        &amp;compress ($file);
    }
}

exit;

Index: Makefile
===================================================================
RCS file: /cvsroot/docbook/testdocs/Makefile,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** Makefile	2001/05/11 13:37:46	1.2
--- Makefile	2001/05/21 18:13:02	1.3
***************
*** 6,11 ****
  
  CHUNK=0
! STYLEOPT=
! 
  
  FORMATTER=xep
--- 6,10 ----
  
  CHUNK=0
! STYLEOPT=use.extensions=1
  
  FORMATTER=xep

Index: sections.xml
===================================================================
RCS file: /cvsroot/docbook/testdocs/sections.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** sections.xml	2001/05/12 21:14:46	1.2
--- sections.xml	2001/05/21 18:13:02	1.3
***************
*** 13,16 ****
--- 13,17 ----
  <sect1>
    <title>sect1 title</title>
+   <subtitle>sect1 subtitle</subtitle>
  
    <para>This is a test paragraph.</para>