summaryrefslogtreecommitdiff
path: root/Build/source/utils/asymptote/doc/FAQ/m-lout.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/asymptote/doc/FAQ/m-lout.pl')
-rw-r--r--Build/source/utils/asymptote/doc/FAQ/m-lout.pl242
1 files changed, 0 insertions, 242 deletions
diff --git a/Build/source/utils/asymptote/doc/FAQ/m-lout.pl b/Build/source/utils/asymptote/doc/FAQ/m-lout.pl
deleted file mode 100644
index 5c44852c750..00000000000
--- a/Build/source/utils/asymptote/doc/FAQ/m-lout.pl
+++ /dev/null
@@ -1,242 +0,0 @@
-## Lout 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 lout_init {
- open(LOUT,">$prefix.lout");
- chop($dprint= `date '+%d %B %Y'`);
- $dprint =~ s/^0//;
-}
-
-sub lout_startup {
- local ($lbs) = &lout_sanitise($user_brieftitle);
- print LOUT <<END;
-\@SysInclude{ fontdefs }
-\@SysInclude{ langdefs }
-\@SysInclude{ dl }
-\@SysInclude{ docf }
-\@Use { \@DocumentLayout
- \@OddTop { \@Null }
- \@EvenTop { \@Null }
- \@StartOddTop { \@Null }
- \@StartEvenTop { \@Null }
- \@OddFoot { { $lbs } \@Centre{ - \@PageNum - } \@Right{ $dprint } }
- \@EvenFoot { { $lbs } \@Centre{ - \@PageNum - } \@Right{ $dprint } }
- \@StartOddFoot { { $lbs } \@Centre{ - \@PageNum - } \@Right{ $dprint } }
- \@StartEvenFoot { { $lbs } \@Centre{ - \@PageNum - } \@Right{ $dprint } }
- \@ParaGap { 1.70vx }
- \@InitialBreak { 1.0fx ragged hyphen }
-}
-\@Use { \@OrdinaryLayout }
-END
- $lout_textstatus= 'p';
-}
-
-sub lout_pageref {
- print LOUT "Q$_[1] (page {\@PageOf{$_[0]}}) ";
- &lout_text("\`");
-}
-
-sub lout_endpageref {
- &lout_text("'");
-}
-
-sub lout_finish {
- print LOUT "\@End \@Text\n";
- close(L);
-}
-
-sub lout_startmajorheading {
- $lout_styles .= 'h';
- print LOUT <<END
-\@CNP
-{
- newpath 0 ysize 0.3 ft sub moveto
- xsize 0 rlineto
- 0 0.2 ft rlineto
- xsize neg 0 rlineto
- closepath fill
-} \@Graphic { //1.6f \@HAdjust \@Heading{
-END
- ;
- $endh= "}\n{\@PageMark s_$_[0]}\n/1.0fo\n";
- &lout_text($_[0] ? "Section $_[0]. " : '');
-}
-
-sub lout_startminorheading {
- $lout_styles .= 'h';
- print LOUT "//0.2f \@CNP {\@PageMark $_[0]} \@Heading{\n";
- $endh= '';
-}
-
-sub lout_endheading {
- $lout_styles =~ s/.$//; print LOUT "}\n$endh";
- $lout_status= 'p';
-}
-
-sub lout_endmajorheading { &lout_endheading(@_); }
-sub lout_endminorheading { &lout_endheading(@_); }
-
-sub lout_courier {
- $lout_styles .= 'f';
- print LOUT "{{0.7 1.0} \@Scale {Courier Bold} \@Font {";
-}
-
-sub lout_endcourier {
- $lout_styles =~ s/.$//; print LOUT "}}";
-}
-
-sub lout_italic { $lout_styles .= 'f'; print LOUT "{Slope \@Font {"; }
-sub lout_enditalic { $lout_styles =~ s/.$//; print LOUT "}}"; }
-
-sub lout_startindent { $lout_styles .= 'i'; print LOUT "\@IndentedDisplay {\n"; }
-
-sub lout_endindent {
- &lout_endpara;
- $lout_styles =~ s/.$//; print LOUT "}\n\@LP\n";
-}
-
-sub lout_startpackedlist { $lout_plc=-1; }
-sub lout_endpackedlist { &lout_newline if !$lout_plc; }
-sub lout_packeditem {
- &lout_newline if !$lout_plc;
- &lout_tab(($lout_plc>0)*40+5);
- $lout_plc= !$lout_plc;
-}
-
-sub lout_startlist {
- &lout_endpara;
- print LOUT "\@RawIndentedList style {\@Bullet} indent {0.5i} gap {1.1vx}\n";
- $lout_styles .= 'l';
- $lout_status= '';
-}
-
-sub lout_endlist {
- &lout_endpara;
- print LOUT "\@EndList\n\n";
- $lout_styles =~ s/.$//;
-}
-
-sub lout_item {
- &lout_endpara;
- print LOUT "\@ListItem{";
- $lout_styles.= 'I';
-}
-
-sub lout_startindex {
- print LOUT "//0.0fe\n";
-}
-
-sub lout_endindex {
- $lout_status='p';
-}
-
-sub lout_startindexmainitem {
- $lout_marker= $_[0];
- $lout_status= '';
- print LOUT "//0.3vx Bold \@Font \@HAdjust { \@HContract { { $_[1] } |3cx {";
- $lout_iiendheight= '1.00';
- $lout_styles .= 'X';
-}
-
-sub lout_startindexitem {
- $lout_marker= $_[0];
- print LOUT "\@HAdjust { \@HContract { { $_[1] } |3cx {";
- $lout_iiendheight= '0.95';
- $lout_styles .= 'X';
-}
-
-sub lout_endindexitem {
- print LOUT "} } |0c \@PageOf { $lout_marker } } //${lout_iiendheight}vx\n";
- $lout_styles =~ s/.$//;
-}
-
-sub lout_email { &lout_courier; &lout_text('<'); }
-sub lout_endemail { &lout_text('>'); &lout_endcourier; }
-
-sub lout_ftpon { &lout_courier; } sub lout_endftpon { &lout_endcourier; }
-sub lout_ftpin { &lout_courier; } sub lout_endftpin { &lout_endcourier; }
-sub lout_docref { } sub lout_enddocref { }
-sub lout_ftpsilent { $lout_ignore++; }
-sub lout_endftpsilent { $lout_ignore--; }
-
-sub lout_newsgroup { &lout_courier; }
-sub lout_endnewsgroup { &lout_endcourier; }
-
-sub lout_text {
- return if $lout_ignore;
- $lout_status= 'p';
- $_= &lout_sanitise($_[0]);
- s/ $/\n/ unless $lout_styles =~ m/[fhX]/;
- print LOUT $_;
-}
-
-sub lout_tab {
- local ($size) = $_[0]*0.5;
- print LOUT " |${size}ft ";
-}
-
-sub lout_newline {
- print LOUT " //1.0vx\n";
-}
-
-sub lout_sanitise {
- local ($in) = @_;
- local ($out);
- $in= ' '.$in.' ';
- $out='';
- while ($in =~ m/(\s)(\S*[\@\/|\\\"\^\&\{\}\#]\S*)(\s)/) {
- $out .= $`.$1;
- $in = $3.$';
- $_= $2;
- s/[\\\"]/\\$&/g;
- $out .= '"'.$_.'"';
- }
- $out .= $in;
- $out =~ s/^ //; $out =~ s/ $//;
- $out;
-}
-
-sub lout_endpara {
- return if $lout_status eq '';
- if ($lout_styles eq '') {
- print LOUT "\@LP\n\n";
- } elsif ($lout_styles =~ s/I$//) {
- print LOUT "}\n";
- }
- $lout_status= '';
-}
-
-sub lout_startverbatim {
- print LOUT "//0.4f\n\@RawIndentedDisplay lines \@Break".
- " { {0.7 1.0} \@Scale {Courier Bold} \@Font {\n";
-}
-
-sub lout_verbatim {
- $_= $_[0];
- s/^\s*//;
- print LOUT &lout_sanitise($_),"\n";
-}
-
-sub lout_endverbatim { print LOUT "}\n}\n//0.4f\n"; }
-
-1;
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-15 11:25:06 +0000