cannam@127: ## Lout output
cannam@127: # Copyright (C) 1993-1995 Ian Jackson.
cannam@127: 
cannam@127: # This file is free software; you can redistribute it and/or modify
cannam@127: # it under the terms of the GNU General Public License as published by
cannam@127: # the Free Software Foundation; either version 2, or (at your option)
cannam@127: # any later version.
cannam@127: 
cannam@127: # It is distributed in the hope that it will be useful,
cannam@127: # but WITHOUT ANY WARRANTY; without even the implied warranty of
cannam@127: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
cannam@127: # GNU General Public License for more details.
cannam@127: 
cannam@127: # You should have received a copy of the GNU General Public License
cannam@127: # along with GNU Emacs; see the file COPYING.  If not, write to
cannam@127: # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
cannam@127: # Boston, MA 02111-1307, USA.
cannam@127: 
cannam@127: # (Note: I do not consider works produced using these BFNN processing
cannam@127: # tools to be derivative works of the tools, so they are NOT covered
cannam@127: # by the GPL.  However, I would appreciate it if you credited me if
cannam@127: # appropriate in any documents you format using BFNN.)
cannam@127: 
cannam@127: sub lout_init {
cannam@127:     open(LOUT,">$prefix.lout");
cannam@127:     chop($dprint= `date '+%d %B %Y'`);
cannam@127:     $dprint =~ s/^0//;
cannam@127: }
cannam@127: 
cannam@127: sub lout_startup {
cannam@127:     local ($lbs) = &lout_sanitise($user_brieftitle);
cannam@127:     print LOUT <<END;
cannam@127: \@SysInclude{ fontdefs }
cannam@127: \@SysInclude{ langdefs }
cannam@127: \@SysInclude{ dl }
cannam@127: \@SysInclude{ docf }
cannam@127: \@Use { \@DocumentLayout
cannam@127:   \@OddTop { \@Null }
cannam@127:   \@EvenTop { \@Null }
cannam@127:   \@StartOddTop { \@Null }
cannam@127:   \@StartEvenTop { \@Null }
cannam@127:   \@OddFoot { { $lbs } \@Centre{ - \@PageNum - } \@Right{ $dprint } }
cannam@127:   \@EvenFoot { { $lbs } \@Centre{ - \@PageNum - } \@Right{ $dprint } }
cannam@127:   \@StartOddFoot { { $lbs } \@Centre{ - \@PageNum - } \@Right{ $dprint } }
cannam@127:   \@StartEvenFoot { { $lbs } \@Centre{ - \@PageNum - } \@Right{ $dprint } }
cannam@127:   \@ParaGap { 1.70vx }
cannam@127:   \@InitialBreak { 1.0fx ragged hyphen }
cannam@127: }
cannam@127: \@Use { \@OrdinaryLayout }
cannam@127: END
cannam@127:     $lout_textstatus= 'p';
cannam@127: }
cannam@127: 
cannam@127: sub lout_pageref {
cannam@127:     print LOUT "Q$_[1] (page {\@PageOf{$_[0]}}) ";
cannam@127:     &lout_text("\`");
cannam@127: }
cannam@127: 
cannam@127: sub lout_endpageref {
cannam@127:     &lout_text("'");
cannam@127: }
cannam@127: 
cannam@127: sub lout_finish {
cannam@127:     print LOUT "\@End \@Text\n";
cannam@127:     close(L);
cannam@127: }
cannam@127: 
cannam@127: sub lout_startmajorheading {
cannam@127:     $lout_styles .= 'h';
cannam@127:     print LOUT <<END
cannam@127: \@CNP
cannam@127: {
cannam@127:   newpath   0  ysize 0.3 ft sub  moveto
cannam@127:             xsize  0  rlineto
cannam@127:             0  0.2 ft  rlineto
cannam@127:             xsize neg  0  rlineto
cannam@127:   closepath fill
cannam@127: } \@Graphic { //1.6f \@HAdjust \@Heading{
cannam@127: END
cannam@127:     ;
cannam@127:     $endh= "}\n{\@PageMark s_$_[0]}\n/1.0fo\n";
cannam@127:     &lout_text($_[0] ? "Section $_[0].  " : '');
cannam@127: }
cannam@127: 
cannam@127: sub lout_startminorheading {
cannam@127:     $lout_styles .= 'h';
cannam@127:     print LOUT "//0.2f \@CNP {\@PageMark $_[0]} \@Heading{\n";
cannam@127:     $endh= '';
cannam@127: }
cannam@127: 
cannam@127: sub lout_endheading {
cannam@127:     $lout_styles =~ s/.$//; print LOUT "}\n$endh";
cannam@127:     $lout_status= 'p';
cannam@127: }
cannam@127: 
cannam@127: sub lout_endmajorheading { &lout_endheading(@_); }
cannam@127: sub lout_endminorheading { &lout_endheading(@_); }
cannam@127: 
cannam@127: sub lout_courier {
cannam@127:     $lout_styles .= 'f';
cannam@127:     print LOUT "{{0.7 1.0} \@Scale {Courier Bold} \@Font {";
cannam@127: }
cannam@127: 
cannam@127: sub lout_endcourier {
cannam@127:     $lout_styles =~ s/.$//; print LOUT "}}";
cannam@127: }
cannam@127: 
cannam@127: sub lout_italic { $lout_styles .= 'f'; print LOUT "{Slope \@Font {"; }
cannam@127: sub lout_enditalic { $lout_styles =~ s/.$//; print LOUT "}}"; }
cannam@127: 
cannam@127: sub lout_startindent { $lout_styles .= 'i'; print LOUT "\@IndentedDisplay {\n"; }
cannam@127: 
cannam@127: sub lout_endindent {
cannam@127:     &lout_endpara;
cannam@127:     $lout_styles =~ s/.$//; print LOUT "}\n\@LP\n";
cannam@127: }
cannam@127: 
cannam@127: sub lout_startpackedlist { $lout_plc=-1; }
cannam@127: sub lout_endpackedlist { &lout_newline if !$lout_plc; }
cannam@127: sub lout_packeditem {
cannam@127:     &lout_newline if !$lout_plc;
cannam@127:     &lout_tab(($lout_plc>0)*40+5);
cannam@127:     $lout_plc= !$lout_plc;
cannam@127: }
cannam@127: 
cannam@127: sub lout_startlist {
cannam@127:     &lout_endpara;
cannam@127:     print LOUT "\@RawIndentedList style {\@Bullet} indent {0.5i} gap {1.1vx}\n";
cannam@127:     $lout_styles .= 'l';
cannam@127:     $lout_status= '';
cannam@127: }
cannam@127: 
cannam@127: sub lout_endlist {
cannam@127:     &lout_endpara;
cannam@127:     print LOUT "\@EndList\n\n";
cannam@127:     $lout_styles =~ s/.$//;
cannam@127: }
cannam@127: 
cannam@127: sub lout_item {
cannam@127:     &lout_endpara;
cannam@127:     print LOUT "\@ListItem{";
cannam@127:     $lout_styles.= 'I';
cannam@127: }
cannam@127: 
cannam@127: sub lout_startindex {
cannam@127:     print LOUT "//0.0fe\n";
cannam@127: }
cannam@127: 
cannam@127: sub lout_endindex {
cannam@127:     $lout_status='p';
cannam@127: }
cannam@127: 
cannam@127: sub lout_startindexmainitem {
cannam@127:     $lout_marker= $_[0];
cannam@127:     $lout_status= '';
cannam@127:     print LOUT "//0.3vx Bold \@Font \@HAdjust { \@HContract { { $_[1] } |3cx {";
cannam@127:     $lout_iiendheight= '1.00';
cannam@127:     $lout_styles .= 'X';
cannam@127: }
cannam@127: 
cannam@127: sub lout_startindexitem {
cannam@127:     $lout_marker= $_[0];
cannam@127:     print LOUT "\@HAdjust { \@HContract { { $_[1] } |3cx {";
cannam@127:     $lout_iiendheight= '0.95';
cannam@127:     $lout_styles .= 'X';
cannam@127: }
cannam@127: 
cannam@127: sub lout_endindexitem {
cannam@127:     print LOUT "} } |0c \@PageOf { $lout_marker } } //${lout_iiendheight}vx\n";
cannam@127:     $lout_styles =~ s/.$//;
cannam@127: }
cannam@127: 
cannam@127: sub lout_email { &lout_courier; &lout_text('<'); }
cannam@127: sub lout_endemail { &lout_text('>'); &lout_endcourier; }
cannam@127: 
cannam@127: sub lout_ftpon { &lout_courier; }  sub lout_endftpon { &lout_endcourier; }
cannam@127: sub lout_ftpin { &lout_courier; }  sub lout_endftpin { &lout_endcourier; }
cannam@127: sub lout_docref { }  sub lout_enddocref { }
cannam@127: sub lout_ftpsilent { $lout_ignore++; }
cannam@127: sub lout_endftpsilent { $lout_ignore--; }
cannam@127: 
cannam@127: sub lout_newsgroup { &lout_courier; }
cannam@127: sub lout_endnewsgroup { &lout_endcourier; }
cannam@127: 
cannam@127: sub lout_text {
cannam@127:     return if $lout_ignore;
cannam@127:     $lout_status= 'p';
cannam@127:     $_= &lout_sanitise($_[0]);
cannam@127:     s/ $/\n/ unless $lout_styles =~ m/[fhX]/;
cannam@127:     print LOUT $_;
cannam@127: }
cannam@127: 
cannam@127: sub lout_tab {
cannam@127:     local ($size) = $_[0]*0.5;
cannam@127:     print LOUT " |${size}ft ";
cannam@127: }
cannam@127: 
cannam@127: sub lout_newline {
cannam@127:     print LOUT " //1.0vx\n";
cannam@127: }
cannam@127: 
cannam@127: sub lout_sanitise {
cannam@127:     local ($in) = @_;
cannam@127:     local ($out);
cannam@127:     $in= ' '.$in.' ';
cannam@127:     $out='';
cannam@127:     while ($in =~ m/(\s)(\S*[\@\/|\\\"\^\&\{\}\#]\S*)(\s)/) {
cannam@127:         $out .= $`.$1;
cannam@127:         $in = $3.$';
cannam@127:         $_= $2;
cannam@127:         s/[\\\"]/\\$&/g;
cannam@127:         $out .= '"'.$_.'"';
cannam@127:     }
cannam@127:     $out .= $in;
cannam@127:     $out =~ s/^ //;  $out =~ s/ $//;
cannam@127:     $out;
cannam@127: }
cannam@127: 
cannam@127: sub lout_endpara {
cannam@127:     return if $lout_status eq '';
cannam@127:     if ($lout_styles eq '') {
cannam@127:         print LOUT "\@LP\n\n";
cannam@127:     } elsif ($lout_styles =~ s/I$//) {
cannam@127:         print LOUT "}\n";
cannam@127:     }
cannam@127:     $lout_status= '';
cannam@127: }
cannam@127: 
cannam@127: sub lout_startverbatim {
cannam@127:     print LOUT "//0.4f\n\@RawIndentedDisplay lines \@Break".
cannam@127:                " { {0.7 1.0} \@Scale {Courier Bold} \@Font {\n";
cannam@127: }
cannam@127: 
cannam@127: sub lout_verbatim {
cannam@127:     $_= $_[0];
cannam@127:     s/^\s*//;
cannam@127:     print LOUT &lout_sanitise($_),"\n";
cannam@127: }
cannam@127: 
cannam@127: sub lout_endverbatim { print LOUT "}\n}\n//0.4f\n"; }
cannam@127: 
cannam@127: 1;