From: Manoj Srivastava <srivasta@debian.org>
Date: Thu, 16 Jun 2005 05:25:11 +0000 (+0000)
Subject: Manually added patch 117
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=712f8553a790141cb9c9a05af364781899e311a9;p=debian%2Fdebian-policy.git

Manually added patch 117

git-archimport-id: srivasta@debian.org--etch/debian-policy--devel--3.0--patch-118
---

diff --git a/DebianDoc_SGML/Format/LaTeX.pm b/DebianDoc_SGML/Format/LaTeX.pm
new file mode 100644
index 0000000..51c4748
--- /dev/null
+++ b/DebianDoc_SGML/Format/LaTeX.pm
@@ -0,0 +1,513 @@
+## -*- perl -*-
+## ----------------------------------------------------------------------
+## DebianDoc_SGML/Format/LaTeX: SGML conversion specification for LaTeX output format
+## ----------------------------------------------------------------------
+## Copyright (C) 1998-2001 Ardo van Rangelrooij
+## Copyright (C) 1997 Christian Leutloff
+##
+## This is free software; see the GNU General Public Licence
+## version 2 or later for copying conditions.  There is NO warranty.
+## ----------------------------------------------------------------------
+
+## ----------------------------------------------------------------------
+## package interface definition
+package DebianDoc_SGML::Format::LaTeX;
+use strict;
+use vars qw( @ISA @EXPORT );
+use Exporter;
+@ISA = ( 'Exporter' );
+@EXPORT = qw ();
+
+## ----------------------------------------------------------------------
+## import packages
+use SGMLS::Output;
+
+## ----------------------------------------------------------------------
+## paper size definitions
+my @paper = split( /\s/, `2>/dev/null paperconf -N` );
+my $pagespec = "A4";
+if ( $#paper > -1 )
+{
+    if ( $paper[0] =~ m/[ABC][0-9]/ )
+    {
+	$pagespec = $paper[0];
+    }
+    elsif ( $paper[0] =~ m/[letter|legal|executive]/ )
+    {
+	$paper[0] =~ tr/A-Z/a-z/;
+	$pagespec = "US" . $paper[0];
+    }
+}
+
+## ----------------------------------------------------------------------
+## layout definitions
+$DebianDoc_SGML::Format::Driver::indent_level = 1;
+
+## ----------------------------------------------------------------------
+## global variables
+use vars qw( $set_appendix $set_arabic );
+
+## ----------------------------------------------------------------------
+## book output subroutines
+## ----------------------------------------------------------------------
+sub _output_start_book
+{
+    my $babel = $DebianDoc_SGML::Format::Driver::i18n{'babel'};
+    output( "\\documentclass[11pt,$babel]{book}\n" );
+    output( "\\usepackage{t1enc}\n" );
+    output( "\\usepackage[$DebianDoc_SGML::Format::Driver::i18n{'inputenc'}]{inputenc}\n" )
+	if length( $DebianDoc_SGML::Format::Driver::i18n{'inputenc'} );
+    output( "\\usepackage{babel}\n" );
+    output( "\n" );
+    output( "\\usepackage{helvet}\n" );
+    ## NOTE: below is a temporary solution !!!!!!!!!
+    output( "\\usepackage{times}\n" )
+	if $DebianDoc_SGML::Format::Driver::i18n{ 'inputenc' } ne 'latin2';
+    output( "\n" );
+    output( "\\usepackage{vmargin}\n" );
+    output( "\\setpapersize{$pagespec}\n" );
+    output( "\\setmarginsrb{25.4mm}{25.4mm}{25.4mm}{25.4mm}{15pt}{11mm}{0pt}{11mm}\n" );
+    output( "\n" );
+    output( "\\usepackage{fancyhdr}\n" );
+    output( "\\pagestyle{fancy}\n" );
+    output( "\\renewcommand{\\chaptermark}[1]{%\n" );
+    output( "\\markboth{\\chaptername\\ \\thechapter.\\ #1}{}}\n" );
+    output( "\\lhead{\\leftmark}\n" );
+    output( "\\chead{}\n" );
+    output( "\\rhead{\\thepage}\n" );
+    output( "\\lfoot{}\n" );
+    output( "\\cfoot{}\n" );
+    output( "\\rfoot{}\n" );
+    output( "\\renewcommand{\\headrulewidth}{0.4pt}\n" );
+    output( "\\renewcommand{\\footrulewidth}{0pt}\n" );
+    output( "\\fancypagestyle{plain}{%\n" );
+    output( "\\lhead{}\n" );
+    output( "\\chead{}\n" );
+    output( "\\rhead{\\thepage}\n" );
+    output( "\\lfoot{}\n" );
+    output( "\\cfoot{}\n" );
+    output( "\\rfoot{}\n" );
+    output( "\\renewcommand{\\headrulewidth}{0.4pt}\n" );
+    output( "\\renewcommand{\\footrulewidth}{0pt}}\n" );
+    output( "\n" );
+    output( "\\usepackage{paralist}" );
+    output( "\\usepackage{alltt}\n" );
+    output( "\n" );
+    output( "\\usepackage[multiple]{footmisc}\n" );
+    output( "\\usepackage{url}\n" );
+    output( "\\usepackage{varioref}\n" );
+    output( "\\vrefwarning\n" );
+    output( "\\usepackage{hyperref}\n" );
+    output( "\n" );
+    output( "\\parindent=0pt\n" );
+    output( "\\setlength{\\parskip}{%\n" );
+    output( "0.5\\baselineskip plus0.1\\baselineskip minus0.1\\baselineskip}\n" );
+    output( "\n" );
+    output( "\\begin{document}\n" );
+}
+sub _output_end_book
+{
+    output( "\n" );
+    output( "\\end{document}\n");
+    output( "\n" );
+}
+
+## ----------------------------------------------------------------------
+## title page output subroutines
+## ----------------------------------------------------------------------
+sub _output_titlepag
+{
+    output( "\n" );
+    output( "\\begin{titlepage}\n" );
+    output( "\n" );
+    output( "\\thispagestyle{empty}\n" );
+    output( "\n" );
+    output( "\\begin{center}\n" );
+    output( "{\\Huge \\vspace*{2ex} $DebianDoc_SGML::Format::Driver::title \\\\[2ex]}\n" );
+    grep( output( "{\\large $_ } \\\\\n" ), @DebianDoc_SGML::Format::Driver::authors );
+    output( "\\vspace*{1ex} $DebianDoc_SGML::Format::Driver::version \\\\\n" )
+	if length( $DebianDoc_SGML::Format::Driver::version );
+    output( "\\end{center}\n" ); 
+    if ( length( $DebianDoc_SGML::Format::Driver::abstract ) )
+    {
+	output( "\n" );
+	output( "\\vspace*{1ex}\n" );
+	output( "\\begin{center}\n" );
+	output( "\\section*{$DebianDoc_SGML::Format::Driver::i18n{ 'abstract' }}\n" );
+	output( "\\end{center}\n" ); 
+	output( "$DebianDoc_SGML::Format::Driver::abstract\n" );
+    }
+    if ( length($DebianDoc_SGML::Format::Driver::copyright ) )
+    {
+	output( "\n" );
+	output( "\\newpage\n" );
+	output( "\n" );
+	output( "\\thispagestyle{empty}\n" );
+	output( "\n" );
+	output( "\\vspace*{1ex}\n" );
+	output( "\\vfill\n" );
+	output( "\\section*{$DebianDoc_SGML::Format::Driver::i18n{ 'copyright notice' }}\n" );
+	output( "\n" );
+	output( "$DebianDoc_SGML::Format::Driver::copyright\n" );
+    }
+    output( "\n" );
+    output( "\\end{titlepage}\n" ); 
+}
+sub _output_copyrightsummaries
+{
+    output( join( " \\\\\n", @_ ), "\n" );
+}
+
+## ----------------------------------------------------------------------
+## table of contents output subroutines
+## ----------------------------------------------------------------------
+sub _output_toc
+{
+    output( "\n" );
+    output( "\\pagenumbering{roman}\n" );
+    output( "\\tableofcontents\n" );
+}
+sub _output_tocentry
+{
+}
+
+## ----------------------------------------------------------------------
+## section output subroutines
+## ----------------------------------------------------------------------
+sub _output_chapter
+{
+    output( $_[0] );
+}
+sub _output_appendix
+{
+    output( $_[0] );
+}
+sub _output_heading
+{
+    if ( $_[1] == -2 && ! $set_appendix )
+    {
+	$set_appendix = 1;
+	output( "\n" );
+	output( "\\appendix\n" );
+    }
+    output( "\n" );
+    if ( $_[1] < 0 )
+    {
+	output( "\\chapter" );
+    }
+    elsif ( $_[1] == 0 )
+    {
+	output( "\\section" );
+    }
+    elsif ( $_[1] == 1 )
+    {
+	output( "\\subsection" );
+    }
+    elsif ( $_[1] == 2 )
+    {
+	output( "\\subsubsection" );
+    }
+    elsif ( $_[1] == 3 )
+    {
+	output( "\\paragraph" );
+    }
+    else
+    {
+	output( "\\subparagraph" );
+    }
+    output( "{$_[0]}\n" );
+    output( "\\label{$_[3]}\n" ) if length( $_[3] );
+    if ( ! $set_arabic )
+    {
+	$set_arabic = 1;
+	output( "\\pagenumbering{arabic}\n" );
+    }
+}
+
+## ----------------------------------------------------------------------
+## paragraph output subroutines
+## ----------------------------------------------------------------------
+sub _output_p
+{
+    if ( length( $_[0] ) )
+    {
+	# Before a new paragraph and after a non-compact example
+	output( "\n" )
+	    if ! $DebianDoc_SGML::Format::Driver::is_compact
+		&& ! $DebianDoc_SGML::Format::Driver::was_compact;
+	$_[0] =~ s/^\s+//gm;      # remove leading spaces
+	$_[0] =~ s/\n\n+/\n/g;    # no blank lines in paragraphs
+	output( "$_[0]\n" );
+    }
+    else
+    {
+	# This puts a newline between adjacent specials, which doesn't
+	# do anything, but more importantly ensures that there is a
+	# newline before a paragraph which begins with a compact special
+	output( "\n" )
+	    if ( $DebianDoc_SGML::Format::Driver::is_special
+		 && ! $DebianDoc_SGML::Format::Driver::is_compact
+		 && $DebianDoc_SGML::Format::Driver::will_be_compact );
+    }
+
+    # The logic here is a bit hairy.  Basically, we only change the
+    # \parskip setting if the following is the case:
+    #  set to >0 if we're not currently compact, but we're coming out
+    #               of a compact state, but we're not about to enter
+    #               one again
+    if ( ! $DebianDoc_SGML::Format::Driver::is_compact &&
+	 $DebianDoc_SGML::Format::Driver::was_compact &&
+	 ( ( $DebianDoc_SGML::Format::Driver::is_special &&
+	     ! $DebianDoc_SGML::Format::Driver::will_be_compact) ||
+	   ! $DebianDoc_SGML::Format::Driver::is_special ) )
+    {
+	output( "\\setlength{\\parskip}{%\n" );
+	output( "0.5\\baselineskip plus0.1\\baselineskip minus0.1\\baselineskip}\n" );
+    }
+    # and set to 0 if we're about to enter a compact state, but we aren't
+    #                 currently compact or leaving a compact state
+    if ( $DebianDoc_SGML::Format::Driver::is_special &&
+	 $DebianDoc_SGML::Format::Driver::will_be_compact &&
+	 ! $DebianDoc_SGML::Format::Driver::is_compact &&
+	 ! $DebianDoc_SGML::Format::Driver::was_compact )
+    {
+	output( "\\setlength{\\parskip}{0ex}\n" );
+    }
+}
+
+## ----------------------------------------------------------------------
+## example output subroutines
+## ----------------------------------------------------------------------
+sub _output_example
+{
+    my $space = $DebianDoc_SGML::Format::Driver::indent_level > 0 ?
+        "  " x $DebianDoc_SGML::Format::Driver::indent_level : "    ";
+    $_[0] = " $space" . $_[0];
+    $_[0] =~ s/\n/\n $space/g;
+    $_[0] =~ s/\s+$/\n/;
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    output( "\\begin{alltt}\n" );
+    output( $_[0] );
+    output( "\\end{alltt}\n" );
+}
+
+## ----------------------------------------------------------------------
+## footnote output subroutines
+## ----------------------------------------------------------------------
+sub _output_footnote
+{
+    output( "\\footnote{$_[0]}" );
+}
+
+## ----------------------------------------------------------------------
+## comment output subroutines
+## ----------------------------------------------------------------------
+sub _output_comment
+{
+}
+
+## ----------------------------------------------------------------------
+## list output subroutines
+## ----------------------------------------------------------------------
+sub _output_list
+{
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    output( $DebianDoc_SGML::Format::Driver::is_compact
+	    ? "\\begin{compactitem}\n" : "\\begin{itemize}\n" );
+    output( $_[0] );
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    output( $DebianDoc_SGML::Format::Driver::is_compact
+	    ? "\\end{compactitem}\n" : "\\end{itemize}\n" );
+}
+sub _output_enumlist
+{
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    output( $DebianDoc_SGML::Format::Driver::is_compact
+	    ? "\\begin{compactenum}\n" : "\\begin{enumerate}\n" );
+    output( $_[0] );
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    output( $DebianDoc_SGML::Format::Driver::is_compact
+	    ? "\\end{compactenum}\n" : "\\end{enumerate}\n" );
+}
+sub _output_taglist
+{
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    output( $DebianDoc_SGML::Format::Driver::is_compact
+	    ? "\\begin{compactdesc}\n" : "\\begin{description}\n" );
+    output( $_[0] );
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    output( $DebianDoc_SGML::Format::Driver::is_compact
+	    ? "\\end{compactdesc}\n" : "\\end{description}\n" );
+}
+sub _output_list_tag
+{
+}
+sub _output_enumlist_tag
+{
+}
+sub _output_taglist_tag
+{
+}
+sub _output_list_item
+{
+    $_[0] =~ s/^\n//;
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    output( "\\item\n" );
+    output( $_[0] );
+}
+sub _output_enumlist_item
+{
+    $_[0] =~ s/^\n//;
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    output( "\\item\n" );
+    output( $_[0] );
+}
+sub _output_taglist_item
+{
+    $_[0] =~ s/^\n//;
+    output( "\n" ) if ! $DebianDoc_SGML::Format::Driver::is_compact;
+    foreach ( @{$_[1]} )
+    {
+        output( "\\item[$_]\n" );
+    }
+    output( "$_[0]" );
+}
+
+## ----------------------------------------------------------------------
+## emph output subroutines
+## ----------------------------------------------------------------------
+sub _output_em
+{
+    output( "\\textit{$_[0]}" );
+}
+sub _output_strong
+{
+    output( "\\textbf{$_[0]}" );
+}
+sub _output_var
+{
+    output( "\\textit{$_[0]}" );
+}
+sub _output_package
+{
+    output( "\\texttt{$_[0]}" );
+}
+sub _output_prgn
+{
+    output( "\\texttt{$_[0]}" );
+}
+sub _output_file
+{
+    output( "\\path{$_[0]}" );
+}
+sub _output_tt
+{
+    # Double dashes should be written as --- to get a double dash in
+    # the font.  Strange or what?
+    $_[0] =~ s/--/---/g;
+    output( "\\texttt{$_[0]}" );
+}
+sub _output_qref
+{
+    output( $_[0] );
+}
+
+## ----------------------------------------------------------------------
+## xref output subroutines
+## ----------------------------------------------------------------------
+sub _output_ref
+{
+    output( "`$_[0]' \\vpageref{$_[3]}" );
+}
+sub _output_manref
+{
+    output( "\\texttt{" );
+    output( _sani( $_[0] ) );
+    output( "($_[1])}" );
+}
+sub _output_email
+{
+    output( ' ' ) if ( $DebianDoc_SGML::Format::Driver::in_author );
+    output( "\\texttt{<$_[0]>}" );
+}
+sub _output_ftpsite
+{
+    output( "\\url{$_[0]}" );
+}
+sub _output_ftppath
+{
+    output( "\\path{$_[1]}" );
+}
+sub _output_httpsite
+{
+    output( "\\url{$_[0]}" );
+}
+sub _output_httppath
+{
+    output( "\\path{$_[1]}" );
+}
+sub _output_url
+{
+    output( _sani( $_[1] ) ) if $_[1] ne "";
+    output( " (" ) if $_[1] ne "";
+    output( "\\path{" );
+    output( $_[0] );
+    output( "}" );
+    output( ")" ) if $_[1] ne "";
+}
+
+## ----------------------------------------------------------------------
+## data output subroutines
+## ----------------------------------------------------------------------
+sub _cdata
+{
+    output( _sani( $_[0] ) );
+}
+sub _sdata
+{
+    output( $DebianDoc_SGML::Format::Driver::sdata_mapping{ $_[0] } )
+	if defined( $DebianDoc_SGML::Format::Driver::sdata_mapping{ $_[0] } );
+}
+sub _sani
+{
+    ( $_ ) = @_;
+
+    # replace backslash character
+    s/\\/\\(\\backslash\\)/g;
+
+    # escape command characters
+    s/{/\\{/g;
+    s/}/\\}/g;
+    s/\$/\\\$/g;
+
+    # escape command characters
+    s/_/\\_/g;
+    s/&/\\&/g;
+    s/\#/\\\#/g;
+    s/\%/\\\%/g;
+    s/\^/\\^{}/g;
+    s/~/\\~{}/g;
+
+    # no further replacement in examples
+    return $_ if $DebianDoc_SGML::Format::Driver::is_example;
+
+# Don't want this to happen; we can use &ndash; and &mdash if we
+# really want dashes.
+#    # hyphens
+#    s/-/--/g;
+#    s/----/---/g;
+
+    # quotes
+    s/\"(.*?)\"/\`\`$1\'\'/g;
+
+    # dots should be ellipsis "..."
+    s/\.\.\./\\dots /g;
+
+    return $_;
+}
+
+## ----------------------------------------------------------------------
+## don't forget this
+1;
+
+## ----------------------------------------------------------------------
diff --git a/DebianDoc_SGML/Format/Text.pm b/DebianDoc_SGML/Format/Text.pm
new file mode 100644
index 0000000..1567033
--- /dev/null
+++ b/DebianDoc_SGML/Format/Text.pm
@@ -0,0 +1,593 @@
+## -*- perl -*-
+## ----------------------------------------------------------------------
+## DebianDoc_SGML/Format/Text: SGML conversion specification for plain text output format
+## ----------------------------------------------------------------------
+## Copyright (C) 1998-2001 Ardo van Rangelrooij
+## Copyright (C) 1996 Ian Jackson
+##
+## This is free software; see the GNU General Public Licence
+## version 2 or later for copying conditions.  There is NO warranty.
+## ----------------------------------------------------------------------
+
+## ----------------------------------------------------------------------
+## package interface definition
+package DebianDoc_SGML::Format::Text;
+use strict;
+use vars qw( @ISA @EXPORT );
+use Exporter;
+@ISA = ( 'Exporter' );
+@EXPORT = qw ();
+
+## ----------------------------------------------------------------------
+## import packages
+use SGMLS::Output;
+use Text::Format;
+
+## ----------------------------------------------------------------------
+## layout definitions
+my $perindent = 5;
+my $linewidth = 79;
+my $textwidth = 75;
+my $unbreakbackoff = 20;
+$DebianDoc_SGML::Format::Driver::indent_level = 1;
+my $text = new Text::Format;
+$text->columns( $linewidth );
+$text->leftMargin( $perindent - 1 );
+$text->rightMargin( $perindent - 1 );
+$text->extraSpace( 1 );
+$text->firstIndent( 0 );
+
+## ----------------------------------------------------------------------
+## global variables
+use vars qw( $blanklinedone $paralhindents $paralhtag @stylestack @b @u );
+use vars qw( @footnotes @comments @comment_editors );
+
+## ----------------------------------------------------------------------
+## book output subroutines
+## ----------------------------------------------------------------------
+sub _output_start_book
+{
+}
+sub _output_end_book
+{
+    _output_footnotes() if ( @footnotes );
+    _output_comments() if ( @comments );
+    output( "\n" );
+    output( "\n" );
+    output( ( "-" x $linewidth ) . "\n" );
+    output( "\n" );
+    output( "\n" );
+    _para_new();
+    output( $DebianDoc_SGML::Format::Driver::title );
+    _para_end( 1 );
+    output( "\n" );
+    foreach ( @DebianDoc_SGML::Format::Driver::authors )
+    {
+	_para_new();
+	output( $_ );
+	_para_end( 1 );
+    }
+    output( "\n" );
+    _para_new();
+    output( $DebianDoc_SGML::Format::Driver::version )
+	if length( $DebianDoc_SGML::Format::Driver::version );
+    _para_end( 1 );
+    output( "\n" );
+}
+
+## ----------------------------------------------------------------------
+## title page output subroutines
+## ----------------------------------------------------------------------
+sub _output_titlepag
+{
+    output( "\n" );
+    _para_new();
+    output( $DebianDoc_SGML::Format::Driver::title );
+    _para_end( 0, 'centre-underdash' );
+    foreach ( @DebianDoc_SGML::Format::Driver::authors )
+    {
+	output( "\n" );
+	_para_new();
+	output( $_ );
+	_para_end( 0, 'centre' );
+    }
+    if ( length( $DebianDoc_SGML::Format::Driver::version ) )
+    {
+	output( "\n" );
+	_para_new();
+	output( $DebianDoc_SGML::Format::Driver::version );
+	_para_end( 0, 'centre' );
+    }
+    output( "\n" );
+    output( "\n" );
+    output( ( "-" x $linewidth ) . "\n" );
+    if ( length( $DebianDoc_SGML::Format::Driver::abstract ) )
+    {
+	_output_heading( $DebianDoc_SGML::Format::Driver::i18n{ 'abstract' } );
+	output( $DebianDoc_SGML::Format::Driver::abstract );
+    }
+    if ( length ( $DebianDoc_SGML::Format::Driver::copyright ) )
+    {
+	_output_heading( $DebianDoc_SGML::Format::Driver::i18n{ 'copyright notice' } );
+	output( $DebianDoc_SGML::Format::Driver::copyright );
+    }
+}
+sub _output_copyrightsummaries
+{
+    output( "\n" );
+    foreach ( @_ )
+    {
+	_para_new();
+	output( $_ );
+	_para_end( $DebianDoc_SGML::Format::Driver::indent_level );
+    }
+}
+
+## ----------------------------------------------------------------------
+## table of contents output subroutines
+## ----------------------------------------------------------------------
+sub _output_toc
+{
+    _output_heading( $DebianDoc_SGML::Format::Driver::i18n{ 'contents' }, -1 );
+    output( $_[0] );
+}
+sub _output_tocentry
+{
+    return if $_[1] > $DebianDoc_SGML::Format::Driver::toc_detail;
+    output( "\n" ) if $_[1] == -1;
+    _para_lhtag( "$_[2]." );
+    _para_lhtag( '' );
+    _para_lhtag( '' ) if $_[1] > 0;
+    _para_new();
+    output( $_[0] );
+    _para_end( $_[1] > 0 ? 4 : 3 );
+}
+
+## ----------------------------------------------------------------------
+## section output subroutines
+## ----------------------------------------------------------------------
+sub _output_chapter
+{
+    output( $_[0] );
+}
+sub _output_appendix
+{
+    output( $_[0] );
+}
+sub _output_heading
+{
+    _output_footnotes() if ( @footnotes );
+    _output_comments() if ( @comments );
+    output( "\n" );
+    if ( $_[1] < 0 )
+    {
+	output( "\n" );
+	output( ( "-" x $linewidth ) . "\n" );
+	output( "\n" );
+    }
+    output( "\n" ) if $_[1] <= 0;
+    _para_new();
+    output( "$_[2]. " ) if length( $_[2] );
+    output( "$_[0]" );
+    _para_end( 0, 'underdash' );
+}
+
+## ----------------------------------------------------------------------
+## paragraph output subroutines
+## ----------------------------------------------------------------------
+sub _output_p
+{
+    if ( length( $_[0] ) )
+    {
+	_insert_blankline();
+	$blanklinedone = 0;
+	my $indent = 0;
+	if ( length( $paralhtag ) )
+	{
+	    output( " "
+		    x ( $perindent
+			* ( $DebianDoc_SGML::Format::Driver::indent_level
+			    - $paralhindents ) ) );
+	    output( _emph_string( $paralhtag ) );
+	    $indent = ( $DebianDoc_SGML::Format::Driver::indent_level )
+		* $perindent;
+	    $paralhtag = '';
+	    $paralhindents = 0;
+	}
+	$text->leftMargin( $DebianDoc_SGML::Format::Driver::indent_level 
+			   * $perindent );
+	my $para = $text->format( $_[0] );
+	output( substr( $para, $indent ) );
+    }
+    else
+    {
+	output( "\n" )
+	    if ( $DebianDoc_SGML::Format::Driver::is_special
+		 && ! $DebianDoc_SGML::Format::Driver::is_compact
+		 && $DebianDoc_SGML::Format::Driver::will_be_compact );
+    }
+}
+sub _insert_blankline
+{
+    if ( ! $DebianDoc_SGML::Format::Driver::is_compact
+	 && ! $DebianDoc_SGML::Format::Driver::was_compact
+	 && ! $blanklinedone )
+    {
+	output( "\n" );
+	$blanklinedone = 1;
+    }
+}
+sub _para_lhtag
+{
+    $paralhindents++;
+    $paralhtag .= $_[0];
+    $paralhtag .= ' ' x ( $paralhindents * $perindent - length( $paralhtag ) );
+}
+sub _para_new
+{
+    @stylestack = ();
+    push_output( 'string' );
+}
+sub _para_end
+{
+    my ( $inum, $fmt, $lhtagdefer ) = @_;
+    # fmt is one of undef,'centre','centre-underdash','underdash'
+    # lhtagdefer is 1 if we can safely defer a paralhtag til later
+    my $pd = pop_output();
+    @b = @u = ( 0 );
+    my ( $here, $maxwidth, $evstr, $pis, $pil, $npis, $av, $ls_pis, $ls_pil );
+    my ( $nobreak, $code, $reducedwidth, $indentdone, $lhs );
+    my $centre = ( $fmt eq 'centre' || $fmt eq 'centre-underdash' );
+    my $udash = ( $fmt eq 'underdash' || $fmt eq 'centre-underdash' );
+    $maxwidth = 0;
+    return if $pd !~ m/\S/ && ( $lhtagdefer || ! length( $paralhtag ) );
+    if ( length( $paralhtag ) )
+    {
+        output( " " x ( $perindent * ( $inum - $paralhindents ) ) );
+        output( _emph_string( $paralhtag ) );
+        $reducedwidth = length( $paralhtag ) - ( $perindent * $paralhindents );
+        $reducedwidth = 0 if $reducedwidth < 0;
+        $paralhtag = '';
+	$indentdone = 1;
+	$paralhindents = 0;
+    }
+  outer:
+    while ( length( $pd ) )
+    {
+        next if ! $nobreak && $pd =~ s/^\s+//;
+        $pil = 0;
+	$av = $textwidth - $perindent * $inum - $reducedwidth;
+        $pis = 0;
+	$reducedwidth = 0;
+	$ls_pis = -1;
+        while ( $pis < length( $pd ) && ( $nobreak || $pil <= $av ) )
+	{
+            $here = substr( $pd, $pis, 1 );
+            if ( $here eq "\0" )
+	    {
+                $code = substr( $pd, $pis + 1, 2 );
+                if ( $code eq '=o' )
+		{
+                    last if $pis;
+                    $nobreak = 1;
+		    $lhs = 0;
+                }
+		elsif ( $code eq '=l' )
+		{
+                    last if $pis || $indentdone;
+                    $nobreak = 1;
+		    $lhs = 1;
+                }
+		elsif ( $code eq '=c' )
+		{
+                    last if $pis;
+                    $nobreak = 0;
+		    $lhs = 0;
+                }
+		elsif ( $code eq '=n' )
+		{
+                    $pis += 4;
+		    last;
+                }
+		else
+		{
+                    $pis += 4;
+		    next;
+                }
+                $pd = substr( $pd, 4 );
+		next outer;
+            }
+            if ( ! $nobreak && $here =~ m/^\s$/ )
+	    {
+                $here = substr( $pd, $pis );
+		$here =~ s/^\s+/ /;
+                $pd = substr( $pd, 0, $pis ) . $here;
+                $ls_pis = $pis;
+		$ls_pil = $pil;
+            }
+            if ( $ls_pis < 0 && $pil >= $av - $unbreakbackoff )
+	    {
+                $ls_pis = $pis;
+		$ls_pil = $pil;
+            }
+            $pis++;
+	    $pil++;
+        }
+        if ( ! $nobreak && $pil > $av )
+	{
+	    $pis = $ls_pis;
+	    $ls_pil = $pil;
+	}
+        $maxwidth = $pil if $pil > $maxwidth;
+        output( ' ' x ( ( $centre ? ( $textwidth - $pil ) / 2 : 0 )
+			+ ( $lhs ? 0 : ( $inum + $nobreak ) * $perindent ) ) )
+            if ! $indentdone;
+        output( _emph_string( substr( $pd, 0, $pis ) ) );
+        output( "\n" );
+	$indentdone = 0;
+        $pd = substr( $pd, $pis );
+    }
+    if ( $udash )
+    {
+        output( ' ' x ( ( $centre ? ( $textwidth - $maxwidth ) / 2 : 0 )
+			+ ( $inum * $perindent ) ) );
+        output( ( $b[0] ? "--" : "-" ) x $maxwidth . "\n" );
+    }
+    $blanklinedone = 0;
+}
+sub _emph_string
+{
+    my ( $string ) = @_;
+    my ( $i, $here, $ar, $sv, $es );
+    for ( $i = 0; $i < length( $string ); $i++ )
+    {
+        $here = substr( $string, $i, 1 );
+        if ( $here eq "\0" )
+	{
+            $ar = substr( $string, $i + 1, 1 );
+	    $sv = substr( $string, $i + 2, 1 );
+            if ( $sv eq '-' )
+	    {
+                $es = "shift(\@$ar);1;";
+		eval $es || die "$@ / $es";
+            }
+	    elsif ( $sv ne '=' )
+	    {
+                $es = "unshift(\@$ar,\$sv);1;";
+		eval $es || die "$@ / $es";
+            }
+            $i += 3;
+	    next;
+        }
+        if ( $b[0] )
+	{
+	    output( "$here" );
+	}
+        elsif ( $u[0] )
+	{
+	    output( "_" );
+	}
+        output( $here );
+    }
+    return;
+}
+
+## ----------------------------------------------------------------------
+## example output subroutines
+## ----------------------------------------------------------------------
+sub _output_example
+{
+    $_[0] =~ s/[ \t]+\n/\n/g;
+    $_[0] =~ s/^\n+//;
+    my @el = split( /\n/, $_[0] );
+    my @ec = @el;
+    grep( s/\0..\0//g, @ec );
+    my @toolong = grep( length( $_ )
+			+ ( $perindent
+			    * ( $DebianDoc_SGML::Format::Driver::indent_level
+				+ 1 ) )
+			> $linewidth, @ec );
+    _insert_blankline();
+    push_output( 'string' );
+    output( @toolong ? "\0=l\0" : "\0=o\0" );
+    output( join( "\0=n\0", @el ) );
+    output( "\0=c\0" );
+    _para_new();
+    output( pop_output() );
+    _para_end( $DebianDoc_SGML::Format::Driver::indent_level );
+}
+
+## ----------------------------------------------------------------------
+## footnote output subroutines
+## ----------------------------------------------------------------------
+sub _output_footnotes
+{
+    my $footnoteref = 1;
+    foreach my $footnote ( @footnotes )
+    {
+	_insert_blankline();
+	_para_lhtag( "[$footnoteref]" );
+	_para_new();
+	output( $footnote );
+	_para_end( $DebianDoc_SGML::Format::Driver::indent_level );
+	$blanklinedone = 0;
+	$footnoteref++;
+    }
+    @footnotes = ();
+}
+sub _output_footnote
+{
+    push( @footnotes, $_[0] );
+    output( "[" . scalar( @footnotes ) . "]" );
+}
+
+## ----------------------------------------------------------------------
+## comment output subroutines
+## ----------------------------------------------------------------------
+sub _output_comments
+{
+    my $commentref = 1;
+    foreach my $comment ( @comments )
+    {
+	_insert_blankline();
+	_para_lhtag( "[c$commentref]" );
+	my $editor = $comment_editors[$commentref - 1];
+	_para_lhtag( "($editor) " ) if length( $editor);
+	_para_new();
+	output( $comment );
+	_para_end( $DebianDoc_SGML::Format::Driver::indent_level );
+	$blanklinedone = 0;
+	$commentref++;
+    }
+    @comments = ();
+    @comment_editors = ();
+}
+sub _output_comment
+{
+    push( @comments, $_[0] );
+    push( @comment_editors, $_[1] );
+    output( "[c" . scalar( @comments ) . "]" );
+}
+
+## ----------------------------------------------------------------------
+## list output subroutines
+## ----------------------------------------------------------------------
+sub _output_list
+{
+    output( $_[0] );
+}
+sub _output_enumlist
+{
+    output( $_[0] );
+}
+sub _output_taglist
+{
+    output( $_[0] );
+}
+sub _output_list_tag
+{
+    _para_lhtag( ( ' ' x ( $perindent - 2 ) ) . '*' );
+}
+sub _output_enumlist_tag
+{
+    _para_lhtag( $DebianDoc_SGML::Format::Driver::item_counter++ . '.' );
+}
+sub _output_taglist_tag
+{
+}
+sub _output_list_item
+{
+    output( $_[0] );
+}
+sub _output_enumlist_item
+{
+    output( $_[0] );
+}
+sub _output_taglist_item
+{
+    $_[0] =~ s/^\n+//;
+    _insert_blankline();
+    foreach ( @{$_[1]} )
+    {
+	_para_new();
+	output( $_ );
+	_para_end( $DebianDoc_SGML::Format::Driver::indent_level - 1 );
+    }
+    output( $_[0] );
+}
+
+## ----------------------------------------------------------------------
+## emph output subroutines
+## ----------------------------------------------------------------------
+sub _output_em
+{
+    output( "_$_[0]_" );
+}
+sub _output_strong
+{
+    output( "_$_[0]_" );
+}
+sub _output_var
+{
+    output( "<$_[0]>" );
+}
+sub _output_package
+{
+    output( "`$_[0]'" );
+}
+sub _output_prgn
+{
+    output( "`$_[0]'" );
+}
+sub _output_file
+{
+    output( "`$_[0]'" );
+}
+sub _output_tt
+{
+    output( "`$_[0]'" );
+}
+sub _output_qref
+{
+    output( $_[0] );
+}
+
+## ----------------------------------------------------------------------
+## xref output subroutines
+## ----------------------------------------------------------------------
+sub _output_ref
+{
+    my ( $name, $number ) = split( / /, $_[1], 2 );
+    output( "$DebianDoc_SGML::Format::Driver::i18n{$name} $number, `$_[0]'" );
+}
+sub _output_manref
+{
+    output( "$_[0]($_[1])" );
+}
+sub _output_email
+{
+    output( ' ' ) if $DebianDoc_SGML::Format::Driver::in_author;
+    output( "<$_[0]>" );
+}
+sub _output_ftpsite
+{
+    output( $_[0] );
+}
+sub _output_ftppath
+{
+    output( $_[1] );
+}
+sub _output_httpsite
+{
+    output( $_[0] );
+}
+sub _output_httppath
+{
+    output( $_[1] );
+}
+sub _output_url
+{
+    output( $_[1] ) if $_[1] ne '';
+    output( ' (' ) if $_[1] ne '';
+    output( $_[0] );
+    output( ')' ) if $_[1] ne '';
+}
+
+## ----------------------------------------------------------------------
+## data output subroutines
+## ----------------------------------------------------------------------
+sub _cdata
+{
+    output( $_[0] );
+}
+sub _sdata
+{
+    output( $DebianDoc_SGML::Format::Driver::sdata_mapping{ $_[0] } )
+	if defined( $DebianDoc_SGML::Format::Driver::sdata_mapping{ $_[0] } );
+}
+
+## ----------------------------------------------------------------------
+## don't forget this
+1;
+
+## ----------------------------------------------------------------------