Context Navigation

source: git/doc/texi2html @ 94fcf4

spielwiese

Last change on this file since 94fcf4 was 94fcf4, checked in by Kai Krüger <krueger@…>, 26 years ago
* empty log message * git-svn-id: file:///usr/local/Singular/svn/trunk@2088 2c84dea3-7e68-4137-9b89-c4e89433aadc
Property mode set to `100644`
File size: 60.4 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats: