1 | #!/usr/local/bin/perl |
---|
2 | 'di '; |
---|
3 | 'ig 00 '; |
---|
4 | #+############################################################################## |
---|
5 | # # |
---|
6 | # File: texi2html # |
---|
7 | # # |
---|
8 | # Description: Program to transform most Texinfo documents to HTML # |
---|
9 | # # |
---|
10 | #-############################################################################## |
---|
11 | |
---|
12 | # From @(#)texi2html 1.52 01/05/98 |
---|
13 | # $Id: texi2html,v 1.8 1999-07-30 10:37:05 obachman Exp $ |
---|
14 | # Homepage: |
---|
15 | $T2H_HOMEPAGE = <<EOT; |
---|
16 | http://www.mathematik.uni-kl.de/~obachman/Texi2html |
---|
17 | EOT |
---|
18 | # Authors: |
---|
19 | $T2H_AUTHORS = <<EOT; |
---|
20 | Written (mainly) by: Lionel Cons, Lionel.Cons\@cern.ch |
---|
21 | Currently maintained by : Olaf Bachmann, obachman\@mathematik.uni-kl.de |
---|
22 | EOT |
---|
23 | # Version: |
---|
24 | $THISVERSION = "1.58"; |
---|
25 | $THISPROG = "texi2html $THISVERSION"; # program name and version |
---|
26 | |
---|
27 | # The man page for this program is included at the end of this file and can be |
---|
28 | # viewed using the command 'nroff -man texi2html'. |
---|
29 | # Please read the copyright at the end of the man page. |
---|
30 | |
---|
31 | $T2H_TODAY = &pretty_date; # like "20 September 1993" |
---|
32 | ($T2H_USER = (getpwuid ($<))[6]) =~ s/,.*//; # Who am i |
---|
33 | |
---|
34 | #+++############################################################################ |
---|
35 | # # |
---|
36 | # Initialization # |
---|
37 | # Pasted content of File $T2H_HOME/texi2html.init # |
---|
38 | # # |
---|
39 | #---############################################################################ |
---|
40 | |
---|
41 | require "$ENV{T2H_HOME}/texi2html.init"; # Makefile:include |
---|
42 | |
---|
43 | #+++############################################################################ |
---|
44 | # # |
---|
45 | # Constants # |
---|
46 | # # |
---|
47 | #---############################################################################ |
---|
48 | |
---|
49 | $DEBUG_TOC = 1; |
---|
50 | $DEBUG_INDEX = 2; |
---|
51 | $DEBUG_BIB = 4; |
---|
52 | $DEBUG_GLOSS = 8; |
---|
53 | $DEBUG_DEF = 16; |
---|
54 | $DEBUG_HTML = 32; |
---|
55 | $DEBUG_USER = 64; |
---|
56 | $DEBUG_L2H = 128; |
---|
57 | |
---|
58 | |
---|
59 | $BIBRE = '\[[\w\/-]+\]'; # RE for a bibliography reference |
---|
60 | $FILERE = '[\/\w.+-]+'; # RE for a file name |
---|
61 | $VARRE = '[^\s\{\}]+'; # RE for a variable name |
---|
62 | $NODERE = '[^@{}:\'`",]+'; # RE for a node name |
---|
63 | $NODESRE = '[^@{}:\'`"]+'; # RE for a list of node names |
---|
64 | $XREFRE = '[^@{}]+'; # RE for a xref (should use NODERE) |
---|
65 | |
---|
66 | $ERROR = "***"; # prefix for errors and warnings |
---|
67 | # program home page |
---|
68 | $PROTECTTAG = "_ThisIsProtected_"; # tag to recognize protected sections |
---|
69 | |
---|
70 | $CHAPTEREND = "<!-- End chapter -->\n"; # to know where a chpater ends |
---|
71 | $SECTIONEND = "<!-- End section -->\n"; # to know where section ends |
---|
72 | $TOPEND = "<!-- End top -->\n"; # to know where top ends |
---|
73 | |
---|
74 | |
---|
75 | # |
---|
76 | # language dependent constants |
---|
77 | # |
---|
78 | #$LDC_SEE = 'see'; |
---|
79 | #$LDC_SECTION = 'section'; |
---|
80 | #$LDC_IN = 'in'; |
---|
81 | #$LDC_TOC = 'Table of Contents'; |
---|
82 | #$LDC_GOTO = 'Go to the'; |
---|
83 | #$LDC_FOOT = 'Footnotes'; |
---|
84 | #TODO: @def* shortcuts |
---|
85 | |
---|
86 | # |
---|
87 | # pre-defined indices |
---|
88 | # |
---|
89 | %predefined_index = ( |
---|
90 | 'cp', 'c', |
---|
91 | 'fn', 'f', |
---|
92 | 'vr', 'v', |
---|
93 | 'ky', 'k', |
---|
94 | 'pg', 'p', |
---|
95 | 'tp', 't', |
---|
96 | ); |
---|
97 | |
---|
98 | # |
---|
99 | # valid indices |
---|
100 | # |
---|
101 | %valid_index = ( |
---|
102 | 'c', 1, |
---|
103 | 'f', 1, |
---|
104 | 'v', 1, |
---|
105 | 'k', 1, |
---|
106 | 'p', 1, |
---|
107 | 't', 1, |
---|
108 | ); |
---|
109 | |
---|
110 | # |
---|
111 | # texinfo section names to level |
---|
112 | # |
---|
113 | %sec2level = ( |
---|
114 | 'top', 0, |
---|
115 | 'chapter', 1, |
---|
116 | 'unnumbered', 1, |
---|
117 | 'majorheading', 1, |
---|
118 | 'chapheading', 1, |
---|
119 | 'appendix', 1, |
---|
120 | 'section', 2, |
---|
121 | 'unnumberedsec', 2, |
---|
122 | 'heading', 2, |
---|
123 | 'appendixsec', 2, |
---|
124 | 'appendixsection', 2, |
---|
125 | 'subsection', 3, |
---|
126 | 'unnumberedsubsec', 3, |
---|
127 | 'subheading', 3, |
---|
128 | 'appendixsubsec', 3, |
---|
129 | 'subsubsection', 4, |
---|
130 | 'unnumberedsubsubsec', 4, |
---|
131 | 'subsubheading', 4, |
---|
132 | 'appendixsubsubsec', 4, |
---|
133 | ); |
---|
134 | |
---|
135 | # |
---|
136 | # accent map, TeX command to ISO name |
---|
137 | # |
---|
138 | %accent_map = ( |
---|
139 | '"', 'uml', |
---|
140 | '~', 'tilde', |
---|
141 | '^', 'circ', |
---|
142 | '`', 'grave', |
---|
143 | '\'', 'acute', |
---|
144 | ); |
---|
145 | |
---|
146 | # |
---|
147 | # texinfo "simple things" (@foo) to HTML ones |
---|
148 | # |
---|
149 | %simple_map = ( |
---|
150 | # cf. makeinfo.c |
---|
151 | "*", "<BR>", # HTML+ |
---|
152 | " ", " ", |
---|
153 | "\t", " ", |
---|
154 | "-", "­", # soft hyphen |
---|
155 | "\n", "\n", |
---|
156 | "|", "", |
---|
157 | 'tab', '<\/TD><TD>', |
---|
158 | # spacing commands |
---|
159 | ":", "", |
---|
160 | "!", "!", |
---|
161 | "?", "?", |
---|
162 | ".", ".", |
---|
163 | "-", "", |
---|
164 | ); |
---|
165 | |
---|
166 | # |
---|
167 | # texinfo "things" (@foo{}) to HTML ones |
---|
168 | # |
---|
169 | %things_map = ( |
---|
170 | 'TeX', 'TeX', |
---|
171 | 'br', '<P>', # paragraph break |
---|
172 | 'bullet', '*', |
---|
173 | 'copyright', '(C)', |
---|
174 | 'dots', '...', |
---|
175 | 'equiv', '==', |
---|
176 | 'error', 'error-->', |
---|
177 | 'expansion', '==>', |
---|
178 | 'minus', '-', |
---|
179 | 'point', '-!-', |
---|
180 | 'print', '-|', |
---|
181 | 'result', '=>', |
---|
182 | 'today', $T2H_TODAY, |
---|
183 | 'aa', 'å', |
---|
184 | 'AA', 'Å', |
---|
185 | 'ae', 'æ', |
---|
186 | 'AE', 'Æ', |
---|
187 | 'o', 'ø', |
---|
188 | 'O', 'Ø', |
---|
189 | 'ss', 'ß', |
---|
190 | ); |
---|
191 | |
---|
192 | # |
---|
193 | # texinfo styles (@foo{bar}) to HTML ones |
---|
194 | # |
---|
195 | %style_map = ( |
---|
196 | 'asis', '', |
---|
197 | 'b', 'B', |
---|
198 | 'cite', 'CITE', |
---|
199 | 'code', 'CODE', |
---|
200 | 'ctrl', '&do_ctrl', # special case |
---|
201 | 'dfn', 'EM', # DFN tag is illegal in the standard |
---|
202 | 'dmn', '', # useless |
---|
203 | 'email', '&do_email', # insert a clickable email address |
---|
204 | 'emph', 'EM', |
---|
205 | 'file', '"TT', # will put quotes, cf. &apply_style |
---|
206 | 'i', 'I', |
---|
207 | 'kbd', 'KBD', |
---|
208 | 'key', 'KBD', |
---|
209 | 'math', '&do_math', |
---|
210 | 'r', '', # unsupported |
---|
211 | 'samp', '"SAMP', # will put quotes, cf. &apply_style |
---|
212 | 'sc', '&do_sc', # special case |
---|
213 | 'strong', 'STRONG', |
---|
214 | 't', 'TT', |
---|
215 | 'titlefont', '', # useless |
---|
216 | 'uref', '&do_uref', # insert a clickable URL |
---|
217 | 'url', '&do_url', # insert a clickable URL |
---|
218 | 'var', 'VAR', |
---|
219 | 'w', '', # unsupported |
---|
220 | ); |
---|
221 | |
---|
222 | # |
---|
223 | # texinfo format (@foo/@end foo) to HTML ones |
---|
224 | # |
---|
225 | %format_map = ( |
---|
226 | 'display', 'PRE', |
---|
227 | 'example', 'PRE', |
---|
228 | 'format', 'PRE', |
---|
229 | 'lisp', 'PRE', |
---|
230 | 'quotation', 'BLOCKQUOTE', |
---|
231 | 'smallexample', 'PRE', |
---|
232 | 'smalllisp', 'PRE', |
---|
233 | # lists |
---|
234 | 'itemize', 'UL', |
---|
235 | 'enumerate', 'OL', |
---|
236 | # poorly supported |
---|
237 | 'flushleft', 'PRE', |
---|
238 | 'flushright', 'PRE', |
---|
239 | ); |
---|
240 | |
---|
241 | # |
---|
242 | # texinfo definition shortcuts to real ones |
---|
243 | # |
---|
244 | %def_map = ( |
---|
245 | # basic commands |
---|
246 | 'deffn', 0, |
---|
247 | 'defvr', 0, |
---|
248 | 'deftypefn', 0, |
---|
249 | 'deftypevr', 0, |
---|
250 | 'defcv', 0, |
---|
251 | 'defop', 0, |
---|
252 | 'deftp', 0, |
---|
253 | # basic x commands |
---|
254 | 'deffnx', 0, |
---|
255 | 'defvrx', 0, |
---|
256 | 'deftypefnx', 0, |
---|
257 | 'deftypevrx', 0, |
---|
258 | 'defcvx', 0, |
---|
259 | 'defopx', 0, |
---|
260 | 'deftpx', 0, |
---|
261 | # shortcuts |
---|
262 | 'defun', 'deffn Function', |
---|
263 | 'defmac', 'deffn Macro', |
---|
264 | 'defspec', 'deffn {Special Form}', |
---|
265 | 'defvar', 'defvr Variable', |
---|
266 | 'defopt', 'defvr {User Option}', |
---|
267 | 'deftypefun', 'deftypefn Function', |
---|
268 | 'deftypevar', 'deftypevr Variable', |
---|
269 | 'defivar', 'defcv {Instance Variable}', |
---|
270 | 'defmethod', 'defop Method', |
---|
271 | # x shortcuts |
---|
272 | 'defunx', 'deffnx Function', |
---|
273 | 'defmacx', 'deffnx Macro', |
---|
274 | 'defspecx', 'deffnx {Special Form}', |
---|
275 | 'defvarx', 'defvrx Variable', |
---|
276 | 'defoptx', 'defvrx {User Option}', |
---|
277 | 'deftypefunx', 'deftypefnx Function', |
---|
278 | 'deftypevarx', 'deftypevrx Variable', |
---|
279 | 'defivarx', 'defcvx {Instance Variable}', |
---|
280 | 'defmethodx', 'defopx Method', |
---|
281 | ); |
---|
282 | |
---|
283 | # |
---|
284 | # things to skip |
---|
285 | # |
---|
286 | %to_skip = ( |
---|
287 | # comments |
---|
288 | 'c', 1, |
---|
289 | 'comment', 1, |
---|
290 | 'ifnotinfo', 1, |
---|
291 | 'ifnottex', 1, |
---|
292 | 'ifhtml', 1, |
---|
293 | 'end ifhtml', 1, |
---|
294 | 'end ifnotinfo', 1, |
---|
295 | 'end ifnottex', 1, |
---|
296 | # useless |
---|
297 | 'detailmenu', 1, |
---|
298 | 'direntry', 1, |
---|
299 | 'contents', 1, |
---|
300 | 'shortcontents', 1, |
---|
301 | 'summarycontents', 1, |
---|
302 | 'footnotestyle', 1, |
---|
303 | 'end ifclear', 1, |
---|
304 | 'end ifset', 1, |
---|
305 | 'titlepage', 1, |
---|
306 | 'end titlepage', 1, |
---|
307 | # unsupported commands (formatting) |
---|
308 | 'afourpaper', 1, |
---|
309 | 'cropmarks', 1, |
---|
310 | 'finalout', 1, |
---|
311 | 'headings', 1, |
---|
312 | 'sp', 1, |
---|
313 | 'need', 1, |
---|
314 | 'page', 1, |
---|
315 | 'setchapternewpage', 1, |
---|
316 | 'everyheading', 1, |
---|
317 | 'everyfooting', 1, |
---|
318 | 'evenheading', 1, |
---|
319 | 'evenfooting', 1, |
---|
320 | 'oddheading', 1, |
---|
321 | 'oddfooting', 1, |
---|
322 | 'smallbook', 1, |
---|
323 | 'vskip', 1, |
---|
324 | 'filbreak', 1, |
---|
325 | 'paragraphindent', 1, |
---|
326 | # unsupported formats |
---|
327 | 'cartouche', 1, |
---|
328 | 'end cartouche', 1, |
---|
329 | 'group', 1, |
---|
330 | 'end group', 1, |
---|
331 | ); |
---|
332 | |
---|
333 | #+++############################################################################ |
---|
334 | # # |
---|
335 | # Argument parsing, initialisation # |
---|
336 | # # |
---|
337 | #---############################################################################ |
---|
338 | |
---|
339 | # |
---|
340 | # flush stdout and stderr after every write |
---|
341 | # |
---|
342 | select(STDERR); |
---|
343 | $| = 1; |
---|
344 | select(STDOUT); |
---|
345 | $| = 1; |
---|
346 | |
---|
347 | %value = (); # hold texinfo variables, see also -D |
---|
348 | |
---|
349 | $use_bibliography = 1; |
---|
350 | $use_acc = 0; |
---|
351 | $usage = <<EOT; |
---|
352 | This is $THISPROG |
---|
353 | To convert a Texinfo file to HMTL: $0 [options] file |
---|
354 | where options can be: |
---|
355 | -expandinfo : use \@ifinfo sections, not \@iftex |
---|
356 | -glossary : handle a glossary |
---|
357 | -invisible name : use 'name' as an invisible anchor |
---|
358 | -Dname : define name like with \@set |
---|
359 | -I dir : search also for files in 'dir' |
---|
360 | -index_file file : use 'file' as index file |
---|
361 | -menu : handle menus |
---|
362 | -number : number sections |
---|
363 | -split node|chapter : split on node or chapter |
---|
364 | -short_ref : cross references without section numbers |
---|
365 | -l2h : use latex2html for \@math, \@tex, and \@sc |
---|
366 | -l2h_latex2html prog: use 'prog' as latex2html program |
---|
367 | (default: 'latex2html') |
---|
368 | -l2h_tmp dir : use 'dir' as temp dir for latex2html |
---|
369 | -l2h_clean : remove temporary files generated by l2h extension |
---|
370 | -l2h_skip : skip latex2html run (needs temporary files) |
---|
371 | -init_file 'file' : use 'file' for texi2html and latex2html initialization |
---|
372 | -sidx : index jump label to top of section |
---|
373 | -usage : print usage instructions |
---|
374 | -verbose : verbose output |
---|
375 | To check converted files: $0 -check [-verbose] files |
---|
376 | EOT |
---|
377 | |
---|
378 | while (@ARGV && $ARGV[0] =~ /^-/) { |
---|
379 | $_ = shift(@ARGV); |
---|
380 | if (/^-acc$/) { $use_acc = 1; next; } |
---|
381 | if (/^-D(.+)?$/) { $value{$1 || shift(@ARGV)} = 1; next; } |
---|
382 | if (/^-d(ebug)?(\d+)?$/) { $T2H_DEBUG = $2 || shift(@ARGV); next; } |
---|
383 | if (/^-doctype$/) { $T2H_DOCTYPE = shift(@ARGV); next; } |
---|
384 | if (/^-c(heck)?$/) { $T2H_CHECK = 1; next; } |
---|
385 | if (/^-e(xpand)?$/) { $T2H_EXPAND = shift(@ARGV); next; } |
---|
386 | if (/^-g(lossary)?$/) { $T2H_USE_GLOSSARY = 1; next; } |
---|
387 | if (/^-i(nvisible)?$/) { $T2H_INVISIBLE_MARK = shift(@ARGV); next; } |
---|
388 | if (/^-I(.+)?$/) { push(@T2H_INCLUDE_DIRS, $1 || shift(@ARGV)); next; } |
---|
389 | if (/^-iso$/) { $T2H_USE_ISO = 1; next; } |
---|
390 | if (/^-init_file$/) |
---|
391 | { |
---|
392 | $init_file = shift(@ARGV); |
---|
393 | if (-f $init_file) |
---|
394 | { |
---|
395 | print "# reading initialization file from $init_file\n" |
---|
396 | if ($T2H_VERBOSE); |
---|
397 | require($init_file); |
---|
398 | } |
---|
399 | else |
---|
400 | { |
---|
401 | print "$ERROR Error: can't read init file $int_file\n"; |
---|
402 | $init_file = ''; |
---|
403 | } |
---|
404 | next; |
---|
405 | } |
---|
406 | if (/^-l2h$/) { $T2H_L2H = 1; next; } |
---|
407 | if (/^-l2h_l2h$/) { $T2H_L2H_L2H = shift(@ARGV); next; } |
---|
408 | if (/^-l2h_skip$/) { $T2H_L2H_SKIP= 1; next; } |
---|
409 | if (/^-l2h_tmp$/) { $T2H_L2H_TMP = shift(@ARGV); next; } |
---|
410 | if (/^-l2h_clean$/) { $T2H_L2H_CLEAN= 1; next; } |
---|
411 | if (/^-m(enu)?$/) { $T2H_SHOW_MENU = 1; next; } |
---|
412 | if (/^-nu(mber)?$/) { $T2H_NUMBER_SECTIONS = 1; next; } |
---|
413 | if (/^-o(ut_file)?$/) { $T2H_OUT = shift (@ARGV); |
---|
414 | undef $T2H_SPLIT; next;} |
---|
415 | if (/^-p(refix)?$/) { $T2H_PREFIX = shift(@ARGV); next; } |
---|
416 | if (/^-su(bdir)?$/) { $T2H_SUBDIR = shift(@ARGV); next; } |
---|
417 | if (/^-short_e(xtn)?$/) { $T2H_SHORTEXTN = 1; next; } |
---|
418 | if (/^-short_r(ef)?$/) { $T2H_SHORT_REF = 1; next; } |
---|
419 | if (/^-si(dx)?$/) { $T2H_SECTION_IDX = 1; next; } |
---|
420 | if (/^-s(plit)?$/) { $T2H_SPLIT = shift(@ARGV); next;} |
---|
421 | if (/^-t(op_file)?$/) { $T2H_TOP_FILE = shift (@ARGV); next;} |
---|
422 | if (/^-v(erbose)?$/) { $T2H_VERBOSE = 1; next; } |
---|
423 | if (/^-no_v(erbose)?$/) { $T2H_VERBOSE = 0; next; } |
---|
424 | if (/^-vers(ion)?$/) { print "$THISPROGRAM\n"; exit;} |
---|
425 | die "Unknown option: $_\n$usage"; |
---|
426 | } |
---|
427 | if ($T2H_CHECK) { |
---|
428 | die "Need file to check\n$usage" unless @ARGV > 0; |
---|
429 | ✓ |
---|
430 | exit; |
---|
431 | } |
---|
432 | |
---|
433 | if ($T2H_EXPAND eq 'info') |
---|
434 | { |
---|
435 | $to_skip{'ifinfo'} = 1; |
---|
436 | $to_skip{'end ifinfo'} = 1; |
---|
437 | } |
---|
438 | elsif ($T2H_EXPAND eq 'tex') |
---|
439 | { |
---|
440 | $to_skip{'iftex'} = 1; |
---|
441 | $to_skip{'end iftex'} = 1; |
---|
442 | |
---|
443 | } |
---|
444 | |
---|
445 | $T2H_INVISIBLE_MARK = '<IMG SRC="invisible.xbm">' if $T2H_INVISIBLE_MARK eq 'xbm'; |
---|
446 | |
---|
447 | # |
---|
448 | # file name buisness |
---|
449 | # |
---|
450 | die "Need exactly one file to translate\n$usage" unless @ARGV == 1; |
---|
451 | $docu = shift(@ARGV); |
---|
452 | if ($docu =~ /.*\//) { |
---|
453 | chop($docu_dir = $&); |
---|
454 | $docu_name = $'; |
---|
455 | } else { |
---|
456 | $docu_dir = '.'; |
---|
457 | $docu_name = $docu; |
---|
458 | } |
---|
459 | unshift(@T2H_INCLUDE_DIRS, $docu_dir); |
---|
460 | $docu_name =~ s/\.te?x(i|info)?$//; # basename of the document |
---|
461 | $docu_name = $T2H_PREFIX if ($T2H_PREFIX); |
---|
462 | |
---|
463 | # subdir |
---|
464 | if ($T2H_SUBDIR && ! $T2H_OUT) |
---|
465 | { |
---|
466 | $T2H_SUBDIR =~ s|/*$||; |
---|
467 | unless (-d "$T2H_SUBDIR" && -w "$T2H_SUBDIR") |
---|
468 | { |
---|
469 | if ( mkdir($T2H_SUBDIR, oct(755))) |
---|
470 | { |
---|
471 | print "# created directory $T2H_SUBDIR\n" if ($T2H_VERBOSE); |
---|
472 | } |
---|
473 | else |
---|
474 | { |
---|
475 | warn "$ERROR can't create directory $T2H_SUBDIR. Put results into current directory\n"; |
---|
476 | $T2H_SUBDIR = ''; |
---|
477 | } |
---|
478 | } |
---|
479 | } |
---|
480 | |
---|
481 | if ($T2H_SUBDIR && ! $T2H_OUT) |
---|
482 | { |
---|
483 | $docu_rdir = "$T2H_SUBDIR/"; |
---|
484 | print "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE); |
---|
485 | } |
---|
486 | else |
---|
487 | { |
---|
488 | if ($T2H_OUT && $T2H_OUT =~ m|(.*)/|) |
---|
489 | { |
---|
490 | $docu_rdir = "$1/"; |
---|
491 | print "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE); |
---|
492 | } |
---|
493 | else |
---|
494 | { |
---|
495 | print "# putting result files into current directory \n" if ($T2H_VERBOSE); |
---|
496 | $docu_rdir = ''; |
---|
497 | } |
---|
498 | } |
---|
499 | |
---|
500 | # extension |
---|
501 | if ($T2H_SHORTEXTN) |
---|
502 | { |
---|
503 | $docu_ext = "htm"; |
---|
504 | } |
---|
505 | else |
---|
506 | { |
---|
507 | $docu_ext = "html"; |
---|
508 | } |
---|
509 | if ($T2H_TOP_FILE =~ /\..*$/) |
---|
510 | { |
---|
511 | $T2H_TOP_FILE = $`.".$docu_ext"; |
---|
512 | } |
---|
513 | else |
---|
514 | { |
---|
515 | $T2H_TOP_FILE .= ".$docu_ext"; |
---|
516 | } |
---|
517 | |
---|
518 | # result files |
---|
519 | if (! $T2H_OUT && ($T2H_SPLIT =~ /section/i || $T2H_SPLIT =~ /node/i)) |
---|
520 | { |
---|
521 | $T2H_SPLIT = 'section'; |
---|
522 | } |
---|
523 | elsif (! $T2H_OUT && $T2H_SPLIT =~ /chapter/i) |
---|
524 | { |
---|
525 | $T2H_SPLIT = 'chapter' |
---|
526 | } |
---|
527 | else |
---|
528 | { |
---|
529 | undef $T2H_SPLIT; |
---|
530 | } |
---|
531 | |
---|
532 | $docu_doc = "$docu_name.$docu_ext"; # document's contents |
---|
533 | $docu_doc_file = "$docu_rdir$docu_doc"; |
---|
534 | if ($T2H_SPLIT) |
---|
535 | { |
---|
536 | $docu_toc = "${docu_name}_toc.$docu_ext"; # document's table of contents |
---|
537 | $docu_stoc = "${docu_name}_ovr.$docu_ext"; # document's short toc |
---|
538 | $docu_foot = "${docu_name}_fot.$docu_ext"; # document's footnotes |
---|
539 | $docu_about = "${docu_name}_abt.$docu_ext"; # about this document |
---|
540 | $docu_top = $T2H_TOP_FILE; |
---|
541 | } |
---|
542 | else |
---|
543 | { |
---|
544 | if ($T2H_OUT) |
---|
545 | { |
---|
546 | $docu_doc = $T2H_OUT; |
---|
547 | $docu_doc =~ s|.*/||; |
---|
548 | } |
---|
549 | $docu_toc = $docu_foot = $docu_stoc = $docu_about = $docu_top = $docu_doc; |
---|
550 | } |
---|
551 | |
---|
552 | $docu_toc_file = "$docu_rdir$docu_toc"; |
---|
553 | $docu_stoc_file = "$docu_rdir$docu_stoc"; |
---|
554 | $docu_foot_file = "$docu_rdir$docu_foot"; |
---|
555 | $docu_about_file = "$docu_rdir$docu_about"; |
---|
556 | $docu_top_file = "$docu_rdir$docu_top"; |
---|
557 | |
---|
558 | # |
---|
559 | # variables |
---|
560 | # |
---|
561 | $value{'html'} = 1; # predefine html (the output format) |
---|
562 | $value{'texi2html'} = $THISVERSION; # predefine texi2html (the translator) |
---|
563 | # _foo: internal to track @foo |
---|
564 | foreach ('_author', '_title', '_subtitle', |
---|
565 | '_settitle', '_setfilename') { |
---|
566 | $value{$_} = ''; # prevent -w warnings |
---|
567 | } |
---|
568 | %node2sec = (); # node to section name |
---|
569 | %sec2node = (); # section to node name |
---|
570 | %node2href = (); # node to HREF |
---|
571 | %node2next = (); # node to next |
---|
572 | %node2prev = (); # node to prev |
---|
573 | %node2up = (); # node to up |
---|
574 | %bib2href = (); # bibliography reference to HREF |
---|
575 | %gloss2href = (); # glossary term to HREF |
---|
576 | @sections = (); # list of sections |
---|
577 | %tag2pro = (); # protected sections |
---|
578 | |
---|
579 | # |
---|
580 | # initial indexes |
---|
581 | # |
---|
582 | $bib_num = 0; |
---|
583 | $foot_num = 0; |
---|
584 | $gloss_num = 0; |
---|
585 | $idx_num = 0; |
---|
586 | $sec_num = 0; |
---|
587 | $doc_num = 0; |
---|
588 | $html_num = 0; |
---|
589 | |
---|
590 | # |
---|
591 | # can I use ISO8879 characters? (HTML+) |
---|
592 | # |
---|
593 | if ($T2H_USE_ISO) { |
---|
594 | $things_map{'bullet'} = "•"; |
---|
595 | $things_map{'copyright'} = "©"; |
---|
596 | $things_map{'dots'} = "…"; |
---|
597 | $things_map{'equiv'} = "≡"; |
---|
598 | $things_map{'expansion'} = "→"; |
---|
599 | $things_map{'point'} = "∗"; |
---|
600 | $things_map{'result'} = "⇒"; |
---|
601 | } |
---|
602 | |
---|
603 | # |
---|
604 | # read texi2html extensions (if any) |
---|
605 | # |
---|
606 | $extensions = 'texi2html.ext'; # extensions in working directory |
---|
607 | if (-f $extensions) { |
---|
608 | print "# reading extensions from $extensions\n" if $T2H_VERBOSE; |
---|
609 | require($extensions); |
---|
610 | } |
---|
611 | ($progdir = $0) =~ s/[^\/]+$//; |
---|
612 | if ($progdir && ($progdir ne './')) { |
---|
613 | $extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory |
---|
614 | if (-f $extensions) { |
---|
615 | print "# reading extensions from $extensions\n" if $T2H_VERBOSE; |
---|
616 | require($extensions); |
---|
617 | } |
---|
618 | } |
---|
619 | |
---|
620 | |
---|
621 | print "# reading from $docu\n" if $T2H_VERBOSE; |
---|
622 | |
---|
623 | ######################################################################### |
---|
624 | # |
---|
625 | # latex2html stuff |
---|
626 | # |
---|
627 | # latex2html conversions consist of three stages: |
---|
628 | # 1) ToLatex: Put "latex" code into a latex file |
---|
629 | # 2) ToHtml: Use latex2html to generate corresponding html code and images |
---|
630 | # 3) FromHtml: Extract generated code and images from latex2html run |
---|
631 | # |
---|
632 | |
---|
633 | ########################## |
---|
634 | # default settings |
---|
635 | # |
---|
636 | |
---|
637 | # defaults for files and names |
---|
638 | |
---|
639 | sub l2h_Init |
---|
640 | { |
---|
641 | local($root) = @_; |
---|
642 | |
---|
643 | return 0 unless ($root); |
---|
644 | |
---|
645 | $l2h_name = "${root}_l2h"; |
---|
646 | |
---|
647 | $l2h_latex_file = "$docu_rdir${l2h_name}.tex"; |
---|
648 | $l2h_cache_file = "${docu_rdir}l2h_cache.pm"; |
---|
649 | $T2H_L2H_L2H = "latex2html" unless ($T2H_L2H_L2H); |
---|
650 | |
---|
651 | # destination dir -- generated images are put there, should be the same |
---|
652 | # as dir of enclosing html document -- |
---|
653 | $l2h_html_file = "$docu_rdir${l2h_name}.html"; |
---|
654 | $l2h_prefix = "${l2h_name}_"; |
---|
655 | return 1; |
---|
656 | } |
---|
657 | |
---|
658 | |
---|
659 | ########################## |
---|
660 | # |
---|
661 | # First stage: Generation of Latex file |
---|
662 | # Initialize with: l2h_InitToLatex |
---|
663 | # Add content with: l2h_ToLatex($text) --> HTML placeholder comment |
---|
664 | # Finish with: l2h_FinishToLatex |
---|
665 | # |
---|
666 | |
---|
667 | $l2h_latex_preample = <<EOT; |
---|
668 | % This document was automatically generated by the l2h extenstion of texi2html |
---|
669 | % DO NOT EDIT !!! |
---|
670 | \\documentclass{article} |
---|
671 | \\usepackage{html} |
---|
672 | \\begin{document} |
---|
673 | EOT |
---|
674 | |
---|
675 | $l2h_latex_closing = <<EOT; |
---|
676 | \\end{document} |
---|
677 | EOT |
---|
678 | |
---|
679 | # return used latex 1, if l2h could be initalized properly, 0 otherwise |
---|
680 | sub l2h_InitToLatex |
---|
681 | { |
---|
682 | %l2h_to_latex = (); |
---|
683 | unless ($T2H_L2H_SKIP) |
---|
684 | { |
---|
685 | unless (open(L2H_LATEX, ">$l2h_latex_file")) |
---|
686 | { |
---|
687 | warn "$ERROR Error l2h: Can't open latex file '$latex_file' for writing\n"; |
---|
688 | return 0; |
---|
689 | } |
---|
690 | print "# l2h: use ${l2h_latex_file} as latex file\n" if ($T2H_VERBOSE); |
---|
691 | print L2H_LATEX $l2h_latex_preample; |
---|
692 | } |
---|
693 | # open database for caching |
---|
694 | l2h_InitCache(); |
---|
695 | $l2h_latex_count = 0; |
---|
696 | $l2h_to_latex_count = 0; |
---|
697 | $l2h_cached_count = 0; |
---|
698 | return 1; |
---|
699 | } |
---|
700 | |
---|
701 | # print text (1st arg) into latex file (if not already there), return |
---|
702 | # HTML commentary which can be later on replaced by the latex2html |
---|
703 | # generated text |
---|
704 | sub l2h_ToLatex |
---|
705 | { |
---|
706 | my($text) = @_; |
---|
707 | my($count); |
---|
708 | |
---|
709 | $l2h_to_latex_count++; |
---|
710 | $text =~ s/(\s*)$//; |
---|
711 | |
---|
712 | # try whether we can cache it |
---|
713 | my $cached_text = l2h_FromCache($text); |
---|
714 | if ($cached_text) |
---|
715 | { |
---|
716 | $l2h_cached_count++; |
---|
717 | return $cached_text; |
---|
718 | } |
---|
719 | |
---|
720 | # try whether we have text already on things to do |
---|
721 | unless ($count = $l2h_to_latex{$text}) |
---|
722 | { |
---|
723 | $count = $l2h_latex_count; |
---|
724 | $l2h_latex_count++; |
---|
725 | $l2h_to_latex{$text} = $count; |
---|
726 | $l2h_to_latex[$count] = $text; |
---|
727 | unless ($T2H_L2H_SKIP) |
---|
728 | { |
---|
729 | print L2H_LATEX "\\begin{rawhtml}\n"; |
---|
730 | print L2H_LATEX "<!-- l2h_begin ${l2h_name} ${count} -->\n"; |
---|
731 | print L2H_LATEX "\\end{rawhtml}\n"; |
---|
732 | |
---|
733 | print L2H_LATEX "$text\n"; |
---|
734 | |
---|
735 | print L2H_LATEX "\\begin{rawhtml}\n"; |
---|
736 | print L2H_LATEX "<!-- l2h_end ${l2h_name} ${count} -->\n"; |
---|
737 | print L2H_LATEX "\\end{rawhtml}\n"; |
---|
738 | } |
---|
739 | } |
---|
740 | return "<!-- l2h_replace ${l2h_name} ${count} -->"; |
---|
741 | } |
---|
742 | |
---|
743 | # print closing into latex file and close it |
---|
744 | sub l2h_FinishToLatex |
---|
745 | { |
---|
746 | local ($reused); |
---|
747 | |
---|
748 | $reused = $l2h_to_latex_count - $l2h_latex_count - $l2h_cached_count; |
---|
749 | unless ($T2H_L2H_SKIP) |
---|
750 | { |
---|
751 | print L2H_LATEX $l2h_latex_closing; |
---|
752 | close(L2H_LATEX); |
---|
753 | } |
---|
754 | print "# l2h: finished to latex ($l2h_cached_count cached, $reused reused, $l2h_latex_count contents)\n" if ($T2H_VERBOSE); |
---|
755 | unless ($l2h_latex_count) |
---|
756 | { |
---|
757 | l2h_Finish(); |
---|
758 | return 0; |
---|
759 | } |
---|
760 | return 1; |
---|
761 | } |
---|
762 | |
---|
763 | ################################### |
---|
764 | # Second stage: Use latex2html to generate corresponding html code and images |
---|
765 | # |
---|
766 | # l2h_ToHtml([$l2h_latex_file, [$l2h_html_dir]]): |
---|
767 | # Call latex2html on $l2h_latex_file |
---|
768 | # Put images (prefixed with $l2h_name."_") and html file(s) in $l2h_html_dir |
---|
769 | # Return 1, on success |
---|
770 | # 0, otherwise |
---|
771 | # |
---|
772 | sub l2h_ToHtml |
---|
773 | { |
---|
774 | local($call, $ext, $root, $dotbug); |
---|
775 | |
---|
776 | if ($T2H_L2H_SKIP) |
---|
777 | { |
---|
778 | print "# l2h: skipping latex2html run\n" if ($T2H_VERBOSE); |
---|
779 | return 1; |
---|
780 | } |
---|
781 | |
---|
782 | # Check for dot in directory where dvips will work |
---|
783 | if ($T2H_L2H_TMP) |
---|
784 | { |
---|
785 | if ($T2H_L2H_TMP =~ /\./) |
---|
786 | { |
---|
787 | warn "$ERROR Warning l2h: l2h_tmp dir contains a dot. Use /tmp, instead\n"; |
---|
788 | $dotbug = 1; |
---|
789 | } |
---|
790 | } |
---|
791 | else |
---|
792 | { |
---|
793 | if (&getcwd =~ /\./) |
---|
794 | { |
---|
795 | warn "$ERROR Warning l2h: current dir contains a dot. Use /tmp as l2h_tmp dir \n"; |
---|
796 | $dotbug = 1; |
---|
797 | } |
---|
798 | } |
---|
799 | # fix it, if necessary and hope that it works |
---|
800 | $T2H_L2H_TMP = "/tmp" if ($dotbug); |
---|
801 | |
---|
802 | $call = $T2H_L2H_L2H; |
---|
803 | # use init file, if specified |
---|
804 | $call = $call . " -init_file " . $init_file if ($init_file && -f $init_file); |
---|
805 | # set output dir |
---|
806 | $call .= ($docu_rdir ? " -dir $docu_rdir" : " -no_subdir"); |
---|
807 | # use l2h_tmp, if specified |
---|
808 | $call = $call . " -tmp $T2H_L2H_TMP" if ($T2H_L2H_TMP); |
---|
809 | # options we want to be sure of |
---|
810 | $call = $call ." -address 0 -info 0 -split 0 -no_navigation -no_auto_link"; |
---|
811 | $call = $call ." -prefix ${l2h_prefix} $l2h_latex_file"; |
---|
812 | |
---|
813 | print "# l2h: executing '$call'\n" if ($T2H_VERBOSE); |
---|
814 | if (system($call)) |
---|
815 | { |
---|
816 | warn "l2h ***Error: '${call}' did not succeed\n"; |
---|
817 | return 0; |
---|
818 | } |
---|
819 | else |
---|
820 | { |
---|
821 | print "# l2h: latex2html finished successfully\n" if ($T2H_VERBOSE); |
---|
822 | return 1; |
---|
823 | } |
---|
824 | } |
---|
825 | |
---|
826 | # this is directly pasted over from latex2html |
---|
827 | sub getcwd { |
---|
828 | local($_) = `pwd`; |
---|
829 | |
---|
830 | die "'pwd' failed (out of memory?)\n" |
---|
831 | unless length; |
---|
832 | chop; |
---|
833 | $_; |
---|
834 | } |
---|
835 | |
---|
836 | |
---|
837 | ########################## |
---|
838 | # Third stage: Extract generated contents from latex2html run |
---|
839 | # Initialize with: l2h_InitFromHtml |
---|
840 | # open $l2h_html_file for reading |
---|
841 | # reads in contents into array indexed by numbers |
---|
842 | # return 1, on success -- 0, otherwise |
---|
843 | # Extract Html code with: l2h_FromHtml($text) |
---|
844 | # replaces in $text all previosuly inserted comments by generated html code |
---|
845 | # returns (possibly changed) $text |
---|
846 | # Finish with: l2h_FinishFromHtml |
---|
847 | # closes $l2h_html_dir/$l2h_name.".$docu_ext" |
---|
848 | |
---|
849 | sub l2h_InitFromHtml |
---|
850 | { |
---|
851 | local($h_line, $h_content, $count, %l2h_img); |
---|
852 | |
---|
853 | if (! open(L2H_HTML, "<${l2h_html_file}")) |
---|
854 | { |
---|
855 | print "$ERROR Error l2h: Can't open ${l2h_html_file} for reading\n"; |
---|
856 | return 0; |
---|
857 | } |
---|
858 | print "# l2h: use ${l2h_html_file} as html file\n" if ($T2H_VERBOSE); |
---|
859 | |
---|
860 | $l2h_html_count = 0; |
---|
861 | |
---|
862 | while ($h_line = <L2H_HTML>) |
---|
863 | { |
---|
864 | if ($h_line =~ /^<!-- l2h_begin $l2h_name ([0-9]+) -->/) |
---|
865 | { |
---|
866 | $count = $1; |
---|
867 | $h_content = ""; |
---|
868 | while ($h_line = <L2H_HTML>) |
---|
869 | { |
---|
870 | if ($h_line =~ /^<!-- l2h_end $l2h_name $count -->/) |
---|
871 | { |
---|
872 | chomp $h_content; |
---|
873 | chomp $h_content; |
---|
874 | $l2h_html_count++; |
---|
875 | $h_content = l2h_ToCache($count, $h_content); |
---|
876 | $l2h_from_html[$count] = $h_content; |
---|
877 | $h_content = ''; |
---|
878 | last; |
---|
879 | } |
---|
880 | $h_content = $h_content.$h_line; |
---|
881 | } |
---|
882 | if ($hcontent) |
---|
883 | { |
---|
884 | print "$ERROR Warning l2h: l2h_end $l2h_name $count not found\n" |
---|
885 | if ($T2H_VERBOSE); |
---|
886 | close(L2H_HTML); |
---|
887 | return 0; |
---|
888 | } |
---|
889 | } |
---|
890 | } |
---|
891 | print "# l2h: Got $l2h_html_count of $l2h_latex_count html contents\n" |
---|
892 | if ($T2H_VERBOSE); |
---|
893 | |
---|
894 | close(L2H_HTML); |
---|
895 | return 1; |
---|
896 | } |
---|
897 | |
---|
898 | sub l2h_FromHtml |
---|
899 | { |
---|
900 | local($text) = @_; |
---|
901 | local($done, $to_do, $count); |
---|
902 | |
---|
903 | $to_do = $text; |
---|
904 | |
---|
905 | while ($to_do =~ /([^\000]*)<!-- l2h_replace $l2h_name ([0-9]+) -->([^\000]*)/) |
---|
906 | { |
---|
907 | $to_do = $1; |
---|
908 | $count = $2; |
---|
909 | $done = $3.$done; |
---|
910 | |
---|
911 | $done = "<!-- l2h_end $l2h_name $count -->".$done |
---|
912 | if ($T2H_DEBUG & $DEBUG_L2H); |
---|
913 | |
---|
914 | $done = &l2h_ExtractFromHtml($count) . $done; |
---|
915 | |
---|
916 | $done = "<!-- l2h_begin $l2h_name $count -->".$done |
---|
917 | if ($T2H_DEBUG & $DEBUG_L2H); |
---|
918 | } |
---|
919 | return $to_do.$done; |
---|
920 | } |
---|
921 | |
---|
922 | |
---|
923 | sub l2h_ExtractFromHtml |
---|
924 | { |
---|
925 | local($count) = @_; |
---|
926 | |
---|
927 | return $l2h_from_html[$count] if ($l2h_from_html[$count]); |
---|
928 | |
---|
929 | if ($count >= 0 && $count < $l2h_latex_count) |
---|
930 | { |
---|
931 | # now we are in trouble |
---|
932 | local($l_l2h, $_); |
---|
933 | |
---|
934 | $l2h_extract_error++; |
---|
935 | print "$ERROR l2h: can't extract content $count from html\n" |
---|
936 | if ($T2H_VERBOSE); |
---|
937 | # try simple (ordinary) substition (without l2h) |
---|
938 | $l_l2h = $T2H_L2H; |
---|
939 | $T2H_L2H = 0; |
---|
940 | $_ = $l2h_to_latex{$count}; |
---|
941 | $_ = &substitute_style($_); |
---|
942 | &unprotect_texi; |
---|
943 | $_ = "<!-- l2h: ". __LINE__ . " use texi2html -->" . $_ |
---|
944 | if ($T2H_DEBUG & $DEBUG_L2H); |
---|
945 | $T2H_L2H = $l_l2h; |
---|
946 | return $_; |
---|
947 | } |
---|
948 | else |
---|
949 | { |
---|
950 | # now we have been incorrectly called |
---|
951 | $l2h_range_error++; |
---|
952 | print "$ERROR l2h: Request of $count content which is out of valide range [0,$l2h_latex_count)\n"; |
---|
953 | return "<!-- l2h: ". __LINE__ . " out of range count $count -->" |
---|
954 | if ($T2H_DEBUG & $DEBUG_L2H); |
---|
955 | return "<!-- l2h: out of range count $count -->"; |
---|
956 | } |
---|
957 | } |
---|
958 | |
---|
959 | sub l2h_FinishFromHtml |
---|
960 | { |
---|
961 | if ($T2H_VERBOSE) |
---|
962 | { |
---|
963 | if ($l2h_extract_error + $l2h_range_error) |
---|
964 | { |
---|
965 | print "# l2h: finished from html ($l2h_extract_error extract and $l2h_range_error errors)\n"; |
---|
966 | } |
---|
967 | else |
---|
968 | { |
---|
969 | print "# l2h: finished from html (no errors)\n"; |
---|
970 | } |
---|
971 | } |
---|
972 | } |
---|
973 | |
---|
974 | sub l2h_Finish |
---|
975 | { |
---|
976 | l2h_StoreCache(); |
---|
977 | if ($T2H_L2H_CLEAN) |
---|
978 | { |
---|
979 | print "# l2h: removing temporary files generated by l2h extension\n" |
---|
980 | if $T2H_VERBOSE; |
---|
981 | while (<"$docu_rdir$l2h_name"*>) |
---|
982 | { |
---|
983 | unlink $_; |
---|
984 | } |
---|
985 | } |
---|
986 | print "# l2h: Finished\n" if $T2H_VERBOSE; |
---|
987 | return 1; |
---|
988 | } |
---|
989 | |
---|
990 | ############################## |
---|
991 | # stuff for l2h caching |
---|
992 | # |
---|
993 | |
---|
994 | # I tried doing this with a dbm data base, but it did not store all |
---|
995 | # keys/values. Hence, I did as latex2html does it |
---|
996 | sub l2h_InitCache |
---|
997 | { |
---|
998 | if (-r "$l2h_cache_file") |
---|
999 | { |
---|
1000 | my $rdo = do "$l2h_cache_file"; |
---|
1001 | warn("$ERROR l2h Error: could not load $docu_rdir$l2h_cache_file: $@\n") |
---|
1002 | unless ($rdo); |
---|
1003 | } |
---|
1004 | } |
---|
1005 | |
---|
1006 | sub l2h_StoreCache |
---|
1007 | { |
---|
1008 | return unless $l2h_latex_count; |
---|
1009 | |
---|
1010 | my ($key, $value); |
---|
1011 | open(FH, ">$l2h_cache_file") || return warn"$ERROR l2h Error: could not open $docu_rdir$l2h_cache_file for writing: $!\n"; |
---|
1012 | |
---|
1013 | |
---|
1014 | while (($key, $value) = each %l2h_cache) |
---|
1015 | { |
---|
1016 | # escape stuff |
---|
1017 | $key =~ s|/|\\/|g; |
---|
1018 | $key =~ s|\\\\/|\\/|g; |
---|
1019 | # weird, a \ at the end of the key results in an error |
---|
1020 | # maybe this also broke the dbm database stuff |
---|
1021 | $key =~ s|\\$|\\\\|; |
---|
1022 | $value =~ s/\|/\\\|/g; |
---|
1023 | $value =~ s/\\\\\|/\\\|/g; |
---|
1024 | $value =~ s|\\\\|\\\\\\\\|g; |
---|
1025 | print FH "\n\$l2h_cache_key = q/$key/;\n"; |
---|
1026 | print FH "\$l2h_cache{\$l2h_cache_key} = q|$value|;\n"; |
---|
1027 | } |
---|
1028 | print FH "1;"; |
---|
1029 | close(FH); |
---|
1030 | } |
---|
1031 | |
---|
1032 | # return cached html, if it exists for text, and if all pictures |
---|
1033 | # are there, as well |
---|
1034 | sub l2h_FromCache |
---|
1035 | { |
---|
1036 | my $text = shift; |
---|
1037 | my $cached = $l2h_cache{$text}; |
---|
1038 | if ($cached) |
---|
1039 | { |
---|
1040 | while ($cached =~ m/SRC="(.*?)"/g) |
---|
1041 | { |
---|
1042 | unless (-e "$docu_rdir$1") |
---|
1043 | { |
---|
1044 | return undef; |
---|
1045 | } |
---|
1046 | } |
---|
1047 | return $cached; |
---|
1048 | } |
---|
1049 | return undef; |
---|
1050 | } |
---|
1051 | |
---|
1052 | # insert generated html into cache, move away images, |
---|
1053 | # return transformed html |
---|
1054 | $maximage = 1; |
---|
1055 | sub l2h_ToCache |
---|
1056 | { |
---|
1057 | my $count = shift; |
---|
1058 | my $content = shift; |
---|
1059 | my @images = ($content =~ /SRC="(.*?)"/g); |
---|
1060 | my ($src, $dest); |
---|
1061 | |
---|
1062 | for $src (@images) |
---|
1063 | { |
---|
1064 | $dest = $l2h_img{$src}; |
---|
1065 | unless ($dest) |
---|
1066 | { |
---|
1067 | my $ext; |
---|
1068 | if ($src =~ /.*\.(.*)$/ && $1 ne $docu_ext) |
---|
1069 | { |
---|
1070 | $ext = $1; |
---|
1071 | } |
---|
1072 | else |
---|
1073 | { |
---|
1074 | warn "$ERROR: L2h image $src has invalid extension\n"; |
---|
1075 | next; |
---|
1076 | } |
---|
1077 | while (-e "$docu_rdir${docu_name}_$maximage.$ext") { $maximage++;} |
---|
1078 | $dest = "${docu_name}_$maximage.$ext"; |
---|
1079 | system("cp -f $docu_rdir$src $docu_rdir$dest"); |
---|
1080 | $l2h_img{$src} = $dest; |
---|
1081 | unlink "$docu_rdir$src" unless ($DEBUG & DEBUG_L2H); |
---|
1082 | } |
---|
1083 | $content =~ s/$src/$dest/g; |
---|
1084 | } |
---|
1085 | $l2h_cache{$l2h_to_latex[$count]} = $content; |
---|
1086 | return $content; |
---|
1087 | } |
---|
1088 | |
---|
1089 | |
---|
1090 | #+++############################################################################ |
---|
1091 | # # |
---|
1092 | # Pass 1: read source, handle command, variable, simple substitution # |
---|
1093 | # # |
---|
1094 | #---############################################################################ |
---|
1095 | |
---|
1096 | @lines = (); # whole document |
---|
1097 | @toc_lines = (); # table of contents |
---|
1098 | @stoc_lines = (); # table of contents |
---|
1099 | $curlevel = 0; # current level in TOC |
---|
1100 | $node = ''; # current node name |
---|
1101 | $node_next = ''; # current node next name |
---|
1102 | $node_prev = ''; # current node prev name |
---|
1103 | $node_up = ''; # current node up name |
---|
1104 | $in_table = 0; # am I inside a table |
---|
1105 | $table_type = ''; # type of table ('', 'f', 'v', 'multi') |
---|
1106 | @tables = (); # nested table support |
---|
1107 | $in_bibliography = 0; # am I inside a bibliography |
---|
1108 | $in_glossary = 0; # am I inside a glossary |
---|
1109 | $in_top = 0; # am I inside the top node |
---|
1110 | $has_top = 0; # did I see a top node? |
---|
1111 | $in_pre = 0; # am I inside a preformatted section |
---|
1112 | $in_list = 0; # am I inside a list |
---|
1113 | $in_html = 0; # am I inside an HTML section |
---|
1114 | $first_line = 1; # is it the first line |
---|
1115 | $dont_html = 0; # don't protect HTML on this line |
---|
1116 | $deferred_ref = ''; # deferred reference for indexes |
---|
1117 | @html_stack = (); # HTML elements stack |
---|
1118 | $html_element = ''; # current HTML element |
---|
1119 | &html_reset; |
---|
1120 | |
---|
1121 | # init l2h |
---|
1122 | $T2H_L2H = &l2h_Init($docu_name) if ($T2H_L2H); |
---|
1123 | $T2H_L2H = &l2h_InitToLatex if ($T2H_L2H); |
---|
1124 | |
---|
1125 | # build code for simple substitutions |
---|
1126 | # the maps used (%simple_map and %things_map) MUST be aware of this |
---|
1127 | # watch out for regexps, / and escaped characters! |
---|
1128 | $subst_code = ''; |
---|
1129 | foreach (keys(%simple_map)) { |
---|
1130 | ($re = $_) =~ s/(\W)/\\$1/g; # protect regexp chars |
---|
1131 | $subst_code .= "s/\\\@$re/$simple_map{$_}/g;\n"; |
---|
1132 | } |
---|
1133 | foreach (keys(%things_map)) { |
---|
1134 | $subst_code .= "s/\\\@$_\\{\\}/$things_map{$_}/g;\n"; |
---|
1135 | } |
---|
1136 | if ($use_acc) { |
---|
1137 | # accentuated characters |
---|
1138 | foreach (keys(%accent_map)) { |
---|
1139 | if ($_ eq "`") { |
---|
1140 | $subst_code .= "s/$;3"; |
---|
1141 | } elsif ($_ eq "'") { |
---|
1142 | $subst_code .= "s/$;4"; |
---|
1143 | } else { |
---|
1144 | $subst_code .= "s/\\\@\\$_"; |
---|
1145 | } |
---|
1146 | $subst_code .= "([aeiou])/&\${1}$accent_map{$_};/gi;\n"; |
---|
1147 | } |
---|
1148 | } |
---|
1149 | eval("sub simple_substitutions { $subst_code }"); |
---|
1150 | |
---|
1151 | &init_input; |
---|
1152 | while ($_ = &next_line) { |
---|
1153 | # |
---|
1154 | # remove \input on the first lines only |
---|
1155 | # |
---|
1156 | if ($first_line) { |
---|
1157 | next if /^\\input/; |
---|
1158 | $first_line = 0; |
---|
1159 | } |
---|
1160 | # |
---|
1161 | # parse texinfo tags |
---|
1162 | # |
---|
1163 | $tag = ''; |
---|
1164 | $end_tag = ''; |
---|
1165 | if (/^\s*\@end\s+(\w+)\b/) { |
---|
1166 | $end_tag = $1; |
---|
1167 | } elsif (/^\s*\@(\w+)\b/) { |
---|
1168 | $tag = $1; |
---|
1169 | } |
---|
1170 | # |
---|
1171 | # handle @html / @end html |
---|
1172 | # |
---|
1173 | if ($in_html) { |
---|
1174 | if ($end_tag eq 'html') { |
---|
1175 | $in_html = 0; |
---|
1176 | } else { |
---|
1177 | $tag2pro{$in_html} .= $_; |
---|
1178 | } |
---|
1179 | next; |
---|
1180 | } elsif ($tag eq 'html') { |
---|
1181 | $in_html = $PROTECTTAG . ++$html_num; |
---|
1182 | push(@lines, $in_html); |
---|
1183 | next; |
---|
1184 | } |
---|
1185 | # |
---|
1186 | # try to skip the line |
---|
1187 | # |
---|
1188 | if ($end_tag) { |
---|
1189 | next if $to_skip{"end $end_tag"}; |
---|
1190 | } elsif ($tag) { |
---|
1191 | next if $to_skip{$tag}; |
---|
1192 | last if $tag eq 'bye'; |
---|
1193 | } |
---|
1194 | if ($in_top) { |
---|
1195 | # parsing the top node |
---|
1196 | if ($tag eq 'node' || $tag eq 'include' || $sec2level{$tag}) { |
---|
1197 | # no more in top |
---|
1198 | $in_top = 0; |
---|
1199 | push(@lines, $TOPEND); |
---|
1200 | } |
---|
1201 | } |
---|
1202 | # |
---|
1203 | # try to remove inlined comments |
---|
1204 | # syntax from tex-mode.el comment-start-skip |
---|
1205 | # |
---|
1206 | s/((^|[^\@])(\@\@)*)\@c(omment | |\{).*/$1/; |
---|
1207 | # s/((^|[^\@])(\@\@)*)\@c(omment)? .*/$1/; |
---|
1208 | # s/(.*)\@c{.*?}(.*)/$1$2/; |
---|
1209 | # s/(.*)\@comment{.*?}(.*)/$1$2/; |
---|
1210 | # s/^(.*)\@c /$1/; |
---|
1211 | # s/^(.*)\@comment /$1/; |
---|
1212 | # non-@ substitutions cf. texinfmt.el |
---|
1213 | unless ($in_pre) { |
---|
1214 | s/``/\"/g; |
---|
1215 | s/''/\"/g; |
---|
1216 | s/([\w ])---([\w ])/$1--$2/g; |
---|
1217 | } |
---|
1218 | # |
---|
1219 | # analyze the tag |
---|
1220 | # |
---|
1221 | if ($tag) { |
---|
1222 | # skip lines |
---|
1223 | &skip_until($tag), next if $tag eq 'ignore'; |
---|
1224 | &skip_until($tag), next if $tag eq 'ifnothtml'; |
---|
1225 | if ($tag eq 'ifinfo') |
---|
1226 | { |
---|
1227 | &skip_until($tag), next unless $T2H_EXPAND eq 'info'; |
---|
1228 | } |
---|
1229 | if ($tag eq 'iftex') |
---|
1230 | { |
---|
1231 | &skip_until($tag), next unless $T2H_EXPAND eq 'tex'; |
---|
1232 | } |
---|
1233 | if ($tag eq 'tex') |
---|
1234 | { |
---|
1235 | # add to latex2html file |
---|
1236 | if ($T2H_EXPAND eq 'tex' && $T2H_L2H && ! $in_pre) |
---|
1237 | { |
---|
1238 | # add space to the end -- tex(i2dvi) does this, as well |
---|
1239 | push(@lines, &l2h_ToLatex(&string_until($tag) . " ")); |
---|
1240 | } |
---|
1241 | else |
---|
1242 | { |
---|
1243 | &skip_until($tag); |
---|
1244 | } |
---|
1245 | next; |
---|
1246 | } |
---|
1247 | # handle special tables |
---|
1248 | if ($tag =~ /^(|f|v|multi)table$/) { |
---|
1249 | $table_type = $1; |
---|
1250 | $tag = 'table'; |
---|
1251 | } |
---|
1252 | # special cases |
---|
1253 | if ($tag eq 'top' || ($tag eq 'node' && /^\@node\s+top\s*,/i)) { |
---|
1254 | $in_top = 1; |
---|
1255 | $has_top = 1; |
---|
1256 | @lines = (); # ignore all lines before top (title page garbage) |
---|
1257 | next; |
---|
1258 | } elsif ($tag eq 'node') { |
---|
1259 | if ($in_top) |
---|
1260 | { |
---|
1261 | $in_top = 0; |
---|
1262 | push(@lines, $TOPEND); |
---|
1263 | } |
---|
1264 | warn "$ERROR Bad node line: $_" unless $_ =~ /^\@node\s$NODESRE$/o; |
---|
1265 | $_ = &protect_html($_); # if node contains '&' for instance |
---|
1266 | s/^\@node\s+//; |
---|
1267 | ($node, $node_next, $node_prev, $node_up) = split(/,/); |
---|
1268 | &normalise_node($node); |
---|
1269 | &normalise_node($node_next); |
---|
1270 | &normalise_node($node_prev); |
---|
1271 | &normalise_node($node_up); |
---|
1272 | next; |
---|
1273 | } elsif ($tag eq 'include') { |
---|
1274 | if (/^\@include\s+($FILERE)\s*$/o) { |
---|
1275 | $file = $1; |
---|
1276 | unless (-e $file) { |
---|
1277 | foreach $dir (@T2H_INCLUDE_DIRS) { |
---|
1278 | $file = "$dir/$1"; |
---|
1279 | last if -e $file; |
---|
1280 | } |
---|
1281 | } |
---|
1282 | if (-e $file) { |
---|
1283 | &open($file); |
---|
1284 | print "# including $file\n" if $T2H_VERBOSE; |
---|
1285 | } else { |
---|
1286 | warn "$ERROR Can't find $file, skipping"; |
---|
1287 | } |
---|
1288 | } else { |
---|
1289 | warn "$ERROR Bad include line: $_"; |
---|
1290 | } |
---|
1291 | next; |
---|
1292 | } elsif ($tag eq 'ifclear') { |
---|
1293 | if (/^\@ifclear\s+($VARRE)\s*$/o) { |
---|
1294 | next unless defined($value{$1}); |
---|
1295 | &skip_until($tag); |
---|
1296 | } else { |
---|
1297 | warn "$ERROR Bad ifclear line: $_"; |
---|
1298 | } |
---|
1299 | next; |
---|
1300 | } elsif ($tag eq 'ifset') { |
---|
1301 | if (/^\@ifset\s+($VARRE)\s*$/o) { |
---|
1302 | next if defined($value{$1}); |
---|
1303 | &skip_until($tag); |
---|
1304 | } else { |
---|
1305 | warn "$ERROR Bad ifset line: $_"; |
---|
1306 | } |
---|
1307 | next; |
---|
1308 | } elsif ($tag eq 'menu') { |
---|
1309 | unless ($T2H_SHOW_MENU) { |
---|
1310 | &skip_until($tag); |
---|
1311 | next; |
---|
1312 | } |
---|
1313 | &html_push_if($tag); |
---|
1314 | push(@lines, &html_debug("\n", __LINE__)); |
---|
1315 | } elsif ($format_map{$tag}) { |
---|
1316 | $in_pre = 1 if $format_map{$tag} eq 'PRE'; |
---|
1317 | &html_push_if($format_map{$tag}); |
---|
1318 | push(@lines, &html_debug("\n", __LINE__)); |
---|
1319 | $in_list++ if $format_map{$tag} eq 'UL' || $format_map{$tag} eq 'OL' ; |
---|
1320 | push(@lines, &debug('<FONT size="-1">'."\n", __LINE__)) |
---|
1321 | if $tag =~ /smallexample/i; |
---|
1322 | push(@lines, &debug("<BLOCKQUOTE>\n", __LINE__)) |
---|
1323 | if $tag =~ /example/i; |
---|
1324 | push(@lines, &debug("<$format_map{$tag}>\n", __LINE__)); |
---|
1325 | next; |
---|
1326 | } elsif ($tag eq 'table') { |
---|
1327 | if (/^\s*\@(|f|v|multi)table\s+\@(\w+)/) { |
---|
1328 | $in_table = $2; |
---|
1329 | unshift(@tables, join($;, $table_type, $in_table)); |
---|
1330 | if ($table_type eq "multi") { |
---|
1331 | # don't use borders -- gets confused by empty cells |
---|
1332 | push(@lines, &debug("<TABLE>\n", __LINE__)); |
---|
1333 | &html_push_if('TABLE'); |
---|
1334 | } else { |
---|
1335 | push(@lines, &debug("<DL COMPACT>\n", __LINE__)); |
---|
1336 | &html_push_if('DL'); |
---|
1337 | } |
---|
1338 | push(@lines, &html_debug("\n", __LINE__)); |
---|
1339 | } else { |
---|
1340 | warn "$ERROR Bad table line: $_"; |
---|
1341 | } |
---|
1342 | next; |
---|
1343 | } elsif ($tag eq 'synindex' || $tag eq 'syncodeindex') { |
---|
1344 | if (/^\@$tag\s+(\w)\w\s+(\w)\w\s*$/) { |
---|
1345 | eval("*${1}index = *${2}index"); |
---|
1346 | } else { |
---|
1347 | warn "$ERROR Bad syn*index line: $_"; |
---|
1348 | } |
---|
1349 | next; |
---|
1350 | } elsif ($tag eq 'sp') { |
---|
1351 | push(@lines, &debug("<P>\n", __LINE__)); |
---|
1352 | next; |
---|
1353 | } elsif ($tag eq 'center') { |
---|
1354 | push(@lines, &debug("<center>\n", __LINE__)); |
---|
1355 | s/\@center//; |
---|
1356 | } elsif ($tag eq 'setref') { |
---|
1357 | &protect_html; # if setref contains '&' for instance |
---|
1358 | if (/^\@$tag\s*{($NODERE)}\s*$/) { |
---|
1359 | $setref = $1; |
---|
1360 | $setref =~ s/\s+/ /g; # normalize |
---|
1361 | $setref =~ s/ $//; |
---|
1362 | $node2sec{$setref} = $name; |
---|
1363 | $sec2node{$name} = $setref; |
---|
1364 | $node2href{$setref} = "$docu_doc#$docid"; |
---|
1365 | } else { |
---|
1366 | warn "$ERROR Bad setref line: $_"; |
---|
1367 | } |
---|
1368 | next; |
---|
1369 | } elsif ($tag eq 'defindex' || $tag eq 'defcodeindex') { |
---|
1370 | if (/^\@$tag\s+(\w\w)\s*$/) { |
---|
1371 | $valid_index{$1} = 1; |
---|
1372 | } else { |
---|
1373 | warn "$ERROR Bad defindex line: $_"; |
---|
1374 | } |
---|
1375 | next; |
---|
1376 | } elsif ($tag eq 'lowersections') { |
---|
1377 | local ($sec, $level); |
---|
1378 | while (($sec, $level) = each %sec2level) { |
---|
1379 | $sec2level{$sec} = $level + 1; |
---|
1380 | } |
---|
1381 | next; |
---|
1382 | } elsif ($tag eq 'raisesections') { |
---|
1383 | local ($sec, $level); |
---|
1384 | while (($sec, $level) = each %sec2level) { |
---|
1385 | $sec2level{$sec} = $level - 1; |
---|
1386 | } |
---|
1387 | next; |
---|
1388 | } elsif (defined($def_map{$tag})) { |
---|
1389 | if ($def_map{$tag}) { |
---|
1390 | s/^\@$tag\s+//; |
---|
1391 | $tag = $def_map{$tag}; |
---|
1392 | $_ = "\@$tag $_"; |
---|
1393 | $tag =~ s/\s.*//; |
---|
1394 | } |
---|
1395 | } elsif (defined($user_sub{$tag})) { |
---|
1396 | s/^\@$tag\s+//; |
---|
1397 | $sub = $user_sub{$tag}; |
---|
1398 | print "# user $tag = $sub, arg: $_" if $T2H_DEBUG & $DEBUG_USER; |
---|
1399 | if (defined(&$sub)) { |
---|
1400 | chop($_); |
---|
1401 | &$sub($_); |
---|
1402 | } else { |
---|
1403 | warn "$ERROR Bad user sub for $tag: $sub\n"; |
---|
1404 | } |
---|
1405 | next; |
---|
1406 | } |
---|
1407 | if (defined($def_map{$tag})) { |
---|
1408 | s/^\@$tag\s+//; |
---|
1409 | if ($tag =~ /x$/) { |
---|
1410 | # extra definition line |
---|
1411 | $tag = $`; |
---|
1412 | $is_extra = 1; |
---|
1413 | } else { |
---|
1414 | $is_extra = 0; |
---|
1415 | } |
---|
1416 | while (/\{([^\{\}]*)\}/) { |
---|
1417 | # this is a {} construct |
---|
1418 | ($before, $contents, $after) = ($`, $1, $'); |
---|
1419 | # protect spaces |
---|
1420 | $contents =~ s/\s+/$;9/g; |
---|
1421 | # restore $_ protecting {} |
---|
1422 | $_ = "$before$;7$contents$;8$after"; |
---|
1423 | } |
---|
1424 | @args = split(/\s+/, &protect_html($_)); |
---|
1425 | foreach (@args) { |
---|
1426 | s/$;9/ /g; # unprotect spaces |
---|
1427 | s/$;7/\{/g; # ... { |
---|
1428 | s/$;8/\}/g; # ... } |
---|
1429 | } |
---|
1430 | $type = shift(@args); |
---|
1431 | $type =~ s/^\{(.*)\}$/$1/; |
---|
1432 | print "# def ($tag): {$type} ", join(', ', @args), "\n" |
---|
1433 | if $T2H_DEBUG & $DEBUG_DEF; |
---|
1434 | $type .= ':'; # it's nicer like this |
---|
1435 | $name = shift(@args); |
---|
1436 | $name =~ s/^\{(.*)\}$/$1/; |
---|
1437 | if ($is_extra) { |
---|
1438 | $_ = &debug("<DT>", __LINE__); |
---|
1439 | } else { |
---|
1440 | $_ = &debug("<DL>\n<DT>", __LINE__); |
---|
1441 | } |
---|
1442 | if ($tag eq 'deffn' || $tag eq 'defvr' || $tag eq 'deftp') { |
---|
1443 | $_ .= "<U>$type</U> <B>$name</B>"; |
---|
1444 | $_ .= " <I>@args</I>" if @args; |
---|
1445 | } elsif ($tag eq 'deftypefn' || $tag eq 'deftypevr' |
---|
1446 | || $tag eq 'defcv' || $tag eq 'defop') { |
---|
1447 | $ftype = $name; |
---|
1448 | $name = shift(@args); |
---|
1449 | $name =~ s/^\{(.*)\}$/$1/; |
---|
1450 | $_ .= "<U>$type</U> $ftype <B>$name</B>"; |
---|
1451 | $_ .= " <I>@args</I>" if @args; |
---|
1452 | } else { |
---|
1453 | warn "$ERROR Unknown definition type: $tag\n"; |
---|
1454 | $_ .= "<U>$type</U> <B>$name</B>"; |
---|
1455 | $_ .= " <I>@args</I>" if @args; |
---|
1456 | } |
---|
1457 | $_ .= &debug("\n<DD>", __LINE__); |
---|
1458 | $name = &unprotect_html($name); |
---|
1459 | if ($tag eq 'deffn' || $tag eq 'deftypefn') { |
---|
1460 | unshift(@input_spool, "\@findex $name\n"); |
---|
1461 | } elsif ($tag eq 'defop') { |
---|
1462 | unshift(@input_spool, "\@findex $name on $ftype\n"); |
---|
1463 | } elsif ($tag eq 'defvr' || $tag eq 'deftypevr' || $tag eq 'defcv') { |
---|
1464 | unshift(@input_spool, "\@vindex $name\n"); |
---|
1465 | } else { |
---|
1466 | unshift(@input_spool, "\@tindex $name\n"); |
---|
1467 | } |
---|
1468 | $dont_html = 1; |
---|
1469 | } |
---|
1470 | } elsif ($end_tag) { |
---|
1471 | if ($format_map{$end_tag}) { |
---|
1472 | $in_pre = 0 if $format_map{$end_tag} eq 'PRE'; |
---|
1473 | $in_list-- if $format_map{$end_tag} eq 'UL' || $format_map{$end_tag} eq 'OL' ; |
---|
1474 | &html_pop_if('LI', 'P'); |
---|
1475 | &html_pop_if(); |
---|
1476 | push(@lines, &debug("</$format_map{$end_tag}>\n", __LINE__)); |
---|
1477 | push(@lines, &debug("</BLOCKQUOTE>\n", __LINE__)) |
---|
1478 | if $end_tag =~ /example/i; |
---|
1479 | push(@lines, &debug("</FONT>\n", __LINE__)) |
---|
1480 | if $end_tag =~ /smallexample/i; |
---|
1481 | push(@lines, &html_debug("\n", __LINE__)); |
---|
1482 | } elsif ($end_tag =~ /^(|f|v|multi)table$/) { |
---|
1483 | unless (@tables) { |
---|
1484 | warn "$ERROR \@end $end_tag without \@*table\n"; |
---|
1485 | next; |
---|
1486 | } |
---|
1487 | ($table_type, $in_table) = split($;, shift(@tables)); |
---|
1488 | unless ($1 eq $table_type) { |
---|
1489 | warn "$ERROR \@end $end_tag without matching \@$end_tag\n"; |
---|
1490 | next; |
---|
1491 | } |
---|
1492 | if ($table_type eq "multi") { |
---|
1493 | push(@lines, "</TR></TABLE>\n"); |
---|
1494 | &html_pop_if('TR'); |
---|
1495 | } else { |
---|
1496 | push(@lines, "</DL>\n"); |
---|
1497 | &html_pop_if('DD'); |
---|
1498 | } |
---|
1499 | &html_pop_if(); |
---|
1500 | if (@tables) { |
---|
1501 | ($table_type, $in_table) = split($;, $tables[0]); |
---|
1502 | } else { |
---|
1503 | $in_table = 0; |
---|
1504 | } |
---|
1505 | } elsif (defined($def_map{$end_tag})) { |
---|
1506 | push(@lines, &debug("</DL>\n", __LINE__)); |
---|
1507 | } elsif ($end_tag eq 'menu') { |
---|
1508 | &html_pop_if(); |
---|
1509 | push(@lines, $_); # must keep it for pass 2 |
---|
1510 | } |
---|
1511 | next; |
---|
1512 | } |
---|
1513 | # |
---|
1514 | # misc things |
---|
1515 | # |
---|
1516 | # protect texi and HTML things |
---|
1517 | &protect_texi; |
---|
1518 | $_ = &protect_html($_) unless $dont_html; |
---|
1519 | $dont_html = 0; |
---|
1520 | # substitution (unsupported things) |
---|
1521 | s/^\@exdent\s+//g; |
---|
1522 | s/\@noindent\s+//g; |
---|
1523 | s/\@refill\s+//g; |
---|
1524 | # other substitutions |
---|
1525 | &simple_substitutions; |
---|
1526 | s/\@value{($VARRE)}/$value{$1}/eg; |
---|
1527 | s/\@footnote\{/\@footnote$docu_doc\{/g; # mark footnotes, cf. pass 4 |
---|
1528 | # |
---|
1529 | # analyze the tag again |
---|
1530 | # |
---|
1531 | if ($tag) { |
---|
1532 | if (defined($sec2level{$tag}) && $sec2level{$tag} > 0) { |
---|
1533 | if (/^\@$tag\s+(.+)$/) { |
---|
1534 | $name = $1; |
---|
1535 | $name =~ s/\s+$//; |
---|
1536 | $level = $sec2level{$tag}; |
---|
1537 | if ($tag =~ /heading$/) { |
---|
1538 | push(@lines, &html_debug("\n", __LINE__)); |
---|
1539 | if ($html_element ne 'body') { |
---|
1540 | # We are in a nice pickle here. We are trying to get a H? heading |
---|
1541 | # even though we are not in the body level. So, we convert it to a |
---|
1542 | # nice, bold, line by itself. |
---|
1543 | $_ = &debug("\n\n<P><STRONG>$name</STRONG>\n\n", __LINE__); |
---|
1544 | } else { |
---|
1545 | $_ = &debug("<H$level>$name</H$level>\n", __LINE__); |
---|
1546 | &html_push_if('body'); |
---|
1547 | } |
---|
1548 | print "# heading, section $name, level $level\n" |
---|
1549 | if $T2H_DEBUG & $DEBUG_TOC; |
---|
1550 | } else { |
---|
1551 | $node = $name unless $node; |
---|
1552 | $name = &update_sec_num($tag, $level) . " $name" |
---|
1553 | if $T2H_NUMBER_SECTIONS && $tag !~ /^unnumbered/; |
---|
1554 | if (defined($toplevel)) |
---|
1555 | { |
---|
1556 | push @lines, ($level==$toplevel ? $CHAPTEREND : $SECTIONEND); |
---|
1557 | } |
---|
1558 | else |
---|
1559 | { |
---|
1560 | # first time we see a "section" |
---|
1561 | unless ($level == 1) |
---|
1562 | { |
---|
1563 | warn "$ERROR The first section found is not of level 1: $_"; |
---|
1564 | } |
---|
1565 | $toplevel = $level; |
---|
1566 | } |
---|
1567 | push(@sections, $name); |
---|
1568 | next_doc() if ($T2H_SPLIT eq 'section' || |
---|
1569 | ($T2H_SPLIT && $level == $toplevel)); |
---|
1570 | $sec_num++; |
---|
1571 | $docid = "SEC$sec_num"; |
---|
1572 | $tocid = "TOC$sec_num"; |
---|
1573 | # check biblio and glossary |
---|
1574 | $in_bibliography = ($name =~ /^([A-Z]|\d+)?(\.\d+)*\s*bibliography$/i); |
---|
1575 | $in_glossary = ($name =~ /^([A-Z]|\d+)?(\.\d+)*\s*glossary$/i); |
---|
1576 | # check node |
---|
1577 | if ($node2sec{$node}) { |
---|
1578 | warn "$ERROR Duplicate node found: $node\n"; |
---|
1579 | } else { |
---|
1580 | $node2sec{$node} = $name; |
---|
1581 | warn "$ERROR Duplicate section found: $name\n" |
---|
1582 | if ($sec2node{$name}); |
---|
1583 | $sec2node{$name} = $node; |
---|
1584 | $node2href{$node} = "$docu_doc#$docid"; |
---|
1585 | $node2next{$node} = $node_next; |
---|
1586 | $node2prev{$node} = $node_prev; |
---|
1587 | $node2up{$node} = $node_up; |
---|
1588 | print "# node $node, section $name, level $level\n" |
---|
1589 | if $T2H_DEBUG & $DEBUG_TOC; |
---|
1590 | } |
---|
1591 | $node = ''; |
---|
1592 | $node_next = ''; |
---|
1593 | $node_prev = ''; |
---|
1594 | $node_next = ''; |
---|
1595 | # update TOC |
---|
1596 | while ($level > $curlevel) { |
---|
1597 | $curlevel++; |
---|
1598 | push(@toc_lines, "<UL>\n"); |
---|
1599 | } |
---|
1600 | while ($level < $curlevel) { |
---|
1601 | $curlevel--; |
---|
1602 | push(@toc_lines, "</UL>\n"); |
---|
1603 | } |
---|
1604 | $_ = &t2h_anchor($tocid, "$docu_doc#$docid", $name, 1); |
---|
1605 | $_ = &substitute_style($_); |
---|
1606 | push(@stoc_lines, "$_<BR>\n") if ($level == 1); |
---|
1607 | push(@toc_lines, "<LI>" . $_ ."</LI>"); |
---|
1608 | # update DOC |
---|
1609 | push(@lines, &html_debug("\n", __LINE__)); |
---|
1610 | &html_reset; |
---|
1611 | # $_ = "<H$level>".&t2h_anchor($docid, '', $name)."</H$level>\n"; |
---|
1612 | $_ = "<H$level> $name </H$level>\n"; |
---|
1613 | $_ = &debug($_, __LINE__); |
---|
1614 | push(@lines, &html_debug("\n", __LINE__)); |
---|
1615 | } |
---|
1616 | # update DOC |
---|
1617 | foreach $line (split(/\n+/, $_)) { |
---|
1618 | push(@lines, "$line\n"); |
---|
1619 | } |
---|
1620 | next; |
---|
1621 | } else { |
---|
1622 | warn "$ERROR Bad section line: $_"; |
---|
1623 | } |
---|
1624 | } else { |
---|
1625 | # track variables |
---|
1626 | $value{$1} = $2, next if /^\@set\s+($VARRE)\s+(.*)$/o; |
---|
1627 | delete $value{$1}, next if /^\@clear\s+($VARRE)\s*$/o; |
---|
1628 | # store things |
---|
1629 | $value{'_setfilename'} = $1, next if /^\@setfilename\s+(.*)$/; |
---|
1630 | $value{'_settitle'} = $1, next if /^\@settitle\s+(.*)$/; |
---|
1631 | $value{'_author'} .= "$1\n", next if /^\@author\s+(.*)$/; |
---|
1632 | $value{'_subtitle'} .= "$1\n", next if /^\@subtitle\s+(.*)$/; |
---|
1633 | $value{'_title'} .= "$1\n", next if /^\@title\s+(.*)$/; |
---|
1634 | # index |
---|
1635 | if (/^\@(..?)index\s+/) { |
---|
1636 | unless ($valid_index{$1}) { |
---|
1637 | warn "$ERROR Undefined index command: $_"; |
---|
1638 | next; |
---|
1639 | } |
---|
1640 | $id = ($T2H_SECTION_IDX ? $docid : 'IDX' . ++$idx_num); |
---|
1641 | $index = $1 . 'index'; |
---|
1642 | $what = &substitute_style($'); |
---|
1643 | $what =~ s/\s+$//; |
---|
1644 | print "# found $index for '$what' id $id\n" |
---|
1645 | if $T2H_DEBUG & $DEBUG_INDEX; |
---|
1646 | eval(<<EOC); |
---|
1647 | if (defined(\$$index\{\$what\})) { |
---|
1648 | \$$index\{\$what\} .= "$;$docu_doc#$id"; |
---|
1649 | } else { |
---|
1650 | \$$index\{\$what\} = "$docu_doc#$id"; |
---|
1651 | } |
---|
1652 | EOC |
---|
1653 | # |
---|
1654 | # dirty hack to see if I can put an invisible anchor... |
---|
1655 | # |
---|
1656 | unless ($T2H_SECTION_IDX) { |
---|
1657 | if ( |
---|
1658 | $html_element eq 'P' || |
---|
1659 | $html_element eq 'LI' || |
---|
1660 | $html_element eq 'DT' || |
---|
1661 | $html_element eq 'DD' || |
---|
1662 | $html_element eq 'ADDRESS' || |
---|
1663 | $html_element eq 'B' || |
---|
1664 | $html_element eq 'BLOCKQUOTE' || |
---|
1665 | $html_element eq 'PRE' || |
---|
1666 | $html_element eq 'SAMP') { |
---|
1667 | push(@lines, &t2h_anchor($id, '', $T2H_INVISIBLE_MARK, !$in_pre)); |
---|
1668 | } elsif ($html_element eq 'body') { |
---|
1669 | push(@lines, &debug("<P>\n", __LINE__)); |
---|
1670 | push(@lines, &t2h_anchor($id, '', $T2H_INVISIBLE_MARK, !$in_pre)); |
---|
1671 | &html_push('P'); |
---|
1672 | } elsif ($html_element eq 'DL' || |
---|
1673 | $html_element eq 'UL' || |
---|
1674 | $html_element eq 'OL' ) { |
---|
1675 | $deferred_ref .= &t2h_anchor($id, '', $T2H_INVISIBLE_MARK, !$in_pre) . " "; |
---|
1676 | } |
---|
1677 | } |
---|
1678 | next; |
---|
1679 | } |
---|
1680 | # list item |
---|
1681 | if (/^\s*\@itemx?\s+/) { |
---|
1682 | $what = $'; |
---|
1683 | $what =~ s/\s+$//; |
---|
1684 | if ($in_bibliography && $use_bibliography) { |
---|
1685 | if ($what =~ /^$BIBRE$/o) { |
---|
1686 | $id = 'BIB' . ++$bib_num; |
---|
1687 | $bib2href{$what} = "$docu_doc#$id"; |
---|
1688 | print "# found bibliography for '$what' id $id\n" |
---|
1689 | if $T2H_DEBUG & $DEBUG_BIB; |
---|
1690 | $what = &t2h_anchor($id, '', $what); |
---|
1691 | } |
---|
1692 | } elsif ($in_glossary && $T2H_USE_GLOSSARY) { |
---|
1693 | $id = 'GLOSS' . ++$gloss_num; |
---|
1694 | $entry = $what; |
---|
1695 | $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/; |
---|
1696 | $gloss2href{$entry} = "$docu_doc#$id"; |
---|
1697 | print "# found glossary for '$entry' id $id\n" |
---|
1698 | if $T2H_DEBUG & $DEBUG_GLOSS; |
---|
1699 | $what = &t2h_anchor($id, '', $what); |
---|
1700 | } |
---|
1701 | &html_pop_if('P'); |
---|
1702 | if ($html_element eq 'DL' || $html_element eq 'DD') { |
---|
1703 | if ($things_map{$in_table} && !$what) { |
---|
1704 | # special case to allow @table @bullet for instance |
---|
1705 | push(@lines, &debug("<DT>$things_map{$in_table}\n", __LINE__)); |
---|
1706 | } else { |
---|
1707 | push(@lines, &debug("<DT>\@$in_table\{$what\}\n", __LINE__)); |
---|
1708 | } |
---|
1709 | push(@lines, "<DD>"); |
---|
1710 | &html_push('DD') unless $html_element eq 'DD'; |
---|
1711 | if ($table_type) { # add also an index |
---|
1712 | unshift(@input_spool, "\@${table_type}index $what\n"); |
---|
1713 | } |
---|
1714 | } elsif ($html_element eq 'TABLE') { |
---|
1715 | push(@lines, &debug("<TR><TD>$what</TD>\n", __LINE__)); |
---|
1716 | &html_push('TR'); |
---|
1717 | } elsif ($html_element eq 'TR') { |
---|
1718 | push(@lines, &debug("</TR>\n", __LINE__)); |
---|
1719 | push(@lines, &debug("<TR><TD>$what</TD>\n", __LINE__)); |
---|
1720 | } else { |
---|
1721 | push(@lines, &debug("<LI>$what\n", __LINE__)); |
---|
1722 | &html_push('LI') unless $html_element eq 'LI'; |
---|
1723 | } |
---|
1724 | push(@lines, &html_debug("\n", __LINE__)); |
---|
1725 | if ($deferred_ref) { |
---|
1726 | push(@lines, &debug("$deferred_ref\n", __LINE__)); |
---|
1727 | $deferred_ref = ''; |
---|
1728 | } |
---|
1729 | next; |
---|
1730 | } elsif (/^\@tab\s+(.*)$/) { |
---|
1731 | push(@lines, "<TD>$1</TD>\n"); |
---|
1732 | next; |
---|
1733 | } |
---|
1734 | } |
---|
1735 | } |
---|
1736 | # paragraph separator |
---|
1737 | if ($_ eq "\n") { |
---|
1738 | next if $#lines >= 0 && $lines[$#lines] eq "\n"; |
---|
1739 | if ($html_element eq 'P') { |
---|
1740 | push (@lines, &debug("</P><P>\n", __LINE__)); |
---|
1741 | } |
---|
1742 | # else |
---|
1743 | # { |
---|
1744 | # push(@lines, "<P></P>\n"); |
---|
1745 | # $_ = &debug("<P></P>\n", __LINE__); |
---|
1746 | # } |
---|
1747 | elsif ($html_element eq 'body' || $html_element eq 'BLOCKQUOTE' || $html_element eq 'DD') |
---|
1748 | { |
---|
1749 | &html_push('P'); |
---|
1750 | push(@lines, &debug("<P>\n", __LINE__)); |
---|
1751 | } |
---|
1752 | } |
---|
1753 | # otherwise |
---|
1754 | push(@lines, $_); |
---|
1755 | |
---|
1756 | push(@lines, &debug("</center>\n", __LINE__)) if ($tag eq 'center'); |
---|
1757 | } |
---|
1758 | |
---|
1759 | # finish TOC |
---|
1760 | $level = 0; |
---|
1761 | while ($level < $curlevel) { |
---|
1762 | $curlevel--; |
---|
1763 | push(@toc_lines, "</UL>\n"); |
---|
1764 | } |
---|
1765 | |
---|
1766 | print "# end of pass 1\n" if $T2H_VERBOSE; |
---|
1767 | |
---|
1768 | #+++############################################################################ |
---|
1769 | # # |
---|
1770 | # Pass 2/3: handle style, menu, index, cross-reference # |
---|
1771 | # # |
---|
1772 | #---############################################################################ |
---|
1773 | |
---|
1774 | @lines2 = (); # whole document (2nd pass) |
---|
1775 | @lines3 = (); # whole document (3rd pass) |
---|
1776 | $in_menu = 0; # am I inside a menu |
---|
1777 | |
---|
1778 | while (@lines) { |
---|
1779 | $_ = shift(@lines); |
---|
1780 | # |
---|
1781 | # special case (protected sections) |
---|
1782 | # |
---|
1783 | if (/^$PROTECTTAG/o) { |
---|
1784 | push(@lines2, $_); |
---|
1785 | next; |
---|
1786 | } |
---|
1787 | # |
---|
1788 | # menu |
---|
1789 | # |
---|
1790 | if (/^\@menu\b/) |
---|
1791 | { |
---|
1792 | $in_menu = 1; |
---|
1793 | $T2H_NUMBER_SECTIONS ? |
---|
1794 | push(@lines2, &debug("<BLOCKQUOTE><TABLE BORDER=0 CELLSPACING=0> \n", __LINE__)) : |
---|
1795 | push(@lines2, &debug("<UL>\n", __LINE__)); |
---|
1796 | next; |
---|
1797 | } |
---|
1798 | if (/^\@end\s+menu\b/) |
---|
1799 | { |
---|
1800 | $in_menu = 0; |
---|
1801 | $T2H_NUMBER_SECTIONS ? |
---|
1802 | push(@lines2, &debug("</TABLE></BLOCKQUOTE>\n", __LINE__)) : |
---|
1803 | push(@lines2, &debug("</UL>\n", __LINE__)); |
---|
1804 | next; |
---|
1805 | } |
---|
1806 | if ($in_menu) { |
---|
1807 | if (/^\*\s+($NODERE)::/o) { |
---|
1808 | $descr = $'; |
---|
1809 | chop($descr); |
---|
1810 | &menu_entry($1, $1, $descr); |
---|
1811 | } elsif (/^\*\s+(.+):\s+([^\t,\.\n]+)[\t,\.\n]/) { |
---|
1812 | $descr = $'; |
---|
1813 | chop($descr); |
---|
1814 | &menu_entry($1, $2, $descr); |
---|
1815 | } elsif (/^\*/) { |
---|
1816 | warn "$ERROR Bad menu line: $_"; |
---|
1817 | } else { # description continued? |
---|
1818 | push(@lines2, $_); |
---|
1819 | } |
---|
1820 | next; |
---|
1821 | } |
---|
1822 | # |
---|
1823 | # printindex |
---|
1824 | # |
---|
1825 | # obachman: replace ^\@printindex by \@printindex, otherwise |
---|
1826 | # generation in debug mode fails |
---|
1827 | if (/\@printindex\s+(\w\w)\b/) { |
---|
1828 | local($index, *ary, @keys, $key, $letter, $last_letter, @refs, $fhidx); |
---|
1829 | if ($predefined_index{$1}) { |
---|
1830 | $index = $predefined_index{$1} . 'index'; |
---|
1831 | } else { |
---|
1832 | $index = $1 . 'index'; |
---|
1833 | } |
---|
1834 | # check for index summary |
---|
1835 | $letter = $1; |
---|
1836 | if ($letter =~ /$T2H_IDX_SUMMARY/) |
---|
1837 | { |
---|
1838 | open(FHIDX, "> $docu_rdir$docu_name" . "_$letter.idx") |
---|
1839 | || die "Can't open > $docu_rdir$docu_name" . "_$letter.idx for writing: $!\n"; |
---|
1840 | $fhidx = \*FHIDX; |
---|
1841 | print "# writing index summary in $docu_rdir$docu_name" . "_$letter.idx..." if $T2H_VERBOSE; |
---|
1842 | } |
---|
1843 | eval("*ary = *$index"); |
---|
1844 | @keys = keys(%ary); |
---|
1845 | foreach $key (@keys) { |
---|
1846 | $_ = $key; |
---|
1847 | 1 while s/<(\w+)>\`(.*)\'<\/\1>/$2/; # remove HTML tags with quotes |
---|
1848 | 1 while s/<(\w+)>(.*)<\/\1>/$2/; # remove HTML tags |
---|
1849 | $_ = &unprotect_html($_); |
---|
1850 | &unprotect_texi; |
---|
1851 | tr/A-Z/a-z/; # lowercase |
---|
1852 | $key2alpha{$key} = $_; |
---|
1853 | print "# index $key sorted as $_\n" |
---|
1854 | if $key ne $_ && $T2H_DEBUG & $DEBUG_INDEX; |
---|
1855 | } |
---|
1856 | push(@lines2, "Jump to:\n"); |
---|
1857 | $last_letter = undef; |
---|
1858 | foreach $key (sort byalpha @keys) { |
---|
1859 | $letter = substr($key2alpha{$key}, 0, 1); |
---|
1860 | $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;; |
---|
1861 | if (!defined($last_letter) || $letter ne $last_letter) { |
---|
1862 | push(@lines2, "-\n") if defined($last_letter); |
---|
1863 | push(@lines2, "<A HREF=\"#$index\_$letter\">" . &protect_html($letter) . "</A>\n"); |
---|
1864 | $last_letter = $letter; |
---|
1865 | } |
---|
1866 | } |
---|
1867 | push(@lines2, "<P>\n"); |
---|
1868 | $last_letter = undef; |
---|
1869 | foreach $key (sort byalpha @keys) { |
---|
1870 | $letter = substr($key2alpha{$key}, 0, 1); |
---|
1871 | $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;; |
---|
1872 | if (!defined($last_letter) || $letter ne $last_letter) { |
---|
1873 | push(@lines2, "</DIR>\n") if defined($last_letter); |
---|
1874 | push(@lines2, "<H2><A NAME=\"$index\_$letter\">" . &protect_html($letter) . "</A></H2>\n"); |
---|
1875 | push(@lines2, "<DIR>\n"); |
---|
1876 | $last_letter = $letter; |
---|
1877 | } |
---|
1878 | @refs = (); |
---|
1879 | foreach (split(/$;/, $ary{$key})) { |
---|
1880 | push(@refs, &t2h_anchor('', $_, $key, 0)); |
---|
1881 | } |
---|
1882 | push(@lines2, "<LI>" . join(", ", @refs) . "\n"); |
---|
1883 | if ($fhidx) |
---|
1884 | { |
---|
1885 | ($letter) = split(/$;/, $ary{$key}); |
---|
1886 | $key = unprotect_html($key); |
---|
1887 | print $fhidx "$key\t$letter\n"; |
---|
1888 | } |
---|
1889 | } |
---|
1890 | push(@lines2, "</DIR>\n") if defined($last_letter); |
---|
1891 | if ($fhidx) |
---|
1892 | { |
---|
1893 | print "\n" if $T2H_VERBOSE; |
---|
1894 | close($fhidx); |
---|
1895 | } |
---|
1896 | next; |
---|
1897 | } |
---|
1898 | # |
---|
1899 | # simple style substitutions |
---|
1900 | # |
---|
1901 | $_ = &substitute_style($_); |
---|
1902 | # |
---|
1903 | # xref |
---|
1904 | # |
---|
1905 | while (/\@(x|px|info|)ref{($XREFRE)(}?)/o) { |
---|
1906 | # note: Texinfo may accept other characters |
---|
1907 | ($type, $nodes, $full) = ($1, $2, $3); |
---|
1908 | ($before, $after) = ($`, $'); |
---|
1909 | if (! $full && $after) { |
---|
1910 | warn "$ERROR Bad xref (no ending } on line): $_"; |
---|
1911 | $_ = "$before$;0${type}ref\{$nodes$after"; |
---|
1912 | next; # while xref |
---|
1913 | } |
---|
1914 | if ($type eq 'x') { |
---|
1915 | $type = 'See '; |
---|
1916 | } elsif ($type eq 'px') { |
---|
1917 | $type = 'see '; |
---|
1918 | } elsif ($type eq 'info') { |
---|
1919 | $type = 'See Info'; |
---|
1920 | } else { |
---|
1921 | $type = ''; |
---|
1922 | } |
---|
1923 | unless ($full) { |
---|
1924 | $next = shift(@lines); |
---|
1925 | $next = &substitute_style($next); |
---|
1926 | chop($nodes); # remove final newline |
---|
1927 | if ($next =~ /\}/) { # split on 2 lines |
---|
1928 | $nodes .= " $`"; |
---|
1929 | $after = $'; |
---|
1930 | } else { |
---|
1931 | $nodes .= " $next"; |
---|
1932 | $next = shift(@lines); |
---|
1933 | $next = &substitute_style($next); |
---|
1934 | chop($nodes); |
---|
1935 | if ($next =~ /\}/) { # split on 3 lines |
---|
1936 | $nodes .= " $`"; |
---|
1937 | $after = $'; |
---|
1938 | } else { |
---|
1939 | warn "$ERROR Bad xref (no ending }): $_"; |
---|
1940 | $_ = "$before$;0xref\{$nodes$after"; |
---|
1941 | unshift(@lines, $next); |
---|
1942 | next; # while xref |
---|
1943 | } |
---|
1944 | } |
---|
1945 | } |
---|
1946 | $nodes =~ s/\s+/ /g; # remove useless spaces |
---|
1947 | @args = split(/\s*,\s*/, $nodes); |
---|
1948 | $node = $args[0]; # the node is always the first arg |
---|
1949 | &normalise_node($node); |
---|
1950 | $sec = $node2sec{$node}; |
---|
1951 | $href = $node2href{$node}; |
---|
1952 | if (@args == 5) { # reference to another manual |
---|
1953 | $sec = $args[2] || $node; |
---|
1954 | $man = $args[4] || $args[3]; |
---|
1955 | $_ = "${before}${type}section `$sec' in \@cite{$man}$after"; |
---|
1956 | } elsif ($type =~ /Info/) { # inforef |
---|
1957 | warn "$ERROR Wrong number of arguments: $_" unless @args == 3; |
---|
1958 | ($nn, $_, $in) = @args; |
---|
1959 | $_ = "${before}${type} file `$in', node `$nn'$after"; |
---|
1960 | } elsif ($sec && $href && ! $T2H_SHORT_REF) { |
---|
1961 | $_ = "${before}${type}section " . |
---|
1962 | &t2h_anchor('', $href, $sec) . $after; |
---|
1963 | } |
---|
1964 | elsif ($href && $T2H_SHORT_REF) |
---|
1965 | { |
---|
1966 | $_ = "${before}${type} " . &t2h_anchor('', $href, $node) . $after; |
---|
1967 | } |
---|
1968 | else { |
---|
1969 | warn "$ERROR Undefined node ($node): $_"; |
---|
1970 | $_ = "$before$;0xref{$nodes}$after"; |
---|
1971 | } |
---|
1972 | } |
---|
1973 | |
---|
1974 | if (/^\@image\s*{/) { |
---|
1975 | s/\@image\s*{//; |
---|
1976 | my (@args) = split (/,/); |
---|
1977 | my $base = $args[0]; |
---|
1978 | my $image; |
---|
1979 | if (-r "$base.jpg") { |
---|
1980 | $image = "$base.jpg"; |
---|
1981 | } elsif (-r "$base.png") { |
---|
1982 | $image = "$base.png"; |
---|
1983 | } elsif (-r "$base.gif") { |
---|
1984 | $image = "$base.gif"; |
---|
1985 | } else { |
---|
1986 | warn "$ERROR no image file for $base: $_"; |
---|
1987 | } |
---|
1988 | $_ = "<IMG SRC=\"$image\" ALT=\"$base\">"; |
---|
1989 | } |
---|
1990 | |
---|
1991 | # |
---|
1992 | # try to guess bibliography references or glossary terms |
---|
1993 | # |
---|
1994 | unless (/^<H\d><A NAME=\"SEC\d/) { |
---|
1995 | if ($use_bibliography) { |
---|
1996 | $done = ''; |
---|
1997 | while (/$BIBRE/o) { |
---|
1998 | ($pre, $what, $post) = ($`, $&, $'); |
---|
1999 | $href = $bib2href{$what}; |
---|
2000 | if (defined($href) && $post !~ /^[^<]*<\/A>/) { |
---|
2001 | $done .= $pre . &t2h_anchor('', $href, $what); |
---|
2002 | } else { |
---|
2003 | $done .= "$pre$what"; |
---|
2004 | } |
---|
2005 | $_ = $post; |
---|
2006 | } |
---|
2007 | $_ = $done . $_; |
---|
2008 | } |
---|
2009 | if ($T2H_USE_GLOSSARY) { |
---|
2010 | $done = ''; |
---|
2011 | while (/\b\w+\b/) { |
---|
2012 | ($pre, $what, $post) = ($`, $&, $'); |
---|
2013 | $entry = $what; |
---|
2014 | $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/; |
---|
2015 | $href = $gloss2href{$entry}; |
---|
2016 | if (defined($href) && $post !~ /^[^<]*<\/A>/) { |
---|
2017 | $done .= $pre . &t2h_anchor('', $href, $what); |
---|
2018 | } else { |
---|
2019 | $done .= "$pre$what"; |
---|
2020 | } |
---|
2021 | $_ = $post; |
---|
2022 | } |
---|
2023 | $_ = $done . $_; |
---|
2024 | } |
---|
2025 | } |
---|
2026 | # otherwise |
---|
2027 | push(@lines2, $_); |
---|
2028 | } |
---|
2029 | print "# end of pass 2\n" if $T2H_VERBOSE; |
---|
2030 | |
---|
2031 | # |
---|
2032 | # split style substitutions |
---|
2033 | # |
---|
2034 | while (@lines2) { |
---|
2035 | $_ = shift(@lines2); |
---|
2036 | # |
---|
2037 | # special case (protected sections) |
---|
2038 | # |
---|
2039 | if (/^$PROTECTTAG/o) { |
---|
2040 | push(@lines3, $_); |
---|
2041 | next; |
---|
2042 | } |
---|
2043 | # |
---|
2044 | # split style substitutions |
---|
2045 | # |
---|
2046 | $old = ''; |
---|
2047 | while ($old ne $_) { |
---|
2048 | $old = $_; |
---|
2049 | if (/\@(\w+)\{/) { |
---|
2050 | ($before, $style, $after) = ($`, $1, $'); |
---|
2051 | if (defined($style_map{$style})) { |
---|
2052 | $_ = $after; |
---|
2053 | $text = ''; |
---|
2054 | $after = ''; |
---|
2055 | $failed = 1; |
---|
2056 | while (@lines2) { |
---|
2057 | if (/\}/) { |
---|
2058 | $text .= $`; |
---|
2059 | $after = $'; |
---|
2060 | $failed = 0; |
---|
2061 | last; |
---|
2062 | } else { |
---|
2063 | $text .= $_; |
---|
2064 | $_ = shift(@lines2); |
---|
2065 | } |
---|
2066 | } |
---|
2067 | if ($failed) { |
---|
2068 | die "* Bad syntax (\@$style) after: $before\n"; |
---|
2069 | } else { |
---|
2070 | $text = &apply_style($style, $text); |
---|
2071 | $_ = "$before$text$after"; |
---|
2072 | } |
---|
2073 | } |
---|
2074 | } |
---|
2075 | } |
---|
2076 | # otherwise |
---|
2077 | push(@lines3, $_); |
---|
2078 | } |
---|
2079 | print "# end of pass 3\n" if $T2H_VERBOSE; |
---|
2080 | |
---|
2081 | #+++############################################################################ |
---|
2082 | # # |
---|
2083 | # Pass 4: foot notes, final cleanup # |
---|
2084 | # # |
---|
2085 | #---############################################################################ |
---|
2086 | |
---|
2087 | @foot_lines = (); # footnotes |
---|
2088 | @doc_lines = (); # final document |
---|
2089 | $end_of_para = 0; # true if last line is <P> |
---|
2090 | |
---|
2091 | while (@lines3) { |
---|
2092 | $_ = shift(@lines3); |
---|
2093 | # |
---|
2094 | # special case (protected sections) |
---|
2095 | # |
---|
2096 | if (/^$PROTECTTAG/o) { |
---|
2097 | push(@doc_lines, $_); |
---|
2098 | $end_of_para = 0; |
---|
2099 | next; |
---|
2100 | } |
---|
2101 | # |
---|
2102 | # footnotes |
---|
2103 | # |
---|
2104 | while (/\@footnote([^\{\s]+)\{/) { |
---|
2105 | ($before, $d, $after) = ($`, $1, $'); |
---|
2106 | $_ = $after; |
---|
2107 | $text = ''; |
---|
2108 | $after = ''; |
---|
2109 | $failed = 1; |
---|
2110 | while (@lines3) { |
---|
2111 | if (/\}/) { |
---|
2112 | $text .= $`; |
---|
2113 | $after = $'; |
---|
2114 | $failed = 0; |
---|
2115 | last; |
---|
2116 | } else { |
---|
2117 | $text .= $_; |
---|
2118 | $_ = shift(@lines3); |
---|
2119 | } |
---|
2120 | } |
---|
2121 | if ($failed) { |
---|
2122 | die "* Bad syntax (\@footnote) after: $before\n"; |
---|
2123 | } else { |
---|
2124 | $foot_num++; |
---|
2125 | $docid = "DOCF$foot_num"; |
---|
2126 | $footid = "FOOT$foot_num"; |
---|
2127 | $foot = "($foot_num)"; |
---|
2128 | push(@foot_lines, "<H3>" . &t2h_anchor($footid, "$d#$docid", $foot) . "</H3>\n"); |
---|
2129 | $text = "<P>$text" unless $text =~ /^\s*<P>/; |
---|
2130 | push(@foot_lines, "$text\n"); |
---|
2131 | $_ = $before . &t2h_anchor($docid, "$docu_foot#$footid", $foot) . $after; |
---|
2132 | } |
---|
2133 | } |
---|
2134 | # |
---|
2135 | # remove unnecessary <P> |
---|
2136 | # |
---|
2137 | if (/^\s*<P>\s*$/) { |
---|
2138 | next if $end_of_para++; |
---|
2139 | } else { |
---|
2140 | $end_of_para = 0; |
---|
2141 | } |
---|
2142 | # otherwise |
---|
2143 | push(@doc_lines, $_); |
---|
2144 | } |
---|
2145 | |
---|
2146 | print "# end of pass 4\n" if $T2H_VERBOSE; |
---|
2147 | |
---|
2148 | #+++############################################################################ |
---|
2149 | # # |
---|
2150 | # Pass 5: print things # |
---|
2151 | # # |
---|
2152 | #---############################################################################ |
---|
2153 | |
---|
2154 | $T2H_L2H = &l2h_FinishToLatex if ($T2H_L2H); |
---|
2155 | $T2H_L2H = &l2h_ToHtml if ($T2H_L2H); |
---|
2156 | $T2H_L2H = &l2h_InitFromHtml if ($T2H_L2H); |
---|
2157 | |
---|
2158 | # prepare %T2H_THISDOC |
---|
2159 | $T2H_THISDOC{fulltitle} = $value{'_title'} || $value{'_settitle'} || "Untitled Document"; |
---|
2160 | $T2H_THISDOC{title} = $value{'_settitle'} || $T2H_THISDOC{fulltitle}; |
---|
2161 | $T2H_THISDOC{author} = $value{'_author'}; |
---|
2162 | $T2H_THISDOC{subtitle} = $value{'_subtitle'}; |
---|
2163 | for $key (keys %T2H_THISDOC) |
---|
2164 | { |
---|
2165 | $_ = &substitute_style($T2H_THISDOC{$key}); |
---|
2166 | &unprotect_texi; |
---|
2167 | s/\s*$//; |
---|
2168 | $T2H_THISDOC{$key} = $_; |
---|
2169 | } |
---|
2170 | |
---|
2171 | # if no sections, then simply print docuemnt as is |
---|
2172 | unless (@sections) |
---|
2173 | { |
---|
2174 | print "# Writing content into $docu_top_file \n" if $T2H_VERBOSE; |
---|
2175 | open(FILE, "> $docu_doc_file") |
---|
2176 | || die "$ERROR: Can't open $docu_doc_file for writing: $!\n"; |
---|
2177 | |
---|
2178 | t2h_print_page_head(\*FILE); |
---|
2179 | $T2H_THIS_SECTION = \@doc_lines; |
---|
2180 | t2h_print_lines(\*FILE); |
---|
2181 | t2h_print_page_foot(\*FILE); |
---|
2182 | close(FILE); |
---|
2183 | goto Finish; |
---|
2184 | } |
---|
2185 | |
---|
2186 | # initialize $T2H_HREF, $T2H_NAME |
---|
2187 | %T2H_HREF = |
---|
2188 | ( |
---|
2189 | 'First' , sec_href($sections[0]), |
---|
2190 | 'Last', sec_href($sections[$#sections]), |
---|
2191 | 'About', $docu_about. '#SEC_About', |
---|
2192 | ); |
---|
2193 | |
---|
2194 | # prepare TOC, OVERVIEW, TOP |
---|
2195 | $T2H_TOC = \@toc_lines; |
---|
2196 | $T2H_OVERVIEW = \@stoc_lines; |
---|
2197 | if ($has_top) |
---|
2198 | { |
---|
2199 | while (1) |
---|
2200 | { |
---|
2201 | $_ = shift @doc_lines; |
---|
2202 | last if /$TOPEND/; |
---|
2203 | push @$T2H_TOP, $_; |
---|
2204 | } |
---|
2205 | $T2H_HREF{'Top'} = $docu_top . '#SEC_Top'; |
---|
2206 | } |
---|
2207 | else |
---|
2208 | { |
---|
2209 | $T2H_HREF{'Top'} = $T2H_HREF{First}; |
---|
2210 | } |
---|
2211 | |
---|
2212 | $node2href{Top} = $T2H_HREF{Top}; |
---|
2213 | $T2H_HREF{Contents} = $docu_toc.'#SEC_Contents' if @toc_lines; |
---|
2214 | $T2H_HREF{Overview} = $docu_stoc.'#SEC_OVERVIEW' if @stoc_lines; |
---|
2215 | $T2H_HREF{Index} = $node2href{'Index'}; |
---|
2216 | |
---|
2217 | %T2H_NAME = |
---|
2218 | ( |
---|
2219 | 'First', clean_name($sec2node{$sections[0]}), |
---|
2220 | 'Last', clean_name($sec2node{$sections[$#sections]}), |
---|
2221 | 'About', 'About this document', |
---|
2222 | 'Contents', 'Table of Contents', |
---|
2223 | 'Overview', 'Overview (Short Table of Contents)', |
---|
2224 | 'Index' , '', |
---|
2225 | 'Top', '' |
---|
2226 | ); |
---|
2227 | |
---|
2228 | ############################################################################# |
---|
2229 | # print Top |
---|
2230 | # |
---|
2231 | open(FILE, "> $docu_top_file") |
---|
2232 | || die "$ERROR: Can't open $docu_top_file for writing: $!\n"; |
---|
2233 | if ($T2H_TOP) |
---|
2234 | { |
---|
2235 | print "# Creating Top in $docu_top_file ...\n" if $T2H_VERBOSE; |
---|
2236 | t2h_print_page_head(\*FILE) unless ($T2H_SPLIT); |
---|
2237 | $T2H_THIS_SECTION = $T2H_TOP; |
---|
2238 | $T2H_HREF{This} = $T2H_HREF{Top}; |
---|
2239 | $T2H_NAME{This} = $T2H_NAME{Top}; |
---|
2240 | t2h_print_Top(\*FILE); |
---|
2241 | |
---|
2242 | } |
---|
2243 | close(FILE) if $T2H_SPLIT; |
---|
2244 | |
---|
2245 | ############################################################################# |
---|
2246 | # Print sections |
---|
2247 | # |
---|
2248 | $T2H_NODE{Forward} = $sec2node{$sections[0]}; |
---|
2249 | $T2H_NAME{Forward} = &clean_name($sec2node{$sections[0]}); |
---|
2250 | $T2H_HREF{Forward} = sec_href($sections[0]); |
---|
2251 | $T2H_NODE{This} = 'Top'; |
---|
2252 | $T2H_NAME{This} = $T2H_NAME{Top}; |
---|
2253 | $T2H_HREF{This} = $T2H_HREF{Top}; |
---|
2254 | if ($T2H_SPLIT) |
---|
2255 | { |
---|
2256 | print "# writing " . scalar(@sections) . |
---|
2257 | " sections in $docu_rdir$docu_name"."_[1.." . |
---|
2258 | ($T2H_SPLIT eq 'section' ? scalar(@sections) : scalar(@$T2H_OVERVIEW) ) . |
---|
2259 | "]" |
---|
2260 | if $T2H_VERBOSE; |
---|
2261 | $previous = ($T2H_SPLIT eq 'chapter' ? $CHAPTEREND : $SECTIONEND); |
---|
2262 | undef $FH; |
---|
2263 | $doc_num = 0; |
---|
2264 | } |
---|
2265 | else |
---|
2266 | { |
---|
2267 | print "# writing " . scalar(@sections) . " sections in $docu_top_file ..." |
---|
2268 | if $T2H_VERBOSE; |
---|
2269 | $FH = \*FILE; |
---|
2270 | $previous = ''; |
---|
2271 | } |
---|
2272 | |
---|
2273 | $counter = 0; |
---|
2274 | # loop through sections |
---|
2275 | while ($section = shift(@sections)) |
---|
2276 | { |
---|
2277 | if ($T2H_SPLIT && ($T2H_SPLIT eq 'section' || $previous eq $CHAPTEREND)) |
---|
2278 | { # open new page |
---|
2279 | if ($FH) |
---|
2280 | { #close previous page |
---|
2281 | t2h_print_page_foot($FH); |
---|
2282 | close($FH); |
---|
2283 | } |
---|
2284 | &next_doc; |
---|
2285 | open(FILE, "> $docu_rdir$docu_doc") || |
---|
2286 | die "$ERROR: Can't open $docu_rdir$docu_doc for writing: $!\n"; |
---|
2287 | $FH = \*FILE; |
---|
2288 | t2h_print_page_head($FH); |
---|
2289 | } |
---|
2290 | $T2H_NAME{Back} = $T2H_NAME{This}; |
---|
2291 | $T2H_HREF{Back} = $T2H_HREF{This}; |
---|
2292 | $T2H_NODE{Back} = $T2H_NODE{This}; |
---|
2293 | $T2H_NAME{This} = $T2H_NAME{Forward}; |
---|
2294 | $T2H_HREF{This} = $T2H_HREF{Forward}; |
---|
2295 | $T2H_NODE{This} = $T2H_NODE{Forward}; |
---|
2296 | if ($sections[0]) |
---|
2297 | { |
---|
2298 | $T2H_NODE{Forward} = $sec2node{$sections[0]}; |
---|
2299 | $T2H_NAME{Forward} = &clean_name($T2H_NODE{Forward}); |
---|
2300 | $T2H_HREF{Forward} = sec_href($sections[0]); |
---|
2301 | } |
---|
2302 | else |
---|
2303 | { |
---|
2304 | undef $T2H_HREF{Forward}, $T2H_NODE{Forward}, $T2H_NAME{Forward}; |
---|
2305 | } |
---|
2306 | |
---|
2307 | $node = $node2up{$T2H_NODE{This}}; |
---|
2308 | $T2H_HREF{Up} = $node2href{$node}; |
---|
2309 | if ($T2H_HREF{Up} eq $T2H_HREF{This} || ! $T2H_HREF{Up}) |
---|
2310 | { |
---|
2311 | $T2H_NAME{Up} = $T2H_NAME{Top}; |
---|
2312 | $T2H_HREF{Up} = $T2H_HREF{Top}; |
---|
2313 | $T2H_NODE{Up} = 'Up'; |
---|
2314 | } |
---|
2315 | else |
---|
2316 | { |
---|
2317 | $T2H_NAME{Up} = &clean_name($node); |
---|
2318 | $T2H_NODE{Up} = $node; |
---|
2319 | } |
---|
2320 | |
---|
2321 | $node = $T2H_NODE{This}; |
---|
2322 | $node = $node2prev{$node}; |
---|
2323 | $T2H_NAME{Prev} = &clean_name($node); |
---|
2324 | $T2H_HREF{Prev} = $node2href{$node}; |
---|
2325 | $T2H_NODE{Prev} = $node; |
---|
2326 | |
---|
2327 | $node = $T2H_NODE{This}; |
---|
2328 | if ($node2up{$node} && $node2up{$node} ne 'Top'&& |
---|
2329 | ($node2prev{$node} eq $T2H_NODE{Back} || ! $node2prev{$node})) |
---|
2330 | { |
---|
2331 | $node = $node2up{$node}; |
---|
2332 | while ($node && $node ne $node2up{$node} && ! $node2prev{$node}) |
---|
2333 | { |
---|
2334 | $node = $node2up{$node}; |
---|
2335 | } |
---|
2336 | $node = $node2prev{$node} |
---|
2337 | unless $node2up{$node} eq 'Top' || ! $node2up{$node}; |
---|
2338 | } |
---|
2339 | else |
---|
2340 | { |
---|
2341 | $node = $node2prev{$node}; |
---|
2342 | } |
---|
2343 | $T2H_NAME{FastBack} = &clean_name($node); |
---|
2344 | $T2H_HREF{FastBack} = $node2href{$node}; |
---|
2345 | $T2H_NODE{FastBack} = $node; |
---|
2346 | |
---|
2347 | $node = $T2H_NODE{This}; |
---|
2348 | $node = $node2next{$node}; |
---|
2349 | $T2H_NAME{Next} = &clean_name($node); |
---|
2350 | $T2H_HREF{Next} = $node2href{$node}; |
---|
2351 | $T2H_NODE{Next} = $node; |
---|
2352 | |
---|
2353 | $node = $T2H_NODE{This}; |
---|
2354 | if ($node2up{$node} && $node2up{$node} ne 'Top'&& |
---|
2355 | ($node2next{$node} eq $T2H_NODE{Forward} || ! $node2next{$node})) |
---|
2356 | { |
---|
2357 | $node = $node2up{$node}; |
---|
2358 | while ($node && $node ne $node2up{$node} && ! $node2next{$node}) |
---|
2359 | { |
---|
2360 | $node = $node2up{$node}; |
---|
2361 | } |
---|
2362 | } |
---|
2363 | $node = $node2next{$node}; |
---|
2364 | $T2H_NAME{FastForward} = &clean_name($node); |
---|
2365 | $T2H_HREF{FastForward} = $node2href{$node}; |
---|
2366 | $T2H_NODE{FastForward} = $node; |
---|
2367 | |
---|
2368 | $T2H_THIS_SECTION = []; |
---|
2369 | while (@doc_lines) { |
---|
2370 | $_ = shift(@doc_lines); |
---|
2371 | last if ($_ eq $SECTIONEND || $_ eq $CHAPTEREND); |
---|
2372 | push(@$T2H_THIS_SECTION, $_); |
---|
2373 | } |
---|
2374 | $previous = $_; |
---|
2375 | t2h_print_label($FH); |
---|
2376 | t2h_print_section($FH); |
---|
2377 | |
---|
2378 | if ($T2H_VERBOSE) |
---|
2379 | { |
---|
2380 | $counter++; |
---|
2381 | print "." if $counter =~ /00$/; |
---|
2382 | } |
---|
2383 | } |
---|
2384 | if ($T2H_SPLIT) |
---|
2385 | { |
---|
2386 | t2h_print_page_foot($FH); |
---|
2387 | close($FH); |
---|
2388 | } |
---|
2389 | print "\n" if $T2H_VERBOSE; |
---|
2390 | |
---|
2391 | ############################################################################# |
---|
2392 | # Print ToC, Overview, Footnotes |
---|
2393 | # |
---|
2394 | undef $T2H_HREF{Prev}; |
---|
2395 | undef $T2H_HREF{Next}; |
---|
2396 | undef $T2H_HREF{Back}; |
---|
2397 | undef $T2H_HREF{Forward}; |
---|
2398 | undef $T2H_HREF{Up}; |
---|
2399 | |
---|
2400 | if (@foot_lines) |
---|
2401 | { |
---|
2402 | print "# writing Footnotes in $docu_foot_file...\n" if $T2H_VERBOSE; |
---|
2403 | open (FILE, "> $docu_foot_file") || die "$ERROR: Can't open $docu_foot_file for writing: $!\n" |
---|
2404 | if $T2H_SPLIT; |
---|
2405 | $T2H_HREF{This} = $docu_foot; |
---|
2406 | $T2H_NAME{This} = 'Footnotes'; |
---|
2407 | $T2H_THIS_SECTION = \@foot_lines; |
---|
2408 | t2h_print_footnotes(\*FILE); |
---|
2409 | close(FILE) if $T2H_SPLIT; |
---|
2410 | } |
---|
2411 | |
---|
2412 | if (@toc_lines) |
---|
2413 | { |
---|
2414 | print "# writing Toc in $docu_toc_file...\n" if $T2H_VERBOSE; |
---|
2415 | open (FILE, "> $docu_toc_file") || die "$ERROR: Can't open $docu_toc_file for writing: $!\n" |
---|
2416 | if $T2H_SPLIT; |
---|
2417 | $T2H_HREF{This} = $T2H_HREF{Contents}; |
---|
2418 | $T2H_NAME{This} = $T2H_NAME{Contents}; |
---|
2419 | $T2H_THIS_SECTION = \@toc_lines; |
---|
2420 | t2h_print_Toc(\*FILE); |
---|
2421 | close(FILE) if $T2H_SPLIT; |
---|
2422 | } |
---|
2423 | |
---|
2424 | if (@stoc_lines) |
---|
2425 | { |
---|
2426 | print "# writing Overview in $docu_stoc_file...\n" if $T2H_VERBOSE; |
---|
2427 | open (FILE, "> $docu_stoc_file") || die "$ERROR: Can't open $docu_stoc_file for writing: $!\n" |
---|
2428 | if $T2H_SPLIT; |
---|
2429 | |
---|
2430 | $T2H_HREF{This} = $T2H_HREF{Overview}; |
---|
2431 | $T2H_NAME{This} = $T2H_NAME{Overview}; |
---|
2432 | $T2H_THIS_SECTION = \@stoc_lines; |
---|
2433 | t2h_print_Overview(\*FILE); |
---|
2434 | close(FILE) if $T2H_SPLIT; |
---|
2435 | } |
---|
2436 | |
---|
2437 | if ($about_body = t2h_about_body()) |
---|
2438 | { |
---|
2439 | print "# writing About in $docu_about_file...\n" if $T2H_VERBOSE; |
---|
2440 | open (FILE, "> $docu_about_file") || die "$ERROR: Can't open $docu_about_file for writing: $!\n" |
---|
2441 | if $T2H_SPLIT; |
---|
2442 | |
---|
2443 | $T2H_HREF{This} = $T2H_HREF{About}; |
---|
2444 | $T2H_NAME{This} = $T2H_NAME{About}; |
---|
2445 | $T2H_THIS_SECTION = [$about_body]; |
---|
2446 | t2h_print_About(\*FILE); |
---|
2447 | close(FILE) if $T2H_SPLIT; |
---|
2448 | } |
---|
2449 | |
---|
2450 | unless ($T2H_SPLIT) |
---|
2451 | { |
---|
2452 | t2h_print_page_foot(\*FILE); |
---|
2453 | close (FILE); |
---|
2454 | } |
---|
2455 | |
---|
2456 | Finish: |
---|
2457 | &l2h_FinishFromHtml if ($T2H_L2H); |
---|
2458 | &l2h_Finish if($T2H_L2H); |
---|
2459 | print "# that's all folks\n" if $T2H_VERBOSE; |
---|
2460 | |
---|
2461 | exit(0); |
---|
2462 | |
---|
2463 | #+++############################################################################ |
---|
2464 | # # |
---|
2465 | # Low level functions # |
---|
2466 | # # |
---|
2467 | #---############################################################################ |
---|
2468 | |
---|
2469 | sub clean_name |
---|
2470 | { |
---|
2471 | local ($_); |
---|
2472 | $_ = &remove_style($_[0]); |
---|
2473 | &unprotect_texi; |
---|
2474 | return $_; |
---|
2475 | } |
---|
2476 | |
---|
2477 | sub update_sec_num { |
---|
2478 | local($name, $level) = @_; |
---|
2479 | my $ret; |
---|
2480 | |
---|
2481 | $level--; # here we start at 0 |
---|
2482 | if ($name =~ /^appendix/ || defined(@appendix_sec_num)) { |
---|
2483 | # appendix style |
---|
2484 | if (defined(@appendix_sec_num)) { |
---|
2485 | &incr_sec_num($level, @appendix_sec_num); |
---|
2486 | } else { |
---|
2487 | @appendix_sec_num = ('A', 0, 0, 0); |
---|
2488 | } |
---|
2489 | $ret = join('.', @appendix_sec_num[0..$level]); |
---|
2490 | } else { |
---|
2491 | # normal style |
---|
2492 | if (defined(@normal_sec_num)) |
---|
2493 | { |
---|
2494 | &incr_sec_num($level, @normal_sec_num); |
---|
2495 | } |
---|
2496 | else |
---|
2497 | { |
---|
2498 | @normal_sec_num = (1, 0, 0, 0); |
---|
2499 | } |
---|
2500 | $ret = join('.', @normal_sec_num[0..$level]); |
---|
2501 | } |
---|
2502 | |
---|
2503 | $ret .= "." if $level == 0; |
---|
2504 | return $ret; |
---|
2505 | } |
---|
2506 | |
---|
2507 | sub incr_sec_num { |
---|
2508 | local($level, $l); |
---|
2509 | $level = shift(@_); |
---|
2510 | $_[$level]++; |
---|
2511 | foreach $l ($level+1 .. 3) { |
---|
2512 | $_[$l] = 0; |
---|
2513 | } |
---|
2514 | } |
---|
2515 | |
---|
2516 | sub check { |
---|
2517 | local($_, %seen, %context, $before, $match, $after); |
---|
2518 | |
---|
2519 | while (<>) { |
---|
2520 | if (/\@(\*|\.|\:|\@|\{|\})/) { |
---|
2521 | $seen{$&}++; |
---|
2522 | $context{$&} .= "> $_" if $T2H_VERBOSE; |
---|
2523 | $_ = "$`XX$'"; |
---|
2524 | redo; |
---|
2525 | } |
---|
2526 | if (/\@(\w+)/) { |
---|
2527 | ($before, $match, $after) = ($`, $&, $'); |
---|
2528 | if ($before =~ /\b[\w-]+$/ && $after =~ /^[\w-.]*\b/) { # e-mail address |
---|
2529 | $seen{'e-mail address'}++; |
---|
2530 | $context{'e-mail address'} .= "> $_" if $T2H_VERBOSE; |
---|
2531 | } else { |
---|
2532 | $seen{$match}++; |
---|
2533 | $context{$match} .= "> $_" if $T2H_VERBOSE; |
---|
2534 | } |
---|
2535 | $match =~ s/^\@/X/; |
---|
2536 | $_ = "$before$match$after"; |
---|
2537 | redo; |
---|
2538 | } |
---|
2539 | } |
---|
2540 | |
---|
2541 | foreach (sort(keys(%seen))) { |
---|
2542 | if ($T2H_VERBOSE) { |
---|
2543 | print "$_\n"; |
---|
2544 | print $context{$_}; |
---|
2545 | } else { |
---|
2546 | print "$_ ($seen{$_})\n"; |
---|
2547 | } |
---|
2548 | } |
---|
2549 | } |
---|
2550 | |
---|
2551 | sub open { |
---|
2552 | local($name) = @_; |
---|
2553 | |
---|
2554 | ++$fh_name; |
---|
2555 | if (open($fh_name, $name)) { |
---|
2556 | unshift(@fhs, $fh_name); |
---|
2557 | } else { |
---|
2558 | warn "$ERROR Can't read file $name: $!\n"; |
---|
2559 | } |
---|
2560 | } |
---|
2561 | |
---|
2562 | sub init_input { |
---|
2563 | @fhs = (); # hold the file handles to read |
---|
2564 | @input_spool = (); # spooled lines to read |
---|
2565 | $fh_name = 'FH000'; |
---|
2566 | &open($docu); |
---|
2567 | } |
---|
2568 | |
---|
2569 | sub next_line { |
---|
2570 | local($fh, $line); |
---|
2571 | |
---|
2572 | if (@input_spool) { |
---|
2573 | $line = shift(@input_spool); |
---|
2574 | return($line); |
---|
2575 | } |
---|
2576 | while (@fhs) { |
---|
2577 | $fh = $fhs[0]; |
---|
2578 | $line = <$fh>; |
---|
2579 | return($line) if $line; |
---|
2580 | close($fh); |
---|
2581 | shift(@fhs); |
---|
2582 | } |
---|
2583 | return(undef); |
---|
2584 | } |
---|
2585 | |
---|
2586 | # used in pass 1, use &next_line |
---|
2587 | sub skip_until { |
---|
2588 | local($tag) = @_; |
---|
2589 | local($_); |
---|
2590 | |
---|
2591 | while ($_ = &next_line) { |
---|
2592 | return if /^\@end\s+$tag\s*$/; |
---|
2593 | } |
---|
2594 | die "* Failed to find '$tag' after: " . $lines[$#lines]; |
---|
2595 | } |
---|
2596 | |
---|
2597 | # used in pass 1 for l2h use &next_line |
---|
2598 | sub string_until { |
---|
2599 | local($tag) = @_; |
---|
2600 | local($_, $string); |
---|
2601 | |
---|
2602 | while ($_ = &next_line) { |
---|
2603 | return $string if /^\@end\s+$tag\s*$/; |
---|
2604 | # $_ =~ s/hbox/mbox/g; |
---|
2605 | $string = $string.$_; |
---|
2606 | } |
---|
2607 | die "* Failed to find '$tag' after: " . $lines[$#lines]; |
---|
2608 | } |
---|
2609 | |
---|
2610 | # |
---|
2611 | # HTML stacking to have a better HTML output |
---|
2612 | # |
---|
2613 | |
---|
2614 | sub html_reset { |
---|
2615 | @html_stack = ('html'); |
---|
2616 | $html_element = 'body'; |
---|
2617 | } |
---|
2618 | |
---|
2619 | sub html_push { |
---|
2620 | local($what) = @_; |
---|
2621 | push(@html_stack, $html_element); |
---|
2622 | $html_element = $what; |
---|
2623 | } |
---|
2624 | |
---|
2625 | sub html_push_if { |
---|
2626 | local($what) = @_; |
---|
2627 | push(@html_stack, $html_element) |
---|
2628 | if ($html_element && $html_element ne 'P'); |
---|
2629 | $html_element = $what; |
---|
2630 | } |
---|
2631 | |
---|
2632 | sub html_pop { |
---|
2633 | $html_element = pop(@html_stack); |
---|
2634 | } |
---|
2635 | |
---|
2636 | sub html_pop_if { |
---|
2637 | local($elt); |
---|
2638 | |
---|
2639 | if (@_) { |
---|
2640 | foreach $elt (@_) { |
---|
2641 | if ($elt eq $html_element) { |
---|
2642 | $html_element = pop(@html_stack) if @html_stack; |
---|
2643 | last; |
---|
2644 | } |
---|
2645 | } |
---|
2646 | } else { |
---|
2647 | $html_element = pop(@html_stack) if @html_stack; |
---|
2648 | } |
---|
2649 | } |
---|
2650 | |
---|
2651 | sub html_debug { |
---|
2652 | local($what, $line) = @_; |
---|
2653 | return("<!-- $line @html_stack, $html_element -->$what") |
---|
2654 | if $T2H_DEBUG & $DEBUG_HTML; |
---|
2655 | return($what); |
---|
2656 | } |
---|
2657 | |
---|
2658 | # to debug the output... |
---|
2659 | sub debug { |
---|
2660 | local($what, $line) = @_; |
---|
2661 | return("<!-- $line -->$what") |
---|
2662 | if $T2H_DEBUG & $DEBUG_HTML; |
---|
2663 | return($what); |
---|
2664 | } |
---|
2665 | |
---|
2666 | sub normalise_node { |
---|
2667 | $_[0] =~ s/\s+/ /g; |
---|
2668 | $_[0] =~ s/ $//; |
---|
2669 | $_[0] =~ s/^ //; |
---|
2670 | } |
---|
2671 | |
---|
2672 | sub menu_entry { |
---|
2673 | local($entry, $node, $descr) = @_; |
---|
2674 | local($href); |
---|
2675 | |
---|
2676 | &normalise_node($node); |
---|
2677 | $href = $node2href{$node}; |
---|
2678 | if ($href) { |
---|
2679 | $descr =~ s/^\s+//; |
---|
2680 | if ($T2H_NUMBER_SECTIONS) |
---|
2681 | { |
---|
2682 | $entry = $node2sec{$entry} if ! $descr && $node2sec{$entry}; |
---|
2683 | push(@lines2, |
---|
2684 | '<TR><TD ALIGN="left">' . |
---|
2685 | &t2h_anchor('', $href, $entry) . |
---|
2686 | '</TD><TD ALIGN="left">' . $descr . "</TD><TR>\n"); |
---|
2687 | } |
---|
2688 | else |
---|
2689 | { |
---|
2690 | push(@lines2, "<LI>" . &t2h_anchor('', $href, $entry) . ": $descr\n"); |
---|
2691 | } |
---|
2692 | } else { |
---|
2693 | warn "$ERROR Undefined node ($node): $_"; |
---|
2694 | } |
---|
2695 | } |
---|
2696 | |
---|
2697 | sub do_ctrl { "^$_[0]" } |
---|
2698 | |
---|
2699 | sub do_email { |
---|
2700 | local($addr, $text) = split(/,\s*/, $_[0]); |
---|
2701 | |
---|
2702 | $text = $addr unless $text; |
---|
2703 | &t2h_anchor('', "mailto:$addr", $text); |
---|
2704 | } |
---|
2705 | |
---|
2706 | sub do_sc |
---|
2707 | { |
---|
2708 | # l2h does this much better |
---|
2709 | return &l2h_ToLatex("{\\sc ".&unprotect_html($_[0])."}") if ($T2H_L2H); |
---|
2710 | return "\U$_[0]\E"; |
---|
2711 | } |
---|
2712 | |
---|
2713 | sub do_math |
---|
2714 | { |
---|
2715 | return &l2h_ToLatex("\$".&unprotect_html($_[0])."\$") if ($T2H_L2H); |
---|
2716 | return "<EM>".$text."</EM>"; |
---|
2717 | } |
---|
2718 | |
---|
2719 | sub do_uref { |
---|
2720 | local($url, $text, $only_text) = split(/,\s*/, $_[0]); |
---|
2721 | |
---|
2722 | $text = $only_text if $only_text; |
---|
2723 | $text = $url unless $text; |
---|
2724 | &t2h_anchor('', $url, $text); |
---|
2725 | } |
---|
2726 | |
---|
2727 | sub do_url { &t2h_anchor('', $_[0], $_[0]) } |
---|
2728 | |
---|
2729 | sub apply_style { |
---|
2730 | local($texi_style, $text) = @_; |
---|
2731 | local($style); |
---|
2732 | |
---|
2733 | $style = $style_map{$texi_style}; |
---|
2734 | if (defined($style)) { # known style |
---|
2735 | if ($style =~ /^\"/) { # add quotes |
---|
2736 | $style = $'; |
---|
2737 | $text = "\`$text\'"; |
---|
2738 | } |
---|
2739 | if ($style =~ /^\&/) { # custom |
---|
2740 | $style = $'; |
---|
2741 | $text = &$style($text); |
---|
2742 | } elsif ($style) { # good style |
---|
2743 | $text = "<$style>$text</$style>"; |
---|
2744 | } else { # no style |
---|
2745 | } |
---|
2746 | } else { # unknown style |
---|
2747 | $text = undef; |
---|
2748 | } |
---|
2749 | return($text); |
---|
2750 | } |
---|
2751 | |
---|
2752 | # remove Texinfo styles |
---|
2753 | sub remove_style { |
---|
2754 | local($_) = @_; |
---|
2755 | s/\@\w+{([^\{\}]+)}/$1/g; |
---|
2756 | return($_); |
---|
2757 | } |
---|
2758 | |
---|
2759 | sub substitute_style { |
---|
2760 | local($_) = @_; |
---|
2761 | local($changed, $done, $style, $text); |
---|
2762 | |
---|
2763 | $changed = 1; |
---|
2764 | while ($changed) { |
---|
2765 | $changed = 0; |
---|
2766 | $done = ''; |
---|
2767 | while (/\@(\w+){([^\{\}]+)}/) { |
---|
2768 | $text = &apply_style($1, $2); |
---|
2769 | if ($text) { |
---|
2770 | $_ = "$`$text$'"; |
---|
2771 | $changed = 1; |
---|
2772 | } else { |
---|
2773 | $done .= "$`\@$1"; |
---|
2774 | $_ = "{$2}$'"; |
---|
2775 | } |
---|
2776 | } |
---|
2777 | $_ = $done . $_; |
---|
2778 | } |
---|
2779 | return($_); |
---|
2780 | } |
---|
2781 | |
---|
2782 | sub t2h_anchor { |
---|
2783 | local($name, $href, $text, $newline) = @_; |
---|
2784 | local($result); |
---|
2785 | |
---|
2786 | $result = "<A"; |
---|
2787 | $result .= " NAME=\"$name\"" if $name; |
---|
2788 | $result .= " HREF=\"$href\"" if $href; |
---|
2789 | $result .= ">$text</A>"; |
---|
2790 | $result .= "\n" if $newline; |
---|
2791 | return($result); |
---|
2792 | } |
---|
2793 | |
---|
2794 | sub pretty_date { |
---|
2795 | local(@MoY, $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst); |
---|
2796 | |
---|
2797 | @MoY = ('January', 'February', 'March', 'April', 'May', 'June', |
---|
2798 | 'July', 'August', 'September', 'October', 'November', 'December'); |
---|
2799 | ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); |
---|
2800 | $year += ($year < 70) ? 2000 : 1900; |
---|
2801 | # obachman: Let's do it as the Americans do |
---|
2802 | return("$MoY[$mon], $mday $year"); |
---|
2803 | } |
---|
2804 | |
---|
2805 | sub doc_href { |
---|
2806 | local($num) = @_; |
---|
2807 | |
---|
2808 | return("${docu_name}_$num.$docu_ext"); |
---|
2809 | } |
---|
2810 | |
---|
2811 | sub sec_href |
---|
2812 | { |
---|
2813 | return $node2href{$sec2node{$_[0]}}; |
---|
2814 | } |
---|
2815 | |
---|
2816 | sub next_doc { |
---|
2817 | $docu_doc = &doc_href(++$doc_num); |
---|
2818 | } |
---|
2819 | |
---|
2820 | sub t2h_print_lines { |
---|
2821 | my ($fh, $lines) = @_; |
---|
2822 | local($_); |
---|
2823 | $lines = $T2H_THIS_SECTION unless $lines; |
---|
2824 | my $cnt = 0; |
---|
2825 | for (@$lines) |
---|
2826 | { |
---|
2827 | $_ = l2h_FromHtml($_) if ($T2H_L2H); |
---|
2828 | if (/^$PROTECTTAG/o) { |
---|
2829 | $_ = $tag2pro{$_}; |
---|
2830 | } else { |
---|
2831 | &unprotect_texi; |
---|
2832 | } |
---|
2833 | print $fh $_; |
---|
2834 | $cnt += split(/\W*\s+\W*/); |
---|
2835 | } |
---|
2836 | return $cnt; |
---|
2837 | } |
---|
2838 | |
---|
2839 | sub protect_texi { |
---|
2840 | # protect @ { } ` ' |
---|
2841 | s/\@\@/$;0/go; |
---|
2842 | s/\@\{/$;1/go; |
---|
2843 | s/\@\}/$;2/go; |
---|
2844 | s/\@\`/$;3/go; |
---|
2845 | s/\@\'/$;4/go; |
---|
2846 | } |
---|
2847 | |
---|
2848 | sub protect_html { |
---|
2849 | local($what) = @_; |
---|
2850 | # protect & < > |
---|
2851 | $what =~ s/\&/\&\#38;/g; |
---|
2852 | $what =~ s/\</\&\#60;/g; |
---|
2853 | $what =~ s/\>/\&\#62;/g; |
---|
2854 | # but recognize some HTML things |
---|
2855 | $what =~ s/\&\#60;\/A\&\#62;/<\/A>/g; # </A> |
---|
2856 | $what =~ s/\&\#60;A ([^\&]+)\&\#62;/<A $1>/g; # <A [^&]+> |
---|
2857 | $what =~ s/\&\#60;IMG ([^\&]+)\&\#62;/<IMG $1>/g; # <IMG [^&]+> |
---|
2858 | return($what); |
---|
2859 | } |
---|
2860 | |
---|
2861 | sub unprotect_texi { |
---|
2862 | s/$;0/\@/go; |
---|
2863 | s/$;1/\{/go; |
---|
2864 | s/$;2/\}/go; |
---|
2865 | s/$;3/\`/go; |
---|
2866 | s/$;4/\'/go; |
---|
2867 | } |
---|
2868 | |
---|
2869 | sub unprotect_html { |
---|
2870 | local($what) = @_; |
---|
2871 | $what =~ s/\&\#38;/\&/g; |
---|
2872 | $what =~ s/\&\#60;/\</g; |
---|
2873 | $what =~ s/\&\#62;/\>/g; |
---|
2874 | return($what); |
---|
2875 | } |
---|
2876 | |
---|
2877 | sub byalpha { |
---|
2878 | $key2alpha{$a} cmp $key2alpha{$b}; |
---|
2879 | } |
---|
2880 | |
---|
2881 | sub t2h_print_label |
---|
2882 | { |
---|
2883 | my $fh = shift; |
---|
2884 | my $href = shift || $T2H_HREF{This}; |
---|
2885 | $href =~ s/.*#(.*)$/$1/; |
---|
2886 | print $fh qq{<A NAME="$href"></A>\n}; |
---|
2887 | } |
---|
2888 | |
---|
2889 | ############################################################################## |
---|
2890 | |
---|
2891 | # These next few lines are legal in both Perl and nroff. |
---|
2892 | |
---|
2893 | .00 ; # finish .ig |
---|
2894 | |
---|
2895 | 'di \" finish diversion--previous line must be blank |
---|
2896 | .nr nl 0-1 \" fake up transition to first page again |
---|
2897 | .nr % 0 \" start at page 1 |
---|
2898 | '; __END__ ############# From here on it's a standard manual page ############ |
---|
2899 | .TH TEXI2HTML 1 "01/05/98" |
---|
2900 | .AT 3 |
---|
2901 | .SH NAME |
---|
2902 | texi2html \- a Texinfo to HTML converter |
---|
2903 | .SH SYNOPSIS |
---|
2904 | .B texi2html [options] file |
---|
2905 | .PP |
---|
2906 | .B texi2html -check [-verbose] files |
---|
2907 | .SH DESCRIPTION |
---|
2908 | .I Texi2html |
---|
2909 | converts the given Texinfo file to a set of HTML files. It tries to handle |
---|
2910 | most of the Texinfo commands. It creates hypertext links for cross-references, |
---|
2911 | footnotes... |
---|
2912 | .PP |
---|
2913 | It also tries to add links from a reference to its corresponding entry in the |
---|
2914 | bibliography (if any). It may also handle a glossary (see the |
---|
2915 | .B \-glossary |
---|
2916 | option). |
---|
2917 | .PP |
---|
2918 | .I Texi2html |
---|
2919 | may furthermore use latex2html to generate HTML (code and/or images) for @math |
---|
2920 | and @iftex tags (see the |
---|
2921 | .B \-l2h |
---|
2922 | option). |
---|
2923 | .PP |
---|
2924 | .I Texi2html |
---|
2925 | creates several files depending on the contents of the Texinfo file and on |
---|
2926 | the chosen options (see FILES). |
---|
2927 | .PP |
---|
2928 | The HTML files created by |
---|
2929 | .I texi2html |
---|
2930 | are closer to TeX than to Info, that's why |
---|
2931 | .SH OPTIONS |
---|
2932 | .TP 12 |
---|
2933 | .B \-check |
---|
2934 | Check the given file and give the list of all things that may be Texinfo commands. |
---|
2935 | This may be used to check the output of |
---|
2936 | .I texi2html |
---|
2937 | to find the Texinfo commands that have been left in the HTML file. |
---|
2938 | .TP |
---|
2939 | .B \-expand info|tex|none |
---|
2940 | Expand @ifinfo, or @iftex, or sections (default: info) |
---|
2941 | .TP |
---|
2942 | .B \-glossary |
---|
2943 | Use the section named 'Glossary' to build a list of terms and put links in the HTML |
---|
2944 | document from each term toward its definition. |
---|
2945 | .TP |
---|
2946 | .B \-invisible \fIname\fP |
---|
2947 | Use \fIname\fP to create invisible destination anchors for index links |
---|
2948 | (you can for instance use the invisible.xbm file shipped with this program). |
---|
2949 | This is a workaround for a known bug of many WWW browsers, including netscape. |
---|
2950 | .TP |
---|
2951 | .B \-I \fIdir\fP |
---|
2952 | Look also in \fIdir\fP to find included files. |
---|
2953 | .TP |
---|
2954 | .B \-menu |
---|
2955 | Show the Texinfo menus; by default they are ignored. |
---|
2956 | .TP |
---|
2957 | .B \-monolithic |
---|
2958 | Output only one file, including the table of contents and footnotes. |
---|
2959 | .TP |
---|
2960 | .B \-number |
---|
2961 | Number the sections. |
---|
2962 | .TP |
---|
2963 | .B \-split_chapter |
---|
2964 | Split the output into several HTML files (one per main section: |
---|
2965 | chapter, appendix...). |
---|
2966 | .TP |
---|
2967 | .B \-split_node |
---|
2968 | Split the output into several HTML files (one per node). |
---|
2969 | .TP |
---|
2970 | .B \-l2h |
---|
2971 | Use latex2html for content of @math and @tex tags. Content must be such that |
---|
2972 | both, latex and tex, can translate it correctly. I.e., no tex-only constructs |
---|
2973 | must be used. |
---|
2974 | .TP |
---|
2975 | .B \-l2h_latex2html \fIprog\fP |
---|
2976 | Use \fIprog\fP as latex2html program (default \fIlatex2html\fP). |
---|
2977 | Program must be executable. |
---|
2978 | .TP |
---|
2979 | .B \-l2h_init \fIfile\fP |
---|
2980 | Use \fIfile\fP as latex2html init file. \fIfile\fP should be used to specify in which way latex2html handles mathematical expressions and formulas. |
---|
2981 | |
---|
2982 | Note that latex2html locates |
---|
2983 | (and uses) init-files in the following order (provided they exist): |
---|
2984 | (1) global init file (usually in latex2html source dir) |
---|
2985 | (2) $HOME/.latex2html_init |
---|
2986 | (3) ./.latex2html_init |
---|
2987 | (4) init file given on command line. |
---|
2988 | .TP |
---|
2989 | .B \-l2h_dir \fIdir\fP |
---|
2990 | Use \fIdir\fP as tmp dir for latex2html. This directory (resp. its path) |
---|
2991 | must not contain a dot (i.e., a "."). |
---|
2992 | .TP |
---|
2993 | .B \-l2h_clean |
---|
2994 | remove all intermediate files generated by latex2html (prevents caching!) |
---|
2995 | .TP |
---|
2996 | .B \-l2h_skip |
---|
2997 | Do not really run latex2html. Use (kept) files of previous runs, instead. |
---|
2998 | .TP |
---|
2999 | .B \-usage |
---|
3000 | Print usage instructions, listing the current available command-line options. |
---|
3001 | .TP |
---|
3002 | .B \-verbose |
---|
3003 | Give a verbose output. Can be used with the |
---|
3004 | .B \-check |
---|
3005 | option. |
---|
3006 | .PP |
---|
3007 | .SH FILES |
---|
3008 | By default |
---|
3009 | .I texi2html |
---|
3010 | creates the following files (foo being the name of the Texinfo file): |
---|
3011 | .TP 16 |
---|
3012 | .B foo_toc.html |
---|
3013 | The table of contents. |
---|
3014 | .TP |
---|
3015 | .B foo.html |
---|
3016 | The document's contents. |
---|
3017 | .TP |
---|
3018 | .B foo_foot.html |
---|
3019 | The footnotes (if any). |
---|
3020 | .TP |
---|
3021 | .B foo_l2h_img* |
---|
3022 | Images generated by latex2html (if any). |
---|
3023 | .PP |
---|
3024 | When used with the |
---|
3025 | .B \-split |
---|
3026 | option, it creates several files (one per chapter or node), named |
---|
3027 | .B foo_n.html |
---|
3028 | (n being the index of the chapter or node), instead of the single |
---|
3029 | .B foo.html |
---|
3030 | file. |
---|
3031 | .PP |
---|
3032 | When used with the |
---|
3033 | .B \-monolithic |
---|
3034 | option, it creates only one file: |
---|
3035 | .B foo.html |
---|
3036 | .SH VARIABLES |
---|
3037 | .I texi2html |
---|
3038 | predefines the following variables: \fBhtml\fP, \fBtexi2html\fP. |
---|
3039 | .SH ADDITIONAL COMMANDS |
---|
3040 | .I texi2html |
---|
3041 | implements the following non-Texinfo commands (maybe they are in Texinfo now...): |
---|
3042 | .TP 16 |
---|
3043 | .B @html |
---|
3044 | This indicates the start of an HTML section, this section will passed through |
---|
3045 | without any modification. |
---|
3046 | .TP |
---|
3047 | .B @end html |
---|
3048 | This indicates the end of an HTML section. |
---|
3049 | .SH VERSION |
---|
3050 | This is \fItexi2html\fP version 1.56k, 1999-02-20. |
---|
3051 | .PP |
---|
3052 | The latest version of \fItexi2html\fP and \fIlatex22html\fPcan be found in WWW, cf. URLs |
---|
3053 | http://wwwinfo.cern.ch/dis/texi2html/ |
---|
3054 | .br |
---|
3055 | http://texinfo.org/texi2html/ |
---|
3056 | .br |
---|
3057 | http://www-dsed.llnl.gov/files/programs/unix/latex2html |
---|
3058 | .br |
---|
3059 | .SH AUTHOR |
---|
3060 | The main author is Lionel Cons, CERN IT/DIS/OSE, Lionel.Cons@cern.ch. |
---|
3061 | Many other people around the net contributed to this program. |
---|
3062 | .SH COPYRIGHT |
---|
3063 | This program is the intellectual property of the European |
---|
3064 | Laboratory for Particle Physics (known as CERN). No guarantee whatsoever is |
---|
3065 | provided by CERN. No liability whatsoever is accepted for any loss or damage |
---|
3066 | of any kind resulting from any defect or inaccuracy in this information or |
---|
3067 | code. |
---|
3068 | .PP |
---|
3069 | CERN, 1211 Geneva 23, Switzerland |
---|
3070 | .SH "SEE ALSO" |
---|
3071 | GNU Texinfo Documentation Format, |
---|
3072 | HyperText Markup Language (HTML), |
---|
3073 | World Wide Web (WWW). |
---|
3074 | .SH BUGS |
---|
3075 | This program does not understand all Texinfo commands (yet). A row of |
---|
3076 | a mutlicolumn table has to be in one line. |
---|
3077 | .PP |
---|
3078 | TeX specific commands (normally enclosed in @iftex) will be |
---|
3079 | passed over unmodified, unless latex2html is enabled. |
---|
3080 | .ex |
---|