--- /dev/null
+## -*- 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 – 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;
+
+## ----------------------------------------------------------------------
--- /dev/null
+## -*- 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] ? "-\b-" : "-" ) 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\b" );
+ }
+ elsif ( $u[0] )
+ {
+ output( "_\b" );
+ }
+ 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;
+
+## ----------------------------------------------------------------------
projects / debian / debian-policy.git / commitdiff