# Unit Test: docbook-43.001.xml

$Id: docbook-43.001.xml 4056 2004-11-23 13:28:50Z nwalsh $
Norman Walsh

    ndw@nwalsh.com

Glossary List Title

Some Term

  Some definition.

> Block Quote Title

> A. Nonymous

> Some memorable quotation.

The assignment statement `x=1` is code.

HTML Table caption
HTML | Table

    #!/usr/bin/perl -- # --*-Perl-*--

    use Getopt::Std;

    $usage = "Usage: $0 [-q] [-u|-p|-m] file [ file ... ]\n";

    die $usage if ! getopts('qupm');

    die $usage if ($opt_p + $opt_u + $opt_m) != 1;

    $file = shift @ARGV || die $usage;

    $opt = '-u' if $opt_u;
    $opt = '-p' if $opt_p;
    $opt = '-m' if $opt_m;

A Task

This task doesn’t accomplish anything.

Do something else first.

- Do This

- Do That

- Do one of these things:

- Do A

- Do B

- Do C

- Do the other thing

See some more interesting task after you’ve done this one.

An Organization Name can now occur inline.

The URI http://norman.walsh.name should really be a ulink.

    while ($file) {
        print "Converting $file to $opt linebreaks.\n" if !$opt_q;
        open (F, "$file");
        binmode F;
        read (F, $_, -s $file);
        close (F);

        s/\r\n/\n/sg;
        s/\r/\n/sg;

        if ($opt eq '-p') {
    	s/\n/\r\n/sg;
        } elsif ($opt eq '-m') {
    	s/\n/\r/sg;
        }

        open (F, ">$file");
        binmode F;
        print F $_;
        close (F);

        $file = shift @ARGV;
    }