开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > MySQL数据库 > 查看源码
texi2html
资源名称：mysql-3.23.35.tar.gz　[点击查看]
上传用户：tsgydb
上传日期：2007-04-14
资源大小：10674k
文件大小：58k
源码类别：

MySQL数据库

开发平台：

Visual C++

texi2html：源码内容
  1. #!PATH_TO_PERL -*- perl -*-
  2. # Add path to perl on the previous line and make this executable
  3. # if you want to use this as a normal script.
  4. 'di ';
  5. 'ig 00 ';
  6. #+##############################################################################
  7. #                                                                              #
  8. # File: texi2html                                                              #
  9. #                                                                              #
  10. # Description: Program to transform most Texinfo documents to HTML             #
  11. #                                                                              #
  12. #-##############################################################################
  14. # @(#)texi2html 1.52 971230 Written (mainly) by Lionel Cons, Lionel.Cons@cern.ch
  15. # Enhanced by David Axmark, david@detron.se
  17. # The man page for this program is included at the end of this file and can be
  18. # viewed using the command 'nroff -man texi2html'.
  19. # Please read the copyright at the end of the man page.
  21. #+++############################################################################
  22. #                                                                              #
  23. # Constants                                                                    #
  24. #                                                                              #
  25. #---############################################################################
  27. $DEBUG_TOC   =  1;
  28. $DEBUG_INDEX =  2;
  29. $DEBUG_BIB   =  4;
  30. $DEBUG_GLOSS =  8;
  31. $DEBUG_DEF   = 16;
  32. $DEBUG_HTML  = 32;
  33. $DEBUG_USER  = 64;
  35. $BIBRE = '[[w/]+]'; # RE for a bibliography reference
  36. $FILERE = '[/w.+-]+'; # RE for a file name
  37. $VARRE = '[^s{}]+'; # RE for a variable name
  38. $NODERE = '[^@{}:'`",]+'; # RE for a node name
  39. $NODESRE = '[^@{}:'`"]+'; # RE for a list of node names
  40. $XREFRE = '[^@{}]+'; # RE for a xref (should use NODERE)
  42. $ERROR = "***";         # prefix for errors and warnings
  43. $THISPROG = "texi2html 1.52 (hacked by david@detron.se)"; # program name and version
  44. $HOMEPAGE = "http://www.mathematik.uni-kl.de/~obachman/Texi2html/"; # program home page
  45. $TODAY = &pretty_date; # like "20 September 1993"
  46. $SPLITTAG = "<!-- SPLIT HERE -->n"; # tag to know where to split
  47. $PROTECTTAG = "_ThisIsProtected_"; # tag to recognize protected sections
  48. $html2_doctype = '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0 Strict Level 2//EN">';
  50. #
  51. # language dependent constants
  52. #
  53. #$LDC_SEE = 'see';
  54. #$LDC_SECTION = 'section';
  55. #$LDC_IN = 'in';
  56. #$LDC_TOC = 'Table of Contents';
  57. #$LDC_GOTO = 'Go to the';
  58. #$LDC_FOOT = 'Footnotes';
  59. # TODO: @def* shortcuts
  61. #$user_sub{"email"} = "fix_email";
  63. #
  64. # pre-defined indices
  65. #
  66. %predefined_index = (
  67.      'cp', 'c',
  68.      'fn', 'f',
  69.      'vr', 'v',
  70.      'ky', 'k',
  71.      'pg', 'p',
  72.      'tp', 't',
  73.      );
  75. #
  76. # valid indices
  77. #
  78. %valid_index = (
  79. 'c', 1,
  80. 'f', 1,
  81. 'v', 1,
  82. 'k', 1,
  83. 'p', 1,
  84. 't', 1,
  85. );
  87. #
  88. # texinfo section names to level
  89. #
  90. %sec2level = (
  91.       'top', 0,
  92.       'chapter', 1,
  93.       'unnumbered', 1,
  94.       'majorheading', 1,
  95.       'chapheading', 1,
  96.       'appendix', 1,
  97.       'section', 2,
  98.       'unnumberedsec', 2,
  99.       'heading', 2,
  100.       'appendixsec', 2,
  101.       'appendixsection', 2,
  102.       'subsection', 3,
  103.       'unnumberedsubsec', 3,
  104.       'subheading', 3,
  105.       'appendixsubsec', 3,
  106.       'subsubsection', 4,
  107.       'unnumberedsubsubsec', 4,
  108.       'subsubheading', 4,
  109.       'appendixsubsubsec', 4,
  110.       );
  112. #
  113. # accent map, TeX command to ISO name
  114. #
  115. %accent_map = (
  116.        '"',  'uml',
  117.        '~',  'tilde',
  118.        '^',  'circ',
  119.        '`',  'grave',
  120.        ''', 'acute',
  121.        );
  123. #
  124. # texinfo "simple things" (@foo) to HTML ones
  125. #
  126. %simple_map = (
  127.        # cf. makeinfo.c
  128.        "*", "<BR>", # HTML+
  129.        " ", " ",
  130.        "n", "n",
  131.        "|", "",
  132.        # spacing commands
  133.        ":", "",
  134.        "!", "!",
  135.        "?", "?",
  136.        ".", ".",
  137.        );
  139. #
  140. # texinfo "things" (@foo{}) to HTML ones
  141. #
  142. %things_map = (
  143.        'TeX', 'TeX',
  144.        'br', '<P>', # paragraph break
  145.        'bullet', '*',
  146.        'copyright', '(C)',
  147.        'dots', '...',
  148.        'equiv', '==',
  149.        'error', 'error-->',
  150.        'expansion', '==>',
  151.        'minus', '-',
  152.        'point', '-!-',
  153.        'print', '-|',
  154.        'result', '=>',
  155.        'today', $TODAY,
  156.        );
  158. #
  159. # texinfo styles (@foo{bar}) to HTML ones
  160. #
  161. %style_map = (
  162.       'asis', '',
  163.       'b', 'B',
  164.       'cite', 'CITE',
  165.       'code', 'CODE',
  166.       'ctrl', '&do_ctrl', # special case
  167.       'dfn', 'STRONG', # DFN tag is illegal in the standard
  168.       'dmn', '', # useless
  169.       'email', '&fix_email', # special
  170.       'emph', 'EM',
  171.       'file', '"TT', # will put quotes, cf. &apply_style
  172.       'i', 'I',
  173.       'kbd', 'KBD',
  174.       'key', 'KBD',
  175.       'r', '', # unsupported
  176.       'samp', '"SAMP', # will put quotes, cf. &apply_style
  177.       'sc', '&do_sc', # special case
  178.       'strong', 'STRONG',
  179.       't', 'TT',
  180.       'titlefont', '', # useless
  181.       'image', '&fix_image', # Image
  182.       'url', '&fix_url', # URL
  183.       'uref', '&fix_uref', # URL Reference
  184.       'var', 'VAR',
  185.       'w', '', # unsupported
  186.       );
  188. #
  189. # texinfo format (@foo/@end foo) to HTML ones
  190. #
  191. %format_map = (
  192.        'display', 'PRE',
  193.        'example', 'PRE',
  194.        'format', 'PRE',
  195.        'lisp', 'PRE',
  196.        'quotation', 'BLOCKQUOTE',
  197.        'smallexample', 'PRE',
  198.        'smalllisp', 'PRE',
  199.        # lists
  200.        'itemize', 'UL',
  201.        'enumerate', 'OL',
  202.        # poorly supported
  203.        'flushleft', 'PRE',
  204.        'flushright', 'PRE',
  205.        );
  207. #
  208. # texinfo definition shortcuts to real ones
  209. #
  210. %def_map = (
  211.     # basic commands
  212.     'deffn', 0,
  213.     'defvr', 0,
  214.     'deftypefn', 0,
  215.     'deftypevr', 0,
  216.     'defcv', 0,
  217.     'defop', 0,
  218.     'deftp', 0,
  219.     # basic x commands
  220.     'deffnx', 0,
  221.     'defvrx', 0,
  222.     'deftypefnx', 0,
  223.     'deftypevrx', 0,
  224.     'defcvx', 0,
  225.     'defopx', 0,
  226.     'deftpx', 0,
  227.     # shortcuts
  228.     'defun', 'deffn Function',
  229.     'defmac', 'deffn Macro',
  230.     'defspec', 'deffn {Special Form}',
  231.     'defvar', 'defvr Variable',
  232.     'defopt', 'defvr {User Option}',
  233.     'deftypefun', 'deftypefn Function',
  234.     'deftypevar', 'deftypevr Variable',
  235.     'defivar', 'defcv {Instance Variable}',
  236.     'defmethod', 'defop Method',
  237.     # x shortcuts
  238.     'defunx', 'deffnx Function',
  239.     'defmacx', 'deffnx Macro',
  240.     'defspecx', 'deffnx {Special Form}',
  241.     'defvarx', 'defvrx Variable',
  242.     'defoptx', 'defvrx {User Option}',
  243.     'deftypefunx', 'deftypefnx Function',
  244.     'deftypevarx', 'deftypevrx Variable',
  245.     'defivarx', 'defcvx {Instance Variable}',
  246.     'defmethodx', 'defopx Method',
  247.     );
  249. #
  250. # things to skip
  251. #
  252. %to_skip = (
  253.     # comments
  254.     'c', 1,
  255.     'comment', 1,
  256.     # useless
  257.     'contents', 1,
  258.     'shortcontents', 1,
  259.     'summarycontents', 1,
  260.     'footnotestyle', 1,
  261.     'end ifclear', 1,
  262.     'end ifset', 1,
  263.     'titlepage', 1,
  264.     'end titlepage', 1,
  265.     # unsupported commands (formatting)
  266.     'afourpaper', 1,
  267.     'cropmarks', 1,
  268.     'finalout', 1,
  269.     'headings', 1,
  270.     'need', 1,
  271.     'page', 1,
  272.     'setchapternewpage', 1,
  273.     'everyheading', 1,
  274.     'everyfooting', 1,
  275.     'evenheading', 1,
  276.     'evenfooting', 1,
  277.     'oddheading', 1,
  278.     'oddfooting', 1,
  279.     'smallbook', 1,
  280.     'vskip', 1,
  281.     'filbreak', 1,
  282.     # unsupported formats
  283.     'cartouche', 1,
  284.     'end cartouche', 1,
  285.     'group', 1,
  286.     'end group', 1,
  287.     );
  289. #+++############################################################################
  290. #                                                                              #
  291. # Argument parsing, initialisation                                             #
  292. #                                                                              #
  293. #---############################################################################
  295. %value = (); # hold texinfo variables
  297. $use_bibliography = 1;
  298. $use_acc = 0;
  299. $debug = 0;
  300. $doctype = '';
  301. $check = 0;
  302. $expandinfo = 0;
  303. $use_glossary = 0;
  304. $invisible_mark = '';
  305. $use_iso = 0;
  306. @include_dirs = ();
  307. $show_menu = 0;
  308. $number_sections = 0;
  309. $split_node = 0;
  310. $split_chapter = 0;
  311. $monolithic = 0;
  312. $verbose = 0;
  313. $opt_use_numbers = 0;
  314. $opt_empty_headers = 0;
  315. $opt_special_links = "";
  316. $usage = <<EOT;
  317. This is $THISPROG
  318. To convert a Texinfo file to HMTL: $0 [options] file
  319. where options can be:
  320. -expandinfo    : use @ifinfo sections, not @iftex
  321. -glossary      : handle a glossary
  322. -invisible name: use 'name' as an invisible anchor
  323. -I dir         : search also for files in 'dir'
  324. -Dvar=value    : define a variable, as with @set
  325. -menu          : handle menus
  326. -monolithic    : output only one file including ToC
  327. -number        : number sections
  328. -split_chapter : split on main sections
  329. -split_node    : split on nodes
  330. -ref_num       : use numeric names when spliting
  331. -empty_headers : no headers and implicit links (for inclusion into other documents)
  332. -usage         : print usage instructions
  333. -verbose       : verbose output
  334. To check converted files: $0 -check [-verbose] files
  335. EOT
  336.   # 
  337. while ($#ARGV >= 0 && $ARGV[0] =~ /^-/)
  338. {
  339.   $_ = shift(@ARGV);
  340.   if (/^-acc$/)            { $use_acc = 1; next; }
  341.   if (/^-d(ebug)?(d+)?$/) { $debug = $2 || shift(@ARGV); next; }
  342.   if (/^-doctype$/)        { $doctype = shift(@ARGV); next; }
  343.   if (/^-c(heck)?$/)       { $check = 1; next; }
  344.   if (/^-e(xpandinfo)?$/)  { $expandinfo = 1; next; }
  345.   if (/^-g(lossary)?$/)    { $use_glossary = 1; next; }
  346.   if (/^-i(nvisible)?$/)   { $invisible_mark = shift(@ARGV); next; }
  347.   if (/^-iso$/)            { $use_iso = 1; next; }
  348.   if (/^-I(.+)?$/)         { push(@include_dirs, $2 || shift(@ARGV)); next; }
  349.   if (/^-D([a-zA-Z0-9]+)=?(.+)?$/)
  350.    { $value{$1} = $2 ? $2 : 1; next; }
  351.   if (/^-m(enu)?$/)        { $show_menu = 1; next; }
  352.   if (/^-mono(lithic)?$/)  { $monolithic = 1; next; }
  353.   if (/^-n(umber)?$/)      { $number_sections = 1; next; }
  354.   if (/^-ref_num$/)        { $opt_use_numbers = 1; next; }
  355.   if (/^-empty_headers$/)  { $opt_empty_headers = 1; next; }
  356.   if (/^-special_links$/)  { $opt_special_links = $2 || shift(@ARGV); next; }
  357.   if (/^-s(plit)?_?(n(ode)?|c(hapter)?)?$/) {
  358.     if ($2 =~ /^n/) {
  359.       $split_node = 1;
  360.     } else {
  361.       $split_chapter = 1;
  362.     }
  363.     next;
  364.   }
  365.   if (/^-v(erbose)?$/)     { $verbose = 1; next; }
  366.   die $usage;
  367. }
  368. if ($check) {
  369.   die $usage unless @ARGV > 0;
  370.   &check;
  371.   exit;
  372. }
  374. die "Can't use -special_links with -ref_num.n"
  375.   if $opt_special_links && $opt_use_numbers;
  376. die "Must have -split_node with -special_links.n"
  377.   if $opt_special_links && !$split_node;
  379. if (($split_node || $split_chapter) && $monolithic) {
  380.   warn "Can't use -monolithic with -split, -monolithic ignored.n";
  381.   $monolithic = 0;
  382. }
  383. if ($expandinfo) {
  384.   $to_skip{'ifinfo'}++;
  385.   $to_skip{'end ifinfo'}++;
  386. } else {
  387.   $to_skip{'iftex'}++;
  388.   $to_skip{'end iftex'}++;
  389. }
  390. $invisible_mark = '<IMG SRC="invisible.xbm">' if $invisible_mark eq 'xbm';
  391. die $usage unless @ARGV == 1;
  392. $docu = shift(@ARGV);
  393. if ($docu =~ /.*//) {
  394.   chop($docu_dir = $&);
  395.   $docu_name = $';
  396. } else {
  397.   $docu_dir = '.';
  398.   $docu_name = $docu;
  399. }
  400. unshift(@include_dirs, $docu_dir);
  401. $docu_name =~ s/.te?x(i|info)?$//; # basename of the document
  403. $docu_doc = "$docu_name.html"; # document's contents
  404. $link_doc = $docu_doc;
  405. if ($monolithic) {
  406.   $docu_toc = $docu_foot = $docu_doc;
  407. } else {
  408.   $docu_toc  = "${docu_name}_toc.html"; # document's table of contents
  409.   $docu_foot = "${docu_name}_foot.html"; # document's footnotes
  410. }
  412. #
  413. # variables
  414. #
  415. $value{'html'} = 1; # predefine html (the output format)
  416. $value{'texi2html'} = '1.52'; # predefine texi2html (the translator)
  417. # _foo: internal to track @foo
  418. foreach ('_author', '_title', '_subtitle',
  419.  '_settitle', '_setfilename') {
  420.   $value{$_} = ''; # prevent -w warnings
  421. }
  422. %node2sec = (); # node to section name
  423. %node2href = (); # node to HREF
  424. %bib2href = (); # bibliography reference to HREF
  425. %gloss2href = (); # glossary term to HREF
  426. @sections = (); # list of sections
  427. %tag2pro = (); # protected sections
  429. #
  430. # initial indexes
  431. #
  432. $bib_num = 0;
  433. $foot_num = 0;
  434. $gloss_num = 0;
  435. $idx_num = 0;
  436. $sec_num = 0;
  437. $doc_num = 0;
  438. $current_chapter_link = "";
  439. @maybe_wrong_links = ();
  440. $html_num = 0;
  442. #
  443. # can I use ISO8879 characters? (HTML+)
  444. #
  445. if ($use_iso) {
  446.   $things_map{'bullet'} = "&bull;";
  447.   $things_map{'copyright'} = "&copy;";
  448.   $things_map{'dots'} = "&hellip;";
  449.   $things_map{'equiv'} = "&equiv;";
  450.   $things_map{'expansion'} = "&rarr;";
  451.   $things_map{'point'} = "&lowast;";
  452.   $things_map{'result'} = "&rArr;";
  453. }
  455. #
  456. # read texi2html extensions (if any)
  457. #
  458. $extensions = 'texi2html.ext'; # extensions in working directory
  459. if (-f $extensions) {
  460.   print "# reading extensions from $extensionsn" if $verbose;
  461.   require($extensions);
  462. }
  463. ($progdir = $0) =~ s/[^/]+$//;
  464. if ($progdir && ($progdir ne './'))
  465. {
  466.   $extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory
  467.   if (-f $extensions) {
  468.     print "# reading extensions from $extensionsn" if $verbose;
  469.     require($extensions);
  470.   }
  471. }
  473.   print "# reading from $docun" if $verbose;
  475. #+++############################################################################
  476. #                                                                              #
  477. # Pass 1: read source, handle command, variable, simple substitution           #
  478. #                                                                              #
  479. #---############################################################################
  481. @lines = (); # whole document
  482. @toc_lines = (); # table of contents
  483. $toplevel = 0; # top level seen in hierarchy
  484. $curlevel = 0; # current level in TOC
  485. $node = ''; # current node name
  486. $in_table = 0; # am I inside a table
  487. $table_type = ''; # type of table ('', 'f', 'v')
  488. @tables = (); # nested table support
  489. $in_bibliography = 0; # am I inside a bibliography
  490. $in_glossary = 0; # am I inside a glossary
  491. $in_top = 0; # am I inside the top node
  492. $in_pre = 0; # am I inside a preformatted section
  493. $in_list = 0; # am I inside a list
  494. $in_html = 0; # am I inside an HTML section
  495. $first_line = 1; # is it the first line
  496. $dont_html = 0; # don't protect HTML on this line
  497. $split_num = 0; # split index
  498. $deferred_ref = ''; # deferred reference for indexes
  499. @html_stack = (); # HTML elements stack
  500. $html_element = ''; # current HTML element
  501. &html_reset;
  503. # build code for simple substitutions
  504. # the maps used (%simple_map and %things_map) MUST be aware of this
  505. # watch out for regexps, / and escaped characters!
  506. $subst_code = '';
  507. foreach (keys(%simple_map)) {
  508.   ($re = $_) =~ s/(W)/\$1/g; # protect regexp chars
  509.   $subst_code .= "s/\@$re/$simple_map{$_}/g;n";
  510. }
  511. foreach (keys(%things_map)) {
  512.   $subst_code .= "s/\@$_\{\}/$things_map{$_}/g;n";
  513. }
  514. if ($use_acc) {
  515.   # accentuated characters
  516.   foreach (keys(%accent_map)) {
  517.     if ($_ eq "`") {
  518.       $subst_code .= "s/$;3";
  519.     } elsif ($_ eq "'") {
  520.       $subst_code .= "s/$;4";
  521.     } else {
  522.       $subst_code .= "s/\@\$_";
  523.     }
  524.     $subst_code .= "([aeiou])/&${1}$accent_map{$_};/gi;n";
  525.   }
  526. }
  527. eval("sub simple_substitutions { $subst_code }");
  529. &init_input;
  530. READ_LINE: while ($_ = &next_line)
  531. {
  532.   #
  533.   # remove input on the first lines only
  534.   #
  535.   if ($first_line) {
  536.     next if /^\input/;
  537.     $first_line = 0;
  538.   }
  539.   #
  540.   # parse texinfo tags
  541.   #
  542.   $tag = '';
  543.   $end_tag = '';
  544.   if (/^s*@ends+(w+)b/) {
  545.     $end_tag = $1;
  546.   } elsif (/^s*@(w+)b/) {
  547.     $tag = $1;
  548.   }
  549.   #
  550.   # handle @ifhtml / @end ifhtml
  551.   #
  552.   if ($in_html) {
  553.     if ($end_tag eq 'ifhtml') {
  554.       $in_html = 0;
  555.     } else {
  556.       $tag2pro{$in_html} .= $_;
  557.     }
  558.     next;
  559.   } elsif ($tag eq 'ifhtml') {
  560.     $in_html = $PROTECTTAG . ++$html_num;
  561.     push(@lines, $in_html);
  562.     next;
  563.   }
  564.   #
  565.   # try to skip the line
  566.   #
  567.   if ($end_tag) {
  568.     next if $to_skip{"end $end_tag"};
  569.   } elsif ($tag) {
  570.     next if $to_skip{$tag};
  571.     last if $tag eq 'bye';
  572.   }
  573.   if ($in_top) {
  574.     # parsing the top node
  575.     if ($tag eq 'node' || $tag eq 'include' || $sec2level{$tag}) {
  576.       # no more in top
  577.       $in_top = 0;
  578.     } else {
  579.       # skip it
  580.       next;
  581.     }
  582.   }
  583.   #
  584.   # try to remove inlined comments
  585.   # syntax from tex-mode.el comment-start-skip
  586.   #
  587.   s/((^|[^s*@])(@@)*)@c(omment)? .*/$1/;
  588.   # non-@ substitutions cf. texinfmt.el
  589.   # Since these changes break code examples in the source they were removed. David 990729
  590.   #s/``/"/g;
  591.   #s/''/"/g;
  592.   s/([w ])---([w ])/$1--$2/g;
  593.   #
  594.   # analyze the tag
  595.   #
  596.   if ($tag) {
  597.     # skip lines
  598.     &skip_until($tag), next if $tag eq 'ignore';
  599.     if ($expandinfo) {
  600.       &skip_until($tag), next if $tag eq 'iftex';
  601.     } else {
  602.       &skip_until($tag), next if $tag eq 'ifinfo';
  603.     }
  604.     &skip_until($tag), next if $tag eq 'tex';
  605.     # handle special tables
  606.     if ($tag eq 'table') {
  607.       $table_type = '';
  608.     } elsif ($tag eq 'ftable') {
  609.       $tag = 'table';
  610.       $table_type = 'f';
  611.     } elsif ($tag eq 'vtable') {
  612.       $tag = 'table';
  613.       $table_type = 'v';
  614.     }
  615.     # special cases
  616.     if ($tag eq 'top' || ($tag eq 'node' && /^s*@nodes+tops*,/i)) {
  617.       $in_top = 1;
  618.       @lines = (); # ignore all lines before top (title page garbage)
  619.       next;
  620.     } elsif ($tag eq 'node') {
  621.       $in_top = 0;
  622.       warn "$ERROR Bad node line: $_" unless $_ =~ /^s*@nodes$NODESRE$/o;
  623.       $_ = &protect_html($_); # if node contains '&' for instance
  624.       s/^s*@nodes+//;
  625.       ($node) = split(/,/);
  626.       &normalise_node($node);
  627.       if ($split_node) {
  628. ($doc_node_name[$doc_num + 1] = $node) =~ s|[ /]|_|g;
  629. $doc_node_name_links[$doc_num + 1] = $current_chapter_link;
  630. &next_doc;
  631. push(@lines, $SPLITTAG) if $split_num++;
  632. push(@sections, $node);
  633.       }
  634.       next;
  635.     } elsif ($tag eq 'include') {
  636.       if (/^s*@includes+($FILERE)s*$/o) {
  637. $file = $1;
  638. unless (-e $file) {
  639.   foreach $dir (@include_dirs) {
  640.     $file = "$dir/$1";
  641.     last if -e $file;
  642.   }
  643. }
  644. if (-e $file) {
  645.   &open($file);
  646.   print "# including $filen" if $verbose;
  647. } else {
  648.   warn "$ERROR Can't find $file, skipping";
  649. }
  650.       } else {
  651. warn "$ERROR Bad include line: $_";
  652.       }
  653.       next;
  654.     } elsif ($tag eq 'ifclear') {
  655.       if (/^s*@ifclears+($VARRE)s*$/o) {
  656. next unless defined($value{$1});
  657. &skip_until($tag);
  658.       } else {
  659. warn "$ERROR Bad ifclear line: $_";
  660.       }
  661.       next;
  662.     } elsif ($tag eq 'ifset') {
  663.       if (/^s*@ifsets+($VARRE)s*$/o) {
  664. next if defined($value{$1});
  665. &skip_until($tag);
  666.       } else {
  667. warn "$ERROR Bad ifset line: $_";
  668.       }
  669.       next;
  670.     } elsif ($tag eq 'menu') {
  671.       unless ($show_menu) {
  672. &skip_until($tag);
  673. next;
  674.       }
  675.       &html_push_if($tag);
  676.       push(@lines, &html_debug("n", __LINE__));
  677.     } elsif ($format_map{$tag}) {
  678.       $in_pre = 1 if $format_map{$tag} eq 'PRE';
  679.       &html_push_if($format_map{$tag});
  680.       push(@lines, &html_debug("n", __LINE__));
  681.       $in_list++ if $format_map{$tag} eq 'UL' || $format_map{$tag} eq 'OL' ;
  682.       push(@lines, &debug("<$format_map{$tag}>n", __LINE__));
  683.       next;
  684.     } elsif ($tag eq 'table') {
  685.       if (/^s*@[fv]?tables+@(w+)s*$/) {
  686. $in_table = $1;
  687. unshift(@tables, join($;, $table_type, $in_table));
  688. push(@lines, &debug("<DL COMPACT>n", __LINE__));
  689. &html_push_if('DL');
  690. push(@lines, &html_debug("n", __LINE__));
  691.       } else {
  692. warn "$ERROR Bad table line: $_";
  693.       }
  694.       next;
  695.     } elsif ($tag eq 'multitable') {
  696.       if (/^s*@multitables*@columnfractionss+([.ds]+)s*$/ ||
  697.   /^s*@multitables*({[^{}]+})+s*$/)
  698.       {
  699. $in_multitable = 1;
  700. html_push('TABLE');
  701. my($col_list) = $1;
  702. $multitable_cols = ($col_list =~ /@columnfractions/ ? s/[d.]+s+//g :
  703.     s/{[^{}]+}//g);
  704. print "# Multitable with $multitable_cols columnsn"
  705.   if $debug and $DEBUG_USER;
  706. push(@lines, &debug("<TABLE BORDER WIDTH="100%">n", __LINE__));
  707.       } else {
  708. warn "$ERROR Bad table line: $_";
  709.       }
  710.       next;
  711.     } elsif ($tag eq 'synindex' || $tag eq 'syncodeindex') {
  712.       if (/^s*@$tags+(w)ws+(w)ws*$/) {
  713. eval("*${1}index = *${2}index");
  714.       } else {
  715. warn "$ERROR Bad syn*index line: $_";
  716.       }
  717.       next;
  718.     } elsif ($tag eq 'sp') {
  719.       push(@lines, &debug("<P>n", __LINE__));
  720.       next;
  721.     } elsif ($tag eq 'setref') {
  722.       &protect_html; # if setref contains '&' for instance
  723.       if (/^s*@$tags*{($NODERE)}s*$/) {
  724. $setref = $1;
  725. $setref =~ s/s+/ /g; # normalize
  726. $setref =~ s/ $//;
  727. $node2sec{$setref} = $name;
  728. $node2href{$setref} = "$link_doc#$docid";
  729. push(@maybe_wrong_links, $setref);
  730.       } else {
  731. warn "$ERROR Bad setref line: $_";
  732.       }
  733.       next;
  734.     } elsif ($tag eq 'defindex' || $tag eq 'defcodeindex') {
  735.       if (/^s*@$tags+(ww)s*$/) {
  736. $valid_index{$1} = 1;
  737.       } else {
  738. warn "$ERROR Bad defindex line: $_";
  739.       }
  740.       next;
  741.     } elsif (defined($def_map{$tag})) {
  742.       if ($def_map{$tag}) {
  743. s/^s*@$tags+//;
  744. $tag = $def_map{$tag};
  745. $_ = "@$tag $_";
  746. $tag =~ s/s.*//;
  747.       }
  748.     } elsif (defined($user_sub{$tag})) {
  749.       s/^s*@$tags+//;
  750.       $sub = $user_sub{$tag};
  751.       print "# user $tag = $sub, arg: $_" if $debug & $DEBUG_USER;
  752.       if (defined(&$sub)) {
  753. chop($_);
  754. &$sub($_);
  755.       } else {
  756. warn "$ERROR Bad user sub for $tag: $subn";
  757.       }
  758.       next;
  759.     }
  760.     if (defined($def_map{$tag})) {
  761.       s/^s*@$tags+//;
  762.       if ($tag =~ /x$/) {
  763. # extra definition line
  764. $tag = $`;
  765. $is_extra = 1;
  766.       } else {
  767. $is_extra = 0;
  768.       }
  769.       while (/{([^{}]*)}/) {
  770. # this is a {} construct
  771. ($before, $contents, $after) = ($`, $1, $');
  772. # protect spaces
  773. $contents =~ s/s+/$;9/g;
  774. # restore $_ protecting {}
  775. $_ = "$before$;7$contents$;8$after";
  776.       }
  777.       @args = split(/s+/, &protect_html($_));
  778.       foreach (@args) {
  779. s/$;9/ /g; # unprotect spaces
  780. s/$;7/{/g; # ... {
  781. s/$;8/}/g; # ... }
  782.       }
  783.       $type = shift(@args);
  784.       $type =~ s/^{(.*)}$/$1/;
  785.       print "# def ($tag): {$type} ", join(', ', @args), "n"
  786. if $debug & $DEBUG_DEF;
  787.       $type .= ':'; # it's nicer like this
  788.       $name = shift(@args);
  789.       $name =~ s/^{(.*)}$/$1/;
  790.       if ($is_extra) {
  791. $_ = &debug("<DT>", __LINE__);
  792.       } else {
  793. $_ = &debug("<DL>n<DT>", __LINE__);
  794.       }
  795.       if ($tag eq 'deffn' || $tag eq 'defvr' || $tag eq 'deftp') {
  796. $_ .= "<U>$type</U> <B>$name</B>";
  797. $_ .= " <I>@args</I>" if @args;
  798.       } elsif ($tag eq 'deftypefn' || $tag eq 'deftypevr'
  799.        || $tag eq 'defcv' || $tag eq 'defop') {
  800. $ftype = $name;
  801. $name = shift(@args);
  802. $name =~ s/^{(.*)}$/$1/;
  803. $_ .= "<U>$type</U> $ftype <B>$name</B>";
  804. $_ .= " <I>@args</I>" if @args;
  805.       } else {
  806. warn "$ERROR Unknown definition type: $tagn";
  807. $_ .= "<U>$type</U> <B>$name</B>";
  808. $_ .= " <I>@args</I>" if @args;
  809.       }
  810.       $_ .= &debug("n<DD>", __LINE__);
  811.       $name = &unprotect_html($name);
  812.       if ($tag eq 'deffn' || $tag eq 'deftypefn') {
  813. unshift(@input_spool, "@findex $namen");
  814.       } elsif ($tag eq 'defop') {
  815. unshift(@input_spool, "@findex $name on $ftypen");
  816.       } elsif ($tag eq 'defvr' || $tag eq 'deftypevr' || $tag eq 'defcv') {
  817. unshift(@input_spool, "@vindex $namen");
  818.       } else {
  819. unshift(@input_spool, "@tindex $namen");
  820.       }
  821.       $dont_html = 1;
  822.     }
  823.   } elsif ($end_tag) {
  824.     if ($format_map{$end_tag}) {
  825.       $in_pre = 0 if $format_map{$end_tag} eq 'PRE';
  826.       $in_list-- if $format_map{$end_tag} eq 'UL' || $format_map{$end_tag} eq 'OL' ;
  827.       &html_pop_if('LI', 'P');
  828.       &html_pop_if();
  829.       push(@lines, &debug("</$format_map{$end_tag}>n", __LINE__));
  830.       push(@lines, &html_debug("n", __LINE__));
  831.     } elsif ($end_tag eq 'table' ||
  832.      $end_tag eq 'ftable' ||
  833.      $end_tag eq 'vtable') {
  834.       shift(@tables);
  835.       if (@tables) {
  836. ($table_type, $in_table) = split($;, $tables[0]);
  837.       } else {
  838. $in_table = 0;
  839. $table_type = '';
  840.       }
  841.       push(@lines, "</DL>n");
  842.       &html_pop_if('DD');
  843.       &html_pop_if();
  844.     } elsif ($end_tag eq 'multitable') {
  845.       print "# end of multitable with $multitable_cols columnsn"
  846. if $debug and $DEBUG_USER;
  847.       $in_multitable = 0;
  848.       push(@lines, "</TR>n");
  849.       &html_pop_if('TR');
  850.       push(@lines, "</TABLE>n");
  851. &html_pop_if('TABLE');
  852.     } elsif (defined($def_map{$end_tag})) {
  853.       push(@lines, &debug("</DL>n", __LINE__));
  854.     } elsif ($end_tag eq 'menu') {
  855.       &html_pop_if();
  856.       push(@lines, $_); # must keep it for pass 2
  857.     }
  858.     next;
  859.   }
  860.   #
  861.   # misc things
  862.   #
  863.   # protect texi and HTML things
  864.   &protect_texi;
  865.   $_ = &protect_html($_) unless $dont_html;
  866.   $dont_html = 0;
  867.   # substitution (unsupported things)
  868.   s/^s*@centers+//g;
  869.   s/^s*@exdents+//g;
  870.   s/@noindents+//g;
  871.   s/@refills+//g;
  872.   # other substitutions
  873.   &simple_substitutions;
  874.   s/@value{($VARRE)}/$value{$1}/eg;
  875.   s/@footnote{/@footnote$docu_doc{/g; # mark footnotes, cf. pass 4
  876.   s|s+@tabs*| </TD><TD> |g if ($in_multitable);
  878.   #
  879.   # analyze the tag again
  880.   #
  881.   if ($tag) {
  882.     if (defined($sec2level{$tag}) && $sec2level{$tag} > 0) {
  883.       if (/^s*@$tags+(.+)$/) {
  884. $name = $1;
  885. $name =~ s/s+$//;
  886. $level = $sec2level{$tag};
  887. $name = &update_sec_num($tag, $level) . "  $name"
  888.   if $number_sections && $tag !~ /^unnumbered/;
  889. if ($tag =~ /heading$/) {
  890.   push(@lines, &html_debug("n", __LINE__));
  891.   if ($html_element ne 'body') {
  892.     # We are in a nice pickle here. We are trying to get a H? heading
  893.     # even though we are not in the body level. So, we convert
  894.     # it to a nice, bold, line by itself.
  895.     $_ = &debug("nn<P><STRONG>$name</STRONG></P>nn", __LINE__);
  896.   } else {
  897.     $_ = &debug("<H$level>$name</H$level>n", __LINE__);
  898.     &html_push_if('body');
  899.   }
  900.   print "# heading, section $name, level $leveln"
  901.     if $debug & $DEBUG_TOC;
  902. } else {
  903.   if ($split_chapter) {
  904.     unless ($toplevel) {
  905.       # first time we see a "section"
  906.       unless ($level == 1) {
  907. warn "$ERROR The first section found is not of level 1: $_";
  908. warn "$ERROR I'll split on sections of level $level...n";
  909.       }
  910.       $toplevel = $level;
  911.     };
  912.     if ($level == $toplevel) {
  913.       print "# Splitting at section $namen"
  914. if $debug & $DEBUG_TOC;
  915.       ($doc_node_name[$doc_num + 1] = $node) =~ s|[ /]|_|g;
  916.       &next_doc;
  917.       push(@lines, $SPLITTAG) if $split_num++;
  918.       push(@sections, $name);
  919.     }
  920.   } elsif ($split_node && $opt_special_links) {
  921.     $toplevel = $level unless $toplevel;
  922.     if ($level == $toplevel) {
  923.       ($current_chapter_link = $node) =~ s|[ /]|_|g;
  924.       # Set this again to the right value.
  925.       $doc_node_name_links[$doc_num] = $current_chapter_link;
  926.       ($docu_doc, $link_doc) = &doc_name($doc_num);
  927.     }
  928.   }
  929.   $sec_num++;
  930.   # Was "SEC$sec_num"
  931.   ($docid = "$node") =~ s|[ /]|_|g;
  932.   ($tocid = "$node") =~ s|[ /]|_|g;
  933. $docid = "SEC$sec_num" unless $docid;
  934. $tocid = "SEC$sec_num" unless $tocid;
  935.   # check biblio and glossary
  936.   $in_bibliography =
  937.     ($name =~ /^([A-Z]|d+)?(.d+)*s*bibliography$/i);
  938.   $in_glossary = ($name =~ /^([A-Z]|d+)?(.d+)*s*glossary$/i);
  939.   # check node
  940.   if ($node) {
  941.     if ($node2sec{$node}) {
  942.       warn "$ERROR Duplicate node found: $noden";
  943.     } else {
  944.       $node2sec{$node} = $name;
  945.       $node2href{$node} = "$link_doc#$docid";
  946.       push(@maybe_wrong_links, $node);
  947.       print "# node $node, section $name, level $leveln"
  948. if $debug & $DEBUG_TOC;
  949.     }
  950.     $node = '';
  951.   } else {
  952.     print "# no node, section $name, level $leveln"
  953.       if $debug & $DEBUG_TOC;
  954.   }
  955.   # update TOC
  956.   while ($level > $curlevel) {
  957.     $curlevel++;
  958.     push(@toc_lines, "<UL>n");
  959.   }
  960.   while ($level < $curlevel) {
  961.     $curlevel--;
  962.     push(@toc_lines, "</UL>n");
  963.   }
  964.   $_ = "<LI>" . &anchor($tocid, "$link_doc#$docid", $name, 1);
  965.   push(@toc_lines, &substitute_style($_));
  966.   # update DOC
  967.   push(@lines, &html_debug("n", __LINE__));
  968.   &html_reset;
  969.   $_ =  "<H$level>".&anchor($docid,  $opt_empty_headers ? "" : "$docu_toc#$tocid",
  970.     $name)."</H$level>n";
  971.   $_ = &debug($_, __LINE__);
  972.   push(@lines, &html_debug("n", __LINE__));
  973. }
  974. # update DOC
  975. foreach $line (split(/n+/, $_)) {
  976.   push(@lines, "$linen");
  977. }
  978. next;
  979.       } else {
  980. warn "$ERROR Bad section line: $_";
  981.       }
  982.     } else {
  983.       # track variables
  984.       $value{$1} = $2, next if /^s*@sets+($VARRE)s+(.*)$/o;
  985.       delete $value{$1}, next if /^s*@clears+($VARRE)s*$/o;
  986.       # store things
  987.       $value{'_setfilename'}   = $1, next if /^s*@setfilenames+(.*)$/;
  988.       $value{'_settitle'}      = $1, next if /^s*@settitles+(.*)$/;
  989.       $value{'_author'}   .= "$1n", next if /^s*@authors+(.*)$/;
  990.       $value{'_subtitle'} .= "$1n", next if /^s*@subtitles+(.*)$/;
  991.       $value{'_title'}    .= "$1n", next if /^s*@titles+(.*)$/;
  992.       # index
  993.       if (/^s*@(..?)indexs+/) {
  994. unless ($valid_index{$1}) {
  995.   warn "$ERROR Undefined index command: $_";
  996.   next;
  997. }
  998. $id = 'IDX' . ++$idx_num;
  999. $index = $1 . 'index';
  1000. $what = &substitute_style($');
  1001. $what =~ s/s+$//;
  1002. print "# found $index for '$what' id $idn"
  1003.   if $debug & $DEBUG_INDEX;
  1004. eval(<<EOC);
  1005.  if (defined($$index{$what})) {
  1006.    $$index{$what} .= "$;$link_doc#$id";
  1007.  } else {
  1008.    $$index{$what} = "$link_doc#$id";
  1009.  }
  1010. EOC
  1011.   #
  1012.   # dirty hack to see if I can put an invisible anchor...
  1013.   #
  1014.   if ($html_element eq 'P' ||
  1015.       $html_element eq 'LI' ||
  1016.       $html_element eq 'DT' ||
  1017.       $html_element eq 'DD' ||
  1018.       $html_element eq 'ADDRESS' ||
  1019.       $html_element eq 'B' ||
  1020.       $html_element eq 'BLOCKQUOTE' ||
  1021.       $html_element eq 'PRE' ||
  1022.       $html_element eq 'SAMP') {
  1023.     push(@lines, &anchor($id, '', $invisible_mark, !$in_pre));
  1024.   } elsif ($html_element eq 'body') {
  1025.     push(@lines, &debug("<P>n", __LINE__));
  1026.     push(@lines, &anchor($id, '', $invisible_mark, !$in_pre));
  1027.     &html_push('P');
  1028.   } elsif ($html_element eq 'DL' ||
  1029.    $html_element eq 'UL' ||
  1030.    $html_element eq 'OL' ||
  1031.    $html_element eq 'TR') {
  1032.     $deferred_ref .=
  1033.       &anchor($id, '', $invisible_mark, !$in_pre) . " ";
  1034.   }
  1035. next;
  1036.       }
  1037.       # list item
  1038.       if (/^s*@itemx?s+/)
  1039.       {
  1040. $what = $';
  1041. $what =~ s/s+$//;
  1043. # add an index before the item if applicable
  1044. if ($table_type ne '' && !$in_multitable) {
  1045.   print "# Adding table index (type $table_type) for $whatn"
  1046.     if $debug & $DEBUG_INDEX;
  1047.   # This is realy ugly. We should do a pass before this to
  1048.   # add index entrys before instead.
  1049.   if ($global_added_this_index) {
  1050.     $global_added_this_index = 0;
  1051.   } else {
  1052.     unshift(@input_spool, "@${table_type}index $whatn", $_);
  1053.     $global_added_this_index = 1;
  1054.     next READ_LINE;
  1055.   }
  1056. }
  1058. if ($in_bibliography && $use_bibliography) {
  1059.   if ($what =~ /^$BIBRE$/o) {
  1060.     $id = 'BIB' . ++$bib_num;
  1061.     $bib2href{$what} = "$link_doc#$id";
  1062.     print "# found bibliography for '$what' id $idn"
  1063.       if $debug & $DEBUG_BIB;
  1064.     $what = &anchor($id, '', $what);
  1065.   }
  1066. } elsif ($in_glossary && $use_glossary) {
  1067.   $id = 'GLOSS' . ++$gloss_num;
  1068.   $entry = $what;
  1069.   $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Zs]+$/;
  1070.   $gloss2href{$entry} = "$link_doc#$id";
  1071.   print "# found glossary for '$entry' id $idn"
  1072.     if $debug & $DEBUG_GLOSS;
  1073.   $what = &anchor($id, '', $what);
  1074. }
  1075. if ($in_multitable)
  1076. {
  1077.   # All this is a **HACK**.
  1078.   # It does only work for a FEW SIMPLE CASES !!!
  1079.   push(@lines, &debug("</TR>n", __LINE__))
  1080.     unless $html_element eq 'TABLE';;
  1081. &html_pop_if('TR');
  1082.   $what =~ s|s+@tabs*| </TD><TD> |g;
  1083.   push(@lines, &debug("<TR><TD>$whatn", __LINE__));
  1084.   &html_push('TR');
  1085.   if ($deferred_ref)
  1086.   {
  1087.     push(@lines, &debug("$deferred_refn", __LINE__));
  1088.     $deferred_ref = '';
  1089.   }
  1090.   next;
  1091. }
  1092. else
  1093. {
  1094.   &html_pop_if('P');
  1095.   if ($html_element eq 'DL' || $html_element eq 'DD') {
  1096.     if ($things_map{$in_table} && !$what) {
  1097.       # special case to allow @table @bullet for instance
  1098.       push(@lines, &debug("<DT>$things_map{$in_table}n", __LINE__));
  1099.     } else {
  1100.       push(@lines, &debug("<DT>@$in_table{$what}n", __LINE__));
  1101.     }
  1102.     push(@lines, "<DD>");
  1103.     &html_push('DD') unless $html_element eq 'DD';
  1104.     # Old index add was here
  1105.   } else {
  1106.     push(@lines, &debug("<LI>$whatn", __LINE__));
  1107.     &html_push('LI') unless $html_element eq 'LI';
  1108.   }
  1109.   push(@lines, &html_debug("n", __LINE__));
  1110.   if ($deferred_ref) {
  1111.     push(@lines, &debug("$deferred_refn", __LINE__));
  1112.     $deferred_ref = '';
  1113.   }
  1114.   next;
  1115. }
  1116.       }
  1117.     }
  1118.   }
  1119.   # paragraph separator
  1120.   if ($_ eq "n") {
  1121.     next if $#lines >= 0 && $lines[$#lines] eq "n";
  1122.     if ($html_element eq 'P') {
  1123.       push(@lines, "n");
  1124.       $_ = &debug("</P>n", __LINE__);
  1125.       &html_pop;
  1126.     }
  1127.   } elsif ($html_element eq 'body' || $html_element eq 'BLOCKQUOTE') {
  1128.     push(@lines, "<P>n");
  1129.     &html_push('P');
  1130.     $_ = &debug($_, __LINE__);
  1131.   }
  1132.   # otherwise
  1133.   push(@lines, $_);
  1134. }
  1136. # finish TOC
  1137. $level = 0;
  1138. while ($level < $curlevel)
  1139. {
  1140.   $curlevel--;
  1141.   push(@toc_lines, "</UL>n");
  1142. }
  1144. print "# end of pass 1n" if $verbose;
  1146. #+++############################################################################
  1147. #                                                                              #
  1148. # Pass 2/3: handle style, menu, index, cross-reference                         #
  1149. #                                                                              #
  1150. #---############################################################################
  1152. @lines2 = (); # whole document (2nd pass)
  1153. @lines3 = (); # whole document (3rd pass)
  1154. $in_menu = 0; # am I inside a menu
  1156. while (@lines)
  1157. {
  1158.   $_ = shift(@lines);
  1159.   #
  1160.   # special case (protected sections)
  1161.   #
  1162.   if (/^$PROTECTTAG/o) {
  1163.     push(@lines2, $_);
  1164.     next;
  1165.   }
  1166.   #
  1167.   # menu
  1168.   #
  1169.   $in_menu = 1, push(@lines2, &debug("<UL>n", __LINE__)), next if /^s*@menub/;
  1170.   $in_menu = 0, push(@lines2, &debug("</UL>n", __LINE__)), next if /^s*@ends+menub/;
  1171.   if ($in_menu) {
  1172.     if (/^*s+($NODERE)::/o) {
  1173.       $descr = $';
  1174.       chop($descr);
  1175.       &menu_entry($1, $1, $descr);
  1176.     } elsif (/^*s+(.+):s+([^t,.n]+)[t,.n]/) {
  1177.       $descr = $';
  1178.       chop($descr);
  1179.       &menu_entry($1, $2, $descr);
  1180.     } elsif (/^*/) {
  1181.       warn "$ERROR Bad menu line: $_";
  1182.     } else { # description continued?
  1183.       push(@lines2, $_);
  1184.     }
  1185.     next;
  1186.   }
  1187.   #
  1188.   # printindex
  1189.   #
  1190.   if (/^s*@printindexs+(ww)b/) {
  1191.     local($index, *ary, @keys, $key, $letter, $last_letter, @refs);
  1192.     if ($predefined_index{$1}) {
  1193.       $index = $predefined_index{$1} . 'index';
  1194.     } else {
  1195.       $index = $1 . 'index';
  1196.     }
  1197.     eval("*ary = *$index");
  1198.     @keys = keys(%ary);
  1199.     foreach $key (@keys) {
  1200.       $_ = $key;
  1201.       1 while s/<(w+)>`(.*)'</1>/$2/; # remove HTML tags with quotes
  1202.       1 while s/<(w+)>(.*)</1>/$2/; # remove HTML tags
  1203.       $_ = &unprotect_html($_);
  1204.       &unprotect_texi;
  1205.       tr/A-Z/a-z/; # lowercase
  1206.       $key2alpha{$key} = $_;
  1207.       print "# index $key sorted as $_n"
  1208. if $key ne $_ && $debug & $DEBUG_INDEX;
  1209.     }
  1210.     $last_letter = undef;
  1211.     foreach $key (sort byalpha @keys) {
  1212.       $letter = substr($key2alpha{$key}, 0, 1);
  1213.       $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;;
  1214.       $letter = " " unless $letter =~ /[a-zA-Z]/;
  1215.       if (!defined($last_letter) || $letter ne $last_letter) {
  1216. push(@lines2, "</DIR>n") if defined($last_letter);
  1217. push(@lines2, "<H2>" . &protect_html(uc($letter)) . "</H2>n");
  1218. push(@lines2, "<DIR>n");
  1219. $last_letter = $letter;
  1220.       }
  1221.       @refs = ();
  1222.       foreach (split(/$;/, $ary{$key})) {
  1223. push(@refs, &anchor('', $_, $key, 0));
  1224.       }
  1225.       push(@lines2, "<LI>" . join(", ", @refs) . "n");
  1226.     }
  1227.     push(@lines2, "</DIR>n") if defined($last_letter);
  1228.     next;
  1229.   }
  1230.   #
  1231.   # simple style substitutions
  1232.   #
  1233.   $_ = &substitute_style($_);
  1234.   #
  1235.   # xref
  1236.   #
  1237.   while (/@(x|px|info|)ref{($XREFRE)(}?)/o) {
  1238.     # note: Texinfo may accept other characters
  1239.     ($type, $nodes, $full) = ($1, $2, $3);
  1240.     ($before, $after) = ($`, $');
  1241.     if (! $full && $after) {
  1242.       warn "$ERROR Bad xref (no ending } on line): $_";
  1243.       $_ = "$before$;0${type}ref{$nodes$after";
  1244.       next; # while xref
  1245.     }
  1246.     if ($type eq 'x') {
  1247.       $type = 'See ';
  1248.     } elsif ($type eq 'px') {
  1249.       $type = 'see ';
  1250.     } elsif ($type eq 'info') {
  1251.       $type = 'See Info';
  1252.     } elsif ($type eq 'u') {
  1253.       $type = 'See ';
  1254.     } else {
  1255.       $type = '';
  1256.     }
  1257.     unless ($full) {
  1258.       $next = shift(@lines);
  1259.       $next = &substitute_style($next);
  1260.       chop($nodes); # remove final newline
  1261.       if ($next =~ /}/) { # split on 2 lines
  1262. $nodes .= " $`";
  1263. $after = $';
  1264.       } else {
  1265. $nodes .= " $next";
  1266. $next = shift(@lines);
  1267. $next = &substitute_style($next);
  1268. chop($nodes);
  1269. if ($next =~ /}/) { # split on 3 lines
  1270.   $nodes .= " $`";
  1271.   $after = $';
  1272. } else {
  1273.   warn "$ERROR Bad xref (no ending }): $_";
  1274.   $_ = "$before$;0xref{$nodes$after";
  1275.   unshift(@lines, $next);
  1276.   next; # while xref
  1277. }
  1278.       }
  1279.     }
  1280.     $nodes =~ s/s+/ /g; # remove useless spaces
  1281.     @args = split(/s*,s*/, $nodes);
  1282.     $node = $args[0]; # the node is always the first arg
  1283.     &normalise_node($node);
  1284.     $sec = $node2sec{$node};
  1285.     if (@args == 5) { # reference to another manual
  1286.       $sec = $args[2] || $node;
  1287.       $man = $args[4] || $args[3];
  1288.       $_ = "${before}${type}section `$sec' in @cite{$man}$after";
  1289.     } elsif ($type =~ /Info/) { # inforef
  1290.       warn "$ERROR Wrong number of arguments: $_" unless @args == 3;
  1291.       ($nn, $_, $in) = @args;
  1292.       $_ = "${before}${type} file `$in', node `$nn'$after";
  1293.     } elsif ($sec) {
  1294.       $href = $node2href{$node};
  1295.       $_ = "${before}${type}section " . &anchor('', $href, $sec) . $after;
  1296.     } else {
  1297.       warn "$ERROR Undefined node ($node): $_";
  1298.       $_ = "$before$;0xref{$nodes}$after";
  1299.     }
  1300.   }
  1301.   #
  1302.   # try to guess bibliography references or glossary terms
  1303.   #
  1304.   # This checked for NAME="SECd". The current version is probably broken.
  1305.   unless (/^<Hd><A NAME="/) {
  1306.     if ($use_bibliography) {
  1307.       $done = '';
  1308.       while (/$BIBRE/o) {
  1309. ($pre, $what, $post) = ($`, $&, $');
  1310. $href = $bib2href{$what};
  1311. if (defined($href) && $post !~ /^[^<]*</A>/) {
  1312.   $done .= $pre . &anchor('', $href, $what);
  1313. } else {
  1314.   $done .= "$pre$what";
  1315. }
  1316. $_ = $post;
  1317.       }
  1318.       $_ = $done . $_;
  1319.     }
  1320.     if ($use_glossary) {
  1321.       $done = '';
  1322.       while (/bw+b/) {
  1323. ($pre, $what, $post) = ($`, $&, $');
  1324. $entry = $what;
  1325. $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Zs]+$/;
  1326. $href = $gloss2href{$entry};
  1327. if (defined($href) && $post !~ /^[^<]*</A>/) {
  1328.   $done .= $pre . &anchor('', $href, $what);
  1329. } else {
  1330.   $done .= "$pre$what";
  1331. }
  1332. $_ = $post;
  1333.       }
  1334.       $_ = $done . $_;
  1335.     }
  1336.   }
  1337.   # otherwise
  1338.   push(@lines2, $_);
  1339. }
  1340. print "# end of pass 2n" if $verbose;
  1342. #
  1343. # split style substitutions
  1344. #
  1345. while (@lines2)
  1346. {
  1347.   $_ = shift(@lines2);
  1348.   #
  1349.   # special case (protected sections)
  1350.   #
  1351.   if (/^$PROTECTTAG/o) {
  1352.     push(@lines3, $_);
  1353.     next;
  1354.   }
  1355.   #
  1356.   # split style substitutions
  1357.   #
  1358.   $old = '';
  1359.   while ($old ne $_) {
  1360.     $old = $_;
  1361.     if (/@(w+){/) {
  1362.       ($before, $style, $after) = ($`, $1, $');
  1363.       if (defined($style_map{$style})) {
  1364. $_ = $after;
  1365. $text = '';
  1366. $after = '';
  1367. $failed = 1;
  1368. while (@lines2) {
  1369.   if (/}/) {
  1370.     $text .= $`;
  1371.     $after = $';
  1372.     $failed = 0;
  1373.     last;
  1374.   } else {
  1375.     $text .= $_;
  1376.     $_ = shift(@lines2);
  1377.   }
  1378. }
  1379. if ($failed) {
  1380.   die "* Bad syntax (@$style) after: $beforen";
  1381. } else {
  1382.   $text = &apply_style($style, $text);
  1383.   $_ = "$before$text$after";
  1384. }
  1385.       }
  1386.     }
  1387.   }
  1388.   # otherwise
  1389.   push(@lines3, $_);
  1390. }
  1391. print "# end of pass 3n" if $verbose;
  1393. #+++############################################################################
  1394. #                                                                              #
  1395. # Pass 4: foot notes, final cleanup                                            #
  1396. #                                                                              #
  1397. #---############################################################################
  1399. @foot_lines = (); # footnotes
  1400. @doc_lines = (); # final document
  1401. $end_of_para = 0; # true if last line is <P>
  1403. while (@lines3)
  1404. {
  1405.   $_ = shift(@lines3);
  1406.   #
  1407.   # special case (protected sections)
  1408.   #
  1409.   if (/^$PROTECTTAG/o) {
  1410.     push(@doc_lines, $_);
  1411.     $end_of_para = 0;
  1412.     next;
  1413.   }
  1414.   #
  1415.   # footnotes
  1416.   #
  1417.   while (/@footnote([^{s]+){/) {
  1418.     ($before, $d, $after) = ($`, $1, $');
  1419.     $_ = $after;
  1420.     $text = '';
  1421.     $after = '';
  1422.     $failed = 1;
  1423.     while (@lines3) {
  1424.       if (/}/) {
  1425. $text .= $`;
  1426. $after = $';
  1427. $failed = 0;
  1428. last;
  1429.       } else {
  1430. $text .= $_;
  1431. $_ = shift(@lines3);
  1432.       }
  1433.     }
  1434.     if ($failed) {
  1435.       die "* Bad syntax (@footnote) after: $beforen";
  1436.     } else {
  1437.       $foot_num++;
  1438.       $docid  = "DOCF$foot_num";
  1439.       $footid = "FOOT$foot_num";
  1440.       $foot = "($foot_num)";
  1441.       push(@foot_lines, "<H3>" . &anchor($footid, "$d#$docid", $foot) . "</H3>n");
  1442.       $text = "<P>$text" unless $text =~ /^s*<P>/;
  1443.       push(@foot_lines, "$textn");
  1444.       $_ = $before . &anchor($docid, "$docu_foot#$footid", $foot) . $after;
  1445.     }
  1446.   }
  1447.   #
  1448.   # remove unnecessary <P>
  1449.   #
  1450.   if (/^s*<P>s*$/) {
  1451.     next if $end_of_para++;
  1452.   } else {
  1453.     $end_of_para = 0;
  1454.   }
  1455.   # otherwise
  1456.   push(@doc_lines, $_);
  1457. }
  1458. print "# end of pass 4n" if $verbose;
  1460. #+++############################################################################
  1461. #                                                                              #
  1462. # Pass 5: print things                                                         #
  1463. #                                                                              #
  1464. #---############################################################################
  1466. $header = <<EOT;
  1467. <!-- This HTML file has been created by $THISPROG
  1468.      from $docu on $TODAY -->
  1469. EOT
  1471.   $full_title = $value{'_title'} || $value{'_settitle'} || "Untitled Document";
  1472.   $title = $value{'_settitle'} || $full_title;
  1473.   $_ = &substitute_style($full_title);
  1474.   &unprotect_texi;
  1475.   s/n$//; # rmv last n (if any)
  1476.   $full_title = "<H1>" . join("</H1>n<H1>", split(/n/, $_)) . "</H1>n";
  1478. #
  1479. # print ToC
  1480. #
  1481. if (!$monolithic && @toc_lines)
  1482. {
  1483.   if (open(FILE, "> $docu_toc")) {
  1484.     print "# creating $docu_toc...n" if $verbose;
  1485.     &print_toplevel_header("$title - Table of Contents");
  1486.     &print_ruler;
  1487.     &print(*toc_lines, FILE);
  1488.     &print_toplevel_footer;
  1489.     close(FILE);
  1490.   } else {
  1491.     warn "$ERROR Can't write (toc) to $docu_toc: $!n";
  1492.   }
  1493. }
  1495. #
  1496. # print footnotes
  1497. #
  1498. if (!$monolithic && @foot_lines)
  1499. {
  1500.   if (open(FILE, "> $docu_foot")) {
  1501.     print "# creating $docu_foot...n" if $verbose;
  1502.     &print_toplevel_header("$title - Footnotes");
  1503.     &print_ruler;
  1504.     &print(*foot_lines, FILE);
  1505.     &print_toplevel_footer;
  1506.     close(FILE);
  1507.   } else {
  1508.     warn "$ERROR Can't write (foot) to $docu_foot: $!n";
  1509.   }
  1510. }
  1512. #
  1513. # print document
  1514. #
  1516. if ($split_chapter || $split_node)
  1517. { # split
  1518.   $doc_num = 0;
  1519.   $last_num = scalar(@sections);
  1520.   $first_doc = &doc_name(1);
  1521.   $last_doc = &doc_name($last_num);
  1522.   while (@sections) {
  1523.     $section = shift(@sections);
  1524.     &next_doc;
  1525.     # Remove added links part
  1526.     if (open(FILE, ">$docu_doc")) {
  1527.       print "# creating $docu_doc... ($section)n" if $verbose;
  1528.       &print_header("$title - $section") unless $opt_empty_headers;
  1529.       $prev_doc = ($doc_num == 1 ? undef : &doc_name($doc_num - 1));
  1530.       $next_doc = ($doc_num == $last_num ? undef : &doc_name($doc_num + 1));
  1531.       $navigation = "Go to the ";
  1532.       $navigation .= ($prev_doc ? &anchor('', $first_doc, "first") : "first");
  1533.       $navigation .= ", ";
  1534.       $navigation .= ($prev_doc ? &anchor('', $prev_doc, "previous") : "previous");
  1535.       $navigation .= ", ";
  1536.       $navigation .= ($next_doc ? &anchor('', $next_doc, "next") : "next");
  1537.       $navigation .= ", ";
  1538.       $navigation .= ($next_doc ? &anchor('', $last_doc, "last") : "last");
  1539.       $navigation .= " section, " . &anchor('', $docu_toc, "table of contents") . ".n";
  1540.       print FILE $navigation unless $opt_empty_headers;
  1541.       &print_ruler unless $opt_empty_headers;
  1542.       # find corresponding lines
  1543.       @tmp_lines = ();
  1544.       while (@doc_lines) {
  1545. $_ = shift(@doc_lines);
  1546. last if ($_ eq $SPLITTAG);
  1547. push(@tmp_lines, $_);
  1548.       }
  1549.       &print(*tmp_lines, FILE);
  1550.       &print_ruler unless $opt_empty_headers;
  1551.       print FILE $navigation unless $opt_empty_headers;
  1552.       &print_footer unless $opt_empty_headers;
  1553.       close(FILE);
  1554.     } else {
  1555.       warn "$ERROR Can't write (doc) to $docu_doc: $!n";
  1556.     }
  1557.   }
  1558. }
  1559. else
  1560. { # not split
  1561.   if (open(FILE, ">$docu_doc")) {
  1562.     print "# creating $docu_doc...n" if $verbose;
  1563.     if ($monolithic || !@toc_lines) {
  1564.       &print_toplevel_header($title);
  1565.     } else {
  1566.       &print_header($title);
  1567.       print FILE $full_title;
  1568.     }
  1569.     if ($monolithic && @toc_lines) {
  1570.       &print_ruler;
  1571.       print FILE "<H1>Table of Contents</H1>n";
  1572.       &print(*toc_lines, FILE);
  1573.     }
  1574.     &print_ruler;
  1575.     &print(*doc_lines, FILE);
  1576.     if ($monolithic && @foot_lines) {
  1577.       &print_ruler;
  1578.       print FILE "<H1>Footnotes</H1>n";
  1579.       &print(*foot_lines, FILE);
  1580.     }
  1581.     if ($monolithic || !@toc_lines) {
  1582.       &print_toplevel_footer;
  1583.     } else {
  1584.       &print_footer;
  1585.     }
  1586.     close(FILE);
  1587.   } else {
  1588.     warn "$ERROR Can't write (doc2) to $docu_doc: $!n";
  1589.   }
  1590. }
  1592. print "# that's all folksn" if $verbose;
  1594. #+++############################################################################
  1595. #                                                                              #
  1596. # Low level functions                                                          #
  1597. #                                                                              #
  1598. #---############################################################################
  1600. sub update_sec_num
  1601. {
  1602.   local($name, $level) = @_;
  1604.   $level--; # here we start at 0
  1605.   if ($name =~ /^appendix/) {
  1606.     # appendix style
  1607.     if (defined(@appendix_sec_num)) {
  1608.       &incr_sec_num($level, @appendix_sec_num);
  1609.     } else {
  1610.       @appendix_sec_num = ('A', 0, 0, 0);
  1611.     }
  1612.     return(join('.', @appendix_sec_num[0..$level]));
  1613.   } else {
  1614.     # normal style
  1615.     if (defined(@normal_sec_num)) {
  1616.       &incr_sec_num($level, @normal_sec_num);
  1617.     } else {
  1618.       @normal_sec_num = (1, 0, 0, 0);
  1619.     }
  1620.     return(join('.', @normal_sec_num[0..$level]));
  1621.   }
  1622. }
  1624. sub incr_sec_num
  1625. {
  1626.   local($level, $l);
  1627.   $level = shift(@_);
  1628.   $_[$level]++;
  1629.   foreach $l ($level+1 .. 3) {
  1630.     $_[$l] = 0;
  1631.   }
  1632. }
  1634. sub check
  1635. {
  1636.   local($_, %seen, %context, $before, $match, $after);
  1638.   while (<>) {
  1639.     if (/@(*|.|:|@|{|})/) {
  1640.       $seen{$&}++;
  1641.       $context{$&} .= "> $_" if $verbose;
  1642.       $_ = "$`XX$'";
  1643.       redo;
  1644.     }
  1645.     if (/@(w+)/) {
  1646.       ($before, $match, $after) = ($`, $&, $');
  1647.       if ($before =~ /b[w-]+$/ && $after =~ /^[w-.]*b/) { # e-mail address
  1648. $seen{'e-mail address'}++;
  1649. $context{'e-mail address'} .= "> $_" if $verbose;
  1650.       } else {
  1651. $seen{$match}++;
  1652. $context{$match} .= "> $_" if $verbose;
  1653.       }
  1654.       $match =~ s/^s*@/X/;
  1655.       $_ = "$before$match$after";
  1656.       redo;
  1657.     }
  1658.   }
  1660.   foreach (sort(keys(%seen))) {
  1661.     if ($verbose) {
  1662.       print "$_n";
  1663.       print $context{$_};
  1664.     } else {
  1665.       print "$_ ($seen{$_})n";
  1666.     }
  1667.   }
  1668. }
  1670. sub open
  1671. {
  1672.   local($name) = @_;
  1674.   ++$fh_name;
  1675.   if (open($fh_name, $name)) {
  1676.     unshift(@fhs, $fh_name);
  1677.   } else {
  1678.     warn "$ERROR Can't read file $name: $!n";
  1679.   }
  1680. }
  1682. sub init_input
  1683. {
  1684.   @fhs = (); # hold the file handles to read
  1685.   @input_spool = (); # spooled lines to read
  1686.   $fh_name = 'FH000';
  1687.   &open($docu);
  1688. }
  1690. sub next_line
  1691. {
  1692.   local($fh, $line);
  1694.   if (@input_spool) {
  1695.     $line = shift(@input_spool);
  1696.     return($line);
  1697.   }
  1698.   while (@fhs) {
  1699.     $fh = $fhs[0];
  1700.     $line = <$fh>;
  1701.     return($line) if $line;
  1702.     close($fh);
  1703.     shift(@fhs);
  1704.   }
  1705.   return(undef);
  1706. }
  1708. # used in pass 1, use &next_line
  1709. sub skip_until
  1710. {
  1711.   local($tag) = @_;
  1712.   local($_);
  1714.   while ($_ = &next_line) {
  1715.     return if /^s*@ends+$tags*$/;
  1716.   }
  1717.   die "* Failed to find '$tag' after: " . $lines[$#lines];
  1718. }
  1720. #
  1721. # HTML stacking to have a better HTML output
  1722. #
  1724. sub html_reset
  1725. {
  1726.   @html_stack = ('html');
  1727.   $html_element = 'body';
  1728. }
  1730. sub html_push
  1731. {
  1732.   local($what) = @_;
  1733.   push(@html_stack, $html_element);
  1734.   $html_element = $what;
  1735. }
  1737. sub html_push_if
  1738. {
  1739.   local($what) = @_;
  1740.   push(@html_stack, $html_element)
  1741.     if ($html_element && $html_element ne 'P');
  1742.   $html_element = $what;
  1743. }
  1745. sub html_pop
  1746. {
  1747.   $html_element = pop(@html_stack);
  1748. }
  1750. sub html_pop_if
  1751. {
  1752.   local($elt);
  1754.   if (@_) {
  1755.     foreach $elt (@_) {
  1756.       if ($elt eq $html_element) {
  1757. $html_element = pop(@html_stack) if @html_stack;
  1758. last;
  1759.       }
  1760.     }
  1761.   } else {
  1762.     $html_element = pop(@html_stack) if @html_stack;
  1763.   }
  1764. }
  1766. sub html_debug
  1767. {
  1768.   local($what, $line) = @_;
  1769.   return("<!-- $line @html_stack, $html_element -->$what")
  1770.     if $debug & $DEBUG_HTML;
  1771.   return($what);
  1772. }
  1774. # to debug the output...
  1775. sub debug
  1776. {
  1777.   local($what, $line) = @_;
  1778.   return("<!-- $line -->$what")
  1779.     if $debug & $DEBUG_HTML;
  1780.   return($what);
  1781. }
  1783. sub normalise_node
  1784. {
  1785.   $_[0] =~ s/s+/ /g;
  1786.   $_[0] =~ s/ $//;
  1787.   $_[0] =~ s/^ //;
  1788. }
  1790. sub menu_entry
  1791. {
  1792.   local($entry, $node, $descr) = @_;
  1793.   local($href);
  1795.   &normalise_node($node);
  1796.   $href = $node2href{$node};
  1797.   if ($href) {
  1798.     $descr =~ s/^s+//;
  1799.     $descr = ": $descr" if $descr;
  1800.     push(@lines2, "<LI>" . &anchor('', $href, $entry) . "$descrn");
  1801.   } else {
  1802.     warn "$ERROR Undefined node ($node): $_";
  1803.   }
  1804. }
  1806. sub do_ctrl { "^$_[0]" }
  1808. sub do_sc { "U$_[0]E" }
  1810. sub fix_image
  1811. {
  1812.   my($text) = @_;
  1813.   my($arg1, $ext);
  1814.   $text =~ /^([^,]*)$/;
  1815.   die "error in image: '$text'" unless defined($1);
  1816.   $arg1 = $1;
  1817.   $arg1 =~ s/@@/@/g;
  1818.   $ext = "jpg" if -f "$arg1.jpg";
  1819.   $ext = "gif" if -f "$arg1.gif";
  1820.   if (defined($ext))
  1821.   {
  1822.     "<IMG SRC="$arg1.$ext">";
  1823.   }
  1824.   else
  1825.   {
  1826.     warn "Image $arg1 not found";
  1827.     "";
  1828.   }
  1829. }
  1831. sub fix_url
  1832. {
  1833.   my($text) = @_;
  1834.   $text =~ s/@@/@/g;
  1835.   $text;
  1836. }
  1838. sub fix_uref
  1839. {
  1840.   my($text) = @_;
  1841.   my($arg1, $arg2);
  1842.   $text =~ /^([^,]*),?([^,]*)?$/;
  1843.   die "error in uref: '$text'" unless defined($1);
  1844.   $arg1 = $1;
  1845.   $arg2 = (defined($2) && $2) ? $2 : $arg1;
  1846.   $arg1 =~ s/@@/@/g;
  1847.   $arg2 =~ s/@@/@/g;
  1848.   "<a HREF="$arg1">$arg2</a>";
  1849. }
  1851. sub fix_email
  1852. {
  1853.   my($text) = @_;
  1854.   my($arg1, $arg2);
  1855.   $text =~ /^([^,]*)(,[^,]*)?$/;
  1856.   die "error in email: '$text'" unless defined($1);
  1857.   $arg1 = $1;
  1858.   $arg2 = defined($2) ? $2 : $arg1;
  1859.   $arg1 =~ s/@@/@/g;
  1860.   $arg2 =~ s/@@/@/g;
  1861.   "<a HREF="mailto:$arg1">$arg2</a>";
  1862. }
  1864. sub apply_style
  1865. {
  1866.   local($texi_style, $text) = @_;
  1867.   local($style);
  1869.   $style = $style_map{$texi_style};
  1870.   if (defined($style)) { # known style
  1871.     if ($style =~ /^"/) { # add quotes
  1872.       $style = $';
  1873.       $text = "`$text'";
  1874.     }
  1875.     if ($style =~ /^&/) { # custom
  1876.       $style = $';
  1877.       $text = &$style($text);
  1878.     } elsif ($style) { # good style
  1879.       $text = "<$style>$text</$style>";
  1880.     } else { # no style
  1881.     }
  1882.   } else { # unknown style
  1883.     $text = undef;
  1884.   }
  1885.   return($text);
  1886. }
  1888. # remove Texinfo styles
  1889. sub remove_style
  1890. {
  1891.   local($_) = @_;
  1892.   s/@w+{([^{}]+)}/$1/g;
  1893.   return($_);
  1894. }
  1896. sub substitute_style
  1897. {
  1898.   local($_) = @_;
  1899.   local($changed, $done, $style, $text);
  1901.   $changed = 1;
  1902.   while ($changed) {
  1903.     $changed = 0;
  1904.     $done = '';
  1905.     while (/@(w+){([^{}]+)}/) {
  1906.       $text = &apply_style($1, $2);
  1907.       if ($text) {
  1908. $_ = "$`$text$'";
  1909. $changed = 1;
  1910.       } else {
  1911. $done .= "$`@$1";
  1912. $_ = "{$2}$'";
  1913.       }
  1914.     }
  1915.     $_ = $done . $_;
  1916.   }
  1917.   return($_);
  1918. }
  1920. sub anchor
  1921. {
  1922.   local($name, $href, $text, $newline) = @_;
  1923.   local($result);
  1925.   $result = "<A";
  1926.   $result .= " NAME="$name"" if $name;
  1927.   $result .= " HREF="$href"" if $href;
  1928.   $result .= ">$text</A>";
  1929.   $result .= "n" if $newline;
  1930.   return($result);
  1931. }
  1933. sub pretty_date
  1934. {
  1935.   local(@MoY, $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
  1937.   @MoY = ('January', 'Febuary', 'March', 'April', 'May', 'June',
  1938.   'July', 'August', 'September', 'October', 'November', 'December');
  1939.   ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
  1940.   $year += ($year < 70) ? 2000 : 1900;
  1941.   return("$mday $MoY[$mon] $year");
  1942. }
  1944. sub doc_name
  1945. {
  1946.   local($num) = @_;
  1947.   my($real_name, $link_name);
  1948.   $real_name = ($opt_use_numbers) ? $num : $doc_node_name[$num];
  1949.   $link_name = ($opt_special_links) ?
  1950.     $doc_node_name_links[$num] : $real_name;
  1951.   # print "# num $num osl $opt_special_links link $link_namen";
  1952.   return("${docu_name}_$real_name.html",
  1953.  "$opt_special_links${docu_name}_$link_name.html");
  1954. }
  1956. sub next_doc
  1957. {
  1958.   ($docu_doc, $link_doc) = &doc_name(++$doc_num);
  1959. }
  1961. sub print
  1962. {
  1963.   local(*lines, $fh) = @_;
  1964.   local($_);
  1966.   while (@lines) {
  1967.     $_ = shift(@lines);
  1968.     if (/^$PROTECTTAG/o) {
  1969.       $_ = $tag2pro{$_};
  1970.     } else {
  1971.       &unprotect_texi;
  1972.     }
  1973.     print $fh $_;
  1974.   }
  1975. }
  1977. sub print_ruler
  1978. {
  1979.   print FILE "<P><HR><P>n";
  1980. }
  1982. sub print_header
  1983. {
  1984.   local($_);
  1986.   # clean the title
  1987.   $_ = &remove_style($_[0]);
  1988.   &unprotect_texi;
  1989.   # print the header
  1990.   if ($doctype eq 'html2') {
  1991.     print FILE $html2_doctype;
  1992.   } elsif ($doctype) {
  1993.     print FILE $doctype;
  1994.   }
  1995.   my($tags) = defined($value{"_body_tags"}) ? " " . $value{"_body_tags"} : "";
  1996.   my($et) = defined($value{"_extra_head"}) ? " " . $value{"_extra_head"} : "";
  1997.   $et = &unprotect_html($et);
  1998.   print FILE <<EOT;
  1999.   <HTML>
  2000.   <HEAD>
  2001.   $header
  2002.   <TITLE>$_</TITLE>
  2003.   $et
  2004.   </HEAD>
  2005.   <BODY$tags>
  2006. EOT
  2007. }
  2009. sub print_toplevel_header
  2010. {
  2011.   local($_);
  2013.   &print_header; # pass given arg...
  2014.   print FILE $full_title;
  2015.   if ($value{'_subtitle'}) {
  2016.     $value{'_subtitle'} =~ s/n+$//;
  2017.     foreach (split(/n/, $value{'_subtitle'})) {
  2018.       $_ = &substitute_style($_);
  2019.       &unprotect_texi;
  2020.       print FILE "<H2>$_</H2>n";
  2021.     }
  2022.   }
  2023.   if ($value{'_author'}) {
  2024.     $value{'_author'} =~ s/n+$//;
  2025.     foreach (split(/n/, $value{'_author'})) {
  2026.       $_ = &substitute_style($_);
  2027.       &unprotect_texi;
  2028.       s/[w.-]+@[w.-]+/<A HREF="mailto:$&">$&</A>/g;
  2029.       print FILE "<ADDRESS>$_</ADDRESS>n";
  2030.     }
  2031.   }
  2032.   print FILE "<P>n";
  2033. }
  2035. sub print_footer
  2036. {
  2037.   print FILE <<EOT;
  2038.  </BODY>
  2039.  </HTML>
  2040. EOT
  2041. }
  2043. sub print_toplevel_footer
  2044. {
  2045.   &print_ruler;
  2046.   print FILE <<EOT;
  2047. This document was generated on $TODAY using the
  2048. <A HREF="$HOMEPAGE">texi2html</A>
  2049. translator version 1.52 (extended by davida@detron.se).</P>
  2050. EOT
  2051.   &print_footer;
  2052. }
  2054. sub protect_texi
  2055. {
  2056.   # protect @ { } ` '
  2057.   s/@@/$;0/go;
  2058.   s/@{/$;1/go;
  2059.   s/@}/$;2/go;
  2060.   s/@`/$;3/go;
  2061.   s/@'/$;4/go;
  2062. }
  2064. sub protect_html
  2065. {
  2066.   local($what) = @_;
  2067.   # protect & < >
  2068.   # Avoid loop in & replacement. This instead bugs out for &# in text..
  2069.   $what =~ s/&([^#]|$)/&#38;$1/g;
  2070.   $what =~ s/</&#60;/g;
  2071.   $what =~ s/>/&#62;/g;
  2072.   # but recognize some HTML things
  2073.   $what =~ s/&#60;/A&#62;/</A>/g; # </A>
  2074.   $what =~ s/&#60;A ([^&]+)&#62;/<A $1>/g; # <A [^&]+>
  2075.   $what =~ s/&#60;IMG ([^&]+)&#62;/<IMG $1>/g; # <IMG [^&]+>
  2076.   return($what);
  2077. }
  2079. sub unprotect_texi
  2080. {
  2081.   s/$;0/@/go;
  2082.   s/$;1/{/go;
  2083.   s/$;2/}/go;
  2084.   s/$;3/`/go;
  2085.   s/$;4/'/go;
  2086. }
  2088. sub unprotect_html
  2089. {
  2090.   local($what) = @_;
  2091.   $what =~ s/&#38;/&/g;
  2092.   $what =~ s/&#60;/</g;
  2093.   $what =~ s/&#62;/>/g;
  2094.   return($what);
  2095. }
  2097. sub byalpha
  2098. {
  2099.   $key2alpha{$a} cmp $key2alpha{$b};
  2100. }
  2102. ##############################################################################
  2104.   # These next few lines are legal in both Perl and nroff.
  2106.   .00 ; # finish .ig
  2108.   'di " finish diversion--previous line must be blank
  2109. .nr nl 0-1 " fake up transition to first page again
  2110. .nr % 0 " start at page 1
  2111. '; __END__ ############# From here on it's a standard manual page ############
  2112. .TH TEXI2HTML 1 "09/10/96"
  2113. .AT 3
  2114. .SH NAME
  2115. texi2html - a Texinfo to HTML converter
  2116. .SH SYNOPSIS
  2117. .B texi2html [options] file
  2118. .PP
  2119. .B texi2html -check [-verbose] files
  2120. .SH DESCRIPTION
  2121. .I Texi2html
  2122. converts the given Texinfo file to a set of HTML files. It tries to handle
  2123. most of the Texinfo commands. It creates hypertext links for cross-references,
  2124. footnotes...
  2125. .PP
  2126. It also tries to add links from a reference to its corresponding entry in the
  2127. bibliography (if any). It may also handle a glossary (see the
  2128. .B -glossary
  2129. option).
  2130. .PP
  2131. .I Texi2html
  2132. creates several files depending on the contents of the Texinfo file and on
  2133. the chosen options (see FILES).
  2134. .PP
  2135. The HTML files created by
  2136. .I texi2html
  2137. are closer to TeX than to Info, that's why
  2138. .I texi2html
  2139. converts @iftex sections and not @ifinfo ones by default. You can reverse
  2140. this with the -expandinfo option.
  2141. .SH OPTIONS
  2142. .TP 12
  2143. .B -check
  2144. Check the given file and give the list of all things that may be Texinfo commands.
  2145. This may be used to check the output of
  2146. .I texi2html
  2147. to find the Texinfo commands that have been left in the HTML file.
  2148. .TP
  2149. .B -expandinfo
  2150. Expand @ifinfo sections, not @iftex ones.
  2151. .TP
  2152. .B -glossary
  2153. Use the section named 'Glossary' to build a list of terms and put links in the HTML
  2154. document from each term toward its definition.
  2155. .TP
  2156. .B -invisible fInamefP
  2157. Use fInamefP to create invisible destination anchors for index links. This is a workaround
  2158. for a known bug of many WWW browsers, including xmosaic.
  2159. .TP
  2160. .B -I fIdirfP
  2161. Look also in fIdirfP to find included files.
  2162. .TP
  2163. .B -menu
  2164. Show the Texinfo menus; by default they are ignored.
  2165. .TP
  2166. .B -monolithic
  2167. Output only one file, including the table of contents and footnotes.
  2168. .TP
  2169. .B -number
  2170. Number the sections.
  2171. .TP
  2172. .B -split_chapter
  2173. Split the output into several HTML files (one per main section:
  2174. chapter, appendix...).
  2175. .TP
  2176. .B -split_node
  2177. Split the output into several HTML files (one per node).
  2178. .TP
  2179. .B -usage
  2180. Print usage instructions, listing the current available command-line options.
  2181. .TP
  2182. .B -verbose
  2183. Give a verbose output. Can be used with the
  2184. .B -check
  2185. option.
  2186. .PP
  2187. .SH FILES
  2188. By default
  2189. .I texi2html
  2190. creates the following files (foo being the name of the Texinfo file):
  2191. .TP 16
  2192. .B foo_toc.html
  2193. The table of contents.
  2194. .TP
  2195. .B foo.html
  2196. The document's contents.
  2197. .TP
  2198. .B foo_foot.html
  2199. The footnotes (if any).
  2200. .PP
  2201. When used with the
  2202. .B -split
  2203. option, it creates several files (one per chapter or node), named
  2204. .B foo_n.html
  2205. (n being the indice of the chapter or node), instead of the single
  2206. .B foo.html
  2207. file.
  2208. .PP
  2209. When used with the
  2210. .B -monolithic
  2211. option, it creates only one file:
  2212. .B foo.html
  2213. .SH VARIABLES
  2214. .I texi2html
  2215. predefines the following variables: fBhtmlfP, fBtexi2htmlfP.
  2216. .SH ADDITIONAL COMMANDS
  2217. .I texi2html
  2218. implements the following non-Texinfo commands:
  2219. .TP 16
  2220. .B @ifhtml
  2221. This indicates the start of an HTML section, this section will passed through
  2222. without any modofication.
  2223. .TP
  2224. .B @end ifhtml
  2225. This indcates the end of an HTML section.
  2226. .SH VERSION
  2227. This is fItexi2htmlfP version 1.52, 09/10/96.
  2228. .PP
  2229. The latest version of fItexi2htmlfP can be found in WWW, cf. URL
  2230. http://wwwcn.cern.ch/dci/texi2html/
  2231. .SH AUTHOR
  2232. The main author is Lionel Cons, CERN CN/DCI/UWS, Lionel.Cons@cern.ch.
  2233. Many other people around the net contributed to this program.
  2234. .SH COPYRIGHT
  2235. This program is the intellectual property of the European
  2236. Laboratory for Particle Physics (known as CERN). No guarantee whatsoever is
  2237. provided by CERN. No liability whatsoever is accepted for any loss or damage
  2238. of any kind resulting from any defect or inaccuracy in this information or
  2239. code.
  2240. .PP
  2241. CERN, 1211 Geneva 23, Switzerland
  2242. .SH "SEE ALSO"
  2243. GNU Texinfo Documentation Format,
  2244. HyperText Markup Language (HTML),
  2245. World Wide Web (WWW).
  2246. .SH BUGS
  2247. This program does not understand all Texinfo commands (yet).
  2248. .PP
  2249. TeX specific commands (normally enclosed in @iftex) will be
  2250. passed unmodified.
  2251. .ex