Fresh Fish 8/FreshFishVol8-CD1.bin/new/docs/misc/amigafaqg/bin/texi2html

Text File | 1994-07-28 | 41KB | 1,570 lines

#!/usr/local/dist/bin/perl
'di';
'ig00';
#+##############################################################################
#                                                                              #
# File: texi2html                                                              #
#                                                                              #
# Description: Program to transform most Texinfo documents to HTML             #
#                                                                              #
#-##############################################################################

# @(#)texi2html    1.29 04/21/94    Written by Lionel Cons, [e-mail]

# texi2html 1.29af 08.08.94   by Hans Maurer
# Made some modifications for better compatability with AmigaFAQ

# The man page for this program is included at the end of this file and can be
# viewed using the command 'nroff -man texi2html'.
# Please read the copyright at the end of the man page.

#+++############################################################################
#                                                                              #
# Constants                                                                    #
#                                                                              #
#---############################################################################

$DEBUG_TOC = 1;
$DEBUG_INDEX = 2;
$DEBUG_BIB = 4;
$DEBUG_GLOSS = 8;
$DEBUG_DEF = 16;

$BIBRE = '\[[\w\/]+\]';            # RE for a bibliography reference
$FILERE = '[\/\w.+-]+';            # RE for a file name
$VARRE = '[^\s\{\}]+';            # RE for a variable name
$NODERE = '[^@{}:\'`",]+';        # RE for a node name
$NODESRE = '[^@{}:\'`"]+';        # RE for a list of node names
$XREFRE = '[^@{}]+';            # RE for a xref (should use NODERE)

$THISPROG = "texi2html 1.29af";            # program name and version
$TODAY = &pretty_date;            # like "20 September 1993"
$SPLITTAG = "<!-- SPLIT HERE -->\n";    # tag to know where to split
$PROTECTTAG = "_ThisIsProtected_";    # tag to recognize protected sections

#
# language dependent constants
#
$LDC =
    (
     'xrefstring',     'see',
     'Xrefstring',     'See',
     'Footnotestring', 'Footnote',
     'Chapterstring',  'Chapter',
     'Appendixstring', 'Appendix',
     'Sectionstring',  'Section',
     'sectionstring',  'section',
     'pagestring',     'page',
     );

#
# texinfo section names to level
#
%sec2level = (
          'top', 0,
          'chapter', 1,
          'unnumbered', 1,
          'majorheading', 1,
          'chapheading', 1,
          'appendix', 1,
          'section', 2,
          'unnumberedsec', 2,
          'heading', 2,
          'appendixsec', 2,
          'appendixsection', 2,
          'subsection', 3,
          'unnumberedsubsec', 3,
          'subheading', 3,
          'appendixsubsec', 3,
          'subsubsection', 4,
          'unnumberedsubsubsec', 4,
          'subsubheading', 4,
          'appendixsubsubsec', 4,
          );

#
# texinfo "simple things" (@foo) to HTML ones
#
%simple_map = (
           # cf. makeinfo.c
           "*", "<BR>",        # HTML+
           " ", " ",
           "\n", "\n",
           "|", "",
           # spacing commands
           ":", "",
           "!", "!",
           "?", "?",
           ".", ".",
           );

#
# texinfo "things" (@foo{}) to HTML ones
#
%things_map = (
           'TeX', 'TeX',
           'br', '<P>',        # paragraph break
           'bullet', '*',
           'copyright', '(C)',
           'dots', '...',
           'equiv', '==',
           'error', 'error-->',
           'expansion', '==>',
           'minus', '-',
           'point', '-!-',
           'print', '-|',
           'result', '=>',
           'today', $TODAY,
           );

#
# texinfo styles (@foo{bar}) to HTML ones
#
%style_map = (
          'asis', '',
          'b', 'B',
          'cite', 'CITE',
          'code', 'CODE',
          'ctrl', '&do_ctrl',    # special case
          'dfn', 'DFN',
          'dmn', '',        # useless
          'emph', 'EM',
          'file', '"TT',        # will put quotes, cf. &apply_style
          'i', 'I',
          'kbd', 'KBD',
          'key', 'KBD',
          'r', '',            # unsupported
          'samp', '"SAMP',        # will put quotes, cf. &apply_style
          'sc', '&do_sc',        # special case
          'subtitle', 'H2',
          'strong', 'STRONG',
          't', 'TT',
          'title', 'H1',
          'titlefont', '',        # useless
          'var', 'VAR',
          'w', '',            # unsupported
          );

#
# texinfo format (@foo/@end foo) to HTML ones
#
%format_map = (
           'display', 'PRE',
           'example', 'PRE',
           'format', 'PRE',
           'lisp', 'PRE',
           'quotation', 'BLOCKQUOTE',
           'smallexample', 'PRE',
           'smalllisp', 'PRE',
           # lists
           'itemize', 'UL',
           'enumerate', 'OL',
           # poorly supported
           'flushleft', 'PRE',
           'flushright', 'PRE',
           );

#
# texinfo definition shortcuts to real ones
#
%def_map = (
        # basic commands
        'deffn', 0,
        'defvr', 0,
        'deftypefn', 0,
        'deftypevr', 0,
        'defcv', 0,
        'defop', 0,
        'deftp', 0,
        # basic x commands
        'deffnx', 0,
        'defvrx', 0,
        'deftypefnx', 0,
        'deftypevrx', 0,
        'defcvx', 0,
        'defopx', 0,
        'deftpx', 0,
        # shortcuts
        'defun', 'deffn Function',
        'defmac', 'deffn Macro',
        'defspec', 'deffn {Special Form}',
        'defvar', 'defvr Variable',
        'defopt', 'defvr {User Option}',
        'deftypefun', 'deftypefn Function',
        'deftypevar', 'deftypevr Variable',
        'defivar', 'defcv {Instance Variable}',
        'defmethod', 'defop Method',
        # x shortcuts
        'defunx', 'deffnx Function',
        'defmacx', 'deffnx Macro',
        'defspecx', 'deffnx {Special Form}',
        'defvarx', 'defvrx Variable',
        'defoptx', 'defvrx {User Option}',
        'deftypefunx', 'deftypefnx Function',
        'deftypevarx', 'deftypevrx Variable',
        'defivarx', 'defcvx {Instance Variable}',
        'defmethodx', 'defopx Method',
        );

#
# things to skip
#
%to_skip = (
        # comments
        'c', 1,
        'comment', 1,
        # useless
        'contents', 1,
        'shortcontents', 1,
        'summarycontents', 1,
        'footnotestyle', 1,
        'end ifclear', 1,
        'end ifset', 1,
        'iftex', 1,
        'end iftex', 1,
        'parskip', 1,
        'titlepage', 1,
        'end titlepage', 1,
        # unsupported commands (formatting)
        'afourpaper', 1,
        'cropmarks', 1,
        'finalout', 1,
        'headings', 1,
        'need', 1,
        'page', 1,
        'setchapternewpage', 1,
        'everyheading', 1,
        'everyfooting', 1,
        'evenheading', 1,
        'evenfooting', 1,
        'oddheading', 1,
        'oddfooting', 1,
        'smallbook', 1,
        'vskip', 1,
        # unsupported formats
        'cartouche', 1,
        'end cartouche', 1,
        'group', 1,
        'end group', 1,
        # misc unsupported commands
            'defindex', 1,
        );

#+++############################################################################
#                                                                              #
# Argument parsing, initialisation                                             #
#                                                                              #
#---############################################################################

$invisible_mark = '';
$use_bibliography = 1;
$usage = <<EOT;
This is $THISPROG
To convert a Texinfo file to HMTL: $0 [options] file
  where options can be:
    -glossary      : handle a glossary
    -invisible name: use name as an invisible anchor
    -menu          : handle menus
    -split_chapter : split on main sections
    -split_node    : split on nodes
    -usage         : print usage instructions
    -verbose       : verbose output
To check converted files: $0 -check [-verbose] files
EOT

while ($_ = $ARGV[0], /^-/) {
    shift;
    if (/^-d(ebug)?(\d+)?$/) { $debug = $2 || shift; next; }
    if (/^-c(heck)?$/)       { $check = 1; next; }
    if (/^-g(lossary)?$/)    { $use_glossary = 1; next; }
    if (/^-i(nvisible)?$/)   { $invisible_mark = shift; next; }
    if (/^-iso$/)            { $use_iso = 1; next; }
    if (/^-m(enu)?$/)        { $show_menu = 1; next; }
    if (/^-s(plit)?_?(n(ode)?|c(hapter)?)?$/) {
    if ($2 =~ /^n/) {
        $split_node = 1;
    } else {
        $split_chapter = 1;
    }
    next;
    }
    if (/^-v(erbose)?$/)     { $verbose = 1; next;