## ASCII output

## ASCII output
# Copyright (C) 1993-1995 Ian Jackson.

# This file is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.

# It is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with GNU Emacs; see the file COPYING. If not, write to
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.

# (Note: I do not consider works produced using these BFNN processing
# tools to be derivative works of the tools, so they are NOT covered
# by the GPL. However, I would appreciate it if you credited me if
# appropriate in any documents you format using BFNN.)

sub ascii_init {
open(ASCII,">$prefix.ascii");
}

sub ascii_startmajorheading {
print ASCII '='x79,"\n\n";
$ascii_status= 'h';
&ascii_text($_[0] ? "Section $_[0]. " : '');
}

sub ascii_startminorheading {
print ASCII '-'x79,"\n\n";
$ascii_status= 'h';
}

sub ascii_italic { &ascii_text('*'); }
sub ascii_enditalic { $ascii_para .= '*'; }

sub ascii_email { &ascii_text('<'); } sub ascii_endemail { &ascii_text('>'); }

sub ascii_ftpon { } sub ascii_endftpon { }
sub ascii_ftpin { } sub ascii_endftpin { }
sub ascii_docref { } sub ascii_enddocref { }
sub ascii_courier { } sub ascii_endcourier { }
sub ascii_newsgroup { } sub ascii_endnewsgroup { }
sub ascii_ftpsilent { $ascii_ignore++; }
sub ascii_endftpsilent { $ascii_ignore--; }

sub ascii_text {
return if $ascii_ignore;
if ($ascii_status eq '') {
$ascii_status= 'p';
}
$ascii_para .= $_[0];
}

sub ascii_tab {
local ($n) = $_[0]-length($ascii_para);
$ascii_para .= ' 'x$n if $n>0;
}

sub ascii_newline {
return unless $ascii_status eq 'p';
&ascii_writepara;
}

sub ascii_writepara {
local ($thisline, $thisword, $rest);
for (;;) {
last unless $ascii_para =~ m/\S/;
$thisline= $ascii_indentstring;
for (;;) {
last unless $ascii_para =~ m/^(\s*\S+)/;
unless (length($1) + length($thisline) < 75 ||
length($thisline) == length($ascii_indentstring)) {
last;
}
$thisline .= $1;
$ascii_para= $';
}
$ascii_para =~ s/^\s*//;
print ASCII $thisline,"\n";
$ascii_indentstring= $ascii_nextindent;
last unless length($ascii_para);
}
$ascii_status= ''; $ascii_para= '';
}

sub ascii_endpara {
return unless $ascii_status eq 'p';
&ascii_writepara;
print ASCII "\n";
}

sub ascii_endheading {
$ascii_para =~ s/\s*$//;
print ASCII "$ascii_para\n\n";
$ascii_status= '';
$ascii_para= '';
}

sub ascii_endmajorheading { &ascii_endheading(@_); }
sub ascii_endminorheading { &ascii_endheading(@_); }

sub ascii_startverbatim {
$ascii_vstatus= $ascii_status;
&ascii_writepara;
}

sub ascii_verbatim {
print ASCII $_[0],"\n";
}

sub ascii_endverbatim {
$ascii_status= $ascii_vstatus;
}

sub ascii_finish {
close(ASCII);
}

sub ascii_startindex { $ascii_status= ''; }
sub ascii_endindex { $ascii_status= 'p'; }

sub ascii_endindexitem {
printf ASCII " %-11s %-.66s\n",$ascii_left,$ascii_para;
$ascii_status= 'p';
$ascii_para= '';
}

sub ascii_startindexitem {
$ascii_left= $_[1];
}

sub ascii_startindexmainitem {
$ascii_left= $_[1];
print ASCII "\n" if $ascii_status eq 'p';
}

sub ascii_startindent {
$ascii_istatus= $ascii_status;
&ascii_writepara;
$ascii_indentstring= " $ascii_indentstring";
$ascii_nextindent= " $ascii_nextindent";
}

sub ascii_endindent {
$ascii_indentstring =~ s/^ //;
$ascii_nextindent =~ s/^ //;
$ascii_status= $ascii_istatus;
}

sub ascii_startpackedlist { $ascii_plc=0; }
sub ascii_endpackedlist { &ascii_newline if !$ascii_plc; }
sub ascii_packeditem {
&ascii_newline if !$ascii_plc;
&ascii_tab($ascii_plc*40+5);
$ascii_plc= !$ascii_plc;
}

sub ascii_startlist {
&ascii_endpara;
$ascii_indentstring= " $ascii_indentstring";
$ascii_nextindent= " $ascii_nextindent";
}

sub ascii_endlist {
&ascii_endpara;
$ascii_indentstring =~ s/^ //;
$ascii_nextindent =~ s/^ //;
}

sub ascii_item {
&ascii_newline;
$ascii_indentstring =~ s/ $/* /;
}

sub ascii_pageref {
&ascii_text("Q$_[1] \`");
}

sub ascii_endpageref {
&ascii_text("'");
}

1;