Print
Send Feedback
Fixed Width
Fluid WidthError Buddy
Do you have an error message from your application? Then find the answer with Error Buddy. You can search over 40000 source code files and troubleshooting documents using our beta lucene/nutch search interface or if you prefer, search as normal using google. With LXR technology you can drill right down into the line of source code where it came from with full cross-referencing.
If after searching you didn't get your ideal answer, or you are still unclear what the error means, you can choose to post that question to the community forums following the link included in the search results.
[1.6]001 #! /usr/bin/perl 002 'di '; 003 'ig 00 '; 004 #+############################################################################## 005 # 006 # texi2html: Program to transform Texinfo documents to HTML 007 # 008 # Copyright (C) 1999, 2000 Free Software Foundation, Inc. 009 # 010 # This program is free software; you can redistribute it and/or modify 011 # it under the terms of the GNU General Public License as published by 012 # the Free Software Foundation; either version 2 of the License, or 013 # (at your option) any later version. 014 # 015 # This program is distributed in the hope that it will be useful, 016 # but WITHOUT ANY WARRANTY; without even the implied warranty of 017 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 018 # GNU General Public License for more details. 019 # 020 # You should have received a copy of the GNU General Public License 021 # along with this program; if not, write to the Free Software 022 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 023 # 024 #-############################################################################## 025 026 # This requires perl version 5 or higher 027 require 5.0; 028 029 #++############################################################################## 030 # 031 # NOTE FOR DEBUGGING THIS SCRIPT: 032 # You can run 'perl texi2html.pl' directly, provided you have 033 # the environment variable T2H_HOME set to the directory containing 034 # the texi2html.init file 035 # 036 #--############################################################################## 037 038 # CVS version: 039 # $Id: texi2html.pl,v 1.55 2000/07/27 14:39:41 obachman Exp $ 040 041 # Homepage: 042 $T2H_HOMEPAGE = <<EOT; 043 http://www.mathematik.uni-kl.de/~obachman/Texi2html 044 EOT 045 046 # Authors: 047 $T2H_AUTHORS = <<EOT; 048 Written by: Lionel Cons <Lionel.Cons\@cern.ch> (original author) 049 Karl Berry <karl\@freefriends.org> 050 Olaf Bachmann <obachman\@mathematik.uni-kl.de> 051 and many others. 052 Maintained by: Olaf Bachmann <obachman\@mathematik.uni-kl.de> 053 Send bugs and suggestions to <texi2html\@mathematik.uni-kl.de> 054 EOT 055 056 # Version: set in configure.in 057 $THISVERSION = '1.64'; 058 $THISPROG = "texi2html $THISVERSION"; # program name and version 059 060 # The man page for this program is included at the end of this file and can be 061 # viewed using the command 'nroff -man texi2html'. 062 063 # Identity: 064 065 $T2H_TODAY = &pretty_date; # like "20 September 1993" 066 # the eval prevents this from breaking on system which do not have 067 # a proper getpwuid implemented 068 eval { ($T2H_USER = (getpwuid ($<))[6]) =~ s/,.*//;}; # Who am i 069 070 #+++############################################################################ 071 # # 072 # Initialization # 073 # Pasted content of File $(srcdir)/texi2html.init: Default initializations # 074 # # 075 #---############################################################################ 076 077 # leave this within comments, and keep the require statement 078 # This way, you can directly run texi2html.pl, if $ENV{T2H_HOME}/texi2html.init 079 # exists. 080 081 # 082 # -*-perl-*- 083 ###################################################################### 084 # File: texi2html.init 085 # 086 # Sets default values for command-line arguments and for various customizable 087 # procedures 088 # 089 # A copy of this file is pasted into the beginning of texi2html by 090 # 'make texi2html' 091 # 092 # Copy this file and make changes to it, if you like. 093 # Afterwards, either, load it with command-line option -init_file <your_init_file> 094 # 095 # $Id: texi2html.init,v 1.34 2000/07/27 14:09:02 obachman Exp $ 096 097 ###################################################################### 098 # stuff which can also be set by command-line options 099 # 100 # 101 # Note: values set here, overwrite values set by the command-line 102 # options before -init_file and might still be overwritten by 103 # command-line arguments following the -init_file option 104 # 105 106 # T2H_OPTIONS is a hash whose keys are the (long) names of valid 107 # command-line options and whose values are a hash with the following keys: 108 # type ==> one of !|=i|:i|=s|:s (see GetOpt::Long for more info) 109 # linkage ==> ref to scalar, array, or subroutine (see GetOpt::Long for more info) 110 # verbose ==> short description of option (displayed by -h) 111 # noHelp ==> if 1 -> for "not so important options": only print description on -h 1 112 # 2 -> for obsolete options: only print description on -h 2 113 114 $T2H_DEBUG = 0; 115 $T2H_OPTIONS -> {debug} = 116 { 117 type => '=i', 118 linkage => \$main::T2H_DEBUG, 119 verbose => 'output HTML with debuging information', 120 }; 121 122 $T2H_DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'; 123 $T2H_OPTIONS -> {doctype} = 124 { 125 type => '=s', 126 linkage => \$main::T2H_DOCTYPE, 127 verbose => 'document type which is output in header of HTML files', 128 noHelp => 1 129 }; 130 131 $T2H_CHECK = 0; 132 $T2H_OPTIONS -> {check} = 133 { 134 type => '!', 135 linkage => \$main::T2H_CHECK, 136 verbose => 'if set, only check files and output all things that may be Texinfo commands', 137 noHelp => 1 138 }; 139 140 # -expand 141 # if set to "tex" (or, "info") expand @iftex and @tex (or, @ifinfo) sections 142 # else, neither expand @iftex, @tex, nor @ifinfo sections 143 $T2H_EXPAND = "info"; 144 $T2H_OPTIONS -> {expand} = 145 { 146 type => '=s', 147 linkage => \$T2H_EXPAND, 148 verbose => 'Expand info|tex|none section of texinfo source', 149 }; 150 151 # - glossary 152 #if set, uses section named `Footnotes' for glossary 153 $T2H_USE_GLOSSARY = 0; 154 T2H_OPTIONS -> {glossary} = 155 { 156 type => '!', 157 linkage => \$T2H_USE_GLOSSARY, 158 verbose => "if set, uses section named `Footnotes' for glossary", 159 noHelp => 1, 160 }; 161 162 163 # -invisible 164 # $T2H_INVISIBLE_MARK is the text used to create invisible destination 165 # anchors for index links (you can for instance use the invisible.xbm 166 # file shipped with this program). This is a workaround for a known 167 # bug of many WWW browsers, including netscape. 168 # For me, it works fine without it -- on the contrary: if there, it 169 # inserts space between headers and start of text (obachman 3/99) 170 $T2H_INVISIBLE_MARK = ''; 171 # $T2H_INVISIBLE_MARK = ' '; 172 $T2H_OPTIONS -> {invisible} = 173 { 174 type => '=s', 175 linkage => \$T2H_INVISIBLE_MARK, 176 verbose => 'use text in invisble anchot', 177 noHelp => 1, 178 }; 179 180 # -iso 181 # if set, ISO8879 characters are used for special symbols (like copyright, etc) 182 $T2H_USE_ISO = 0; 183 $T2H_OPTIONS -> {iso} = 184 { 185 type => 'iso', 186 linkage => \$T2H_USE_ISO, 187 verbose => 'if set, ISO8879 characters are used for special symbols (like copyright, etc)', 188 noHelp => 1, 189 }; 190 191 # -I 192 # list directories where @include files are searched for (besides the 193 # directory of the doc file) additional '-I' args add to this list 194 @T2H_INCLUDE_DIRS = ("."); 195 $T2H_OPTIONS -> {I} = 196 { 197 type => '=s', 198 linkage => \@T2H_INCLUDE_DIRS, 199 verbose => 'append $s to the @include search path', 200 }; 201 202 # -top_file 203 # uses file of this name for top-level file 204 # extension is manipulated appropriately, if necessary. 205 # If empty, <basename of document>.html is used 206 # Typically, you would set this to "index.html". 207 $T2H_TOP_FILE = ''; 208 $T2H_OPTIONS -> {top_file} = 209 { 210 type => '=s', 211 linkage => \$T2H_TOP_FILE, 212 verbose => 'use $s as top file, instead of <docname>.html', 213 }; 214 215 216 # -toc_file 217 # uses file of this name for table of contents file 218 # extension is manipulated appropriately, if necessary. 219 # If empty, <basename of document>_toc.html is used 220 $T2H_TOC_FILE = ''; 221 $T2H_OPTIONS -> {toc_file} = 222 { 223 type => '=s', 224 linkage => \$T2H_TOC_FILE, 225 verbose => 'use $s as ToC file, instead of <docname>_toc.html', 226 }; 227 228 # -frames 229 # if set, output two additional files which use HTML 4.0 "frames". 230 $T2H_FRAMES = 0; 231 $T2H_OPTIONS -> {frames} = 232 { 233 type => '!', 234 linkage => \$T2H_FRAMES, 235 verbose => 'output files which use HTML 4.0 frames (experimental)', 236 noHelp => 1, 237 }; 238 239 240 # -menu | -nomenu 241 # if set, show the Texinfo menus 242 $T2H_SHOW_MENU = 1; 243 $T2H_OPTIONS -> {menu} = 244 { 245 type => '!', 246 linkage => \$T2H_SHOW_MENU, 247 verbose => 'ouput Texinfo menus', 248 }; 249 250 # -number | -nonumber 251 # if set, number sections and show section names and numbers in references 252 # and menus 253 $T2H_NUMBER_SECTIONS = 1; 254 $T2H_OPTIONS -> {number} = 255 { 256 type => '!', 257 linkage => \$T2H_NUMBER_SECTIONS, 258 verbose => 'use numbered sections' 259 }; 260 261 # if set, and T2H_NUMBER_SECTIONS is set, then use node names in menu 262 # entries, instead of section names 263 $T2H_NODE_NAME_IN_MENU = 0; 264 265 # if set and menu entry equals menu descr, then do not print menu descr. 266 # Likewise, if node name equals entry name, do not print entry name. 267 $T2H_AVOID_MENU_REDUNDANCY = 1; 268 269 # -split section|chapter|none 270 # if set to 'section' (resp. 'chapter') create one html file per (sub)section 271 # (resp. chapter) and separate pages for Top, ToC, Overview, Index, 272 # Glossary, About. 273 # otherwise, create monolithic html file which contains whole document 274 #$T2H_SPLIT = 'section'; 275 $T2H_SPLIT = ''; 276 $T2H_OPTIONS -> {split} = 277 { 278 type => '=s', 279 linkage => \$T2H_SPLIT, 280 verbose => 'split document on section|chapter else no splitting', 281 }; 282 283 # -section_navigation|-no-section_navigation 284 # if set, then navigation panels are printed at the beginning of each section 285 # and, possibly at the end (depending on whether or not there were more than 286 # $T2H_WORDS_IN_PAGE words on page 287 # This is most useful if you do not want to have section navigation 288 # on -split chapter 289 $T2H_SECTION_NAVIGATION = 1; 290 $T2H_OPTIONS -> {sec_nav} = 291 { 292 type => '!', 293 linkage => \$T2H_SECTION_NAVIGATION, 294 verbose => 'output navigation panels for each section', 295 }; 296 297 # -subdir 298 # if set put result files in this directory 299 # if not set result files are put into current directory 300 #$T2H_SUBDIR = 'html'; 301 $T2H_SUBDIR = ''; 302 $T2H_OPTIONS -> {subdir} = 303 { 304 type => '=s', 305 linkage => \$T2H_SUBDIR, 306 verbose => 'put HTML files in directory $s, instead of $cwd', 307 }; 308 309 # -short_extn 310 # If this is set all HTML file will have extension ".htm" instead of 311 # ".html". This is helpful when shipping the document to PC systems. 312 $T2H_SHORTEXTN = 0; 313 $T2H_OPTIONS -> {short_ext} = 314 { 315 type => '!', 316 linkage => \$T2H_SHORTEXTN, 317 verbose => 'use "htm" extension for output HTML files', 318 }; 319 320 321 # -prefix 322 # Set the output file prefix, prepended to all .html, .gif and .pl files. 323 # By default, this is the basename of the document 324 $T2H_PREFIX = ''; 325 $T2H_OPTIONS -> {prefix} = 326 { 327 type => '=s', 328 linkage => \$T2H_PREFIX, 329 verbose => 'use as prefix for output files, instead of <docname>', 330 }; 331 332 # -o filename 333 # If set, generate monolithic document output html into $filename 334 $T2H_OUT = ''; 335 $T2H_OPTIONS -> {out_file} = 336 { 337 type => '=s', 338 linkage => sub {$main::T2H_OUT = @_[1]; $T2H_SPLIT = '';}, 339 verbose => 'if set, all HTML output goes into file $s', 340 }; 341 342 # -short_ref 343 #if set cross-references are given without section numbers 344 $T2H_SHORT_REF = ''; 345 $T2H_OPTIONS -> {short_ref} = 346 { 347 type => '!', 348 linkage => \$T2H_SHORT_REF, 349 verbose => 'if set, references are without section numbers', 350 }; 351 352 # -idx_sum 353 # if value is set, then for each @prinindex $what 354 # $docu_name_$what.idx is created which contains lines of the form 355 # $key\t$ref sorted alphabetically (case matters) 356 $T2H_IDX_SUMMARY = 0; 357 $T2H_OPTIONS -> {idx_sum} = 358 { 359 type => '!', 360 linkage => \$T2H_IDX_SUMMARY, 361 verbose => 'if set, also output index summary', 362 noHelp => 1, 363 }; 364 365 # -verbose 366 # if set, chatter about what we are doing 367 $T2H_VERBOSE = ''; 368 $T2H_OPTIONS -> {Verbose} = 369 { 370 type => '!', 371 linkage => \$T2H_VERBOSE, 372 verbose => 'print progress info to stdout', 373 }; 374 375 # -lang 376 # For page titles use $T2H_WORDS->{$T2H_LANG}->{...} as title. 377 # To add a new language, supply list of titles (see $T2H_WORDS below). 378 # and use ISO 639 language codes (see e.g. perl module Locale-Codes-1.02 379 # for definitions) 380 # Default's to 'en' if not set or no @documentlanguage is specified 381 $T2H_LANG = ''; 382 $T2H_OPTIONS -> {lang} = 383 { 384 type => '=s', 385 linkage => sub {SetDocumentLanguage($_[1])}, 386 verbose => 'use $s as document language (ISO 639 encoding)', 387 }; 388 389 # -l2h 390 # if set, uses latex2html for generation of math content 391 $T2H_L2H = ''; 392 $T2H_OPTIONS -> {l2h} = 393 { 394 type => '!', 395 linkage => \$T2H_L2H, 396 verbose => 'if set, uses latex2html for @math and @tex', 397 }; 398 399 ###################### 400 # The following options are only relevant if $T2H_L2H is set 401 # 402 # -l2h_l2h 403 # name/location of latex2html progam 404 $T2H_L2H_L2H = "latex2html"; 405 $T2H_OPTIONS -> {l2h_l2h} = 406 { 407 type => '=s', 408 linkage => \$T2H_L2H_L2H, 409 verbose => 'program to use for latex2html translation', 410 noHelp => 1, 411 }; 412 413 # -l2h_skip 414 # if set, skips actual call to latex2html tries to reuse previously generated 415 # content, instead 416 $T2H_L2H_SKIP = ''; 417 $T2H_OPTIONS -> {l2h_skip} = 418 { 419 type => '!', 420 linkage => \$T2H_L2H_SKIP, 421 verbose => 'if set, tries to reuse previously latex2html output', 422 noHelp => 1, 423 }; 424 425 # -l2h_tmp 426 # if set, l2h uses this directory for temporarary files. The path 427 # leading to this directory may not contain a dot (i.e., a "."), 428 # otherwise, l2h will fail 429 $T2H_L2H_TMP = ''; 430 $T2H_OPTIONS -> {l2h_tmp} = 431 { 432 type => '=s', 433 linkage => \$T2H_L2H_TMP, 434 verbose => 'if set, uses $s as temporary latex2html directory', 435 noHelp => 1, 436 }; 437 438 # if set, cleans intermediate files (they all have the prefix $doc_l2h_) 439 # of l2h 440 $T2H_L2H_CLEAN = 1; 441 $T2H_OPTIONS -> {l2h_clean} = 442 { 443 type => '!', 444 linkage => \$T2H_L2H_CLEAN, 445 verbose => 'if set, do not keep intermediate latex2html files for later reuse', 446 noHelp => 1, 447 }; 448 449 $T2H_OPTIONS -> {D} = 450 { 451 type => '=s', 452 linkage => sub {$main::value{@_[1]} = 1;}, 453 verbose => 'equivalent to Texinfo "@set $s 1"', 454 noHelp => 1, 455 }; 456 457 $T2H_OPTIONS -> {init_file} = 458 { 459 type => '=s', 460 linkage => \&LoadInitFile, 461 verbose => 'load init file $s' 462 }; 463 464 465 ############################################################################## 466 # 467 # The following can only be set in the init file 468 # 469 ############################################################################## 470 471 # if set, center @image by default 472 # otherwise, do not center by default 473 $T2H_CENTER_IMAGE = 1; 474 475 # used as identation for block enclosing command @example, etc 476 # If not empty, must be enclosed in <td></td> 477 $T2H_EXAMPLE_INDENT_CELL = '<td> </td>'; 478 # same as above, only for @small 479 $T2H_SMALL_EXAMPLE_INDENT_CELL = '<td> </td>'; 480 # font size for @small 481 $T2H_SMALL_FONT_SIZE = '-1'; 482 483 # if non-empty, and no @..heading appeared in Top node, then 484 # use this as header for top node/section, otherwise use value of 485 # @settitle or @shorttitle (in that order) 486 $T2H_TOP_HEADING = ''; 487 488 # if set, use this chapter for 'Index' button, else 489 # use first chapter whose name matches 'index' (case insensitive) 490 $T2H_INDEX_CHAPTER = ''; 491 492 # if set and $T2H_SPLIT is set, then split index pages at the next letter 493 # after they have more than that many entries 494 $T2H_SPLIT_INDEX = 100; 495 496 # if set (e.g., to index.html) replace hrefs to this file 497 # (i.e., to index.html) by ./ 498 $T2H_HREF_DIR_INSTEAD_FILE = ''; 499 500 ######################################################################## 501 # Language dependencies: 502 # To add a new language extend T2H_WORDS hash and create $T2H_<...>_WORDS hash 503 # To redefine one word, simply do: 504 # $T2H_WORDS->{<language>}->{<word>} = 'whatever' in your personal init file. 505 # 506 $T2H_WORDS_EN = 507 { 508 # titles of pages 509 'ToC_Title' => 'Table of Contents', 510 'Overview_Title' => 'Short Table of Contents', 511 'Index_Title' => 'Index', 512 'About_Title' => 'About this document', 513 'Footnotes_Title' => 'Footnotes', 514 'See' => 'See', 515 'see' => 'see', 516 'section' => 'section', 517 # If necessary, we could extend this as follows: 518 # # text for buttons 519 # 'Top_Button' => 'Top', 520 # 'ToC_Button' => 'Contents', 521 # 'Overview_Button' => 'Overview', 522 # 'Index_button' => 'Index', 523 # 'Back_Button' => 'Back', 524 # 'FastBack_Button' => 'FastBack', 525 # 'Prev_Button' => 'Prev', 526 # 'Up_Button' => 'Up', 527 # 'Next_Button' => 'Next', 528 # 'Forward_Button' =>'Forward', 529 # 'FastWorward_Button' => 'FastForward', 530 # 'First_Button' => 'First', 531 # 'Last_Button' => 'Last', 532 # 'About_Button' => 'About' 533 }; 534 535 $T2H_WORD_DE = 536 { 537 'ToC_Title' => 'Inhaltsverzeichniss', 538 'Overview_Title' => 'Kurzes Inhaltsverzeichniss', 539 'Index_Title' => 'Index', 540 'About_Title' => 'Über dieses Dokument', 541 'Footnotes_Title' => 'Fußnoten', 542 'See' => 'Siehe', 543 'see' => 'siehe', 544 'section' => 'Abschnitt', 545 }; 546 547 $T2H_WORD_NL = 548 { 549 'ToC_Title' => 'Inhoudsopgave', 550 'Overview_Title' => 'Korte inhoudsopgave', 551 'Index_Title' => 'Index', #Not sure ;-) 552 'About_Title' => 'No translation available!', #No translation available! 553 'Footnotes_Title' => 'No translation available!', #No translation available! 554 'See' => 'Zie', 555 'see' => 'zie', 556 'section' => 'sectie', 557 }; 558 559 $T2H_WORD_ES = 560 { 561 'ToC_Title' => 'índice General', 562 'Overview_Title' => 'Resumen del Contenido', 563 'Index_Title' => 'Index', #Not sure ;-) 564 'About_Title' => 'No translation available!', #No translation available! 565 'Footnotes_Title' => 'Fußnoten', 566 'See' => 'Véase', 567 'see' => 'véase', 568 'section' => 'sección', 569 }; 570 571 $T2H_WORD_NO = 572 { 573 'ToC_Title' => 'Innholdsfortegnelse', 574 'Overview_Title' => 'Kort innholdsfortegnelse', 575 'Index_Title' => 'Indeks', #Not sure ;-) 576 'About_Title' => 'No translation available!', #No translation available! 577 'Footnotes_Title' => 'No translation available!', 578 'See' => 'Se', 579 'see' => 'se', 580 'section' => 'avsnitt', 581 }; 582 583 $T2H_WORD_PT = 584 { 585 'ToC_Title' => 'Sumário', 586 'Overview_Title' => 'Breve Sumário', 587 'Index_Title' => 'Índice', #Not sure ;-) 588 'About_Title' => 'No translation available!', #No translation available! 589 'Footnotes_Title' => 'No translation available!', 590 'See' => 'Veja', 591 'see' => 'veja', 592 'section' => 'Seção', 593 }; 594 595 $T2H_WORDS = 596 { 597 'en' => $T2H_WORDS_EN, 598 'de' => $T2H_WORDS_DE, 599 'nl' => $T2H_WORDS_NL, 600 'es' => $T2H_WORDS_ES, 601 'no' => $T2H_WORDS_NO, 602 'pt' => $T2H_WORDS_PT 603 }; 604 605 @MONTH_NAMES_EN = 606 ( 607 'January', 'February', 'March', 'April', 'May', 608 'June', 'July', 'August', 'September', 'October', 609 'November', 'December' 610 ); 611 612 @MONTH_NAMES_DE = 613 ( 614 'Januar', 'Februar', 'März', 'April', 'Mai', 615 'Juni', 'Juli', 'August', 'September', 'Oktober', 616 'November', 'Dezember' 617 ); 618 619 @MONTH_NAMES_NL = 620 ( 621 'Januari', 'Februari', 'Maart', 'April', 'Mei', 622 'Juni', 'Juli', 'Augustus', 'September', 'Oktober', 623 'November', 'December' 624 ); 625 626 @MONTH_NAMES_ES = 627 ( 628 'enero', 'febrero', 'marzo', 'abril', 'mayo', 629 'junio', 'julio', 'agosto', 'septiembre', 'octubre', 630 'noviembre', 'diciembre' 631 ); 632 633 @MONTH_NAMES_NO = 634 ( 635 636 'januar', 'februar', 'mars', 'april', 'mai', 637 'juni', 'juli', 'august', 'september', 'oktober', 638 'november', 'desember' 639 ); 640 641 @MONTH_NAMES_PT = 642 ( 643 'Janeiro', 'Fevereiro', 'Março', 'Abril', 'Maio', 644 'Junho', 'Julho', 'Agosto', 'Setembro', 'Outubro', 645 'Novembro', 'Dezembro' 646 ); 647 648 649 $MONTH_NAMES = 650 { 651 'en' => \@MONTH_NAMES_EN, 652 'de' => \@MONTH_NAMES_DE, 653 'es' => \@MONTH_NAMES_ES, 654 'nl' => \@MONTH_NAMES_NL, 655 'no' => \@MONTH_NAMES_NO, 656 'pt' => \@MONTH_NAMES_PT 657 }; 658 ######################################################################## 659 # Control of Page layout: 660 # You can make changes of the Page layout at two levels: 661 # 1.) For small changes, it is often enough to change the value of 662 # some global string/hash/array variables 663 # 2.) For larger changes, reimplement one of the T2H_DEFAULT_<fnc>* routines, 664 # give them another name, and assign them to the respective 665 # $T2H_<fnc> variable. 666 667 # As a general interface, the hashes T2H_HREF, T2H_NAME, T2H_NODE hold 668 # href, html-name, node-name of 669 # This -- current section (resp. html page) 670 # Top -- top page ($T2H_TOP_FILE) 671 # Contents -- Table of contents 672 # Overview -- Short table of contents 673 # Index -- Index page 674 # About -- page which explain "navigation buttons" 675 # First -- first node 676 # Last -- last node 677 # 678 # Whether or not the following hash values are set, depends on the context 679 # (all values are w.r.t. 'This' section) 680 # Next -- next node of texinfo 681 # Prev -- previous node of texinfo 682 # Up -- up node of texinfo 683 # Forward -- next node in reading order 684 # Back -- previous node in reading order 685 # FastForward -- if leave node, up and next, else next node 686 # FastBackward-- if leave node, up and prev, else prev node 687 # 688 # Furthermore, the following global variabels are set: 689 # $T2H_THISDOC{title} -- title as set by @setttile 690 # $T2H_THISDOC{fulltitle} -- full title as set by @title... 691 # $T2H_THISDOC{subtitle} -- subtitle as set by @subtitle 692 # $T2H_THISDOC{author} -- author as set by @author 693 # 694 # and pointer to arrays of lines which need to be printed by t2h_print_lines 695 # $T2H_OVERVIEW -- lines of short table of contents 696 # $T2H_TOC -- lines of table of contents 697 # $T2H_TOP -- lines of Top texinfo node 698 # $T2H_THIS_SECTION -- lines of 'This' section 699 700 # 701 # There are the following subs which control the layout: 702 # 703 $T2H_print_section = \&T2H_DEFAULT_print_section; 704 $T2H_print_Top_header = \&T2H_DEFAULT_print_Top_header; 705 $T2H_print_Top_footer = \&T2H_DEFAULT_print_Top_footer; 706 $T2H_print_Top = \&T2H_DEFAULT_print_Top; 707 $T2H_print_Toc = \&T2H_DEFAULT_print_Toc; 708 $T2H_print_Overview = \&T2H_DEFAULT_print_Overview; 709 $T2H_print_Footnotes = \&T2H_DEFAULT_print_Footnotes; 710 $T2H_print_About = \&T2H_DEFAULT_print_About; 711 $T2H_print_misc_header = \&T2H_DEFAULT_print_misc_header; 712 $T2H_print_misc_footer = \&T2H_DEFAULT_print_misc_footer; 713 $T2H_print_misc = \&T2H_DEFAULT_print_misc; 714 $T2H_print_chapter_header = \&T2H_DEFAULT_print_chapter_header; 715 $T2H_print_chapter_footer = \&T2H_DEFAULT_print_chapter_footer; 716 $T2H_print_page_head = \&T2H_DEFAULT_print_page_head; 717 $T2H_print_page_foot = \&T2H_DEFAULT_print_page_foot; 718 $T2H_print_head_navigation = \&T2H_DEFAULT_print_head_navigation; 719 $T2H_print_foot_navigation = \&T2H_DEFAULT_print_foot_navigation; 720 $T2H_button_icon_img = \&T2H_DEFAULT_button_icon_img; 721 $T2H_print_navigation = \&T2H_DEFAULT_print_navigation; 722 $T2H_about_body = \&T2H_DEFAULT_about_body; 723 $T2H_print_frame = \&T2H_DEFAULT_print_frame; 724 $T2H_print_toc_frame = \&T2H_DEFAULT_print_toc_frame; 725 726 ######################################################################## 727 # Layout for html for every sections 728 # 729 sub T2H_DEFAULT_print_section 730 { 731 my $fh = shift; 732 local $T2H_BUTTONS = \@T2H_SECTION_BUTTONS; 733 &$T2H_print_head_navigation($fh) if $T2H_SECTION_NAVIGATION; 734 my $nw = t2h_print_lines($fh); 735 if ($T2H_SPLIT eq 'section' && $T2H_SECTION_NAVIGATION) 736 { 737 &$T2H_print_foot_navigation($fh, $nw); 738 } 739 else 740 { 741 print $fh '<HR SIZE="6">' . "\n"; 742 } 743 } 744 745 ################################################################### 746 # Layout of top-page I recommend that you use @ifnothtml, @ifhtml, 747 # @html within the Top texinfo node to specify content of top-level 748 # page. 749 # 750 # If you enclose everything in @ifnothtml, then title, subtitle, 751 # author and overview is printed 752 # T2H_HREF of Next, Prev, Up, Forward, Back are not defined 753 # if $T2H_SPLIT then Top page is in its own html file 754 sub T2H_DEFAULT_print_Top_header 755 { 756 &$T2H_print_page_head(@_) if $T2H_SPLIT; 757 t2h_print_label(@_); # this needs to be called, otherwise no label set 758 &$T2H_print_head_navigation(@_); 759 } 760 sub T2H_DEFAULT_print_Top_footer 761 { 762 &$T2H_print_foot_navigation(@_); 763 &$T2H_print_page_foot(@_) if $T2H_SPLIT; 764 } 765 sub T2H_DEFAULT_print_Top 766 { 767 my $fh = shift; 768 769 # for redefining navigation buttons use: 770 # local $T2H_BUTTONS = [...]; 771 # as it is, 'Top', 'Contents', 'Index', 'About' are printed 772 local $T2H_BUTTONS = \@T2H_MISC_BUTTONS; 773 &$T2H_print_Top_header($fh); 774 if ($T2H_THIS_SECTION) 775 { 776 # if top-level node has content, then print it with extra header 777 print $fh "<H1>$T2H_NAME{Top}</H1>" 778 unless ($T2H_HAS_TOP_HEADING); 779 t2h_print_lines($fh, $T2H_THIS_SECTION) 780 } 781 else 782 { 783 # top-level node is fully enclosed in @ifnothtml 784 # print fulltitle, subtitle, author, Overview 785 print $fh 786 "<CENTER>\n<H1>" . 787 join("</H1>\n<H1>", split(/\n/, $T2H_THISDOC{fulltitle})) . 788 "</H1>\n"; 789 print $fh "<H2>$T2H_THISDOC{subtitle}</H2>\n" if $T2H_THISDOC{subtitle}; 790 print $fh "$T2H_THISDOC{author}\n" if $T2H_THISDOC{author}; 791 print $fh <<EOT; 792 </CENTER> 793 <HR> 794 <P></P> 795 <H2> Overview: </H2> 796 <BLOCKQUOTE> 797 EOT 798 t2h_print_lines($fh, $T2H_OVERVIEW); 799 print $fh "</BLOCKQUOTE>\n"; 800 } 801 &$T2H_print_Top_footer($fh); 802 } 803 804 ################################################################### 805 # Layout of Toc, Overview, and Footnotes pages 806 # By default, we use "normal" layout 807 # T2H_HREF of Next, Prev, Up, Forward, Back, etc are not defined 808 # use: local $T2H_BUTTONS = [...] to redefine navigation buttons 809 sub T2H_DEFAULT_print_Toc 810 { 811 return &$T2H_print_misc(@_); 812 } 813 sub T2H_DEFAULT_print_Overview 814 { 815 return &$T2H_print_misc(@_); 816 } 817 sub T2H_DEFAULT_print_Footnotes 818 { 819 return &$T2H_print_misc(@_); 820 } 821 sub T2H_DEFAULT_print_About 822 { 823 return &$T2H_print_misc(@_); 824 } 825 826 sub T2H_DEFAULT_print_misc_header 827 { 828 &$T2H_print_page_head(@_) if $T2H_SPLIT; 829 # this needs to be called, otherwise, no labels are set 830 t2h_print_label(@_); 831 &$T2H_print_head_navigation(@_); 832 } 833 sub T2H_DEFAULT_print_misc_footer 834 { 835 &$T2H_print_foot_navigation(@_); 836 &$T2H_print_page_foot(@_) if $T2H_SPLIT; 837 } 838 sub T2H_DEFAULT_print_misc 839 { 840 my $fh = shift; 841 local $T2H_BUTTONS = \@T2H_MISC_BUTTONS; 842 &$T2H_print_misc_header($fh); 843 print $fh "<H1>$T2H_NAME{This}</H1>\n"; 844 t2h_print_lines($fh); 845 &$T2H_print_misc_footer($fh); 846 } 847 848 ################################################################### 849 # chapter_header and chapter_footer are only called if 850 # T2H_SPLIT eq 'chapter' 851 # chapter_header: after print_page_header, before print_section 852 # chapter_footer: after print_section of last section, before print_page_footer 853 # 854 # If you want to get rid of navigation stuff after each section, 855 # redefine print_section such that it does not call print_navigation, 856 # and put print_navigation into print_chapter_header 857 @T2H_CHAPTER_BUTTONS = 858 ( 859 'FastBack', 'FastForward', ' ', 860 ' ', ' ', ' ', ' ', 861 'Top', 'Contents', 'Index', 'About', 862 ); 863 864 sub T2H_DEFAULT_print_chapter_header 865 { 866 # nothing to do there, by default 867 if (! $T2H_SECTION_NAVIGATION) 868 { 869 my $fh = shift; 870 local $T2H_BUTTONS = \@T2H_CHAPTER_BUTTONS; 871 &$T2H_print_navigation($fh); 872 print $fh "\n<HR SIZE=2>\n"; 873 } 874 } 875 876 sub T2H_DEFAULT_print_chapter_footer 877 { 878 local $T2H_BUTTONS = \@T2H_CHAPTER_BUTTONS; 879 &$T2H_print_navigation(@_); 880 } 881 ################################################################### 882 $T2H_TODAY = &pretty_date; # like "20 September 1993" 883 884 sub pretty_date { 885 local($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst); 886 887 ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); 888 $year += ($year < 70) ? 2000 : 1900; 889 # obachman: Let's do it as the Americans do 890 return($MONTH_NAMES->{$T2H_LANG}[$mon] . ", " . $mday . " " . $year); 891 } 892 893 894 ################################################################### 895 # Layout of standard header and footer 896 # 897 898 # Set the default body text, inserted between <BODY ... > 899 ###$T2H_BODYTEXT = 'LANG="EN" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080" ALINK="#FF0000"'; 900 $T2H_BODYTEXT = 'LANG="' . $T2H_LANG . '" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080" ALINK="#FF0000"'; 901 # text inserted after <BODY ...> 902 $T2H_AFTER_BODY_OPEN = ''; 903 #text inserted before </BODY> 904 $T2H_PRE_BODY_CLOSE = ''; 905 # this is used in footer 906 $T2H_ADDRESS = "by <I>$T2H_USER</I> " if $T2H_USER; 907 $T2H_ADDRESS .= "on <I>$T2H_TODAY</I>"; 908 # this is added inside <HEAD></HEAD> after <TITLE> and some META NAME stuff 909 # can be used for <style> <script>, <meta> tags 910 $T2H_EXTRA_HEAD = ''; 911 912 sub T2H_DEFAULT_print_page_head 913 { 914 my $fh = shift; 915 my $longtitle = "$T2H_THISDOC{title}: $T2H_NAME{This}"; 916 print $fh <<EOT; 917 <HTML> 918 $T2H_DOCTYPE 919 <!-- Created on $T2H_TODAY by $THISPROG --> 920 <!-- 921 $T2H_AUTHORS 922 --> 923 <HEAD> 924 <TITLE>$longtitle</TITLE> 925 926 <META NAME="description" CONTENT="$longtitle"> 927 <META NAME="keywords" CONTENT="$longtitle"> 928 <META NAME="resource-type" CONTENT="document"> 929 <META NAME="distribution" CONTENT="global"> 930 <META NAME="Generator" CONTENT="$THISPROG"> 931 $T2H_EXTRA_HEAD 932 </HEAD> 933 934 <BODY $T2H_BODYTEXT> 935 $T2H_AFTER_BODY_OPEN 936 EOT 937 } 938 939 sub T2H_DEFAULT_print_page_foot 940 { 941 my $fh = shift; 942 print $fh <<EOT; 943 <BR> 944 <FONT SIZE="-1"> 945 This document was generated 946 $T2H_ADDRESS 947 using <A HREF="$T2H_HOMEPAGE"><I>texi2html</I></A> 948 $T2H_PRE_BODY_CLOSE 949 </BODY> 950 </HTML> 951 EOT 952 } 953 954 ################################################################### 955 # Layout of navigation panel 956 957 # if this is set, then a vertical navigation panel is used 958 $T2H_VERTICAL_HEAD_NAVIGATION = 0; 959 sub T2H_DEFAULT_print_head_navigation 960 { 961 my $fh = shift; 962 if ($T2H_VERTICAL_HEAD_NAVIGATION) 963 { 964 print $fh <<EOT; 965 <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0"> 966 <TR VALIGN="TOP"> 967 <TD ALIGN="LEFT"> 968 EOT 969 } 970 &$T2H_print_navigation($fh, $T2H_VERTICAL_HEAD_NAVIGATION); 971 if ($T2H_VERTICAL_HEAD_NAVIGATION) 972 { 973 print $fh <<EOT; 974 </TD> 975 <TD ALIGN="LEFT"> 976 EOT 977 } 978 elsif ($T2H_SPLIT eq 'section') 979 { 980 print $fh "<HR SIZE=1>\n"; 981 } 982 } 983 984 # Specifies the minimum page length required before a navigation panel 985 # is placed at the bottom of a page (the default is that of latex2html) 986 # T2H_THIS_WORDS_IN_PAGE holds number of words of current page 987 $T2H_WORDS_IN_PAGE = 300; 988 sub T2H_DEFAULT_print_foot_navigation 989 { 990 my $fh = shift; 991 my $nwords = shift; 992 if ($T2H_VERTICAL_HEAD_NAVIGATION) 993 { 994 print $fh <<EOT; 995 </TD> 996 </TR> 997 </TABLE> 998 EOT 999 } 1000 print $fh "<HR SIZE=1>\n"; 1001 &$T2H_print_navigation($fh) if ($nwords >= $T2H_WORDS_IN_PAGE) 1002 } 1003 1004 ###################################################################### 1005 # navigation panel 1006 # 1007 # specify in this array which "buttons" should appear in which order 1008 # in the navigation panel for sections; use ' ' for empty buttons (space) 1009 @T2H_SECTION_BUTTONS = 1010 ( 1011 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward', 1012 ' ', ' ', ' ', ' ', 1013 'Top', 'Contents', 'Index', 'About', 1014 ); 1015 1016 # buttons for misc stuff 1017 @T2H_MISC_BUTTONS = ('Top', 'Contents', 'Index', 'About'); 1018 1019 # insert here name of icon images for buttons 1020 # Icons are used, if $T2H_ICONS and resp. value are set 1021 %T2H_ACTIVE_ICONS = 1022 ( 1023 'Top', '', 1024 'Contents', '', 1025 'Overview', '', 1026 'Index', '', 1027 'Back', '', 1028 'FastBack', '', 1029 'Prev', '', 1030 'Up', '', 1031 'Next', '', 1032 'Forward', '', 1033 'FastForward', '', 1034 'About' , '', 1035 'First', '', 1036 'Last', '', 1037 ' ', '' 1038 ); 1039 1040 # insert here name of icon images for these, if button is inactive 1041 %T2H_PASSIVE_ICONS = 1042 ( 1043 'Top', '', 1044 'Contents', '', 1045 'Overview', '', 1046 'Index', '', 1047 'Back', '', 1048 'FastBack', '', 1049 'Prev', '', 1050 'Up', '', 1051 'Next', '', 1052 'Forward', '', 1053 'FastForward', '', 1054 'About', '', 1055 'First', '', 1056 'Last', '', 1057 ); 1058 1059 # how to create IMG tag 1060 sub T2H_DEFAULT_button_icon_img 1061 { 1062 my $button = shift; 1063 my $icon = shift; 1064 my $name = shift; 1065 return qq{<IMG SRC="$icon" BORDER="0" ALT="$button: $name" ALIGN="MIDDLE">}; 1066 } 1067 1068 # Names of text as alternative for icons 1069 %T2H_NAVIGATION_TEXT = 1070 ( 1071 'Top', 'Top', 1072 'Contents', 'Contents', 1073 'Overview', 'Overview', 1074 'Index', 'Index', 1075 ' ', ' ', 1076 'Back', ' < ', 1077 'FastBack', ' << ', 1078 'Prev', 'Prev', 1079 'Up', ' Up ', 1080 'Next', 'Next', 1081 'Forward', ' > ', 1082 'FastForward', ' >> ', 1083 'About', ' ? ', 1084 'First', ' |< ', 1085 'Last', ' >| ' 1086 ); 1087 1088 sub T2H_DEFAULT_print_navigation 1089 { 1090 my $fh = shift; 1091 my $vertical = shift; 1092 my $spacing = 1; 1093 print $fh "<TABLE CELLPADDING=$spacing CELLSPACING=$spacing BORDER=0>\n"; 1094 1095 print $fh "<TR>" unless $vertical; 1096 for $button (@$T2H_BUTTONS) 1097 { 1098 print $fh qq{<TR VALIGN="TOP" ALIGN="LEFT">\n} if $vertical; 1099 print $fh qq{<TD VALIGN="MIDDLE" ALIGN="LEFT">}; 1100 1101 if (ref($button) eq 'CODE') 1102 { 1103 &$button($fh, $vertical); 1104 } 1105 elsif ($button eq ' ') 1106 { # handle space button 1107 print $fh 1108 $T2H_ICONS && $T2H_ACTIVE_ICONS{' '} ? 1109 &$T2H_button_icon_img($button, $T2H_ACTIVE_ICONS{' '}) : 1110 $T2H_NAVIGATION_TEXT{' '}; 1111 next; 1112 } 1113 elsif ($T2H_HREF{$button}) 1114 { # button is active 1115 print $fh 1116 $T2H_ICONS && $T2H_ACTIVE_ICONS{$button} ? # use icon ? 1117 t2h_anchor('', $T2H_HREF{$button}, # yes 1118 &$T2H_button_icon_img($button, 1119 $T2H_ACTIVE_ICONS{$button}, 1120 $T2H_NAME{$button})) 1121 : # use text 1122 "[" . 1123 t2h_anchor('', $T2H_HREF{$button}, $T2H_NAVIGATION_TEXT{$button}) . 1124 "]"; 1125 } 1126 else 1127 { # button is passive 1128 print $fh 1129 $T2H_ICONS && $T2H_PASSIVE_ICONS{$button} ? 1130 &$T2H_button_icon_img($button, 1131 $T2H_PASSIVE_ICONS{$button}, 1132 $T2H_NAME{$button}) : 1133 1134 "[" . $T2H_NAVIGATION_TEXT{$button} . "]"; 1135 } 1136 print $fh "</TD>\n"; 1137 print $fh "</TR>\n" if $vertical; 1138 } 1139 print $fh "</TR>" unless $vertical; 1140 print $fh "</TABLE>\n"; 1141 } 1142 1143 ###################################################################### 1144 # Frames: this is from "Richard Y. Kim" <ryk@coho.net> 1145 # Should be improved to be more conforming to other _print* functions 1146 1147 sub T2H_DEFAULT_print_frame 1148 { 1149 my $fh = shift; 1150 print $fh <<EOT; 1151 <HTML> 1152 <HEAD><TITLE>$T2H_THISDOC{title}</TITLE></HEAD> 1153 <FRAMESET cols="140,*"> 1154 <FRAME name=toc src="$docu_toc_frame_file"> 1155 <FRAME name=main src="$docu_doc"> 1156 </FRAMESET> 1157 </HTML> 1158 EOT 1159 } 1160 1161 sub T2H_DEFAULT_print_toc_frame 1162 { 1163 my $fh = shift; 1164 &$T2H_print_page_head($fh); 1165 print $fh <<EOT; 1166 <H2>Content</H2> 1167 EOT 1168 print $fh map {s/HREF=/target=\"main\" HREF=/; $_;} @stoc_lines; 1169 print $fh "</BODY></HTML>\n"; 1170 } 1171 1172 ###################################################################### 1173 # About page 1174 # 1175 1176 # T2H_PRE_ABOUT might be a function 1177 $T2H_PRE_ABOUT = <<EOT; 1178 This document was generated $T2H_ADDRESS 1179 using <A HREF="$T2H_HOMEPAGE"><I>texi2html</I></A> 1180 <P></P> 1181 EOT 1182 $T2H_AFTER_ABOUT = ''; 1183 1184 sub T2H_DEFAULT_about_body 1185 { 1186 my $about; 1187 if (ref($T2H_PRE_ABOUT) eq 'CODE') 1188 { 1189 $about = &$T2H_PRE_ABOUT(); 1190 } 1191 else 1192 { 1193 $about = $T2H_PRE_ABOUT; 1194 } 1195 $about .= <<EOT; 1196 The buttons in the navigation panels have the following meaning: 1197 <P></P> 1198 <table border = "1"> 1199 <TR> 1200 <TH> Button </TH> 1201 <TH> Name </TH> 1202 <TH> Go to </TH> 1203 <TH> From 1.2.3 go to</TH> 1204 </TR> 1205 EOT 1206 1207 for $button (@T2H_SECTION_BUTTONS) 1208 { 1209 next if $button eq ' ' || ref($button) eq 'CODE'; 1210 $about .= <<EOT; 1211 <TR> 1212 <TD ALIGN="CENTER"> 1213 EOT 1214 $about .= 1215 ($T2H_ICONS && $T2H_ACTIVE_ICONS{$button} ? 1216 &$T2H_button_icon_img($button, $T2H_ACTIVE_ICONS{$button}) : 1217 " [" . $T2H_NAVIGATION_TEXT{$button} . "] "); 1218 $about .= <<EOT; 1219 </TD> 1220 <TD ALIGN="CENTER"> 1221 $button 1222 </TD> 1223 <TD> 1224 $T2H_BUTTONS_GOTO{$button} 1225 </TD> 1226 <TD> 1227 $T2H_BUTTONS_EXAMPLE{$button} 1228 </TD> 1229 </TR> 1230 EOT 1231 } 1232 1233 $about .= <<EOT; 1234 </TABLE> 1235 <P></P> 1236 where the <STRONG> Example </STRONG> assumes that the current position 1237 is at <STRONG> Subsubsection One-Two-Three </STRONG> of a document of 1238 the following structure: 1239 <UL> 1240 <LI> 1. Section One </LI> 1241 <UL> 1242 <LI>1.1 Subsection One-One</LI> 1243 <UL> 1244 <LI> ... </LI> 1245 </UL> 1246 <LI>1.2 Subsection One-Two</LI> 1247 <UL> 1248 <LI>1.2.1 Subsubsection One-Two-One 1249 </LI><LI>1.2.2 Subsubsection One-Two-Two 1250 </LI><LI>1.2.3 Subsubsection One-Two-Three <STRONG> 1251 <== Current Position </STRONG> 1252 </LI><LI>1.2.4 Subsubsection One-Two-Four 1253 </LI></UL> 1254 <LI>1.3 Subsection One-Three</LI> 1255 <UL> 1256 <LI> ... </LI> 1257 </UL> 1258 <LI>1.4 Subsection One-Four</LI> 1259 </UL> 1260 </UL> 1261 $T2H_AFTER_ABOUT 1262 EOT 1263 return $about; 1264 } 1265 1266 1267 %T2H_BUTTONS_GOTO = 1268 ( 1269 'Top', 'cover (top) of document', 1270 'Contents', 'table of contents', 1271 'Overview', 'short table of contents', 1272 'Index', 'concept index', 1273 'Back', 'previous section in reading order', 1274 'FastBack', 'previous or up-and-previous section ', 1275 'Prev', 'previous section same level', 1276 'Up', 'up section', 1277 'Next', 'next section same level', 1278 'Forward', 'next section in reading order', 1279 'FastForward', 'next or up-and-next section', 1280 'About' , 'this page', 1281 'First', 'first section in reading order', 1282 'Last', 'last section in reading order', 1283 ); 1284 1285 %T2H_BUTTONS_EXAMPLE = 1286 ( 1287 'Top', ' ', 1288 'Contents', ' ', 1289 'Overview', ' ', 1290 'Index', ' ', 1291 'Back', '1.2.2', 1292 'FastBack', '1.1', 1293 'Prev', '1.2.2', 1294 'Up', '1.2', 1295 'Next', '1.2.4', 1296 'Forward', '1.2.4', 1297 'FastForward', '1.3', 1298 'About', ' ', 1299 'First', '1.', 1300 'Last', '1.2.4', 1301 ); 1302 1303 1304 ###################################################################### 1305 # from here on, its l2h init stuff 1306 # 1307 1308 ## initialization for latex2html as for Singular manual generation 1309 ## obachman 3/99 1310 1311 # 1312 # Options controlling Titles, File-Names, Tracing and Sectioning 1313 # 1314 $TITLE = ''; 1315 1316 $SHORTEXTN = 0; 1317 1318 $LONG_TITLES = 0; 1319 1320 $DESTDIR = ''; # should be overwritten by cmd-line argument 1321 1322 $NO_SUBDIR = 0;# should be overwritten by cmd-line argument 1323 1324 $PREFIX = ''; # should be overwritten by cmd-line argument 1325 1326 $AUTO_PREFIX = 0; # this is needed, so that prefix settings are used 1327 1328 $AUTO_LINK = 0; 1329 1330 $SPLIT = 0; 1331 1332 $MAX_LINK_DEPTH = 0; 1333 1334 $TMP = ''; # should be overwritten by cmd-line argument 1335 1336 $DEBUG = 0; 1337 1338 $VERBOSE = 1; 1339 1340 # 1341 # Options controlling Extensions and Special Features 1342 # 1343 $HTML_VERSION = "3.2"; 1344 1345 $TEXDEFS = 1; # we absolutely need that 1346 1347 $EXTERNAL_FILE = ''; 1348 1349 $SCALABLE_FONTS = 1; 1350 1351 $NO_SIMPLE_MATH = 1; 1352 1353 $LOCAL_ICONS = 1; 1354 1355 $SHORT_INDEX = 0; 1356 1357 $NO_FOOTNODE = 1; 1358 1359 $ADDRESS = ''; 1360 1361 $INFO = ''; 1362 1363 # 1364 # Switches controlling Image Generation 1365 # 1366 $ASCII_MODE = 0; 1367 1368 $NOLATEX = 0; 1369 1370 $EXTERNAL_IMAGES = 0; 1371 1372 $PS_IMAGES = 0; 1373 1374 $NO_IMAGES = 0; 1375 1376 $IMAGES_ONLY = 0; 1377 1378 $REUSE = 2; 1379 1380 $ANTI_ALIAS = 1; 1381 1382 $ANTI_ALIAS_TEXT = 1; 1383 1384 # 1385 #Switches controlling Navigation Panels 1386 # 1387 $NO_NAVIGATION = 1; 1388 $ADDRESS = ''; 1389 $INFO = 0; # 0 = do not make a "About this document..." section 1390 1391 # 1392 #Switches for Linking to other documents 1393 # 1394 # actuall -- we don't care 1395 1396 $MAX_SPLIT_DEPTH = 0; # Stop making separate files at this depth 1397 1398 $MAX_LINK_DEPTH = 0; # Stop showing child nodes at this depth 1399 1400 $NOLATEX = 0; # 1 = do not pass unknown environments to Latex 1401 1402 $EXTERNAL_IMAGES = 0; # 1 = leave the images outside the document 1403 1404 $ASCII_MODE = 0; # 1 = do not use any icons or internal images 1405 1406 # 1 = use links to external postscript images rather than inlined bitmap 1407 # images. 1408 $PS_IMAGES = 0; 1409 $SHOW_SECTION_NUMBERS = 0; 1410 1411 ### Other global variables ############################################### 1412 $CHILDLINE = ""; 1413 1414 # This is the line width measured in pixels and it is used to right justify 1415 # equations and equation arrays; 1416 $LINE_WIDTH = 500; 1417 1418 # Used in conjunction with AUTO_NAVIGATION 1419 $WORDS_IN_PAGE = 300; 1420 1421 # Affects ONLY the way accents are processed 1422 $default_language = 'english'; 1423 1424 # The value of this variable determines how many words to use in each 1425 # title that is added to the navigation panel (see below) 1426 # 1427 $WORDS_IN_NAVIGATION_PANEL_TITLES = 0; 1428 1429 # This number will determine the size of the equations, special characters, 1430 # and anything which will be converted into an inlined image 1431 # *except* "image generating environments" such as "figure", "table" 1432 # or "minipage". 1433 # Effective values are those greater than 0. 1434 # Sensible values are between 0.1 - 4. 1435 $MATH_SCALE_FACTOR = 1.5; 1436 1437 # This number will determine the size of 1438 # image generating environments such as "figure", "table" or "minipage". 1439 # Effective values are those greater than 0. 1440 # Sensible values are between 0.1 - 4. 1441 $FIGURE_SCALE_FACTOR = 1.6; 1442 1443 1444 # If both of the following two variables are set then the "Up" button 1445 # of the navigation panel in the first node/page of a converted document 1446 # will point to $EXTERNAL_UP_LINK. $EXTERNAL_UP_TITLE should be set 1447 # to some text which describes this external link. 1448 $EXTERNAL_UP_LINK = ""; 1449 $EXTERNAL_UP_TITLE = ""; 1450 1451 # If this is set then the resulting HTML will look marginally better if viewed 1452 # with Netscape. 1453 $NETSCAPE_HTML = 1; 1454 1455 # Valid paper sizes are "letter", "legal", "a4","a3","a2" and "a0" 1456 # Paper sizes has no effect other than in the time it takes to create inlined 1457 # images and in whether large images can be created at all ie 1458 # - larger paper sizes *MAY* help with large image problems 1459 # - smaller paper sizes are quicker to handle 1460 $PAPERSIZE = "a4"; 1461 1462 # Replace "english" with another language in order to tell LaTeX2HTML that you 1463 # want some generated section titles (eg "Table of Contents" or "References") 1464 # to appear in a different language. Currently only "english" and "french" 1465 # is supported but it is very easy to add your own. See the example in the 1466 # file "latex2html.config" 1467 $TITLES_LANGUAGE = "english"; 1468 1469 1; # This must be the last non-comment line 1470 1471 # End File texi2html.init 1472 ###################################################################### 1473 1474 1475 require "$ENV{T2H_HOME}/texi2html.init" 1476 if ($0 =~ /\.pl$/ && 1477 -e "$ENV{T2H_HOME}/texi2html.init" && -r "$ENV{T2H_HOME}/texi2html.init"); 1478 1479 #+++############################################################################ 1480 # # 1481 # Initialization # 1482 # Pasted content of File $(srcdir)/MySimple.pm: Command-line processing # 1483 # # 1484 #---############################################################################ 1485 1486 # leave this within comments, and keep the require statement 1487 # This way, you can directly run texi2html.pl, if $ENV{T2H_HOME}/texi2html.init 1488 # exists. 1489 1490 # 1491 package Getopt::MySimple; 1492 1493 # Name: 1494 # Getopt::MySimple. 1495 # 1496 # Documentation: 1497 # POD-style (incomplete) documentation is in file MySimple.pod 1498 # 1499 # Tabs: 1500 # 4 spaces || die. 1501 # 1502 # Author: 1503 # Ron Savage rpsavage@ozemail.com.au. 1504 # 1.00 19-Aug-97 Initial version. 1505 # 1.10 13-Oct-97 Add arrays of switches (eg '=s@'). 1506 # 1.20 3-Dec-97 Add 'Help' on a per-switch basis. 1507 # 1.30 11-Dec-97 Change 'Help' to 'verbose'. Make all hash keys lowercase. 1508 # 1.40 10-Nov-98 Change width of help report. Restructure tests. 1509 # 1-Jul-00 Modifications for Texi2html 1510 1511 # -------------------------------------------------------------------------- 1512 # Locally modified by obachman (Display type instead of env, order by cmp) 1513 # $Id: MySimple.pm,v 1.1 2000/07/03 08:44:13 obachman Exp $ 1514 1515 # use strict; 1516 # no strict 'refs'; 1517 1518 use vars qw(@EXPORT @EXPORT_OK @ISA); 1519 use vars qw($fieldWidth $opt $VERSION); 1520 1521 use Exporter(); 1522 use Getopt::Long; 1523 1524 @ISA = qw(Exporter); 1525 @EXPORT = qw(); 1526 @EXPORT_OK = qw($opt); # An alias for $self -> {'opt'}. 1527 1528 # -------------------------------------------------------------------------- 1529 1530 $fieldWidth = 20; 1531 $VERSION = '1.41'; 1532 1533 # -------------------------------------------------------------------------- 1534 1535 sub byOrder 1536 { 1537 my($self) = @_; 1538 1539 return uc($a) cmp (uc($b)); 1540 } 1541 1542 # -------------------------------------------------------------------------- 1543 1544 sub dumpOptions 1545 { 1546 my($self) = @_; 1547 1548 print 'Option', ' ' x ($fieldWidth - length('Option') ), "Value\n"; 1549 1550 for (sort byOrder keys(%{$self -> {'opt'} }) ) 1551 { 1552 print "-$_", ' ' x ($fieldWidth - (1 + length) ), "${$self->{'opt'} }{$_}\n"; 1553 } 1554 1555 print "\n"; 1556 1557 } # End of dumpOptions. 1558 1559 # -------------------------------------------------------------------------- 1560 # Return: 1561 # 0 -> Error. 1562 # 1 -> Ok. 1563 1564 sub getOptions 1565 { 1566 push(@_, 0) if ($#_ == 2); # Default for $ignoreCase is 0. 1567 push(@_, 1) if ($#_ == 3); # Default for $helpThenExit is 1. 1568 1569 my($self, $default, $helpText, $versionText, 1570 $helpThenExit, $versionThenExit, $ignoreCase) = @_; 1571 1572 $helpThenExit = 1 unless (defined($helpThenExit)); 1573 $versionThenExit = 1 unless (defined($versionThenExit)); 1574 $ignoreCase = 0 unless (defined($ignoreCase)); 1575 1576 $self -> {'default'} = $default; 1577 $self -> {'helpText'} = $helpText; 1578 $self -> {'versionText'} = $versionText; 1579 $Getopt::Long::ignorecase = $ignoreCase; 1580 1581 unless (defined($self -> {'default'}{'help'})) 1582 { 1583 $self -> {'default'}{'help'} = 1584 { 1585 type => ':i', 1586 default => '', 1587 linkage => sub {$self->helpOptions($_[1]); exit (0) if $helpThenExit;}, 1588 verbose => "print help and exit" 1589 }; 1590 } 1591 1592 unless (defined($self -> {'default'}{'version'})) 1593 { 1594 $self -> {'default'}{'version'} = 1595 { 1596 type => '', 1597 default => '', 1598 linkage => sub {print $self->{'versionText'}; exit (0) if versionTheExit;}, 1599 verbose => "print version and exit" 1600 }; 1601 } 1602 1603 for (keys(%{$self -> {'default'} }) ) 1604 { 1605 my $type = ${$self -> {'default'} }{$_}{'type'}; 1606 push(@{$self -> {'type'} }, "$_$type"); 1607 $self->{'opt'}->{$_} = ${$self -> {'default'} }{$_}{'linkage'} 1608 if ${$self -> {'default'} }{$_}{'linkage'}; 1609 } 1610 1611 my($result) = &GetOptions($self -> {'opt'}, @{$self -> {'type'} }); 1612 1613 return $result unless $result; 1614 1615 for (keys(%{$self -> {'default'} }) ) 1616 { 1617 if (! defined(${$self -> {'opt'} }{$_})) #{ 1618 { 1619 ${$self -> {'opt'} }{$_} = ${$self -> {'default'} }{$_}{'default'}; 1620 } 1621 } 1622 1623 $result; 1624 } # End of getOptions. 1625 1626 # -------------------------------------------------------------------------- 1627 1628 sub helpOptions 1629 { 1630 my($self) = shift; 1631 my($noHelp) = shift; 1632 $noHelp = 0 unless $noHelp; 1633 my($optwidth, $typewidth, $defaultwidth, $maxlinewidth, $valind, $valwidth) 1634 = (10, 5, 9, 78, 4, 11); 1635 1636 print "$self->{'helpText'}" if ($self -> {'helpText'}); 1637 1638 print ' Option', ' ' x ($optwidth - length('Option') -1 ), 1639 'Type', ' ' x ($typewidth - length('Type') + 1), 1640 'Default', ' ' x ($defaultwidth - length('Default') ), 1641 "Description\n"; 1642 1643 for (sort byOrder keys(%{$self -> {'default'} }) ) 1644 { 1645 my($line, $help, $option, $val); 1646 $option = $_; 1647 next if ${$self->{'default'} }{$_}{'noHelp'} && ${$self->{'default'} }{$_}{'noHelp'} > $noHelp; 1648 $line = " -$_ " . ' ' x ($optwidth - (2 + length) ) . 1649 "${$self->{'default'} }{$_}{'type'} ". 1650 ' ' x ($typewidth - (1+length(${$self -> {'default'} }{$_}{'type'}) )); 1651 1652 $val = ${$self->{'default'} }{$_}{'linkage'}; 1653 if ($val) 1654 { 1655 if (ref($val) eq 'SCALAR') 1656 { 1657 $val = $$val; 1658 } 1659 else 1660 { 1661 $val = ''; 1662 } 1663 } 1664 else 1665 { 1666 $val = ${$self->{'default'} }{$_}{'default'}; 1667 } 1668 $line .= "$val "; 1669 $line .= ' ' x ($optwidth + $typewidth + $defaultwidth + 1 - length($line)); 1670 1671 if (defined(${$self -> {'default'} }{$_}{'verbose'}) && 1672 ${$self -> {'default'} }{$_}{'verbose'} ne '') 1673 { 1674 $help = "${$self->{'default'} }{$_}{'verbose'}"; 1675 } 1676 else 1677 { 1678 $help = ' '; 1679 } 1680 if ((length("$line") + length($help)) < $maxlinewidth) 1681 { 1682 print $line , $help, "\n"; 1683 } 1684 else 1685 { 1686 print $line, "\n", ' ' x $valind, $help, "\n"; 1687 } 1688 for $val (sort byOrder keys(%{${$self->{'default'}}{$option}{'values'}})) 1689 { 1690 print ' ' x ($valind + 2); 1691 print $val, ' ', ' ' x ($valwidth - length($val) - 2); 1692 print ${$self->{'default'}}{$option}{'values'}{$val}, "\n"; 1693 } 1694 } 1695 1696 print <<EOT; 1697 Note: 'Options' may be abbreviated. 'Type' specifications mean: 1698 <none>| ! no argument: variable is set to 1 on -foo (or, to 0 on -nofoo) 1699 =s | :s mandatory (or, optional) string argument 1700 =i | :i mandatory (or, optional) integer argument 1701 EOT 1702 } # End of helpOptions. 1703 1704 #------------------------------------------------------------------- 1705 1706 sub new 1707 { 1708 my($class) = @_; 1709 my($self) = {}; 1710 $self -> {'default'} = {}; 1711 $self -> {'helpText'} = ''; 1712 $self -> {'opt'} = {}; 1713 $opt = $self -> {'opt'}; # An alias for $self -> {'opt'}. 1714 $self -> {'type'} = (); 1715 1716 return bless $self, $class; 1717 1718 } # End of new. 1719 1720 # -------------------------------------------------------------------------- 1721 1722 1; 1723 1724 # End MySimple.pm 1725 1726 require "$ENV{T2H_HOME}/MySimple.pm" 1727 if ($0 =~ /\.pl$/ && 1728 -e "$ENV{T2H_HOME}/texi2html.init" && -r "$ENV{T2H_HOME}/texi2html.init"); 1729 1730 package main; 1731 1732 #+++############################################################################ 1733 # # 1734 # Constants # 1735 # # 1736 #---############################################################################ 1737 1738 $DEBUG_TOC = 1; 1739 $DEBUG_INDEX = 2; 1740 $DEBUG_BIB = 4; 1741 $DEBUG_GLOSS = 8; 1742 $DEBUG_DEF = 16; 1743 $DEBUG_HTML = 32; 1744 $DEBUG_USER = 64; 1745 $DEBUG_L2H = 128; 1746 1747 1748 $BIBRE = '\[[\w\/-]+\]'; # RE for a bibliography reference 1749 $FILERE = '[\/\w.+-]+'; # RE for a file name 1750 $VARRE = '[^\s\{\}]+'; # RE for a variable name 1751 $NODERE = '[^,:]+'; # RE for a node name 1752 $NODESRE = '[^:]+'; # RE for a list of node names 1753 1754 $ERROR = "***"; # prefix for errors 1755 $WARN = "**"; # prefix for warnings 1756 1757 # program home page 1758 $PROTECTTAG = "_ThisIsProtected_"; # tag to recognize protected sections 1759 1760 $CHAPTEREND = "<!-- End chapter -->\n"; # to know where a chpater ends 1761 $SECTIONEND = "<!-- End section -->\n"; # to know where section ends 1762 $TOPEND = "<!-- End top -->\n"; # to know where top ends 1763 1764 1765 1766 # 1767 # pre-defined indices 1768 # 1769 $index_properties = 1770 { 1771 'c' => { name => 'cp'}, 1772 'f' => { name => 'fn', code => 1}, 1773 'v' => { name => 'vr', code => 1}, 1774 'k' => { name => 'ky', code => 1}, 1775 'p' => { name => 'pg', code => 1}, 1776 't' => { name => 'tp', code => 1} 1777 }; 1778 1779 1780 %predefined_index = ( 1781 'cp', 'c', 1782 'fn', 'f', 1783 'vr', 'v', 1784 'ky', 'k', 1785 'pg', 'p', 1786 'tp', 't', 1787 ); 1788 1789 # 1790 # valid indices 1791 # 1792 %valid_index = ( 1793 'c', 1, 1794 'f', 1, 1795 'v', 1, 1796 'k', 1, 1797 'p', 1, 1798 't', 1, 1799 ); 1800 1801 # 1802 # texinfo section names to level 1803 # 1804 %sec2level = ( 1805 'top', 0, 1806 'chapter', 1, 1807 'unnumbered', 1, 1808 'majorheading', 1, 1809 'chapheading', 1, 1810 'appendix', 1, 1811 'section', 2, 1812 'unnumberedsec', 2, 1813 'heading', 2, 1814 'appendixsec', 2, 1815 'appendixsection', 2, 1816 'subsection', 3, 1817 'unnumberedsubsec', 3, 1818 'subheading', 3, 1819 'appendixsubsec', 3, 1820 'subsubsection', 4, 1821 'unnumberedsubsubsec', 4, 1822 'subsubheading', 4, 1823 'appendixsubsubsec', 4, 1824 ); 1825 1826 # 1827 # accent map, TeX command to ISO name 1828 # 1829 %accent_map = ( 1830 '"', 'uml', 1831 '~', 'tilde', 1832 '^', 'circ', 1833 '`', 'grave', 1834 '\'', 'acute', 1835 ); 1836 1837 # 1838 # texinfo "simple things" (@foo) to HTML ones 1839 # 1840 %simple_map = ( 1841 # cf. makeinfo.c 1842 "*", "<BR>", # HTML+ 1843 " ", " ", 1844 "\t", " ", 1845 "-", "­", # soft hyphen 1846 "\n", "\n", 1847 "|", "", 1848 'tab', '<\/TD><TD>', 1849 # spacing commands 1850 ":", "", 1851 "!", "!", 1852 "?", "?", 1853 ".", ".", 1854 "-", "", 1855 ); 1856 1857 # 1858 # texinfo "things" (@foo{}) to HTML ones 1859 # 1860 %things_map = ( 1861 'TeX', 'TeX', 1862 'br', '<P>', # paragraph break 1863 'bullet', '*', 1864 'copyright', '(C)', 1865 'dots', '<small>...<\/small>', 1866 'enddots', '<small>....<\/small>', 1867 'equiv', '==', 1868 'error', 'error-->', 1869 'expansion', '==>', 1870 'minus', '-', 1871 'point', '-!-', 1872 'print', '-|', 1873 'result', '=>', 1874 'today', $T2H_TODAY, 1875 'aa', 'å', 1876 'AA', 'Å', 1877 'ae', 'æ', 1878 'oe', 'œ', 1879 'AE', 'Æ', 1880 'OE', 'Œ', 1881 'o', 'ø', 1882 'O', 'Ø', 1883 'ss', 'ß', 1884 'l', '\/l', 1885 'L', '\/L', 1886 'exclamdown', '¡', 1887 'questiondown', '¿', 1888 'pounds', '£' 1889 ); 1890 1891 # 1892 # texinfo styles (@foo{bar}) to HTML ones 1893 # 1894 %style_map = ( 1895 'acronym', '&do_acronym', 1896 'asis', '', 1897 'b', 'B', 1898 'cite', 'CITE', 1899 'code', 'CODE', 1900 'command', 'CODE', 1901 'ctrl', '&do_ctrl', # special case 1902 'dfn', 'EM', # DFN tag is illegal in the standard 1903 'dmn', '', # useless 1904 'email', '&do_email', # insert a clickable email address 1905 'emph', 'EM', 1906 'env', 'CODE', 1907 'file', '"TT', # will put quotes, cf. &apply_style 1908 'i', 'I', 1909 'kbd', 'KBD', 1910 'key', 'KBD', 1911 'math', '&do_math', 1912 'option', '"SAMP', # will put quotes, cf. &apply_style 1913 'r', '', # unsupported 1914 'samp', '"SAMP', # will put quotes, cf. &apply_style 1915 'sc', '&do_sc', # special case 1916 'strong', 'STRONG', 1917 't', 'TT', 1918 'titlefont', '', # useless 1919 'uref', '&do_uref', # insert a clickable URL 1920 'url', '&do_url', # insert a clickable URL 1921 'var', 'VAR', 1922 'w', '', # unsupported 1923 'H', '&do_accent', 1924 'dotaccent', '&do_accent', 1925 'ringaccent','&do_accent', 1926 'tieaccent', '&do_accent', 1927 'u','&do_accent', 1928 'ubaraccent','&do_accent', 1929 'udotaccent','&do_accent', 1930 'v', '&do_accent', 1931 ',', '&do_accent', 1932 'dotless', '&do_accent' 1933 ); 1934 1935 # 1936 # texinfo format (@foo/@end foo) to HTML ones 1937 # 1938 %format_map = ( 1939 'quotation', 'BLOCKQUOTE', 1940 # lists 1941 'itemize', 'UL', 1942 'enumerate', 'OL', 1943 # poorly supported 1944 'flushleft', 'PRE', 1945 'flushright', 'PRE', 1946 ); 1947 1948 # 1949 # an eval of these $complex_format_map->{what}->[0] yields beginning 1950 # an eval of these $complex_format_map->{what}->[1] yieleds end 1951 $complex_format_map = 1952 { 1953 example => 1954 [ 1955 q{"<TABLE><tr>$T2H_EXAMPLE_INDENT_CELL<td class=example><pre>"}, 1956 q{'</pre></td></tr></table>'} 1957 ], 1958 smallexample => 1959 [ 1960 q{"<TABLE><tr>$T2H_SMALL_EXAMPLE_INDENT_CELL<td class=smallexample><FONT SIZE=$T2H_SMALL_FONT_SIZE><pre>"}, 1961 q{'</FONT></pre></td></tr></table>'} 1962 ], 1963 display => 1964 [ 1965 q{"<TABLE><tr>$T2H_EXAMPLE_INDENT_CELL<td class=display><pre " . 'style="font-family: serif">'}, 1966 q{'</pre></td></tr></table>'} 1967 ], 1968 smalldisplay => 1969 [ 1970 q{"<TABLE><tr>$T2H_SMALL_EXAMPLE_INDENT_CELL<td class=smalldisplay><FONT SIZE=$T2H_SMALL_FONT_SIZE><pre " . 'style="font-family: serif">'}, 1971 q{'</pre></FONT></td></tr></table>'} 1972 ] 1973 }; 1974 1975 $complex_format_map->{lisp} = $complex_format_map->{example}; 1976 $complex_format_map->{smalllisp} = $complex_format_map->{smallexample}; 1977 $complex_format_map->{format} = $complex_format_map->{display}; 1978 $complex_format_map->{smallformat} = $complex_format_map->{smalldisplay}; 1979 1980 # 1981 # texinfo definition shortcuts to real ones 1982 # 1983 %def_map = ( 1984 # basic commands 1985 'deffn', 0, 1986 'defvr', 0, 1987 'deftypefn', 0, 1988 'deftypevr', 0, 1989 'defcv', 0, 1990 'defop', 0, 1991 'deftp', 0, 1992 # basic x commands 1993 'deffnx', 0, 1994 'defvrx', 0, 1995 'deftypefnx', 0, 1996 'deftypevrx', 0, 1997 'defcvx', 0, 1998 'defopx', 0, 1999 'deftpx', 0, 2000 # shortcuts 2001 'defun', 'deffn Function', 2002 'defmac', 'deffn Macro', 2003 'defspec', 'deffn {Special Form}', 2004 'defvar', 'defvr Variable', 2005 'defopt', 'defvr {User Option}', 2006 'deftypefun', 'deftypefn Function', 2007 'deftypevar', 'deftypevr Variable', 2008 'defivar', 'defcv {Instance Variable}', 2009 'deftypeivar', 'defcv {Instance Variable}', # NEW: FIXME 2010 'defmethod', 'defop Method', 2011 'deftypemethod', 'defop Method', # NEW:FIXME 2012 # x shortcuts 2013 'defunx', 'deffnx Function', 2014 'defmacx', 'deffnx Macro', 2015 'defspecx', 'deffnx {Special Form}', 2016 'defvarx', 'defvrx Variable', 2017 'defoptx', 'defvrx {User Option}', 2018 'deftypefunx', 'deftypefnx Function', 2019 'deftypevarx', 'deftypevrx Variable', 2020 'defivarx', 'defcvx {Instance Variable}', 2021 'defmethodx', 'defopx Method', 2022 ); 2023 2024 # 2025 # things to skip 2026 # 2027 %to_skip = ( 2028 # comments 2029 'c', 1, 2030 'comment', 1, 2031 'ifnotinfo', 1, 2032 'ifnottex', 1, 2033 'ifhtml', 1, 2034 'end ifhtml', 1, 2035 'end ifnotinfo', 1, 2036 'end ifnottex', 1, 2037 # useless 2038 'detailmenu', 1, 2039 'direntry', 1, 2040 'contents', 1, 2041 'shortcontents', 1, 2042 'summarycontents', 1, 2043 'footnotestyle', 1, 2044 'end ifclear', 1, 2045 'end ifset', 1, 2046 'titlepage', 1, 2047 'end titlepage', 1, 2048 # unsupported commands (formatting) 2049 'afourpaper', 1, 2050 'cropmarks', 1, 2051 'finalout', 1, 2052 'headings', 1, 2053 'sp', 1, 2054 'need', 1, 2055 'page', 1, 2056 'setchapternewpage', 1, 2057 'everyheading', 1, 2058 'everyfooting', 1, 2059 'evenheading', 1, 2060 'evenfooting', 1, 2061 'oddheading', 1, 2062 'oddfooting', 1, 2063 'smallbook', 1, 2064 'vskip', 1, 2065 'filbreak', 1, 2066 'paragraphindent', 1, 2067 # unsupported formats 2068 'cartouche', 1, 2069 'end cartouche', 1, 2070 'group', 1, 2071 'end group', 1, 2072 ); 2073 2074 #+++############################################################################ 2075 # # 2076 # Argument parsing, initialisation # 2077 # # 2078 #---############################################################################ 2079 2080 # 2081 # flush stdout and stderr after every write 2082 # 2083 select(STDERR); 2084 $| = 1; 2085 select(STDOUT); 2086 $| = 1; 2087 2088 2089 %value = (); # hold texinfo variables, see also -D 2090 $use_bibliography = 1; 2091 $use_acc = 1; 2092 2093 # 2094 # called on -init-file 2095 sub LoadInitFile 2096 { 2097 my $init_file = shift; 2098 # second argument is value of options 2099 $init_file = shift; 2100 if (-f $init_file) 2101 { 2102 print "# reading initialization file from $init_file\n" 2103 if ($T2H_VERBOSE); 2104 require($init_file); 2105 } 2106 else 2107 { 2108 print "$ERROR Error: can't read init file $int_file\n"; 2109 $init_file = ''; 2110 } 2111 } 2112 2113 # 2114 # called on -lang 2115 sub SetDocumentLanguage 2116 { 2117 my $lang = shift; 2118 if (! exists($T2H_WORDS->{$lang})) 2119 { 2120 warn "$ERROR: Language specs for '$lang' do not exists. Reverting to '" . 2121 ($T2H_LANG ? T2H_LANG : "en") . "'\n"; 2122 } 2123 else 2124 { 2125 print "# using '$lang' as document language\n" if ($T2H_VERBOSE); 2126 $T2H_LANG = $lang; 2127 } 2128 } 2129 2130 ## 2131 ## obsolete cmd line options 2132 ## 2133 $T2H_OBSOLETE_OPTIONS -> {'no-section_navigation'} = 2134 { 2135 type => '!', 2136 linkage => sub {$main::T2H_SECTION_NAVIGATION = 0;}, 2137 verbose => 'obsolete, use -nosec_nav', 2138 noHelp => 2, 2139 }; 2140 $T2H_OBSOLETE_OPTIONS -> {use_acc} = 2141 { 2142 type => '!', 2143 linkage => \$use_acc, 2144 verbose => 'obsolete', 2145 noHelp => 2 2146 }; 2147 $T2H_OBSOLETE_OPTIONS -> {expandinfo} = 2148 { 2149 type => '!', 2150 linkage => sub {$main::T2H_EXPAND = 'info';}, 2151 verbose => 'obsolete, use "-expand info" instead', 2152 noHelp => 2, 2153 }; 2154 $T2H_OBSOLETE_OPTIONS -> {expandtex} = 2155 { 2156 type => '!', 2157 linkage => sub {$main::T2H_EXPAND = 'tex';}, 2158 verbose => 'obsolete, use "-expand tex" instead', 2159 noHelp => 2, 2160 }; 2161 $T2H_OBSOLETE_OPTIONS -> {monolithic} = 2162 { 2163 type => '!', 2164 linkage => sub {$main::T2H_SPLIT = '';}, 2165 verbose => 'obsolete, use "-split no" instead', 2166 noHelp => 2 2167 }; 2168 $T2H_OBSOLETE_OPTIONS -> {split_node} = 2169 { 2170 type => '!', 2171 linkage => sub{$main::T2H_SPLIT = 'section';}, 2172 verbose => 'obsolete, use "-split section" instead', 2173 noHelp => 2, 2174 }; 2175 $T2H_OBSOLETE_OPTIONS -> {split_chapter} = 2176 { 2177 type => '!', 2178 linkage => sub{$main::T2H_SPLIT = 'chapter';}, 2179 verbose => 'obsolete, use "-split chapter" instead', 2180 noHelp => 2, 2181 }; 2182 $T2H_OBSOLETE_OPTIONS -> {no_verbose} = 2183 { 2184 type => '!', 2185 linkage => sub {$main::T2H_VERBOSE = 0;}, 2186 verbose => 'obsolete, use -noverbose instead', 2187 noHelp => 2, 2188 }; 2189 $T2H_OBSOLETE_OPTIONS -> {output_file} = 2190 { 2191 type => '=s', 2192 linkage => sub {$main::T2H_OUT = @_[1]; $T2H_SPLIT = '';}, 2193 verbose => 'obsolete, use -out_file instead', 2194 noHelp => 2 2195 }; 2196 2197 $T2H_OBSOLETE_OPTIONS -> {section_navigation} = 2198 { 2199 type => '!', 2200 linkage => \$T2H_SECTION_NAVIGATION, 2201 verbose => 'obsolete, use -sec_nav instead', 2202 noHelp => 2, 2203 }; 2204 2205 $T2H_OBSOLETE_OPTIONS -> {verbose} = 2206 { 2207 type => '!', 2208 linkage => \$T2H_VERBOSE, 2209 verbose => 'obsolete, use -Verbose instead', 2210 noHelp => 2 2211 }; 2212 2213 # read initialzation from $sysconfdir/texi2htmlrc or $HOME/.texi2htmlrc 2214 my $home = $ENV{HOME}; 2215 defined($home) or $home = ''; 2216 foreach $i ('/usr/local/etc/texi2htmlrc', "$home/.texi2htmlrc") { 2217 if (-f $i) { 2218 print "# reading initialization file from $i\n" 2219 if ($T2H_VERBOSE); 2220 require($i); 2221 } 2222 } 2223 2224 2225 #+++############################################################################ 2226 # # 2227 # parse command-line options 2228 # # 2229 #---############################################################################ 2230 $T2H_USAGE_TEXT = <<EOT; 2231 Usage: texi2html [OPTIONS] TEXINFO-FILE 2232 Translates Texinfo source documentation to HTML. 2233 EOT 2234 $T2H_FAILURE_TEXT = <<EOT; 2235 Try 'texi2html -help' for usage instructions. 2236 EOT 2237 $options = new Getopt::MySimple; 2238 2239 # some older version of GetOpt::Long don't have 2240 # Getopt::Long::Configure("pass_through") 2241 eval {Getopt::Long::Configure("pass_through");}; 2242 $Configure_failed = $@ && <<EOT; 2243 **WARNING: Parsing of obsolete command-line options could have failed. 2244 Consider to use only documented command-line options (run 2245 'texi2html -help 2' for a complete list) or upgrade to perl 2246 version 5.005 or higher. 2247 EOT 2248 2249 if (! $options->getOptions($T2H_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n")) 2250 { 2251 print $Configure_failed if $Configure_failed; 2252 die $T2H_FAILURE_TEXT; 2253 } 2254 2255 if (@ARGV > 1) 2256 { 2257 eval {Getopt::Long::Configure("no_pass_through");}; 2258 if (! $options->getOptions($T2H_OBSOLETE_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n")) 2259 { 2260 print $Configure_failed if $Configure_failed; 2261 die $T2H_FAILURE_TEXT; 2262 } 2263 } 2264 2265 if ($T2H_CHECK) { 2266 die "Need file to check\n$T2H_FAILURE_TEXT" unless @ARGV > 0; 2267 ✓ 2268 exit; 2269 } 2270 2271 #+++############################################################################ 2272 # # 2273 # evaluation of cmd line options 2274 # # 2275 #---############################################################################ 2276 2277 if ($T2H_EXPAND eq 'info') 2278 { 2279 $to_skip{'ifinfo'} = 1; 2280 $to_skip{'end ifinfo'} = 1; 2281 } 2282 elsif ($T2H_EXPAND eq 'tex') 2283 { 2284 $to_skip{'iftex'} = 1; 2285 $to_skip{'end iftex'} = 1; 2286 2287 } 2288 2289 $T2H_INVISIBLE_MARK = '<IMG SRC="invisible.xbm">' if $T2H_INVISIBLE_MARK eq 'xbm'; 2290 2291 # 2292 # file name buisness 2293 # 2294 die "Need exactly one file to translate\n$T2H_FAILURE_TEXT" unless @ARGV == 1; 2295 $docu = shift(@ARGV); 2296 if ($docu =~ /.*\//) { 2297 chop($docu_dir = $&); 2298 $docu_name = $'; 2299 } else { 2300 $docu_dir = '.'; 2301 $docu_name = $docu; 2302 } 2303 unshift(@T2H_INCLUDE_DIRS, $docu_dir); 2304 $docu_name =~ s/\.te?x(i|info)?$//; # basename of the document 2305 $docu_name = $T2H_PREFIX if ($T2H_PREFIX); 2306 2307 # subdir 2308 if ($T2H_SUBDIR && ! $T2H_OUT) 2309 { 2310 $T2H_SUBDIR =~ s|/*$||; 2311 unless (-d "$T2H_SUBDIR" && -w "$T2H_SUBDIR") 2312 { 2313 if ( mkdir($T2H_SUBDIR, oct(755))) 2314 { 2315 print "# created directory $T2H_SUBDIR\n" if ($T2H_VERBOSE); 2316 } 2317 else 2318 { 2319 warn "$ERROR can't create directory $T2H_SUBDIR. Put results into current directory\n"; 2320 $T2H_SUBDIR = ''; 2321 } 2322 } 2323 } 2324 2325 if ($T2H_SUBDIR && ! $T2H_OUT) 2326 { 2327 $docu_rdir = "$T2H_SUBDIR/"; 2328 print "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE); 2329 } 2330 else 2331 { 2332 if ($T2H_OUT && $T2H_OUT =~ m|(.*)/|) 2333 { 2334 $docu_rdir = "$1/"; 2335 print "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE); 2336 } 2337 else 2338 { 2339 print "# putting result files into current directory \n" if ($T2H_VERBOSE); 2340 $docu_rdir = ''; 2341 } 2342 } 2343 2344 # extension 2345 if ($T2H_SHORTEXTN) 2346 { 2347 $docu_ext = "htm"; 2348 } 2349 else 2350 { 2351 $docu_ext = "html"; 2352 } 2353 if ($T2H_TOP_FILE =~ /\..*$/) 2354 { 2355 $T2H_TOP_FILE = $`.".$docu_ext"; 2356 } 2357 2358 # result files 2359 if (! $T2H_OUT && ($T2H_SPLIT =~ /section/i || $T2H_SPLIT =~ /node/i)) 2360 { 2361 $T2H_SPLIT = 'section'; 2362 } 2363 elsif (! $T2H_OUT && $T2H_SPLIT =~ /chapter/i) 2364 { 2365 $T2H_SPLIT = 'chapter' 2366 } 2367 else 2368 { 2369 undef $T2H_SPLIT; 2370 } 2371 2372 $docu_doc = "$docu_name.$docu_ext"; # document's contents 2373 $docu_doc_file = "$docu_rdir$docu_doc"; 2374 if ($T2H_SPLIT) 2375 { 2376 $docu_toc = $T2H_TOC_FILE || "${docu_name}_toc.$docu_ext"; # document's table of contents 2377 $docu_stoc = "${docu_name}_ovr.$docu_ext"; # document's short toc 2378 $docu_foot = "${docu_name}_fot.$docu_ext"; # document's footnotes 2379 $docu_about = "${docu_name}_abt.$docu_ext"; # about this document 2380 $docu_top = $T2H_TOP_FILE || $docu_doc; 2381 } 2382 else 2383 { 2384 if ($T2H_OUT) 2385 { 2386 $docu_doc = $T2H_OUT; 2387 $docu_doc =~ s|.*/||; 2388 } 2389 $docu_toc = $docu_foot = $docu_stoc = $docu_about = $docu_top = $docu_doc; 2390 } 2391 2392 $docu_toc_file = "$docu_rdir$docu_toc"; 2393 $docu_stoc_file = "$docu_rdir$docu_stoc"; 2394 $docu_foot_file = "$docu_rdir$docu_foot"; 2395 $docu_about_file = "$docu_rdir$docu_about"; 2396 $docu_top_file = "$docu_rdir$docu_top"; 2397 2398 $docu_frame_file = "$docu_rdir${docu_name}_frame.$docu_ext"; 2399 $docu_toc_frame_file = "$docu_rdir${docu_name}_toc_frame.$docu_ext"; 2400 2401 # 2402 # variables 2403 # 2404 $value{'html'} = 1; # predefine html (the output format) 2405 $value{'texi2html'} = $THISVERSION; # predefine texi2html (the translator) 2406 # _foo: internal to track @foo 2407 foreach ('_author', '_title', '_subtitle', 2408 '_settitle', '_setfilename', '_shorttitle') { 2409 $value{$_} = ''; # prevent -w warnings 2410 } 2411 %node2sec = (); # node to section name 2412 %sec2node = (); # section to node name 2413 %sec2number = (); # section to number 2414 %number2sec = (); # number to section 2415 %idx2node = (); # index keys to node 2416 %node2href = (); # node to HREF 2417 %node2next = (); # node to next 2418 %node2prev = (); # node to prev 2419 %node2up = (); # node to up 2420 %bib2href = (); # bibliography reference to HREF 2421 %gloss2href = (); # glossary term to HREF 2422 @sections = (); # list of sections 2423 %tag2pro = (); # protected sections 2424 2425 # 2426 # initial indexes 2427 # 2428 $bib_num = 0; 2429 $foot_num = 0; 2430 $gloss_num = 0; 2431 $idx_num = 0; 2432 $sec_num = 0; 2433 $doc_num = 0; 2434 $html_num = 0; 2435 2436 # 2437 # can I use ISO8879 characters? (HTML+) 2438 # 2439 if ($T2H_USE_ISO) { 2440 $things_map{'bullet'} = "•"; 2441 $things_map{'copyright'} = "©"; 2442 $things_map{'dots'} = "…"; 2443 $things_map{'equiv'} = "≡"; 2444 $things_map{'expansion'} = "→"; 2445 $things_map{'point'} = "∗"; 2446 $things_map{'result'} = "⇒"; 2447 } 2448 2449 # 2450 # read texi2html extensions (if any) 2451 # 2452 $extensions = 'texi2html.ext'; # extensions in working directory 2453 if (-f $extensions) { 2454 print "# reading extensions from $extensions\n" if $T2H_VERBOSE; 2455 require($extensions); 2456 } 2457 ($progdir = $0) =~ s/[^\/]+$//; 2458 if ($progdir && ($progdir ne './')) { 2459 $extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory 2460 if (-f $extensions) { 2461 print "# reading extensions from $extensions\n" if $T2H_VERBOSE; 2462 require($extensions); 2463 } 2464 } 2465 2466 2467 print "# reading from $docu\n" if $T2H_VERBOSE; 2468 2469 ######################################################################### 2470 # 2471 # latex2html stuff 2472 # 2473 # latex2html conversions consist of three stages: 2474 # 1) ToLatex: Put "latex" code into a latex file 2475 # 2) ToHtml: Use latex2html to generate corresponding html code and images 2476 # 3) FromHtml: Extract generated code and images from latex2html run 2477 # 2478 2479 ########################## 2480 # default settings 2481 # 2482 2483 # defaults for files and names 2484 2485 sub l2h_Init 2486 { 2487 local($root) = @_; 2488 2489 return 0 unless ($root); 2490 2491 $l2h_name = "${root}_l2h"; 2492 2493 $l2h_latex_file = "$docu_rdir${l2h_name}.tex"; 2494 $l2h_cache_file = "${docu_rdir}l2h_cache.pm"; 2495 $T2H_L2H_L2H = "latex2html" unless ($T2H_L2H_L2H); 2496 2497 # destination dir -- generated images are put there, should be the same 2498 # as dir of enclosing html document -- 2499 $l2h_html_file = "$docu_rdir${l2h_name}.html"; 2500 $l2h_prefix = "${l2h_name}_"; 2501 return 1; 2502 } 2503 2504 2505 ########################## 2506 # 2507 # First stage: Generation of Latex file 2508 # Initialize with: l2h_InitToLatex 2509 # Add content with: l2h_ToLatex($text) --> HTML placeholder comment 2510 # Finish with: l2h_FinishToLatex 2511 # 2512 2513 $l2h_latex_preample = <<EOT; 2514 % This document was automatically generated by the l2h extenstion of texi2html 2515 % DO NOT EDIT !!! 2516 \\documentclass{article} 2517 \\usepackage{html} 2518 \\begin{document} 2519 EOT 2520 2521 $l2h_latex_closing = <<EOT; 2522 \\end{document} 2523 EOT 2524 2525 # return used latex 1, if l2h could be initalized properly, 0 otherwise 2526 sub l2h_InitToLatex 2527 { 2528 %l2h_to_latex = (); 2529 unless ($T2H_L2H_SKIP) 2530 { 2531 unless (open(L2H_LATEX, ">$l2h_latex_file")) 2532 { 2533 warn "$ERROR Error l2h: Can't open latex file '$latex_file' for writing\n"; 2534 return 0; 2535 } 2536 print "# l2h: use ${l2h_latex_file} as latex file\n" if ($T2H_VERBOSE); 2537 print L2H_LATEX $l2h_latex_preample; 2538 } 2539 # open database for caching 2540 l2h_InitCache(); 2541 $l2h_latex_count = 0; 2542 $l2h_to_latex_count = 0; 2543 $l2h_cached_count = 0; 2544 return 1; 2545 } 2546 2547 # print text (1st arg) into latex file (if not already there), return 2548 # HTML commentary which can be later on replaced by the latex2html 2549 # generated text 2550 sub l2h_ToLatex 2551 { 2552 my($text) = @_; 2553 my($count); 2554 2555 $l2h_to_latex_count++; 2556 $text =~ s/(\s*)$//; 2557 2558 # try whether we can cache it 2559 my $cached_text = l2h_FromCache($text); 2560 if ($cached_text) 2561 { 2562 $l2h_cached_count++; 2563 return $cached_text; 2564 } 2565 2566 # try whether we have text already on things to do 2567 unless ($count = $l2h_to_latex{$text}) 2568 { 2569 $count = $l2h_latex_count; 2570 $l2h_latex_count++; 2571 $l2h_to_latex{$text} = $count; 2572 $l2h_to_latex[$count] = $text; 2573 unless ($T2H_L2H_SKIP) 2574 { 2575 print L2H_LATEX "\\begin{rawhtml}\n"; 2576 print L2H_LATEX "<!-- l2h_begin ${l2h_name} ${count} -->\n"; 2577 print L2H_LATEX "\\end{rawhtml}\n"; 2578 2579 print L2H_LATEX "$text\n"; 2580 2581 print L2H_LATEX "\\begin{rawhtml}\n"; 2582 print L2H_LATEX "<!-- l2h_end ${l2h_name} ${count} -->\n"; 2583 print L2H_LATEX "\\end{rawhtml}\n"; 2584 } 2585 } 2586 return "<!-- l2h_replace ${l2h_name} ${count} -->"; 2587 } 2588 2589 # print closing into latex file and close it 2590 sub l2h_FinishToLatex 2591 { 2592 local ($reused); 2593 2594 $reused = $l2h_to_latex_count - $l2h_latex_count - $l2h_cached_count; 2595 unless ($T2H_L2H_SKIP) 2596 { 2597 print L2H_LATEX $l2h_latex_closing; 2598 close(L2H_LATEX); 2599 } 2600 print "# l2h: finished to latex ($l2h_cached_count cached, $reused reused, $l2h_latex_count contents)\n" if ($T2H_VERBOSE); 2601 unless ($l2h_latex_count) 2602 { 2603 l2h_Finish(); 2604 return 0; 2605 } 2606 return 1; 2607 } 2608 2609 ################################### 2610 # Second stage: Use latex2html to generate corresponding html code and images 2611 # 2612 # l2h_ToHtml([$l2h_latex_file, [$l2h_html_dir]]): 2613 # Call latex2html on $l2h_latex_file 2614 # Put images (prefixed with $l2h_name."_") and html file(s) in $l2h_html_dir 2615 # Return 1, on success 2616 # 0, otherwise 2617 # 2618 sub l2h_ToHtml 2619 { 2620 local($call, $ext, $root, $dotbug); 2621 2622 if ($T2H_L2H_SKIP) 2623 { 2624 print "# l2h: skipping latex2html run\n" if ($T2H_VERBOSE); 2625 return 1; 2626 } 2627 2628 # Check for dot in directory where dvips will work 2629 if ($T2H_L2H_TMP) 2630 { 2631 if ($T2H_L2H_TMP =~ /\./) 2632 { 2633 warn "$ERROR Warning l2h: l2h_tmp dir contains a dot. Use /tmp, instead\n"; 2634 $dotbug = 1; 2635 } 2636 } 2637 else 2638 { 2639 if (&getcwd =~ /\./) 2640 { 2641 warn "$ERROR Warning l2h: current dir contains a dot. Use /tmp as l2h_tmp dir \n"; 2642 $dotbug = 1; 2643 } 2644 } 2645 # fix it, if necessary and hope that it works 2646 $T2H_L2H_TMP = "/tmp" if ($dotbug); 2647 2648 $call = $T2H_L2H_L2H; 2649 # use init file, if specified 2650 $call = $call . " -init_file " . $init_file if ($init_file && -f $init_file); 2651 # set output dir 2652 $call .= ($docu_rdir ? " -dir $docu_rdir" : " -no_subdir"); 2653 # use l2h_tmp, if specified 2654 $call = $call . " -tmp $T2H_L2H_TMP" if ($T2H_L2H_TMP); 2655 # options we want to be sure of 2656 $call = $call ." -address 0 -info 0 -split 0 -no_navigation -no_auto_link"; 2657 $call = $call ." -prefix ${l2h_prefix} $l2h_latex_file"; 2658 2659 print "# l2h: executing '$call'\n" if ($T2H_VERBOSE); 2660 if (system($call)) 2661 { 2662 warn "l2h ***Error: '${call}' did not succeed\n"; 2663 return 0; 2664 } 2665 else 2666 { 2667 print "# l2h: latex2html finished successfully\n" if ($T2H_VERBOSE); 2668 return 1; 2669 } 2670 } 2671 2672 # this is directly pasted over from latex2html 2673 sub getcwd { 2674 local($_) = `pwd`; 2675 2676 die "'pwd' failed (out of memory?)\n" 2677 unless length; 2678 chop; 2679 $_; 2680 } 2681 2682 2683 ########################## 2684 # Third stage: Extract generated contents from latex2html run 2685 # Initialize with: l2h_InitFromHtml 2686 # open $l2h_html_file for reading 2687 # reads in contents into array indexed by numbers 2688 # return 1, on success -- 0, otherwise 2689 # Extract Html code with: l2h_FromHtml($text) 2690 # replaces in $text all previosuly inserted comments by generated html code 2691 # returns (possibly changed) $text 2692 # Finish with: l2h_FinishFromHtml 2693 # closes $l2h_html_dir/$l2h_name.".$docu_ext" 2694 2695 sub l2h_InitFromHtml 2696 { 2697 local($h_line, $h_content, $count, %l2h_img); 2698 2699 if (! open(L2H_HTML, "<${l2h_html_file}")) 2700 { 2701 print "$ERROR Error l2h: Can't open ${l2h_html_file} for reading\n"; 2702 return 0; 2703 } 2704 print "# l2h: use ${l2h_html_file} as html file\n" if ($T2H_VERBOSE); 2705 2706 $l2h_html_count = 0; 2707 2708 while ($h_line = <L2H_HTML>) 2709 { 2710 if ($h_line =~ /^<!-- l2h_begin $l2h_name ([0-9]+) -->/) 2711 { 2712 $count = $1; 2713 $h_content = ""; 2714 while ($h_line = <L2H_HTML>) 2715 { 2716 if ($h_line =~ /^<!-- l2h_end $l2h_name $count -->/) 2717 { 2718 chomp $h_content; 2719 chomp $h_content; 2720 $l2h_html_count++; 2721 $h_content = l2h_ToCache($count, $h_content); 2722 $l2h_from_html[$count] = $h_content; 2723 $h_content = ''; 2724 last; 2725 } 2726 $h_content = $h_content.$h_line; 2727 } 2728 if ($hcontent) 2729 { 2730 print "$ERROR Warning l2h: l2h_end $l2h_name $count not found\n" 2731 if ($T2H_VERBOSE); 2732 close(L2H_HTML); 2733 return 0; 2734 } 2735 } 2736 } 2737 print "# l2h: Got $l2h_html_count of $l2h_latex_count html contents\n" 2738 if ($T2H_VERBOSE); 2739 2740 close(L2H_HTML); 2741 return 1; 2742 } 2743 2744 sub l2h_FromHtml 2745 { 2746 local($text) = @_; 2747 local($done, $to_do, $count); 2748 2749 $to_do = $text; 2750 2751 while ($to_do =~ /([^\000]*)<!-- l2h_replace $l2h_name ([0-9]+) -->([^\000]*)/) 2752 { 2753 $to_do = $1; 2754 $count = $2; 2755 $done = $3.$done; 2756 2757 $done = "<!-- l2h_end $l2h_name $count -->".$done 2758 if ($T2H_DEBUG & $DEBUG_L2H); 2759 2760 $done = &l2h_ExtractFromHtml($count) . $done; 2761 2762 $done = "<!-- l2h_begin $l2h_name $count -->".$done 2763 if ($T2H_DEBUG & $DEBUG_L2H); 2764 } 2765 return $to_do.$done; 2766 } 2767 2768 2769 sub l2h_ExtractFromHtml 2770 { 2771 local($count) = @_; 2772 2773 return $l2h_from_html[$count] if ($l2h_from_html[$count]); 2774 2775 if ($count >= 0 && $count < $l2h_latex_count) 2776 { 2777 # now we are in trouble 2778 local($l_l2h, $_); 2779 2780 $l2h_extract_error++; 2781 print "$ERROR l2h: can't extract content $count from html\n" 2782 if ($T2H_VERBOSE); 2783 # try simple (ordinary) substition (without l2h) 2784 $l_l2h = $T2H_L2H; 2785 $T2H_L2H = 0; 2786 $_ = $l2h_to_latex{$count}; 2787 $_ = &substitute_style($_); 2788 &unprotect_texi; 2789 $_ = "<!-- l2h: ". __LINE__ . " use texi2html -->" . $_ 2790 if ($T2H_DEBUG & $DEBUG_L2H); 2791 $T2H_L2H = $l_l2h; 2792 return $_; 2793 } 2794 else 2795 { 2796 # now we have been incorrectly called 2797 $l2h_range_error++; 2798 print "$ERROR l2h: Request of $count content which is out of valide range [0,$l2h_latex_count)\n"; 2799 return "<!-- l2h: ". __LINE__ . " out of range count $count -->" 2800 if ($T2H_DEBUG & $DEBUG_L2H); 2801 return "<!-- l2h: out of range count $count -->"; 2802 } 2803 } 2804 2805 sub l2h_FinishFromHtml 2806 { 2807 if ($T2H_VERBOSE) 2808 { 2809 if ($l2h_extract_error + $l2h_range_error) 2810 { 2811 print "# l2h: finished from html ($l2h_extract_error extract and $l2h_range_error errors)\n"; 2812 } 2813 else 2814 { 2815 print "# l2h: finished from html (no errors)\n"; 2816 } 2817 } 2818 } 2819 2820 sub l2h_Finish 2821 { 2822 l2h_StoreCache(); 2823 if ($T2H_L2H_CLEAN) 2824 { 2825 print "# l2h: removing temporary files generated by l2h extension\n" 2826 if $T2H_VERBOSE; 2827 while (<"$docu_rdir$l2h_name"*>) 2828 { 2829 unlink $_; 2830 } 2831 } 2832 print "# l2h: Finished\n" if $T2H_VERBOSE; 2833 return 1; 2834 } 2835 2836 ############################## 2837 # stuff for l2h caching 2838 # 2839 2840 # I tried doing this with a dbm data base, but it did not store all 2841 # keys/values. Hence, I did as latex2html does it 2842 sub l2h_InitCache 2843 { 2844 if (-r "$l2h_cache_file") 2845 { 2846 my $rdo = do "$l2h_cache_file"; 2847 warn("$ERROR l2h Error: could not load $docu_rdir$l2h_cache_file: $@\n") 2848 unless ($rdo); 2849 } 2850 } 2851 2852 sub l2h_StoreCache 2853 { 2854 return unless $l2h_latex_count; 2855 2856 my ($key, $value); 2857 open(FH, ">$l2h_cache_file") || return warn"$ERROR l2h Error: could not open $docu_rdir$l2h_cache_file for writing: $!\n"; 2858 2859 2860 while (($key, $value) = each %l2h_cache) 2861 { 2862 # escape stuff 2863 $key =~ s|/|\\/|g; 2864 $key =~ s|\\\\/|\\/|g; 2865 # weird, a \ at the end of the key results in an error 2866 # maybe this also broke the dbm database stuff 2867 $key =~ s|\\$|\\\\|; 2868 $value =~ s/\|/\\\|/g; 2869 $value =~ s/\\\\\|/\\\|/g; 2870 $value =~ s|\\\\|\\\\\\\\|g; 2871 print FH "\n\$l2h_cache_key = q/$key/;\n"; 2872 print FH "\$l2h_cache{\$l2h_cache_key} = q|$value|;\n"; 2873 } 2874 print FH "1;"; 2875 close(FH); 2876 } 2877 2878 # return cached html, if it exists for text, and if all pictures 2879 # are there, as well 2880 sub l2h_FromCache 2881 { 2882 my $text = shift; 2883 my $cached = $l2h_cache{$text}; 2884 if ($cached) 2885 { 2886 while ($cached =~ m/SRC="(.*?)"/g) 2887 { 2888 unless (-e "$docu_rdir$1") 2889 { 2890 return undef; 2891 } 2892 } 2893 return $cached; 2894 } 2895 return undef; 2896 } 2897 2898 # insert generated html into cache, move away images, 2899 # return transformed html 2900 $maximage = 1; 2901 sub l2h_ToCache 2902 { 2903 my $count = shift; 2904 my $content = shift; 2905 my @images = ($content =~ /SRC="(.*?)"/g); 2906 my ($src, $dest); 2907 2908 for $src (@images) 2909 { 2910 $dest = $l2h_img{$src}; 2911 unless ($dest) 2912 { 2913 my $ext; 2914 if ($src =~ /.*\.(.*)$/ && $1 ne $docu_ext) 2915 { 2916 $ext = $1; 2917 } 2918 else 2919 { 2920 warn "$ERROR: L2h image $src has invalid extension\n"; 2921 next; 2922 } 2923 while (-e "$docu_rdir${docu_name}_$maximage.$ext") { $maximage++;} 2924 $dest = "${docu_name}_$maximage.$ext"; 2925 system("cp -f $docu_rdir$src $docu_rdir$dest"); 2926 $l2h_img{$src} = $dest; 2927 unlink "$docu_rdir$src" unless ($DEBUG & DEBUG_L2H); 2928 } 2929 $content =~ s/$src/$dest/g; 2930 } 2931 $l2h_cache{$l2h_to_latex[$count]} = $content; 2932 return $content; 2933 } 2934 2935 2936 #+++############################################################################ 2937 # # 2938 # Pass 1: read source, handle command, variable, simple substitution # 2939 # # 2940 #---############################################################################ 2941 2942 @lines = (); # whole document 2943 @toc_lines = (); # table of contents 2944 @stoc_lines = (); # table of contents 2945 $curlevel = 0; # current level in TOC 2946 $node = ''; # current node name 2947 $node_next = ''; # current node next name 2948 $node_prev = ''; # current node prev name 2949 $node_up = ''; # current node up name 2950 $in_table = 0; # am I inside a table 2951 $table_type = ''; # type of table ('', 'f', 'v', 'multi') 2952 @tables = ();