diff options
Diffstat (limited to 'Build/source/utils/asymptote/doc/FAQ/m-ascii.pl')
| -rw-r--r-- | Build/source/utils/asymptote/doc/FAQ/m-ascii.pl | 189 |
1 files changed, 0 insertions, 189 deletions
diff --git a/Build/source/utils/asymptote/doc/FAQ/m-ascii.pl b/Build/source/utils/asymptote/doc/FAQ/m-ascii.pl deleted file mode 100644 index d05f8ed80d2..00000000000 --- a/Build/source/utils/asymptote/doc/FAQ/m-ascii.pl +++ /dev/null @@ -1,189 +0,0 @@ -## 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; |