| version 1.2, 2009/02/22 04:59:56 |
version 1.3, 2017/03/28 23:22:20 |
|
|
| eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' |
#! /usr/local/bin/perl -- |
| if 0; |
# perl |
| 'di '; |
'di '; |
| 'ig 00 '; |
'ig 00 '; |
| |
# texi2html: generated by addformats.sh from texi2html.temp and formats/html.init formats/info.init formats/docbook.init formats/xml.init formats/plaintext.init |
| |
# texi2html.temp: generated by buildt2h.sh from texi2html_configured.pl and MySimple.pm T2h_i18n.pm texi2html.init translations.pl examples/l2h.init T2h_l2h.pm documentlanguages.pl |
| #+############################################################################## |
#+############################################################################## |
| # # |
# |
| # File: texi2html # |
# texi2html: Program to transform Texinfo documents to HTML |
| # # |
# |
| # Description: Program to transform most Texinfo documents to HTML # |
# Copyright (C) 1999-2010 Patrice Dumas <pertusus@free.fr>, |
| # # |
# Derek Price <derek@ximbiot.com>, |
| |
# Adrian Aichner <adrian@xemacs.org>, |
| |
# & others. |
| |
# |
| |
# This program is free software; you can redistribute it and/or modify |
| |
# it under the terms of the GNU General Public License as published by |
| |
# the Free Software Foundation; either version 2 of the License, or |
| |
# (at your option) any later version. |
| |
# |
| |
# This program is distributed in the hope that it will be useful, |
| |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
| |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| |
# GNU General Public License for more details. |
| |
# |
| |
# You should have received a copy of the GNU General Public License |
| |
# along with this program; if not, write to the Free Software |
| |
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
| |
# 02110-1301 USA |
| |
# |
| |
# Some error messages come from texinfo (makeinfo), so copyright holder |
| |
# is the FSF or the individual who wrote them. All come from before the |
| |
# switch of texinfo to GPLv3+. |
| |
# |
| #-############################################################################## |
#-############################################################################## |
| |
# The man page for this program is included at the end of this file and can be |
| |
# viewed using the command 'nroff -man texi2html'. |
| |
|
| # From @(#)texi2html 1.52 01/05/98 Written (mainly) by Lionel Cons, Lionel.Cons@cern.ch |
# for POSIX::setlocale and File::Spec |
| |
require 5.00405; |
| |
# Perl pragma to restrict unsafe constructs |
| |
use strict; |
| |
# used in case of tests, to revert to "C" locale. |
| |
use POSIX qw(setlocale LC_ALL LC_CTYPE); |
| |
# used to obtain the name of the current working directory |
| |
use Cwd; |
| |
# Used to find the parent directory of this script. |
| |
use File::Basename; |
| |
# used to find a relative path back to the current working directory |
| |
use File::Spec; |
| |
# to determine the path separator and null file |
| |
use Config; |
| |
|
| |
#use encoding::warnings; |
| |
# for translations |
| |
#use encoding 'utf8'; |
| |
#use utf8; |
| |
|
| |
# |
| |
# According to |
| |
# larry.jones@sdrc.com (Larry Jones) |
| |
# this pragma is not present in perl5.004_02: |
| |
# |
| |
# Perl pragma to control optional warnings |
| |
# use warnings; |
| |
|
| |
# determine the path separators |
| |
my $path_separator = $Config{'path_sep'}; |
| |
$path_separator = ':' if (!defined($path_separator)); |
| |
my $quoted_path_separator = quotemeta($path_separator); |
| |
|
| |
#++########################################################################## |
| |
# |
| |
# NOTE FOR DEBUGGING THIS SCRIPT: |
| |
# You can run 'perl -x texi2html.pl' directly, provided you have the script |
| |
# in the same directory with, or the environment variable T2H_HOME set to |
| |
# the directory containing, the texi2html.init, T2h_i18n.pm, translations.pl, |
| |
# l2h.init, & T2h_l2h.pm files. Ditto makeinfo.pl, if you make it a |
| |
# symlink to texi2html.pl. |
| |
# |
| |
#--########################################################################## |
| |
my $T2H_HOME = defined $ENV{T2H_HOME} ? $ENV{T2H_HOME} : dirname $0; |
| |
if ($0 =~ /\.pl$/) |
| |
{ |
| |
# Issue a warning in debugging mode if $T2H_HOME is set but isn't |
| |
# accessible. |
| |
if (!-e $T2H_HOME) |
| |
{ warn "T2H_HOME ($T2H_HOME) does not exist."; } |
| |
elsif (!-d $T2H_HOME) |
| |
{ warn "T2H_HOME ($T2H_HOME) is not a directory."; } |
| |
elsif (!-x $T2H_HOME) |
| |
{ warn "T2H_HOME ($T2H_HOME) is not accessible."; } |
| |
} |
| |
|
| |
# CVS version: |
| # $Id$ |
# $Id$ |
| # This version of texi2html is currently maintained at |
|
| # ftp://ftp.cs.umb.edu/pub/tex/texi2html by kb@cs.umb.edu. |
|
| |
|
| # The man page for this program is included at the end of this file and can be |
# FIXME. Change for texinfo, and also simplify. |
| # viewed using the command 'nroff -man texi2html'. |
|
| # Please read the copyright at the end of the man page. |
|
| |
|
| #+++############################################################################ |
# Homepage: |
| # # |
my $T2H_HOMEPAGE = "http://www.nongnu.org/texi2html/"; |
| # Constants # |
|
| # # |
|
| #---############################################################################ |
|
| |
|
| $DEBUG_TOC = 1; |
# Authors (appears in comments): |
| $DEBUG_INDEX = 2; |
my $T2H_AUTHORS = <<EOT; |
| $DEBUG_BIB = 4; |
texi2html was written by: |
| $DEBUG_GLOSS = 8; |
Lionel Cons <Lionel.Cons\@cern.ch> (original author) |
| $DEBUG_DEF = 16; |
Karl Berry <karl\@freefriends.org> |
| $DEBUG_HTML = 32; |
Olaf Bachmann <obachman\@mathematik.uni-kl.de> |
| $DEBUG_USER = 64; |
and many others. |
| |
Maintained by: Many creative people. |
| |
Send bugs and suggestions to <texi2html-bug\@nongnu.org> |
| |
EOT |
| |
|
| $BIBRE = '\[[\w\/-]+\]'; # RE for a bibliography reference |
# Version: set in configure.in |
| $FILERE = '[\/\w.+-]+'; # RE for a file name |
my $THISVERSION = '5.0'; |
| $VARRE = '[^\s\{\}]+'; # RE for a variable name |
my $THISPROG = "texi2html $THISVERSION"; # program name and version |
| $NODERE = '[^@{}:\'`",]+'; # RE for a node name |
|
| $NODESRE = '[^@{}:\'`"]+'; # RE for a list of node names |
|
| $XREFRE = '[^@{}]+'; # RE for a xref (should use NODERE) |
|
| |
|
| $ERROR = "***"; # prefix for errors and warnings |
#+++######################################################################## |
| $THISVERSION = "1.56k"; |
# # |
| $THISPROG = "texi2html $THISVERSION"; # program name and version |
# Paths and file names # |
| $HOMEPAGE = "http://wwwinfo.cern.ch/dis/texi2html/"; # program home page |
# # |
| $TODAY = &pretty_date; # like "20 September 1993" |
#---######################################################################## |
| $SPLITTAG = "<!-- SPLIT HERE -->\n"; # tag to know where to split |
|
| $PROTECTTAG = "_ThisIsProtected_"; # tag to recognize protected sections |
|
| $html2_doctype = '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0 Strict Level 2//EN">'; |
|
| |
|
| |
# set by configure, prefix for the sysconfdir and so on |
| |
my $prefix = '/usr/local'; |
| |
my $datarootdir;# = '${prefix}/share'; |
| |
my $sysconfdir; |
| |
my $pkgdatadir; |
| |
my $datadir; |
| |
|
| |
# We need to eval as $prefix has to be expanded. However when we haven't |
| |
# run configure @sysconfdir will be expanded as an array, thus we verify |
| |
# whether configure was run or not |
| |
if ('${prefix}/etc' ne '@' . 'sysconfdir@') |
| |
{ |
| |
$sysconfdir = eval '"${prefix}/etc"'; |
| |
} |
| |
else |
| |
{ |
| |
$sysconfdir = "/usr/local/etc"; |
| |
} |
| |
|
| |
if ('${prefix}/share' ne '@' . 'datarootdir@') |
| |
{ |
| |
$datarootdir = eval '"${prefix}/share"'; |
| |
} |
| |
else |
| |
{ |
| |
$datarootdir = "/usr/local/share"; |
| |
} |
| |
|
| |
if ('${datarootdir}' ne '@' . 'datadir@') |
| |
{ |
| |
$pkgdatadir = eval '"${datarootdir}/texi2html"'; |
| |
$datadir = eval '"${datarootdir}"'; |
| |
} |
| |
else |
| |
{ |
| |
$pkgdatadir = "/usr/local/share/texi2html"; |
| |
$datadir = "/usr/local/share"; |
| |
} |
| |
|
| |
my $target_prefix = "t_h"; |
| |
|
| |
|
| |
|
| |
#+++######################################################################## |
| |
# # |
| |
# Constants # |
| |
# # |
| |
#---######################################################################## |
| |
|
| |
my $DEBUG_MENU = 1; |
| |
my $DEBUG_INDEX = 2; |
| |
my $DEBUG_TEXI = 4; |
| |
my $DEBUG_MACROS = 8; |
| |
my $DEBUG_FORMATS = 16; |
| |
my $DEBUG_ELEMENTS = 32; |
| |
my $DEBUG_USER = 64; |
| |
my $DEBUG_L2H = 128; |
| |
|
| |
my $VARRE = '[\w\-]+'; # RE for a variable name |
| |
|
| |
my $MAX_LEVEL = 4; |
| |
my $MIN_LEVEL = 1; |
| |
|
| |
#+++######################################################################## |
| |
# # |
| |
# Command name and default format # |
| |
# # |
| |
#---######################################################################## |
| |
|
| |
my $real_command_name = $0; |
| |
$real_command_name =~ s/.*\///; |
| |
$real_command_name =~ s/\.pl$//; |
| |
|
| |
my %command_format = ( |
| |
'texi2html' => 'html', |
| |
'makeinfo' => 'info', |
| |
'texi2any' => 'raw-text', |
| |
); |
| |
|
| |
# Config files |
| |
|
| |
my $i18n_dir = 'i18n'; # name of the directory containing the per language files |
| |
my $conf_file_name = 'Config' ; |
| |
my $texinfo_htmlxref = 'htmlxref.cnf'; |
| |
|
| |
# directories for texinfo configuration files |
| |
my @texinfo_config_dirs = ('./.texinfo'); |
| |
push @texinfo_config_dirs, "$ENV{'HOME'}/.texinfo" if (defined($ENV{'HOME'})); |
| |
push @texinfo_config_dirs, "$sysconfdir/texinfo" if (defined($sysconfdir)); |
| |
push @texinfo_config_dirs, "$datadir/texinfo" if (defined($datadir)); |
| |
|
| |
my @program_config_dirs; |
| |
my @program_init_dirs; |
| |
|
| |
# program name dependent initializations: config directories and default |
| |
# format. |
| |
sub set_config_init_dirs_output($) |
| |
{ |
| |
my $program_name = shift; |
| |
if (!defined($command_format{$program_name})) |
| |
{ |
| |
# user can make any link to set $0, or use --program with an unknown name. |
| |
# In that case the default is to use texi2any |
| |
$program_name = 'texi2any'; |
| |
} |
| |
my $default_output_format = $command_format{$program_name}; |
| |
|
| |
|
| |
# directories for config files |
| |
@program_config_dirs = ('./'); |
| |
push @program_config_dirs, "$ENV{'HOME'}/.$program_name/" if (defined($ENV{'HOME'})); |
| |
push @program_config_dirs, "$sysconfdir/$program_name/" if (defined($sysconfdir)); |
| |
push @program_config_dirs, "$datadir/$program_name" if (defined($datadir)); |
| |
|
| |
# directories for init files |
| |
@program_init_dirs = @program_config_dirs; |
| |
# common directories for all command names |
| |
foreach my $texinfo_config_dir (@texinfo_config_dirs) |
| |
{ |
| |
push @program_init_dirs, "${texinfo_config_dir}/init/"; |
| |
} |
| |
$Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT = $default_output_format; |
| |
$Texi2HTML::Config::COMMAND_NAME = $program_name; |
| |
Texi2HTML::Config::t2h_default_load_format($default_output_format, 0); |
| |
} |
| |
|
| |
#+++########################################################################### |
| |
# # |
| |
# Initialization # |
| |
# Some declarations, some functions that are GPL and therefore cannot be in # |
| |
# texi2html.init, some functions that are not to be customized. # |
| |
# Pasted content of File $(srcdir)/texi2html.init: Default initializations # |
| |
# # |
| |
#---########################################################################### |
| |
{ |
| |
package Texi2HTML::Config; |
| |
|
| |
use Config; |
| |
|
| |
# customization options variables |
| |
|
| |
use vars qw( |
| |
$DEBUG |
| |
$PREFIX |
| |
$VERBOSE |
| |
$SUBDIR |
| |
$IDX_SUMMARY |
| |
$SPLIT |
| |
$SPLIT_SIZE |
| |
$SHORT_REF |
| |
@EXPAND |
| |
$TOP |
| |
$DOCTYPE |
| |
$FRAMESET_DOCTYPE |
| |
$ERROR_LIMIT |
| |
$CHECK |
| |
$TEST |
| |
$DUMP_TEXI |
| |
$MACRO_EXPAND |
| |
$CAPTION_STYLE |
| |
$USE_ISO |
| |
$TOP_FILE |
| |
$TOC_FILE |
| |
$FRAMES |
| |
$SHOW_MENU |
| |
$SHOW_TITLE |
| |
$NUMBER_SECTIONS |
| |
$NUMBER_FOOTNOTES |
| |
$USE_NODES |
| |
$USE_SECTIONS |
| |
$USE_NODE_TARGET |
| |
$USE_UNICODE |
| |
$USE_UNIDECODE |
| |
$TRANSLITERATE_FILE_NAMES |
| |
$NODE_FILES |
| |
$NODE_FILENAMES |
| |
$NODE_NAME_IN_MENU |
| |
$NODE_NAME_IN_INDEX |
| |
$AVOID_MENU_REDUNDANCY |
| |
$HEADERS |
| |
$NO_WARN |
| |
$FORCE |
| |
$MONOLITHIC |
| |
$SHORTEXTN |
| |
$EXTENSION |
| |
$OUT |
| |
$NOVALIDATE |
| |
$DEF_TABLE |
| |
$DOCUMENTLANGUAGE |
| |
$CONTENTS |
| |
$SHORTCONTENTS |
| |
$FOOTNOTESTYLE |
| |
$FILLCOLUMN |
| |
$SETCONTENTSAFTERTITLEPAGE |
| |
$SETSHORTCONTENTSAFTERTITLEPAGE |
| |
$KBDINPUTSTYLE |
| |
$FRENCHSPACING |
| |
$ALLOWCODEBREAKS |
| |
$SETFILENAME |
| |
$TOC_LINKS |
| |
$L2H |
| |
$L2H_L2H |
| |
$L2H_SKIP |
| |
$L2H_TMP |
| |
$L2H_CLEAN |
| |
$L2H_FILE |
| |
$L2H_HTML_VERSION |
| |
$EXTERNAL_DIR |
| |
@INCLUDE_DIRS |
| |
@PREPEND_DIRS |
| |
@CONF_DIRS |
| |
$IGNORE_PREAMBLE_TEXT |
| |
@CSS_FILES |
| |
@CSS_REFS |
| |
$INLINE_CONTENTS |
| |
$INLINE_INSERTCOPYING |
| |
$PARAGRAPHINDENT |
| |
$FIRSTPARAGRAPHINDENT |
| |
$ENABLE_ENCODING |
| |
$INTERNAL_LINKS |
| |
$DEFAULT_OUTPUT_FORMAT |
| |
$OUTPUT_FORMAT |
| |
$COMMAND_NAME |
| |
@COMMANDS |
| |
); |
| |
|
| |
# customization variables |
| |
use vars qw( |
| |
$ENCODING_NAME |
| |
$DOCUMENT_ENCODING |
| |
$OUT_ENCODING |
| |
$IN_ENCODING |
| |
$DEFAULT_ENCODING |
| |
$MENU_PRE_STYLE |
| |
$MENU_PRE_COMPLEX_FORMAT |
| |
$EXAMPLE_INDENT_CELL |
| |
$SMALL_EXAMPLE_INDENT_CELL |
| |
$SMALL_FONT_SIZE |
| |
$SMALL_RULE |
| |
$DEFAULT_RULE |
| |
$MIDDLE_RULE |
| |
$BIG_RULE |
| |
$TOP_HEADING |
| |
$INDEX_CHAPTER |
| |
$SPLIT_INDEX |
| |
$USE_MENU_DIRECTIONS |
| |
$USE_UP_FOR_ADJACENT_NODES |
| |
$AFTER_BODY_OPEN |
| |
$PRE_BODY_CLOSE |
| |
$EXTRA_HEAD |
| |
$VERTICAL_HEAD_NAVIGATION |
| |
$WORDS_IN_PAGE |
| |
$ICONS |
| |
$UNNUMBERED_SYMBOL_IN_MENU |
| |
$SIMPLE_MENU |
| |
$MENU_SYMBOL |
| |
$MENU_ENTRY_COLON |
| |
$INDEX_ENTRY_COLON |
| |
$USE_ACCESSKEY |
| |
$USE_REL_REV |
| |
$USE_LINKS |
| |
$OPEN_QUOTE_SYMBOL |
| |
$CLOSE_QUOTE_SYMBOL |
| |
$NO_NUMBER_FOOTNOTE_SYMBOL |
| |
$NO_BULLET_LIST_STYLE |
| |
$NO_BULLET_LIST_ATTRIBUTE |
| |
$NO_BULLET_LIST_CLASS |
| |
$TOP_NODE_FILE |
| |
$TOP_NODE_FILE_TARGET |
| |
$TOP_NODE_UP |
| |
$NODE_FILE_EXTENSION |
| |
$STDIN_DOCU_NAME |
| |
$STDOUT_DOCU_NAME |
| |
$BEFORE_OVERVIEW |
| |
$AFTER_OVERVIEW |
| |
$BEFORE_TOC_LINES |
| |
$AFTER_TOC_LINES |
| |
$NEW_CROSSREF_STYLE |
| |
$TOP_HEADING_AT_BEGINNING |
| |
$USE_NUMERIC_ENTITY |
| |
$USE_SETFILENAME |
| |
$USE_SETFILENAME_EXTENSION |
| |
$SEPARATE_DESCRIPTION |
| |
$IGNORE_BEFORE_SETFILENAME |
| |
$OVERVIEW_LINK_TO_TOC |
| |
$COMPLETE_IMAGE_PATHS |
| |
$DATE |
| |
%ACTIVE_ICONS |
| |
%NAVIGATION_TEXT |
| |
%PASSIVE_ICONS |
| |
%BUTTONS_NAME |
| |
%BUTTONS_GOTO |
| |
%BUTTONS_EXAMPLE |
| |
%BUTTONS_ACCESSKEY |
| |
%BUTTONS_REL |
| |
%BUTTONS_TEXT |
| |
@T2H_FORMAT_EXPAND |
| |
@CHAPTER_BUTTONS |
| |
@MISC_BUTTONS |
| |
@SECTION_BUTTONS |
| |
@SECTION_FOOTER_BUTTONS |
| |
@NODE_FOOTER_BUTTONS |
| |
@TOP_BUTTONS |
| |
@LINKS_BUTTONS |
| |
@IMAGE_EXTENSIONS |
| |
@INPUT_FILE_SUFFIXES |
| |
$ENABLE_ENCODING_USE_ENTITY |
| |
$PROGRAM_NAME_IN_FOOTER |
| |
$HEADER_IN_TABLE |
| |
$DATE_IN_HEADER |
| |
$COMPLEX_FORMAT_IN_TABLE |
| |
$USE_TITLEPAGE_FOR_TITLE |
| |
$INLINE_CSS_STYLE |
| |
$NO_CSS |
| |
$I18N_PERL_HASH |
| |
$USE_NLS |
| |
); |
| |
|
| |
# customization variables which may be guessed in the script |
| |
#our $ADDRESS; |
| |
use vars qw( |
| |
$BODYTEXT |
| |
$CSS_LINES |
| |
$DOCUMENT_DESCRIPTION |
| |
$EXTERNAL_CROSSREF_SPLIT |
| |
); |
| |
|
| |
# I18n |
| |
use vars qw( |
| |
$I |
| |
$LANGUAGES |
| |
); |
| |
|
| |
# customizable subroutines references |
| |
use vars qw( |
| |
$print_section |
| |
$one_section |
| |
$end_section |
| |
$print_Top_header |
| |
$print_Top_footer |
| |
$print_Top |
| |
$print_Toc |
| |
$print_Overview |
| |
$print_Footnotes |
| |
$print_About |
| |
$print_misc_header |
| |
$print_misc_footer |
| |
$print_misc |
| |
$print_section_header |
| |
$print_section_footer |
| |
$print_chapter_header |
| |
$print_chapter_footer |
| |
$print_element_header |
| |
$print_page_head |
| |
$print_page_foot |
| |
$print_head_navigation |
| |
$print_foot_navigation |
| |
$print_title |
| |
$button_icon_img |
| |
$button_formatting |
| |
$print_navigation |
| |
$about_body |
| |
$print_frame |
| |
$print_toc_frame |
| |
$toc_body |
| |
$contents |
| |
$internal_links |
| |
$shortcontents |
| |
$titlepage |
| |
$insertcopying |
| |
$css_lines |
| |
$print_redirection_page |
| |
$translate_names |
| |
$init_out |
| |
$finish_out |
| |
$node_file_name |
| |
$element_file_name |
| |
$node_target_name |
| |
$element_target_name |
| |
$placed_target_file_name |
| |
$inline_contents |
| |
$program_string |
| |
|
| |
$preserve_misc_command |
| |
$misc_command_line |
| |
$misc_command_line_texi |
| |
$protect_text |
| |
$anchor |
| |
$anchor_label |
| |
$element_label |
| |
$misc_element_label |
| |
$def_item |
| |
$def |
| |
$menu |
| |
$menu_command |
| |
$menu_link |
| |
$menu_description |
| |
$menu_comment |
| |
$simple_menu_link |
| |
$ref_beginning |
| |
$info_ref |
| |
$book_ref |
| |
$external_href |
| |
$external_ref |
| |
$internal_ref |
| |
$table_item |
| |
$table_line |
| |
$row |
| |
$cell |
| |
$list_item |
| |
$comment |
| |
$def_line |
| |
$def_line_no_texi |
| |
$heading_no_texi |
| |
$raw |
| |
$raw_no_texi |
| |
$heading |
| |
$element_heading |
| |
$heading_text |
| |
$heading_text_preformatted |
| |
$paragraph |
| |
$preformatted |
| |
$empty_preformatted |
| |
$foot_line_and_ref |
| |
$foot_section |
| |
$image |
| |
$image_files |
| |
$index_entry_label |
| |
$index_entry |
| |
$index_entry_command |
| |
$index_letter |
| |
$print_index |
| |
$printindex |
| |
$index_summary |
| |
$summary_letter |
| |
$complex_format |
| |
$cartouche |
| |
$sp |
| |
$definition_category |
| |
$definition_index_entry |
| |
$table_list |
| |
$copying_comment |
| |
$documentdescription |
| |
$index_summary_file_entry |
| |
$index_summary_file_end |
| |
$index_summary_file_begin |
| |
$style |
| |
$line_command |
| |
$format |
| |
$normal_text |
| |
$empty_line |
| |
$unknown |
| |
$unknown_style |
| |
$float |
| |
$caption_shortcaption |
| |
$caption_shortcaption_command |
| |
$listoffloats |
| |
$listoffloats_entry |
| |
$listoffloats_caption |
| |
$listoffloats_float_style |
| |
$listoffloats_style |
| |
$acronym_like |
| |
$quotation |
| |
$quotation_prepend_text |
| |
$paragraph_style_command |
| |
$heading_texi |
| |
$index_element_heading_texi |
| |
$format_list_item_texi |
| |
$begin_format_texi |
| |
$begin_style_texi |
| |
$begin_paragraph_texi |
| |
$tab_item_texi |
| |
$footnote_texi |
| |
$colon_command |
| |
$simple_command |
| |
$thing_command |
| |
$begin_special_region |
| |
$end_special_region |
| |
|
| |
$PRE_ABOUT |
| |
$AFTER_ABOUT |
| |
); |
| |
|
| |
# hash which entries might be redefined by the user |
| |
use vars qw( |
| |
$complex_format_map |
| |
%complex_format_map |
| |
%accent_map |
| |
%def_map |
| |
%format_map |
| |
%simple_map |
| |
%simple_map_pre |
| |
%simple_map_texi |
| |
%simple_map_math |
| |
%style_map |
| |
%style_map_pre |
| |
%style_map_math |
| |
%style_map_texi |
| |
%simple_format_simple_map_texi |
| |
%simple_format_style_map_texi |
| |
%simple_format_texi_map |
| |
%line_command_map |
| |
%command_type |
| |
%paragraph_style |
| |
%stop_paragraph_command |
| |
%format_code_style |
| |
%region_formats_kept |
| |
%texi_formats_map |
| |
%things_map |
| |
%pre_map |
| |
%math_map |
| |
%texi_map |
| |
%sorting_things_map |
| |
%unicode_map |
| |
%unicode_diacritical |
| |
%transliterate_map |
| |
%transliterate_accent_map |
| |
%no_transliterate_map |
| |
%ascii_character_map |
| |
%default_simple_map |
| |
%default_things_map |
| |
%default_texi_map |
| |
%default_style_map |
| |
%default_style_map_pre |
| |
%default_style_map_texi |
| |
%default_simple_format_style_map_texi |
| |
%numeric_entity_map |
| |
%perl_charset_to_html |
| |
%misc_pages_targets |
| |
%misc_command |
| |
%no_paragraph_commands |
| |
%css_map |
| |
%format_in_paragraph |
| |
%special_list_commands |
| |
%accent_letters |
| |
%unicode_accents |
| |
%special_accents |
| |
%inter_item_commands |
| |
$def_always_delimiters |
| |
$def_in_type_delimiters |
| |
$def_argument_separator_delimiters |
| |
%colon_command_punctuation_characters |
| |
$punctuation_characters |
| |
$after_punctuation_characters |
| |
@command_handler_setup |
| |
@command_handler_init |
| |
@command_handler_names |
| |
@command_handler_process |
| |
@command_handler_output |
| |
@command_handler_finish |
| |
%command_handler |
| |
%special_style |
| |
%null_device_file |
| |
%language_codes |
| |
%region_codes |
| |
%deprecated_commands |
| |
%output_format_names |
| |
%canonical_texinfo_encodings |
| |
@text_substitutions_normal |
| |
@text_substitutions_texi |
| |
@text_substitutions_simple_format |
| |
@text_substitutions_pre |
| |
%htmlxref_entries |
| |
); |
| |
|
| |
# deprecated |
| |
use vars qw( |
| |
$address |
| |
%iso_symbols |
| |
%simple_map_pre_math |
| |
%simple_map_texi_math |
| |
$ENCODING |
| |
$CENTER_IMAGE |
| |
$HREF_DIR_INSTEAD_FILE |
| |
$EXPAND |
| |
$USE_GLOSSARY |
| |
$INVISIBLE_MARK |
| |
); |
| |
|
| |
# subject to change |
| |
use vars qw( |
| |
%makeinfo_encoding_to_map |
| |
%makeinfo_unicode_to_eight_bit |
| |
%eight_bit_to_unicode |
| |
%t2h_encoding_aliases |
| |
); |
| |
|
| |
# FIXME i18n ? |
| |
%output_format_names = ( |
| |
'info' => 'Info', |
| |
'html' => 'HTML', |
| |
'docbook' => 'Docbook XML', |
| |
'xml' => 'Texinfo XML', |
| |
'plaintext' => 'plain text', |
| |
'raw-text' => 'raw text', |
| |
); |
| |
|
| |
sub load($) |
| |
{ |
| |
my $file = shift; |
| |
# If required like other init files, the functions would be redefined |
| |
# and the format dependent stuff wouldn't be loaded. Having the |
| |
# formats loaded could be worked around, for example there could be |
| |
# a variable that, and if the variable is defined a function reference |
| |
# should be called right after the require. There is no real |
| |
# workaround for having the function redefined, though. |
| |
foreach my $output_format (keys(%output_format_names)) |
| |
{ |
| |
if ($file =~ /\/$output_format\.init$/) |
| |
{ |
| |
t2h_default_load_format($output_format, 1); |
| |
return 1; |
| |
} |
| |
} |
| |
eval { require($file) ;}; |
| |
if ($@ ne '') |
| |
{ |
| |
print STDERR "error loading $file: $@\n"; |
| |
return 0; |
| |
} |
| |
return 1; |
| |
} |
| |
|
| |
|
| |
sub set_conf($$;$) |
| |
{ |
| |
my $name = shift; |
| |
my $value = shift; |
| |
my $not_global = shift; |
| |
|
| |
unless ($not_global) |
| |
{ |
| |
if (defined($value)) |
| |
{ |
| |
$Texi2HTML::GLOBAL{$name} = $value; |
| |
} |
| |
else |
| |
{ |
| |
delete $Texi2HTML::GLOBAL{$name}; |
| |
} |
| |
return 1; |
| |
} |
| |
return 0 if (defined($Texi2HTML::GLOBAL{$name})); |
| |
if (defined($value)) |
| |
{ |
| |
$Texi2HTML::THISDOC{$name} = $value; |
| |
} |
| |
else |
| |
{ |
| |
delete $Texi2HTML::THISDOC{$name}; |
| |
} |
| |
return 1; |
| |
} |
| |
|
| |
my %config_map = ( |
| |
'paragraphindent' => \$PARAGRAPHINDENT, |
| |
'firstparagraphindent' => \$FIRSTPARAGRAPHINDENT, |
| |
'footnotestyle' => \$FOOTNOTESTYLE, |
| |
'fillcolumn' => \$FILLCOLUMN, |
| |
'documentlanguage' => \$DOCUMENTLANGUAGE, |
| |
'novalidate' => \$NOVALIDATE, |
| |
'SPLIT' => \$SPLIT, |
| |
'SPLIT_SIZE' => \$SPLIT_SIZE, |
| |
'contents' => \$CONTENTS, |
| |
'shortcontents' => \$SHORTCONTENTS, |
| |
'doctype' => \$DOCTYPE, |
| |
'headers' => \$HEADERS, |
| |
'DOCUMENT_ENCODING' => \$DOCUMENT_ENCODING, |
| |
'IN_ENCODING' => \$IN_ENCODING, |
| |
'setcontentsaftertitlepage' => \$SETCONTENTSAFTERTITLEPAGE, |
| |
'setshortcontentsaftertitlepage' => \$SETSHORTCONTENTSAFTERTITLEPAGE, |
| |
'kbdinputstyle' => \$KBDINPUTSTYLE, |
| |
'frenchspacing' => \$FRENCHSPACING, |
| |
'allowcodebreaks' => \$ALLOWCODEBREAKS, |
| |
'setfilename' => \$SETFILENAME, |
| |
'use_nls' => \$USE_NLS, |
| |
); |
| |
|
| |
sub get_conf($) |
| |
{ |
| |
my $name = shift; |
| |
return $Texi2HTML::THISDOC{$name} if (defined($Texi2HTML::THISDOC{$name})); |
| |
return $Texi2HTML::GLOBAL{$name} if (defined($Texi2HTML::GLOBAL{$name})); |
| |
return ${$config_map{$name}} if (defined($config_map{$name})); |
| |
# there is no default value for many @-commmands, like headings.... |
| |
#print STDERR "Unknown conf string: $name\n"; |
| |
} |
| |
|
| |
# manage expanded sections |
| |
sub set_expansion($$) |
| |
{ |
| |
my $region = shift; |
| |
my $set = shift; |
| |
$set = 1 if (!defined($set)); |
| |
if ($set) |
| |
{ |
| |
push (@EXPAND, $region) unless (grep {$_ eq $region} @EXPAND); |
| |
} |
| |
else |
| |
{ |
| |
@EXPAND = grep {$_ ne $region} @EXPAND; |
| |
@T2H_FORMAT_EXPAND = grep {$_ ne $region} @T2H_FORMAT_EXPAND; |
| |
} |
| |
} |
| |
|
| |
# needed in this namespace for translations |
| |
$I = \&Texi2HTML::I18n::get_string; |
| |
sub gdt($;$$) |
| |
{ |
| |
return &main::gdt(@_); |
| |
} |
| |
|
| |
sub __($) |
| |
{ |
| |
return &main::__(@_); |
| |
} |
| |
|
| |
sub __p($$) |
| |
{ |
| |
return &main::__p(@_); |
| |
} |
| |
|
| |
sub N__($) |
| |
{ |
| |
return $_[0]; |
| |
} |
| |
|
| # |
# |
| # language dependent constants |
# Function refs covered by the GPL as part of the texi2html.pl original |
| |
# code. As such they cannot appear in texi2html.init which is public |
| |
# domain (at least the things coded by me, and, if I'm not wrong also the |
| |
# things coded by Olaf -- Pat). |
| # |
# |
| #$LDC_SEE = 'see'; |
|
| #$LDC_SECTION = 'section'; |
|
| #$LDC_IN = 'in'; |
|
| #$LDC_TOC = 'Table of Contents'; |
|
| #$LDC_GOTO = 'Go to the'; |
|
| #$LDC_FOOT = 'Footnotes'; |
|
| # TODO: @def* shortcuts |
|
| |
|
| |
sub HTML_DEFAULT_shortcontents($$) |
| |
{ |
| |
my $elements_list = shift; |
| |
my $stoc_file = shift; |
| |
return unless (Texi2HTML::Config::get_conf('shortcontents') or $FRAMES); |
| |
my $ul_class = ''; |
| |
$ul_class = $NO_BULLET_LIST_CLASS if ($NUMBER_SECTIONS); |
| |
my @result = (); |
| |
foreach my $element (@$elements_list) |
| |
{ |
| |
next if ($element->{'tag'} eq 'top' or $element->{'toc_level'} != 1); |
| |
my $dest_for_stoc = $element->{'file'}; |
| |
my $dest_target_for_stoc = $element->{'target'}; |
| |
if ($Texi2HTML::Config::OVERVIEW_LINK_TO_TOC) |
| |
{ |
| |
$dest_for_stoc = $Texi2HTML::THISDOC{'toc_file'}; |
| |
$dest_target_for_stoc = $element->{'tocid'}; |
| |
} |
| |
$dest_for_stoc = '' if ($dest_for_stoc eq $stoc_file); |
| |
my $text = $element->{'text'}; |
| |
my $stoc_entry = "<li>" . &$anchor ($element->{'stocid'}, "$dest_for_stoc#$dest_target_for_stoc",$text); |
| |
push(@result, $stoc_entry. "</li>\n"); |
| |
} |
| |
if (@result) |
| |
{ |
| |
unshift @result, html_default_attribute_class('ul', $ul_class) .">\n"; |
| |
push @result, "</ul>\n"; |
| |
unshift @result, $BEFORE_OVERVIEW; |
| |
push @result, $AFTER_OVERVIEW; |
| |
} |
| |
return \@result; |
| |
} |
| |
|
| |
|
| |
sub HTML_DEFAULT_contents($$) |
| |
{ |
| |
my $elements_list = shift; |
| |
my $toc_file = shift; |
| |
|
| |
return unless (Texi2HTML::Config::get_conf('contents')); |
| |
|
| |
my $current_level = 0; |
| |
my $ul_class = ''; |
| |
$ul_class = $NO_BULLET_LIST_CLASS if ($NUMBER_SECTIONS); |
| |
my @result = (); |
| |
foreach my $element (@$elements_list) |
| |
{ |
| |
next if ($element->{'tag'} eq 'top'); |
| |
my $ind = ' ' x $current_level; |
| |
my $level = $element->{'toc_level'}; |
| |
print STDERR "Bug no toc_level for ($element) $element->{'texi'}\n" if (!defined ($level)); |
| |
if ($level > $current_level) |
| |
{ |
| |
while ($level > $current_level) |
| |
{ |
| |
$current_level++; |
| |
my $ln = "\n$ind".html_default_attribute_class('ul', $ul_class).">\n"; |
| |
$ind = ' ' x $current_level; |
| |
push(@result, $ln); |
| |
} |
| |
} |
| |
elsif ($level < $current_level) |
| |
{ |
| |
while ($level < $current_level) |
| |
{ |
| |
$current_level--; |
| |
$ind = ' ' x $current_level; |
| |
my $line = "</li>\n$ind</ul>"; |
| |
$line .= "</li>" if ($level == $current_level); |
| |
push(@result, "$line\n"); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
push(@result, "</li>\n"); |
| |
} |
| |
my $dest_for_toc = $element->{'file'}; |
| |
my $dest_for_stoc = $element->{'file'}; |
| |
my $dest_target_for_stoc = $element->{'target'}; |
| |
$dest_for_toc = '' if ($dest_for_toc eq $toc_file); |
| |
my $text = $element->{'text'}; |
| |
my $toc_entry = "<li>" . &$anchor ($element->{'tocid'}, "$dest_for_toc#$element->{'target'}",$text); |
| |
push (@result, $ind . $toc_entry); |
| |
} |
| |
while (0 < $current_level) |
| |
{ |
| |
$current_level--; |
| |
my $ind = ' ' x $current_level; |
| |
push(@result, "</li>\n$ind</ul>\n"); |
| |
} |
| |
if (@result) |
| |
{ |
| |
unshift @result, $BEFORE_TOC_LINES; |
| |
push @result, $AFTER_TOC_LINES; |
| |
} |
| |
return \@result; |
| |
} |
| |
|
| |
#$toc_body = \&T2H_GPL_toc_body; |
| |
#$style = \&T2H_GPL_style; |
| |
#$format = \&T2H_GPL_format; |
| |
#$printindex = \&t2h_GPL_default_printindex; |
| |
#$summary_letter = \&t2h_default_summary_letter; |
| |
|
| |
|
| |
sub T2H_GPL_style($$$$$$$$$$) |
| |
{ # known style |
| |
my $style = shift; |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $args = shift; |
| |
my $no_close = shift; |
| |
my $no_open = shift; |
| |
my $line_nr = shift; |
| |
my $state = shift; |
| |
my $style_stack = shift; |
| |
my $kept_line_nrs = shift; |
| |
|
| |
my $do_quotes = 0; |
| |
my $use_attribute = 0; |
| |
my $use_begin_end = 0; |
| |
my $inline_attribute = 0; |
| |
if (ref($style) eq 'HASH') |
| |
{ |
| |
#print STDERR "GPL_STYLE $command ($style)\n"; |
| |
#print STDERR " @$args\n"; |
| |
if (ref($style->{'args'}) ne 'ARRAY') |
| |
{ |
| |
print STDERR "BUG: args not an array for command `$command'\n"; |
| |
} |
| |
$do_quotes = $style->{'quote'}; |
| |
if (defined($style->{'function'})) |
| |
{ |
| |
$text = &{$style->{'function'}}($command, $args, $style_stack, $state, $line_nr, $kept_line_nrs); |
| |
} |
| |
elsif (@{$style->{'args'}} == 1) |
| |
{ |
| |
if (defined($style->{'inline_attribute'})) |
| |
{ |
| |
$style = $style->{'inline_attribute'}; |
| |
$use_attribute = 1; |
| |
$inline_attribute = 1; |
| |
} |
| |
elsif (defined($style->{'attribute'})) |
| |
{ |
| |
$style = $style->{'attribute'}; |
| |
$use_attribute = 1; |
| |
} |
| |
#$text = $args->[0]; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
if ($style =~ s/^\"//) |
| |
{ # add quotes |
| |
$do_quotes = 1; |
| |
} |
| |
if ($style =~ s/^\&//) |
| |
{ # custom |
| |
$style = 'Texi2HTML::Config::' . $style; |
| |
eval "\$text = &$style(\$text, \$command, \$style_stack)"; |
| |
} |
| |
elsif ($style ne '') |
| |
{ |
| |
$use_attribute = 1; |
| |
} |
| |
else |
| |
{ # no style |
| |
} |
| |
} |
| |
if ($use_attribute) |
| |
{ |
| |
my ($attribute_text, $class); |
| |
($style, $class, $attribute_text) = html_default_parse_attribute ($style); |
| |
$text = html_default_attribute_class($style, $class) . "$attribute_text>" . "$text" if (!$no_open or $inline_attribute); |
| |
$text .= "</$style>" if (!$no_close or $inline_attribute); |
| |
if ($do_quotes) |
| |
{ |
| |
$text = $OPEN_QUOTE_SYMBOL . "$text" if (!$no_open); |
| |
$text .= $CLOSE_QUOTE_SYMBOL if (!$no_close); |
| |
} |
| |
} |
| |
if (ref($style) eq 'HASH') |
| |
{ |
| |
if (defined($style->{'begin'}) and !$no_open) |
| |
{ |
| |
$text = $style->{'begin'} . $text; |
| |
} |
| |
if (defined($style->{'end'}) and !$no_close) |
| |
{ |
| |
$text = $text . $style->{'end'}; |
| |
} |
| |
if (defined($style->{'inline_begin'})) |
| |
{ |
| |
$text = $style->{'inline_begin'} . $text; |
| |
} |
| |
if (defined($style->{'inline_end'})) |
| |
{ |
| |
$text = $text . $style->{'inline_end'}; |
| |
} |
| |
} |
| |
if ($do_quotes and !$use_attribute) |
| |
{ |
| |
$text = $OPEN_QUOTE_SYMBOL . "$text" if (!$no_open); |
| |
$text .= $CLOSE_QUOTE_SYMBOL if (!$no_close); |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
sub T2H_GPL_format($$$) |
| |
{ |
| |
my $tag = shift; |
| |
my $element = shift; |
| |
my $text = shift; |
| |
return '' if (!defined($element) or ($text !~ /\S/)); |
| |
return $text if ($element eq ''); |
| |
my $attribute_text = ''; |
| |
if ($element =~ /^(\w+)(\s+.*)/) |
| |
{ |
| |
$element = $1; |
| |
$attribute_text = $2; |
| |
} |
| |
return "<${element}$attribute_text>\n" . $text. "</$element>\n"; |
| |
} |
| |
|
| |
# for each index holds the letters split as determined by SPLIT_INDEX. |
| |
my %t2h_default_index_letters_array; |
| |
# equivalent of doc_nr, but with files (and hence numbers) added when |
| |
# a split index leads to an additional element and a file is created. |
| |
my $t2h_default_file_number; |
| |
# this is an increasing number to construct the id for each newly |
| |
# created index element. |
| |
my $t2h_default_index_id_nr; |
| |
# this holds the file name associated with an element file, such |
| |
# as to follow the splitting coming from the main program, and also use |
| |
# the newly generated files. |
| |
my %t2h_default_seen_files; |
| |
# holds the elements and indices that are split to easily set the |
| |
# directions after they are done in the main program. |
| |
my $t2h_default_element_split_printindices; |
| |
|
| |
# construct a hash of index names holding the letter grouped how they will |
| |
# be split. |
| |
sub t2h_default_init_split_indices() |
| |
{ |
| |
push @command_handler_process, \&t2h_default_index_rearrange_directions; |
| |
%t2h_default_index_letters_array = (); |
| |
%t2h_default_seen_files = (); |
| |
$t2h_default_element_split_printindices = undef; |
| |
$t2h_default_index_id_nr = 0; |
| |
$t2h_default_file_number = 0; |
| |
|
| |
foreach my $index_name(keys %{$Texi2HTML::THISDOC{'index_letters_array'}}) |
| |
{ |
| |
my $entries_count = 0; |
| |
my @letters = (); |
| |
foreach my $letter_entry (@{$Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}}) |
| |
{ |
| |
push @letters, $letter_entry; |
| |
$entries_count += scalar(@{$letter_entry->{'entries'}}); |
| |
# Don't split if document is not split |
| |
if (get_conf('SPLIT') and $SPLIT_INDEX and $entries_count >= $SPLIT_INDEX) |
| |
{ |
| |
push @{$t2h_default_index_letters_array{$index_name}}, [ @letters ]; |
| |
@letters = (); |
| |
$entries_count = 0; |
| |
} |
| |
} |
| |
push @{$t2h_default_index_letters_array{$index_name}}, [ @letters ] if (scalar(@letters)); |
| |
} |
| |
} |
| |
|
| |
sub t2h_default_associate_index_element($$$$) |
| |
{ |
| |
my $element = shift; |
| |
my $is_top = shift; |
| |
my $docu_name = shift; |
| |
my $use_node_file = shift; |
| |
|
| |
my $default_element_file = $element->{'file'}; |
| |
|
| |
# redo the file naming -- the doc_nr part -- in case new elements were |
| |
# inserted upon index split. But respect the default splitting to keep |
| |
# the elements that are associated with the same file in the same file, |
| |
# or the added file. |
| |
if (!$use_node_file or $t2h_default_seen_files{$default_element_file}) |
| |
{ |
| |
my $file; |
| |
if ($t2h_default_seen_files{$default_element_file}) |
| |
{ |
| |
$file = $t2h_default_seen_files{$default_element_file}; |
| |
} |
| |
else |
| |
{ |
| |
if ($is_top eq 'top') |
| |
{ # this is the element_top, so we keep docu_top as associated file. |
| |
# this, in fact, is not necessary since the element_top is never |
| |
# associated with another element, but who knows. |
| |
$t2h_default_seen_files{$default_element_file} = $default_element_file; |
| |
} |
| |
else |
| |
{ |
| |
$file = "${docu_name}_$t2h_default_file_number"; |
| |
$file .= '.' . $Texi2HTML::THISDOC{'extension'} if |
| |
(defined($Texi2HTML::THISDOC{'extension'})); |
| |
$t2h_default_seen_files{$default_element_file} = $file; |
| |
} |
| |
$t2h_default_file_number++; |
| |
} |
| |
$element->{'file'} = $file if (defined($file)); |
| |
} |
| |
|
| |
my $level = $element->{'level'}; |
| |
|
| |
# Even if, without USE_SECTION, output can be split at chapter or |
| |
# section we don't split indices accordingly. We don't want to add |
| |
# more cases where users want split indices, this was a very difficult |
| |
# to maintain feature from the beginning. |
| |
#$level = $element->{'with_section'}->{'level'} if (!defined($level) and |
| |
# defined($element->{'with_section'})); |
| |
|
| |
# if the element is not the level of splitting, then we don't split. |
| |
# also if 'top' is set we don't split since the formatting is different |
| |
# in that case and the result would be quite unpredictable. |
| |
return if ($element->{'top'} or ((get_conf('SPLIT') ne 'node') |
| |
and (!defined($level) or $level > $Texi2HTML::THISDOC{'split_level'}))); |
| |
|
| |
#print STDERR "Doing printindices for $element $element->{'texi'}, file $element->{'file'} (@{$element->{'place'}})\n"; |
| |
|
| |
|
| |
# iterate over the @places of the element, which includes associated nodes, |
| |
# associated elements, anchors, footnotes, floats, index entries, |
| |
# printindices (including the element command itself, be it a @node or |
| |
# a sectioning @-command). |
| |
# during the iteration, split printindices that needs it, and reassociate |
| |
# other placed elements with files and elements. |
| |
|
| |
my $current_element = $element; |
| |
my @places = @{$element->{'place'}}; |
| |
@{$element->{'place'}} = (); |
| |
|
| |
foreach my $place (@places) |
| |
{ |
| |
my ($printindex, $printindex_to_split, $index_name); |
| |
|
| |
# determines if the placed thing is a printindex to be split |
| |
if ($place->{'command'} and $place->{'command'} eq 'printindex') |
| |
{ |
| |
$printindex = $place; |
| |
$index_name = $printindex->{'name'}; |
| |
# ! empty index |
| |
if (exists($t2h_default_index_letters_array{$index_name}) and |
| |
# split index |
| |
scalar(@{$t2h_default_index_letters_array{$index_name}} > 1) |
| |
# the condition defined($printindex->{'associated_element'} implies |
| |
# that we don't split printindex before first element, otherwise |
| |
# there will be a need to begin document without a first element |
| |
# which would be annoying. |
| |
and defined($printindex->{'associated_element'})) |
| |
{ |
| |
$printindex_to_split = 1; |
| |
} |
| |
} |
| |
|
| |
# this is a non split printindex or any other placed thing. |
| |
if (!$printindex_to_split) |
| |
{ |
| |
push @{$current_element->{'place'}}, $place; |
| |
# don't remodify the original element file, it was set right at the |
| |
# beginning of the function. |
| |
$place->{'file'} = $current_element->{'file'} if ($place ne $element); |
| |
# the 'element_ref' has to be reset. Otherwise, $place->{'element_ref'} |
| |
# will appear as a new element and trigger closing the file and |
| |
# opening a new one. |
| |
$place->{'element_ref'} = $current_element if ($place->{'element_ref'} and $current_element ne $element); |
| |
# this resets the element associated with a printindex. |
| |
if ($place->{'associated_element'} and $current_element ne $element) |
| |
{ |
| |
$place->{'associated_element'} = $current_element; |
| |
} |
| |
next; |
| |
} |
| |
|
| |
# now split the index |
| |
|
| |
my @letter_groups = (); |
| |
my @letters_split = @{$t2h_default_index_letters_array{$index_name}}; |
| |
foreach my $letters_split (@letters_split) |
| |
{ |
| |
push @letter_groups, {'letters' => [@$letters_split]}; |
| |
} |
| |
|
| |
$letter_groups[0]->{'element'} = $current_element; |
| |
|
| |
# besides preparing the new elements corresponding with split indices, |
| |
# they are recorded for later directions rearrangements in |
| |
# t2h_default_index_rearrange_directions. |
| |
|
| |
# this weird construct is there because the element used as a key is |
| |
# converted to a string by perl, losing its meaning as a reference, |
| |
# the reference must be recorded explicitly |
| |
$t2h_default_element_split_printindices->{$element}->{'element'} = $element; |
| |
push @{$t2h_default_element_split_printindices->{$element}->{'printindices'}}, $printindex; |
| |
#print STDERR "Setting $element, $element->{'texi'}, $printindex $printindex->{'name'} as a split element\n"; |
| |
foreach my $split_group (@letter_groups) |
| |
{ |
| |
my $first_letter = $split_group->{'letters'}->[0]->{'letter'}; |
| |
my $last_letter = $split_group->{'letters'}->[-1]->{'letter'}; |
| |
if (!$split_group->{'element'}) |
| |
{ # this is not the first letters group, which is already associated |
| |
# with an element, a new element is done. |
| |
|
| |
# construct new element name |
| |
my $letters_heading; |
| |
if ($last_letter ne $first_letter) |
| |
{ |
| |
$letters_heading = &$normal_text("$first_letter -- $last_letter"); |
| |
} |
| |
else |
| |
{ |
| |
$letters_heading = &$normal_text("$first_letter"); |
| |
} |
| |
my ($name, $simple); |
| |
my $texi = "ADDED ELEMENT $element->{'texi'}: $letters_heading"; |
| |
if (!defined($element->{'text'})) |
| |
{ |
| |
my $element_heading_texi = &$heading_texi($element->{'tag'}, $element->{'texi'}, $element->{'number'}); |
| |
|
| |
my $index_heading_texi = &$index_element_heading_texi( |
| |
$element_heading_texi, |
| |
$element->{'tag'}, |
| |
$element->{'texi'}, |
| |
$element->{'number'}, |
| |
$first_letter, $last_letter); |
| |
$name = main::substitute_line($index_heading_texi, sprintf(__p("\@sectionning_command index page","\@%s index page"), $element->{'tag'})); |
| |
$simple = main::simple_format(undef,undef,"simple_format \@$element->{'tag'} index page", $index_heading_texi); |
| |
} |
| |
else |
| |
{ # should never happen, at this point 'text' is always undefined. |
| |
$name = "$element->{'text'}: $letters_heading"; |
| |
$simple = "$element->{'simple_format'}: $letters_heading"; |
| |
} |
| |
|
| |
#file and id |
| |
my $relative_file = $Texi2HTML::THISDOC{'file_base_name'} . '_' . $t2h_default_file_number; |
| |
$t2h_default_file_number++; |
| |
$relative_file .= '.' . $Texi2HTML::THISDOC{'extension'} if |
| |
(defined($Texi2HTML::THISDOC{'extension'})); |
| |
my $id = "index_split-$t2h_default_index_id_nr"; |
| |
$t2h_default_index_id_nr++; |
| |
|
| |
my $new_element = { 'file' => $relative_file, 'id' => $id, 'target' => $id, 'text' => $name, 'texi' => $texi, 'seen' => 1, 'simple_format' => $simple }; |
| |
# to avoid crashing when there is a filename collision. |
| |
main::add_file($new_element->{'file'}); |
| |
|
| |
$split_group->{'element'} = $new_element; |
| |
$current_element = $new_element; |
| |
#print STDERR "Added file $new_element->{'file'} ($new_element, $new_element->{'id'}) for $new_element->{'texi'} ($first_letter:$last_letter)\n"; |
| |
} |
| |
else |
| |
{ # this is the first index split, it is still associated with the element |
| |
#print STDERR "No file added for ($first_letter:$last_letter)\n"; |
| |
} |
| |
} |
| |
$t2h_default_seen_files{$default_element_file} = $current_element->{'file'}; |
| |
$printindex->{'split_groups'} = \@letter_groups; |
| |
#print STDERR "$index_name processed for $element, $element->{'texi'} (@{$printindex->{'split_groups'}})\n"; |
| |
} |
| |
} |
| |
|
| |
# set directions for added elements now that they are done in the |
| |
# main program for all the other elements. |
| |
sub t2h_default_index_rearrange_directions() |
| |
{ |
| |
return if (!defined($t2h_default_element_split_printindices)); |
| |
foreach my $element_string (keys(%$t2h_default_element_split_printindices)) |
| |
{ |
| |
my $element = $t2h_default_element_split_printindices->{$element_string}->{'element'}; |
| |
my $current_element = $element; |
| |
#print STDERR " E Processing $element_string,$current_element $current_element->{'texi'}\n"; |
| |
foreach my $printindex (@{$t2h_default_element_split_printindices->{$element_string}->{'printindices'}}) |
| |
{ |
| |
#print STDERR " I Processing $printindex $printindex->{'name'} (@{$printindex->{'split_groups'}})\n"; |
| |
foreach my $split_group (@{$printindex->{'split_groups'}}) |
| |
{ |
| |
my $first_letter = $split_group->{'letters'}->[0]->{'letter'}; |
| |
my $last_letter = $split_group->{'letters'}->[-1]->{'letter'}; |
| |
|
| |
my $new_element = $split_group->{'element'}; |
| |
next if ($current_element eq $new_element); |
| |
#print STDERR " G Processing ($first_letter:$last_letter) in $element->{'texi'}, index $printindex->{'name'}: $new_element->{'texi'}\n"; |
| |
$new_element->{'This'} = $new_element; |
| |
if ($current_element->{'Forward'}) |
| |
{ |
| |
$current_element->{'Forward'}->{'Back'} = $new_element; |
| |
$new_element->{'Forward'} = $current_element->{'Forward'}; |
| |
} |
| |
$current_element->{'Forward'} = $new_element; |
| |
$new_element->{'Back'} = $current_element; |
| |
if ($current_element->{'Following'}) |
| |
{ |
| |
#print STDERR "F: C($current_element): $current_element->{'texi'}, N($new_element): $new_element->{'texi'} -- C->F: $current_element->{'Following'}->{'texi'}\n"; |
| |
$new_element->{'Following'} = $current_element->{'Following'}; |
| |
$current_element->{'Following'} = $new_element; |
| |
} |
| |
foreach my $key ('FastForward', 'FastBack', 'Up', 'tag_level', 'tag', |
| |
'level', 'node') |
| |
{ |
| |
$new_element->{$key} = $element->{$key} if (defined($element->{$key})); |
| |
} |
| |
$new_element->{'this'} = $new_element; |
| |
$new_element->{'element_ref'} = $new_element; |
| |
$current_element = $new_element; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
# not needed to initialize it for a document, since it is reset |
| |
# in index_summary |
| |
my $t2h_symbol_indices = 0; |
| |
|
| |
# format a letter appearing in a summary for an index. The letter links to |
| |
# the place where the index elements beginning with this letter are (called |
| |
# a letter entry). |
| # |
# |
| # pre-defined indices |
# arguments: |
| |
# letter |
| |
# file where the target letter entry is |
| |
# identifier for the target letter entry |
| |
|
| |
sub html_default_summary_letter($$$$$$$) |
| |
{ |
| |
my $letter = shift; |
| |
my $file = shift; |
| |
my $default_identifier = shift; |
| |
my $index_element_id = shift; |
| |
my $number = shift; |
| |
my $index_element = shift; |
| |
my $index_name = shift; |
| |
|
| |
return '' if ($letter =~ /^\s*$/); |
| |
my $is_symbol = $letter !~ /^[A-Za-z]/; |
| |
my $identifier = $default_identifier; |
| |
|
| |
if ($NEW_CROSSREF_STYLE) |
| |
{ |
| |
if ($is_symbol) |
| |
{ |
| |
$t2h_symbol_indices++; |
| |
$identifier = $index_element_id . "_${index_name}_symbol-$t2h_symbol_indices"; |
| |
} |
| |
else |
| |
{ |
| |
$identifier = $index_element_id . "_${index_name}_letter-${letter}"; |
| |
} |
| |
} |
| |
my $result = &$anchor('', $file . '#' . $identifier, '<b>' . &$protect_text($letter) . '</b>', 'class="summary-letter"'); |
| |
return $result unless ($NEW_CROSSREF_STYLE); |
| |
return ($result, $identifier, $is_symbol); |
| |
} |
| |
|
| |
# this replaces do_index_page |
| |
# args should be: |
| |
# index_name |
| |
# printindex |
| |
sub t2h_GPL_default_printindex($$) |
| |
{ |
| |
my $index_name = shift; |
| |
my $printindex = shift; |
| |
# could be cross verified with argument |
| |
|
| |
my $identifier_index_nr = 0; |
| |
my @split_letters; |
| |
|
| |
if (defined($printindex->{'split_groups'}) and scalar(@{$printindex->{'split_groups'}})) |
| |
{ |
| |
@split_letters = @{$printindex->{'split_groups'}}; |
| |
} |
| |
elsif (defined($Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}) and scalar(@{$Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}})) |
| |
{ |
| |
my $element = $printindex->{'associated_element'}; |
| |
# this happens for printindex before the first element. |
| |
if (!defined($element)) |
| |
{ |
| |
$element = {'file' => '', 'id' => "$printindex->{'region'}_printindex"}; |
| |
} |
| |
elsif (defined($element->{'element_ref'})) |
| |
{ |
| |
$element = $element->{'element_ref'}; |
| |
} |
| |
@split_letters = ({ 'letters' => $Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}, 'element' => $element}); |
| |
} |
| |
else |
| |
{ |
| |
return ''; |
| |
} |
| |
|
| |
foreach my $split_group (@split_letters) |
| |
{ |
| |
#do summmary |
| |
my @non_alpha = (); |
| |
my @alpha = (); |
| |
#print STDERR "$index_name @{$split_group->{'letters'}}\n"; |
| |
# letter_id could be done once for all instead of for each split_group |
| |
# and outside of t2h_default_summary_letter (or t2h_default_summary_letter |
| |
# could be simplified and inlined |
| |
my %letter_id; |
| |
foreach my $summary_split_group (@split_letters) |
| |
{ |
| |
foreach my $letter_entry (@{$summary_split_group->{'letters'}}) |
| |
{ |
| |
my $letter = $letter_entry->{'letter'}; |
| |
my $dest_file = ''; |
| |
|
| |
####################################### debug |
| |
if (!defined($summary_split_group->{'element'})) |
| |
{ |
| |
main::msg_debug ("index $index_name, letter $letter, element for summary_split_group $summary_split_group not defined"); |
| |
} |
| |
elsif (!defined($summary_split_group->{'element'}->{'id'})) |
| |
{ |
| |
main::msg_debug ("index $index_name, letter $letter, element $summary_split_group->{'element'} `$summary_split_group->{'element'}->{'texi'}', id undef"); |
| |
} |
| |
####################################### end debug |
| |
$dest_file = $summary_split_group->{'element'}->{'file'} |
| |
if ($summary_split_group ne $split_group); |
| |
my $index_element_id = $summary_split_group->{'element'}->{'id'}; |
| |
my $default_identifier = $index_element_id . "_$identifier_index_nr"; |
| |
#print STDERR "$split_group $summary_split_group $summary_split_group->{'element'} $summary_split_group->{'element'}->{'id'} $identifier_index_nr $index_element_id $default_identifier\n"; |
| |
$identifier_index_nr++; |
| |
my ($result, $identifier, $is_symbol) = |
| |
&$summary_letter($letter, $dest_file, $default_identifier, $index_element_id, '', '', $index_name); |
| |
$identifier = $default_identifier if (!defined($identifier)); |
| |
$letter_id{$letter} = $identifier; |
| |
$is_symbol = $letter !~ /^[A-Za-z]/ if (!defined($is_symbol)); |
| |
|
| |
if ($result ne '') |
| |
{ |
| |
if ($is_symbol) |
| |
{ |
| |
push @non_alpha, $result; |
| |
} |
| |
else |
| |
{ |
| |
push @alpha, $result; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my $summary = &$index_summary(\@alpha, \@non_alpha); |
| |
|
| |
# reset symbols numbering |
| |
$t2h_symbol_indices = 0; |
| |
|
| |
my $letters_text = ''; |
| |
foreach my $letter_entry (@{$split_group->{'letters'}}) |
| |
{ |
| |
my $letter = $letter_entry->{'letter'}; |
| |
my $entries_text = ''; |
| |
foreach my $index_entry_ref (@{$letter_entry->{'entries'}}) |
| |
{ |
| |
my ($text_href, $entry_file, $element_file, $entry_target, |
| |
$entry_element_target, $formatted_entry, $element_href, |
| |
$entry_element_text, $in_region_not_in_output) |
| |
= main::get_index_entry_infos($index_entry_ref, $split_group->{'element'}); |
| |
$entries_text .= &$index_entry ($text_href, $formatted_entry, $element_href, $entry_element_text, $entry_file, $element_file, $entry_target, $entry_element_target, $in_region_not_in_output, $index_entry_ref); |
| |
} |
| |
$letters_text .= &$index_letter ($letter, $letter_id{$letter}, $entries_text) |
| |
} |
| |
my $index_text = &$print_index($letters_text, $index_name); |
| |
$split_group->{'text'} = $summary . $index_text . $summary; |
| |
# print STDERR " ---> $index_name @{$split_group->{'letters'}} |
| |
# * elt: $split_group->{'element'}->{'id'}, $split_group->{'element'}->{'file'}, $split_group->{'element'}->{'name'} |
| |
# * directions: B: $split_group->{'element'}->{'Back'}->{'name'}, F: $split_group->{'element'}->{'Forward'}->{'name'}, FB: $split_group->{'element'}->{'FastBack'}->{'name'}, FF: $split_group->{'element'}->{'FastForward'}->{'name'} |
| |
# * text |
| # |
# |
| %predefined_index = ( |
#$split_group->{'text'} |
| 'cp', 'c', |
# |
| 'fn', 'f', |
#"; |
| 'vr', 'v', |
} |
| 'ky', 'k', |
my $current_page = shift @split_letters; |
| 'pg', 'p', |
if (!scalar(@split_letters)) |
| 'tp', 't', |
{ |
| ); |
return $current_page->{'text'}; |
| |
} |
| |
|
| |
while (1) |
| |
{ |
| |
# print the index letters |
| |
push @{$Texi2HTML::THIS_SECTION}, $current_page->{'text'}; |
| |
|
| |
$current_page = shift @split_letters; |
| |
last if (!defined($current_page)); |
| |
|
| |
# there is no need to begin first element if not already done, since |
| |
# the index is not split if not already in an element. |
| |
# end the previous element |
| |
main::finish_element ($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT, $Texi2HTML::THIS_ELEMENT->{'Forward'}, 0); |
| |
|
| |
# do the new element beginning |
| |
$Texi2HTML::THIS_ELEMENT = $current_page->{'element'}; |
| |
my $new_element = $Texi2HTML::THIS_ELEMENT; |
| |
main::unref_file($new_element->{'file'}); |
| |
main::do_element_directions($new_element); |
| |
my $do_page_head = main::open_out_file($new_element->{'file'}); |
| |
if ($do_page_head) |
| |
{ |
| |
&$print_page_head($Texi2HTML::THISDOC{'FH'}); |
| |
&$print_chapter_header($Texi2HTML::THISDOC{'FH'}, $new_element) if Texi2HTML::Config::get_conf('SPLIT') eq 'chapter'; |
| |
&$print_section_header($Texi2HTML::THISDOC{'FH'}, $new_element) if Texi2HTML::Config::get_conf('SPLIT') eq 'section'; |
| |
} |
| |
# almost nothing of this is used in the default html output |
| |
@{$Texi2HTML::THIS_SECTION} = &$element_heading($new_element, $new_element->{'tag'}, $new_element->{'texi'}, |
| |
$new_element->{'text'}, 0, 0, $new_element->{'this'}, 1, 0, 0, "\@$new_element->{'tag'} $new_element->{'texi'}", |
| |
$new_element->{'id'}, $new_element); |
| |
|
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
# leave this within comments, and keep the require statement |
| |
# This way, you can directly run texi2html.pl, |
| |
# if $T2H_HOME/documentlanguages.pl exists. |
| # |
# |
| # valid indices |
# @T2H_DOCUMENT_LANGUAGES@ |
| |
%language_codes = ( |
| |
'aa' => 1, |
| |
'ab' => 1, |
| |
'ae' => 1, |
| |
'af' => 1, |
| |
'ak' => 1, |
| |
'am' => 1, |
| |
'an' => 1, |
| |
'ar' => 1, |
| |
'as' => 1, |
| |
'av' => 1, |
| |
'ay' => 1, |
| |
'az' => 1, |
| |
'ba' => 1, |
| |
'be' => 1, |
| |
'bg' => 1, |
| |
'bh' => 1, |
| |
'bi' => 1, |
| |
'bm' => 1, |
| |
'bn' => 1, |
| |
'bo' => 1, |
| |
'br' => 1, |
| |
'ca' => 1, |
| |
'ce' => 1, |
| |
'ch' => 1, |
| |
'co' => 1, |
| |
'cr' => 1, |
| |
'cs' => 1, |
| |
'cu' => 1, |
| |
'cv' => 1, |
| |
'cy' => 1, |
| |
'da' => 1, |
| |
'de' => 1, |
| |
'dv' => 1, |
| |
'dz' => 1, |
| |
'ee' => 1, |
| |
'el' => 1, |
| |
'en' => 1, |
| |
'eo' => 1, |
| |
'es' => 1, |
| |
'et' => 1, |
| |
'eu' => 1, |
| |
'fa' => 1, |
| |
'ff' => 1, |
| |
'fi' => 1, |
| |
'fj' => 1, |
| |
'fo' => 1, |
| |
'fr' => 1, |
| |
'fy' => 1, |
| |
'ga' => 1, |
| |
'gd' => 1, |
| |
'gl' => 1, |
| |
'gn' => 1, |
| |
'gu' => 1, |
| |
'gv' => 1, |
| |
'ha' => 1, |
| |
'he' => 1, |
| |
'hi' => 1, |
| |
'ho' => 1, |
| |
'ht' => 1, |
| |
'hu' => 1, |
| |
'hy' => 1, |
| |
'hz' => 1, |
| |
'ia' => 1, |
| |
'ie' => 1, |
| |
'ig' => 1, |
| |
'ii' => 1, |
| |
'ik' => 1, |
| |
'io' => 1, |
| |
'is' => 1, |
| |
'it' => 1, |
| |
'iu' => 1, |
| |
'iw' => 1, |
| |
'ja' => 1, |
| |
'ji' => 1, |
| |
'jv' => 1, |
| |
'jw' => 1, |
| |
'ka' => 1, |
| |
'kg' => 1, |
| |
'ki' => 1, |
| |
'kj' => 1, |
| |
'kk' => 1, |
| |
'kl' => 1, |
| |
'km' => 1, |
| |
'kn' => 1, |
| |
'ko' => 1, |
| |
'kr' => 1, |
| |
'ks' => 1, |
| |
'ku' => 1, |
| |
'kv' => 1, |
| |
'kw' => 1, |
| |
'ky' => 1, |
| |
'la' => 1, |
| |
'lb' => 1, |
| |
'lg' => 1, |
| |
'li' => 1, |
| |
'ln' => 1, |
| |
'lo' => 1, |
| |
'lt' => 1, |
| |
'lu' => 1, |
| |
'lv' => 1, |
| |
'mg' => 1, |
| |
'mh' => 1, |
| |
'mi' => 1, |
| |
'mk' => 1, |
| |
'ml' => 1, |
| |
'mn' => 1, |
| |
'mo' => 1, |
| |
'mr' => 1, |
| |
'ms' => 1, |
| |
'mt' => 1, |
| |
'my' => 1, |
| |
'na' => 1, |
| |
'nd' => 1, |
| |
'ne' => 1, |
| |
'ng' => 1, |
| |
'nl' => 1, |
| |
'no' => 1, |
| |
'nr' => 1, |
| |
'nv' => 1, |
| |
'ny' => 1, |
| |
'oc' => 1, |
| |
'oj' => 1, |
| |
'om' => 1, |
| |
'or' => 1, |
| |
'os' => 1, |
| |
'pa' => 1, |
| |
'pi' => 1, |
| |
'pl' => 1, |
| |
'ps' => 1, |
| |
'pt' => 1, |
| |
'qu' => 1, |
| |
'rm' => 1, |
| |
'rn' => 1, |
| |
'ro' => 1, |
| |
'ru' => 1, |
| |
'rw' => 1, |
| |
'sa' => 1, |
| |
'sc' => 1, |
| |
'sd' => 1, |
| |
'se' => 1, |
| |
'sg' => 1, |
| |
'sh' => 1, |
| |
'si' => 1, |
| |
'sk' => 1, |
| |
'sl' => 1, |
| |
'sm' => 1, |
| |
'sn' => 1, |
| |
'so' => 1, |
| |
'sq' => 1, |
| |
'ss' => 1, |
| |
'st' => 1, |
| |
'su' => 1, |
| |
'sv' => 1, |
| |
'sw' => 1, |
| |
'ta' => 1, |
| |
'te' => 1, |
| |
'tg' => 1, |
| |
'th' => 1, |
| |
'ti' => 1, |
| |
'tk' => 1, |
| |
'tl' => 1, |
| |
'tn' => 1, |
| |
'to' => 1, |
| |
'tr' => 1, |
| |
'ts' => 1, |
| |
'tt' => 1, |
| |
'ty' => 1, |
| |
'ug' => 1, |
| |
'uk' => 1, |
| |
'ur' => 1, |
| |
'uz' => 1, |
| |
've' => 1, |
| |
'vi' => 1, |
| |
'vo' => 1, |
| |
'wa' => 1, |
| |
'wo' => 1, |
| |
'xh' => 1, |
| |
'yi' => 1, |
| |
'yo' => 1, |
| |
'za' => 1, |
| |
'zh' => 1, |
| |
'zu' => 1, |
| |
'aaa' => 1, |
| |
'aab' => 1, |
| |
'aac' => 1, |
| |
'aad' => 1, |
| |
'aaf' => 1, |
| |
'aag' => 1, |
| |
'aah' => 1, |
| |
'aai' => 1, |
| |
'aak' => 1, |
| |
'aal' => 1, |
| |
'aam' => 1, |
| |
'aan' => 1, |
| |
'aap' => 1, |
| |
'aaq' => 1, |
| |
'aas' => 1, |
| |
'aau' => 1, |
| |
'aav' => 1, |
| |
'aaw' => 1, |
| |
'aax' => 1, |
| |
'aaz' => 1, |
| |
'aba' => 1, |
| |
'abb' => 1, |
| |
'abc' => 1, |
| |
'abd' => 1, |
| |
'abe' => 1, |
| |
'abf' => 1, |
| |
'abg' => 1, |
| |
'abi' => 1, |
| |
'abj' => 1, |
| |
'abl' => 1, |
| |
'abm' => 1, |
| |
'abn' => 1, |
| |
'abo' => 1, |
| |
'abp' => 1, |
| |
'abq' => 1, |
| |
'abr' => 1, |
| |
'abs' => 1, |
| |
'abt' => 1, |
| |
'abu' => 1, |
| |
'abw' => 1, |
| |
'abx' => 1, |
| |
'aby' => 1, |
| |
'abz' => 1, |
| |
'aca' => 1, |
| |
'acb' => 1, |
| |
'acd' => 1, |
| |
'ace' => 1, |
| |
'acf' => 1, |
| |
'ach' => 1, |
| |
'aci' => 1, |
| |
'ack' => 1, |
| |
'acl' => 1, |
| |
'acn' => 1, |
| |
'acp' => 1, |
| |
'acr' => 1, |
| |
'acs' => 1, |
| |
'act' => 1, |
| |
'acu' => 1, |
| |
'acv' => 1, |
| |
'acz' => 1, |
| |
'ada' => 1, |
| |
'adb' => 1, |
| |
'add' => 1, |
| |
'ade' => 1, |
| |
'adg' => 1, |
| |
'adh' => 1, |
| |
'adi' => 1, |
| |
'adj' => 1, |
| |
'adl' => 1, |
| |
'adn' => 1, |
| |
'ado' => 1, |
| |
'adp' => 1, |
| |
'adq' => 1, |
| |
'adr' => 1, |
| |
'ads' => 1, |
| |
'adt' => 1, |
| |
'adu' => 1, |
| |
'adw' => 1, |
| |
'adx' => 1, |
| |
'ady' => 1, |
| |
'adz' => 1, |
| |
'aea' => 1, |
| |
'aed' => 1, |
| |
'aee' => 1, |
| |
'aek' => 1, |
| |
'ael' => 1, |
| |
'aem' => 1, |
| |
'aen' => 1, |
| |
'aeq' => 1, |
| |
'aer' => 1, |
| |
'aes' => 1, |
| |
'aeu' => 1, |
| |
'aew' => 1, |
| |
'aey' => 1, |
| |
'aez' => 1, |
| |
'afa' => 1, |
| |
'afd' => 1, |
| |
'afe' => 1, |
| |
'afg' => 1, |
| |
'afh' => 1, |
| |
'afi' => 1, |
| |
'afk' => 1, |
| |
'afn' => 1, |
| |
'afo' => 1, |
| |
'afp' => 1, |
| |
'afs' => 1, |
| |
'aft' => 1, |
| |
'afu' => 1, |
| |
'afz' => 1, |
| |
'aga' => 1, |
| |
'agb' => 1, |
| |
'agc' => 1, |
| |
'agd' => 1, |
| |
'age' => 1, |
| |
'agf' => 1, |
| |
'agg' => 1, |
| |
'agh' => 1, |
| |
'agi' => 1, |
| |
'agj' => 1, |
| |
'agk' => 1, |
| |
'agl' => 1, |
| |
'agm' => 1, |
| |
'agn' => 1, |
| |
'ago' => 1, |
| |
'agp' => 1, |
| |
'agq' => 1, |
| |
'agr' => 1, |
| |
'ags' => 1, |
| |
'agt' => 1, |
| |
'agu' => 1, |
| |
'agv' => 1, |
| |
'agw' => 1, |
| |
'agx' => 1, |
| |
'agy' => 1, |
| |
'agz' => 1, |
| |
'aha' => 1, |
| |
'ahb' => 1, |
| |
'ahg' => 1, |
| |
'ahh' => 1, |
| |
'ahi' => 1, |
| |
'ahk' => 1, |
| |
'ahl' => 1, |
| |
'ahm' => 1, |
| |
'ahn' => 1, |
| |
'aho' => 1, |
| |
'ahp' => 1, |
| |
'ahr' => 1, |
| |
'ahs' => 1, |
| |
'aht' => 1, |
| |
'aia' => 1, |
| |
'aib' => 1, |
| |
'aic' => 1, |
| |
'aid' => 1, |
| |
'aie' => 1, |
| |
'aif' => 1, |
| |
'aig' => 1, |
| |
'aih' => 1, |
| |
'aij' => 1, |
| |
'aik' => 1, |
| |
'ail' => 1, |
| |
'aim' => 1, |
| |
'ain' => 1, |
| |
'aio' => 1, |
| |
'aip' => 1, |
| |
'aiq' => 1, |
| |
'air' => 1, |
| |
'ais' => 1, |
| |
'ait' => 1, |
| |
'aiw' => 1, |
| |
'aix' => 1, |
| |
'aiy' => 1, |
| |
'aja' => 1, |
| |
'ajg' => 1, |
| |
'aji' => 1, |
| |
'ajw' => 1, |
| |
'ajz' => 1, |
| |
'akb' => 1, |
| |
'akc' => 1, |
| |
'akd' => 1, |
| |
'ake' => 1, |
| |
'akf' => 1, |
| |
'akg' => 1, |
| |
'akh' => 1, |
| |
'aki' => 1, |
| |
'akj' => 1, |
| |
'akk' => 1, |
| |
'akl' => 1, |
| |
'akm' => 1, |
| |
'ako' => 1, |
| |
'akp' => 1, |
| |
'akq' => 1, |
| |
'akr' => 1, |
| |
'aks' => 1, |
| |
'akt' => 1, |
| |
'aku' => 1, |
| |
'akv' => 1, |
| |
'akw' => 1, |
| |
'akx' => 1, |
| |
'aky' => 1, |
| |
'akz' => 1, |
| |
'ala' => 1, |
| |
'alc' => 1, |
| |
'ald' => 1, |
| |
'ale' => 1, |
| |
'alf' => 1, |
| |
'alg' => 1, |
| |
'alh' => 1, |
| |
'ali' => 1, |
| |
'alj' => 1, |
| |
'alk' => 1, |
| |
'all' => 1, |
| |
'alm' => 1, |
| |
'alo' => 1, |
| |
'alp' => 1, |
| |
'alq' => 1, |
| |
'alr' => 1, |
| |
'alt' => 1, |
| |
'alu' => 1, |
| |
'alv' => 1, |
| |
'alw' => 1, |
| |
'alx' => 1, |
| |
'aly' => 1, |
| |
'alz' => 1, |
| |
'ama' => 1, |
| |
'amb' => 1, |
| |
'amc' => 1, |
| |
'ame' => 1, |
| |
'amf' => 1, |
| |
'amg' => 1, |
| |
'ami' => 1, |
| |
'amj' => 1, |
| |
'amk' => 1, |
| |
'aml' => 1, |
| |
'amm' => 1, |
| |
'amn' => 1, |
| |
'amo' => 1, |
| |
'amp' => 1, |
| |
'amq' => 1, |
| |
'amr' => 1, |
| |
'ams' => 1, |
| |
'amt' => 1, |
| |
'amu' => 1, |
| |
'amv' => 1, |
| |
'amw' => 1, |
| |
'amx' => 1, |
| |
'amy' => 1, |
| |
'amz' => 1, |
| |
'ana' => 1, |
| |
'anb' => 1, |
| |
'anc' => 1, |
| |
'and' => 1, |
| |
'ane' => 1, |
| |
'anf' => 1, |
| |
'ang' => 1, |
| |
'anh' => 1, |
| |
'ani' => 1, |
| |
'anj' => 1, |
| |
'ank' => 1, |
| |
'anl' => 1, |
| |
'anm' => 1, |
| |
'ann' => 1, |
| |
'ano' => 1, |
| |
'anp' => 1, |
| |
'anq' => 1, |
| |
'anr' => 1, |
| |
'ans' => 1, |
| |
'ant' => 1, |
| |
'anu' => 1, |
| |
'anv' => 1, |
| |
'anw' => 1, |
| |
'anx' => 1, |
| |
'any' => 1, |
| |
'anz' => 1, |
| |
'aoa' => 1, |
| |
'aob' => 1, |
| |
'aoc' => 1, |
| |
'aod' => 1, |
| |
'aoe' => 1, |
| |
'aof' => 1, |
| |
'aog' => 1, |
| |
'aoh' => 1, |
| |
'aoi' => 1, |
| |
'aoj' => 1, |
| |
'aok' => 1, |
| |
'aol' => 1, |
| |
'aom' => 1, |
| |
'aon' => 1, |
| |
'aor' => 1, |
| |
'aos' => 1, |
| |
'aot' => 1, |
| |
'aox' => 1, |
| |
'aoz' => 1, |
| |
'apa' => 1, |
| |
'apb' => 1, |
| |
'ape' => 1, |
| |
'apg' => 1, |
| |
'aph' => 1, |
| |
'api' => 1, |
| |
'apj' => 1, |
| |
'apk' => 1, |
| |
'apl' => 1, |
| |
'apm' => 1, |
| |
'apn' => 1, |
| |
'apo' => 1, |
| |
'app' => 1, |
| |
'apq' => 1, |
| |
'apr' => 1, |
| |
'aps' => 1, |
| |
'apt' => 1, |
| |
'apu' => 1, |
| |
'apv' => 1, |
| |
'apw' => 1, |
| |
'apx' => 1, |
| |
'apy' => 1, |
| |
'apz' => 1, |
| |
'aqa' => 1, |
| |
'aqc' => 1, |
| |
'aqg' => 1, |
| |
'aql' => 1, |
| |
'aqm' => 1, |
| |
'aqn' => 1, |
| |
'aqp' => 1, |
| |
'aqr' => 1, |
| |
'arc' => 1, |
| |
'ard' => 1, |
| |
'are' => 1, |
| |
'arh' => 1, |
| |
'ari' => 1, |
| |
'arj' => 1, |
| |
'ark' => 1, |
| |
'arl' => 1, |
| |
'arn' => 1, |
| |
'aro' => 1, |
| |
'arp' => 1, |
| |
'arr' => 1, |
| |
'art' => 1, |
| |
'aru' => 1, |
| |
'arv' => 1, |
| |
'arw' => 1, |
| |
'arx' => 1, |
| |
'asa' => 1, |
| |
'asb' => 1, |
| |
'asc' => 1, |
| |
'asd' => 1, |
| |
'ase' => 1, |
| |
'asf' => 1, |
| |
'asg' => 1, |
| |
'ash' => 1, |
| |
'asi' => 1, |
| |
'asj' => 1, |
| |
'ask' => 1, |
| |
'asl' => 1, |
| |
'asn' => 1, |
| |
'aso' => 1, |
| |
'asp' => 1, |
| |
'asq' => 1, |
| |
'asr' => 1, |
| |
'ass' => 1, |
| |
'ast' => 1, |
| |
'asu' => 1, |
| |
'asv' => 1, |
| |
'asw' => 1, |
| |
'asx' => 1, |
| |
'asy' => 1, |
| |
'asz' => 1, |
| |
'ata' => 1, |
| |
'atb' => 1, |
| |
'atc' => 1, |
| |
'atd' => 1, |
| |
'ate' => 1, |
| |
'atg' => 1, |
| |
'ath' => 1, |
| |
'ati' => 1, |
| |
'atj' => 1, |
| |
'atk' => 1, |
| |
'atl' => 1, |
| |
'atm' => 1, |
| |
'atn' => 1, |
| |
'ato' => 1, |
| |
'atp' => 1, |
| |
'atq' => 1, |
| |
'atr' => 1, |
| |
'ats' => 1, |
| |
'att' => 1, |
| |
'atu' => 1, |
| |
'atv' => 1, |
| |
'atw' => 1, |
| |
'atx' => 1, |
| |
'aty' => 1, |
| |
'atz' => 1, |
| |
'aua' => 1, |
| |
'aub' => 1, |
| |
'auc' => 1, |
| |
'aud' => 1, |
| |
'aue' => 1, |
| |
'auf' => 1, |
| |
'aug' => 1, |
| |
'auh' => 1, |
| |
'aui' => 1, |
| |
'auj' => 1, |
| |
'auk' => 1, |
| |
'aul' => 1, |
| |
'aum' => 1, |
| |
'aun' => 1, |
| |
'auo' => 1, |
| |
'aup' => 1, |
| |
'auq' => 1, |
| |
'aur' => 1, |
| |
'aus' => 1, |
| |
'aut' => 1, |
| |
'auu' => 1, |
| |
'auw' => 1, |
| |
'aux' => 1, |
| |
'auy' => 1, |
| |
'avb' => 1, |
| |
'avd' => 1, |
| |
'avi' => 1, |
| |
'avk' => 1, |
| |
'avn' => 1, |
| |
'avo' => 1, |
| |
'avs' => 1, |
| |
'avt' => 1, |
| |
'avu' => 1, |
| |
'avv' => 1, |
| |
'awa' => 1, |
| |
'awb' => 1, |
| |
'awc' => 1, |
| |
'awd' => 1, |
| |
'awe' => 1, |
| |
'awh' => 1, |
| |
'awi' => 1, |
| |
'awk' => 1, |
| |
'awm' => 1, |
| |
'awn' => 1, |
| |
'awo' => 1, |
| |
'awr' => 1, |
| |
'aws' => 1, |
| |
'awt' => 1, |
| |
'awu' => 1, |
| |
'awv' => 1, |
| |
'aww' => 1, |
| |
'awx' => 1, |
| |
'awy' => 1, |
| |
'axb' => 1, |
| |
'axg' => 1, |
| |
'axk' => 1, |
| |
'axm' => 1, |
| |
'axx' => 1, |
| |
'aya' => 1, |
| |
'ayb' => 1, |
| |
'ayd' => 1, |
| |
'aye' => 1, |
| |
'ayg' => 1, |
| |
'ayi' => 1, |
| |
'ayk' => 1, |
| |
'ayo' => 1, |
| |
'ayq' => 1, |
| |
'ays' => 1, |
| |
'ayt' => 1, |
| |
'ayu' => 1, |
| |
'ayx' => 1, |
| |
'ayy' => 1, |
| |
'ayz' => 1, |
| |
'aza' => 1, |
| |
'azc' => 1, |
| |
'azg' => 1, |
| |
'azm' => 1, |
| |
'azo' => 1, |
| |
'azt' => 1, |
| |
'azz' => 1, |
| |
'baa' => 1, |
| |
'bab' => 1, |
| |
'bac' => 1, |
| |
'bad' => 1, |
| |
'bae' => 1, |
| |
'baf' => 1, |
| |
'bag' => 1, |
| |
'bah' => 1, |
| |
'bai' => 1, |
| |
'baj' => 1, |
| |
'bal' => 1, |
| |
'ban' => 1, |
| |
'bao' => 1, |
| |
'bap' => 1, |
| |
'bar' => 1, |
| |
'bas' => 1, |
| |
'bat' => 1, |
| |
'bau' => 1, |
| |
'bav' => 1, |
| |
'baw' => 1, |
| |
'bax' => 1, |
| |
'bay' => 1, |
| |
'baz' => 1, |
| |
'bba' => 1, |
| |
'bbb' => 1, |
| |
'bbc' => 1, |
| |
'bbd' => 1, |
| |
'bbe' => 1, |
| |
'bbf' => 1, |
| |
'bbg' => 1, |
| |
'bbh' => 1, |
| |
'bbi' => 1, |
| |
'bbj' => 1, |
| |
'bbk' => 1, |
| |
'bbl' => 1, |
| |
'bbm' => 1, |
| |
'bbn' => 1, |
| |
'bbo' => 1, |
| |
'bbp' => 1, |
| |
'bbq' => 1, |
| |
'bbr' => 1, |
| |
'bbs' => 1, |
| |
'bbt' => 1, |
| |
'bbu' => 1, |
| |
'bbv' => 1, |
| |
'bbw' => 1, |
| |
'bbx' => 1, |
| |
'bby' => 1, |
| |
'bca' => 1, |
| |
'bcb' => 1, |
| |
'bcd' => 1, |
| |
'bce' => 1, |
| |
'bcf' => 1, |
| |
'bcg' => 1, |
| |
'bch' => 1, |
| |
'bci' => 1, |
| |
'bcj' => 1, |
| |
'bck' => 1, |
| |
'bcm' => 1, |
| |
'bcn' => 1, |
| |
'bco' => 1, |
| |
'bcp' => 1, |
| |
'bcq' => 1, |
| |
'bcr' => 1, |
| |
'bcs' => 1, |
| |
'bct' => 1, |
| |
'bcu' => 1, |
| |
'bcv' => 1, |
| |
'bcw' => 1, |
| |
'bcy' => 1, |
| |
'bcz' => 1, |
| |
'bda' => 1, |
| |
'bdb' => 1, |
| |
'bdc' => 1, |
| |
'bdd' => 1, |
| |
'bde' => 1, |
| |
'bdg' => 1, |
| |
'bdh' => 1, |
| |
'bdi' => 1, |
| |
'bdj' => 1, |
| |
'bdk' => 1, |
| |
'bdl' => 1, |
| |
'bdm' => 1, |
| |
'bdn' => 1, |
| |
'bdo' => 1, |
| |
'bdp' => 1, |
| |
'bdq' => 1, |
| |
'bdr' => 1, |
| |
'bds' => 1, |
| |
'bdu' => 1, |
| |
'bdv' => 1, |
| |
'bdw' => 1, |
| |
'bdx' => 1, |
| |
'bdy' => 1, |
| |
'bdz' => 1, |
| |
'bea' => 1, |
| |
'beb' => 1, |
| |
'bec' => 1, |
| |
'bed' => 1, |
| |
'bee' => 1, |
| |
'bef' => 1, |
| |
'beg' => 1, |
| |
'beh' => 1, |
| |
'bei' => 1, |
| |
'bej' => 1, |
| |
'bek' => 1, |
| |
'bem' => 1, |
| |
'beo' => 1, |
| |
'bep' => 1, |
| |
'beq' => 1, |
| |
'ber' => 1, |
| |
'bes' => 1, |
| |
'bet' => 1, |
| |
'beu' => 1, |
| |
'bev' => 1, |
| |
'bew' => 1, |
| |
'bex' => 1, |
| |
'bey' => 1, |
| |
'bez' => 1, |
| |
'bfa' => 1, |
| |
'bfb' => 1, |
| |
'bfc' => 1, |
| |
'bfd' => 1, |
| |
'bfe' => 1, |
| |
'bff' => 1, |
| |
'bfg' => 1, |
| |
'bfh' => 1, |
| |
'bfi' => 1, |
| |
'bfj' => 1, |
| |
'bfk' => 1, |
| |
'bfl' => 1, |
| |
'bfm' => 1, |
| |
'bfn' => 1, |
| |
'bfo' => 1, |
| |
'bfp' => 1, |
| |
'bfq' => 1, |
| |
'bfr' => 1, |
| |
'bfs' => 1, |
| |
'bft' => 1, |
| |
'bfu' => 1, |
| |
'bfw' => 1, |
| |
'bfy' => 1, |
| |
'bfz' => 1, |
| |
'bga' => 1, |
| |
'bgb' => 1, |
| |
'bgc' => 1, |
| |
'bgd' => 1, |
| |
'bge' => 1, |
| |
'bgf' => 1, |
| |
'bgg' => 1, |
| |
'bgi' => 1, |
| |
'bgj' => 1, |
| |
'bgk' => 1, |
| |
'bgl' => 1, |
| |
'bgm' => 1, |
| |
'bgo' => 1, |
| |
'bgr' => 1, |
| |
'bgs' => 1, |
| |
'bgt' => 1, |
| |
'bgu' => 1, |
| |
'bgv' => 1, |
| |
'bgw' => 1, |
| |
'bgx' => 1, |
| |
'bgy' => 1, |
| |
'bgz' => 1, |
| |
'bha' => 1, |
| |
'bhb' => 1, |
| |
'bhc' => 1, |
| |
'bhd' => 1, |
| |
'bhe' => 1, |
| |
'bhf' => 1, |
| |
'bhg' => 1, |
| |
'bhh' => 1, |
| |
'bhi' => 1, |
| |
'bhj' => 1, |
| |
'bhl' => 1, |
| |
'bhm' => 1, |
| |
'bhn' => 1, |
| |
'bho' => 1, |
| |
'bhp' => 1, |
| |
'bhq' => 1, |
| |
'bhs' => 1, |
| |
'bht' => 1, |
| |
'bhu' => 1, |
| |
'bhv' => 1, |
| |
'bhw' => 1, |
| |
'bhx' => 1, |
| |
'bhy' => 1, |
| |
'bhz' => 1, |
| |
'bia' => 1, |
| |
'bib' => 1, |
| |
'bic' => 1, |
| |
'bid' => 1, |
| |
'bie' => 1, |
| |
'bif' => 1, |
| |
'big' => 1, |
| |
'bij' => 1, |
| |
'bik' => 1, |
| |
'bil' => 1, |
| |
'bim' => 1, |
| |
'bin' => 1, |
| |
'bio' => 1, |
| |
'bip' => 1, |
| |
'biq' => 1, |
| |
'bir' => 1, |
| |
'bit' => 1, |
| |
'biu' => 1, |
| |
'biv' => 1, |
| |
'biw' => 1, |
| |
'bix' => 1, |
| |
'biy' => 1, |
| |
'biz' => 1, |
| |
'bja' => 1, |
| |
'bjb' => 1, |
| |
'bjc' => 1, |
| |
'bjd' => 1, |
| |
'bje' => 1, |
| |
'bjf' => 1, |
| |
'bjg' => 1, |
| |
'bjh' => 1, |
| |
'bji' => 1, |
| |
'bjj' => 1, |
| |
'bjk' => 1, |
| |
'bjl' => 1, |
| |
'bjm' => 1, |
| |
'bjo' => 1, |
| |
'bjr' => 1, |
| |
'bjs' => 1, |
| |
'bjt' => 1, |
| |
'bju' => 1, |
| |
'bjv' => 1, |
| |
'bjw' => 1, |
| |
'bjx' => 1, |
| |
'bjy' => 1, |
| |
'bjz' => 1, |
| |
'bka' => 1, |
| |
'bkb' => 1, |
| |
'bkc' => 1, |
| |
'bkd' => 1, |
| |
'bkf' => 1, |
| |
'bkg' => 1, |
| |
'bkh' => 1, |
| |
'bki' => 1, |
| |
'bkj' => 1, |
| |
'bkk' => 1, |
| |
'bkl' => 1, |
| |
'bkm' => 1, |
| |
'bkn' => 1, |
| |
'bko' => 1, |
| |
'bkp' => 1, |
| |
'bkq' => 1, |
| |
'bkr' => 1, |
| |
'bks' => 1, |
| |
'bkt' => 1, |
| |
'bku' => 1, |
| |
'bkv' => 1, |
| |
'bkw' => 1, |
| |
'bkx' => 1, |
| |
'bky' => 1, |
| |
'bkz' => 1, |
| |
'bla' => 1, |
| |
'blb' => 1, |
| |
'blc' => 1, |
| |
'bld' => 1, |
| |
'ble' => 1, |
| |
'blf' => 1, |
| |
'blg' => 1, |
| |
'blh' => 1, |
| |
'bli' => 1, |
| |
'blj' => 1, |
| |
'blk' => 1, |
| |
'bll' => 1, |
| |
'blm' => 1, |
| |
'blo' => 1, |
| |
'blp' => 1, |
| |
'blq' => 1, |
| |
'blr' => 1, |
| |
'bls' => 1, |
| |
'blt' => 1, |
| |
'blv' => 1, |
| |
'blw' => 1, |
| |
'blx' => 1, |
| |
'bly' => 1, |
| |
'blz' => 1, |
| |
'bma' => 1, |
| |
'bmb' => 1, |
| |
'bmc' => 1, |
| |
'bmd' => 1, |
| |
'bme' => 1, |
| |
'bmf' => 1, |
| |
'bmg' => 1, |
| |
'bmh' => 1, |
| |
'bmi' => 1, |
| |
'bmj' => 1, |
| |
'bmk' => 1, |
| |
'bml' => 1, |
| |
'bmn' => 1, |
| |
'bmo' => 1, |
| |
'bmp' => 1, |
| |
'bmq' => 1, |
| |
'bmr' => 1, |
| |
'bms' => 1, |
| |
'bmt' => 1, |
| |
'bmu' => 1, |
| |
'bmv' => 1, |
| |
'bmw' => 1, |
| |
'bmx' => 1, |
| |
'bmy' => 1, |
| |
'bmz' => 1, |
| |
'bna' => 1, |
| |
'bnb' => 1, |
| |
'bnc' => 1, |
| |
'bnd' => 1, |
| |
'bne' => 1, |
| |
'bnf' => 1, |
| |
'bng' => 1, |
| |
'bni' => 1, |
| |
'bnj' => 1, |
| |
'bnk' => 1, |
| |
'bnl' => 1, |
| |
'bnm' => 1, |
| |
'bnn' => 1, |
| |
'bno' => 1, |
| |
'bnp' => 1, |
| |
'bnq' => 1, |
| |
'bnr' => 1, |
| |
'bns' => 1, |
| |
'bnt' => 1, |
| |
'bnu' => 1, |
| |
'bnv' => 1, |
| |
'bnw' => 1, |
| |
'bnx' => 1, |
| |
'bny' => 1, |
| |
'bnz' => 1, |
| |
'boa' => 1, |
| |
'bob' => 1, |
| |
'boe' => 1, |
| |
'bof' => 1, |
| |
'bog' => 1, |
| |
'boh' => 1, |
| |
'boi' => 1, |
| |
'boj' => 1, |
| |
'bok' => 1, |
| |
'bol' => 1, |
| |
'bom' => 1, |
| |
'bon' => 1, |
| |
'boo' => 1, |
| |
'bop' => 1, |
| |
'boq' => 1, |
| |
'bor' => 1, |
| |
'bot' => 1, |
| |
'bou' => 1, |
| |
'bov' => 1, |
| |
'bow' => 1, |
| |
'box' => 1, |
| |
'boy' => 1, |
| |
'boz' => 1, |
| |
'bpa' => 1, |
| |
'bpb' => 1, |
| |
'bpd' => 1, |
| |
'bpg' => 1, |
| |
'bph' => 1, |
| |
'bpi' => 1, |
| |
'bpj' => 1, |
| |
'bpk' => 1, |
| |
'bpl' => 1, |
| |
'bpm' => 1, |
| |
'bpn' => 1, |
| |
'bpo' => 1, |
| |
'bpp' => 1, |
| |
'bpq' => 1, |
| |
'bpr' => 1, |
| |
'bps' => 1, |
| |
'bpt' => 1, |
| |
'bpu' => 1, |
| |
'bpv' => 1, |
| |
'bpw' => 1, |
| |
'bpx' => 1, |
| |
'bpy' => 1, |
| |
'bpz' => 1, |
| |
'bqa' => 1, |
| |
'bqb' => 1, |
| |
'bqc' => 1, |
| |
'bqd' => 1, |
| |
'bqf' => 1, |
| |
'bqg' => 1, |
| |
'bqh' => 1, |
| |
'bqi' => 1, |
| |
'bqj' => 1, |
| |
'bqk' => 1, |
| |
'bql' => 1, |
| |
'bqm' => 1, |
| |
'bqn' => 1, |
| |
'bqo' => 1, |
| |
'bqp' => 1, |
| |
'bqq' => 1, |
| |
'bqr' => 1, |
| |
'bqs' => 1, |
| |
'bqt' => 1, |
| |
'bqu' => 1, |
| |
'bqv' => 1, |
| |
'bqw' => 1, |
| |
'bqx' => 1, |
| |
'bqy' => 1, |
| |
'bqz' => 1, |
| |
'bra' => 1, |
| |
'brb' => 1, |
| |
'brc' => 1, |
| |
'brd' => 1, |
| |
'brf' => 1, |
| |
'brg' => 1, |
| |
'brh' => 1, |
| |
'bri' => 1, |
| |
'brj' => 1, |
| |
'brk' => 1, |
| |
'brl' => 1, |
| |
'brm' => 1, |
| |
'brn' => 1, |
| |
'bro' => 1, |
| |
'brp' => 1, |
| |
'brq' => 1, |
| |
'brr' => 1, |
| |
'brs' => 1, |
| |
'brt' => 1, |
| |
'bru' => 1, |
| |
'brv' => 1, |
| |
'brw' => 1, |
| |
'brx' => 1, |
| |
'bry' => 1, |
| |
'brz' => 1, |
| |
'bsa' => 1, |
| |
'bsb' => 1, |
| |
'bsc' => 1, |
| |
'bse' => 1, |
| |
'bsf' => 1, |
| |
'bsg' => 1, |
| |
'bsh' => 1, |
| |
'bsi' => 1, |
| |
'bsj' => 1, |
| |
'bsk' => 1, |
| |
'bsl' => 1, |
| |
'bsm' => 1, |
| |
'bsn' => 1, |
| |
'bso' => 1, |
| |
'bsp' => 1, |
| |
'bsq' => 1, |
| |
'bsr' => 1, |
| |
'bss' => 1, |
| |
'bst' => 1, |
| |
'bsu' => 1, |
| |
'bsv' => 1, |
| |
'bsw' => 1, |
| |
'bsx' => 1, |
| |
'bsy' => 1, |
| |
'bta' => 1, |
| |
'btb' => 1, |
| |
'btc' => 1, |
| |
'btd' => 1, |
| |
'bte' => 1, |
| |
'btf' => 1, |
| |
'btg' => 1, |
| |
'bth' => 1, |
| |
'bti' => 1, |
| |
'btk' => 1, |
| |
'btl' => 1, |
| |
'btm' => 1, |
| |
'btn' => 1, |
| |
'btp' => 1, |
| |
'btq' => 1, |
| |
'btr' => 1, |
| |
'bts' => 1, |
| |
'btt' => 1, |
| |
'btu' => 1, |
| |
'btv' => 1, |
| |
'btw' => 1, |
| |
'btx' => 1, |
| |
'bty' => 1, |
| |
'btz' => 1, |
| |
'bua' => 1, |
| |
'bub' => 1, |
| |
'buc' => 1, |
| |
'bud' => 1, |
| |
'bue' => 1, |
| |
'buf' => 1, |
| |
'bug' => 1, |
| |
'buh' => 1, |
| |
'bui' => 1, |
| |
'buj' => 1, |
| |
'buk' => 1, |
| |
'bum' => 1, |
| |
'bun' => 1, |
| |
'buo' => 1, |
| |
'bup' => 1, |
| |
'buq' => 1, |
| |
'bus' => 1, |
| |
'but' => 1, |
| |
'buu' => 1, |
| |
'buv' => 1, |
| |
'buw' => 1, |
| |
'bux' => 1, |
| |
'buy' => 1, |
| |
'buz' => 1, |
| |
'bva' => 1, |
| |
'bvb' => 1, |
| |
'bvc' => 1, |
| |
'bvd' => 1, |
| |
'bvf' => 1, |
| |
'bvg' => 1, |
| |
'bvh' => 1, |
| |
'bvi' => 1, |
| |
'bvj' => 1, |
| |
'bvk' => 1, |
| |
'bvl' => 1, |
| |
'bvm' => 1, |
| |
'bvn' => 1, |
| |
'bvo' => 1, |
| |
'bvq' => 1, |
| |
'bvr' => 1, |
| |
'bvt' => 1, |
| |
'bvv' => 1, |
| |
'bvw' => 1, |
| |
'bvx' => 1, |
| |
'bvz' => 1, |
| |
'bwa' => 1, |
| |
'bwb' => 1, |
| |
'bwc' => 1, |
| |
'bwd' => 1, |
| |
'bwe' => 1, |
| |
'bwf' => 1, |
| |
'bwg' => 1, |
| |
'bwh' => 1, |
| |
'bwi' => 1, |
| |
'bwj' => 1, |
| |
'bwk' => 1, |
| |
'bwl' => 1, |
| |
'bwm' => 1, |
| |
'bwn' => 1, |
| |
'bwo' => 1, |
| |
'bwp' => 1, |
| |
'bwq' => 1, |
| |
'bwr' => 1, |
| |
'bws' => 1, |
| |
'bwt' => 1, |
| |
'bwu' => 1, |
| |
'bww' => 1, |
| |
'bwx' => 1, |
| |
'bwy' => 1, |
| |
'bwz' => 1, |
| |
'bxa' => 1, |
| |
'bxb' => 1, |
| |
'bxc' => 1, |
| |
'bxd' => 1, |
| |
'bxe' => 1, |
| |
'bxf' => 1, |
| |
'bxg' => 1, |
| |
'bxh' => 1, |
| |
'bxi' => 1, |
| |
'bxj' => 1, |
| |
'bxl' => 1, |
| |
'bxn' => 1, |
| |
'bxo' => 1, |
| |
'bxp' => 1, |
| |
'bxq' => 1, |
| |
'bxs' => 1, |
| |
'bxv' => 1, |
| |
'bxw' => 1, |
| |
'bxx' => 1, |
| |
'bxz' => 1, |
| |
'bya' => 1, |
| |
'byb' => 1, |
| |
'byc' => 1, |
| |
'byd' => 1, |
| |
'bye' => 1, |
| |
'byf' => 1, |
| |
'byg' => 1, |
| |
'byh' => 1, |
| |
'byi' => 1, |
| |
'byj' => 1, |
| |
'byk' => 1, |
| |
'byl' => 1, |
| |
'bym' => 1, |
| |
'byn' => 1, |
| |
'byo' => 1, |
| |
'byp' => 1, |
| |
'byq' => 1, |
| |
'byr' => 1, |
| |
'bys' => 1, |
| |
'byt' => 1, |
| |
'byv' => 1, |
| |
'byw' => 1, |
| |
'byx' => 1, |
| |
'byy' => 1, |
| |
'byz' => 1, |
| |
'bza' => 1, |
| |
'bzb' => 1, |
| |
'bzd' => 1, |
| |
'bze' => 1, |
| |
'bzf' => 1, |
| |
'bzg' => 1, |
| |
'bzh' => 1, |
| |
'bzi' => 1, |
| |
'bzj' => 1, |
| |
'bzk' => 1, |
| |
'bzl' => 1, |
| |
'bzm' => 1, |
| |
'bzn' => 1, |
| |
'bzo' => 1, |
| |
'bzp' => 1, |
| |
'bzq' => 1, |
| |
'bzr' => 1, |
| |
'bzs' => 1, |
| |
'bzt' => 1, |
| |
'bzu' => 1, |
| |
'bzv' => 1, |
| |
'bzw' => 1, |
| |
'bzx' => 1, |
| |
'bzy' => 1, |
| |
'bzz' => 1, |
| |
'caa' => 1, |
| |
'cab' => 1, |
| |
'cac' => 1, |
| |
'cad' => 1, |
| |
'cae' => 1, |
| |
'caf' => 1, |
| |
'cag' => 1, |
| |
'cah' => 1, |
| |
'cai' => 1, |
| |
'caj' => 1, |
| |
'cak' => 1, |
| |
'cal' => 1, |
| |
'cam' => 1, |
| |
'can' => 1, |
| |
'cao' => 1, |
| |
'cap' => 1, |
| |
'caq' => 1, |
| |
'car' => 1, |
| |
'cas' => 1, |
| |
'cau' => 1, |
| |
'cav' => 1, |
| |
'caw' => 1, |
| |
'cax' => 1, |
| |
'cay' => 1, |
| |
'caz' => 1, |
| |
'cba' => 1, |
| |
'cbb' => 1, |
| |
'cbc' => 1, |
| |
'cbd' => 1, |
| |
'cbe' => 1, |
| |
'cbg' => 1, |
| |
'cbh' => 1, |
| |
'cbi' => 1, |
| |
'cbj' => 1, |
| |
'cbk' => 1, |
| |
'cbl' => 1, |
| |
'cbn' => 1, |
| |
'cbo' => 1, |
| |
'cbr' => 1, |
| |
'cbs' => 1, |
| |
'cbt' => 1, |
| |
'cbu' => 1, |
| |
'cbv' => 1, |
| |
'cby' => 1, |
| |
'cca' => 1, |
| |
'ccc' => 1, |
| |
'ccd' => 1, |
| |
'cce' => 1, |
| |
'ccg' => 1, |
| |
'cch' => 1, |
| |
'ccj' => 1, |
| |
'ccl' => 1, |
| |
'ccm' => 1, |
| |
'ccn' => 1, |
| |
'cco' => 1, |
| |
'ccp' => 1, |
| |
'ccq' => 1, |
| |
'ccr' => 1, |
| |
'ccs' => 1, |
| |
'cda' => 1, |
| |
'cdc' => 1, |
| |
'cdd' => 1, |
| |
'cde' => 1, |
| |
'cdf' => 1, |
| |
'cdg' => 1, |
| |
'cdh' => 1, |
| |
'cdi' => 1, |
| |
'cdj' => 1, |
| |
'cdm' => 1, |
| |
'cdn' => 1, |
| |
'cdr' => 1, |
| |
'cds' => 1, |
| |
'cdy' => 1, |
| |
'cdz' => 1, |
| |
'cea' => 1, |
| |
'ceb' => 1, |
| |
'ceg' => 1, |
| |
'cel' => 1, |
| |
'cen' => 1, |
| |
'cet' => 1, |
| |
'cfa' => 1, |
| |
'cfd' => 1, |
| |
'cfg' => 1, |
| |
'cfm' => 1, |
| |
'cga' => 1, |
| |
'cgc' => 1, |
| |
'cgg' => 1, |
| |
'cgk' => 1, |
| |
'chb' => 1, |
| |
'chc' => 1, |
| |
'chd' => 1, |
| |
'chf' => 1, |
| |
'chg' => 1, |
| |
'chh' => 1, |
| |
'chj' => 1, |
| |
'chk' => 1, |
| |
'chl' => 1, |
| |
'chm' => 1, |
| |
'chn' => 1, |
| |
'cho' => 1, |
| |
'chp' => 1, |
| |
'chq' => 1, |
| |
'chr' => 1, |
| |
'cht' => 1, |
| |
'chw' => 1, |
| |
'chx' => 1, |
| |
'chy' => 1, |
| |
'chz' => 1, |
| |
'cia' => 1, |
| |
'cib' => 1, |
| |
'cic' => 1, |
| |
'cid' => 1, |
| |
'cie' => 1, |
| |
'cih' => 1, |
| |
'cik' => 1, |
| |
'cim' => 1, |
| |
'cin' => 1, |
| |
'cip' => 1, |
| |
'cir' => 1, |
| |
'ciy' => 1, |
| |
'cja' => 1, |
| |
'cje' => 1, |
| |
'cjh' => 1, |
| |
'cji' => 1, |
| |
'cjk' => 1, |
| |
'cjm' => 1, |
| |
'cjn' => 1, |
| |
'cjo' => 1, |
| |
'cjp' => 1, |
| |
'cjr' => 1, |
| |
'cjs' => 1, |
| |
'cjv' => 1, |
| |
'cka' => 1, |
| |
'ckh' => 1, |
| |
'ckl' => 1, |
| |
'cko' => 1, |
| |
'ckq' => 1, |
| |
'ckr' => 1, |
| |
'cks' => 1, |
| |
'ckt' => 1, |
| |
'cku' => 1, |
| |
'ckv' => 1, |
| |
'ckx' => 1, |
| |
'cky' => 1, |
| |
'ckz' => 1, |
| |
'cla' => 1, |
| |
'clc' => 1, |
| |
'cle' => 1, |
| |
'clh' => 1, |
| |
'cli' => 1, |
| |
'clk' => 1, |
| |
'cll' => 1, |
| |
'clm' => 1, |
| |
'clo' => 1, |
| |
'clu' => 1, |
| |
'clw' => 1, |
| |
'cly' => 1, |
| |
'cma' => 1, |
| |
'cmc' => 1, |
| |
'cme' => 1, |
| |
'cmg' => 1, |
| |
'cmi' => 1, |
| |
'cmk' => 1, |
| |
'cml' => 1, |
| |
'cmm' => 1, |
| |
'cmo' => 1, |
| |
'cmr' => 1, |
| |
'cms' => 1, |
| |
'cmt' => 1, |
| |
'cna' => 1, |
| |
'cnb' => 1, |
| |
'cnc' => 1, |
| |
'cng' => 1, |
| |
'cnh' => 1, |
| |
'cni' => 1, |
| |
'cnk' => 1, |
| |
'cnl' => 1, |
| |
'cno' => 1, |
| |
'cns' => 1, |
| |
'cnt' => 1, |
| |
'cnu' => 1, |
| |
'cnw' => 1, |
| |
'cnx' => 1, |
| |
'cob' => 1, |
| |
'coc' => 1, |
| |
'cod' => 1, |
| |
'coe' => 1, |
| |
'cof' => 1, |
| |
'cog' => 1, |
| |
'coh' => 1, |
| |
'coj' => 1, |
| |
'cok' => 1, |
| |
'col' => 1, |
| |
'com' => 1, |
| |
'con' => 1, |
| |
'coo' => 1, |
| |
'cop' => 1, |
| |
'coq' => 1, |
| |
'cot' => 1, |
| |
'cou' => 1, |
| |
'cov' => 1, |
| |
'cow' => 1, |
| |
'cox' => 1, |
| |
'coy' => 1, |
| |
'coz' => 1, |
| |
'cpa' => 1, |
| |
'cpb' => 1, |
| |
'cpc' => 1, |
| |
'cpe' => 1, |
| |
'cpf' => 1, |
| |
'cpg' => 1, |
| |
'cpi' => 1, |
| |
'cpn' => 1, |
| |
'cpp' => 1, |
| |
'cps' => 1, |
| |
'cpu' => 1, |
| |
'cpy' => 1, |
| |
'cra' => 1, |
| |
'crb' => 1, |
| |
'crc' => 1, |
| |
'crd' => 1, |
| |
'crf' => 1, |
| |
'crg' => 1, |
| |
'crh' => 1, |
| |
'cri' => 1, |
| |
'crn' => 1, |
| |
'cro' => 1, |
| |
'crp' => 1, |
| |
'crq' => 1, |
| |
'crr' => 1, |
| |
'crs' => 1, |
| |
'crt' => 1, |
| |
'crv' => 1, |
| |
'crw' => 1, |
| |
'crx' => 1, |
| |
'cry' => 1, |
| |
'crz' => 1, |
| |
'csa' => 1, |
| |
'csb' => 1, |
| |
'csc' => 1, |
| |
'csd' => 1, |
| |
'cse' => 1, |
| |
'csf' => 1, |
| |
'csg' => 1, |
| |
'csh' => 1, |
| |
'csi' => 1, |
| |
'csk' => 1, |
| |
'csl' => 1, |
| |
'csm' => 1, |
| |
'csn' => 1, |
| |
'cso' => 1, |
| |
'csq' => 1, |
| |
'csr' => 1, |
| |
'css' => 1, |
| |
'cst' => 1, |
| |
'csu' => 1, |
| |
'csy' => 1, |
| |
'csz' => 1, |
| |
'cta' => 1, |
| |
'ctc' => 1, |
| |
'ctd' => 1, |
| |
'cte' => 1, |
| |
'ctg' => 1, |
| |
'ctl' => 1, |
| |
'ctm' => 1, |
| |
'ctn' => 1, |
| |
'cto' => 1, |
| |
'ctp' => 1, |
| |
'ctt' => 1, |
| |
'ctu' => 1, |
| |
'ctz' => 1, |
| |
'cua' => 1, |
| |
'cub' => 1, |
| |
'cuc' => 1, |
| |
'cug' => 1, |
| |
'cuh' => 1, |
| |
'cui' => 1, |
| |
'cuj' => 1, |
| |
'cuk' => 1, |
| |
'cul' => 1, |
| |
'cum' => 1, |
| |
'cuo' => 1, |
| |
'cup' => 1, |
| |
'cuq' => 1, |
| |
'cur' => 1, |
| |
'cus' => 1, |
| |
'cut' => 1, |
| |
'cuu' => 1, |
| |
'cuv' => 1, |
| |
'cuw' => 1, |
| |
'cux' => 1, |
| |
'cvg' => 1, |
| |
'cvn' => 1, |
| |
'cwa' => 1, |
| |
'cwb' => 1, |
| |
'cwe' => 1, |
| |
'cwg' => 1, |
| |
'cwt' => 1, |
| |
'cya' => 1, |
| |
'cyb' => 1, |
| |
'cyo' => 1, |
| |
'czk' => 1, |
| |
'czn' => 1, |
| |
'czt' => 1, |
| |
'daa' => 1, |
| |
'dac' => 1, |
| |
'dad' => 1, |
| |
'dae' => 1, |
| |
'daf' => 1, |
| |
'dag' => 1, |
| |
'dah' => 1, |
| |
'dai' => 1, |
| |
'daj' => 1, |
| |
'dak' => 1, |
| |
'dal' => 1, |
| |
'dam' => 1, |
| |
'dao' => 1, |
| |
'dap' => 1, |
| |
'daq' => 1, |
| |
'dar' => 1, |
| |
'das' => 1, |
| |
'dau' => 1, |
| |
'dav' => 1, |
| |
'daw' => 1, |
| |
'dax' => 1, |
| |
'day' => 1, |
| |
'daz' => 1, |
| |
'dba' => 1, |
| |
'dbb' => 1, |
| |
'dbd' => 1, |
| |
'dbe' => 1, |
| |
'dbf' => 1, |
| |
'dbg' => 1, |
| |
'dbi' => 1, |
| |
'dbj' => 1, |
| |
'dbl' => 1, |
| |
'dbm' => 1, |
| |
'dbn' => 1, |
| |
'dbo' => 1, |
| |
'dbp' => 1, |
| |
'dbq' => 1, |
| |
'dbr' => 1, |
| |
'dbu' => 1, |
| |
'dbv' => 1, |
| |
'dby' => 1, |
| |
'dcc' => 1, |
| |
'dcr' => 1, |
| |
'ddd' => 1, |
| |
'dde' => 1, |
| |
'ddg' => 1, |
| |
'ddi' => 1, |
| |
'ddj' => 1, |
| |
'ddn' => 1, |
| |
'ddo' => 1, |
| |
'dds' => 1, |
| |
'ddw' => 1, |
| |
'dec' => 1, |
| |
'ded' => 1, |
| |
'dee' => 1, |
| |
'def' => 1, |
| |
'deg' => 1, |
| |
'deh' => 1, |
| |
'dei' => 1, |
| |
'dek' => 1, |
| |
'del' => 1, |
| |
'dem' => 1, |
| |
'den' => 1, |
| |
'dep' => 1, |
| |
'deq' => 1, |
| |
'der' => 1, |
| |
'des' => 1, |
| |
'dev' => 1, |
| |
'dez' => 1, |
| |
'dga' => 1, |
| |
'dgb' => 1, |
| |
'dgc' => 1, |
| |
'dgd' => 1, |
| |
'dge' => 1, |
| |
'dgg' => 1, |
| |
'dgh' => 1, |
| |
'dgi' => 1, |
| |
'dgk' => 1, |
| |
'dgn' => 1, |
| |
'dgr' => 1, |
| |
'dgs' => 1, |
| |
'dgu' => 1, |
| |
'dgx' => 1, |
| |
'dgz' => 1, |
| |
'dha' => 1, |
| |
'dhg' => 1, |
| |
'dhi' => 1, |
| |
'dhl' => 1, |
| |
'dhm' => 1, |
| |
'dhn' => 1, |
| |
'dho' => 1, |
| |
'dhr' => 1, |
| |
'dhs' => 1, |
| |
'dhu' => 1, |
| |
'dhv' => 1, |
| |
'dhw' => 1, |
| |
'dia' => 1, |
| |
'dic' => 1, |
| |
'did' => 1, |
| |
'dif' => 1, |
| |
'dig' => 1, |
| |
'dih' => 1, |
| |
'dii' => 1, |
| |
'dij' => 1, |
| |
'dil' => 1, |
| |
'dim' => 1, |
| |
'din' => 1, |
| |
'dio' => 1, |
| |
'dir' => 1, |
| |
'dis' => 1, |
| |
'dit' => 1, |
| |
'diu' => 1, |
| |
'dix' => 1, |
| |
'diy' => 1, |
| |
'diz' => 1, |
| |
'djb' => 1, |
| |
'djc' => 1, |
| |
'djd' => 1, |
| |
'dje' => 1, |
| |
'djf' => 1, |
| |
'dji' => 1, |
| |
'djj' => 1, |
| |
'djk' => 1, |
| |
'djl' => 1, |
| |
'djm' => 1, |
| |
'djn' => 1, |
| |
'djo' => 1, |
| |
'djr' => 1, |
| |
'dju' => 1, |
| |
'djw' => 1, |
| |
'dka' => 1, |
| |
'dkk' => 1, |
| |
'dkl' => 1, |
| |
'dkr' => 1, |
| |
'dkx' => 1, |
| |
'dlg' => 1, |
| |
'dlm' => 1, |
| |
'dln' => 1, |
| |
'dma' => 1, |
| |
'dmc' => 1, |
| |
'dme' => 1, |
| |
'dmg' => 1, |
| |
'dmk' => 1, |
| |
'dml' => 1, |
| |
'dmm' => 1, |
| |
'dmn' => 1, |
| |
'dmo' => 1, |
| |
'dmr' => 1, |
| |
'dms' => 1, |
| |
'dmu' => 1, |
| |
'dmv' => 1, |
| |
'dmx' => 1, |
| |
'dmy' => 1, |
| |
'dna' => 1, |
| |
'dnd' => 1, |
| |
'dne' => 1, |
| |
'dng' => 1, |
| |
'dni' => 1, |
| |
'dnk' => 1, |
| |
'dnn' => 1, |
| |
'dnr' => 1, |
| |
'dnt' => 1, |
| |
'dnu' => 1, |
| |
'dnw' => 1, |
| |
'dny' => 1, |
| |
'doa' => 1, |
| |
'dob' => 1, |
| |
'doc' => 1, |
| |
'doe' => 1, |
| |
'dof' => 1, |
| |
'doh' => 1, |
| |
'doi' => 1, |
| |
'dok' => 1, |
| |
'dol' => 1, |
| |
'don' => 1, |
| |
'doo' => 1, |
| |
'dop' => 1, |
| |
'doq' => 1, |
| |
'dor' => 1, |
| |
'dos' => 1, |
| |
'dot' => 1, |
| |
'dov' => 1, |
| |
'dow' => 1, |
| |
'dox' => 1, |
| |
'doy' => 1, |
| |
'doz' => 1, |
| |
'dpp' => 1, |
| |
'dra' => 1, |
| |
'drb' => 1, |
| |
'drd' => 1, |
| |
'dre' => 1, |
| |
'drg' => 1, |
| |
'drh' => 1, |
| |
'dri' => 1, |
| |
'drl' => 1, |
| |
'drn' => 1, |
| |
'dro' => 1, |
| |
'drq' => 1, |
| |
'drr' => 1, |
| |
'drs' => 1, |
| |
'drt' => 1, |
| |
'dru' => 1, |
| |
'drw' => 1, |
| |
'dry' => 1, |
| |
'dsb' => 1, |
| |
'dse' => 1, |
| |
'dsh' => 1, |
| |
'dsi' => 1, |
| |
'dsl' => 1, |
| |
'dsn' => 1, |
| |
'dso' => 1, |
| |
'dsq' => 1, |
| |
'dta' => 1, |
| |
'dtb' => 1, |
| |
'dti' => 1, |
| |
'dtk' => 1, |
| |
'dtm' => 1, |
| |
'dtp' => 1, |
| |
'dtr' => 1, |
| |
'dts' => 1, |
| |
'dtt' => 1, |
| |
'dtu' => 1, |
| |
'dua' => 1, |
| |
'dub' => 1, |
| |
'duc' => 1, |
| |
'dud' => 1, |
| |
'due' => 1, |
| |
'duf' => 1, |
| |
'dug' => 1, |
| |
'duh' => 1, |
| |
'dui' => 1, |
| |
'duj' => 1, |
| |
'duk' => 1, |
| |
'dul' => 1, |
| |
'dum' => 1, |
| |
'dun' => 1, |
| |
'duo' => 1, |
| |
'duq' => 1, |
| |
'dur' => 1, |
| |
'dus' => 1, |
| |
'duu' => 1, |
| |
'duv' => 1, |
| |
'duw' => 1, |
| |
'dux' => 1, |
| |
'duy' => 1, |
| |
'duz' => 1, |
| |
'dva' => 1, |
| |
'dwa' => 1, |
| |
'dwl' => 1, |
| |
'dwr' => 1, |
| |
'dws' => 1, |
| |
'dww' => 1, |
| |
'dya' => 1, |
| |
'dyb' => 1, |
| |
'dyd' => 1, |
| |
'dyg' => 1, |
| |
'dyi' => 1, |
| |
'dym' => 1, |
| |
'dyn' => 1, |
| |
'dyo' => 1, |
| |
'dyu' => 1, |
| |
'dyy' => 1, |
| |
'dza' => 1, |
| |
'dzd' => 1, |
| |
'dzg' => 1, |
| |
'dzl' => 1, |
| |
'dzn' => 1, |
| |
'ebg' => 1, |
| |
'ebo' => 1, |
| |
'ebr' => 1, |
| |
'ebu' => 1, |
| |
'ecr' => 1, |
| |
'ecs' => 1, |
| |
'ecy' => 1, |
| |
'eee' => 1, |
| |
'efa' => 1, |
| |
'efe' => 1, |
| |
'efi' => 1, |
| |
'ega' => 1, |
| |
'egl' => 1, |
| |
'ego' => 1, |
| |
'egx' => 1, |
| |
'egy' => 1, |
| |
'ehu' => 1, |
| |
'eip' => 1, |
| |
'eit' => 1, |
| |
'eiv' => 1, |
| |
'eja' => 1, |
| |
'eka' => 1, |
| |
'eke' => 1, |
| |
'ekg' => 1, |
| |
'eki' => 1, |
| |
'ekl' => 1, |
| |
'ekm' => 1, |
| |
'eko' => 1, |
| |
'ekp' => 1, |
| |
'ekr' => 1, |
| |
'eky' => 1, |
| |
'ele' => 1, |
| |
'elh' => 1, |
| |
'eli' => 1, |
| |
'elk' => 1, |
| |
'elm' => 1, |
| |
'elo' => 1, |
| |
'elp' => 1, |
| |
'elu' => 1, |
| |
'elx' => 1, |
| |
'ema' => 1, |
| |
'emb' => 1, |
| |
'eme' => 1, |
| |
'emg' => 1, |
| |
'emi' => 1, |
| |
'emm' => 1, |
| |
'emn' => 1, |
| |
'emo' => 1, |
| |
'emp' => 1, |
| |
'ems' => 1, |
| |
'emu' => 1, |
| |
'emw' => 1, |
| |
'emy' => 1, |
| |
'ena' => 1, |
| |
'enc' => 1, |
| |
'end' => 1, |
| |
'enf' => 1, |
| |
'enh' => 1, |
| |
'enm' => 1, |
| |
'enn' => 1, |
| |
'eno' => 1, |
| |
'enq' => 1, |
| |
'enr' => 1, |
| |
'enu' => 1, |
| |
'env' => 1, |
| |
'enw' => 1, |
| |
'eot' => 1, |
| |
'epi' => 1, |
| |
'era' => 1, |
| |
'erg' => 1, |
| |
'erh' => 1, |
| |
'eri' => 1, |
| |
'erk' => 1, |
| |
'ero' => 1, |
| |
'err' => 1, |
| |
'ers' => 1, |
| |
'ert' => 1, |
| |
'erw' => 1, |
| |
'ese' => 1, |
| |
'esh' => 1, |
| |
'esl' => 1, |
| |
'esm' => 1, |
| |
'esn' => 1, |
| |
'eso' => 1, |
| |
'esq' => 1, |
| |
'ess' => 1, |
| |
'esu' => 1, |
| |
'esx' => 1, |
| |
'etb' => 1, |
| |
'etc' => 1, |
| |
'eth' => 1, |
| |
'etn' => 1, |
| |
'eto' => 1, |
| |
'etr' => 1, |
| |
'ets' => 1, |
| |
'ett' => 1, |
| |
'etu' => 1, |
| |
'etx' => 1, |
| |
'etz' => 1, |
| |
'euq' => 1, |
| |
'eve' => 1, |
| |
'evh' => 1, |
| |
'evn' => 1, |
| |
'ewo' => 1, |
| |
'ext' => 1, |
| |
'eya' => 1, |
| |
'eze' => 1, |
| |
'faa' => 1, |
| |
'fab' => 1, |
| |
'fad' => 1, |
| |
'faf' => 1, |
| |
'fag' => 1, |
| |
'fah' => 1, |
| |
'fai' => 1, |
| |
'faj' => 1, |
| |
'fak' => 1, |
| |
'fal' => 1, |
| |
'fam' => 1, |
| |
'fan' => 1, |
| |
'fap' => 1, |
| |
'far' => 1, |
| |
'fau' => 1, |
| |
'fax' => 1, |
| |
'fay' => 1, |
| |
'faz' => 1, |
| |
'fcs' => 1, |
| |
'fer' => 1, |
| |
'ffi' => 1, |
| |
'fgr' => 1, |
| |
'fia' => 1, |
| |
'fie' => 1, |
| |
'fil' => 1, |
| |
'fip' => 1, |
| |
'fir' => 1, |
| |
'fit' => 1, |
| |
'fiu' => 1, |
| |
'fiw' => 1, |
| |
'fkv' => 1, |
| |
'fla' => 1, |
| |
'flh' => 1, |
| |
'fli' => 1, |
| |
'fll' => 1, |
| |
'fln' => 1, |
| |
'flr' => 1, |
| |
'fly' => 1, |
| |
'fmp' => 1, |
| |
'fmu' => 1, |
| |
'fng' => 1, |
| |
'fni' => 1, |
| |
'fod' => 1, |
| |
'foi' => 1, |
| |
'fom' => 1, |
| |
'fon' => 1, |
| |
'for' => 1, |
| |
'fos' => 1, |
| |
'fox' => 1, |
| |
'fpe' => 1, |
| |
'fqs' => 1, |
| |
'frc' => 1, |
| |
'frd' => 1, |
| |
'frk' => 1, |
| |
'frm' => 1, |
| |
'fro' => 1, |
| |
'frp' => 1, |
| |
'frq' => 1, |
| |
'frr' => 1, |
| |
'frs' => 1, |
| |
'frt' => 1, |
| |
'fse' => 1, |
| |
'fsl' => 1, |
| |
'fss' => 1, |
| |
'fud' => 1, |
| |
'fuj' => 1, |
| |
'fum' => 1, |
| |
'fun' => 1, |
| |
'fur' => 1, |
| |
'fut' => 1, |
| |
'fuu' => 1, |
| |
'fuy' => 1, |
| |
'fvr' => 1, |
| |
'fwa' => 1, |
| |
'fwe' => 1, |
| |
'gaa' => 1, |
| |
'gab' => 1, |
| |
'gad' => 1, |
| |
'gae' => 1, |
| |
'gaf' => 1, |
| |
'gag' => 1, |
| |
'gah' => 1, |
| |
'gai' => 1, |
| |
'gaj' => 1, |
| |
'gak' => 1, |
| |
'gal' => 1, |
| |
'gam' => 1, |
| |
'gao' => 1, |
| |
'gap' => 1, |
| |
'gaq' => 1, |
| |
'gar' => 1, |
| |
'gas' => 1, |
| |
'gat' => 1, |
| |
'gau' => 1, |
| |
'gav' => 1, |
| |
'gaw' => 1, |
| |
'gay' => 1, |
| |
'gba' => 1, |
| |
'gbb' => 1, |
| |
'gbc' => 1, |
| |
'gbd' => 1, |
| |
'gbe' => 1, |
| |
'gbf' => 1, |
| |
'gbg' => 1, |
| |
'gbh' => 1, |
| |
'gbi' => 1, |
| |
'gbj' => 1, |
| |
'gbk' => 1, |
| |
'gbl' => 1, |
| |
'gbm' => 1, |
| |
'gbn' => 1, |
| |
'gbr' => 1, |
| |
'gbs' => 1, |
| |
'gbu' => 1, |
| |
'gbv' => 1, |
| |
'gbx' => 1, |
| |
'gby' => 1, |
| |
'gbz' => 1, |
| |
'gcc' => 1, |
| |
'gcd' => 1, |
| |
'gce' => 1, |
| |
'gcf' => 1, |
| |
'gcl' => 1, |
| |
'gcn' => 1, |
| |
'gcr' => 1, |
| |
'gct' => 1, |
| |
'gdb' => 1, |
| |
'gdc' => 1, |
| |
'gdd' => 1, |
| |
'gde' => 1, |
| |
'gdf' => 1, |
| |
'gdg' => 1, |
| |
'gdh' => 1, |
| |
'gdi' => 1, |
| |
'gdj' => 1, |
| |
'gdk' => 1, |
| |
'gdl' => 1, |
| |
'gdm' => 1, |
| |
'gdn' => 1, |
| |
'gdo' => 1, |
| |
'gdq' => 1, |
| |
'gdr' => 1, |
| |
'gdu' => 1, |
| |
'gdx' => 1, |
| |
'gea' => 1, |
| |
'geb' => 1, |
| |
'ged' => 1, |
| |
'geg' => 1, |
| |
'geh' => 1, |
| |
'gei' => 1, |
| |
'gej' => 1, |
| |
'gek' => 1, |
| |
'gel' => 1, |
| |
'gem' => 1, |
| |
'geq' => 1, |
| |
'ges' => 1, |
| |
'gew' => 1, |
| |
'gex' => 1, |
| |
'gey' => 1, |
| |
'gez' => 1, |
| |
'gfk' => 1, |
| |
'gft' => 1, |
| |
'gga' => 1, |
| |
'ggb' => 1, |
| |
'ggd' => 1, |
| |
'gge' => 1, |
| |
'ggg' => 1, |
| |
'ggk' => 1, |
| |
'ggl' => 1, |
| |
'ggn' => 1, |
| |
'ggr' => 1, |
| |
'ggt' => 1, |
| |
'ggu' => 1, |
| |
'ggw' => 1, |
| |
'gha' => 1, |
| |
'ghc' => 1, |
| |
'ghe' => 1, |
| |
'ghh' => 1, |
| |
'ghk' => 1, |
| |
'ghl' => 1, |
| |
'ghn' => 1, |
| |
'gho' => 1, |
| |
'ghr' => 1, |
| |
'ghs' => 1, |
| |
'ght' => 1, |
| |
'gia' => 1, |
| |
'gib' => 1, |
| |
'gic' => 1, |
| |
'gid' => 1, |
| |
'gig' => 1, |
| |
'gil' => 1, |
| |
'gim' => 1, |
| |
'gin' => 1, |
| |
'gio' => 1, |
| |
'gip' => 1, |
| |
'giq' => 1, |
| |
'gir' => 1, |
| |
'gis' => 1, |
| |
'git' => 1, |
| |
'giw' => 1, |
| |
'gix' => 1, |
| |
'giy' => 1, |
| |
'giz' => 1, |
| |
'gji' => 1, |
| |
'gjk' => 1, |
| |
'gjn' => 1, |
| |
'gka' => 1, |
| |
'gke' => 1, |
| |
'gkn' => 1, |
| |
'glc' => 1, |
| |
'gld' => 1, |
| |
'glh' => 1, |
| |
'gli' => 1, |
| |
'glj' => 1, |
| |
'glk' => 1, |
| |
'glo' => 1, |
| |
'glr' => 1, |
| |
'glu' => 1, |
| |
'glw' => 1, |
| |
'gly' => 1, |
| |
'gma' => 1, |
| |
'gmb' => 1, |
| |
'gmd' => 1, |
| |
'gme' => 1, |
| |
'gmh' => 1, |
| |
'gml' => 1, |
| |
'gmn' => 1, |
| |
'gmq' => 1, |
| |
'gmu' => 1, |
| |
'gmv' => 1, |
| |
'gmw' => 1, |
| |
'gmx' => 1, |
| |
'gmy' => 1, |
| |
'gna' => 1, |
| |
'gnb' => 1, |
| |
'gnc' => 1, |
| |
'gnd' => 1, |
| |
'gne' => 1, |
| |
'gng' => 1, |
| |
'gnh' => 1, |
| |
'gni' => 1, |
| |
'gnk' => 1, |
| |
'gnl' => 1, |
| |
'gnm' => 1, |
| |
'gnn' => 1, |
| |
'gnq' => 1, |
| |
'gnr' => 1, |
| |
'gnt' => 1, |
| |
'gnu' => 1, |
| |
'gnz' => 1, |
| |
'goa' => 1, |
| |
'gob' => 1, |
| |
'goc' => 1, |
| |
'god' => 1, |
| |
'goe' => 1, |
| |
'gof' => 1, |
| |
'gog' => 1, |
| |
'goh' => 1, |
| |
'goi' => 1, |
| |
'goj' => 1, |
| |
'gok' => 1, |
| |
'gol' => 1, |
| |
'gon' => 1, |
| |
'goo' => 1, |
| |
'gop' => 1, |
| |
'goq' => 1, |
| |
'gor' => 1, |
| |
'gos' => 1, |
| |
'got' => 1, |
| |
'gou' => 1, |
| |
'gow' => 1, |
| |
'gox' => 1, |
| |
'goy' => 1, |
| |
'goz' => 1, |
| |
'gpa' => 1, |
| |
'gpn' => 1, |
| |
'gqa' => 1, |
| |
'gqi' => 1, |
| |
'gqn' => 1, |
| |
'gqr' => 1, |
| |
'gra' => 1, |
| |
'grb' => 1, |
| |
'grc' => 1, |
| |
'grd' => 1, |
| |
'grg' => 1, |
| |
'grh' => 1, |
| |
'gri' => 1, |
| |
'grk' => 1, |
| |
'grm' => 1, |
| |
'gro' => 1, |
| |
'grq' => 1, |
| |
'grr' => 1, |
| |
'grs' => 1, |
| |
'grt' => 1, |
| |
'gru' => 1, |
| |
'grw' => 1, |
| |
'grx' => 1, |
| |
'grz' => 1, |
| |
'gse' => 1, |
| |
'gsg' => 1, |
| |
'gsl' => 1, |
| |
'gsm' => 1, |
| |
'gsn' => 1, |
| |
'gsp' => 1, |
| |
'gss' => 1, |
| |
'gsw' => 1, |
| |
'gta' => 1, |
| |
'gti' => 1, |
| |
'gua' => 1, |
| |
'gub' => 1, |
| |
'guc' => 1, |
| |
'gud' => 1, |
| |
'gue' => 1, |
| |
'guf' => 1, |
| |
'guh' => 1, |
| |
'guk' => 1, |
| |
'gul' => 1, |
| |
'gum' => 1, |
| |
'guo' => 1, |
| |
'gup' => 1, |
| |
'guq' => 1, |
| |
'gur' => 1, |
| |
'gus' => 1, |
| |
'gut' => 1, |
| |
'guu' => 1, |
| |
'guv' => 1, |
| |
'guw' => 1, |
| |
'gux' => 1, |
| |
'guz' => 1, |
| |
'gva' => 1, |
| |
'gvc' => 1, |
| |
'gve' => 1, |
| |
'gvf' => 1, |
| |
'gvj' => 1, |
| |
'gvl' => 1, |
| |
'gvm' => 1, |
| |
'gvn' => 1, |
| |
'gvo' => 1, |
| |
'gvp' => 1, |
| |
'gvr' => 1, |
| |
'gvs' => 1, |
| |
'gvy' => 1, |
| |
'gwa' => 1, |
| |
'gwb' => 1, |
| |
'gwc' => 1, |
| |
'gwd' => 1, |
| |
'gwe' => 1, |
| |
'gwf' => 1, |
| |
'gwg' => 1, |
| |
'gwi' => 1, |
| |
'gwj' => 1, |
| |
'gwn' => 1, |
| |
'gwr' => 1, |
| |
'gwt' => 1, |
| |
'gwu' => 1, |
| |
'gww' => 1, |
| |
'gwx' => 1, |
| |
'gxx' => 1, |
| |
'gyb' => 1, |
| |
'gyd' => 1, |
| |
'gye' => 1, |
| |
'gyf' => 1, |
| |
'gyg' => 1, |
| |
'gyi' => 1, |
| |
'gyl' => 1, |
| |
'gym' => 1, |
| |
'gyn' => 1, |
| |
'gyr' => 1, |
| |
'gyy' => 1, |
| |
'gza' => 1, |
| |
'gzi' => 1, |
| |
'gzn' => 1, |
| |
'haa' => 1, |
| |
'hab' => 1, |
| |
'hac' => 1, |
| |
'had' => 1, |
| |
'haf' => 1, |
| |
'hag' => 1, |
| |
'hah' => 1, |
| |
'hai' => 1, |
| |
'haj' => 1, |
| |
'hal' => 1, |
| |
'ham' => 1, |
| |
'han' => 1, |
| |
'hao' => 1, |
| |
'hap' => 1, |
| |
'haq' => 1, |
| |
'har' => 1, |
| |
'has' => 1, |
| |
'hav' => 1, |
| |
'haw' => 1, |
| |
'hay' => 1, |
| |
'haz' => 1, |
| |
'hba' => 1, |
| |
'hbb' => 1, |
| |
'hbn' => 1, |
| |
'hbo' => 1, |
| |
'hbu' => 1, |
| |
'hca' => 1, |
| |
'hch' => 1, |
| |
'hds' => 1, |
| |
'hdy' => 1, |
| |
'hed' => 1, |
| |
'heg' => 1, |
| |
'heh' => 1, |
| |
'hei' => 1, |
| |
'hem' => 1, |
| |
'hgm' => 1, |
| |
'hgw' => 1, |
| |
'hhi' => 1, |
| |
'hhr' => 1, |
| |
'hhy' => 1, |
| |
'hia' => 1, |
| |
'hib' => 1, |
| |
'hid' => 1, |
| |
'hif' => 1, |
| |
'hig' => 1, |
| |
'hih' => 1, |
| |
'hii' => 1, |
| |
'hij' => 1, |
| |
'hik' => 1, |
| |
'hil' => 1, |
| |
'him' => 1, |
| |
'hio' => 1, |
| |
'hir' => 1, |
| |
'hit' => 1, |
| |
'hiw' => 1, |
| |
'hix' => 1, |
| |
'hka' => 1, |
| |
'hke' => 1, |
| |
'hkk' => 1, |
| |
'hks' => 1, |
| |
'hla' => 1, |
| |
'hlb' => 1, |
| |
'hld' => 1, |
| |
'hle' => 1, |
| |
'hlt' => 1, |
| |
'hlu' => 1, |
| |
'hmb' => 1, |
| |
'hmf' => 1, |
| |
'hmk' => 1, |
| |
'hmn' => 1, |
| |
'hmr' => 1, |
| |
'hmt' => 1, |
| |
'hmu' => 1, |
| |
'hmv' => 1, |
| |
'hmx' => 1, |
| |
'hmz' => 1, |
| |
'hna' => 1, |
| |
'hne' => 1, |
| |
'hnh' => 1, |
| |
'hni' => 1, |
| |
'hnn' => 1, |
| |
'hns' => 1, |
| |
'hnu' => 1, |
| |
'hoa' => 1, |
| |
'hob' => 1, |
| |
'hoc' => 1, |
| |
'hod' => 1, |
| |
'hoe' => 1, |
| |
'hoh' => 1, |
| |
'hoi' => 1, |
| |
'hok' => 1, |
| |
'hol' => 1, |
| |
'hom' => 1, |
| |
'hoo' => 1, |
| |
'hop' => 1, |
| |
'hor' => 1, |
| |
'hos' => 1, |
| |
'hot' => 1, |
| |
'hov' => 1, |
| |
'how' => 1, |
| |
'hoy' => 1, |
| |
'hoz' => 1, |
| |
'hpo' => 1, |
| |
'hps' => 1, |
| |
'hra' => 1, |
| |
'hre' => 1, |
| |
'hrk' => 1, |
| |
'hro' => 1, |
| |
'hrr' => 1, |
| |
'hrt' => 1, |
| |
'hru' => 1, |
| |
'hrx' => 1, |
| |
'hrz' => 1, |
| |
'hsb' => 1, |
| |
'hsh' => 1, |
| |
'hsl' => 1, |
| |
'hss' => 1, |
| |
'hti' => 1, |
| |
'hto' => 1, |
| |
'hts' => 1, |
| |
'htu' => 1, |
| |
'htx' => 1, |
| |
'hub' => 1, |
| |
'huc' => 1, |
| |
'hud' => 1, |
| |
'hue' => 1, |
| |
'huf' => 1, |
| |
'hug' => 1, |
| |
'huh' => 1, |
| |
'hui' => 1, |
| |
'huk' => 1, |
| |
'hul' => 1, |
| |
'hum' => 1, |
| |
'huo' => 1, |
| |
'hup' => 1, |
| |
'huq' => 1, |
| |
'hur' => 1, |
| |
'hus' => 1, |
| |
'hut' => 1, |
| |
'huu' => 1, |
| |
'huv' => 1, |
| |
'huw' => 1, |
| |
'hux' => 1, |
| |
'huy' => 1, |
| |
'huz' => 1, |
| |
'hvc' => 1, |
| |
'hve' => 1, |
| |
'hvk' => 1, |
| |
'hvn' => 1, |
| |
'hvv' => 1, |
| |
'hwa' => 1, |
| |
'hwc' => 1, |
| |
'hwo' => 1, |
| |
'hya' => 1, |
| |
'hyx' => 1, |
| |
'iai' => 1, |
| |
'ian' => 1, |
| |
'iap' => 1, |
| |
'iar' => 1, |
| |
'iba' => 1, |
| |
'ibb' => 1, |
| |
'ibd' => 1, |
| |
'ibe' => 1, |
| |
'ibg' => 1, |
| |
'ibi' => 1, |
| |
'ibl' => 1, |
| |
'ibm' => 1, |
| |
'ibn' => 1, |
| |
'ibr' => 1, |
| |
'ibu' => 1, |
| |
'iby' => 1, |
| |
'ica' => 1, |
| |
'ich' => 1, |
| |
'icl' => 1, |
| |
'icr' => 1, |
| |
'idb' => 1, |
| |
'idc' => 1, |
| |
'idd' => 1, |
| |
'ide' => 1, |
| |
'idi' => 1, |
| |
'idr' => 1, |
| |
'ids' => 1, |
| |
'idt' => 1, |
| |
'idu' => 1, |
| |
'ifa' => 1, |
| |
'ifb' => 1, |
| |
'ife' => 1, |
| |
'iff' => 1, |
| |
'ifk' => 1, |
| |
'ifm' => 1, |
| |
'ifu' => 1, |
| |
'ify' => 1, |
| |
'igb' => 1, |
| |
'ige' => 1, |
| |
'igg' => 1, |
| |
'igl' => 1, |
| |
'igm' => 1, |
| |
'ign' => 1, |
| |
'igo' => 1, |
| |
'igs' => 1, |
| |
'igw' => 1, |
| |
'ihb' => 1, |
| |
'ihi' => 1, |
| |
'ihp' => 1, |
| |
'iir' => 1, |
| |
'ijc' => 1, |
| |
'ije' => 1, |
| |
'ijj' => 1, |
| |
'ijn' => 1, |
| |
'ijo' => 1, |
| |
'ijs' => 1, |
| |
'iki' => 1, |
| |
'ikk' => 1, |
| |
'ikl' => 1, |
| |
'iko' => 1, |
| |
'ikp' => 1, |
| |
'ikv' => 1, |
| |
'ikw' => 1, |
| |
'ikx' => 1, |
| |
'ikz' => 1, |
| |
'ila' => 1, |
| |
'ilb' => 1, |
| |
'ilg' => 1, |
| |
'ili' => 1, |
| |
'ilk' => 1, |
| |
'ill' => 1, |
| |
'ilo' => 1, |
| |
'ils' => 1, |
| |
'ilu' => 1, |
| |
'ilv' => 1, |
| |
'ilw' => 1, |
| |
'ima' => 1, |
| |
'ime' => 1, |
| |
'imi' => 1, |
| |
'iml' => 1, |
| |
'imn' => 1, |
| |
'imo' => 1, |
| |
'imr' => 1, |
| |
'ims' => 1, |
| |
'imy' => 1, |
| |
'inb' => 1, |
| |
'inc' => 1, |
| |
'ine' => 1, |
| |
'ing' => 1, |
| |
'inh' => 1, |
| |
'inj' => 1, |
| |
'inl' => 1, |
| |
'inm' => 1, |
| |
'inn' => 1, |
| |
'ino' => 1, |
| |
'inp' => 1, |
| |
'ins' => 1, |
| |
'int' => 1, |
| |
'inz' => 1, |
| |
'ior' => 1, |
| |
'iou' => 1, |
| |
'iow' => 1, |
| |
'ipi' => 1, |
| |
'ipo' => 1, |
| |
'iqu' => 1, |
| |
'ira' => 1, |
| |
'ire' => 1, |
| |
'irh' => 1, |
| |
'iri' => 1, |
| |
'irk' => 1, |
| |
'irn' => 1, |
| |
'iro' => 1, |
| |
'irr' => 1, |
| |
'iru' => 1, |
| |
'irx' => 1, |
| |
'iry' => 1, |
| |
'isa' => 1, |
| |
'isc' => 1, |
| |
'isd' => 1, |
| |
'ise' => 1, |
| |
'isg' => 1, |
| |
'ish' => 1, |
| |
'isi' => 1, |
| |
'ism' => 1, |
| |
'isn' => 1, |
| |
'iso' => 1, |
| |
'isr' => 1, |
| |
'ist' => 1, |
| |
'isu' => 1, |
| |
'itb' => 1, |
| |
'itc' => 1, |
| |
'ite' => 1, |
| |
'iti' => 1, |
| |
'itk' => 1, |
| |
'itl' => 1, |
| |
'itm' => 1, |
| |
'ito' => 1, |
| |
'itr' => 1, |
| |
'its' => 1, |
| |
'itt' => 1, |
| |
'itv' => 1, |
| |
'itw' => 1, |
| |
'itx' => 1, |
| |
'ity' => 1, |
| |
'itz' => 1, |
| |
'ium' => 1, |
| |
'ivb' => 1, |
| |
'ivv' => 1, |
| |
'iwk' => 1, |
| |
'iwm' => 1, |
| |
'iwo' => 1, |
| |
'iws' => 1, |
| |
'ixc' => 1, |
| |
'ixl' => 1, |
| |
'iya' => 1, |
| |
'iyo' => 1, |
| |
'iyx' => 1, |
| |
'izh' => 1, |
| |
'izi' => 1, |
| |
'izr' => 1, |
| |
'jaa' => 1, |
| |
'jab' => 1, |
| |
'jac' => 1, |
| |
'jad' => 1, |
| |
'jae' => 1, |
| |
'jaf' => 1, |
| |
'jah' => 1, |
| |
'jaj' => 1, |
| |
'jal' => 1, |
| |
'jam' => 1, |
| |
'jao' => 1, |
| |
'jaq' => 1, |
| |
'jar' => 1, |
| |
'jas' => 1, |
| |
'jau' => 1, |
| |
'jay' => 1, |
| |
'jaz' => 1, |
| |
'jbe' => 1, |
| |
'jbj' => 1, |
| |
'jbn' => 1, |
| |
'jbo' => 1, |
| |
'jbr' => 1, |
| |
'jbt' => 1, |
| |
'jbu' => 1, |
| |
'jcs' => 1, |
| |
'jct' => 1, |
| |
'jda' => 1, |
| |
'jdg' => 1, |
| |
'jdt' => 1, |
| |
'jeb' => 1, |
| |
'jee' => 1, |
| |
'jeg' => 1, |
| |
'jeh' => 1, |
| |
'jei' => 1, |
| |
'jek' => 1, |
| |
'jel' => 1, |
| |
'jen' => 1, |
| |
'jer' => 1, |
| |
'jet' => 1, |
| |
'jeu' => 1, |
| |
'jgb' => 1, |
| |
'jge' => 1, |
| |
'jgo' => 1, |
| |
'jhi' => 1, |
| |
'jhs' => 1, |
| |
'jia' => 1, |
| |
'jib' => 1, |
| |
'jic' => 1, |
| |
'jid' => 1, |
| |
'jie' => 1, |
| |
'jig' => 1, |
| |
'jih' => 1, |
| |
'jii' => 1, |
| |
'jil' => 1, |
| |
'jim' => 1, |
| |
'jio' => 1, |
| |
'jiq' => 1, |
| |
'jit' => 1, |
| |
'jiu' => 1, |
| |
'jiv' => 1, |
| |
'jiy' => 1, |
| |
'jko' => 1, |
| |
'jku' => 1, |
| |
'jle' => 1, |
| |
'jma' => 1, |
| |
'jmb' => 1, |
| |
'jmc' => 1, |
| |
'jmd' => 1, |
| |
'jmi' => 1, |
| |
'jml' => 1, |
| |
'jmn' => 1, |
| |
'jmr' => 1, |
| |
'jms' => 1, |
| |
'jmx' => 1, |
| |
'jna' => 1, |
| |
'jnd' => 1, |
| |
'jng' => 1, |
| |
'jni' => 1, |
| |
'jnj' => 1, |
| |
'jnl' => 1, |
| |
'jns' => 1, |
| |
'job' => 1, |
| |
'jod' => 1, |
| |
'jor' => 1, |
| |
'jos' => 1, |
| |
'jow' => 1, |
| |
'jpa' => 1, |
| |
'jpr' => 1, |
| |
'jpx' => 1, |
| |
'jqr' => 1, |
| |
'jra' => 1, |
| |
'jrb' => 1, |
| |
'jrr' => 1, |
| |
'jrt' => 1, |
| |
'jru' => 1, |
| |
'jsl' => 1, |
| |
'jua' => 1, |
| |
'jub' => 1, |
| |
'juc' => 1, |
| |
'jud' => 1, |
| |
'juh' => 1, |
| |
'juk' => 1, |
| |
'jul' => 1, |
| |
'jum' => 1, |
| |
'jun' => 1, |
| |
'juo' => 1, |
| |
'jup' => 1, |
| |
'jur' => 1, |
| |
'jus' => 1, |
| |
'jut' => 1, |
| |
'juu' => 1, |
| |
'juw' => 1, |
| |
'juy' => 1, |
| |
'jvd' => 1, |
| |
'jvn' => 1, |
| |
'jwi' => 1, |
| |
'jya' => 1, |
| |
'jyy' => 1, |
| |
'kaa' => 1, |
| |
'kab' => 1, |
| |
'kac' => 1, |
| |
'kad' => 1, |
| |
'kae' => 1, |
| |
'kaf' => 1, |
| |
'kag' => 1, |
| |
'kah' => 1, |
| |
'kai' => 1, |
| |
'kaj' => 1, |
| |
'kak' => 1, |
| |
'kam' => 1, |
| |
'kao' => 1, |
| |
'kap' => 1, |
| |
'kaq' => 1, |
| |
'kar' => 1, |
| |
'kav' => 1, |
| |
'kaw' => 1, |
| |
'kax' => 1, |
| |
'kay' => 1, |
| |
'kba' => 1, |
| |
'kbb' => 1, |
| |
'kbc' => 1, |
| |
'kbd' => 1, |
| |
'kbe' => 1, |
| |
'kbf' => 1, |
| |
'kbg' => 1, |
| |
'kbh' => 1, |
| |
'kbi' => 1, |
| |
'kbj' => 1, |
| |
'kbk' => 1, |
| |
'kbl' => 1, |
| |
'kbm' => 1, |
| |
'kbn' => 1, |
| |
'kbo' => 1, |
| |
'kbp' => 1, |
| |
'kbq' => 1, |
| |
'kbr' => 1, |
| |
'kbs' => 1, |
| |
'kbt' => 1, |
| |
'kbu' => 1, |
| |
'kbv' => 1, |
| |
'kbw' => 1, |
| |
'kbx' => 1, |
| |
'kbz' => 1, |
| |
'kca' => 1, |
| |
'kcb' => 1, |
| |
'kcc' => 1, |
| |
'kcd' => 1, |
| |
'kce' => 1, |
| |
'kcf' => 1, |
| |
'kcg' => 1, |
| |
'kch' => 1, |
| |
'kci' => 1, |
| |
'kcj' => 1, |
| |
'kck' => 1, |
| |
'kcl' => 1, |
| |
'kcm' => 1, |
| |
'kcn' => 1, |
| |
'kco' => 1, |
| |
'kcp' => 1, |
| |
'kcq' => 1, |
| |
'kcr' => 1, |
| |
'kcs' => 1, |
| |
'kct' => 1, |
| |
'kcu' => 1, |
| |
'kcv' => 1, |
| |
'kcw' => 1, |
| |
'kcx' => 1, |
| |
'kcy' => 1, |
| |
'kcz' => 1, |
| |
'kda' => 1, |
| |
'kdc' => 1, |
| |
'kdd' => 1, |
| |
'kde' => 1, |
| |
'kdf' => 1, |
| |
'kdg' => 1, |
| |
'kdh' => 1, |
| |
'kdi' => 1, |
| |
'kdj' => 1, |
| |
'kdk' => 1, |
| |
'kdl' => 1, |
| |
'kdm' => 1, |
| |
'kdn' => 1, |
| |
'kdo' => 1, |
| |
'kdp' => 1, |
| |
'kdq' => 1, |
| |
'kdr' => 1, |
| |
'kdt' => 1, |
| |
'kdu' => 1, |
| |
'kdv' => 1, |
| |
'kdw' => 1, |
| |
'kdx' => 1, |
| |
'kdy' => 1, |
| |
'kdz' => 1, |
| |
'kea' => 1, |
| |
'keb' => 1, |
| |
'kec' => 1, |
| |
'ked' => 1, |
| |
'kee' => 1, |
| |
'kef' => 1, |
| |
'keg' => 1, |
| |
'keh' => 1, |
| |
'kei' => 1, |
| |
'kej' => 1, |
| |
'kek' => 1, |
| |
'kel' => 1, |
| |
'kem' => 1, |
| |
'ken' => 1, |
| |
'keo' => 1, |
| |
'kep' => 1, |
| |
'keq' => 1, |
| |
'ker' => 1, |
| |
'kes' => 1, |
| |
'ket' => 1, |
| |
'keu' => 1, |
| |
'kev' => 1, |
| |
'kew' => 1, |
| |
'kex' => 1, |
| |
'key' => 1, |
| |
'kez' => 1, |
| |
'kfa' => 1, |
| |
'kfb' => 1, |
| |
'kfc' => 1, |
| |
'kfd' => 1, |
| |
'kfe' => 1, |
| |
'kff' => 1, |
| |
'kfg' => 1, |
| |
'kfh' => 1, |
| |
'kfi' => 1, |
| |
'kfj' => 1, |
| |
'kfk' => 1, |
| |
'kfl' => 1, |
| |
'kfm' => 1, |
| |
'kfn' => 1, |
| |
'kfo' => 1, |
| |
'kfp' => 1, |
| |
'kfq' => 1, |
| |
'kfr' => 1, |
| |
'kfs' => 1, |
| |
'kft' => 1, |
| |
'kfu' => 1, |
| |
'kfv' => 1, |
| |
'kfw' => 1, |
| |
'kfx' => 1, |
| |
'kfy' => 1, |
| |
'kfz' => 1, |
| |
'kga' => 1, |
| |
'kgb' => 1, |
| |
'kgc' => 1, |
| |
'kgd' => 1, |
| |
'kge' => 1, |
| |
'kgf' => 1, |
| |
'kgg' => 1, |
| |
'kgh' => 1, |
| |
'kgi' => 1, |
| |
'kgj' => 1, |
| |
'kgk' => 1, |
| |
'kgl' => 1, |
| |
'kgm' => 1, |
| |
'kgn' => 1, |
| |
'kgo' => 1, |
| |
'kgp' => 1, |
| |
'kgq' => 1, |
| |
'kgr' => 1, |
| |
'kgs' => 1, |
| |
'kgt' => 1, |
| |
'kgu' => 1, |
| |
'kgv' => 1, |
| |
'kgw' => 1, |
| |
'kgx' => 1, |
| |
'kgy' => 1, |
| |
'kha' => 1, |
| |
'khb' => 1, |
| |
'khc' => 1, |
| |
'khd' => 1, |
| |
'khe' => 1, |
| |
'khf' => 1, |
| |
'khg' => 1, |
| |
'khh' => 1, |
| |
'khi' => 1, |
| |
'khj' => 1, |
| |
'khl' => 1, |
| |
'khn' => 1, |
| |
'kho' => 1, |
| |
'khp' => 1, |
| |
'khq' => 1, |
| |
'khr' => 1, |
| |
'khs' => 1, |
| |
'kht' => 1, |
| |
'khu' => 1, |
| |
'khv' => 1, |
| |
'khw' => 1, |
| |
'khx' => 1, |
| |
'khy' => 1, |
| |
'khz' => 1, |
| |
'kia' => 1, |
| |
'kib' => 1, |
| |
'kic' => 1, |
| |
'kid' => 1, |
| |
'kie' => 1, |
| |
'kif' => 1, |
| |
'kig' => 1, |
| |
'kih' => 1, |
| |
'kii' => 1, |
| |
'kij' => 1, |
| |
'kil' => 1, |
| |
'kim' => 1, |
| |
'kio' => 1, |
| |
'kip' => 1, |
| |
'kiq' => 1, |
| |
'kis' => 1, |
| |
'kit' => 1, |
| |
'kiv' => 1, |
| |
'kiw' => 1, |
| |
'kix' => 1, |
| |
'kiy' => 1, |
| |
'kiz' => 1, |
| |
'kja' => 1, |
| |
'kjb' => 1, |
| |
'kjc' => 1, |
| |
'kjd' => 1, |
| |
'kje' => 1, |
| |
'kjf' => 1, |
| |
'kjg' => 1, |
| |
'kjh' => 1, |
| |
'kji' => 1, |
| |
'kjj' => 1, |
| |
'kjk' => 1, |
| |
'kjl' => 1, |
| |
'kjm' => 1, |
| |
'kjn' => 1, |
| |
'kjo' => 1, |
| |
'kjp' => 1, |
| |
'kjq' => 1, |
| |
'kjr' => 1, |
| |
'kjs' => 1, |
| |
'kjt' => 1, |
| |
'kju' => 1, |
| |
'kjx' => 1, |
| |
'kjy' => 1, |
| |
'kjz' => 1, |
| |
'kka' => 1, |
| |
'kkb' => 1, |
| |
'kkc' => 1, |
| |
'kkd' => 1, |
| |
'kke' => 1, |
| |
'kkf' => 1, |
| |
'kkg' => 1, |
| |
'kkh' => 1, |
| |
'kki' => 1, |
| |
'kkj' => 1, |
| |
'kkk' => 1, |
| |
'kkl' => 1, |
| |
'kkm' => 1, |
| |
'kkn' => 1, |
| |
'kko' => 1, |
| |
'kkp' => 1, |
| |
'kkq' => 1, |
| |
'kkr' => 1, |
| |
'kks' => 1, |
| |
'kkt' => 1, |
| |
'kku' => 1, |
| |
'kkv' => 1, |
| |
'kkw' => 1, |
| |
'kkx' => 1, |
| |
'kky' => 1, |
| |
'kkz' => 1, |
| |
'kla' => 1, |
| |
'klb' => 1, |
| |
'klc' => 1, |
| |
'kld' => 1, |
| |
'kle' => 1, |
| |
'klf' => 1, |
| |
'klg' => 1, |
| |
'klh' => 1, |
| |
'kli' => 1, |
| |
'klj' => 1, |
| |
'klk' => 1, |
| |
'kll' => 1, |
| |
'klm' => 1, |
| |
'kln' => 1, |
| |
'klo' => 1, |
| |
'klp' => 1, |
| |
'klq' => 1, |
| |
'klr' => 1, |
| |
'kls' => 1, |
| |
'klt' => 1, |
| |
'klu' => 1, |
| |
'klv' => 1, |
| |
'klw' => 1, |
| |
'klx' => 1, |
| |
'kly' => 1, |
| |
'klz' => 1, |
| |
'kma' => 1, |
| |
'kmb' => 1, |
| |
'kmc' => 1, |
| |
'kmd' => 1, |
| |
'kme' => 1, |
| |
'kmf' => 1, |
| |
'kmg' => 1, |
| |
'kmh' => 1, |
| |
'kmi' => 1, |
| |
'kmj' => 1, |
| |
'kmk' => 1, |
| |
'kml' => 1, |
| |
'kmm' => 1, |
| |
'kmn' => 1, |
| |
'kmo' => 1, |
| |
'kmp' => 1, |
| |
'kmq' => 1, |
| |
'kms' => 1, |
| |
'kmt' => 1, |
| |
'kmu' => 1, |
| |
'kmv' => 1, |
| |
'kmw' => 1, |
| |
'kmx' => 1, |
| |
'kmy' => 1, |
| |
'kmz' => 1, |
| |
'kna' => 1, |
| |
'knb' => 1, |
| |
'knd' => 1, |
| |
'kne' => 1, |
| |
'knf' => 1, |
| |
'kni' => 1, |
| |
'knj' => 1, |
| |
'knk' => 1, |
| |
'knl' => 1, |
| |
'knm' => 1, |
| |
'kno' => 1, |
| |
'knp' => 1, |
| |
'knq' => 1, |
| |
'knr' => 1, |
| |
'kns' => 1, |
| |
'knt' => 1, |
| |
'knu' => 1, |
| |
'knv' => 1, |
| |
'knw' => 1, |
| |
'knx' => 1, |
| |
'kny' => 1, |
| |
'knz' => 1, |
| |
'koa' => 1, |
| |
'koc' => 1, |
| |
'kod' => 1, |
| |
'koe' => 1, |
| |
'kof' => 1, |
| |
'kog' => 1, |
| |
'koh' => 1, |
| |
'koj' => 1, |
| |
'kok' => 1, |
| |
'kol' => 1, |
| |
'koo' => 1, |
| |
'kop' => 1, |
| |
'koq' => 1, |
| |
'kos' => 1, |
| |
'kot' => 1, |
| |
'kou' => 1, |
| |
'kov' => 1, |
| |
'kow' => 1, |
| |
'kox' => 1, |
| |
'koy' => 1, |
| |
'koz' => 1, |
| |
'kpa' => 1, |
| |
'kpb' => 1, |
| |
'kpc' => 1, |
| |
'kpd' => 1, |
| |
'kpe' => 1, |
| |
'kpf' => 1, |
| |
'kpg' => 1, |
| |
'kph' => 1, |
| |
'kpi' => 1, |
| |
'kpj' => 1, |
| |
'kpk' => 1, |
| |
'kpl' => 1, |
| |
'kpm' => 1, |
| |
'kpn' => 1, |
| |
'kpo' => 1, |
| |
'kpp' => 1, |
| |
'kpq' => 1, |
| |
'kpr' => 1, |
| |
'kps' => 1, |
| |
'kpt' => 1, |
| |
'kpu' => 1, |
| |
'kpw' => 1, |
| |
'kpx' => 1, |
| |
'kpy' => 1, |
| |
'kpz' => 1, |
| |
'kqa' => 1, |
| |
'kqb' => 1, |
| |
'kqc' => 1, |
| |
'kqd' => 1, |
| |
'kqe' => 1, |
| |
'kqf' => 1, |
| |
'kqg' => 1, |
| |
'kqh' => 1, |
| |
'kqi' => 1, |
| |
'kqj' => 1, |
| |
'kqk' => 1, |
| |
'kql' => 1, |
| |
'kqm' => 1, |
| |
'kqn' => 1, |
| |
'kqo' => 1, |
| |
'kqp' => 1, |
| |
'kqq' => 1, |
| |
'kqr' => 1, |
| |
'kqs' => 1, |
| |
'kqt' => 1, |
| |
'kqu' => 1, |
| |
'kqv' => 1, |
| |
'kqw' => 1, |
| |
'kqx' => 1, |
| |
'kqy' => 1, |
| |
'kqz' => 1, |
| |
'kra' => 1, |
| |
'krb' => 1, |
| |
'krc' => 1, |
| |
'krd' => 1, |
| |
'kre' => 1, |
| |
'krf' => 1, |
| |
'krh' => 1, |
| |
'kri' => 1, |
| |
'krj' => 1, |
| |
'krk' => 1, |
| |
'krl' => 1, |
| |
'krm' => 1, |
| |
'krn' => 1, |
| |
'kro' => 1, |
| |
'krp' => 1, |
| |
'krr' => 1, |
| |
'krs' => 1, |
| |
'kru' => 1, |
| |
'krv' => 1, |
| |
'krw' => 1, |
| |
'krx' => 1, |
| |
'kry' => 1, |
| |
'krz' => 1, |
| |
'ksa' => 1, |
| |
'ksb' => 1, |
| |
'ksc' => 1, |
| |
'ksd' => 1, |
| |
'kse' => 1, |
| |
'ksf' => 1, |
| |
'ksg' => 1, |
| |
'ksh' => 1, |
| |
'ksi' => 1, |
| |
'ksj' => 1, |
| |
'ksk' => 1, |
| |
'ksl' => 1, |
| |
'ksm' => 1, |
| |
'ksn' => 1, |
| |
'kso' => 1, |
| |
'ksp' => 1, |
| |
'ksq' => 1, |
| |
'ksr' => 1, |
| |
'kss' => 1, |
| |
'kst' => 1, |
| |
'ksu' => 1, |
| |
'ksv' => 1, |
| |
'ksw' => 1, |
| |
'ksx' => 1, |
| |
'ksy' => 1, |
| |
'ksz' => 1, |
| |
'kta' => 1, |
| |
'ktb' => 1, |
| |
'ktc' => 1, |
| |
'ktd' => 1, |
| |
'kte' => 1, |
| |
'ktf' => 1, |
| |
'ktg' => 1, |
| |
'kth' => 1, |
| |
'kti' => 1, |
| |
'ktj' => 1, |
| |
'ktk' => 1, |
| |
'ktl' => 1, |
| |
'ktm' => 1, |
| |
'ktn' => 1, |
| |
'kto' => 1, |
| |
'ktp' => 1, |
| |
'ktq' => 1, |
| |
'ktr' => 1, |
| |
'kts' => 1, |
| |
'ktt' => 1, |
| |
'ktu' => 1, |
| |
'ktv' => 1, |
| |
'ktw' => 1, |
| |
'ktx' => 1, |
| |
'kty' => 1, |
| |
'ktz' => 1, |
| |
'kub' => 1, |
| |
'kuc' => 1, |
| |
'kud' => 1, |
| |
'kue' => 1, |
| |
'kuf' => 1, |
| |
'kug' => 1, |
| |
'kuh' => 1, |
| |
'kui' => 1, |
| |
'kuj' => 1, |
| |
'kuk' => 1, |
| |
'kul' => 1, |
| |
'kum' => 1, |
| |
'kun' => 1, |
| |
'kuo' => 1, |
| |
'kup' => 1, |
| |
'kuq' => 1, |
| |
'kus' => 1, |
| |
'kut' => 1, |
| |
'kuu' => 1, |
| |
'kuv' => 1, |
| |
'kuw' => 1, |
| |
'kux' => 1, |
| |
'kuy' => 1, |
| |
'kuz' => 1, |
| |
'kva' => 1, |
| |
'kvc' => 1, |
| |
'kvd' => 1, |
| |
'kve' => 1, |
| |
'kvf' => 1, |
| |
'kvg' => 1, |
| |
'kvh' => 1, |
| |
'kvi' => 1, |
| |
'kvj' => 1, |
| |
'kvk' => 1, |
| |
'kvl' => 1, |
| |
'kvm' => 1, |
| |
'kvn' => 1, |
| |
'kvo' => 1, |
| |
'kvp' => 1, |
| |
'kvq' => 1, |
| |
'kvs' => 1, |
| |
'kvt' => 1, |
| |
'kvu' => 1, |
| |
'kvv' => 1, |
| |
'kvw' => 1, |
| |
'kvx' => 1, |
| |
'kvy' => 1, |
| |
'kvz' => 1, |
| |
'kwa' => 1, |
| |
'kwb' => 1, |
| |
'kwc' => 1, |
| |
'kwd' => 1, |
| |
'kwe' => 1, |
| |
'kwf' => 1, |
| |
'kwg' => 1, |
| |
'kwh' => 1, |
| |
'kwi' => 1, |
| |
'kwj' => 1, |
| |
'kwk' => 1, |
| |
'kwl' => 1, |
| |
'kwm' => 1, |
| |
'kwn' => 1, |
| |
'kwo' => 1, |
| |
'kwp' => 1, |
| |
'kwq' => 1, |
| |
'kwr' => 1, |
| |
'kws' => 1, |
| |
'kwt' => 1, |
| |
'kwu' => 1, |
| |
'kwv' => 1, |
| |
'kww' => 1, |
| |
'kwx' => 1, |
| |
'kwz' => 1, |
| |
'kxa' => 1, |
| |
'kxb' => 1, |
| |
'kxc' => 1, |
| |
'kxe' => 1, |
| |
'kxf' => 1, |
| |
'kxh' => 1, |
| |
'kxi' => 1, |
| |
'kxj' => 1, |
| |
'kxk' => 1, |
| |
'kxl' => 1, |
| |
'kxm' => 1, |
| |
'kxn' => 1, |
| |
'kxo' => 1, |
| |
'kxp' => 1, |
| |
'kxq' => 1, |
| |
'kxr' => 1, |
| |
'kxs' => 1, |
| |
'kxt' => 1, |
| |
'kxu' => 1, |
| |
'kxv' => 1, |
| |
'kxw' => 1, |
| |
'kxx' => 1, |
| |
'kxy' => 1, |
| |
'kxz' => 1, |
| |
'kya' => 1, |
| |
'kyb' => 1, |
| |
'kyc' => 1, |
| |
'kyd' => 1, |
| |
'kye' => 1, |
| |
'kyf' => 1, |
| |
'kyg' => 1, |
| |
'kyh' => 1, |
| |
'kyi' => 1, |
| |
'kyj' => 1, |
| |
'kyk' => 1, |
| |
'kyl' => 1, |
| |
'kym' => 1, |
| |
'kyn' => 1, |
| |
'kyo' => 1, |
| |
'kyp' => 1, |
| |
'kyq' => 1, |
| |
'kyr' => 1, |
| |
'kys' => 1, |
| |
'kyt' => 1, |
| |
'kyu' => 1, |
| |
'kyv' => 1, |
| |
'kyw' => 1, |
| |
'kyx' => 1, |
| |
'kyy' => 1, |
| |
'kyz' => 1, |
| |
'kza' => 1, |
| |
'kzb' => 1, |
| |
'kzc' => 1, |
| |
'kzd' => 1, |
| |
'kze' => 1, |
| |
'kzf' => 1, |
| |
'kzg' => 1, |
| |
'kzh' => 1, |
| |
'kzi' => 1, |
| |
'kzj' => 1, |
| |
'kzk' => 1, |
| |
'kzl' => 1, |
| |
'kzm' => 1, |
| |
'kzn' => 1, |
| |
'kzo' => 1, |
| |
'kzp' => 1, |
| |
'kzq' => 1, |
| |
'kzr' => 1, |
| |
'kzs' => 1, |
| |
'kzt' => 1, |
| |
'kzu' => 1, |
| |
'kzv' => 1, |
| |
'kzw' => 1, |
| |
'kzx' => 1, |
| |
'kzy' => 1, |
| |
'kzz' => 1, |
| |
'laa' => 1, |
| |
'lab' => 1, |
| |
'lac' => 1, |
| |
'lad' => 1, |
| |
'lae' => 1, |
| |
'laf' => 1, |
| |
'lag' => 1, |
| |
'lah' => 1, |
| |
'lai' => 1, |
| |
'laj' => 1, |
| |
'lak' => 1, |
| |
'lal' => 1, |
| |
'lam' => 1, |
| |
'lan' => 1, |
| |
'lap' => 1, |
| |
'laq' => 1, |
| |
'lar' => 1, |
| |
'las' => 1, |
| |
'lau' => 1, |
| |
'law' => 1, |
| |
'lax' => 1, |
| |
'lay' => 1, |
| |
'laz' => 1, |
| |
'lba' => 1, |
| |
'lbb' => 1, |
| |
'lbc' => 1, |
| |
'lbe' => 1, |
| |
'lbf' => 1, |
| |
'lbg' => 1, |
| |
'lbi' => 1, |
| |
'lbj' => 1, |
| |
'lbm' => 1, |
| |
'lbn' => 1, |
| |
'lbo' => 1, |
| |
'lbq' => 1, |
| |
'lbr' => 1, |
| |
'lbs' => 1, |
| |
'lbt' => 1, |
| |
'lbu' => 1, |
| |
'lbv' => 1, |
| |
'lbw' => 1, |
| |
'lbx' => 1, |
| |
'lby' => 1, |
| |
'lbz' => 1, |
| |
'lcc' => 1, |
| |
'lcd' => 1, |
| |
'lch' => 1, |
| |
'lcl' => 1, |
| |
'lcm' => 1, |
| |
'lcp' => 1, |
| |
'lcq' => 1, |
| |
'lcs' => 1, |
| |
'ldb' => 1, |
| |
'ldd' => 1, |
| |
'ldg' => 1, |
| |
'ldh' => 1, |
| |
'ldj' => 1, |
| |
'ldk' => 1, |
| |
'ldl' => 1, |
| |
'ldm' => 1, |
| |
'ldn' => 1, |
| |
'ldo' => 1, |
| |
'ldp' => 1, |
| |
'ldq' => 1, |
| |
'lea' => 1, |
| |
'leb' => 1, |
| |
'lec' => 1, |
| |
'led' => 1, |
| |
'lee' => 1, |
| |
'lef' => 1, |
| |
'leg' => 1, |
| |
'leh' => 1, |
| |
'lei' => 1, |
| |
'lej' => 1, |
| |
'lek' => 1, |
| |
'lel' => 1, |
| |
'lem' => 1, |
| |
'len' => 1, |
| |
'leo' => 1, |
| |
'lep' => 1, |
| |
'leq' => 1, |
| |
'ler' => 1, |
| |
'les' => 1, |
| |
'let' => 1, |
| |
'leu' => 1, |
| |
'lev' => 1, |
| |
'lew' => 1, |
| |
'lex' => 1, |
| |
'ley' => 1, |
| |
'lez' => 1, |
| |
'lfa' => 1, |
| |
'lfn' => 1, |
| |
'lga' => 1, |
| |
'lgb' => 1, |
| |
'lgg' => 1, |
| |
'lgh' => 1, |
| |
'lgi' => 1, |
| |
'lgk' => 1, |
| |
'lgl' => 1, |
| |
'lgm' => 1, |
| |
'lgn' => 1, |
| |
'lgq' => 1, |
| |
'lgr' => 1, |
| |
'lgt' => 1, |
| |
'lgu' => 1, |
| |
'lgz' => 1, |
| |
'lha' => 1, |
| |
'lhh' => 1, |
| |
'lhi' => 1, |
| |
'lhl' => 1, |
| |
'lhm' => 1, |
| |
'lhn' => 1, |
| |
'lhp' => 1, |
| |
'lhs' => 1, |
| |
'lht' => 1, |
| |
'lhu' => 1, |
| |
'lia' => 1, |
| |
'lib' => 1, |
| |
'lic' => 1, |
| |
'lid' => 1, |
| |
'lie' => 1, |
| |
'lif' => 1, |
| |
'lig' => 1, |
| |
'lih' => 1, |
| |
'lii' => 1, |
| |
'lij' => 1, |
| |
'lik' => 1, |
| |
'lil' => 1, |
| |
'lio' => 1, |
| |
'lip' => 1, |
| |
'liq' => 1, |
| |
'lir' => 1, |
| |
'lis' => 1, |
| |
'liu' => 1, |
| |
'liv' => 1, |
| |
'lix' => 1, |
| |
'liy' => 1, |
| |
'liz' => 1, |
| |
'lje' => 1, |
| |
'lji' => 1, |
| |
'ljl' => 1, |
| |
'ljp' => 1, |
| |
'lka' => 1, |
| |
'lkc' => 1, |
| |
'lkd' => 1, |
| |
'lke' => 1, |
| |
'lkh' => 1, |
| |
'lki' => 1, |
| |
'lkj' => 1, |
| |
'lkl' => 1, |
| |
'lkn' => 1, |
| |
'lkr' => 1, |
| |
'lkt' => 1, |
| |
'lky' => 1, |
| |
'lla' => 1, |
| |
'llb' => 1, |
| |
'llc' => 1, |
| |
'lld' => 1, |
| |
'lle' => 1, |
| |
'llf' => 1, |
| |
'llg' => 1, |
| |
'llh' => 1, |
| |
'lli' => 1, |
| |
'llk' => 1, |
| |
'lll' => 1, |
| |
'llm' => 1, |
| |
'lln' => 1, |
| |
'llo' => 1, |
| |
'llp' => 1, |
| |
'llq' => 1, |
| |
'lls' => 1, |
| |
'llu' => 1, |
| |
'llx' => 1, |
| |
'lma' => 1, |
| |
'lmb' => 1, |
| |
'lmc' => 1, |
| |
'lmd' => 1, |
| |
'lme' => 1, |
| |
'lmf' => 1, |
| |
'lmg' => 1, |
| |
'lmh' => 1, |
| |
'lmi' => 1, |
| |
'lmj' => 1, |
| |
'lmk' => 1, |
| |
'lml' => 1, |
| |
'lmm' => 1, |
| |
'lmn' => 1, |
| |
'lmo' => 1, |
| |
'lmp' => 1, |
| |
'lmq' => 1, |
| |
'lmr' => 1, |
| |
'lmu' => 1, |
| |
'lmv' => 1, |
| |
'lmw' => 1, |
| |
'lmx' => 1, |
| |
'lmy' => 1, |
| |
'lmz' => 1, |
| |
'lna' => 1, |
| |
'lnb' => 1, |
| |
'lnd' => 1, |
| |
'lng' => 1, |
| |
'lnh' => 1, |
| |
'lni' => 1, |
| |
'lnj' => 1, |
| |
'lnl' => 1, |
| |
'lnm' => 1, |
| |
'lnn' => 1, |
| |
'lno' => 1, |
| |
'lns' => 1, |
| |
'lnu' => 1, |
| |
'lnz' => 1, |
| |
'loa' => 1, |
| |
'lob' => 1, |
| |
'loc' => 1, |
| |
'loe' => 1, |
| |
'lof' => 1, |
| |
'log' => 1, |
| |
'loh' => 1, |
| |
'loi' => 1, |
| |
'loj' => 1, |
| |
'lok' => 1, |
| |
'lol' => 1, |
| |
'lom' => 1, |
| |
'lon' => 1, |
| |
'loo' => 1, |
| |
'lop' => 1, |
| |
'loq' => 1, |
| |
'lor' => 1, |
| |
'los' => 1, |
| |
'lot' => 1, |
| |
'lou' => 1, |
| |
'lov' => 1, |
| |
'low' => 1, |
| |
'lox' => 1, |
| |
'loy' => 1, |
| |
'loz' => 1, |
| |
'lpa' => 1, |
| |
'lpe' => 1, |
| |
'lpn' => 1, |
| |
'lpo' => 1, |
| |
'lpx' => 1, |
| |
'lra' => 1, |
| |
'lrc' => 1, |
| |
'lre' => 1, |
| |
'lrg' => 1, |
| |
'lrk' => 1, |
| |
'lrl' => 1, |
| |
'lrn' => 1, |
| |
'lro' => 1, |
| |
'lrr' => 1, |
| |
'lrt' => 1, |
| |
'lrv' => 1, |
| |
'lrz' => 1, |
| |
'lsa' => 1, |
| |
'lsd' => 1, |
| |
'lse' => 1, |
| |
'lsg' => 1, |
| |
'lsh' => 1, |
| |
'lsi' => 1, |
| |
'lsl' => 1, |
| |
'lso' => 1, |
| |
'lsp' => 1, |
| |
'lsr' => 1, |
| |
'lss' => 1, |
| |
'lst' => 1, |
| |
'ltc' => 1, |
| |
'lti' => 1, |
| |
'ltn' => 1, |
| |
'ltu' => 1, |
| |
'lua' => 1, |
| |
'luc' => 1, |
| |
'lud' => 1, |
| |
'lue' => 1, |
| |
'luf' => 1, |
| |
'lui' => 1, |
| |
'luj' => 1, |
| |
'luk' => 1, |
| |
'lul' => 1, |
| |
'lum' => 1, |
| |
'lun' => 1, |
| |
'luo' => 1, |
| |
'lup' => 1, |
| |
'luq' => 1, |
| |
'lur' => 1, |
| |
'lus' => 1, |
| |
'lut' => 1, |
| |
'luu' => 1, |
| |
'luv' => 1, |
| |
'luw' => 1, |
| |
'luy' => 1, |
| |
'luz' => 1, |
| |
'lva' => 1, |
| |
'lvk' => 1, |
| |
'lvu' => 1, |
| |
'lwa' => 1, |
| |
'lwe' => 1, |
| |
'lwh' => 1, |
| |
'lwl' => 1, |
| |
'lwm' => 1, |
| |
'lwo' => 1, |
| |
'lwt' => 1, |
| |
'lww' => 1, |
| |
'lya' => 1, |
| |
'lyg' => 1, |
| |
'lyn' => 1, |
| |
'lzl' => 1, |
| |
'lzn' => 1, |
| |
'lzz' => 1, |
| |
'maa' => 1, |
| |
'mab' => 1, |
| |
'mad' => 1, |
| |
'mae' => 1, |
| |
'maf' => 1, |
| |
'mag' => 1, |
| |
'mai' => 1, |
| |
'maj' => 1, |
| |
'mak' => 1, |
| |
'mam' => 1, |
| |
'man' => 1, |
| |
'map' => 1, |
| |
'maq' => 1, |
| |
'mas' => 1, |
| |
'mat' => 1, |
| |
'mau' => 1, |
| |
'mav' => 1, |
| |
'maw' => 1, |
| |
'maz' => 1, |
| |
'mba' => 1, |
| |
'mbb' => 1, |
| |
'mbc' => 1, |
| |
'mbd' => 1, |
| |
'mbe' => 1, |
| |
'mbf' => 1, |
| |
'mbh' => 1, |
| |
'mbi' => 1, |
| |
'mbj' => 1, |
| |
'mbk' => 1, |
| |
'mbl' => 1, |
| |
'mbm' => 1, |
| |
'mbn' => 1, |
| |
'mbo' => 1, |
| |
'mbp' => 1, |
| |
'mbq' => 1, |
| |
'mbr' => 1, |
| |
'mbs' => 1, |
| |
'mbt' => 1, |
| |
'mbu' => 1, |
| |
'mbv' => 1, |
| |
'mbw' => 1, |
| |
'mbx' => 1, |
| |
'mby' => 1, |
| |
'mbz' => 1, |
| |
'mca' => 1, |
| |
'mcb' => 1, |
| |
'mcc' => 1, |
| |
'mcd' => 1, |
| |
'mce' => 1, |
| |
'mcf' => 1, |
| |
'mcg' => 1, |
| |
'mch' => 1, |
| |
'mci' => 1, |
| |
'mcj' => 1, |
| |
'mck' => 1, |
| |
'mcl' => 1, |
| |
'mcm' => 1, |
| |
'mcn' => 1, |
| |
'mco' => 1, |
| |
'mcp' => 1, |
| |
'mcq' => 1, |
| |
'mcr' => 1, |
| |
'mcs' => 1, |
| |
'mct' => 1, |
| |
'mcu' => 1, |
| |
'mcv' => 1, |
| |
'mcw' => 1, |
| |
'mcx' => 1, |
| |
'mcy' => 1, |
| |
'mcz' => 1, |
| |
'mda' => 1, |
| |
'mdb' => 1, |
| |
'mdc' => 1, |
| |
'mdd' => 1, |
| |
'mde' => 1, |
| |
'mdf' => 1, |
| |
'mdg' => 1, |
| |
'mdh' => 1, |
| |
'mdi' => 1, |
| |
'mdj' => 1, |
| |
'mdk' => 1, |
| |
'mdl' => 1, |
| |
'mdm' => 1, |
| |
'mdn' => 1, |
| |
'mdp' => 1, |
| |
'mdq' => 1, |
| |
'mdr' => 1, |
| |
'mds' => 1, |
| |
'mdt' => 1, |
| |
'mdu' => 1, |
| |
'mdv' => 1, |
| |
'mdw' => 1, |
| |
'mdx' => 1, |
| |
'mdy' => 1, |
| |
'mdz' => 1, |
| |
'mea' => 1, |
| |
'meb' => 1, |
| |
'mec' => 1, |
| |
'med' => 1, |
| |
'mee' => 1, |
| |
'mef' => 1, |
| |
'meg' => 1, |
| |
'meh' => 1, |
| |
'mei' => 1, |
| |
'mej' => 1, |
| |
'mek' => 1, |
| |
'mel' => 1, |
| |
'mem' => 1, |
| |
'men' => 1, |
| |
'mep' => 1, |
| |
'meq' => 1, |
| |
'mer' => 1, |
| |
'mes' => 1, |
| |
'met' => 1, |
| |
'meu' => 1, |
| |
'mev' => 1, |
| |
'mew' => 1, |
| |
'mey' => 1, |
| |
'mez' => 1, |
| |
'mfc' => 1, |
| |
'mfd' => 1, |
| |
'mfe' => 1, |
| |
'mff' => 1, |
| |
'mfg' => 1, |
| |
'mfh' => 1, |
| |
'mfi' => 1, |
| |
'mfj' => 1, |
| |
'mfk' => 1, |
| |
'mfl' => 1, |
| |
'mfm' => 1, |
| |
'mfn' => 1, |
| |
'mfo' => 1, |
| |
'mfp' => 1, |
| |
'mfq' => 1, |
| |
'mfr' => 1, |
| |
'mfs' => 1, |
| |
'mft' => 1, |
| |
'mfu' => 1, |
| |
'mfv' => 1, |
| |
'mfw' => 1, |
| |
'mfx' => 1, |
| |
'mfy' => 1, |
| |
'mfz' => 1, |
| |
'mga' => 1, |
| |
'mgb' => 1, |
| |
'mgc' => 1, |
| |
'mgd' => 1, |
| |
'mge' => 1, |
| |
'mgf' => 1, |
| |
'mgg' => 1, |
| |
'mgh' => 1, |
| |
'mgi' => 1, |
| |
'mgj' => 1, |
| |
'mgk' => 1, |
| |
'mgl' => 1, |
| |
'mgm' => 1, |
| |
'mgn' => 1, |
| |
'mgo' => 1, |
| |
'mgp' => 1, |
| |
'mgq' => 1, |
| |
'mgr' => 1, |
| |
'mgs' => 1, |
| |
'mgt' => 1, |
| |
'mgu' => 1, |
| |
'mgv' => 1, |
| |
'mgw' => 1, |
| |
'mgx' => 1, |
| |
'mgy' => 1, |
| |
'mgz' => 1, |
| |
'mha' => 1, |
| |
'mhb' => 1, |
| |
'mhc' => 1, |
| |
'mhd' => 1, |
| |
'mhe' => 1, |
| |
'mhf' => 1, |
| |
'mhg' => 1, |
| |
'mhh' => 1, |
| |
'mhi' => 1, |
| |
'mhj' => 1, |
| |
'mhk' => 1, |
| |
'mhl' => 1, |
| |
'mhm' => 1, |
| |
'mhn' => 1, |
| |
'mho' => 1, |
| |
'mhp' => 1, |
| |
'mhq' => 1, |
| |
'mhs' => 1, |
| |
'mht' => 1, |
| |
'mhu' => 1, |
| |
'mhw' => 1, |
| |
'mhx' => 1, |
| |
'mhy' => 1, |
| |
'mhz' => 1, |
| |
'mia' => 1, |
| |
'mib' => 1, |
| |
'mic' => 1, |
| |
'mid' => 1, |
| |
'mie' => 1, |
| |
'mif' => 1, |
| |
'mig' => 1, |
| |
'mih' => 1, |
| |
'mii' => 1, |
| |
'mij' => 1, |
| |
'mik' => 1, |
| |
'mil' => 1, |
| |
'mim' => 1, |
| |
'mio' => 1, |
| |
'mip' => 1, |
| |
'miq' => 1, |
| |
'mir' => 1, |
| |
'mit' => 1, |
| |
'miu' => 1, |
| |
'miw' => 1, |
| |
'mix' => 1, |
| |
'miy' => 1, |
| |
'miz' => 1, |
| |
'mja' => 1, |
| |
'mjc' => 1, |
| |
'mjd' => 1, |
| |
'mje' => 1, |
| |
'mjg' => 1, |
| |
'mjh' => 1, |
| |
'mji' => 1, |
| |
'mjj' => 1, |
| |
'mjk' => 1, |
| |
'mjl' => 1, |
| |
'mjm' => 1, |
| |
'mjn' => 1, |
| |
'mjo' => 1, |
| |
'mjp' => 1, |
| |
'mjq' => 1, |
| |
'mjr' => 1, |
| |
'mjs' => 1, |
| |
'mjt' => 1, |
| |
'mju' => 1, |
| |
'mjv' => 1, |
| |
'mjw' => 1, |
| |
'mjx' => 1, |
| |
'mjy' => 1, |
| |
'mjz' => 1, |
| |
'mka' => 1, |
| |
'mkb' => 1, |
| |
'mkc' => 1, |
| |
'mke' => 1, |
| |
'mkf' => 1, |
| |
'mkg' => 1, |
| |
'mkh' => 1, |
| |
'mki' => 1, |
| |
'mkj' => 1, |
| |
'mkk' => 1, |
| |
'mkl' => 1, |
| |
'mkm' => 1, |
| |
'mkn' => 1, |
| |
'mko' => 1, |
| |
'mkp' => 1, |
| |
'mkq' => 1, |
| |
'mkr' => 1, |
| |
'mks' => 1, |
| |
'mkt' => 1, |
| |
'mkv' => 1, |
| |
'mkw' => 1, |
| |
'mkx' => 1, |
| |
'mky' => 1, |
| |
'mkz' => 1, |
| |
'mla' => 1, |
| |
'mlb' => 1, |
| |
'mlc' => 1, |
| |
'mld' => 1, |
| |
'mle' => 1, |
| |
'mlf' => 1, |
| |
'mlh' => 1, |
| |
'mli' => 1, |
| |
'mlj' => 1, |
| |
'mlk' => 1, |
| |
'mll' => 1, |
| |
'mlm' => 1, |
| |
'mln' => 1, |
| |
'mlo' => 1, |
| |
'mlp' => 1, |
| |
'mlr' => 1, |
| |
'mls' => 1, |
| |
'mlu' => 1, |
| |
'mlv' => 1, |
| |
'mlw' => 1, |
| |
'mlx' => 1, |
| |
'mlz' => 1, |
| |
'mma' => 1, |
| |
'mmb' => 1, |
| |
'mmc' => 1, |
| |
'mmd' => 1, |
| |
'mme' => 1, |
| |
'mmf' => 1, |
| |
'mmg' => 1, |
| |
'mmh' => 1, |
| |
'mmi' => 1, |
| |
'mmj' => 1, |
| |
'mmk' => 1, |
| |
'mml' => 1, |
| |
'mmm' => 1, |
| |
'mmn' => 1, |
| |
'mmo' => 1, |
| |
'mmp' => 1, |
| |
'mmq' => 1, |
| |
'mmt' => 1, |
| |
'mmu' => 1, |
| |
'mmv' => 1, |
| |
'mmw' => 1, |
| |
'mmx' => 1, |
| |
'mmy' => 1, |
| |
'mmz' => 1, |
| |
'mna' => 1, |
| |
'mnb' => 1, |
| |
'mnc' => 1, |
| |
'mnd' => 1, |
| |
'mne' => 1, |
| |
'mnf' => 1, |
| |
'mng' => 1, |
| |
'mnh' => 1, |
| |
'mni' => 1, |
| |
'mnj' => 1, |
| |
'mnl' => 1, |
| |
'mnm' => 1, |
| |
'mnn' => 1, |
| |
'mno' => 1, |
| |
'mnq' => 1, |
| |
'mnr' => 1, |
| |
'mns' => 1, |
| |
'mnt' => 1, |
| |
'mnu' => 1, |
| |
'mnv' => 1, |
| |
'mnw' => 1, |
| |
'mnx' => 1, |
| |
'mny' => 1, |
| |
'mnz' => 1, |
| |
'moa' => 1, |
| |
'moc' => 1, |
| |
'mod' => 1, |
| |
'moe' => 1, |
| |
'mof' => 1, |
| |
'mog' => 1, |
| |
'moh' => 1, |
| |
'moi' => 1, |
| |
'moj' => 1, |
| |
'mok' => 1, |
| |
'mom' => 1, |
| |
'moo' => 1, |
| |
'mop' => 1, |
| |
'moq' => 1, |
| |
'mor' => 1, |
| |
'mos' => 1, |
| |
'mot' => 1, |
| |
'mou' => 1, |
| |
'mov' => 1, |
| |
'mow' => 1, |
| |
'mox' => 1, |
| |
'moy' => 1, |
| |
'moz' => 1, |
| |
'mpa' => 1, |
| |
'mpb' => 1, |
| |
'mpc' => 1, |
| |
'mpd' => 1, |
| |
'mpe' => 1, |
| |
'mpg' => 1, |
| |
'mph' => 1, |
| |
'mpi' => 1, |
| |
'mpj' => 1, |
| |
'mpk' => 1, |
| |
'mpl' => 1, |
| |
'mpm' => 1, |
| |
'mpn' => 1, |
| |
'mpo' => 1, |
| |
'mpp' => 1, |
| |
'mpq' => 1, |
| |
'mpr' => 1, |
| |
'mps' => 1, |
| |
'mpt' => 1, |
| |
'mpu' => 1, |
| |
'mpv' => 1, |
| |
'mpw' => 1, |
| |
'mpx' => 1, |
| |
'mpy' => 1, |
| |
'mpz' => 1, |
| |
'mqa' => 1, |
| |
'mqb' => 1, |
| |
'mqc' => 1, |
| |
'mqe' => 1, |
| |
'mqf' => 1, |
| |
'mqh' => 1, |
| |
'mqi' => 1, |
| |
'mqj' => 1, |
| |
'mqk' => 1, |
| |
'mql' => 1, |
| |
'mqm' => 1, |
| |
'mqn' => 1, |
| |
'mqo' => 1, |
| |
'mqp' => 1, |
| |
'mqq' => 1, |
| |
'mqr' => 1, |
| |
'mqs' => 1, |
| |
'mqt' => 1, |
| |
'mqu' => 1, |
| |
'mqv' => 1, |
| |
'mqw' => 1, |
| |
'mqx' => 1, |
| |
'mqy' => 1, |
| |
'mqz' => 1, |
| |
'mra' => 1, |
| |
'mrb' => 1, |
| |
'mrc' => 1, |
| |
'mrd' => 1, |
| |
'mre' => 1, |
| |
'mrf' => 1, |
| |
'mrg' => 1, |
| |
'mrh' => 1, |
| |
'mrk' => 1, |
| |
'mrl' => 1, |
| |
'mrm' => 1, |
| |
'mrn' => 1, |
| |
'mro' => 1, |
| |
'mrp' => 1, |
| |
'mrq' => 1, |
| |
'mrr' => 1, |
| |
'mrs' => 1, |
| |
'mrt' => 1, |
| |
'mru' => 1, |
| |
'mrv' => 1, |
| |
'mrw' => 1, |
| |
'mrx' => 1, |
| |
'mry' => 1, |
| |
'mrz' => 1, |
| |
'msb' => 1, |
| |
'msd' => 1, |
| |
'mse' => 1, |
| |
'msf' => 1, |
| |
'msg' => 1, |
| |
'msj' => 1, |
| |
'msk' => 1, |
| |
'msl' => 1, |
| |
'msm' => 1, |
| |
'msn' => 1, |
| |
'mso' => 1, |
| |
'msp' => 1, |
| |
'msq' => 1, |
| |
'msr' => 1, |
| |
'mss' => 1, |
| |
'mst' => 1, |
| |
'msu' => 1, |
| |
'msv' => 1, |
| |
'msw' => 1, |
| |
'msx' => 1, |
| |
'msy' => 1, |
| |
'msz' => 1, |
| |
'mta' => 1, |
| |
'mtb' => 1, |
| |
'mtc' => 1, |
| |
'mtd' => 1, |
| |
'mte' => 1, |
| |
'mtf' => 1, |
| |
'mtg' => 1, |
| |
'mth' => 1, |
| |
'mti' => 1, |
| |
'mtj' => 1, |
| |
'mtk' => 1, |
| |
'mtl' => 1, |
| |
'mtm' => 1, |
| |
'mtn' => 1, |
| |
'mto' => 1, |
| |
'mtp' => 1, |
| |
'mtq' => 1, |
| |
'mts' => 1, |
| |
'mtt' => 1, |
| |
'mtu' => 1, |
| |
'mtv' => 1, |
| |
'mtw' => 1, |
| |
'mtx' => 1, |
| |
'mty' => 1, |
| |
'mua' => 1, |
| |
'mub' => 1, |
| |
'muc' => 1, |
| |
'mud' => 1, |
| |
'mue' => 1, |
| |
'mug' => 1, |
| |
'muh' => 1, |
| |
'muj' => 1, |
| |
'muk' => 1, |
| |
'mum' => 1, |
| |
'mun' => 1, |
| |
'muo' => 1, |
| |
'mur' => 1, |
| |
'mus' => 1, |
| |
'mut' => 1, |
| |
'muu' => 1, |
| |
'muv' => 1, |
| |
'mux' => 1, |
| |
'muy' => 1, |
| |
'muz' => 1, |
| |
'mva' => 1, |
| |
'mvb' => 1, |
| |
'mvd' => 1, |
| |
'mvg' => 1, |
| |
'mvh' => 1, |
| |
'mvi' => 1, |
| |
'mvk' => 1, |
| |
'mvl' => 1, |
| |
'mvm' => 1, |
| |
'mvn' => 1, |
| |
'mvo' => 1, |
| |
'mvp' => 1, |
| |
'mvq' => 1, |
| |
'mvr' => 1, |
| |
'mvs' => 1, |
| |
'mvt' => 1, |
| |
'mvu' => 1, |
| |
'mvv' => 1, |
| |
'mvw' => 1, |
| |
'mvx' => 1, |
| |
'mvy' => 1, |
| |
'mvz' => 1, |
| |
'mwa' => 1, |
| |
'mwb' => 1, |
| |
'mwc' => 1, |
| |
'mwd' => 1, |
| |
'mwe' => 1, |
| |
'mwf' => 1, |
| |
'mwg' => 1, |
| |
'mwh' => 1, |
| |
'mwi' => 1, |
| |
'mwj' => 1, |
| |
'mwl' => 1, |
| |
'mwm' => 1, |
| |
'mwn' => 1, |
| |
'mwo' => 1, |
| |
'mwp' => 1, |
| |
'mwq' => 1, |
| |
'mwr' => 1, |
| |
'mws' => 1, |
| |
'mwt' => 1, |
| |
'mwu' => 1, |
| |
'mwv' => 1, |
| |
'mwx' => 1, |
| |
'mwy' => 1, |
| |
'mwz' => 1, |
| |
'mxa' => 1, |
| |
'mxb' => 1, |
| |
'mxc' => 1, |
| |
'mxd' => 1, |
| |
'mxe' => 1, |
| |
'mxf' => 1, |
| |
'mxg' => 1, |
| |
'mxh' => 1, |
| |
'mxi' => 1, |
| |
'mxj' => 1, |
| |
'mxk' => 1, |
| |
'mxl' => 1, |
| |
'mxm' => 1, |
| |
'mxn' => 1, |
| |
'mxo' => 1, |
| |
'mxp' => 1, |
| |
'mxq' => 1, |
| |
'mxr' => 1, |
| |
'mxs' => 1, |
| |
'mxt' => 1, |
| |
'mxu' => 1, |
| |
'mxv' => 1, |
| |
'mxw' => 1, |
| |
'mxx' => 1, |
| |
'mxy' => 1, |
| |
'mxz' => 1, |
| |
'myb' => 1, |
| |
'myc' => 1, |
| |
'myd' => 1, |
| |
'mye' => 1, |
| |
'myf' => 1, |
| |
'myg' => 1, |
| |
'myh' => 1, |
| |
'myi' => 1, |
| |
'myj' => 1, |
| |
'myk' => 1, |
| |
'myl' => 1, |
| |
'mym' => 1, |
| |
'myn' => 1, |
| |
'myo' => 1, |
| |
'myp' => 1, |
| |
'myr' => 1, |
| |
'mys' => 1, |
| |
'myt' => 1, |
| |
'myu' => 1, |
| |
'myv' => 1, |
| |
'myw' => 1, |
| |
'myx' => 1, |
| |
'myy' => 1, |
| |
'myz' => 1, |
| |
'mza' => 1, |
| |
'mzb' => 1, |
| |
'mzc' => 1, |
| |
'mzd' => 1, |
| |
'mze' => 1, |
| |
'mzg' => 1, |
| |
'mzh' => 1, |
| |
'mzi' => 1, |
| |
'mzj' => 1, |
| |
'mzk' => 1, |
| |
'mzl' => 1, |
| |
'mzm' => 1, |
| |
'mzn' => 1, |
| |
'mzo' => 1, |
| |
'mzp' => 1, |
| |
'mzq' => 1, |
| |
'mzr' => 1, |
| |
'mzs' => 1, |
| |
'mzt' => 1, |
| |
'mzu' => 1, |
| |
'mzv' => 1, |
| |
'mzw' => 1, |
| |
'mzx' => 1, |
| |
'mzy' => 1, |
| |
'mzz' => 1, |
| |
'naa' => 1, |
| |
'nab' => 1, |
| |
'nac' => 1, |
| |
'nad' => 1, |
| |
'nae' => 1, |
| |
'naf' => 1, |
| |
'nag' => 1, |
| |
'nah' => 1, |
| |
'nai' => 1, |
| |
'naj' => 1, |
| |
'nak' => 1, |
| |
'nal' => 1, |
| |
'nam' => 1, |
| |
'nao' => 1, |
| |
'nap' => 1, |
| |
'naq' => 1, |
| |
'nar' => 1, |
| |
'nas' => 1, |
| |
'nat' => 1, |
| |
'naw' => 1, |
| |
'nax' => 1, |
| |
'nay' => 1, |
| |
'naz' => 1, |
| |
'nba' => 1, |
| |
'nbb' => 1, |
| |
'nbc' => 1, |
| |
'nbd' => 1, |
| |
'nbe' => 1, |
| |
'nbf' => 1, |
| |
'nbg' => 1, |
| |
'nbh' => 1, |
| |
'nbi' => 1, |
| |
'nbj' => 1, |
| |
'nbk' => 1, |
| |
'nbm' => 1, |
| |
'nbn' => 1, |
| |
'nbo' => 1, |
| |
'nbp' => 1, |
| |
'nbq' => 1, |
| |
'nbr' => 1, |
| |
'nbs' => 1, |
| |
'nbt' => 1, |
| |
'nbu' => 1, |
| |
'nbv' => 1, |
| |
'nbw' => 1, |
| |
'nbx' => 1, |
| |
'nby' => 1, |
| |
'nca' => 1, |
| |
'ncb' => 1, |
| |
'ncc' => 1, |
| |
'ncd' => 1, |
| |
'nce' => 1, |
| |
'ncf' => 1, |
| |
'ncg' => 1, |
| |
'nch' => 1, |
| |
'nci' => 1, |
| |
'ncj' => 1, |
| |
'nck' => 1, |
| |
'ncl' => 1, |
| |
'ncm' => 1, |
| |
'ncn' => 1, |
| |
'nco' => 1, |
| |
'ncp' => 1, |
| |
'ncr' => 1, |
| |
'ncs' => 1, |
| |
'nct' => 1, |
| |
'ncu' => 1, |
| |
'ncx' => 1, |
| |
'ncz' => 1, |
| |
'nda' => 1, |
| |
'ndb' => 1, |
| |
'ndc' => 1, |
| |
'ndd' => 1, |
| |
'ndf' => 1, |
| |
'ndg' => 1, |
| |
'ndh' => 1, |
| |
'ndi' => 1, |
| |
'ndj' => 1, |
| |
'ndk' => 1, |
| |
'ndl' => 1, |
| |
'ndm' => 1, |
| |
'ndn' => 1, |
| |
'ndp' => 1, |
| |
'ndq' => 1, |
| |
'ndr' => 1, |
| |
'nds' => 1, |
| |
'ndt' => 1, |
| |
'ndu' => 1, |
| |
'ndv' => 1, |
| |
'ndw' => 1, |
| |
'ndx' => 1, |
| |
'ndy' => 1, |
| |
'ndz' => 1, |
| |
'nea' => 1, |
| |
'neb' => 1, |
| |
'nec' => 1, |
| |
'ned' => 1, |
| |
'nee' => 1, |
| |
'nef' => 1, |
| |
'neg' => 1, |
| |
'neh' => 1, |
| |
'nei' => 1, |
| |
'nej' => 1, |
| |
'nek' => 1, |
| |
'nem' => 1, |
| |
'nen' => 1, |
| |
'neo' => 1, |
| |
'neq' => 1, |
| |
'ner' => 1, |
| |
'nes' => 1, |
| |
'net' => 1, |
| |
'nev' => 1, |
| |
'new' => 1, |
| |
'nex' => 1, |
| |
'ney' => 1, |
| |
'nez' => 1, |
| |
'nfa' => 1, |
| |
'nfd' => 1, |
| |
'nfl' => 1, |
| |
'nfr' => 1, |
| |
'nfu' => 1, |
| |
'nga' => 1, |
| |
'ngb' => 1, |
| |
'ngc' => 1, |
| |
'ngd' => 1, |
| |
'nge' => 1, |
| |
'ngf' => 1, |
| |
'ngg' => 1, |
| |
'ngh' => 1, |
| |
'ngi' => 1, |
| |
'ngj' => 1, |
| |
'ngk' => 1, |
| |
'ngl' => 1, |
| |
'ngm' => 1, |
| |
'ngn' => 1, |
| |
'ngo' => 1, |
| |
'ngp' => 1, |
| |
'ngq' => 1, |
| |
'ngr' => 1, |
| |
'ngs' => 1, |
| |
'ngt' => 1, |
| |
'ngu' => 1, |
| |
'ngv' => 1, |
| |
'ngw' => 1, |
| |
'ngx' => 1, |
| |
'ngy' => 1, |
| |
'ngz' => 1, |
| |
'nha' => 1, |
| |
'nhb' => 1, |
| |
'nhc' => 1, |
| |
'nhe' => 1, |
| |
'nhf' => 1, |
| |
'nhg' => 1, |
| |
'nhh' => 1, |
| |
'nhi' => 1, |
| |
'nhk' => 1, |
| |
'nhm' => 1, |
| |
'nhn' => 1, |
| |
'nho' => 1, |
| |
'nhp' => 1, |
| |
'nhq' => 1, |
| |
'nhr' => 1, |
| |
'nht' => 1, |
| |
'nhu' => 1, |
| |
'nhv' => 1, |
| |
'nhw' => 1, |
| |
'nhx' => 1, |
| |
'nhy' => 1, |
| |
'nhz' => 1, |
| |
'nia' => 1, |
| |
'nib' => 1, |
| |
'nic' => 1, |
| |
'nid' => 1, |
| |
'nie' => 1, |
| |
'nif' => 1, |
| |
'nig' => 1, |
| |
'nih' => 1, |
| |
'nii' => 1, |
| |
'nij' => 1, |
| |
'nik' => 1, |
| |
'nil' => 1, |
| |
'nim' => 1, |
| |
'nin' => 1, |
| |
'nio' => 1, |
| |
'nir' => 1, |
| |
'nis' => 1, |
| |
'nit' => 1, |
| |
'niu' => 1, |
| |
'niv' => 1, |
| |
'niw' => 1, |
| |
'nix' => 1, |
| |
'niy' => 1, |
| |
'niz' => 1, |
| |
'nja' => 1, |
| |
'njb' => 1, |
| |
'njd' => 1, |
| |
'njh' => 1, |
| |
'nji' => 1, |
| |
'njj' => 1, |
| |
'njl' => 1, |
| |
'njm' => 1, |
| |
'njn' => 1, |
| |
'njo' => 1, |
| |
'njr' => 1, |
| |
'njs' => 1, |
| |
'njt' => 1, |
| |
'nju' => 1, |
| |
'njx' => 1, |
| |
'njy' => 1, |
| |
'nka' => 1, |
| |
'nkb' => 1, |
| |
'nkc' => 1, |
| |
'nkd' => 1, |
| |
'nke' => 1, |
| |
'nkf' => 1, |
| |
'nkg' => 1, |
| |
'nkh' => 1, |
| |
'nki' => 1, |
| |
'nkj' => 1, |
| |
'nkk' => 1, |
| |
'nkm' => 1, |
| |
'nkn' => 1, |
| |
'nko' => 1, |
| |
'nkp' => 1, |
| |
'nkr' => 1, |
| |
'nks' => 1, |
| |
'nkt' => 1, |
| |
'nku' => 1, |
| |
'nkv' => 1, |
| |
'nkw' => 1, |
| |
'nkx' => 1, |
| |
'nkz' => 1, |
| |
'nla' => 1, |
| |
'nlc' => 1, |
| |
'nlg' => 1, |
| |
'nli' => 1, |
| |
'nlj' => 1, |
| |
'nlk' => 1, |
| |
'nll' => 1, |
| |
'nln' => 1, |
| |
'nlo' => 1, |
| |
'nlr' => 1, |
| |
'nlu' => 1, |
| |
'nlv' => 1, |
| |
'nlx' => 1, |
| |
'nly' => 1, |
| |
'nlz' => 1, |
| |
'nma' => 1, |
| |
'nmb' => 1, |
| |
'nmc' => 1, |
| |
'nmd' => 1, |
| |
'nme' => 1, |
| |
'nmf' => 1, |
| |
'nmg' => 1, |
| |
'nmh' => 1, |
| |
'nmi' => 1, |
| |
'nmj' => 1, |
| |
'nmk' => 1, |
| |
'nml' => 1, |
| |
'nmm' => 1, |
| |
'nmn' => 1, |
| |
'nmo' => 1, |
| |
'nmp' => 1, |
| |
'nmq' => 1, |
| |
'nmr' => 1, |
| |
'nms' => 1, |
| |
'nmt' => 1, |
| |
'nmu' => 1, |
| |
'nmv' => 1, |
| |
'nmw' => 1, |
| |
'nmx' => 1, |
| |
'nmy' => 1, |
| |
'nmz' => 1, |
| |
'nna' => 1, |
| |
'nnb' => 1, |
| |
'nnc' => 1, |
| |
'nnd' => 1, |
| |
'nne' => 1, |
| |
'nnf' => 1, |
| |
'nng' => 1, |
| |
'nnh' => 1, |
| |
'nni' => 1, |
| |
'nnj' => 1, |
| |
'nnk' => 1, |
| |
'nnl' => 1, |
| |
'nnm' => 1, |
| |
'nnn' => 1, |
| |
'nnp' => 1, |
| |
'nnq' => 1, |
| |
'nnr' => 1, |
| |
'nns' => 1, |
| |
'nnt' => 1, |
| |
'nnu' => 1, |
| |
'nnv' => 1, |
| |
'nnw' => 1, |
| |
'nnx' => 1, |
| |
'nny' => 1, |
| |
'nnz' => 1, |
| |
'noa' => 1, |
| |
'noc' => 1, |
| |
'nod' => 1, |
| |
'noe' => 1, |
| |
'nof' => 1, |
| |
'nog' => 1, |
| |
'noh' => 1, |
| |
'noi' => 1, |
| |
'nok' => 1, |
| |
'nom' => 1, |
| |
'non' => 1, |
| |
'noo' => 1, |
| |
'nop' => 1, |
| |
'noq' => 1, |
| |
'nos' => 1, |
| |
'not' => 1, |
| |
'nou' => 1, |
| |
'nov' => 1, |
| |
'now' => 1, |
| |
'noy' => 1, |
| |
'noz' => 1, |
| |
'npa' => 1, |
| |
'npb' => 1, |
| |
'nph' => 1, |
| |
'npl' => 1, |
| |
'npn' => 1, |
| |
'npo' => 1, |
| |
'nps' => 1, |
| |
'npu' => 1, |
| |
'npy' => 1, |
| |
'nqg' => 1, |
| |
'nqk' => 1, |
| |
'nqm' => 1, |
| |
'nqn' => 1, |
| |
'nqo' => 1, |
| |
'nra' => 1, |
| |
'nrb' => 1, |
| |
'nrc' => 1, |
| |
'nre' => 1, |
| |
'nrg' => 1, |
| |
'nri' => 1, |
| |
'nrl' => 1, |
| |
'nrm' => 1, |
| |
'nrn' => 1, |
| |
'nrp' => 1, |
| |
'nrr' => 1, |
| |
'nrt' => 1, |
| |
'nrx' => 1, |
| |
'nrz' => 1, |
| |
'nsa' => 1, |
| |
'nsc' => 1, |
| |
'nsd' => 1, |
| |
'nse' => 1, |
| |
'nsg' => 1, |
| |
'nsh' => 1, |
| |
'nsi' => 1, |
| |
'nsk' => 1, |
| |
'nsl' => 1, |
| |
'nsm' => 1, |
| |
'nsn' => 1, |
| |
'nso' => 1, |
| |
'nsp' => 1, |
| |
'nsq' => 1, |
| |
'nsr' => 1, |
| |
'nss' => 1, |
| |
'nst' => 1, |
| |
'nsu' => 1, |
| |
'nsv' => 1, |
| |
'nsw' => 1, |
| |
'nsx' => 1, |
| |
'nsy' => 1, |
| |
'nsz' => 1, |
| |
'nte' => 1, |
| |
'nti' => 1, |
| |
'ntj' => 1, |
| |
'ntk' => 1, |
| |
'ntm' => 1, |
| |
'nto' => 1, |
| |
'ntp' => 1, |
| |
'ntr' => 1, |
| |
'nts' => 1, |
| |
'ntu' => 1, |
| |
'ntw' => 1, |
| |
'nty' => 1, |
| |
'ntz' => 1, |
| |
'nua' => 1, |
| |
'nub' => 1, |
| |
'nuc' => 1, |
| |
'nud' => 1, |
| |
'nue' => 1, |
| |
'nuf' => 1, |
| |
'nug' => 1, |
| |
'nuh' => 1, |
| |
'nui' => 1, |
| |
'nuj' => 1, |
| |
'nul' => 1, |
| |
'num' => 1, |
| |
'nun' => 1, |
| |
'nuo' => 1, |
| |
'nup' => 1, |
| |
'nuq' => 1, |
| |
'nur' => 1, |
| |
'nus' => 1, |
| |
'nut' => 1, |
| |
'nuu' => 1, |
| |
'nuv' => 1, |
| |
'nuw' => 1, |
| |
'nux' => 1, |
| |
'nuy' => 1, |
| |
'nuz' => 1, |
| |
'nvh' => 1, |
| |
'nvm' => 1, |
| |
'nwa' => 1, |
| |
'nwb' => 1, |
| |
'nwc' => 1, |
| |
'nwe' => 1, |
| |
'nwi' => 1, |
| |
'nwm' => 1, |
| |
'nwr' => 1, |
| |
'nwx' => 1, |
| |
'nwy' => 1, |
| |
'nxa' => 1, |
| |
'nxd' => 1, |
| |
'nxe' => 1, |
| |
'nxg' => 1, |
| |
'nxi' => 1, |
| |
'nxl' => 1, |
| |
'nxm' => 1, |
| |
'nxn' => 1, |
| |
'nxr' => 1, |
| |
'nxu' => 1, |
| |
'nxx' => 1, |
| |
'nyb' => 1, |
| |
'nyc' => 1, |
| |
'nye' => 1, |
| |
'nyf' => 1, |
| |
'nyg' => 1, |
| |
'nyh' => 1, |
| |
'nyi' => 1, |
| |
'nyj' => 1, |
| |
'nyk' => 1, |
| |
'nyl' => 1, |
| |
'nym' => 1, |
| |
'nyn' => 1, |
| |
'nyo' => 1, |
| |
'nyp' => 1, |
| |
'nyq' => 1, |
| |
'nyr' => 1, |
| |
'nys' => 1, |
| |
'nyt' => 1, |
| |
'nyu' => 1, |
| |
'nyv' => 1, |
| |
'nyw' => 1, |
| |
'nyx' => 1, |
| |
'nyy' => 1, |
| |
'nza' => 1, |
| |
'nzb' => 1, |
| |
'nzi' => 1, |
| |
'nzk' => 1, |
| |
'nzm' => 1, |
| |
'nzs' => 1, |
| |
'nzu' => 1, |
| |
'nzy' => 1, |
| |
'oaa' => 1, |
| |
'oac' => 1, |
| |
'oar' => 1, |
| |
'oav' => 1, |
| |
'obi' => 1, |
| |
'obl' => 1, |
| |
'obm' => 1, |
| |
'obo' => 1, |
| |
'obr' => 1, |
| |
'obt' => 1, |
| |
'obu' => 1, |
| |
'oca' => 1, |
| |
'och' => 1, |
| |
'oco' => 1, |
| |
'ocu' => 1, |
| |
'oda' => 1, |
| |
'odk' => 1, |
| |
'odt' => 1, |
| |
'odu' => 1, |
| |
'ofo' => 1, |
| |
'ofs' => 1, |
| |
'ofu' => 1, |
| |
'ogb' => 1, |
| |
'ogc' => 1, |
| |
'oge' => 1, |
| |
'ogg' => 1, |
| |
'ogo' => 1, |
| |
'ogu' => 1, |
| |
'oht' => 1, |
| |
'ohu' => 1, |
| |
'oia' => 1, |
| |
'oin' => 1, |
| |
'ojp' => 1, |
| |
'ojv' => 1, |
| |
'oka' => 1, |
| |
'okb' => 1, |
| |
'okd' => 1, |
| |
'oke' => 1, |
| |
'okh' => 1, |
| |
'okj' => 1, |
| |
'okk' => 1, |
| |
'okl' => 1, |
| |
'okm' => 1, |
| |
'okn' => 1, |
| |
'oko' => 1, |
| |
'okr' => 1, |
| |
'oks' => 1, |
| |
'oku' => 1, |
| |
'okv' => 1, |
| |
'okx' => 1, |
| |
'ola' => 1, |
| |
'old' => 1, |
| |
'ole' => 1, |
| |
'olm' => 1, |
| |
'olo' => 1, |
| |
'olr' => 1, |
| |
'oma' => 1, |
| |
'omb' => 1, |
| |
'omc' => 1, |
| |
'ome' => 1, |
| |
'omg' => 1, |
| |
'omi' => 1, |
| |
'omk' => 1, |
| |
'oml' => 1, |
| |
'omn' => 1, |
| |
'omo' => 1, |
| |
'omp' => 1, |
| |
'omq' => 1, |
| |
'omr' => 1, |
| |
'omt' => 1, |
| |
'omu' => 1, |
| |
'omv' => 1, |
| |
'omw' => 1, |
| |
'omx' => 1, |
| |
'ona' => 1, |
| |
'onb' => 1, |
| |
'one' => 1, |
| |
'ong' => 1, |
| |
'oni' => 1, |
| |
'onj' => 1, |
| |
'onk' => 1, |
| |
'onn' => 1, |
| |
'ono' => 1, |
| |
'onp' => 1, |
| |
'onr' => 1, |
| |
'ons' => 1, |
| |
'ont' => 1, |
| |
'onu' => 1, |
| |
'onw' => 1, |
| |
'onx' => 1, |
| |
'ood' => 1, |
| |
'oog' => 1, |
| |
'oon' => 1, |
| |
'oor' => 1, |
| |
'oos' => 1, |
| |
'opa' => 1, |
| |
'opk' => 1, |
| |
'opm' => 1, |
| |
'opo' => 1, |
| |
'opt' => 1, |
| |
'opy' => 1, |
| |
'ora' => 1, |
| |
'ore' => 1, |
| |
'org' => 1, |
| |
'orh' => 1, |
| |
'oro' => 1, |
| |
'orr' => 1, |
| |
'ort' => 1, |
| |
'oru' => 1, |
| |
'orv' => 1, |
| |
'orw' => 1, |
| |
'orx' => 1, |
| |
'orz' => 1, |
| |
'osa' => 1, |
| |
'osc' => 1, |
| |
'osi' => 1, |
| |
'oso' => 1, |
| |
'osp' => 1, |
| |
'ost' => 1, |
| |
'osu' => 1, |
| |
'osx' => 1, |
| |
'ota' => 1, |
| |
'otb' => 1, |
| |
'otd' => 1, |
| |
'ote' => 1, |
| |
'oti' => 1, |
| |
'otk' => 1, |
| |
'otl' => 1, |
| |
'otm' => 1, |
| |
'otn' => 1, |
| |
'oto' => 1, |
| |
'otq' => 1, |
| |
'otr' => 1, |
| |
'ots' => 1, |
| |
'ott' => 1, |
| |
'otu' => 1, |
| |
'otx' => 1, |
| |
'oty' => 1, |
| |
'otz' => 1, |
| |
'oua' => 1, |
| |
'oub' => 1, |
| |
'oue' => 1, |
| |
'oui' => 1, |
| |
'oum' => 1, |
| |
'oun' => 1, |
| |
'owi' => 1, |
| |
'owl' => 1, |
| |
'oyb' => 1, |
| |
'oyd' => 1, |
| |
'oym' => 1, |
| |
'oyy' => 1, |
| |
'ozm' => 1, |
| |
'paa' => 1, |
| |
'pab' => 1, |
| |
'pac' => 1, |
| |
'pad' => 1, |
| |
'pae' => 1, |
| |
'paf' => 1, |
| |
'pag' => 1, |
| |
'pah' => 1, |
| |
'pai' => 1, |
| |
'pak' => 1, |
| |
'pal' => 1, |
| |
'pam' => 1, |
| |
'pao' => 1, |
| |
'pap' => 1, |
| |
'paq' => 1, |
| |
'par' => 1, |
| |
'pas' => 1, |
| |
'pat' => 1, |
| |
'pau' => 1, |
| |
'pav' => 1, |
| |
'paw' => 1, |
| |
'pax' => 1, |
| |
'pay' => 1, |
| |
'paz' => 1, |
| |
'pbb' => 1, |
| |
'pbc' => 1, |
| |
'pbe' => 1, |
| |
'pbf' => 1, |
| |
'pbg' => 1, |
| |
'pbh' => 1, |
| |
'pbi' => 1, |
| |
'pbl' => 1, |
| |
'pbn' => 1, |
| |
'pbo' => 1, |
| |
'pbp' => 1, |
| |
'pbr' => 1, |
| |
'pbs' => 1, |
| |
'pbv' => 1, |
| |
'pby' => 1, |
| |
'pbz' => 1, |
| |
'pca' => 1, |
| |
'pcb' => 1, |
| |
'pcc' => 1, |
| |
'pcd' => 1, |
| |
'pce' => 1, |
| |
'pcf' => 1, |
| |
'pcg' => 1, |
| |
'pch' => 1, |
| |
'pci' => 1, |
| |
'pcj' => 1, |
| |
'pck' => 1, |
| |
'pcl' => 1, |
| |
'pcm' => 1, |
| |
'pcn' => 1, |
| |
'pcp' => 1, |
| |
'pcr' => 1, |
| |
'pcw' => 1, |
| |
'pda' => 1, |
| |
'pdc' => 1, |
| |
'pdi' => 1, |
| |
'pdn' => 1, |
| |
'pdo' => 1, |
| |
'pdt' => 1, |
| |
'pdu' => 1, |
| |
'pea' => 1, |
| |
'peb' => 1, |
| |
'ped' => 1, |
| |
'pee' => 1, |
| |
'pef' => 1, |
| |
'peg' => 1, |
| |
'peh' => 1, |
| |
'pei' => 1, |
| |
'pej' => 1, |
| |
'pek' => 1, |
| |
'pem' => 1, |
| |
'peo' => 1, |
| |
'pep' => 1, |
| |
'peq' => 1, |
| |
'pev' => 1, |
| |
'pex' => 1, |
| |
'pey' => 1, |
| |
'pez' => 1, |
| |
'pfa' => 1, |
| |
'pfe' => 1, |
| |
'pfl' => 1, |
| |
'pgg' => 1, |
| |
'pgi' => 1, |
| |
'pgk' => 1, |
| |
'pgn' => 1, |
| |
'pgs' => 1, |
| |
'pgu' => 1, |
| |
'pgy' => 1, |
| |
'pha' => 1, |
| |
'phd' => 1, |
| |
'phg' => 1, |
| |
'phh' => 1, |
| |
'phi' => 1, |
| |
'phk' => 1, |
| |
'phl' => 1, |
| |
'phm' => 1, |
| |
'phn' => 1, |
| |
'pho' => 1, |
| |
'phq' => 1, |
| |
'pht' => 1, |
| |
'phu' => 1, |
| |
'phv' => 1, |
| |
'phw' => 1, |
| |
'pia' => 1, |
| |
'pib' => 1, |
| |
'pic' => 1, |
| |
'pid' => 1, |
| |
'pie' => 1, |
| |
'pif' => 1, |
| |
'pig' => 1, |
| |
'pih' => 1, |
| |
'pii' => 1, |
| |
'pij' => 1, |
| |
'pil' => 1, |
| |
'pim' => 1, |
| |
'pin' => 1, |
| |
'pio' => 1, |
| |
'pip' => 1, |
| |
'pir' => 1, |
| |
'pis' => 1, |
| |
'pit' => 1, |
| |
'piu' => 1, |
| |
'piv' => 1, |
| |
'piw' => 1, |
| |
'pix' => 1, |
| |
'piy' => 1, |
| |
'piz' => 1, |
| |
'pjt' => 1, |
| |
'pka' => 1, |
| |
'pkb' => 1, |
| |
'pkc' => 1, |
| |
'pkg' => 1, |
| |
'pkh' => 1, |
| |
'pkn' => 1, |
| |
'pkp' => 1, |
| |
'pkr' => 1, |
| |
'pks' => 1, |
| |
'pkt' => 1, |
| |
'pku' => 1, |
| |
'pla' => 1, |
| |
'plb' => 1, |
| |
'plc' => 1, |
| |
'pld' => 1, |
| |
'ple' => 1, |
| |
'plf' => 1, |
| |
'plg' => 1, |
| |
'plh' => 1, |
| |
'plj' => 1, |
| |
'plk' => 1, |
| |
'pll' => 1, |
| |
'pln' => 1, |
| |
'plo' => 1, |
| |
'plp' => 1, |
| |
'plq' => 1, |
| |
'plr' => 1, |
| |
'pls' => 1, |
| |
'plu' => 1, |
| |
'plv' => 1, |
| |
'plw' => 1, |
| |
'ply' => 1, |
| |
'plz' => 1, |
| |
'pma' => 1, |
| |
'pmb' => 1, |
| |
'pmc' => 1, |
| |
'pme' => 1, |
| |
'pmf' => 1, |
| |
'pmh' => 1, |
| |
'pmi' => 1, |
| |
'pmj' => 1, |
| |
'pmk' => 1, |
| |
'pml' => 1, |
| |
'pmm' => 1, |
| |
'pmn' => 1, |
| |
'pmo' => 1, |
| |
'pmq' => 1, |
| |
'pmr' => 1, |
| |
'pms' => 1, |
| |
'pmt' => 1, |
| |
'pmw' => 1, |
| |
'pmx' => 1, |
| |
'pmy' => 1, |
| |
'pmz' => 1, |
| |
'pna' => 1, |
| |
'pnc' => 1, |
| |
'pne' => 1, |
| |
'png' => 1, |
| |
'pnh' => 1, |
| |
'pni' => 1, |
| |
'pnm' => 1, |
| |
'pnn' => 1, |
| |
'pno' => 1, |
| |
'pnp' => 1, |
| |
'pnq' => 1, |
| |
'pnr' => 1, |
| |
'pns' => 1, |
| |
'pnt' => 1, |
| |
'pnu' => 1, |
| |
'pnv' => 1, |
| |
'pnw' => 1, |
| |
'pnx' => 1, |
| |
'pny' => 1, |
| |
'pnz' => 1, |
| |
'poc' => 1, |
| |
'pod' => 1, |
| |
'poe' => 1, |
| |
'pof' => 1, |
| |
'pog' => 1, |
| |
'poh' => 1, |
| |
'poi' => 1, |
| |
'pok' => 1, |
| |
'pom' => 1, |
| |
'pon' => 1, |
| |
'poo' => 1, |
| |
'pop' => 1, |
| |
'poq' => 1, |
| |
'pos' => 1, |
| |
'pot' => 1, |
| |
'pov' => 1, |
| |
'pow' => 1, |
| |
'pox' => 1, |
| |
'poy' => 1, |
| |
'poz' => 1, |
| |
'ppa' => 1, |
| |
'ppe' => 1, |
| |
'ppi' => 1, |
| |
'ppk' => 1, |
| |
'ppl' => 1, |
| |
'ppm' => 1, |
| |
'ppn' => 1, |
| |
'ppo' => 1, |
| |
'ppp' => 1, |
| |
'ppq' => 1, |
| |
'ppr' => 1, |
| |
'pps' => 1, |
| |
'ppt' => 1, |
| |
'ppu' => 1, |
| |
'pqa' => 1, |
| |
'pqe' => 1, |
| |
'pqm' => 1, |
| |
'pqw' => 1, |
| |
'pra' => 1, |
| |
'prb' => 1, |
| |
'prc' => 1, |
| |
'prd' => 1, |
| |
'pre' => 1, |
| |
'prg' => 1, |
| |
'prh' => 1, |
| |
'pri' => 1, |
| |
'prk' => 1, |
| |
'prl' => 1, |
| |
'prm' => 1, |
| |
'prn' => 1, |
| |
'pro' => 1, |
| |
'prp' => 1, |
| |
'prq' => 1, |
| |
'prr' => 1, |
| |
'prt' => 1, |
| |
'pru' => 1, |
| |
'prw' => 1, |
| |
'prx' => 1, |
| |
'pry' => 1, |
| |
'prz' => 1, |
| |
'psa' => 1, |
| |
'psc' => 1, |
| |
'psd' => 1, |
| |
'psg' => 1, |
| |
'psh' => 1, |
| |
'psi' => 1, |
| |
'psl' => 1, |
| |
'psm' => 1, |
| |
'psn' => 1, |
| |
'pso' => 1, |
| |
'psp' => 1, |
| |
'psq' => 1, |
| |
'psr' => 1, |
| |
'pss' => 1, |
| |
'psu' => 1, |
| |
'psw' => 1, |
| |
'psy' => 1, |
| |
'pta' => 1, |
| |
'pth' => 1, |
| |
'pti' => 1, |
| |
'ptn' => 1, |
| |
'pto' => 1, |
| |
'ptp' => 1, |
| |
'ptr' => 1, |
| |
'ptt' => 1, |
| |
'ptu' => 1, |
| |
'ptv' => 1, |
| |
'ptw' => 1, |
| |
'pty' => 1, |
| |
'pua' => 1, |
| |
'pub' => 1, |
| |
'puc' => 1, |
| |
'pud' => 1, |
| |
'pue' => 1, |
| |
'puf' => 1, |
| |
'pug' => 1, |
| |
'pui' => 1, |
| |
'puj' => 1, |
| |
'puk' => 1, |
| |
'pum' => 1, |
| |
'puo' => 1, |
| |
'pup' => 1, |
| |
'puq' => 1, |
| |
'pur' => 1, |
| |
'put' => 1, |
| |
'puu' => 1, |
| |
'puw' => 1, |
| |
'pux' => 1, |
| |
'puy' => 1, |
| |
'puz' => 1, |
| |
'pwa' => 1, |
| |
'pwb' => 1, |
| |
'pwg' => 1, |
| |
'pwm' => 1, |
| |
'pwn' => 1, |
| |
'pwo' => 1, |
| |
'pwr' => 1, |
| |
'pww' => 1, |
| |
'pxm' => 1, |
| |
'pye' => 1, |
| |
'pym' => 1, |
| |
'pyn' => 1, |
| |
'pyu' => 1, |
| |
'pyx' => 1, |
| |
'pyy' => 1, |
| |
'pzn' => 1, |
| |
'qua' => 1, |
| |
'quc' => 1, |
| |
'qui' => 1, |
| |
'qum' => 1, |
| |
'qun' => 1, |
| |
'quq' => 1, |
| |
'quv' => 1, |
| |
'qvy' => 1, |
| |
'qwe' => 1, |
| |
'qwm' => 1, |
| |
'qwt' => 1, |
| |
'qxq' => 1, |
| |
'qxs' => 1, |
| |
'qya' => 1, |
| |
'qyp' => 1, |
| |
'raa' => 1, |
| |
'rab' => 1, |
| |
'rac' => 1, |
| |
'rad' => 1, |
| |
'raf' => 1, |
| |
'rah' => 1, |
| |
'rai' => 1, |
| |
'raj' => 1, |
| |
'rak' => 1, |
| |
'ral' => 1, |
| |
'ram' => 1, |
| |
'ran' => 1, |
| |
'rao' => 1, |
| |
'rap' => 1, |
| |
'raq' => 1, |
| |
'rar' => 1, |
| |
'ras' => 1, |
| |
'rat' => 1, |
| |
'rau' => 1, |
| |
'rav' => 1, |
| |
'raw' => 1, |
| |
'rax' => 1, |
| |
'ray' => 1, |
| |
'raz' => 1, |
| |
'rbb' => 1, |
| |
'rcf' => 1, |
| |
'rdb' => 1, |
| |
'rea' => 1, |
| |
'reb' => 1, |
| |
'ree' => 1, |
| |
'reg' => 1, |
| |
'rei' => 1, |
| |
'rej' => 1, |
| |
'rel' => 1, |
| |
'rem' => 1, |
| |
'ren' => 1, |
| |
'rer' => 1, |
| |
'res' => 1, |
| |
'ret' => 1, |
| |
'rey' => 1, |
| |
'rga' => 1, |
| |
'rge' => 1, |
| |
'rgk' => 1, |
| |
'rgn' => 1, |
| |
'rgr' => 1, |
| |
'rgs' => 1, |
| |
'rgu' => 1, |
| |
'rhg' => 1, |
| |
'rhp' => 1, |
| |
'ria' => 1, |
| |
'rie' => 1, |
| |
'rif' => 1, |
| |
'ril' => 1, |
| |
'rim' => 1, |
| |
'rin' => 1, |
| |
'rir' => 1, |
| |
'rit' => 1, |
| |
'riu' => 1, |
| |
'rjg' => 1, |
| |
'rji' => 1, |
| |
'rjs' => 1, |
| |
'rka' => 1, |
| |
'rkb' => 1, |
| |
'rkh' => 1, |
| |
'rki' => 1, |
| |
'rkm' => 1, |
| |
'rkt' => 1, |
| |
'rma' => 1, |
| |
'rmb' => 1, |
| |
'rmd' => 1, |
| |
'rme' => 1, |
| |
'rmg' => 1, |
| |
'rmh' => 1, |
| |
'rmi' => 1, |
| |
'rmk' => 1, |
| |
'rmm' => 1, |
| |
'rmp' => 1, |
| |
'rmr' => 1, |
| |
'rms' => 1, |
| |
'rmt' => 1, |
| |
'rmu' => 1, |
| |
'rmv' => 1, |
| |
'rmx' => 1, |
| |
'rmz' => 1, |
| |
'rna' => 1, |
| |
'rnd' => 1, |
| |
'rng' => 1, |
| |
'rnl' => 1, |
| |
'rnn' => 1, |
| |
'rnp' => 1, |
| |
'rnw' => 1, |
| |
'roa' => 1, |
| |
'rob' => 1, |
| |
'roc' => 1, |
| |
'rod' => 1, |
| |
'roe' => 1, |
| |
'rof' => 1, |
| |
'rog' => 1, |
| |
'rol' => 1, |
| |
'rom' => 1, |
| |
'roo' => 1, |
| |
'rop' => 1, |
| |
'ror' => 1, |
| |
'rou' => 1, |
| |
'row' => 1, |
| |
'rpn' => 1, |
| |
'rpt' => 1, |
| |
'rri' => 1, |
| |
'rro' => 1, |
| |
'rsb' => 1, |
| |
'rsi' => 1, |
| |
'rsl' => 1, |
| |
'rth' => 1, |
| |
'rtm' => 1, |
| |
'rtw' => 1, |
| |
'rub' => 1, |
| |
'ruc' => 1, |
| |
'rue' => 1, |
| |
'ruf' => 1, |
| |
'rug' => 1, |
| |
'ruh' => 1, |
| |
'rui' => 1, |
| |
'ruk' => 1, |
| |
'ruo' => 1, |
| |
'rup' => 1, |
| |
'ruq' => 1, |
| |
'rut' => 1, |
| |
'ruu' => 1, |
| |
'ruy' => 1, |
| |
'ruz' => 1, |
| |
'rwa' => 1, |
| |
'rwk' => 1, |
| |
'rwm' => 1, |
| |
'rwo' => 1, |
| |
'ryn' => 1, |
| |
'rys' => 1, |
| |
'ryu' => 1, |
| |
'saa' => 1, |
| |
'sab' => 1, |
| |
'sac' => 1, |
| |
'sad' => 1, |
| |
'sae' => 1, |
| |
'saf' => 1, |
| |
'sah' => 1, |
| |
'sai' => 1, |
| |
'saj' => 1, |
| |
'sak' => 1, |
| |
'sal' => 1, |
| |
'sam' => 1, |
| |
'sao' => 1, |
| |
'sap' => 1, |
| |
'saq' => 1, |
| |
'sar' => 1, |
| |
'sas' => 1, |
| |
'sat' => 1, |
| |
'sau' => 1, |
| |
'sav' => 1, |
| |
'saw' => 1, |
| |
'sax' => 1, |
| |
'say' => 1, |
| |
'saz' => 1, |
| |
'sba' => 1, |
| |
'sbb' => 1, |
| |
'sbc' => 1, |
| |
'sbd' => 1, |
| |
'sbe' => 1, |
| |
'sbf' => 1, |
| |
'sbg' => 1, |
| |
'sbh' => 1, |
| |
'sbi' => 1, |
| |
'sbj' => 1, |
| |
'sbk' => 1, |
| |
'sbl' => 1, |
| |
'sbm' => 1, |
| |
'sbn' => 1, |
| |
'sbo' => 1, |
| |
'sbp' => 1, |
| |
'sbq' => 1, |
| |
'sbr' => 1, |
| |
'sbs' => 1, |
| |
'sbt' => 1, |
| |
'sbu' => 1, |
| |
'sbv' => 1, |
| |
'sbw' => 1, |
| |
'sbx' => 1, |
| |
'sby' => 1, |
| |
'sbz' => 1, |
| |
'sca' => 1, |
| |
'scb' => 1, |
| |
'sce' => 1, |
| |
'scf' => 1, |
| |
'scg' => 1, |
| |
'sch' => 1, |
| |
'sci' => 1, |
| |
'sck' => 1, |
| |
'scl' => 1, |
| |
'scn' => 1, |
| |
'sco' => 1, |
| |
'scp' => 1, |
| |
'scq' => 1, |
| |
'scu' => 1, |
| |
'scv' => 1, |
| |
'scw' => 1, |
| |
'scx' => 1, |
| |
'sda' => 1, |
| |
'sdb' => 1, |
| |
'sde' => 1, |
| |
'sdf' => 1, |
| |
'sdg' => 1, |
| |
'sdj' => 1, |
| |
'sdk' => 1, |
| |
'sdl' => 1, |
| |
'sdm' => 1, |
| |
'sdo' => 1, |
| |
'sdp' => 1, |
| |
'sdr' => 1, |
| |
'sds' => 1, |
| |
'sdt' => 1, |
| |
'sdu' => 1, |
| |
'sdv' => 1, |
| |
'sdx' => 1, |
| |
'sdz' => 1, |
| |
'sea' => 1, |
| |
'seb' => 1, |
| |
'sec' => 1, |
| |
'sed' => 1, |
| |
'see' => 1, |
| |
'sef' => 1, |
| |
'seg' => 1, |
| |
'seh' => 1, |
| |
'sei' => 1, |
| |
'sej' => 1, |
| |
'sek' => 1, |
| |
'sel' => 1, |
| |
'sem' => 1, |
| |
'sen' => 1, |
| |
'seo' => 1, |
| |
'sep' => 1, |
| |
'seq' => 1, |
| |
'ser' => 1, |
| |
'ses' => 1, |
| |
'set' => 1, |
| |
'seu' => 1, |
| |
'sev' => 1, |
| |
'sew' => 1, |
| |
'sey' => 1, |
| |
'sez' => 1, |
| |
'sfb' => 1, |
| |
'sfs' => 1, |
| |
'sfw' => 1, |
| |
'sga' => 1, |
| |
'sgb' => 1, |
| |
'sge' => 1, |
| |
'sgg' => 1, |
| |
'sgh' => 1, |
| |
'sgi' => 1, |
| |
'sgk' => 1, |
| |
'sgl' => 1, |
| |
'sgm' => 1, |
| |
'sgn' => 1, |
| |
'sgo' => 1, |
| |
'sgp' => 1, |
| |
'sgr' => 1, |
| |
'sgt' => 1, |
| |
'sgu' => 1, |
| |
'sgw' => 1, |
| |
'sgx' => 1, |
| |
'sgz' => 1, |
| |
'sha' => 1, |
| |
'shb' => 1, |
| |
'shc' => 1, |
| |
'she' => 1, |
| |
'shg' => 1, |
| |
'shh' => 1, |
| |
'shi' => 1, |
| |
'shj' => 1, |
| |
'shk' => 1, |
| |
'shl' => 1, |
| |
'shm' => 1, |
| |
'shn' => 1, |
| |
'sho' => 1, |
| |
'shp' => 1, |
| |
'shq' => 1, |
| |
'shr' => 1, |
| |
'shs' => 1, |
| |
'sht' => 1, |
| |
'shv' => 1, |
| |
'shw' => 1, |
| |
'shx' => 1, |
| |
'shy' => 1, |
| |
'shz' => 1, |
| |
'sia' => 1, |
| |
'sib' => 1, |
| |
'sid' => 1, |
| |
'sie' => 1, |
| |
'sif' => 1, |
| |
'sig' => 1, |
| |
'sih' => 1, |
| |
'sii' => 1, |
| |
'sij' => 1, |
| |
'sik' => 1, |
| |
'sil' => 1, |
| |
'sim' => 1, |
| |
'sio' => 1, |
| |
'sip' => 1, |
| |
'siq' => 1, |
| |
'sir' => 1, |
| |
'sis' => 1, |
| |
'sit' => 1, |
| |
'siu' => 1, |
| |
'siv' => 1, |
| |
'siw' => 1, |
| |
'six' => 1, |
| |
'siy' => 1, |
| |
'siz' => 1, |
| |
'sja' => 1, |
| |
'sjb' => 1, |
| |
'sjd' => 1, |
| |
'sje' => 1, |
| |
'sjg' => 1, |
| |
'sjk' => 1, |
| |
'sjl' => 1, |
| |
'sjm' => 1, |
| |
'sjn' => 1, |
| |
'sjo' => 1, |
| |
'sjp' => 1, |
| |
'sjr' => 1, |
| |
'sjs' => 1, |
| |
'sjt' => 1, |
| |
'sju' => 1, |
| |
'sjw' => 1, |
| |
'ska' => 1, |
| |
'skb' => 1, |
| |
'skc' => 1, |
| |
'skd' => 1, |
| |
'ske' => 1, |
| |
'skf' => 1, |
| |
'skh' => 1, |
| |
'ski' => 1, |
| |
'skj' => 1, |
| |
'skk' => 1, |
| |
'skm' => 1, |
| |
'skn' => 1, |
| |
'sko' => 1, |
| |
'skp' => 1, |
| |
'skq' => 1, |
| |
'sks' => 1, |
| |
'skt' => 1, |
| |
'sku' => 1, |
| |
'skv' => 1, |
| |
'skw' => 1, |
| |
'skx' => 1, |
| |
'sky' => 1, |
| |
'skz' => 1, |
| |
'sla' => 1, |
| |
'slc' => 1, |
| |
'sld' => 1, |
| |
'sle' => 1, |
| |
'slf' => 1, |
| |
'slg' => 1, |
| |
'slh' => 1, |
| |
'sli' => 1, |
| |
'slj' => 1, |
| |
'sll' => 1, |
| |
'slm' => 1, |
| |
'sln' => 1, |
| |
'slp' => 1, |
| |
'slq' => 1, |
| |
'slr' => 1, |
| |
'sls' => 1, |
| |
'slt' => 1, |
| |
'slu' => 1, |
| |
'slw' => 1, |
| |
'slx' => 1, |
| |
'sly' => 1, |
| |
'slz' => 1, |
| |
'sma' => 1, |
| |
'smb' => 1, |
| |
'smc' => 1, |
| |
'smd' => 1, |
| |
'smf' => 1, |
| |
'smg' => 1, |
| |
'smh' => 1, |
| |
'smi' => 1, |
| |
'smj' => 1, |
| |
'smk' => 1, |
| |
'sml' => 1, |
| |
'smm' => 1, |
| |
'smn' => 1, |
| |
'smp' => 1, |
| |
'smq' => 1, |
| |
'smr' => 1, |
| |
'sms' => 1, |
| |
'smt' => 1, |
| |
'smu' => 1, |
| |
'smv' => 1, |
| |
'smw' => 1, |
| |
'smx' => 1, |
| |
'smy' => 1, |
| |
'smz' => 1, |
| |
'snb' => 1, |
| |
'snc' => 1, |
| |
'sne' => 1, |
| |
'snf' => 1, |
| |
'sng' => 1, |
| |
'snh' => 1, |
| |
'sni' => 1, |
| |
'snj' => 1, |
| |
'snk' => 1, |
| |
'snl' => 1, |
| |
'snm' => 1, |
| |
'snn' => 1, |
| |
'sno' => 1, |
| |
'snp' => 1, |
| |
'snq' => 1, |
| |
'snr' => 1, |
| |
'sns' => 1, |
| |
'snu' => 1, |
| |
'snv' => 1, |
| |
'snw' => 1, |
| |
'snx' => 1, |
| |
'sny' => 1, |
| |
'snz' => 1, |
| |
'soa' => 1, |
| |
'sob' => 1, |
| |
'soc' => 1, |
| |
'sod' => 1, |
| |
'soe' => 1, |
| |
'sog' => 1, |
| |
'soh' => 1, |
| |
'soi' => 1, |
| |
'soj' => 1, |
| |
'sok' => 1, |
| |
'sol' => 1, |
| |
'son' => 1, |
| |
'soo' => 1, |
| |
'sop' => 1, |
| |
'soq' => 1, |
| |
'sor' => 1, |
| |
'sos' => 1, |
| |
'sou' => 1, |
| |
'sov' => 1, |
| |
'sow' => 1, |
| |
'sox' => 1, |
| |
'soy' => 1, |
| |
'soz' => 1, |
| |
'spb' => 1, |
| |
'spc' => 1, |
| |
'spd' => 1, |
| |
'spe' => 1, |
| |
'spg' => 1, |
| |
'spi' => 1, |
| |
'spk' => 1, |
| |
'spl' => 1, |
| |
'spm' => 1, |
| |
'spo' => 1, |
| |
'spp' => 1, |
| |
'spq' => 1, |
| |
'spr' => 1, |
| |
'sps' => 1, |
| |
'spt' => 1, |
| |
'spu' => 1, |
| |
'spx' => 1, |
| |
'sqa' => 1, |
| |
'sqh' => 1, |
| |
'sqj' => 1, |
| |
'sqm' => 1, |
| |
'sqn' => 1, |
| |
'sqo' => 1, |
| |
'sqq' => 1, |
| |
'sqr' => 1, |
| |
'sqs' => 1, |
| |
'sqt' => 1, |
| |
'squ' => 1, |
| |
'sra' => 1, |
| |
'srb' => 1, |
| |
'sre' => 1, |
| |
'srf' => 1, |
| |
'srg' => 1, |
| |
'srh' => 1, |
| |
'sri' => 1, |
| |
'srk' => 1, |
| |
'srl' => 1, |
| |
'srm' => 1, |
| |
'srn' => 1, |
| |
'srq' => 1, |
| |
'srr' => 1, |
| |
'srs' => 1, |
| |
'srt' => 1, |
| |
'sru' => 1, |
| |
'srv' => 1, |
| |
'srw' => 1, |
| |
'srx' => 1, |
| |
'sry' => 1, |
| |
'srz' => 1, |
| |
'ssa' => 1, |
| |
'ssb' => 1, |
| |
'ssc' => 1, |
| |
'ssd' => 1, |
| |
'sse' => 1, |
| |
'ssf' => 1, |
| |
'ssg' => 1, |
| |
'ssi' => 1, |
| |
'ssj' => 1, |
| |
'ssk' => 1, |
| |
'ssl' => 1, |
| |
'ssm' => 1, |
| |
'ssn' => 1, |
| |
'sso' => 1, |
| |
'ssp' => 1, |
| |
'ssq' => 1, |
| |
'ssr' => 1, |
| |
'sss' => 1, |
| |
'sst' => 1, |
| |
'ssu' => 1, |
| |
'ssv' => 1, |
| |
'ssx' => 1, |
| |
'ssy' => 1, |
| |
'ssz' => 1, |
| |
'sta' => 1, |
| |
'stb' => 1, |
| |
'std' => 1, |
| |
'ste' => 1, |
| |
'stf' => 1, |
| |
'stg' => 1, |
| |
'sth' => 1, |
| |
'sti' => 1, |
| |
'stj' => 1, |
| |
'stk' => 1, |
| |
'stl' => 1, |
| |
'stm' => 1, |
| |
'stn' => 1, |
| |
'sto' => 1, |
| |
'stp' => 1, |
| |
'stq' => 1, |
| |
'str' => 1, |
| |
'sts' => 1, |
| |
'stt' => 1, |
| |
'stu' => 1, |
| |
'stv' => 1, |
| |
'stw' => 1, |
| |
'sua' => 1, |
| |
'sub' => 1, |
| |
'suc' => 1, |
| |
'sue' => 1, |
| |
'sug' => 1, |
| |
'sui' => 1, |
| |
'suj' => 1, |
| |
'suk' => 1, |
| |
'sul' => 1, |
| |
'sum' => 1, |
| |
'suq' => 1, |
| |
'sur' => 1, |
| |
'sus' => 1, |
| |
'sut' => 1, |
| |
'suv' => 1, |
| |
'suw' => 1, |
| |
'sux' => 1, |
| |
'suy' => 1, |
| |
'suz' => 1, |
| |
'sva' => 1, |
| |
'svb' => 1, |
| |
'svc' => 1, |
| |
'sve' => 1, |
| |
'svk' => 1, |
| |
'svr' => 1, |
| |
'svs' => 1, |
| |
'svx' => 1, |
| |
'swb' => 1, |
| |
'swf' => 1, |
| |
'swg' => 1, |
| |
'swi' => 1, |
| |
'swj' => 1, |
| |
'swk' => 1, |
| |
'swl' => 1, |
| |
'swm' => 1, |
| |
'swn' => 1, |
| |
'swo' => 1, |
| |
'swp' => 1, |
| |
'swq' => 1, |
| |
'swr' => 1, |
| |
'sws' => 1, |
| |
'swt' => 1, |
| |
'swu' => 1, |
| |
'sww' => 1, |
| |
'swx' => 1, |
| |
'swy' => 1, |
| |
'sxb' => 1, |
| |
'sxc' => 1, |
| |
'sxe' => 1, |
| |
'sxg' => 1, |
| |
'sxk' => 1, |
| |
'sxl' => 1, |
| |
'sxm' => 1, |
| |
'sxn' => 1, |
| |
'sxo' => 1, |
| |
'sxr' => 1, |
| |
'sxs' => 1, |
| |
'sxu' => 1, |
| |
'sxw' => 1, |
| |
'sya' => 1, |
| |
'syb' => 1, |
| |
'syc' => 1, |
| |
'syd' => 1, |
| |
'syi' => 1, |
| |
'syk' => 1, |
| |
'syl' => 1, |
| |
'sym' => 1, |
| |
'syn' => 1, |
| |
'syo' => 1, |
| |
'syr' => 1, |
| |
'sys' => 1, |
| |
'syw' => 1, |
| |
'syy' => 1, |
| |
'sza' => 1, |
| |
'szb' => 1, |
| |
'szc' => 1, |
| |
'szd' => 1, |
| |
'sze' => 1, |
| |
'szg' => 1, |
| |
'szl' => 1, |
| |
'szn' => 1, |
| |
'szp' => 1, |
| |
'szv' => 1, |
| |
'szw' => 1, |
| |
'taa' => 1, |
| |
'tab' => 1, |
| |
'tac' => 1, |
| |
'tad' => 1, |
| |
'tae' => 1, |
| |
'taf' => 1, |
| |
'tag' => 1, |
| |
'tai' => 1, |
| |
'taj' => 1, |
| |
'tak' => 1, |
| |
'tal' => 1, |
| |
'tan' => 1, |
| |
'tao' => 1, |
| |
'tap' => 1, |
| |
'tar' => 1, |
| |
'tas' => 1, |
| |
'tau' => 1, |
| |
'tav' => 1, |
| |
'taw' => 1, |
| |
'tax' => 1, |
| |
'tay' => 1, |
| |
'taz' => 1, |
| |
'tba' => 1, |
| |
'tbb' => 1, |
| |
'tbc' => 1, |
| |
'tbd' => 1, |
| |
'tbe' => 1, |
| |
'tbf' => 1, |
| |
'tbg' => 1, |
| |
'tbh' => 1, |
| |
'tbi' => 1, |
| |
'tbj' => 1, |
| |
'tbk' => 1, |
| |
'tbl' => 1, |
| |
'tbm' => 1, |
| |
'tbn' => 1, |
| |
'tbo' => 1, |
| |
'tbp' => 1, |
| |
'tbq' => 1, |
| |
'tbr' => 1, |
| |
'tbs' => 1, |
| |
'tbt' => 1, |
| |
'tbu' => 1, |
| |
'tbv' => 1, |
| |
'tbw' => 1, |
| |
'tbx' => 1, |
| |
'tby' => 1, |
| |
'tbz' => 1, |
| |
'tca' => 1, |
| |
'tcb' => 1, |
| |
'tcc' => 1, |
| |
'tcd' => 1, |
| |
'tce' => 1, |
| |
'tcf' => 1, |
| |
'tcg' => 1, |
| |
'tch' => 1, |
| |
'tci' => 1, |
| |
'tck' => 1, |
| |
'tcl' => 1, |
| |
'tcm' => 1, |
| |
'tcn' => 1, |
| |
'tco' => 1, |
| |
'tcp' => 1, |
| |
'tcq' => 1, |
| |
'tcs' => 1, |
| |
'tct' => 1, |
| |
'tcu' => 1, |
| |
'tcw' => 1, |
| |
'tcx' => 1, |
| |
'tcy' => 1, |
| |
'tcz' => 1, |
| |
'tda' => 1, |
| |
'tdb' => 1, |
| |
'tdc' => 1, |
| |
'tdd' => 1, |
| |
'tdf' => 1, |
| |
'tdg' => 1, |
| |
'tdh' => 1, |
| |
'tdi' => 1, |
| |
'tdj' => 1, |
| |
'tdk' => 1, |
| |
'tdl' => 1, |
| |
'tdn' => 1, |
| |
'tdo' => 1, |
| |
'tdq' => 1, |
| |
'tdr' => 1, |
| |
'tds' => 1, |
| |
'tdt' => 1, |
| |
'tdu' => 1, |
| |
'tdv' => 1, |
| |
'tdy' => 1, |
| |
'tea' => 1, |
| |
'teb' => 1, |
| |
'ted' => 1, |
| |
'tee' => 1, |
| |
'tef' => 1, |
| |
'teg' => 1, |
| |
'teh' => 1, |
| |
'tei' => 1, |
| |
'tek' => 1, |
| |
'tem' => 1, |
| |
'ten' => 1, |
| |
'teo' => 1, |
| |
'tep' => 1, |
| |
'teq' => 1, |
| |
'ter' => 1, |
| |
'tes' => 1, |
| |
'tet' => 1, |
| |
'teu' => 1, |
| |
'tev' => 1, |
| |
'tew' => 1, |
| |
'tex' => 1, |
| |
'tey' => 1, |
| |
'tfi' => 1, |
| |
'tfn' => 1, |
| |
'tfo' => 1, |
| |
'tfr' => 1, |
| |
'tft' => 1, |
| |
'tga' => 1, |
| |
'tgb' => 1, |
| |
'tgc' => 1, |
| |
'tgd' => 1, |
| |
'tge' => 1, |
| |
'tgf' => 1, |
| |
'tgg' => 1, |
| |
'tgh' => 1, |
| |
'tgi' => 1, |
| |
'tgo' => 1, |
| |
'tgp' => 1, |
| |
'tgq' => 1, |
| |
'tgr' => 1, |
| |
'tgs' => 1, |
| |
'tgt' => 1, |
| |
'tgu' => 1, |
| |
'tgv' => 1, |
| |
'tgw' => 1, |
| |
'tgx' => 1, |
| |
'tgy' => 1, |
| |
'thc' => 1, |
| |
'thd' => 1, |
| |
'the' => 1, |
| |
'thf' => 1, |
| |
'thh' => 1, |
| |
'thi' => 1, |
| |
'thk' => 1, |
| |
'thl' => 1, |
| |
'thm' => 1, |
| |
'thn' => 1, |
| |
'thp' => 1, |
| |
'thq' => 1, |
| |
'thr' => 1, |
| |
'ths' => 1, |
| |
'tht' => 1, |
| |
'thu' => 1, |
| |
'thw' => 1, |
| |
'thx' => 1, |
| |
'thy' => 1, |
| |
'tia' => 1, |
| |
'tic' => 1, |
| |
'tid' => 1, |
| |
'tie' => 1, |
| |
'tif' => 1, |
| |
'tig' => 1, |
| |
'tih' => 1, |
| |
'tii' => 1, |
| |
'tij' => 1, |
| |
'tik' => 1, |
| |
'til' => 1, |
| |
'tim' => 1, |
| |
'tin' => 1, |
| |
'tio' => 1, |
| |
'tip' => 1, |
| |
'tiq' => 1, |
| |
'tis' => 1, |
| |
'tit' => 1, |
| |
'tiu' => 1, |
| |
'tiv' => 1, |
| |
'tiw' => 1, |
| |
'tix' => 1, |
| |
'tiy' => 1, |
| |
'tiz' => 1, |
| |
'tja' => 1, |
| |
'tjg' => 1, |
| |
'tji' => 1, |
| |
'tjm' => 1, |
| |
'tjn' => 1, |
| |
'tjo' => 1, |
| |
'tjs' => 1, |
| |
'tju' => 1, |
| |
'tka' => 1, |
| |
'tkb' => 1, |
| |
'tkd' => 1, |
| |
'tke' => 1, |
| |
'tkf' => 1, |
| |
'tkk' => 1, |
| |
'tkl' => 1, |
| |
'tkm' => 1, |
| |
'tkn' => 1, |
| |
'tkp' => 1, |
| |
'tkq' => 1, |
| |
'tkr' => 1, |
| |
'tks' => 1, |
| |
'tkt' => 1, |
| |
'tku' => 1, |
| |
'tkw' => 1, |
| |
'tkx' => 1, |
| |
'tkz' => 1, |
| |
'tla' => 1, |
| |
'tlb' => 1, |
| |
'tlc' => 1, |
| |
'tld' => 1, |
| |
'tlf' => 1, |
| |
'tlg' => 1, |
| |
'tlh' => 1, |
| |
'tli' => 1, |
| |
'tlj' => 1, |
| |
'tlk' => 1, |
| |
'tll' => 1, |
| |
'tlm' => 1, |
| |
'tln' => 1, |
| |
'tlo' => 1, |
| |
'tlp' => 1, |
| |
'tlq' => 1, |
| |
'tlr' => 1, |
| |
'tls' => 1, |
| |
'tlt' => 1, |
| |
'tlu' => 1, |
| |
'tlv' => 1, |
| |
'tlw' => 1, |
| |
'tlx' => 1, |
| |
'tly' => 1, |
| |
'tma' => 1, |
| |
'tmb' => 1, |
| |
'tmc' => 1, |
| |
'tmd' => 1, |
| |
'tme' => 1, |
| |
'tmf' => 1, |
| |
'tmg' => 1, |
| |
'tmh' => 1, |
| |
'tmi' => 1, |
| |
'tmj' => 1, |
| |
'tmk' => 1, |
| |
'tml' => 1, |
| |
'tmm' => 1, |
| |
'tmn' => 1, |
| |
'tmo' => 1, |
| |
'tmp' => 1, |
| |
'tmq' => 1, |
| |
'tmr' => 1, |
| |
'tms' => 1, |
| |
'tmt' => 1, |
| |
'tmu' => 1, |
| |
'tmv' => 1, |
| |
'tmy' => 1, |
| |
'tmz' => 1, |
| |
'tna' => 1, |
| |
'tnb' => 1, |
| |
'tnc' => 1, |
| |
'tnd' => 1, |
| |
'tne' => 1, |
| |
'tnf' => 1, |
| |
'tng' => 1, |
| |
'tnh' => 1, |
| |
'tni' => 1, |
| |
'tnk' => 1, |
| |
'tnl' => 1, |
| |
'tnm' => 1, |
| |
'tnn' => 1, |
| |
'tno' => 1, |
| |
'tnp' => 1, |
| |
'tnq' => 1, |
| |
'tnr' => 1, |
| |
'tns' => 1, |
| |
'tnt' => 1, |
| |
'tnu' => 1, |
| |
'tnv' => 1, |
| |
'tnw' => 1, |
| |
'tnx' => 1, |
| |
'tny' => 1, |
| |
'tnz' => 1, |
| |
'tob' => 1, |
| |
'toc' => 1, |
| |
'tod' => 1, |
| |
'toe' => 1, |
| |
'tof' => 1, |
| |
'tog' => 1, |
| |
'toh' => 1, |
| |
'toi' => 1, |
| |
'toj' => 1, |
| |
'tol' => 1, |
| |
'tom' => 1, |
| |
'too' => 1, |
| |
'top' => 1, |
| |
'toq' => 1, |
| |
'tor' => 1, |
| |
'tos' => 1, |
| |
'tou' => 1, |
| |
'tov' => 1, |
| |
'tow' => 1, |
| |
'tox' => 1, |
| |
'toy' => 1, |
| |
'toz' => 1, |
| |
'tpa' => 1, |
| |
'tpc' => 1, |
| |
'tpe' => 1, |
| |
'tpf' => 1, |
| |
'tpg' => 1, |
| |
'tpi' => 1, |
| |
'tpj' => 1, |
| |
'tpk' => 1, |
| |
'tpl' => 1, |
| |
'tpm' => 1, |
| |
'tpn' => 1, |
| |
'tpo' => 1, |
| |
'tpp' => 1, |
| |
'tpq' => 1, |
| |
'tpr' => 1, |
| |
'tpt' => 1, |
| |
'tpu' => 1, |
| |
'tpv' => 1, |
| |
'tpw' => 1, |
| |
'tpx' => 1, |
| |
'tpy' => 1, |
| |
'tpz' => 1, |
| |
'tqb' => 1, |
| |
'tql' => 1, |
| |
'tqm' => 1, |
| |
'tqn' => 1, |
| |
'tqo' => 1, |
| |
'tqp' => 1, |
| |
'tqq' => 1, |
| |
'tqr' => 1, |
| |
'tqt' => 1, |
| |
'tqu' => 1, |
| |
'tqw' => 1, |
| |
'tra' => 1, |
| |
'trb' => 1, |
| |
'trc' => 1, |
| |
'trd' => 1, |
| |
'tre' => 1, |
| |
'trf' => 1, |
| |
'trg' => 1, |
| |
'trh' => 1, |
| |
'tri' => 1, |
| |
'trj' => 1, |
| |
'trk' => 1, |
| |
'trl' => 1, |
| |
'trm' => 1, |
| |
'trn' => 1, |
| |
'tro' => 1, |
| |
'trp' => 1, |
| |
'trq' => 1, |
| |
'trr' => 1, |
| |
'trs' => 1, |
| |
'trt' => 1, |
| |
'tru' => 1, |
| |
'trv' => 1, |
| |
'trw' => 1, |
| |
'trx' => 1, |
| |
'try' => 1, |
| |
'trz' => 1, |
| |
'tsa' => 1, |
| |
'tsb' => 1, |
| |
'tsc' => 1, |
| |
'tsd' => 1, |
| |
'tse' => 1, |
| |
'tsf' => 1, |
| |
'tsg' => 1, |
| |
'tsh' => 1, |
| |
'tsi' => 1, |
| |
'tsj' => 1, |
| |
'tsk' => 1, |
| |
'tsl' => 1, |
| |
'tsm' => 1, |
| |
'tsp' => 1, |
| |
'tsq' => 1, |
| |
'tsr' => 1, |
| |
'tss' => 1, |
| |
'tsu' => 1, |
| |
'tsv' => 1, |
| |
'tsw' => 1, |
| |
'tsx' => 1, |
| |
'tsy' => 1, |
| |
'tsz' => 1, |
| |
'tta' => 1, |
| |
'ttb' => 1, |
| |
'ttc' => 1, |
| |
'ttd' => 1, |
| |
'tte' => 1, |
| |
'ttf' => 1, |
| |
'ttg' => 1, |
| |
'tth' => 1, |
| |
'tti' => 1, |
| |
'ttj' => 1, |
| |
'ttk' => 1, |
| |
'ttl' => 1, |
| |
'ttm' => 1, |
| |
'ttn' => 1, |
| |
'tto' => 1, |
| |
'ttp' => 1, |
| |
'ttr' => 1, |
| |
'tts' => 1, |
| |
'ttt' => 1, |
| |
'ttu' => 1, |
| |
'ttv' => 1, |
| |
'ttw' => 1, |
| |
'tty' => 1, |
| |
'ttz' => 1, |
| |
'tua' => 1, |
| |
'tub' => 1, |
| |
'tuc' => 1, |
| |
'tud' => 1, |
| |
'tue' => 1, |
| |
'tuf' => 1, |
| |
'tug' => 1, |
| |
'tuh' => 1, |
| |
'tui' => 1, |
| |
'tuj' => 1, |
| |
'tul' => 1, |
| |
'tum' => 1, |
| |
'tun' => 1, |
| |
'tuo' => 1, |
| |
'tup' => 1, |
| |
'tuq' => 1, |
| |
'tus' => 1, |
| |
'tut' => 1, |
| |
'tuu' => 1, |
| |
'tuv' => 1, |
| |
'tuw' => 1, |
| |
'tux' => 1, |
| |
'tuz' => 1, |
| |
'tva' => 1, |
| |
'tvd' => 1, |
| |
'tve' => 1, |
| |
'tvk' => 1, |
| |
'tvl' => 1, |
| |
'tvm' => 1, |
| |
'tvn' => 1, |
| |
'tvo' => 1, |
| |
'tvs' => 1, |
| |
'tvt' => 1, |
| |
'tvw' => 1, |
| |
'tvy' => 1, |
| |
'twa' => 1, |
| |
'twb' => 1, |
| |
'twc' => 1, |
| |
'twd' => 1, |
| |
'twe' => 1, |
| |
'twf' => 1, |
| |
'twg' => 1, |
| |
'twh' => 1, |
| |
'twl' => 1, |
| |
'twm' => 1, |
| |
'twn' => 1, |
| |
'two' => 1, |
| |
'twp' => 1, |
| |
'twq' => 1, |
| |
'twr' => 1, |
| |
'twt' => 1, |
| |
'twu' => 1, |
| |
'tww' => 1, |
| |
'twx' => 1, |
| |
'twy' => 1, |
| |
'txa' => 1, |
| |
'txb' => 1, |
| |
'txc' => 1, |
| |
'txe' => 1, |
| |
'txg' => 1, |
| |
'txh' => 1, |
| |
'txi' => 1, |
| |
'txm' => 1, |
| |
'txn' => 1, |
| |
'txo' => 1, |
| |
'txq' => 1, |
| |
'txr' => 1, |
| |
'txs' => 1, |
| |
'txt' => 1, |
| |
'txu' => 1, |
| |
'txx' => 1, |
| |
'tya' => 1, |
| |
'tye' => 1, |
| |
'tyh' => 1, |
| |
'tyi' => 1, |
| |
'tyj' => 1, |
| |
'tyl' => 1, |
| |
'tyn' => 1, |
| |
'typ' => 1, |
| |
'tyr' => 1, |
| |
'tys' => 1, |
| |
'tyt' => 1, |
| |
'tyu' => 1, |
| |
'tyv' => 1, |
| |
'tyx' => 1, |
| |
'tyz' => 1, |
| |
'tza' => 1, |
| |
'tzh' => 1, |
| |
'tzj' => 1, |
| |
'tzm' => 1, |
| |
'tzn' => 1, |
| |
'tzo' => 1, |
| |
'tzx' => 1, |
| |
'uam' => 1, |
| |
'uan' => 1, |
| |
'uar' => 1, |
| |
'uba' => 1, |
| |
'ubi' => 1, |
| |
'ubr' => 1, |
| |
'ubu' => 1, |
| |
'uby' => 1, |
| |
'uda' => 1, |
| |
'ude' => 1, |
| |
'udg' => 1, |
| |
'udi' => 1, |
| |
'udj' => 1, |
| |
'udl' => 1, |
| |
'udm' => 1, |
| |
'udu' => 1, |
| |
'ues' => 1, |
| |
'ufi' => 1, |
| |
'uga' => 1, |
| |
'ugb' => 1, |
| |
'uge' => 1, |
| |
'ugn' => 1, |
| |
'ugo' => 1, |
| |
'ugy' => 1, |
| |
'uha' => 1, |
| |
'uhn' => 1, |
| |
'uis' => 1, |
| |
'uiv' => 1, |
| |
'uji' => 1, |
| |
'uka' => 1, |
| |
'ukg' => 1, |
| |
'ukh' => 1, |
| |
'ukl' => 1, |
| |
'ukp' => 1, |
| |
'ukq' => 1, |
| |
'uks' => 1, |
| |
'uku' => 1, |
| |
'ukw' => 1, |
| |
'ula' => 1, |
| |
'ulb' => 1, |
| |
'ulc' => 1, |
| |
'ulf' => 1, |
| |
'uli' => 1, |
| |
'ulk' => 1, |
| |
'ull' => 1, |
| |
'ulm' => 1, |
| |
'uln' => 1, |
| |
'ulu' => 1, |
| |
'uma' => 1, |
| |
'umb' => 1, |
| |
'umc' => 1, |
| |
'umd' => 1, |
| |
'umg' => 1, |
| |
'umi' => 1, |
| |
'umm' => 1, |
| |
'umn' => 1, |
| |
'umo' => 1, |
| |
'ump' => 1, |
| |
'umr' => 1, |
| |
'ums' => 1, |
| |
'una' => 1, |
| |
'une' => 1, |
| |
'ung' => 1, |
| |
'unk' => 1, |
| |
'unp' => 1, |
| |
'unr' => 1, |
| |
'unx' => 1, |
| |
'unz' => 1, |
| |
'uok' => 1, |
| |
'upi' => 1, |
| |
'upv' => 1, |
| |
'ura' => 1, |
| |
'urb' => 1, |
| |
'urc' => 1, |
| |
'ure' => 1, |
| |
'urf' => 1, |
| |
'urg' => 1, |
| |
'urh' => 1, |
| |
'uri' => 1, |
| |
'urj' => 1, |
| |
'url' => 1, |
| |
'urm' => 1, |
| |
'urn' => 1, |
| |
'uro' => 1, |
| |
'urp' => 1, |
| |
'urr' => 1, |
| |
'urt' => 1, |
| |
'uru' => 1, |
| |
'urv' => 1, |
| |
'urw' => 1, |
| |
'urx' => 1, |
| |
'ury' => 1, |
| |
'urz' => 1, |
| |
'usa' => 1, |
| |
'ush' => 1, |
| |
'usi' => 1, |
| |
'usk' => 1, |
| |
'usp' => 1, |
| |
'usu' => 1, |
| |
'uta' => 1, |
| |
'ute' => 1, |
| |
'utp' => 1, |
| |
'utr' => 1, |
| |
'utu' => 1, |
| |
'uum' => 1, |
| |
'uun' => 1, |
| |
'uur' => 1, |
| |
'uuu' => 1, |
| |
'uve' => 1, |
| |
'uvh' => 1, |
| |
'uvl' => 1, |
| |
'uwa' => 1, |
| |
'uya' => 1, |
| |
'vaa' => 1, |
| |
'vae' => 1, |
| |
'vaf' => 1, |
| |
'vag' => 1, |
| |
'vah' => 1, |
| |
'vai' => 1, |
| |
'vaj' => 1, |
| |
'val' => 1, |
| |
'vam' => 1, |
| |
'van' => 1, |
| |
'vao' => 1, |
| |
'vap' => 1, |
| |
'var' => 1, |
| |
'vas' => 1, |
| |
'vau' => 1, |
| |
'vav' => 1, |
| |
'vay' => 1, |
| |
'vbb' => 1, |
| |
'vec' => 1, |
| |
'ved' => 1, |
| |
'vel' => 1, |
| |
'vem' => 1, |
| |
'veo' => 1, |
| |
'vep' => 1, |
| |
'ver' => 1, |
| |
'vgr' => 1, |
| |
'vgt' => 1, |
| |
'vic' => 1, |
| |
'vid' => 1, |
| |
'vif' => 1, |
| |
'vig' => 1, |
| |
'vil' => 1, |
| |
'vin' => 1, |
| |
'vis' => 1, |
| |
'vit' => 1, |
| |
'viv' => 1, |
| |
'vka' => 1, |
| |
'vki' => 1, |
| |
'vkj' => 1, |
| |
'vkl' => 1, |
| |
'vkm' => 1, |
| |
'vko' => 1, |
| |
'vkp' => 1, |
| |
'vku' => 1, |
| |
'vlp' => 1, |
| |
'vls' => 1, |
| |
'vma' => 1, |
| |
'vmb' => 1, |
| |
'vmc' => 1, |
| |
'vmd' => 1, |
| |
'vme' => 1, |
| |
'vmf' => 1, |
| |
'vmg' => 1, |
| |
'vmh' => 1, |
| |
'vmi' => 1, |
| |
'vmj' => 1, |
| |
'vmk' => 1, |
| |
'vml' => 1, |
| |
'vmm' => 1, |
| |
'vmp' => 1, |
| |
'vmq' => 1, |
| |
'vmr' => 1, |
| |
'vms' => 1, |
| |
'vmu' => 1, |
| |
'vmv' => 1, |
| |
'vmw' => 1, |
| |
'vmx' => 1, |
| |
'vmy' => 1, |
| |
'vmz' => 1, |
| |
'vnk' => 1, |
| |
'vnm' => 1, |
| |
'vnp' => 1, |
| |
'vor' => 1, |
| |
'vot' => 1, |
| |
'vra' => 1, |
| |
'vrs' => 1, |
| |
'vrt' => 1, |
| |
'vsi' => 1, |
| |
'vsl' => 1, |
| |
'vsv' => 1, |
| |
'vto' => 1, |
| |
'vum' => 1, |
| |
'vun' => 1, |
| |
'vut' => 1, |
| |
'vwa' => 1, |
| |
'waa' => 1, |
| |
'wab' => 1, |
| |
'wac' => 1, |
| |
'wad' => 1, |
| |
'wae' => 1, |
| |
'waf' => 1, |
| |
'wag' => 1, |
| |
'wah' => 1, |
| |
'wai' => 1, |
| |
'waj' => 1, |
| |
'wak' => 1, |
| |
'wal' => 1, |
| |
'wam' => 1, |
| |
'wan' => 1, |
| |
'wao' => 1, |
| |
'wap' => 1, |
| |
'waq' => 1, |
| |
'war' => 1, |
| |
'was' => 1, |
| |
'wat' => 1, |
| |
'wau' => 1, |
| |
'wav' => 1, |
| |
'waw' => 1, |
| |
'wax' => 1, |
| |
'way' => 1, |
| |
'waz' => 1, |
| |
'wba' => 1, |
| |
'wbb' => 1, |
| |
'wbe' => 1, |
| |
'wbf' => 1, |
| |
'wbh' => 1, |
| |
'wbi' => 1, |
| |
'wbj' => 1, |
| |
'wbk' => 1, |
| |
'wbl' => 1, |
| |
'wbm' => 1, |
| |
'wbp' => 1, |
| |
'wbq' => 1, |
| |
'wbt' => 1, |
| |
'wbv' => 1, |
| |
'wbw' => 1, |
| |
'wca' => 1, |
| |
'wci' => 1, |
| |
'wdd' => 1, |
| |
'wdg' => 1, |
| |
'wdj' => 1, |
| |
'wdu' => 1, |
| |
'wea' => 1, |
| |
'wec' => 1, |
| |
'wed' => 1, |
| |
'weh' => 1, |
| |
'wei' => 1, |
| |
'wem' => 1, |
| |
'wen' => 1, |
| |
'weo' => 1, |
| |
'wep' => 1, |
| |
'wer' => 1, |
| |
'wes' => 1, |
| |
'wet' => 1, |
| |
'weu' => 1, |
| |
'wew' => 1, |
| |
'wfg' => 1, |
| |
'wga' => 1, |
| |
'wgg' => 1, |
| |
'wgi' => 1, |
| |
'wgo' => 1, |
| |
'wgw' => 1, |
| |
'wgy' => 1, |
| |
'wha' => 1, |
| |
'whg' => 1, |
| |
'whk' => 1, |
| |
'whu' => 1, |
| |
'wib' => 1, |
| |
'wic' => 1, |
| |
'wie' => 1, |
| |
'wif' => 1, |
| |
'wig' => 1, |
| |
'wih' => 1, |
| |
'wii' => 1, |
| |
'wij' => 1, |
| |
'wik' => 1, |
| |
'wil' => 1, |
| |
'wim' => 1, |
| |
'win' => 1, |
| |
'wir' => 1, |
| |
'wit' => 1, |
| |
'wiu' => 1, |
| |
'wiv' => 1, |
| |
'wiw' => 1, |
| |
'wiy' => 1, |
| |
'wja' => 1, |
| |
'wji' => 1, |
| |
'wka' => 1, |
| |
'wkb' => 1, |
| |
'wkd' => 1, |
| |
'wkl' => 1, |
| |
'wku' => 1, |
| |
'wkw' => 1, |
| |
'wla' => 1, |
| |
'wlc' => 1, |
| |
'wle' => 1, |
| |
'wlg' => 1, |
| |
'wli' => 1, |
| |
'wlk' => 1, |
| |
'wll' => 1, |
| |
'wlm' => 1, |
| |
'wlo' => 1, |
| |
'wlr' => 1, |
| |
'wls' => 1, |
| |
'wlu' => 1, |
| |
'wlv' => 1, |
| |
'wlw' => 1, |
| |
'wlx' => 1, |
| |
'wly' => 1, |
| |
'wma' => 1, |
| |
'wmb' => 1, |
| |
'wmc' => 1, |
| |
'wmd' => 1, |
| |
'wme' => 1, |
| |
'wmh' => 1, |
| |
'wmi' => 1, |
| |
'wmm' => 1, |
| |
'wmn' => 1, |
| |
'wmo' => 1, |
| |
'wms' => 1, |
| |
'wmt' => 1, |
| |
'wmw' => 1, |
| |
'wmx' => 1, |
| |
'wnb' => 1, |
| |
'wnc' => 1, |
| |
'wnd' => 1, |
| |
'wne' => 1, |
| |
'wng' => 1, |
| |
'wni' => 1, |
| |
'wnk' => 1, |
| |
'wnm' => 1, |
| |
'wno' => 1, |
| |
'wnp' => 1, |
| |
'wnu' => 1, |
| |
'woa' => 1, |
| |
'wob' => 1, |
| |
'woc' => 1, |
| |
'wod' => 1, |
| |
'woe' => 1, |
| |
'wof' => 1, |
| |
'wog' => 1, |
| |
'woi' => 1, |
| |
'wok' => 1, |
| |
'wom' => 1, |
| |
'won' => 1, |
| |
'woo' => 1, |
| |
'wor' => 1, |
| |
'wos' => 1, |
| |
'wow' => 1, |
| |
'woy' => 1, |
| |
'wpc' => 1, |
| |
'wra' => 1, |
| |
'wrb' => 1, |
| |
'wrd' => 1, |
| |
'wrg' => 1, |
| |
'wrh' => 1, |
| |
'wri' => 1, |
| |
'wrl' => 1, |
| |
'wrm' => 1, |
| |
'wrn' => 1, |
| |
'wrp' => 1, |
| |
'wrr' => 1, |
| |
'wrs' => 1, |
| |
'wru' => 1, |
| |
'wrv' => 1, |
| |
'wrw' => 1, |
| |
'wrx' => 1, |
| |
'wrz' => 1, |
| |
'wsa' => 1, |
| |
'wsi' => 1, |
| |
'wsk' => 1, |
| |
'wsr' => 1, |
| |
'wss' => 1, |
| |
'wsu' => 1, |
| |
'wsv' => 1, |
| |
'wtf' => 1, |
| |
'wti' => 1, |
| |
'wtk' => 1, |
| |
'wtm' => 1, |
| |
'wtw' => 1, |
| |
'wua' => 1, |
| |
'wub' => 1, |
| |
'wud' => 1, |
| |
'wuh' => 1, |
| |
'wul' => 1, |
| |
'wum' => 1, |
| |
'wun' => 1, |
| |
'wur' => 1, |
| |
'wut' => 1, |
| |
'wuv' => 1, |
| |
'wux' => 1, |
| |
'wuy' => 1, |
| |
'wwa' => 1, |
| |
'wwo' => 1, |
| |
'wwr' => 1, |
| |
'www' => 1, |
| |
'wxa' => 1, |
| |
'wya' => 1, |
| |
'wyb' => 1, |
| |
'wym' => 1, |
| |
'wyr' => 1, |
| |
'wyy' => 1, |
| |
'xaa' => 1, |
| |
'xab' => 1, |
| |
'xac' => 1, |
| |
'xad' => 1, |
| |
'xae' => 1, |
| |
'xag' => 1, |
| |
'xai' => 1, |
| |
'xal' => 1, |
| |
'xam' => 1, |
| |
'xan' => 1, |
| |
'xao' => 1, |
| |
'xap' => 1, |
| |
'xaq' => 1, |
| |
'xar' => 1, |
| |
'xas' => 1, |
| |
'xat' => 1, |
| |
'xau' => 1, |
| |
'xav' => 1, |
| |
'xaw' => 1, |
| |
'xay' => 1, |
| |
'xba' => 1, |
| |
'xbc' => 1, |
| |
'xbi' => 1, |
| |
'xbm' => 1, |
| |
'xbo' => 1, |
| |
'xbr' => 1, |
| |
'xbw' => 1, |
| |
'xbx' => 1, |
| |
'xcb' => 1, |
| |
'xcc' => 1, |
| |
'xce' => 1, |
| |
'xcg' => 1, |
| |
'xch' => 1, |
| |
'xcl' => 1, |
| |
'xcm' => 1, |
| |
'xcn' => 1, |
| |
'xco' => 1, |
| |
'xcr' => 1, |
| |
'xct' => 1, |
| |
'xcu' => 1, |
| |
'xcv' => 1, |
| |
'xcw' => 1, |
| |
'xcy' => 1, |
| |
'xdc' => 1, |
| |
'xdm' => 1, |
| |
'xdy' => 1, |
| |
'xeb' => 1, |
| |
'xed' => 1, |
| |
'xeg' => 1, |
| |
'xel' => 1, |
| |
'xem' => 1, |
| |
'xep' => 1, |
| |
'xer' => 1, |
| |
'xes' => 1, |
| |
'xet' => 1, |
| |
'xeu' => 1, |
| |
'xfa' => 1, |
| |
'xga' => 1, |
| |
'xgf' => 1, |
| |
'xgl' => 1, |
| |
'xgn' => 1, |
| |
'xgr' => 1, |
| |
'xha' => 1, |
| |
'xhc' => 1, |
| |
'xhd' => 1, |
| |
'xhr' => 1, |
| |
'xht' => 1, |
| |
'xhu' => 1, |
| |
'xhv' => 1, |
| |
'xia' => 1, |
| |
'xib' => 1, |
| |
'xii' => 1, |
| |
'xil' => 1, |
| |
'xin' => 1, |
| |
'xip' => 1, |
| |
'xir' => 1, |
| |
'xiv' => 1, |
| |
'xiy' => 1, |
| |
'xka' => 1, |
| |
'xkb' => 1, |
| |
'xkc' => 1, |
| |
'xkd' => 1, |
| |
'xke' => 1, |
| |
'xkf' => 1, |
| |
'xkg' => 1, |
| |
'xkh' => 1, |
| |
'xki' => 1, |
| |
'xkj' => 1, |
| |
'xkk' => 1, |
| |
'xkl' => 1, |
| |
'xkn' => 1, |
| |
'xko' => 1, |
| |
'xkp' => 1, |
| |
'xkq' => 1, |
| |
'xkr' => 1, |
| |
'xks' => 1, |
| |
'xkt' => 1, |
| |
'xku' => 1, |
| |
'xkv' => 1, |
| |
'xkw' => 1, |
| |
'xkx' => 1, |
| |
'xky' => 1, |
| |
'xkz' => 1, |
| |
'xla' => 1, |
| |
'xlb' => 1, |
| |
'xlc' => 1, |
| |
'xld' => 1, |
| |
'xle' => 1, |
| |
'xlg' => 1, |
| |
'xli' => 1, |
| |
'xln' => 1, |
| |
'xlo' => 1, |
| |
'xlp' => 1, |
| |
'xls' => 1, |
| |
'xlu' => 1, |
| |
'xly' => 1, |
| |
'xma' => 1, |
| |
'xmb' => 1, |
| |
'xmc' => 1, |
| |
'xmd' => 1, |
| |
'xme' => 1, |
| |
'xmf' => 1, |
| |
'xmg' => 1, |
| |
'xmh' => 1, |
| |
'xmj' => 1, |
| |
'xmk' => 1, |
| |
'xml' => 1, |
| |
'xmn' => 1, |
| |
'xmo' => 1, |
| |
'xmp' => 1, |
| |
'xmq' => 1, |
| |
'xmr' => 1, |
| |
'xms' => 1, |
| |
'xmt' => 1, |
| |
'xmu' => 1, |
| |
'xmx' => 1, |
| |
'xmy' => 1, |
| |
'xmz' => 1, |
| |
'xna' => 1, |
| |
'xnb' => 1, |
| |
'xnd' => 1, |
| |
'xng' => 1, |
| |
'xnh' => 1, |
| |
'xnn' => 1, |
| |
'xno' => 1, |
| |
'xns' => 1, |
| |
'xoc' => 1, |
| |
'xod' => 1, |
| |
'xog' => 1, |
| |
'xoi' => 1, |
| |
'xok' => 1, |
| |
'xom' => 1, |
| |
'xon' => 1, |
| |
'xoo' => 1, |
| |
'xop' => 1, |
| |
'xor' => 1, |
| |
'xow' => 1, |
| |
'xpc' => 1, |
| |
'xpg' => 1, |
| |
'xpi' => 1, |
| |
'xpk' => 1, |
| |
'xpm' => 1, |
| |
'xpn' => 1, |
| |
'xpo' => 1, |
| |
'xpp' => 1, |
| |
'xpr' => 1, |
| |
'xps' => 1, |
| |
'xpu' => 1, |
| |
'xpy' => 1, |
| |
'xqa' => 1, |
| |
'xqt' => 1, |
| |
'xra' => 1, |
| |
'xrb' => 1, |
| |
'xre' => 1, |
| |
'xri' => 1, |
| |
'xrm' => 1, |
| |
'xrn' => 1, |
| |
'xrr' => 1, |
| |
'xrt' => 1, |
| |
'xru' => 1, |
| |
'xrw' => 1, |
| |
'xsa' => 1, |
| |
'xsb' => 1, |
| |
'xsc' => 1, |
| |
'xsd' => 1, |
| |
'xse' => 1, |
| |
'xsh' => 1, |
| |
'xsi' => 1, |
| |
'xsj' => 1, |
| |
'xsm' => 1, |
| |
'xsn' => 1, |
| |
'xso' => 1, |
| |
'xsp' => 1, |
| |
'xsq' => 1, |
| |
'xsr' => 1, |
| |
'xss' => 1, |
| |
'xsu' => 1, |
| |
'xsv' => 1, |
| |
'xsy' => 1, |
| |
'xta' => 1, |
| |
'xtb' => 1, |
| |
'xtc' => 1, |
| |
'xtd' => 1, |
| |
'xte' => 1, |
| |
'xtg' => 1, |
| |
'xti' => 1, |
| |
'xtj' => 1, |
| |
'xtl' => 1, |
| |
'xtm' => 1, |
| |
'xtn' => 1, |
| |
'xto' => 1, |
| |
'xtp' => 1, |
| |
'xtq' => 1, |
| |
'xtr' => 1, |
| |
'xts' => 1, |
| |
'xtt' => 1, |
| |
'xtu' => 1, |
| |
'xtw' => 1, |
| |
'xty' => 1, |
| |
'xtz' => 1, |
| |
'xua' => 1, |
| |
'xub' => 1, |
| |
'xug' => 1, |
| |
'xuj' => 1, |
| |
'xum' => 1, |
| |
'xuo' => 1, |
| |
'xup' => 1, |
| |
'xur' => 1, |
| |
'xut' => 1, |
| |
'xuu' => 1, |
| |
'xve' => 1, |
| |
'xvi' => 1, |
| |
'xvn' => 1, |
| |
'xvo' => 1, |
| |
'xvs' => 1, |
| |
'xwa' => 1, |
| |
'xwc' => 1, |
| |
'xwe' => 1, |
| |
'xwg' => 1, |
| |
'xwl' => 1, |
| |
'xwo' => 1, |
| |
'xwr' => 1, |
| |
'xxb' => 1, |
| |
'xxk' => 1, |
| |
'xxr' => 1, |
| |
'xxt' => 1, |
| |
'xyl' => 1, |
| |
'xzh' => 1, |
| |
'xzm' => 1, |
| |
'xzp' => 1, |
| |
'yaa' => 1, |
| |
'yab' => 1, |
| |
'yac' => 1, |
| |
'yad' => 1, |
| |
'yae' => 1, |
| |
'yaf' => 1, |
| |
'yag' => 1, |
| |
'yah' => 1, |
| |
'yai' => 1, |
| |
'yaj' => 1, |
| |
'yak' => 1, |
| |
'yal' => 1, |
| |
'yam' => 1, |
| |
'yao' => 1, |
| |
'yap' => 1, |
| |
'yaq' => 1, |
| |
'yar' => 1, |
| |
'yas' => 1, |
| |
'yat' => 1, |
| |
'yau' => 1, |
| |
'yav' => 1, |
| |
'yaw' => 1, |
| |
'yax' => 1, |
| |
'yay' => 1, |
| |
'yaz' => 1, |
| |
'yba' => 1, |
| |
'ybb' => 1, |
| |
'ybd' => 1, |
| |
'ybe' => 1, |
| |
'ybh' => 1, |
| |
'ybi' => 1, |
| |
'ybj' => 1, |
| |
'ybk' => 1, |
| |
'ybl' => 1, |
| |
'ybm' => 1, |
| |
'ybn' => 1, |
| |
'ybo' => 1, |
| |
'ybx' => 1, |
| |
'yby' => 1, |
| |
'ych' => 1, |
| |
'ycl' => 1, |
| |
'ycn' => 1, |
| |
'ycp' => 1, |
| |
'yde' => 1, |
| |
'ydg' => 1, |
| |
'ydk' => 1, |
| |
'yds' => 1, |
| |
'yea' => 1, |
| |
'yec' => 1, |
| |
'yee' => 1, |
| |
'yei' => 1, |
| |
'yej' => 1, |
| |
'yel' => 1, |
| |
'yen' => 1, |
| |
'yer' => 1, |
| |
'yes' => 1, |
| |
'yet' => 1, |
| |
'yeu' => 1, |
| |
'yev' => 1, |
| |
'yey' => 1, |
| |
'ygl' => 1, |
| |
'ygm' => 1, |
| |
'ygp' => 1, |
| |
'ygr' => 1, |
| |
'ygw' => 1, |
| |
'yha' => 1, |
| |
'yhl' => 1, |
| |
'yia' => 1, |
| |
'yif' => 1, |
| |
'yig' => 1, |
| |
'yii' => 1, |
| |
'yij' => 1, |
| |
'yik' => 1, |
| |
'yil' => 1, |
| |
'yim' => 1, |
| |
'yin' => 1, |
| |
'yip' => 1, |
| |
'yiq' => 1, |
| |
'yir' => 1, |
| |
'yis' => 1, |
| |
'yit' => 1, |
| |
'yiu' => 1, |
| |
'yiv' => 1, |
| |
'yix' => 1, |
| |
'yiy' => 1, |
| |
'yiz' => 1, |
| |
'yka' => 1, |
| |
'ykg' => 1, |
| |
'yki' => 1, |
| |
'ykk' => 1, |
| |
'ykl' => 1, |
| |
'ykm' => 1, |
| |
'yko' => 1, |
| |
'ykr' => 1, |
| |
'ykt' => 1, |
| |
'yky' => 1, |
| |
'yla' => 1, |
| |
'yle' => 1, |
| |
'ylg' => 1, |
| |
'yli' => 1, |
| |
'yll' => 1, |
| |
'ylm' => 1, |
| |
'yln' => 1, |
| |
'ylo' => 1, |
| |
'ylr' => 1, |
| |
'ylu' => 1, |
| |
'yly' => 1, |
| |
'yma' => 1, |
| |
'ymb' => 1, |
| |
'ymc' => 1, |
| |
'ymd' => 1, |
| |
'yme' => 1, |
| |
'ymg' => 1, |
| |
'ymh' => 1, |
| |
'ymi' => 1, |
| |
'ymk' => 1, |
| |
'yml' => 1, |
| |
'ymm' => 1, |
| |
'ymn' => 1, |
| |
'ymo' => 1, |
| |
'ymp' => 1, |
| |
'ymq' => 1, |
| |
'ymr' => 1, |
| |
'yms' => 1, |
| |
'ymt' => 1, |
| |
'ymx' => 1, |
| |
'ymz' => 1, |
| |
'yna' => 1, |
| |
'ynd' => 1, |
| |
'yne' => 1, |
| |
'yng' => 1, |
| |
'ynh' => 1, |
| |
'ynk' => 1, |
| |
'ynl' => 1, |
| |
'ynn' => 1, |
| |
'yno' => 1, |
| |
'yns' => 1, |
| |
'ynu' => 1, |
| |
'yob' => 1, |
| |
'yog' => 1, |
| |
'yoi' => 1, |
| |
'yok' => 1, |
| |
'yol' => 1, |
| |
'yom' => 1, |
| |
'yon' => 1, |
| |
'yos' => 1, |
| |
'yox' => 1, |
| |
'yoy' => 1, |
| |
'ypa' => 1, |
| |
'ypb' => 1, |
| |
'ypg' => 1, |
| |
'yph' => 1, |
| |
'ypk' => 1, |
| |
'ypm' => 1, |
| |
'ypn' => 1, |
| |
'ypo' => 1, |
| |
'ypp' => 1, |
| |
'ypz' => 1, |
| |
'yra' => 1, |
| |
'yrb' => 1, |
| |
'yre' => 1, |
| |
'yri' => 1, |
| |
'yrk' => 1, |
| |
'yrl' => 1, |
| |
'yrn' => 1, |
| |
'yrs' => 1, |
| |
'yrw' => 1, |
| |
'ysc' => 1, |
| |
'ysd' => 1, |
| |
'ysl' => 1, |
| |
'ysn' => 1, |
| |
'yso' => 1, |
| |
'ysp' => 1, |
| |
'ysr' => 1, |
| |
'yss' => 1, |
| |
'ysy' => 1, |
| |
'yta' => 1, |
| |
'ytl' => 1, |
| |
'ytp' => 1, |
| |
'yua' => 1, |
| |
'yub' => 1, |
| |
'yuc' => 1, |
| |
'yuf' => 1, |
| |
'yug' => 1, |
| |
'yui' => 1, |
| |
'yuj' => 1, |
| |
'yuk' => 1, |
| |
'yul' => 1, |
| |
'yum' => 1, |
| |
'yun' => 1, |
| |
'yup' => 1, |
| |
'yuq' => 1, |
| |
'yur' => 1, |
| |
'yut' => 1, |
| |
'yuu' => 1, |
| |
'yuw' => 1, |
| |
'yux' => 1, |
| |
'yuy' => 1, |
| |
'yuz' => 1, |
| |
'yva' => 1, |
| |
'yvt' => 1, |
| |
'ywa' => 1, |
| |
'ywl' => 1, |
| |
'ywn' => 1, |
| |
'ywq' => 1, |
| |
'ywr' => 1, |
| |
'ywt' => 1, |
| |
'ywu' => 1, |
| |
'yww' => 1, |
| |
'yyu' => 1, |
| |
'yyz' => 1, |
| |
'yzg' => 1, |
| |
'yzk' => 1, |
| |
'zag' => 1, |
| |
'zah' => 1, |
| |
'zaj' => 1, |
| |
'zak' => 1, |
| |
'zal' => 1, |
| |
'zap' => 1, |
| |
'zau' => 1, |
| |
'zay' => 1, |
| |
'zaz' => 1, |
| |
'zbc' => 1, |
| |
'zbe' => 1, |
| |
'zbl' => 1, |
| |
'zbt' => 1, |
| |
'zbw' => 1, |
| |
'zdj' => 1, |
| |
'zea' => 1, |
| |
'zeg' => 1, |
| |
'zen' => 1, |
| |
'zga' => 1, |
| |
'zgr' => 1, |
| |
'zhb' => 1, |
| |
'zhi' => 1, |
| |
'zhw' => 1, |
| |
'zhx' => 1, |
| |
'zia' => 1, |
| |
'zib' => 1, |
| |
'zik' => 1, |
| |
'zim' => 1, |
| |
'zin' => 1, |
| |
'zir' => 1, |
| |
'ziw' => 1, |
| |
'ziz' => 1, |
| |
'zka' => 1, |
| |
'zkb' => 1, |
| |
'zkg' => 1, |
| |
'zkh' => 1, |
| |
'zkk' => 1, |
| |
'zko' => 1, |
| |
'zkp' => 1, |
| |
'zkr' => 1, |
| |
'zkt' => 1, |
| |
'zku' => 1, |
| |
'zkv' => 1, |
| |
'zkz' => 1, |
| |
'zle' => 1, |
| |
'zls' => 1, |
| |
'zlw' => 1, |
| |
'zma' => 1, |
| |
'zmb' => 1, |
| |
'zmc' => 1, |
| |
'zmd' => 1, |
| |
'zme' => 1, |
| |
'zmf' => 1, |
| |
'zmg' => 1, |
| |
'zmh' => 1, |
| |
'zmj' => 1, |
| |
'zmk' => 1, |
| |
'zml' => 1, |
| |
'zmm' => 1, |
| |
'zmn' => 1, |
| |
'zmo' => 1, |
| |
'zmp' => 1, |
| |
'zmq' => 1, |
| |
'zmr' => 1, |
| |
'zms' => 1, |
| |
'zmt' => 1, |
| |
'zmu' => 1, |
| |
'zmv' => 1, |
| |
'zmw' => 1, |
| |
'zmx' => 1, |
| |
'zmy' => 1, |
| |
'zmz' => 1, |
| |
'zna' => 1, |
| |
'znd' => 1, |
| |
'zne' => 1, |
| |
'zng' => 1, |
| |
'znk' => 1, |
| |
'zns' => 1, |
| |
'zoc' => 1, |
| |
'zoh' => 1, |
| |
'zom' => 1, |
| |
'zoq' => 1, |
| |
'zor' => 1, |
| |
'zos' => 1, |
| |
'zra' => 1, |
| |
'zrg' => 1, |
| |
'zrn' => 1, |
| |
'zro' => 1, |
| |
'zrp' => 1, |
| |
'zrs' => 1, |
| |
'zsa' => 1, |
| |
'zsk' => 1, |
| |
'zsl' => 1, |
| |
'zsu' => 1, |
| |
'zua' => 1, |
| |
'zuh' => 1, |
| |
'zum' => 1, |
| |
'zun' => 1, |
| |
'zuy' => 1, |
| |
'zwa' => 1, |
| |
'zyp' => 1, |
| |
'zza' => 1, |
| |
); |
| |
|
| |
%region_codes = ( |
| |
'AC' => 1, |
| |
'AD' => 1, |
| |
'AE' => 1, |
| |
'AF' => 1, |
| |
'AG' => 1, |
| |
'AI' => 1, |
| |
'AL' => 1, |
| |
'AM' => 1, |
| |
'AN' => 1, |
| |
'AO' => 1, |
| |
'AQ' => 1, |
| |
'AR' => 1, |
| |
'AS' => 1, |
| |
'AT' => 1, |
| |
'AU' => 1, |
| |
'AW' => 1, |
| |
'AX' => 1, |
| |
'AZ' => 1, |
| |
'BA' => 1, |
| |
'BB' => 1, |
| |
'BD' => 1, |
| |
'BE' => 1, |
| |
'BF' => 1, |
| |
'BG' => 1, |
| |
'BH' => 1, |
| |
'BI' => 1, |
| |
'BJ' => 1, |
| |
'BL' => 1, |
| |
'BM' => 1, |
| |
'BN' => 1, |
| |
'BO' => 1, |
| |
'BR' => 1, |
| |
'BS' => 1, |
| |
'BT' => 1, |
| |
'BU' => 1, |
| |
'BV' => 1, |
| |
'BW' => 1, |
| |
'BY' => 1, |
| |
'BZ' => 1, |
| |
'CA' => 1, |
| |
'CC' => 1, |
| |
'CD' => 1, |
| |
'CF' => 1, |
| |
'CG' => 1, |
| |
'CH' => 1, |
| |
'CI' => 1, |
| |
'CK' => 1, |
| |
'CL' => 1, |
| |
'CM' => 1, |
| |
'CN' => 1, |
| |
'CO' => 1, |
| |
'CP' => 1, |
| |
'CR' => 1, |
| |
'CS' => 1, |
| |
'CU' => 1, |
| |
'CV' => 1, |
| |
'CX' => 1, |
| |
'CY' => 1, |
| |
'CZ' => 1, |
| |
'DD' => 1, |
| |
'DE' => 1, |
| |
'DG' => 1, |
| |
'DJ' => 1, |
| |
'DK' => 1, |
| |
'DM' => 1, |
| |
'DO' => 1, |
| |
'DZ' => 1, |
| |
'EA' => 1, |
| |
'EC' => 1, |
| |
'EE' => 1, |
| |
'EG' => 1, |
| |
'EH' => 1, |
| |
'ER' => 1, |
| |
'ES' => 1, |
| |
'ET' => 1, |
| |
'EU' => 1, |
| |
'FI' => 1, |
| |
'FJ' => 1, |
| |
'FK' => 1, |
| |
'FM' => 1, |
| |
'FO' => 1, |
| |
'FR' => 1, |
| |
'FX' => 1, |
| |
'GA' => 1, |
| |
'GB' => 1, |
| |
'GD' => 1, |
| |
'GE' => 1, |
| |
'GF' => 1, |
| |
'GG' => 1, |
| |
'GH' => 1, |
| |
'GI' => 1, |
| |
'GL' => 1, |
| |
'GM' => 1, |
| |
'GN' => 1, |
| |
'GP' => 1, |
| |
'GQ' => 1, |
| |
'GR' => 1, |
| |
'GS' => 1, |
| |
'GT' => 1, |
| |
'GU' => 1, |
| |
'GW' => 1, |
| |
'GY' => 1, |
| |
'HK' => 1, |
| |
'HM' => 1, |
| |
'HN' => 1, |
| |
'HR' => 1, |
| |
'HT' => 1, |
| |
'HU' => 1, |
| |
'IC' => 1, |
| |
'ID' => 1, |
| |
'IE' => 1, |
| |
'IL' => 1, |
| |
'IM' => 1, |
| |
'IN' => 1, |
| |
'IO' => 1, |
| |
'IQ' => 1, |
| |
'IR' => 1, |
| |
'IS' => 1, |
| |
'IT' => 1, |
| |
'JE' => 1, |
| |
'JM' => 1, |
| |
'JO' => 1, |
| |
'JP' => 1, |
| |
'KE' => 1, |
| |
'KG' => 1, |
| |
'KH' => 1, |
| |
'KI' => 1, |
| |
'KM' => 1, |
| |
'KN' => 1, |
| |
'KP' => 1, |
| |
'KR' => 1, |
| |
'KW' => 1, |
| |
'KY' => 1, |
| |
'KZ' => 1, |
| |
'LA' => 1, |
| |
'LB' => 1, |
| |
'LC' => 1, |
| |
'LI' => 1, |
| |
'LK' => 1, |
| |
'LR' => 1, |
| |
'LS' => 1, |
| |
'LT' => 1, |
| |
'LU' => 1, |
| |
'LV' => 1, |
| |
'LY' => 1, |
| |
'MA' => 1, |
| |
'MC' => 1, |
| |
'MD' => 1, |
| |
'ME' => 1, |
| |
'MF' => 1, |
| |
'MG' => 1, |
| |
'MH' => 1, |
| |
'MK' => 1, |
| |
'ML' => 1, |
| |
'MM' => 1, |
| |
'MN' => 1, |
| |
'MO' => 1, |
| |
'MP' => 1, |
| |
'MQ' => 1, |
| |
'MR' => 1, |
| |
'MS' => 1, |
| |
'MT' => 1, |
| |
'MU' => 1, |
| |
'MV' => 1, |
| |
'MW' => 1, |
| |
'MX' => 1, |
| |
'MY' => 1, |
| |
'MZ' => 1, |
| |
'NA' => 1, |
| |
'NC' => 1, |
| |
'NE' => 1, |
| |
'NF' => 1, |
| |
'NG' => 1, |
| |
'NI' => 1, |
| |
'NL' => 1, |
| |
'NO' => 1, |
| |
'NP' => 1, |
| |
'NR' => 1, |
| |
'NT' => 1, |
| |
'NU' => 1, |
| |
'NZ' => 1, |
| |
'OM' => 1, |
| |
'PA' => 1, |
| |
'PE' => 1, |
| |
'PF' => 1, |
| |
'PG' => 1, |
| |
'PH' => 1, |
| |
'PK' => 1, |
| |
'PL' => 1, |
| |
'PM' => 1, |
| |
'PN' => 1, |
| |
'PR' => 1, |
| |
'PS' => 1, |
| |
'PT' => 1, |
| |
'PW' => 1, |
| |
'PY' => 1, |
| |
'QA' => 1, |
| |
'RE' => 1, |
| |
'RO' => 1, |
| |
'RS' => 1, |
| |
'RU' => 1, |
| |
'RW' => 1, |
| |
'SA' => 1, |
| |
'SB' => 1, |
| |
'SC' => 1, |
| |
'SD' => 1, |
| |
'SE' => 1, |
| |
'SG' => 1, |
| |
'SH' => 1, |
| |
'SI' => 1, |
| |
'SJ' => 1, |
| |
'SK' => 1, |
| |
'SL' => 1, |
| |
'SM' => 1, |
| |
'SN' => 1, |
| |
'SO' => 1, |
| |
'SR' => 1, |
| |
'ST' => 1, |
| |
'SU' => 1, |
| |
'SV' => 1, |
| |
'SY' => 1, |
| |
'SZ' => 1, |
| |
'TA' => 1, |
| |
'TC' => 1, |
| |
'TD' => 1, |
| |
'TF' => 1, |
| |
'TG' => 1, |
| |
'TH' => 1, |
| |
'TJ' => 1, |
| |
'TK' => 1, |
| |
'TL' => 1, |
| |
'TM' => 1, |
| |
'TN' => 1, |
| |
'TO' => 1, |
| |
'TP' => 1, |
| |
'TR' => 1, |
| |
'TT' => 1, |
| |
'TV' => 1, |
| |
'TW' => 1, |
| |
'TZ' => 1, |
| |
'UA' => 1, |
| |
'UG' => 1, |
| |
'UM' => 1, |
| |
'US' => 1, |
| |
'UY' => 1, |
| |
'UZ' => 1, |
| |
'VA' => 1, |
| |
'VC' => 1, |
| |
'VE' => 1, |
| |
'VG' => 1, |
| |
'VI' => 1, |
| |
'VN' => 1, |
| |
'VU' => 1, |
| |
'WF' => 1, |
| |
'WS' => 1, |
| |
'YD' => 1, |
| |
'YE' => 1, |
| |
'YT' => 1, |
| |
'YU' => 1, |
| |
'ZA' => 1, |
| |
'ZM' => 1, |
| |
'ZR' => 1, |
| |
'ZW' => 1, |
| |
); |
| |
|
| |
|
| |
require "$T2H_HOME/documentlanguages.pl" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/documentlanguages.pl" && -r "$T2H_HOME/documentlanguages.pl"); |
| |
|
| |
# leave this within comments, and keep the require statement |
| |
# This way, you can directly run texi2html.pl, if |
| |
# $T2H_HOME/texi2html.init exists. |
| |
|
| |
# @INIT@ |
| |
# -*-perl-*- |
| |
# vim: set filetype=perl: |
| |
###################################################################### |
| |
# File: texi2html.init |
| # |
# |
| %valid_index = ( |
# Default values for command-line arguments and for various customizable |
| 'c', 1, |
# procedures are set in this file. |
| 'f', 1, |
# |
| 'v', 1, |
# A copy of this file is pasted into the beginning of texi2html by |
| 'k', 1, |
# running './configure'. |
| 'p', 1, |
# |
| 't', 1, |
# Copy this file, rename it and make changes to it, if you like. |
| ); |
# Afterwards, load the file with command-line |
| |
# option --init-file <your_init_file> |
| |
# |
| |
# $Id$ |
| |
|
| |
###################################################################### |
| |
# The following variables can also be set by command-line options |
| # |
# |
| # texinfo section names to level |
|
| # |
# |
| %sec2level = ( |
# The default values are set in this file, texi2html.init and the content |
| 'top', 0, |
# of this file is included at the beginning of the texi2html script file. |
| 'chapter', 1, |
# Those values may be overrided by values set in $sysconfdir/texi2html/Config |
| 'unnumbered', 1, |
# and then by values set in $HOME/texi2html/Config. |
| 'majorheading', 1, |
# |
| 'chapheading', 1, |
# command line switches may override these values, and values set in files |
| 'appendix', 1, |
# specified by --init-file are also taken into account. |
| 'section', 2, |
# values set in these files overwrite values set by the command-line |
| 'unnumberedsec', 2, |
# options appearing before --init-file and might still be overwritten by |
| 'heading', 2, |
# command-line arguments following the --init-file option. |
| 'appendixsec', 2, |
|
| 'appendixsection', 2, |
|
| 'subsection', 3, |
|
| 'unnumberedsubsec', 3, |
|
| 'subheading', 3, |
|
| 'appendixsubsec', 3, |
|
| 'subsubsection', 4, |
|
| 'unnumberedsubsubsec', 4, |
|
| 'subsubheading', 4, |
|
| 'appendixsubsubsec', 4, |
|
| ); |
|
| |
|
| |
################################################################## |
| |
# options common with makeinfo |
| |
# -I |
| |
# add a directory to the list of directories where @include files are |
| |
# searched for (besides the directory of the file). additional '-I' |
| |
# args are appended to this list. |
| |
# (APA: Don't implicitely search ., to conform with the docs!) |
| |
# my @INCLUDE_DIRS = ("."); |
| |
|
| |
#use strict; |
| |
|
| |
@INCLUDE_DIRS = (); |
| |
|
| |
# -P |
| |
# prepend a directory to the list of directories where @include files are |
| |
# searched for before the directory of the file. additional '-P' |
| |
# args are prepended to this list. |
| |
@PREPEND_DIRS = (); |
| |
|
| |
# --split section|chapter|node|none |
| |
# if $SPLIT is set to 'section' (resp. 'chapter') one html file per section |
| |
# (resp. chapter) is generated. If $SPLIT is set to 'node' one html file per |
| |
# node or sectioning element is generated. In all these cases separate pages |
| |
# for Top, Table of content (Toc), Overview and About are generated. |
| |
# Otherwise a monolithic html file that contains the whole document is |
| |
# created. |
| |
#$SPLIT = 'section'; |
| |
$SPLIT = ''; |
| |
|
| |
# --separated-footnotes |
| |
# if this is set footnotes are on a separated page. Otherwise they are at |
| |
# the end of each file (if the document is split). |
| |
$FOOTNOTESTYLE = 'end'; |
| |
|
| |
# --fill-column |
| |
$FILLCOLUMN = 72; |
| |
|
| |
# --number | --no-number |
| |
# if this is set the sections are numbered, and section names and numbers |
| |
# are used in references and menus (instead of node names). |
| |
$NUMBER_SECTIONS = 1; |
| |
|
| |
# --headers |
| |
# if this is set then navigation panels are printed at the beginning of each |
| |
# section. |
| |
# If the document is split at nodes then navigation panels are |
| |
# printed at the end if there were more than $WORDS_IN_PAGE words on page. |
| # |
# |
| # accent map, TeX command to ISO name |
# Navigation panels are always printed at the beginning of output files. |
| # |
# |
| %accent_map = ( |
# This is most useful if you do not want to have section navigation |
| '"', 'uml', |
# with --split chapter. There will be chapter navigation panel at the |
| '~', 'tilde', |
# beginning and at the end of chapters anyway. |
| '^', 'circ', |
# this is mostly not used in the default case, important for html. |
| '`', 'grave', |
$HEADERS = 0; |
| '\'', 'acute', |
|
| ); |
|
| |
|
| |
# -o filename |
| |
# If this is set a monolithic document is outputted into $filename. |
| |
$OUT = undef; |
| |
|
| |
# --split-size |
| |
# if undef, the info output is not split |
| |
$SPLIT_SIZE = 300000; |
| |
|
| |
# --internal-links |
| |
$INTERNAL_LINKS = undef; |
| |
|
| |
# --no-validate |
| |
# suppress node cross-reference validation |
| |
$NOVALIDATE = 0; |
| |
|
| |
# --documentlanguage |
| |
# use gdt('my string') if you want to have translations of 'my string' |
| |
# and provide the translations in $LANGUAGES->{$DOCUMENTLANGUAGE} with |
| |
# 'my string' as key. |
| |
# To add a new language use ISO 639 language codes (see e.g. perl module |
| |
# Locale-Codes-1.02 for definitions). Supply translations in the |
| |
# $LANGUAGES hash and put it in a file with $LANG as name in an i18n |
| |
# directory. |
| |
# This is used for the initial language, it is overriden during |
| |
# document processing if there is a @documentlanguage. |
| |
# It is ignored if the language is passed on the command line. |
| |
$DOCUMENTLANGUAGE = 'en'; |
| |
|
| |
# --transliterate-file-names |
| |
# transliterate node names for external refs (and internal if NODE_FILES) |
| |
$TRANSLITERATE_FILE_NAMES = 1; |
| |
|
| |
# --error-limit |
| |
# quit after NUM errors (default 1000). |
| |
$ERROR_LIMIT = 1000; |
| |
|
| |
# --css-include |
| |
# All the specified css files are used. More precisely the @import sections |
| |
# are added to the beginning of the CSS_LINES the remaining is added at |
| |
# the end of the CSS_LINES (after the css rules generated by the program). |
| |
# cf texinfo manual for more info. |
| |
# - means STDIN |
| |
@CSS_FILES = (); |
| |
|
| |
# --css-ref |
| |
# the specified url are used as stylesheet links |
| |
@CSS_REFS = (); |
| |
|
| |
# --paragraph-indent |
| |
$PARAGRAPHINDENT = 3; |
| |
|
| |
# --enable-encoding |
| |
$ENABLE_ENCODING = 0; |
| |
|
| |
# --force |
| |
$FORCE = 0; |
| |
|
| |
# --no-warn |
| |
$NO_WARN = 0; |
| |
|
| |
# --number-footnotes |
| |
$NUMBER_FOOTNOTES = 1; |
| |
|
| |
# not in makeinfo but in texi2dvi |
| |
# --command |
| |
@COMMANDS = (); |
| |
|
| |
################################################################## |
| |
# option specific of texi2html |
| |
# --debug |
| |
# The integer value specifies what kind of debugging output is generated. |
| |
$DEBUG = 0; |
| |
|
| |
# --doctype |
| |
# The value is the 'SystemLiteral' which identifies the canonical DTD |
| |
# for the document. |
| |
# Definition: The SystemLiteral is called the entity's system |
| |
# identifier. It is a URI, which may be used to retrieve the entity. |
| |
# See http://www.xml.com/axml/target.html#NT-ExternalID |
| |
$DOCTYPE = ''; |
| |
|
| |
# --frameset-doctype |
| |
# When frames are used, this SystemLiteral identifies the DTD used for |
| |
# the file containing the frame description. |
| |
$FRAMESET_DOCTYPE = ''; |
| |
|
| |
# --test |
| |
# If this value is true, some variables which should be dynamically generated |
| |
# (the date, the user running texi2html, the version of texi2html) are set to |
| |
# fix and given values. This is usefull in case the resulting manual is |
| |
# compared with a reference. For example this is used in the tests. |
| |
$TEST = 0; |
| |
|
| |
# --dump-texi |
| |
# This value is usefull for debugging purposes. The result of the first pass is |
| |
# put in <document name>.passtexi, the result of the second pass is put in |
| |
# <document name>.passfirst. |
| |
$DUMP_TEXI = 0; |
| |
|
| |
# --expand |
| |
# the @EXPAND array contains the expanded section names. |
| |
@EXPAND = (); |
| |
|
| |
# --invisible |
| |
# This seems obsolete and is not used anywhere. |
| |
# This was a workaround for a known bug of many WWW browsers, including |
| |
# netscape. This was used to create invisible destination in anchors. |
| |
$INVISIBLE_MARK = ''; |
| |
# $INVISIBLE_MARK = ' '; |
| |
|
| |
# --iso |
| |
# if this value is true, ISO8859 characters are used for quotes. |
| |
# --iso does more than what USE_ISO does. |
| |
$USE_ISO = 0; |
| |
|
| |
# --conf-dir |
| |
# append to the files searched for init files. |
| |
@CONF_DIRS = (); |
| |
|
| |
# --top-file |
| |
# This file name is used for the top-level file. |
| |
# The extension is set appropriately, if necessary. |
| |
# If empty, <basename of document>.html is used. |
| |
# Typically, you would set this to "index.html". |
| |
$TOP_FILE = ''; |
| |
|
| |
# --toc-file |
| |
# This file name is used for the table of contents. The |
| |
# extension is set appropriately, if necessary. |
| |
# If empty, <basename of document>_toc.html is used. |
| |
$TOC_FILE = ''; |
| |
|
| |
# --frames |
| |
# if the value is true, HTML 4.0 "frames" are used. |
| |
# A file describing the frame layout is generated, together with a file |
| |
# with the short table of contents. |
| |
$FRAMES = 0; |
| |
|
| |
# --menu | --no-menu |
| |
# if the value is true the Texinfo menus are shown. |
| |
# this is defined in all the formats |
| |
$SHOW_MENU = 1; |
| |
|
| |
# --use-nodes |
| |
# if this is set the nodes are used as sectioning elements. |
| |
# Otherwise the nodes are incorporated in sections. |
| |
$USE_NODES = 1; |
| |
|
| |
# --node-files |
| |
# if this is set one file per node is generated, which can be a target for |
| |
# cross manual references. |
| |
$NODE_FILES = 0; |
| |
|
| |
# --toc-links |
| |
# if this is set, links from headings to toc entries are created. |
| |
$TOC_LINKS = 0; |
| |
|
| |
# --subdir |
| |
# If this is set, then put result files into the specified directory. |
| |
# If not set, then result files are put into the current directory. |
| |
#$SUBDIR = 'html'; |
| |
$SUBDIR = ''; |
| |
|
| |
# --short-extn |
| |
# If this is set, then all HTML files will have extension ".htm" instead of |
| |
# ".html". This is helpful when shipping the document to DOS-based systems. |
| |
$SHORTEXTN = 0; |
| |
|
| |
# --prefix |
| |
# This set the output file prefix, prepended to all .html, .gif and .pl files. |
| |
# By default, this is the basename of the document. |
| |
$PREFIX = ''; |
| |
|
| |
# --short-ref |
| |
# if this is set cross-references are given without section. |
| |
$SHORT_REF = 1; |
| |
|
| |
# --idx-sum |
| |
# if value is set, then for each @printindex <index name> |
| |
# <document name>_<index name>.idx is created which contains lines of the form |
| |
# key ref sorted alphabetically (case matters). |
| |
$IDX_SUMMARY = 0; |
| |
|
| |
# --def-table |
| |
# If this is set a table construction for @def.... instead of definition |
| |
# lists. |
| |
# (New Option: 27.07.2000 Karl Heinz Marbaise) |
| |
$DEF_TABLE = 0; |
| |
|
| |
# --verbose |
| |
# if this is set chatter about what we are doing. |
| |
$VERBOSE = ''; |
| |
|
| |
# --ignore-preamble-text |
| |
# If this is set the text before @node and sectioning commands is ignored. |
| |
$IGNORE_PREAMBLE_TEXT = 0; |
| |
|
| |
# --html-xref-prefix |
| |
# base directory for external manuals. |
| |
#$EXTERNAL_DIR = '../'; |
| |
$EXTERNAL_DIR = undef; |
| |
|
| |
# --l2h |
| |
# if this is set, latex2html is used for generation of math content. |
| |
$L2H = ''; |
| |
|
| |
# --monolithic |
| |
# output only one file including ToC. It only makes sense when not split |
| |
$MONOLITHIC = 1; |
| |
|
| |
###################### |
| |
# The following options are only relevant if $L2H is set |
| # |
# |
| # texinfo "simple things" (@foo) to HTML ones |
# --l2h-l2h |
| |
# name/location of latex2html program |
| |
$L2H_L2H = "latex2html"; |
| |
|
| |
# --l2h-skip |
| |
# If this is set the actual call to latex2html is skipped. The previously |
| |
# generated content is reused, instead. |
| |
# If set to 0, the cache is not used. |
| |
# If undef the cache is used for as many tex fragments as possible |
| |
# and for the remaining the command is run. |
| |
$L2H_SKIP = undef; |
| |
|
| |
# --l2h-tmp |
| |
# If this is set l2h uses the specified directory for temporary files. The path |
| |
# leading to this directory may not contain a dot (i.e., a "."); |
| |
# otherwise, l2h will fail. |
| |
$L2H_TMP = ''; |
| |
|
| |
# --l2h-file |
| |
# If set, l2h uses the file as latex2html init file |
| |
$L2H_FILE = 'l2h.init'; |
| |
|
| |
# --l2h-clean |
| |
# if this is set the intermediate files generated by texi2html in relation with |
| |
# latex2html are cleaned (they all have the prefix <document name>_l2h_). |
| |
$L2H_CLEAN = 1; |
| |
|
| |
############################################################################## |
| # |
# |
| %simple_map = ( |
# The following can only be set in the init file |
| # cf. makeinfo.c |
# |
| "*", "<BR>", # HTML+ |
############################################################################## |
| " ", " ", |
|
| "\t", " ", |
|
| "-", "­", # soft hyphen |
|
| "\n", "\n", |
|
| "|", "", |
|
| 'tab', '<\/TD><TD>', |
|
| # spacing commands |
|
| ":", "", |
|
| "!", "!", |
|
| "?", "?", |
|
| ".", ".", |
|
| "-", "", |
|
| ); |
|
| |
|
| |
@INPUT_FILE_SUFFIXES = ('.txi','.texinfo','.texi','.txinfo',''); |
| |
|
| |
$FIRSTPARAGRAPHINDENT = 'none'; |
| |
|
| |
@T2H_FORMAT_EXPAND = ('plaintext'); |
| |
|
| |
# simple headers formatting, not in a table and using node names. |
| |
$HEADER_IN_TABLE = 0; |
| |
|
| |
# output the generation date in the header. |
| |
$DATE_IN_HEADER = 0; |
| |
|
| |
# use table for indentation of complex formats |
| |
$COMPLEX_FORMAT_IN_TABLE = 0; |
| |
|
| |
# if set, node names are used to construct file names |
| |
# if undef, it is set if split at node, or $NODE_FILES is set. |
| |
$NODE_FILENAMES = undef; |
| |
|
| |
# If true do table of contents even if there is no @content |
| |
$CONTENTS = undef; |
| |
|
| |
# If true do short table of contents even if there is no @shortcontent |
| |
$SHORTCONTENTS = undef; |
| |
|
| |
# set by @setcontentsaftertitlepage/@setshortcontentsaftertitlepage |
| |
$SETCONTENTSAFTERTITLEPAGE = undef; |
| |
$SETSHORTCONTENTSAFTERTITLEPAGE = undef; |
| |
|
| |
# corresponds with @kbdinputstyle |
| |
$KBDINPUTSTYLE = 'distinct'; |
| |
|
| |
# corresponds with @frenchspacing |
| |
$FRENCHSPACING = 'off'; |
| |
|
| |
# correspond with @allowcodebreaks |
| |
$ALLOWCODEBREAKS = 'true'; |
| |
|
| |
# corresponds with @setfilename. Set with caution. |
| |
$SETFILENAME = undef; |
| |
|
| |
# if unset, don't show a title |
| |
$SHOW_TITLE = 1; |
| |
|
| |
# if set style is added in attribute. |
| |
$INLINE_CSS_STYLE = 0; |
| |
|
| |
# if set, no css is used. |
| |
$NO_CSS = 0; |
| |
|
| |
# if set, the image files are completed to be relative from the |
| |
# document directory, to the source manual directory and then to |
| |
# the image |
| |
$COMPLETE_IMAGE_PATHS = 0; |
| |
|
| |
# if true, begin outputting at @setfilename, if this command is present. |
| |
$IGNORE_BEFORE_SETFILENAME = 1; |
| |
|
| |
# if true the link in Overview link to the corresponding Toc entry. |
| |
$OVERVIEW_LINK_TO_TOC = 1; |
| |
|
| |
# if set, use node anchors for sections targets |
| |
$USE_NODE_TARGET = 1; |
| |
|
| |
# new style for crossrefs |
| |
$NEW_CROSSREF_STYLE = 1; |
| |
|
| |
# top heading is always at the beginning of the element. |
| |
$TOP_HEADING_AT_BEGINNING = 0; |
| |
|
| |
# use titlepage for the title instead of a simplest title |
| |
$USE_TITLEPAGE_FOR_TITLE = 0; |
| |
|
| |
# if set, center @image by default |
| |
# otherwise, do not center by default |
| |
# Deprecated and not used anymore |
| |
$CENTER_IMAGE = 1; |
| |
|
| |
# used as identation for block enclosing command @example, etc |
| |
# If not empty, must be enclosed in <td></td> |
| |
$EXAMPLE_INDENT_CELL = ''; |
| |
|
| |
# same as above, only for @small |
| |
$SMALL_EXAMPLE_INDENT_CELL = ''; |
| |
|
| |
# unused |
| |
$SMALL_FONT_SIZE = '-1'; |
| |
|
| |
# horizontal rules |
| |
# not used |
| |
$SMALL_RULE = ''; |
| |
$MIDDLE_RULE = ''; |
| |
# used in html |
| |
$DEFAULT_RULE = ''; |
| |
$BIG_RULE = ''; |
| |
|
| |
# output the program name in the footer |
| |
$PROGRAM_NAME_IN_FOOTER = 0; |
| |
|
| |
# if non-empty, and no @..heading appeared in Top node, then |
| |
# use this as header for top node/section, otherwise use value of |
| |
# @settitle or @shorttitle (in that order) |
| |
$TOP_HEADING = ''; |
| |
|
| |
# if set, use this chapter for 'Index' button, else |
| |
# use first chapter with @printindex |
| |
$INDEX_CHAPTER = ''; |
| |
|
| |
$SIMPLE_MENU = 1; |
| |
|
| |
$OPEN_QUOTE_SYMBOL = "\`"; |
| |
$CLOSE_QUOTE_SYMBOL = "'"; |
| |
|
| |
$NO_NUMBER_FOOTNOTE_SYMBOL = '*'; |
| |
|
| |
# if true put a $MENU_SYMBOL before unnumbered in menus |
| |
$UNNUMBERED_SYMBOL_IN_MENU = 0; |
| |
|
| |
# extension for nodes files when NODE_FILES is true |
| |
$NODE_FILE_EXTENSION = 'txt'; |
| |
|
| |
# extension |
| |
$EXTENSION = 'txt'; |
| |
|
| |
# file name used for Top node when NODE_FILES is true |
| |
#$TOP_NODE_FILE = 'index'; |
| |
$TOP_NODE_FILE = undef; |
| |
|
| |
# file name used for Top node in references |
| |
$TOP_NODE_FILE_TARGET = 'index'; |
| |
|
| |
# file used as document basename, when input file is - |
| |
$STDIN_DOCU_NAME = 'stdin'; |
| |
|
| |
# file used as document output basename, when output file is - |
| |
$STDOUT_DOCU_NAME = 'stdout'; |
| |
|
| |
# node name used for Top node when automatic node directions are used |
| |
$TOP_NODE_UP = '(dir)'; |
| |
|
| |
# this controls the pre style for menus |
| |
$MENU_PRE_STYLE = 'font-family: serif'; |
| |
|
| |
# on bug-texinfo is has been said the the style is not code_style |
| |
# for menus (except for the node name). |
| |
# this controls the menu preformatted format |
| |
# FIXME this is not dynamic, so change in MENU_PRE_STYLE is not taken |
| |
# into account. |
| |
# This is used if the menu appears within a preformatted format (which |
| |
# is certainly an invalid construct), and SIMPLE_MENU is not set. |
| |
$MENU_PRE_COMPLEX_FORMAT = { |
| |
'class' => 'menu-preformatted', |
| |
# 'style' => 'code' |
| |
}; |
| |
|
| |
# This controls the ul style for toc |
| |
$NO_BULLET_LIST_STYLE = ''; |
| |
$NO_BULLET_LIST_ATTRIBUTE = ''; |
| |
|
| |
# These lines are inserted before and after the shortcontents |
| |
$BEFORE_OVERVIEW = ""; |
| |
$AFTER_OVERVIEW = ""; |
| |
|
| |
# These lines are inserted before and after the contents |
| |
$BEFORE_TOC_LINES = ""; |
| |
$AFTER_TOC_LINES = ""; |
| |
|
| |
# if set (e.g., to index.html) replace hrefs to this file |
| |
# (i.e., to index.html) by ./ |
| |
# Obsolete. Worked around a bug that is fixed now. |
| |
$HREF_DIR_INSTEAD_FILE = ''; |
| |
|
| |
# text inserted after <body ...> |
| |
$AFTER_BODY_OPEN = ''; |
| |
|
| |
# text inserted before </body>, this will be automatically inside <p></p> |
| |
$PRE_BODY_CLOSE = ''; |
| |
|
| |
# this is added inside <head></head> after <title> and some <meta name> |
| |
# stuff, it can be used for eg. <style>, <script>, <meta> etc. tags. |
| |
$EXTRA_HEAD = ''; |
| |
|
| |
# Specifies the minimum page length required before a navigation panel |
| |
# is placed at the bottom of a page |
| |
# FIXME this is not true: |
| |
# THIS_WORDS_IN_PAGE holds number of words of current page |
| |
$WORDS_IN_PAGE = 300; |
| |
|
| |
# if this is set a vertical navigation panel is used. |
| |
$VERTICAL_HEAD_NAVIGATION = 0; |
| |
|
| |
# html version for latex2html |
| |
$L2H_HTML_VERSION = "4.0"; |
| |
|
| |
# use icons. |
| |
$ICONS = 0; |
| |
|
| |
# use old framework for translations |
| |
$I18N_PERL_HASH = 0; |
| |
|
| |
|
| |
# this resets some defaults, those that are also set in formats and |
| |
# not set in every formats. |
| # |
# |
| # texinfo "things" (@foo{}) to HTML ones |
# this is called below after %default_style_map_texi is defined |
| |
sub t2h_default_set_variables_default() |
| |
{ |
| |
$CAPTION_STYLE = 'strong'; |
| |
|
| |
# if this variable is true, @setfilename is used if found to determine the |
| |
# out file name |
| |
$USE_SETFILENAME = 1; |
| |
|
| |
# if true, use the filename and extension from setfilename. For Info. |
| |
$USE_SETFILENAME_EXTENSION = 0; |
| |
|
| |
# FIXME is this right? |
| |
# default used in init_out for the setting of the ENCODING_NAME variable |
| |
$DEFAULT_ENCODING = 'utf8'; |
| |
|
| |
# if set and menu entry equals menu description, then do not print |
| |
# menu description. |
| |
# Likewise, if node name equals entry name, do not print entry name. |
| |
$AVOID_MENU_REDUNDANCY = 0; |
| |
|
| |
# if true, use the original command if the result is an entity |
| |
$ENABLE_ENCODING_USE_ENTITY = 0; |
| |
|
| |
# if set, output the contents where the command is located |
| |
# This is ignored if set*contentsaftertitlepage is set |
| |
$INLINE_CONTENTS = 1; |
| |
|
| |
# symbol put at the beginning of nodes entry in menu (and optionnaly of |
| |
# unnumbered in menus, see UNNUMBERED_SYMBOL_IN_MENU variable) |
| |
$MENU_SYMBOL = '*'; |
| |
|
| |
# symbol put at the end of nodes entry in menu |
| |
$MENU_ENTRY_COLON = ':'; |
| |
|
| |
# symbol put at the end of index entries |
| |
$INDEX_ENTRY_COLON = ':'; |
| |
|
| |
# if set, then use node names in menu entries, instead of section names |
| |
$NODE_NAME_IN_MENU = 1; |
| |
|
| |
# if set use the node names in index entry, instead of section names |
| |
# if not set, it is set to the same value than NODE_NAME_IN_MENU |
| |
$NODE_NAME_IN_INDEX = undef; |
| |
|
| |
# if set always separate description and menu link, even in |
| |
# preformatted environment |
| |
$SEPARATE_DESCRIPTION = 0; |
| |
|
| |
# try up sections to complete the node directions |
| |
$USE_UP_FOR_ADJACENT_NODES = 0; |
| |
|
| |
# use accesskey in hrefs |
| |
$USE_ACCESSKEY = 1; |
| |
|
| |
# use rel= and rev= in hrefs. Currently only rel is used |
| |
$USE_REL_REV = 1; |
| |
|
| |
# generate <link> elements in head |
| |
$USE_LINKS = 1; |
| |
|
| |
# if this variable is true, numeric entities are used when there is no |
| |
# corresponding textual entity. |
| |
$USE_NUMERIC_ENTITY = 0; |
| |
|
| |
# if set and $SPLIT is set, then split index pages at the next letter |
| |
# after they have more than that many entries |
| |
$SPLIT_INDEX = 0; |
| |
|
| |
# file name used for Top node when NODE_FILES is true |
| |
$TOP_NODE_FILE = undef; |
| |
|
| |
# extensions used for images |
| |
@IMAGE_EXTENSIONS = ('png','jpg', 'txt'); |
| |
|
| |
$USE_NODES = 1; |
| |
|
| |
$USE_SECTIONS = 1; |
| |
|
| |
# also set by command line options |
| |
$FOOTNOTESTYLE = 'end'; |
| |
|
| |
$DOCTYPE = ''; |
| |
|
| |
$USE_ISO = 0; |
| |
|
| |
$NUMBER_SECTIONS = 1; |
| |
|
| |
$TOP_FILE = ''; |
| |
|
| |
$ENABLE_ENCODING = 0; |
| |
|
| # |
# |
| %things_map = ( |
# Formatting functions |
| 'TeX', 'TeX', |
# |
| 'br', '<P>', # paragraph break |
# They will be reset here between formats switch |
| 'bullet', '*', |
# if they are defined in this function. |
| 'copyright', '(C)', |
# |
| 'dots', '...', |
|
| 'equiv', '==', |
|
| 'error', 'error-->', |
|
| 'expansion', '==>', |
|
| 'minus', '-', |
|
| 'point', '-!-', |
|
| 'print', '-|', |
|
| 'result', '=>', |
|
| 'today', $TODAY, |
|
| ); |
|
| |
|
| |
# these are more or less the documented vanilla versions, so they |
| |
# are reset |
| |
$unknown = \&t2h_default_unknown; |
| |
$unknown_style = \&t2h_default_unknown_style; |
| |
$external_ref = \&t2h_default_external_ref; |
| |
$internal_ref = \&t2h_default_internal_ref; |
| |
$tab_item_texi = \&t2h_default_tab_item_texi; |
| |
$complex_format = \&t2h_default_complex_format; |
| |
$toc_body = \&T2H_DEFAULT_toc_body; |
| |
$misc_command_line = \&t2h_default_misc_command_line; |
| |
$misc_command_line_texi = \&t2h_default_misc_command_line; |
| |
$print_title = \&T2H_DEFAULT_print_title; |
| |
# reset in info and xml |
| |
$element_heading = \&t2h_default_element_heading; |
| |
# reset in html |
| |
$inline_contents = \&T2H_DEFAULT_inline_contents; |
| |
# reset in docbook and info. |
| |
$style = \&T2H_GPL_style; |
| |
$format = \&T2H_GPL_format; |
| |
# reset in info |
| |
$simple_command = \&t2h_default_simple_command; |
| |
# reset in info |
| |
$thing_command = \&t2h_default_thing_command; |
| |
# reset in html and xml |
| |
$caption_shortcaption = \&t2h_default_caption_shortcaption; |
| |
$caption_shortcaption_command = \&t2h_default_caption_shortcaption_command; |
| |
# reset in docbook and xml. Not really vanilla, but documented. |
| |
$printindex = \&t2h_GPL_default_printindex; |
| |
# reset by xml and html |
| |
$misc_element_label = \&t2h_default_misc_element_label; |
| |
# set in html |
| |
$init_out = \&t2h_default_init_out; |
| |
# set in info and xml |
| |
$paragraph_style_command = \&t2h_default_paragraph_style_command; |
| |
# set in info |
| |
$colon_command = \&t2h_default_colon_command; |
| |
# set in docbook |
| |
$quotation_prepend_text = \&t2h_default_quotation_prepend_text; |
| |
# set in info |
| |
$copying_comment = \&t2h_default_copying_comment; |
| |
|
| |
# set in html and info |
| |
$print_section = \&T2H_DEFAULT_print_section; |
| |
|
| |
# set in docbook and xml |
| |
%colon_command_punctuation_characters = ( |
| |
'.' => '.', |
| |
':' => ':', |
| |
'?' => '?', |
| |
'!' => '!' |
| |
); |
| |
|
| |
|
| |
|
| |
# in info |
| |
$footnote_texi = undef; |
| |
$begin_paragraph_texi = undef; |
| |
$begin_style_texi = undef; |
| |
$begin_special_region = undef; |
| |
$end_special_region = undef; |
| |
$empty_preformatted = undef; |
| |
|
| |
%line_command_map = ( |
| |
'title' => '', |
| |
'subtitle' => '', |
| |
'author' => '', |
| |
); |
| |
|
| |
%format_in_paragraph = ( |
| |
); |
| |
# map mapping css specification to style |
| |
|
| |
%css_map = |
| |
( |
| |
); |
| |
|
| |
@text_substitutions_normal = (); |
| |
@text_substitutions_texi = (); |
| |
@text_substitutions_simple_format = (); |
| |
@text_substitutions_pre = (); |
| |
|
| |
%region_formats_kept = (); |
| |
|
| |
%style_map_texi = (); |
| |
t2h_default_copy_style_map (\%default_style_map_texi, \%style_map_texi); |
| |
|
| |
# reset in info |
| |
%simple_map_texi = %default_simple_map; |
| |
|
| |
# modified in docbook |
| |
%special_accents = ( |
| |
'ringaccent' => 'aA', |
| |
"'" => 'aeiouyAEIOUY', |
| |
',' => 'cC', |
| |
'^' => 'aeiouAEIOU', |
| |
'`' => 'aeiouAEIOU', |
| |
'~' => 'nNaoAO', |
| |
'"' => 'aeiouyAEIOU', |
| |
# according to http://www2.lib.virginia.edu/small/vhp/download/ISO.txt |
| |
# however this doesn't seems to work in firefox |
| |
# 'ogonek' => 'aeiuAEIU', |
| |
); |
| |
|
| |
# modified by info, xml, docbook |
| |
# %no_paragraph_commands should not be reset since it has been |
| |
# filled with defaults for many other commands. |
| |
|
| |
# FIXME this prevents the user from setting those entries. |
| |
$no_paragraph_commands{'cindex'} = 1; |
| |
$no_paragraph_commands{'float'} = 1; |
| |
delete $no_paragraph_commands{'anchor'}; |
| |
|
| |
# modified in docbook and xml |
| |
%stop_paragraph_command = ( |
| |
'titlefont' => 1, |
| |
'insertcopying' => 1, |
| |
'sp' => 1, |
| |
'verbatiminclude' => 1, |
| |
'page' => 1, |
| |
# FIXME they also stop preformatted, so cannot be here. |
| |
# 'printindex' => 1, |
| |
# 'listoffloats' => 1 |
| |
); |
| |
|
| |
} |
| |
|
| |
sub t2h_default_raw_text_load() |
| |
{ |
| |
$SPLIT = ''; |
| |
# extension for nodes files when NODE_FILES is true |
| |
$NODE_FILE_EXTENSION = 'txt'; |
| |
|
| |
# extension |
| |
$EXTENSION = 'txt'; |
| |
@T2H_FORMAT_EXPAND = ('plaintext'); |
| |
$USE_TITLEPAGE_FOR_TITLE = 0; |
| |
$HEADERS = 0; |
| |
$SIMPLE_MENU = 1; |
| |
$INLINE_INSERTCOPYING = 0; |
| |
$NODE_FILENAMES = undef; |
| |
|
| |
%simple_map = %default_simple_map; |
| |
%simple_map_pre = %simple_map; |
| |
|
| |
%things_map = %default_things_map; |
| |
%pre_map = %things_map; |
| |
|
| |
%style_map = (); |
| |
%style_map_pre = (); |
| |
t2h_default_copy_style_map (\%default_style_map, \%style_map); |
| |
t2h_default_copy_style_map (\%default_style_map_pre, \%style_map_pre); |
| |
|
| |
# could also be t2h_default_set_iso_symbols() |
| |
t2h_remove_text_substitutions("'", 1, 0, 0, 1); |
| |
t2h_remove_text_substitutions('`', 1, 0, 0, 1); |
| |
$OPEN_QUOTE_SYMBOL = '`'; |
| |
$CLOSE_QUOTE_SYMBOL = "'"; |
| |
|
| |
$BEFORE_OVERVIEW = ""; |
| |
$AFTER_OVERVIEW = ""; |
| |
|
| |
$BEFORE_TOC_LINES = ""; |
| |
$AFTER_TOC_LINES = ""; |
| |
|
| |
|
| |
foreach my $complex_format ('example', 'smallexample', 'display', |
| |
'smalldisplay', 'lisp', 'smalllisp', 'format', 'smallformat', |
| |
'menu', 'detailmenu', 'direntry', 'menu_comment') |
| |
{ |
| |
$complex_format_map{$complex_format}->{'begin'} = ''; |
| |
$complex_format_map{$complex_format}->{'end'} = ''; |
| |
} |
| |
|
| |
%format_map = ( |
| |
# 'quotation' => 'blockquote', |
| |
# lists |
| |
# 'itemize' => 'ul', |
| |
'enumerate' => '', |
| |
# 'multitable' => 'table', |
| |
'table' => '', |
| |
'vtable' => '', |
| |
'ftable' => '', |
| |
'group' => '', |
| |
'raggedright' => '', |
| |
# 'detailmenu' => '', |
| |
); |
| |
|
| |
# |
| |
# Controls the layout |
| |
# |
| |
|
| |
$print_page_head = \&T2H_DEFAULT_print_page_head; |
| |
$contents = \&T2H_DEFAULT_contents; |
| |
$shortcontents = \&T2H_DEFAULT_shortcontents; |
| |
$one_section = \&T2H_DEFAULT_one_section; |
| |
$print_Top = \&T2H_DEFAULT_print_Top; |
| |
$print_Top_footer = \&T2H_DEFAULT_print_Top_footer; |
| |
$print_misc_header = \&T2H_DEFAULT_print_misc_header; |
| |
$print_misc_footer = \&T2H_DEFAULT_print_misc_footer; |
| |
$print_section_footer = \&T2H_DEFAULT_print_section_footer; |
| |
$print_chapter_header = \&T2H_DEFAULT_print_chapter_header; |
| |
$print_section_header = \&T2H_DEFAULT_print_section_header; |
| |
$print_chapter_footer = \&T2H_DEFAULT_print_chapter_footer; |
| |
$print_page_foot = \&T2H_DEFAULT_print_page_foot; |
| |
$print_head_navigation = \&T2H_DEFAULT_print_head_navigation; |
| |
$print_foot_navigation = \&T2H_DEFAULT_print_foot_navigation; |
| |
$end_section = \&T2H_DEFAULT_end_section; |
| |
# changed in info |
| |
$print_Footnotes = \&T2H_DEFAULT_print_Footnotes; |
| |
# used if split |
| |
$about_body = \&T2H_DEFAULT_about_body; |
| |
$print_navigation = \&T2H_DEFAULT_print_navigation; |
| |
|
| |
# |
| |
# Controls the formatting |
| |
# |
| |
|
| |
$empty_line = \&t2h_default_empty_line; |
| |
$anchor = \&t2h_default_anchor; |
| |
$anchor_label = \&t2h_default_anchor_label; |
| |
$image = \&t2h_default_image; |
| |
$heading = \&t2h_default_heading; |
| |
$heading_text = \&t2h_default_heading_text; |
| |
$heading_text_preformatted = \&t2h_default_heading_text_preformatted; |
| |
$element_label = \&t2h_default_element_label; |
| |
$index_entry_label = \&t2h_default_index_entry_label; |
| |
#$menu_command = \&t2h_default_menu_command; |
| |
$menu_link = \&t2h_default_menu_link; |
| |
#$menu_description = \&t2h_default_menu_description; |
| |
$paragraph = \&t2h_default_paragraph; |
| |
$preformatted = \&t2h_default_preformatted; |
| |
$protect_text = \&t2h_default_protect_text; |
| |
$normal_text = \&t2h_default_normal_text; |
| |
$acronym_like = \&t2h_default_acronym_like; |
| |
$sp = \&t2h_default_sp; |
| |
$quotation = \&t2h_default_quotation; |
| |
$table_list = \&t2h_default_table_list; |
| |
$list_item = \&t2h_default_list_item; |
| |
$table_line = \&t2h_default_table_line; |
| |
$table_item = \&t2h_default_table_item; |
| |
$cell = \&t2h_default_cell; |
| |
$row = \&t2h_default_row; |
| |
$def_item = \&t2h_default_def_item; |
| |
$def = \&t2h_default_def; |
| |
$def_line = \&t2h_default_def_line; |
| |
$cartouche = \&t2h_default_cartouche; |
| |
$raw = \&t2h_default_raw; |
| |
$format_list_item_texi = \&t2h_default_format_list_item_texi; |
| |
$print_index = \&t2h_default_print_index; |
| |
$index_summary = \&t2h_default_index_summary; |
| |
$index_entry = \&t2h_default_index_entry; |
| |
$index_letter = \&t2h_default_index_letter; |
| |
$foot_line_and_ref = \&t2h_default_foot_line_and_ref; |
| |
$foot_section = \&t2h_default_foot_section; |
| |
$tab_item_texi = \&t2h_default_tab_item_texi; |
| |
$listoffloats = \&t2h_default_listoffloats; |
| |
$listoffloats_entry = \&t2h_default_listoffloats_entry; |
| |
$float = \&t2h_default_float; |
| |
|
| |
t2h_default_set_variables_default(); |
| |
} |
| |
|
| |
my %things_map_xml; |
| |
my %pre_map_xml; |
| |
|
| |
sub t2h_default_set_variables_xml() |
| |
{ |
| |
t2h_default_set_variables_default(); |
| |
$ENABLE_ENCODING_USE_ENTITY = 1; |
| |
$EXTENSION = 'xml'; |
| |
t2h_default_set_iso_symbols(1); |
| |
|
| |
$empty_line = \&t2h_default_empty_line; |
| |
$comment = \&xml_default_comment; |
| |
$line_command = \&xml_default_line_command; |
| |
|
| |
%things_map = %things_map_xml; |
| |
%pre_map = %pre_map_xml; |
| |
%simple_format_texi_map = %pre_map; |
| |
|
| |
%simple_format_style_map_texi = (); |
| |
t2h_default_copy_style_map (\%default_style_map_texi, \%simple_format_style_map_texi); |
| |
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents)) |
| |
{ |
| |
# $simple_format_style_map_texi{$accent_command}->{'args'} = ['normal']; |
| |
$simple_format_style_map_texi{$accent_command}->{'function'} = \&xml_default_accent; |
| |
} |
| |
} |
| |
|
| |
sub t2h_default_set_variables_texi2html() |
| |
{ |
| |
$USE_SETFILENAME = 0; |
| |
$USE_SETFILENAME_EXTENSION = 0; |
| |
$FOOTNOTESTYLE = 'separate'; |
| |
$INLINE_CONTENTS = 0; |
| |
$FORCE = 1; |
| |
$AVOID_MENU_REDUNDANCY = 1; |
| |
$TOP_HEADING_AT_BEGINNING = 1; |
| |
$TOP_FILE = ''; |
| |
$USE_ACCESSKEY = 0; |
| |
$NODE_NAME_IN_MENU = 0; |
| |
$OVERVIEW_LINK_TO_TOC = 0; |
| |
$USE_UP_FOR_ADJACENT_NODES = 1; |
| |
$USE_ACCESSKEY = 0; |
| |
$USE_REL_REV = 0; |
| |
$USE_LINKS = 0; |
| |
$USE_NODES = undef; |
| |
$USE_SECTIONS = 1; |
| |
$NODE_FILENAMES = 0; |
| |
$USE_NUMERIC_ENTITY = 1; |
| |
$SPLIT = ''; |
| |
$SPLIT_INDEX = 100; |
| |
$PROGRAM_NAME_IN_FOOTER = 1; |
| |
$HEADER_IN_TABLE = 1; |
| |
$SHORT_REF = 0; |
| |
$USE_TITLEPAGE_FOR_TITLE = 1; |
| |
$MENU_ENTRY_COLON = ''; |
| |
$INDEX_ENTRY_COLON = ''; |
| |
|
| |
$ENABLE_ENCODING_USE_ENTITY = 1; |
| |
} |
| |
|
| |
# specify in this array which "buttons" should appear in which order |
| |
# in the navigation panel for sections; use ' ' for empty buttons (space) |
| |
@SECTION_BUTTONS = |
| |
( |
| |
'FastBack', 'Back', 'Up', 'Forward', 'FastForward', |
| |
' ', ' ', ' ', ' ', |
| |
'Top', 'Contents', 'Index', 'About', |
| |
); |
| |
|
| |
# buttons for misc stuff |
| |
@MISC_BUTTONS = ('Top', 'Contents', 'Index', 'About'); |
| |
|
| |
@TOP_BUTTONS = ( 'Back', 'Forward', ' ','Contents', 'Index', 'About'); |
| |
#@TOP_BUTTONS = ('Top', 'Contents', 'Index', 'About'); |
| |
|
| |
|
| |
# buttons for chapter file footers |
| |
# (and headers but only if HEADERS is false) |
| |
@CHAPTER_BUTTONS = |
| |
( |
| |
'FastBack', 'FastForward', ' ', |
| |
' ', ' ', ' ', ' ', |
| |
'Top', 'Contents', 'Index', 'About', |
| |
); |
| |
|
| |
# buttons for section file footers |
| |
@SECTION_FOOTER_BUTTONS = |
| |
( |
| |
'FastBack', 'Back', 'Up', 'Forward', 'FastForward', |
| |
); |
| |
|
| |
@NODE_FOOTER_BUTTONS = @SECTION_BUTTONS; |
| |
|
| |
@LINKS_BUTTONS = |
| |
( |
| |
'Top', 'Index', 'Contents', 'About', 'Up', 'NextFile', 'PrevFile' |
| |
); |
| |
|
| |
|
| |
# insert here name of icon images for buttons |
| |
# Icons are used, if $ICONS and resp. value are set |
| |
%ACTIVE_ICONS = |
| |
( |
| |
'Top', '', |
| |
'Contents', '', |
| |
'Overview', '', |
| |
'Index', '', |
| |
'This', '', |
| |
'Back', '', |
| |
'FastBack', '', |
| |
'Prev', '', |
| |
'Up', '', |
| |
'Next', '', |
| |
'NodeUp', '', |
| |
'NodeNext', '', |
| |
'NodePrev', '', |
| |
'Following', '', |
| |
'Forward', '', |
| |
'FastForward', '', |
| |
'About' , '', |
| |
'First', '', |
| |
'Last', '', |
| |
'NextFile', '', |
| |
'PrevFile', '', |
| |
' ', '', |
| |
); |
| |
|
| |
# insert here name of icon images for these, if button is inactive |
| |
%PASSIVE_ICONS = |
| |
( |
| |
'Top', '', |
| |
'Contents', '', |
| |
'Overview', '', |
| |
'Index', '', |
| |
'This', '', |
| |
'Back', '', |
| |
'FastBack', '', |
| |
'Prev', '', |
| |
'Up', '', |
| |
'Next', '', |
| |
'NodeUp', '', |
| |
'NodeNext', '', |
| |
'NodePrev', '', |
| |
'Following', '', |
| |
'Forward', '', |
| |
'FastForward', '', |
| |
'About', '', |
| |
'First', '', |
| |
'Last', '', |
| |
'NextFile', '', |
| |
'PrevFile', '', |
| |
); |
| |
|
| |
%misc_pages_targets = ( |
| |
'Overview' => 'SEC_Overview', |
| |
'Contents' => 'SEC_Contents', |
| |
'Footnotes' => 'SEC_Foot', |
| |
'About' => 'SEC_About' |
| |
); |
| |
|
| |
# determine the null devices |
| |
my $default_null_device = File::Spec->devnull(); |
| |
%null_device_file = ( |
| |
$default_null_device => 1 |
| |
); |
| |
# special case, djgpp recognizes both null devices |
| |
if ($Config{osname} eq 'dos' and $Config{osvers} eq 'djgpp') |
| |
{ |
| |
$null_device_file{'/dev/null'} = 1; |
| |
$null_device_file{'NUL'} = 1; |
| |
} |
| |
|
| |
$finish_out = \&t2h_default_finish_out; |
| |
$translate_names = \&t2h_default_translate_names; |
| |
|
| |
sub t2h_default_translate_names() |
| |
{ |
| |
# Names of text as alternative for icons |
| |
# FIXME maybe get those in simple_format? |
| |
%NAVIGATION_TEXT = |
| |
( |
| |
'Top', gdt('Top'), |
| |
'Contents', gdt('Contents'), |
| |
'Overview', gdt('Overview'), |
| |
'Index', gdt('Index'), |
| |
' ', ' ', |
| |
'This', gdt('Current'), |
| |
'Back', ' < ', |
| |
'FastBack', ' << ', |
| |
'Prev', gdt('Previous'), |
| |
'Up', gdt('Up'), |
| |
'Next', gdt('Next'), |
| |
'NodeUp', gdt('Up'), |
| |
'NodeNext', gdt('Next'), |
| |
'NodePrev', gdt('Previous'), |
| |
'Following', gdt('Following'), |
| |
'Forward', ' > ', |
| |
'FastForward', ' >> ', |
| |
'About', ' ? ', |
| |
'First', ' |< ', |
| |
'Last', ' >| ', |
| |
'NextFile', gdt('Next file'), |
| |
'PrevFile', gdt('Previous file'), |
| |
); |
| |
%BUTTONS_TEXT = %NAVIGATION_TEXT; |
| |
|
| |
%BUTTONS_GOTO = |
| |
( |
| |
'Top', gdt('Cover (top) of document'), |
| |
'Contents', gdt('Table of contents'), |
| |
'Overview', gdt('Short table of contents'), |
| |
'Index', gdt('Index'), |
| |
'This', gdt('Current section'), |
| |
'Back', gdt('Previous section in reading order'), |
| |
'FastBack', gdt('Beginning of this chapter or previous chapter'), |
| |
'Prev', gdt('Previous section on same level'), |
| |
'Up', gdt('Up section'), |
| |
'Next', gdt('Next section on same level'), |
| |
'NodeUp', gdt('Up node'), |
| |
'NodeNext', gdt('Next node'), |
| |
'NodePrev', gdt('Previous node'), |
| |
'Following', gdt('Node following in node reading order'), |
| |
'Forward', gdt('Next section in reading order'), |
| |
'FastForward', gdt('Next chapter'), |
| |
'About' , gdt('About (help)'), |
| |
'First', gdt('First section in reading order'), |
| |
'Last', gdt('Last section in reading order'), |
| |
'NextFile', gdt('Forward section in next file'), |
| |
'PrevFile', gdt('Back section in previous file'), |
| |
); |
| |
|
| |
%BUTTONS_NAME = |
| |
( |
| |
'Top', gdt('Top'), |
| |
'Contents', gdt('Contents'), |
| |
'Overview', gdt('Overview'), |
| |
'Index', gdt('Index'), |
| |
' ', ' ', |
| |
'This', gdt('This'), |
| |
'Back', gdt('Back'), |
| |
'FastBack', gdt('FastBack'), |
| |
'Prev', gdt('Prev'), |
| |
'Up', gdt('Up'), |
| |
'Next', gdt('Next'), |
| |
'NodeUp', gdt('NodeUp'), |
| |
'NodeNext', gdt('NodeNext'), |
| |
'NodePrev', gdt('NodePrev'), |
| |
'Following', gdt('Following'), |
| |
'Forward', gdt('Forward'), |
| |
'FastForward', gdt('FastForward'), |
| |
'About', gdt('About'), |
| |
'First', gdt('First'), |
| |
'Last', gdt('Last'), |
| |
'NextFile', gdt('NextFile'), |
| |
'PrevFile', gdt('PrevFile'), |
| |
); |
| |
|
| |
} |
| |
|
| |
sub t2h_default_set_iso_symbols($) |
| |
{ |
| |
my $value = shift; |
| |
$USE_ISO = $value; |
| |
if ($value) |
| |
{ |
| |
foreach my $association ([\%things_map, \%things_map_xml], |
| |
[\%pre_map, \%pre_map_xml], |
| |
[\%simple_format_simple_map_texi, \%pre_map_xml]) |
| |
{ |
| |
foreach my $thing (keys(%{$association->[0]})) |
| |
{ |
| |
if (defined($association->[0]->{$thing}) and $association->[0]->{$thing} !~ /^\&\w+\;$/ and defined($association->[1]->{$thing}) and $association->[1]->{$thing} =~ /^\&\w+\;$/) |
| |
{ |
| |
$association->[0]->{$thing} = $association->[1]->{$thing}; |
| |
} |
| |
} |
| |
} |
| |
t2h_add_text_substitutions(["'", '’'], 1, 0, 0, 1); |
| |
t2h_add_text_substitutions(['`', '‘'], 1, 0, 0, 1); |
| |
$OPEN_QUOTE_SYMBOL = '‘'; |
| |
$CLOSE_QUOTE_SYMBOL = '’'; |
| |
} |
| |
else |
| |
{ |
| |
foreach my $association ([\%things_map, \%default_things_map], |
| |
[\%pre_map, \%default_things_map], |
| |
[\%simple_format_simple_map_texi, \%default_things_map]) |
| |
{ |
| |
foreach my $thing (keys(%{$association->[0]})) |
| |
{ |
| |
if (defined($association->[0]->{$thing}) and $association->[0]->{$thing} =~ /^\&\w+\;$/ and defined($association->[1]->{$thing}) and $association->[1]->{$thing} !~ /^\&\w+\;$/) |
| |
{ |
| |
$association->[0]->{$thing} = &$protect_text($association->[1]->{$thing}); |
| |
} |
| |
} |
| |
} |
| |
t2h_remove_text_substitutions("'", 1, 0, 0, 1); |
| |
t2h_remove_text_substitutions('`', 1, 0, 0, 1); |
| |
$OPEN_QUOTE_SYMBOL = '`'; |
| |
$CLOSE_QUOTE_SYMBOL = "'"; |
| |
} |
| |
} |
| |
|
| |
# is used in main program for dumping texi too. |
| |
sub t2h_default_set_out_encoding() |
| |
{ |
| |
# these variables are used for the corresponding |
| |
# $Texi2HTML::THISDOC{'*_ENCODING'} to keep code shorter |
| |
my ($out_encoding, $encoding_name, $document_encoding); |
| |
|
| |
$document_encoding = get_conf('DOCUMENT_ENCODING'); |
| |
|
| |
if (defined($OUT_ENCODING)) |
| |
{ |
| |
$out_encoding = $OUT_ENCODING; |
| |
} |
| |
|
| |
if (defined($ENCODING_NAME)) |
| |
{ |
| |
$encoding_name = $ENCODING_NAME; |
| |
} |
| |
|
| |
if (!defined($out_encoding) and (defined($encoding_name))) |
| |
{ |
| |
my $possible_out_encoding = main::encoding_alias ($encoding_name, undef, 'determining encoding from default encoding'); |
| |
$out_encoding = $possible_out_encoding if (defined($possible_out_encoding)); |
| |
} |
| |
if (!defined($out_encoding) and (defined(get_conf('IN_ENCODING')))) |
| |
{ |
| |
$out_encoding = get_conf('IN_ENCODING'); |
| |
} |
| |
if (!defined($out_encoding) and (defined($document_encoding))) |
| |
{ |
| |
my $possible_out_encoding = main::encoding_alias ($document_encoding, undef, 'determining encoding from documentencoding'); |
| |
$out_encoding = $possible_out_encoding if (defined($possible_out_encoding)); |
| |
} |
| |
|
| |
if (!defined($encoding_name)) |
| |
{ |
| |
if (defined($out_encoding) and defined($perl_charset_to_html{$out_encoding})) |
| |
{ |
| |
$encoding_name = $perl_charset_to_html{$out_encoding}; |
| |
} |
| |
elsif (defined(get_conf('IN_ENCODING')) and defined($perl_charset_to_html{get_conf('IN_ENCODING')})) |
| |
{ |
| |
$encoding_name = $perl_charset_to_html{get_conf('IN_ENCODING')}; |
| |
} |
| |
elsif (defined($document_encoding) and defined($perl_charset_to_html{$document_encoding})) |
| |
{ |
| |
$encoding_name = $perl_charset_to_html{$document_encoding}; |
| |
} |
| |
elsif (defined($out_encoding)) |
| |
{ |
| |
$encoding_name = $out_encoding; |
| |
} |
| |
elsif (defined(get_conf('IN_ENCODING'))) |
| |
{ |
| |
$encoding_name = get_conf('IN_ENCODING'); |
| |
} |
| |
elsif (defined($document_encoding)) |
| |
{ |
| |
$encoding_name = $document_encoding; |
| |
} |
| |
elsif (defined($perl_charset_to_html{$DEFAULT_ENCODING})) |
| |
{ |
| |
$encoding_name = $perl_charset_to_html{$DEFAULT_ENCODING}; |
| |
} |
| |
else |
| |
{ |
| |
$encoding_name = 'us-ascii'; |
| |
} |
| |
} |
| |
|
| |
$Texi2HTML::THISDOC{'OUT_ENCODING'} = $out_encoding; |
| |
$Texi2HTML::THISDOC{'ENCODING_NAME'} = $encoding_name; |
| |
|
| |
$out_encoding = 'UNDEF' if (!defined($out_encoding)); |
| |
my $in_encoding = get_conf('IN_ENCODING'); |
| |
$in_encoding = 'UNDEF' if (!defined($in_encoding)); |
| |
$document_encoding = 'UNDEF' if (!defined($document_encoding)); |
| |
print STDERR "# Encodings: doc $document_encoding, in $in_encoding out $out_encoding, name $encoding_name\n" if ($VERBOSE); |
| |
} |
| |
|
| |
sub t2h_default_init_out() |
| |
{ |
| |
&$translate_names; |
| |
# set external cross ref splitting like splitting. |
| |
if (!defined($EXTERNAL_CROSSREF_SPLIT)) |
| |
{ |
| |
if (get_conf('SPLIT')) |
| |
{ |
| |
$Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'} = 1; |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'} = 0; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'} = $EXTERNAL_CROSSREF_SPLIT; |
| |
} |
| |
|
| |
|
| |
} |
| |
|
| |
my %t2h_default_formats_load_table = ( |
| |
'html' => \&html_default_load, |
| |
'info' => \&info_default_load, |
| |
'docbook' => \&docbook_default_load, |
| |
'xml' => \&xml_default_load, |
| |
'plaintext' => \&plaintext_default_load, |
| |
'raw-text' => \&t2h_default_raw_text_load, |
| |
); |
| |
|
| |
sub t2h_default_load_format($;$) |
| |
{ |
| |
my $format = shift; |
| |
my $from_command_line = shift; |
| |
if (defined($t2h_default_formats_load_table{$format})) |
| |
{ |
| |
$OUTPUT_FORMAT = $format; |
| |
&{$t2h_default_formats_load_table{$format}}($from_command_line); |
| |
$Texi2HTML::THISDOC{'format_from_command_line'} = $format if ($from_command_line); |
| |
return 1; |
| |
} |
| |
else |
| |
{ |
| |
return 0; |
| |
} |
| |
} |
| |
|
| |
sub t2h_encoding_is_entity($) |
| |
{ |
| |
my $text = shift; |
| |
return 0 if (!$ENABLE_ENCODING_USE_ENTITY); |
| |
return 1 if ($text =~ /^&/ and $text =~ /;$/); |
| |
} |
| |
|
| |
# this is for info.init |
| |
use vars qw(%t2h_enable_encoding_default_accent); |
| |
my @t2h_enable_encoding_accents_stack; |
| |
my %t2h_enable_encoding_default_commands; |
| |
|
| |
sub t2h_enable_encoding_load() |
| |
{ |
| |
t2h_default_push_handler(\&t2h_enable_encoding_init, \@command_handler_names); |
| |
t2h_default_push_handler(\&t2h_enable_encoding_finish, \@command_handler_finish); |
| |
#push @command_handler_process, \&t2h_enable_encoding_init; |
| |
#push @command_handler_finish, \&t2h_enable_encoding_finish; |
| |
foreach my $key (keys(%unicode_accents), 'dotless') |
| |
{ |
| |
$t2h_enable_encoding_default_accent{'normal'}->{$key} = $style_map{$key}->{'function'}; |
| |
$t2h_enable_encoding_default_accent{'texi'}->{$key} = $style_map_texi{$key}->{'function'}; |
| |
$t2h_enable_encoding_default_accent{'pre'}->{$key} = $style_map_pre{$key}->{'function'}; |
| |
$style_map{$key}->{'function'} = \&t2h_enable_encoding_normal_accent; |
| |
$style_map_texi{$key}->{'function'} = \&t2h_enable_encoding_texi_accent; |
| |
$style_map_pre{$key}->{'function'} = \&t2h_enable_encoding_pre_accent; |
| |
} |
| |
foreach my $key (%things_map) |
| |
{ |
| |
if (exists($unicode_map{$key}) and ($unicode_map{$key} ne '')) |
| |
{ |
| |
$t2h_enable_encoding_default_commands{'normal'}->{$key} = $things_map{$key}; |
| |
$t2h_enable_encoding_default_commands{'texi'}->{$key} = $texi_map{$key}; |
| |
$t2h_enable_encoding_default_commands{'sorting'}->{$key} = $sorting_things_map{$key}; |
| |
$t2h_enable_encoding_default_commands{'pre'}->{$key} = $pre_map{$key}; |
| |
} |
| |
} |
| |
} |
| |
|
| |
sub t2h_enable_encoding_finish() |
| |
{ |
| |
foreach my $key (%things_map) |
| |
{ |
| |
if (exists($unicode_map{$key}) and ($unicode_map{$key} ne '')) |
| |
{ |
| |
$things_map{$key} = $t2h_enable_encoding_default_commands{'normal'}->{$key}; |
| |
$texi_map{$key} = $t2h_enable_encoding_default_commands{'texi'}->{$key}; |
| |
$sorting_things_map{$key} = $t2h_enable_encoding_default_commands{'sorting'}->{$key}; |
| |
$pre_map{$key} = $t2h_enable_encoding_default_commands{'pre'}->{$key}; |
| |
} |
| |
} |
| |
} |
| |
|
| |
sub t2h_enable_encoding_init() |
| |
{ |
| |
if ($Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8') |
| |
{ |
| |
foreach my $key (%things_map) |
| |
{ |
| |
if (exists($unicode_map{$key}) and ($unicode_map{$key} ne '')) |
| |
{ |
| |
$things_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($things_map{$key})); |
| |
$texi_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($texi_map{$key})); |
| |
$sorting_things_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($sorting_things_map{$key})); |
| |
$pre_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($pre_map{$key})); |
| |
} |
| |
} |
| |
} |
| |
elsif (exists($makeinfo_encoding_to_map{$Texi2HTML::THISDOC{'ENCODING_NAME'}})) |
| |
{ |
| |
my $enc_map = $makeinfo_encoding_to_map{$Texi2HTML::THISDOC{'ENCODING_NAME'}}; |
| |
|
| |
foreach my $key (%things_map) |
| |
{ |
| |
if (exists($unicode_map{$key}) and ($unicode_map{$key} ne '') and |
| |
exists($makeinfo_unicode_to_eight_bit{$enc_map}->{$unicode_map{$key}})) |
| |
{ # we let perl handle the conversion |
| |
$things_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($things_map{$key})); |
| |
$texi_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($texi_map{$key})); |
| |
$sorting_things_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($sorting_things_map{$key})); |
| |
$pre_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($pre_map{$key})); |
| |
} |
| |
} |
| |
@t2h_enable_encoding_accents_stack = (); |
| |
} |
| |
} |
| |
|
| |
sub t2h_default_string_width($) |
| |
{ |
| |
my $string = shift; |
| |
if ($USE_UNICODE) |
| |
{ |
| |
my $width = 0; |
| |
foreach my $character(split '', $string) |
| |
{ |
| |
if ($character =~ /\p{Unicode::EastAsianWidth::InFullwidth}/) |
| |
{ |
| |
$width += 2; |
| |
} |
| |
else |
| |
{ |
| |
$width += 1; |
| |
} |
| |
} |
| |
return $width; |
| |
} |
| |
else |
| |
{ |
| |
return length($string); |
| |
} |
| |
} |
| |
|
| |
sub t2h_default_finish_out() |
| |
{ |
| |
} |
| |
|
| |
####################################################################### |
| # |
# |
| # texinfo styles (@foo{bar}) to HTML ones |
# Values guessed if not set here. The value used is in |
| |
# $Texi2HTML::THISDOC{'VARNAME'} |
| # |
# |
| |
####################################################################### |
| |
|
| |
# In file encoding. The @documentencoding allows autodetection of |
| |
# that variable. |
| |
$DOCUMENT_ENCODING = undef; |
| |
|
| |
# In file encoding, understandable by perl. Set according to DOCUMENT_ENCODING |
| |
$IN_ENCODING = undef; |
| |
|
| |
# Formatted document encoding name. If undef, set in init_out based on |
| |
# $OUT_ENCODING or $DOCUMENT_ENCODING if they are defined |
| |
$ENCODING_NAME = undef; |
| |
|
| |
# Out files encoding, understandable by perl. If undef, set in init_out |
| |
# using $ENCODING_NAME or $IN_ENCODING if they are defined |
| |
$OUT_ENCODING = undef; |
| |
|
| |
# Used to set $Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'}. |
| |
# if undef set to @documentdescription. If there is no @documentdescription, |
| |
# set in page_head. |
| |
$DOCUMENT_DESCRIPTION = undef; |
| |
|
| |
# if undef $Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'} set 1 if SPLIT, |
| |
# to 0 otherwise |
| |
$EXTERNAL_CROSSREF_SPLIT = undef; |
| |
|
| |
$DATE = undef; |
| |
|
| |
|
| |
######################################################################## |
| |
# Control of Page layout: |
| |
# You can make changes of the Page layout at two levels: |
| |
# 1.) For small changes, it is often enough to change the value of |
| |
# some global string/hash/array variables |
| |
# 2.) For larger changes, reimplement one of the T2H_DEFAULT_<fnc>* routines, |
| |
# give them another name, and assign them to the respective |
| |
# $<fnc> variable. |
| |
|
| |
# As a general interface, the hashes Texi2HTML::HREF, Texi2HTML::NAME, Texi2HTML::NODE, Texi2HTML::NO_TEXI, Texi2HTML::SIMPLE_TEXT hold |
| |
# href, html-name, node-name, name after removal of texi commands of |
| |
# This -- current section (resp. html page) |
| |
# Top -- top element |
| |
# Contents -- Table of contents element |
| |
# Overview -- Short table of contents element |
| |
# Index -- Index page element |
| |
# About -- page which explain "navigation buttons" element |
| |
# First -- first node element |
| |
# Last -- last node element |
| |
# |
| |
# Whether or not the following hash values are set, depends on the context |
| |
# (all values are w.r.t. 'This' section) |
| |
# Next -- next element of texinfo |
| |
# Prev -- previous element of texinfo |
| |
# NodeUp -- up node of texinfo |
| |
# Following -- following node in node reading order, taking menu into account |
| |
# Forward -- next node in reading order |
| |
# Back -- previous node in reading order |
| |
# Up -- parent given by sectioning commands |
| |
# FastForward -- if leave node, up and next, else next node |
| |
# FastBackward-- if leave node, up and prev, else prev node |
| |
# |
| |
# Furthermore, the following global variabels are set: |
| |
# $Texi2HTML::THISDOC{title} -- title as set by @title... |
| |
# $Texi2HTML::THISDOC{title_no_texi} -- title without texi (without html elements) |
| |
# $Texi2HTML::THISDOC{title_texi} -- title with texinfo @-commands |
| |
# $Texi2HTML::THISDOC{fulltitle} -- full title as set by @title... |
| |
# $Texi2HTML::THISDOC{subtitle} -- subtitle as set by @subtitle |
| |
# $Texi2HTML::THISDOC{author} -- author as set by @author |
| |
# $Texi2HTML::THISDOC{copying_comment} -- text of @copying and @end copying in comment |
| |
# |
| |
# $Texi2HTML::THISDOC{program} -- name and version of texi2html |
| |
# $Texi2HTML::THISDOC{program_homepage} -- homepage for texi2html |
| |
# $Texi2HTML::THISDOC{program_authors} -- authors of texi2html |
| |
# $Texi2HTML::THISDOC{today} -- date formatted with pretty_date |
| |
# $Texi2HTML::THISDOC{toc_file} -- table of contents file |
| |
# $Texi2HTML::THISDOC{file_base_name} -- base name of the texinfo manual file |
| |
# $Texi2HTML::THISDOC{input_file_name} -- name of the texinfo manual file |
| |
# $Texi2HTML::THISDOC{destination_directory} |
| |
# -- directory for the resulting files |
| |
# $Texi2HTML::THISDOC{user} -- user running the script |
| |
# $Texi2HTML::THISDOC{css_import_lines} -- ref on @import lines in css files |
| |
# $Texi2HTML::THISDOC{css_rule_lines} -- ref on css rules lines |
| |
# other $Texi2HTML::THISDOC keys corresponds with texinfo commands, the value |
| |
# being the command arg, for the following commands: |
| |
# kbdinputstyle, paragraphindent, setchapternewpage, headings, footnotestyle, |
| |
# exampleindent, firstparagraphindent, everyheading, everyfooting, |
| |
# evenheading, evenfooting, oddheading, oddfooting |
| |
# |
| |
# and pointer to arrays of lines which need to be printed by main::print_lines |
| |
# $Texi2HTML::THIS_SECTION -- lines of 'This' section |
| |
# $Texi2HTML::OVERVIEW -- lines of short table of contents |
| |
# $Texi2HTML::TOC_LINES -- lines of table of contents |
| |
# $Texi2HTML::TITLEPAGE -- lines of title page |
| |
# |
| |
# $Texi2HTML::THIS_ELEMENT holds the element reference. |
| |
|
| |
# most of the functions are either reset when switching format, in |
| |
# t2h_default_set_variables_default, or set in format, the simplest |
| |
# one being setup above in t2h_default_raw_text_load |
| |
|
| |
# |
| |
# The following generic subs control the layout: |
| |
# |
| |
# misc element formatting functions. They are rather generic, |
| |
# their call is controlled by other variables (separate or not |
| |
# footnotes, about_body, handling of table of contents...). |
| |
# print_Footnotes is the only to be redefined, in info |
| |
$print_Toc = \&T2H_DEFAULT_print_Toc; |
| |
$print_Overview = \&T2H_DEFAULT_print_Overview; |
| |
$print_About = \&T2H_DEFAULT_print_About; |
| |
$print_misc = \&T2H_DEFAULT_print_misc; |
| |
# generic enough (call print_page_head if needed) |
| |
$print_Top_header = \&T2H_DEFAULT_print_Top_header; |
| |
|
| |
# the following are less generic, but in case a specific format |
| |
# doesn't redefine them, the raw text functions are always defined. |
| |
$print_page_head = \&T2H_DEFAULT_print_page_head; |
| |
$contents = \&T2H_DEFAULT_contents; |
| |
$shortcontents = \&T2H_DEFAULT_shortcontents; |
| |
$one_section = \&T2H_DEFAULT_one_section; |
| |
$print_Top = \&T2H_DEFAULT_print_Top; |
| |
$print_Top_footer = \&T2H_DEFAULT_print_Top_footer; |
| |
$print_misc_header = \&T2H_DEFAULT_print_misc_header; |
| |
$print_misc_footer = \&T2H_DEFAULT_print_misc_footer; |
| |
$print_section_footer = \&T2H_DEFAULT_print_section_footer; |
| |
$print_chapter_header = \&T2H_DEFAULT_print_chapter_header; |
| |
$print_section_header = \&T2H_DEFAULT_print_section_header; |
| |
$print_chapter_footer = \&T2H_DEFAULT_print_chapter_footer; |
| |
$print_page_foot = \&T2H_DEFAULT_print_page_foot; |
| |
$print_head_navigation = \&T2H_DEFAULT_print_head_navigation; |
| |
$print_foot_navigation = \&T2H_DEFAULT_print_foot_navigation; |
| |
$end_section = \&T2H_DEFAULT_end_section; |
| |
# changed in info |
| |
$print_Footnotes = \&T2H_DEFAULT_print_Footnotes; |
| |
# used if split |
| |
$about_body = \&T2H_DEFAULT_about_body; |
| |
$print_navigation = \&T2H_DEFAULT_print_navigation; |
| |
|
| |
# |
| |
# generic formatting functions |
| |
# |
| |
|
| |
$button_icon_img = \&T2H_DEFAULT_button_icon_img; |
| |
# not really needed nor relevant except for html |
| |
$print_frame = \&T2H_DEFAULT_print_frame; |
| |
$print_toc_frame = \&T2H_DEFAULT_print_toc_frame; |
| |
# generic |
| |
$titlepage = \&T2H_DEFAULT_titlepage; |
| |
$css_lines = \&T2H_DEFAULT_css_lines; |
| |
$print_redirection_page = \&T2H_DEFAULT_print_redirection_page; |
| |
$node_file_name = \&T2H_DEFAULT_node_file_name; |
| |
$inline_contents = \&T2H_DEFAULT_inline_contents; |
| |
$program_string = \&T2H_DEFAULT_program_string; |
| |
$element_file_name = \&t2h_default_element_file_name; |
| |
|
| |
######################################################################## |
| |
# Layout for every sections |
| |
# |
| |
|
| |
sub T2H_DEFAULT_print_section($$$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $first_in_page = shift; |
| |
my $previous_is_top = shift; |
| |
my $element = shift; |
| |
|
| |
my $nw = main::print_lines($fh); |
| |
} |
| |
|
| |
sub T2H_DEFAULT_one_section($$) |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
main::print_lines($fh); |
| |
&$print_page_foot($fh); |
| |
} |
| |
|
| |
################################################################### |
| |
# Layout of top-page. It is possible to use @ifnothtml, @ifhtml, |
| |
# @html within the Top texinfo node to specify content of top-level |
| |
# page. |
| |
# |
| |
sub T2H_DEFAULT_print_Top_header($$) |
| |
{ |
| |
my $fh = shift; |
| |
my $do_page_head = shift; |
| |
&$print_page_head($fh) if ($do_page_head); |
| |
} |
| |
sub T2H_DEFAULT_print_Top_footer($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $end_page = shift; |
| |
my $element = shift; |
| |
if ($end_page) |
| |
{ |
| |
&$print_page_foot($fh); |
| |
} |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_Top($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $has_top_heading = shift; |
| |
my $element = shift; |
| |
|
| |
if ($Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'}) |
| |
{ |
| |
my $shortcontents = &$inline_contents($fh, 'shortcontents'); |
| |
print $fh "".join('',@$shortcontents) if (defined($shortcontents)); |
| |
} |
| |
if ($Texi2HTML::THISDOC{'setcontentsaftertitlepage'}) |
| |
{ |
| |
my $contents = &$inline_contents($fh, 'contents'); |
| |
print $fh "".join('',@$contents) if (defined($contents)); |
| |
} |
| |
|
| |
main::print_lines($fh, $Texi2HTML::THIS_SECTION); |
| |
} |
| |
|
| |
################################################################### |
| |
# Layout of Toc, Overview, and Footnotes pages |
| |
# By default, we use "normal" layout |
| |
# Texi2HTML::HREF of Next, Prev, Up, Forward, Back, etc are not defined |
| |
# redefine \@MISC_BUTTONS to change the navigation |
| |
sub T2H_DEFAULT_print_Toc |
| |
{ |
| |
return &$print_misc(@_); |
| |
} |
| |
sub T2H_DEFAULT_print_Overview |
| |
{ |
| |
return &$print_misc(@_); |
| |
} |
| |
sub T2H_DEFAULT_print_Footnotes |
| |
{ |
| |
return &$print_misc(@_); |
| |
} |
| |
sub T2H_DEFAULT_print_About |
| |
{ |
| |
return &$print_misc(@_); |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_misc_header($$$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $buttons = shift; |
| |
my $new_file = shift; |
| |
my $misc_page = shift; |
| |
&$print_page_head($fh) if ($new_file); |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_misc_footer($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $buttons = shift; |
| |
my $new_file = shift; |
| |
if ($new_file) |
| |
{ |
| |
&$print_page_foot($fh); |
| |
} |
| |
} |
| |
|
| |
use vars qw( |
| |
%t2h_default_underline_symbol |
| |
); |
| |
|
| |
%t2h_default_underline_symbol = ( |
| |
0 => '*', |
| |
1 => '*', |
| |
2 => '=', |
| |
3 => '-', |
| |
4 => '.' |
| |
); |
| |
|
| |
sub t2h_default_heading_text($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $level = shift; |
| |
|
| |
return '' if ($text !~ /\S/); |
| |
my $result = $text ."\n"; |
| |
# as seen in encodings/nodetest_utf8_no_unicode, the length can be in |
| |
# bytes (certainly) when there hasn't been a require Encode |
| |
#$result .=($t2h_default_underline_symbol{$level} x length($text))."\n"; |
| |
$result .=($t2h_default_underline_symbol{$level} x t2h_default_string_width($text))."\n"; |
| |
return $result; |
| |
} |
| |
|
| |
sub t2h_default_heading_text_preformatted($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $level = shift; |
| |
|
| |
return t2h_default_heading_text($command, $text, $level); |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_misc($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $new_file = shift; |
| |
my $misc_page = shift; |
| |
my $buttons = \@MISC_BUTTONS; |
| |
&$print_misc_header($fh, $buttons, $new_file, $misc_page); |
| |
print $fh "".&$heading_text('misc heading', $Texi2HTML::NAME{This}, 1) . "\n"; |
| |
main::print_lines($fh); |
| |
&$print_misc_footer($fh, $buttons, $new_file); |
| |
} |
| |
################################################################## |
| |
# section_footer is only called if SPLIT eq 'section' |
| |
# section_footer: after print_section of last section, before print_page_foot |
| |
# |
| |
|
| |
sub T2H_DEFAULT_print_section_footer |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
} |
| |
|
| |
################################################################### |
| |
# chapter_header and chapter_footer are only called if |
| |
# SPLIT eq 'chapter' |
| |
# chapter_header: after print_page_head, before print_section |
| |
# chapter_footer: after print_section of last section, before print_page_foot |
| |
|
| |
sub T2H_DEFAULT_print_chapter_header |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_chapter_footer |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_section_header |
| |
{ |
| |
my $fh = shift; |
| |
} |
| |
|
| |
|
| |
################################################################### |
| |
# Layout of standard header and footer |
| |
# |
| |
|
| |
sub T2H_DEFAULT_print_page_head($) |
| |
{ |
| |
my $fh = shift; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_program_string() |
| |
{ |
| |
my $date = $Texi2HTML::THISDOC{'today'}; |
| |
$date = '' if (!defined($date)); |
| |
if ($date ne '') |
| |
{ |
| |
return gdt('This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.', { |
| |
'date' => $date, 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' => $Texi2HTML::THISDOC{'program'} },{'duplicate'=>1}); |
| |
} |
| |
return gdt('This document was generated using @uref{{program_homepage}, @emph{{program}}}.', { |
| |
'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' |
| |
=> $Texi2HTML::THISDOC{'program'} },{'duplicate'=>1}); |
| |
} |
| |
|
| |
sub T2H_DEFAULT_end_section($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $misc_or_top_and_section_separation = shift; |
| |
my $element = shift; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_page_foot($) |
| |
{ |
| |
my $fh = shift; |
| |
} |
| |
|
| |
################################################################### |
| |
# Layout of navigation panel |
| |
|
| |
sub T2H_DEFAULT_print_head_navigation($$$$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $buttons = shift; |
| |
my $first_in_page = shift; |
| |
my $previous_is_top = shift; |
| |
my $element = shift; |
| |
|
| |
return ''; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_foot_navigation |
| |
{ |
| |
my $fh = shift; |
| |
my $buttons = shift; |
| |
my $rule = shift; |
| |
my $print_navigation_panel = shift; |
| |
my $element = shift; |
| |
|
| |
$rule = '' if (!defined($rule)); |
| |
print $fh "$rule\n" if ($rule ne ''); |
| |
} |
| |
|
| |
###################################################################### |
| |
# navigation panel |
| |
# |
| |
# how to create IMG tag |
| |
# this is only used in html, and only if ICONS is set and the button |
| |
# is active. |
| |
sub T2H_DEFAULT_button_icon_img |
| |
{ |
| |
my $button = shift; |
| |
my $icon = shift; |
| |
my $name = shift; |
| |
return '' if (!defined($icon)); |
| |
$button = "" if (!defined ($button)); |
| |
$name = '' if (!defined($name)); |
| |
my $alt = ''; |
| |
if ($name ne '') |
| |
{ |
| |
if ($button ne '') |
| |
{ |
| |
$alt = "$button: $name"; |
| |
} |
| |
else |
| |
{ |
| |
$alt = $name; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$alt = $button; |
| |
} |
| |
return "$icon $alt"; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_navigation |
| |
{ |
| |
my $buttons = shift; |
| |
my $vertical = shift; |
| |
|
| |
return ''; |
| |
} |
| |
|
| |
###################################################################### |
| |
# Frames: this is from "Richard Y. Kim" <ryk@coho.net> |
| |
# Should be improved to be more conforming to other _print* functions |
| |
# toc_file and main_file passed as args are relative to the texinfo manual |
| |
# location, and therefore are not used. |
| |
|
| |
# no-ops in the default case, doesn't really make sense if output is |
| |
# not html |
| |
|
| |
sub T2H_DEFAULT_print_frame |
| |
{ |
| |
my $fh = shift; |
| |
my $toc_file = shift; |
| |
my $main_file = shift; |
| |
$main_file = $Texi2HTML::THISDOC{'filename'}->{'top'}; |
| |
$toc_file = $Texi2HTML::THISDOC{'filename'}->{'toc_frame'}; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_toc_frame |
| |
{ |
| |
my $fh = shift; |
| |
my $stoc_lines = shift; |
| |
} |
| |
|
| |
# This subroutine is intended to fill @Texi2HTML::TOC_LINES and |
| |
# @Texi2HTML::OVERVIEW with the table of contents and short table of |
| |
# contents. |
| |
# |
| |
# arguments: |
| |
# ref on an array containing all the elements |
| |
|
| |
# each element is a reference on a hash. The following keys might be of |
| |
# use: |
| |
# 'top': true if this is the top element |
| |
# 'toc_level': level of the element in the table of content. Highest level |
| |
# is 1 for the @top element and for chapters, appendix and so on, |
| |
# 2 for section, unnumberedsec and so on... |
| |
# 'tocid': label used for reference linking to the element in table of |
| |
# contents |
| |
# 'file': the file containing the element, usefull to do href to that file |
| |
# in case the document is split. |
| |
# 'text': text of the element, with section number |
| |
# 'text_nonumber': text of the element, without section number |
| |
|
| |
# Relevant configuration variables are: |
| |
# $NO_BULLET_LIST_ATTRIBUTE: usefull in case a list is used |
| |
# $FRAMES: @Texi2HTML::OVERVIEW is used in one of the frames. |
| |
# $BEFORE_OVERVIEW |
| |
# $AFTER_OVERVIEW |
| |
# $BEFORE_TOC_LINES |
| |
# $AFTER_TOC_LINES |
| |
# get_conf('contents') |
| |
# get_conf('shortcontents') |
| |
|
| |
sub T2H_DEFAULT_contents($$) |
| |
{ |
| |
my $elements = shift; |
| |
my $toc_file = shift; |
| |
my @result; |
| |
return unless (get_conf('contents')); |
| |
foreach my $element (@$elements) |
| |
{ |
| |
my $level = $element->{'toc_level'}; |
| |
$level = 1 if ($level < 1); |
| |
my $text = $element->{'text'}; |
| |
my $result = (' ' x ($level - 1)) . $text ."\n"; |
| |
push @result, $result; |
| |
} |
| |
if (@result) |
| |
{ |
| |
unshift @result, $BEFORE_TOC_LINES; |
| |
push @result, $AFTER_TOC_LINES; |
| |
} |
| |
return \@result; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_shortcontents($$) |
| |
{ |
| |
my $elements = shift; |
| |
my $stoc_file = shift; |
| |
my @result; |
| |
return unless (get_conf('shortcontents')); |
| |
foreach my $element (@$elements) |
| |
{ |
| |
my $level = $element->{'toc_level'}; |
| |
next if ($level > 1); |
| |
$level = 1 if ($level < 1); |
| |
my $text = $element->{'text'}; |
| |
push @result, $text ."\n"; |
| |
} |
| |
if (@result) |
| |
{ |
| |
unshift @result, $BEFORE_OVERVIEW; |
| |
push @result, $AFTER_OVERVIEW; |
| |
} |
| |
return \@result; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_print_title() |
| |
{ |
| |
my $element = shift; |
| |
return undef unless ($SHOW_TITLE); |
| |
if ($USE_TITLEPAGE_FOR_TITLE) |
| |
{ |
| |
my ($titlepage_text, $titlepage_no_texi, $titlepage_simple_format) = main::do_special_region_lines('titlepage',$Texi2HTML::THISDOC{'state'}); |
| |
|
| |
&$titlepage([],$titlepage_text, $titlepage_no_texi, $titlepage_simple_format); |
| |
return $Texi2HTML::TITLEPAGE; |
| |
} |
| |
else |
| |
{ |
| |
my $title = ''; |
| |
$title = $Texi2HTML::THISDOC{'simpletitle'} if (defined($Texi2HTML::THISDOC{'simpletitle'}) and $Texi2HTML::THISDOC{'simpletitle'} !~ /^\s*$/); |
| |
if ($title ne '') |
| |
{ |
| |
return &$heading_text('@settitle', $title, 0) . "\n"; |
| |
} |
| |
} |
| |
} |
| |
|
| |
sub T2H_DEFAULT_toc_body($) |
| |
{ |
| |
my $elements_list = shift; |
| |
my $toc_lines = &$contents($elements_list, $Texi2HTML::THISDOC{'toc_file'}); |
| |
@{$Texi2HTML::TOC_LINES} = @$toc_lines if ($toc_lines); |
| |
my $stoc_lines = &$shortcontents($elements_list, $Texi2HTML::THISDOC{'stoc_file'}); |
| |
@{$Texi2HTML::OVERVIEW} = @$stoc_lines if ($stoc_lines); |
| |
} |
| |
|
| |
# element and elements_list may not be undef when called from the |
| |
# main program, but may be if called from other customization function, |
| |
# for example, here, print_Top. |
| |
sub T2H_DEFAULT_inline_contents($$$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $command = shift; |
| |
my $element = shift; |
| |
my $elements_list = shift; |
| |
my $name; |
| |
my $lines; |
| |
|
| |
my $toc_file; |
| |
$toc_file = $element->{'file'} if (defined($element)); |
| |
|
| |
my $result = undef; |
| |
|
| |
if ($command eq 'contents') |
| |
{ |
| |
$name = $Texi2HTML::NAME{'Contents'}; |
| |
$toc_file = $Texi2HTML::THISDOC{'toc_file'} if (!defined($toc_file)); |
| |
if (defined($elements_list)) |
| |
{ |
| |
$lines = &$contents($elements_list, $toc_file); |
| |
} |
| |
else |
| |
{ |
| |
$lines = $Texi2HTML::TOC_LINES; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$name = $Texi2HTML::NAME{'Overview'}; |
| |
$toc_file = $Texi2HTML::THISDOC{'stoc_file'} if (!defined($toc_file)); |
| |
if (defined($elements_list)) |
| |
{ |
| |
$lines = &$shortcontents($elements_list, $toc_file); |
| |
} |
| |
else |
| |
{ |
| |
$lines = $Texi2HTML::OVERVIEW; |
| |
} |
| |
} |
| |
if ($lines and @{$lines}) |
| |
{ |
| |
$result = [ &$heading_text("\@$command", $name, 1), "\n" ]; |
| |
my $contents_anchor = &$anchor($element->{'id'}); |
| |
if (defined($contents_anchor) and $contents_anchor =~ /\S/) |
| |
{ |
| |
unshift @$result, $contents_anchor."\n"; |
| |
} |
| |
push @$result, (@$lines, "\n"); |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
|
| |
sub T2H_DEFAULT_css_lines ($$) |
| |
{ |
| |
my $import_lines = shift; |
| |
my $rule_lines = shift; |
| |
# return if (defined($CSS_LINES) or (!@$rule_lines and !@$import_lines and (! keys(%css_map)))); |
| |
if (defined($CSS_LINES)) |
| |
{ # if predefined, use CSS_LINES. |
| |
$Texi2HTML::THISDOC{'CSS_LINES'} = $CSS_LINES; |
| |
return; |
| |
} |
| |
return if ((!@$rule_lines and !@$import_lines and !keys(%css_map) and !@CSS_REFS) or $NO_CSS); |
| |
my $css_text = "<style type=\"text/css\">\n<!--\n"; |
| |
$css_text .= join('',@$import_lines) . "\n" if (@$import_lines); |
| |
foreach my $css_rule (sort(keys(%css_map))) |
| |
{ |
| |
next unless ($css_map{$css_rule}); |
| |
$css_text .= "$css_rule {$css_map{$css_rule}}\n"; |
| |
} |
| |
$css_text .= join('',@$rule_lines) . "\n" if (@$rule_lines); |
| |
$css_text .= "-->\n</style>\n"; |
| |
foreach my $ref (@CSS_REFS) |
| |
{ |
| |
$css_text .= "<link rel=\"stylesheet\" type=\"text/css\" href=\"$ref\">\n"; |
| |
} |
| |
$Texi2HTML::THISDOC{'CSS_LINES'} = $css_text; |
| |
} |
| |
|
| |
###################################################################### |
| |
# About page |
| |
# |
| |
|
| |
# PRE_ABOUT can be a function reference or a scalar. |
| |
# Note that if it is a scalar, T2H_InitGlobals has not been called, |
| |
# and all global variables like $ADDRESS are not available. |
| |
$PRE_ABOUT = sub |
| |
{ |
| |
return ' ' . &$program_string() . "\n"; |
| |
}; |
| |
|
| |
# If customizing $AFTER_ABOUT, be sure to put the content inside <p></p>. |
| |
$AFTER_ABOUT = ''; |
| |
|
| |
%BUTTONS_EXAMPLE = |
| |
( |
| |
'Top', ' ', |
| |
'Contents', ' ', |
| |
'Overview', ' ', |
| |
'Index', ' ', |
| |
'This', '1.2.3', |
| |
'Back', '1.2.2', |
| |
'FastBack', '1', |
| |
'Prev', '1.2.2', |
| |
'Up', '1.2', |
| |
'Next', '1.2.4', |
| |
'NodeUp', '1.2', |
| |
'NodeNext', '1.2.4', |
| |
'NodePrev', '1.2.2', |
| |
'Following', '1.2.4', |
| |
'Forward', '1.2.4', |
| |
'FastForward', '2', |
| |
'About', ' ', |
| |
'First', '1.', |
| |
'Last', '1.2.4', |
| |
'NextFile', ' ', |
| |
'PrevFile', ' ', |
| |
); |
| |
|
| |
sub T2H_DEFAULT_about_body |
| |
{ |
| |
my $about = ""; |
| |
if (ref($PRE_ABOUT) eq 'CODE') |
| |
{ |
| |
$about .= &$PRE_ABOUT(); |
| |
} |
| |
else |
| |
{ |
| |
$about .= $PRE_ABOUT; |
| |
} |
| |
return $about; |
| |
} |
| |
|
| |
# return value is currently ignored |
| |
sub T2H_DEFAULT_titlepage($$$$) |
| |
{ |
| |
my $titlepage_lines = shift; |
| |
my $titlepage_text = shift; |
| |
my $titlepage_no_texi = shift; |
| |
my $titlepage_simple_format = shift; |
| |
|
| |
$Texi2HTML::TITLEPAGE = $titlepage_text; |
| |
if ($titlepage_text eq '') |
| |
{ |
| |
my $title = ''; |
| |
$title = $Texi2HTML::THISDOC{'simpletitle'} if (defined($Texi2HTML::THISDOC{'simpletitle'}) and $Texi2HTML::THISDOC{'simpletitle'} !~ /^\s*$/); |
| |
if ($title ne '') |
| |
{ |
| |
$Texi2HTML::TITLEPAGE = &$heading_text('@settitle', $title, 0); |
| |
$Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n"; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n"; |
| |
} |
| |
|
| |
if ($Texi2HTML::THISDOC{'setcontentsaftertitlepage'} and (defined($Texi2HTML::THISDOC{'inline_contents'}->{'contents'})) and @{$Texi2HTML::THISDOC{'inline_contents'}->{'contents'}}) |
| |
{ |
| |
foreach my $line(@{$Texi2HTML::THISDOC{'inline_contents'}->{'contents'}}) |
| |
{ |
| |
$Texi2HTML::TITLEPAGE .= $line; |
| |
} |
| |
$Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n"; |
| |
} |
| |
if ($Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'} and (defined($Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'})) and @{$Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'}}) |
| |
{ |
| |
foreach my $line(@{$Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'}}) |
| |
{ |
| |
$Texi2HTML::TITLEPAGE .= $line; |
| |
} |
| |
$Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n"; |
| |
} |
| |
return $Texi2HTML::TITLEPAGE; |
| |
} |
| |
|
| |
|
| |
sub T2H_DEFAULT_print_redirection_page() |
| |
{ |
| |
#return "Redirection files are not of use for the current format.\n"; |
| |
return undef; |
| |
} |
| |
|
| |
sub T2H_DEFAULT_node_file_name($$) |
| |
{ |
| |
my $node = shift; |
| |
my $type = shift; |
| |
return undef if ($node->{'external_node'} |
| |
or ($type eq 'top' and !$NEW_CROSSREF_STYLE)); |
| |
my $node_file_base; |
| |
if ($type eq 'top' and defined($TOP_NODE_FILE)) |
| |
{ |
| |
$node_file_base = $TOP_NODE_FILE; |
| |
} |
| |
elsif ($NEW_CROSSREF_STYLE) |
| |
{ |
| |
if ($TRANSLITERATE_FILE_NAMES) |
| |
{ |
| |
$node_file_base = $node->{'cross_manual_file'}; |
| |
} |
| |
else |
| |
{ |
| |
$node_file_base = $node->{'cross_manual_target'}; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$node_file_base = main::remove_texi($node->{'texi'}); |
| |
$node_file_base =~ s/[^\w\.\-]/-/g; |
| |
} |
| |
if (defined($NODE_FILE_EXTENSION) and $NODE_FILE_EXTENSION ne '') |
| |
{ |
| |
return ($node_file_base . ".$NODE_FILE_EXTENSION"); |
| |
} |
| |
return $node_file_base; |
| |
} |
| |
|
| |
######################################################################## |
| |
# Control of formatting: |
| |
# 1.) For some changes, it is often enough to change the value of |
| |
# some global map. It might necessitate building a little |
| |
# function along with the change in hash, if the change is the use |
| |
# of another function (in style_map). |
| |
# 2.) For other changes, reimplement one of the t2h_default_<fnc>* routines, |
| |
# give them another name, and assign them to the respective |
| |
# $<fnc> variable (below). |
| |
|
| |
%deprecated_commands = ( |
| |
'ctrl' => '', |
| |
'allow-recursion' => N__('recursion is always allowed'), |
| |
'quote-arg' => N__('arguments are quoted by default'), |
| |
); |
| |
|
| |
# |
| |
# This hash should have keys corresponding with the nonletter command accent |
| |
# whose following character is considered to be the argument |
| |
# This hash associates an accent macro to the ISO name for the accent if any. |
| |
# The customary use of this map is to find the ISO name appearing in html |
| |
# entity (like é) associated with a texinfo accent macro. |
| |
# |
| |
# The keys of the hash are |
| |
# ": umlaut |
| |
# ~: tilda accent |
| |
# ^: circumflex accent |
| |
# `: grave accent |
| |
# ': acute accent |
| |
# =: macron accent |
| |
%accent_map = ( |
| |
'"', 'uml', |
| |
'~', 'tilde', |
| |
'^', 'circ', |
| |
'`', 'grave', |
| |
"'", 'acute', |
| |
",", 'cedil', |
| |
'=', '', |
| |
'ringaccent', 'ring', |
| |
'H', '', |
| |
'dotaccent', '', |
| |
'u', '', |
| |
'ubaraccent', '', |
| |
'udotaccent', '', |
| |
'v', '', |
| |
'ogonek', 'ogon', |
| |
); |
| |
|
| |
# |
| |
# ascii representation of texinfo "simple things" @-commands |
| |
%default_simple_map = ( |
| |
'*', "\n", |
| |
' ', ' ', |
| |
"\t", ' ', |
| |
"\n", ' ', |
| |
'-', '', # hyphenation hint |
| |
'|', '', # used in formatting commands @evenfooting and friends |
| |
'/', '', |
| |
':', '', |
| |
'!', '!', |
| |
'?', '?', |
| |
'.', '.', |
| |
'@', '@', |
| |
'}', '}', |
| |
'{', '{', |
| |
); |
| |
|
| |
# texinfo "simple things" @-commands |
| |
%simple_map = %default_simple_map; |
| |
|
| |
# this map is used in preformatted text |
| |
%simple_map_pre = %simple_map; |
| |
|
| |
# This map is used when texi elements are removed and replaced |
| |
# by simple text |
| |
%simple_map_texi = %default_simple_map; |
| |
|
| |
# maps for the math specific commands |
| |
%simple_map_math = ( |
| |
'\\', '\\' |
| |
); |
| |
|
| |
#%simple_map_pre_math = %simple_map_math; |
| |
#%simple_map_texi_math = %simple_map_math; |
| |
|
| |
$punctuation_characters = '.?!'; |
| |
$after_punctuation_characters = '"\')]'; |
| |
|
| |
|
| |
%default_things_map = ( |
| |
'TeX' => 'TeX', |
| |
'LaTeX' => 'LaTeX', |
| |
'bullet' => '*', |
| |
'copyright' => '(C)', |
| |
'registeredsymbol' => '(R)', |
| |
'dots' => '...', |
| |
'enddots' => '...', |
| |
'equiv' => '==', |
| |
# FIXME i18n |
| |
'error' => 'error-->', |
| |
'expansion' => '==>', |
| |
'arrow' => '->', |
| |
'minus' => '-', |
| |
'point' => '-!-', |
| |
'print' => '-|', |
| |
'result' => '=>', |
| |
'today' => '', |
| |
'aa' => 'aa', |
| |
'AA' => 'AA', |
| |
'ae' => 'ae', |
| |
'oe' => 'oe', |
| |
'AE' => 'AE', |
| |
'OE' => 'OE', |
| |
'o' => '/o', |
| |
'O' => '/O', |
| |
'ss' => 'ss', |
| |
'l' => '/l', |
| |
'L' => '/L', |
| |
'DH' => 'D', |
| |
'dh' => 'd', |
| |
'TH' => 'TH', # http://www.evertype.com/standards/wynnyogh/thorn.html |
| |
|
| |
'th' => 'th', |
| |
'exclamdown' => '!', |
| |
'questiondown' => '?', |
| |
'pounds' => '#', |
| |
'ordf' => 'a', |
| |
'ordm' => 'o', |
| |
'comma' => ',', |
| |
'euro' => 'Euro', |
| |
'geq' => '>=', |
| |
'leq' => '<=', |
| |
'tie' => ' ', |
| |
'textdegree' => 'o', |
| |
'quotedblleft' => '``', |
| |
'quotedblright' => "''", |
| |
'quoteleft' => '`', |
| |
'quoteright' => "'", |
| |
'quotedblbase' => ',,', |
| |
'quotesinglbase' => ',', |
| |
'guillemetleft' => '<<', |
| |
'guillemetright' => '>>', |
| |
'guillemotleft' => '<<', |
| |
'guillemotright' => '>>', |
| |
'guilsinglleft' => '<', |
| |
'guilsinglright' => '>', |
| |
); |
| |
|
| |
%things_map = %default_things_map; |
| |
|
| |
# This map is used in preformatted environments |
| |
%pre_map = %things_map; |
| |
|
| |
# used in math. If not found, pre_map is used. |
| |
%math_map = (); |
| |
|
| |
# text replacing macros when texi commands are removed and plain text is |
| |
# produced. |
| |
%texi_map = %default_things_map; |
| |
|
| |
# used for index sorting. |
| |
%sorting_things_map = %default_things_map; |
| |
foreach my $accent_letter ('o','O','l','L') |
| |
{ |
| |
$sorting_things_map{$accent_letter} = $accent_letter; |
| |
} |
| |
$sorting_things_map{'copyright'} = 'C'; |
| |
$sorting_things_map{'registeredsymbol'} = 'R'; |
| |
$sorting_things_map{'today'} = 't'; |
| |
|
| |
%default_texi_map = %texi_map; |
| |
|
| |
# |
| |
# texinfo "things" (@foo{}) to XML ones |
| |
# |
| |
%things_map_xml = ( |
| |
'TeX' => 'TeX', |
| |
'LaTeX' => 'LaTeX', |
| |
# pertusus: unknown by makeinfo, not in texinfo manual (@* is the right thing) |
| |
# 'br', '<br>', # paragraph break |
| |
'bullet' => '•', |
| |
# #'copyright' => '(C)', |
| |
'copyright' => '©', |
| |
'registeredsymbol' => '®', |
| |
'dots' => '…', |
| |
'enddots' => '...', |
| |
'equiv' => '≡', |
| |
# FIXME i18n |
| |
'error' => 'error-->', |
| |
'expansion' => '→', |
| |
'arrow' => '→', |
| |
'minus' => '-', |
| |
'point' => '∗', |
| |
'print' => '-|', |
| |
'result' => '⇒', |
| |
# set in code using the language |
| |
# 'today', &pretty_date, |
| |
'today' => '', |
| |
'aa' => 'å', |
| |
'AA' => 'Å', |
| |
'ae' => 'æ', |
| |
'oe' => 'œ', #pertusus: also œ. œ not in html 3.2 |
| |
'AE' => 'Æ', |
| |
'OE' => 'Œ', #pertusus: also Œ. Œ not in html 3.2 |
| |
'o' => 'ø', |
| |
'O' => 'Ø', |
| |
'ss' => 'ß', |
| |
'DH' => 'Ð', |
| |
'dh' => 'ð', |
| |
'TH' => 'Þ', |
| |
'th' => 'þ', |
| |
'l' => 'ł', |
| |
'L' => 'Ł', |
| |
'exclamdown' => '¡', |
| |
'questiondown' => '¿', |
| |
'pounds' => '£', |
| |
'ordf' => 'ª', |
| |
'ordm' => 'º', |
| |
'comma' => ',', |
| |
'euro' => '€', |
| |
'geq' => '≥', |
| |
'leq' => '≤', |
| |
'tie' => ' ', |
| |
'textdegree' => '°', |
| |
'quotedblleft' => '“', |
| |
'quotedblright' => '”', |
| |
'quoteleft' => '‘', |
| |
'quoteright' => '’', |
| |
'quotedblbase' => '„', |
| |
'quotesinglbase' => '‚', |
| |
'guillemetleft' => '«', |
| |
'guillemetright' => '»', |
| |
'guillemotleft' => '«', |
| |
'guillemotright' => '»', |
| |
'guilsinglleft' => '‹', |
| |
'guilsinglright' => '›', |
| |
); |
| |
|
| |
# This map is used in preformatted environments |
| |
%pre_map_xml = %things_map_xml; |
| |
|
| |
# taken from |
| |
#Latin extended additionnal |
| |
#http://www.alanwood.net/unicode/latin_extended_additional.html |
| |
#C1 Controls and Latin-1 Supplement |
| |
#http://www.alanwood.net/unicode/latin_1_supplement.html |
| |
#Latin Extended-A |
| |
#http://www.alanwood.net/unicode/latin_extended_a.html |
| |
#Latin Extended-B |
| |
#http://www.alanwood.net/unicode/latin_extended_b.html |
| |
#dotless i: 0131 |
| |
|
| |
#http://www.alanwood.net/unicode/arrows.html 21** |
| |
#http://www.alanwood.net/unicode/general_punctuation.html 20** |
| |
#http://www.alanwood.net/unicode/mathematical_operators.html 22** |
| |
|
| |
%unicode_map = ( |
| |
'bullet' => '2022', |
| |
'copyright' => '00A9', |
| |
'registeredsymbol' => '00AE', |
| |
'dots' => '2026', |
| |
'enddots' => '', |
| |
'equiv' => '2261', |
| |
'error' => '', |
| |
'expansion' => '2192', |
| |
'arrow' => '2192', |
| |
'minus' => '2212', # in mathematical operators |
| |
# 'minus' => '002D', # in latin1 |
| |
'point' => '2605', |
| |
'print' => '22A3', |
| |
'result' => '21D2', |
| |
'today' => '', |
| |
'aa' => '00E5', |
| |
'AA' => '00C5', |
| |
'ae' => '00E6', |
| |
'oe' => '0153', |
| |
'AE' => '00C6', |
| |
'OE' => '0152', |
| |
'o' => '00F8', |
| |
'O' => '00D8', |
| |
'ss' => '00DF', |
| |
'DH' => '00D0', |
| |
'dh' => '00F0', |
| |
'TH' => '00DE', |
| |
'th' => '00FE', |
| |
'l' => '0142', |
| |
'L' => '0141', |
| |
'exclamdown' => '00A1', |
| |
'questiondown' => '00BF', |
| |
'pounds' => '00A3', |
| |
'ordf' => '00AA', |
| |
'ordm' => '00BA', |
| |
'comma' => '002C', |
| |
'euro' => '20AC', |
| |
'geq' => '2265', |
| |
'leq' => '2264', |
| |
'tie' => '', |
| |
# 'tie' => '0020', |
| |
'textdegree' => '00B0', |
| |
'quotedblleft' => '201C', |
| |
'quotedblright' => '201D', |
| |
'quoteleft' => '2018', |
| |
'quoteright' => '2019', |
| |
'quotedblbase' => '201E', |
| |
'quotesinglbase' => '201A', |
| |
'guillemetleft' => '00AB', |
| |
'guillemetright' => '00BB', |
| |
'guillemotleft' => '00AB', |
| |
'guillemotright' => '00BB', |
| |
'guilsinglleft' => '2039', |
| |
'guilsinglright' => '203A', |
| |
); |
| |
|
| |
%makeinfo_encoding_to_map = ( |
| |
"iso-8859-1", 'iso8859_1', |
| |
"iso-8859-2", 'iso8859_2', |
| |
"iso-8859-15", 'iso8859_15', |
| |
"koi8-r", 'koi8', |
| |
"koi8-u", 'koi8', |
| |
); |
| |
|
| |
foreach my $encoding (keys(%makeinfo_encoding_to_map)) |
| |
{ |
| |
$t2h_encoding_aliases{$encoding} = $encoding; |
| |
$t2h_encoding_aliases{$makeinfo_encoding_to_map{$encoding}} = $encoding; |
| |
} |
| |
|
| |
# cut and pasted from eigth_bit_makeinfo_maps.pl, in turn generated with |
| |
# ./parse_8bit_makeinfo_maps.pl |
| |
|
| |
%makeinfo_unicode_to_eight_bit = ( |
| |
'iso8859_1' => { |
| |
'00A0' => 'A0', |
| |
'00A1' => 'A1', |
| |
'00A2' => 'A2', |
| |
'00A3' => 'A3', |
| |
'00A4' => 'A4', |
| |
'00A5' => 'A5', |
| |
'00A6' => 'A6', |
| |
'00A7' => 'A7', |
| |
'00A8' => 'A8', |
| |
'00A9' => 'A9', |
| |
'00AA' => 'AA', |
| |
'00AB' => 'AB', |
| |
'00AC' => 'AC', |
| |
'00AD' => 'AD', |
| |
'00AE' => 'AE', |
| |
'00AF' => 'AF', |
| |
'00B0' => 'B0', |
| |
'00B1' => 'B1', |
| |
'00B2' => 'B2', |
| |
'00B3' => 'B3', |
| |
'00B4' => 'B4', |
| |
'00B5' => 'B5', |
| |
'00B6' => 'B6', |
| |
'00B7' => 'B7', |
| |
'00B8' => 'B8', |
| |
'00B9' => 'B9', |
| |
'00BA' => 'BA', |
| |
'00BB' => 'BB', |
| |
'00BC' => 'BC', |
| |
'00BD' => 'BD', |
| |
'00BE' => 'BE', |
| |
'00BF' => 'BF', |
| |
'00C0' => 'C0', |
| |
'00C1' => 'C1', |
| |
'00C2' => 'C2', |
| |
'00C3' => 'C3', |
| |
'00C4' => 'C4', |
| |
'00C5' => 'C5', |
| |
'00C6' => 'C6', |
| |
'00C7' => 'C7', |
| |
'00C7' => 'C7', |
| |
'00C8' => 'C8', |
| |
'00C9' => 'C9', |
| |
'00CA' => 'CA', |
| |
'00CB' => 'CB', |
| |
'00CC' => 'CC', |
| |
'00CD' => 'CD', |
| |
'00CE' => 'CE', |
| |
'00CF' => 'CF', |
| |
'00D0' => 'D0', |
| |
'00D1' => 'D1', |
| |
'00D2' => 'D2', |
| |
'00D3' => 'D3', |
| |
'00D4' => 'D4', |
| |
'00D5' => 'D5', |
| |
'00D6' => 'D6', |
| |
'00D7' => 'D7', |
| |
'00D8' => 'D8', |
| |
'00D9' => 'D9', |
| |
'00DA' => 'DA', |
| |
'00DB' => 'DB', |
| |
'00DC' => 'DC', |
| |
'00DD' => 'DD', |
| |
'00DE' => 'DE', |
| |
'00DF' => 'DF', |
| |
'00E0' => 'E0', |
| |
'00E1' => 'E1', |
| |
'00E2' => 'E2', |
| |
'00E3' => 'E3', |
| |
'00E4' => 'E4', |
| |
'00E5' => 'E5', |
| |
'00E6' => 'E6', |
| |
'00E7' => 'E7', |
| |
'00E8' => 'E8', |
| |
'00E9' => 'E9', |
| |
'00EA' => 'EA', |
| |
'00EB' => 'EB', |
| |
'00EC' => 'EC', |
| |
'00ED' => 'ED', |
| |
'00EE' => 'EE', |
| |
'00EF' => 'EF', |
| |
'00F0' => 'F0', |
| |
'00F1' => 'F1', |
| |
'00F2' => 'F2', |
| |
'00F3' => 'F3', |
| |
'00F4' => 'F4', |
| |
'00F5' => 'F5', |
| |
'00F6' => 'F6', |
| |
'00F7' => 'F7', |
| |
'00F8' => 'F8', |
| |
'00F9' => 'F9', |
| |
'00FA' => 'FA', |
| |
'00FB' => 'FB', |
| |
'00FC' => 'FC', |
| |
'00FD' => 'FD', |
| |
'00FE' => 'FE', |
| |
'00FF' => 'FF', |
| |
}, |
| |
'iso8859_15' => { |
| |
'00A0' => 'A0', |
| |
'00A1' => 'A1', |
| |
'00A2' => 'A2', |
| |
'00A3' => 'A3', |
| |
'20AC' => 'A4', |
| |
'00A5' => 'A5', |
| |
'0160' => 'A6', |
| |
'00A7' => 'A7', |
| |
'0161' => 'A8', |
| |
'00A9' => 'A9', |
| |
'00AA' => 'AA', |
| |
'00AB' => 'AB', |
| |
'00AC' => 'AC', |
| |
'00AD' => 'AD', |
| |
'00AE' => 'AE', |
| |
'00AF' => 'AF', |
| |
'00B0' => 'B0', |
| |
'00B1' => 'B1', |
| |
'00B2' => 'B2', |
| |
'00B3' => 'B3', |
| |
'017D' => 'B4', |
| |
'00B5' => 'B5', |
| |
'00B6' => 'B6', |
| |
'00B7' => 'B7', |
| |
'017E' => 'B8', |
| |
'00B9' => 'B9', |
| |
'00BA' => 'BA', |
| |
'00BB' => 'BB', |
| |
'0152' => 'BC', |
| |
'0153' => 'BD', |
| |
'0178' => 'BE', |
| |
'00BF' => 'BF', |
| |
'00C0' => 'C0', |
| |
'00C1' => 'C1', |
| |
'00C2' => 'C2', |
| |
'00C3' => 'C3', |
| |
'00C4' => 'C4', |
| |
'00C5' => 'C5', |
| |
'00C6' => 'C6', |
| |
'00C7' => 'C7', |
| |
'00C8' => 'C8', |
| |
'00C9' => 'C9', |
| |
'00CA' => 'CA', |
| |
'00CB' => 'CB', |
| |
'00CC' => 'CC', |
| |
'00CD' => 'CD', |
| |
'00CE' => 'CE', |
| |
'00CF' => 'CF', |
| |
'00D0' => 'D0', |
| |
'00D1' => 'D1', |
| |
'00D2' => 'D2', |
| |
'00D3' => 'D3', |
| |
'00D4' => 'D4', |
| |
'00D5' => 'D5', |
| |
'00D6' => 'D6', |
| |
'00D7' => 'D7', |
| |
'00D8' => 'D8', |
| |
'00D9' => 'D9', |
| |
'00DA' => 'DA', |
| |
'00DB' => 'DB', |
| |
'00DC' => 'DC', |
| |
'00DD' => 'DD', |
| |
'00DE' => 'DE', |
| |
'00DF' => 'DF', |
| |
'00E0' => 'E0', |
| |
'00E1' => 'E1', |
| |
'00E2' => 'E2', |
| |
'00E3' => 'E3', |
| |
'00E4' => 'E4', |
| |
'00E5' => 'E5', |
| |
'00E6' => 'E6', |
| |
'00E7' => 'E7', |
| |
'00E8' => 'E8', |
| |
'00E9' => 'E9', |
| |
'00EA' => 'EA', |
| |
'00EB' => 'EB', |
| |
'00EC' => 'EC', |
| |
'00ED' => 'ED', |
| |
'00EE' => 'EE', |
| |
'00EF' => 'EF', |
| |
'00F0' => 'F0', |
| |
'00F1' => 'F1', |
| |
'00F2' => 'F2', |
| |
'00F3' => 'F3', |
| |
'00F4' => 'F4', |
| |
'00F5' => 'F5', |
| |
'00F6' => 'F6', |
| |
'00F7' => 'F7', |
| |
'00F8' => 'F8', |
| |
'00F9' => 'F9', |
| |
'00FA' => 'FA', |
| |
'00FB' => 'FB', |
| |
'00FC' => 'FC', |
| |
'00FD' => 'FD', |
| |
'00FE' => 'FE', |
| |
'00FF' => 'FF', |
| |
}, |
| |
'iso8859_2' => { |
| |
'00A0' => 'A0', |
| |
'0104' => 'A1', |
| |
'02D8' => 'A2', |
| |
'0141' => 'A3', |
| |
'00A4' => 'A4', |
| |
'013D' => 'A5', |
| |
'015A' => 'A6', |
| |
'00A7' => 'A7', |
| |
'00A8' => 'A8', |
| |
'015E' => 'AA', |
| |
'0164' => 'AB', |
| |
'0179' => 'AC', |
| |
'00AD' => 'AD', |
| |
'017D' => 'AE', |
| |
'017B' => 'AF', |
| |
'00B0' => 'B0', |
| |
'0105' => 'B1', |
| |
'02DB' => 'B2', |
| |
'0142' => 'B3', |
| |
'00B4' => 'B4', |
| |
'013E' => 'B5', |
| |
'015B' => 'B6', |
| |
'02C7' => 'B7', |
| |
'00B8' => 'B8', |
| |
'0161' => 'B9', |
| |
'015F' => 'BA', |
| |
'0165' => 'BB', |
| |
'017A' => 'BC', |
| |
'02DD' => 'BD', |
| |
'017E' => 'BE', |
| |
'017C' => 'BF', |
| |
'0154' => 'C0', |
| |
'00C1' => 'C1', |
| |
'00C2' => 'C2', |
| |
'0102' => 'C3', |
| |
'00C4' => 'C4', |
| |
'0139' => 'C5', |
| |
'0106' => 'C6', |
| |
'00C7' => 'C7', |
| |
'010C' => 'C8', |
| |
'00C9' => 'C9', |
| |
'0118' => 'CA', |
| |
'00CB' => 'CB', |
| |
'011A' => 'CC', |
| |
'00CD' => 'CD', |
| |
'00CE' => 'CE', |
| |
'010E' => 'CF', |
| |
'0110' => 'D0', |
| |
'0143' => 'D1', |
| |
'0147' => 'D2', |
| |
'00D3' => 'D3', |
| |
'00D4' => 'D4', |
| |
'0150' => 'D5', |
| |
'00D6' => 'D6', |
| |
'00D7' => 'D7', |
| |
'0158' => 'D8', |
| |
'016E' => 'D9', |
| |
'00DA' => 'DA', |
| |
'0170' => 'DB', |
| |
'00DC' => 'DC', |
| |
'00DD' => 'DD', |
| |
'0162' => 'DE', |
| |
'00DF' => 'DF', |
| |
'0155' => 'E0', |
| |
'00E1' => 'E1', |
| |
'00E2' => 'E2', |
| |
'0103' => 'E3', |
| |
'00E4' => 'E4', |
| |
'013A' => 'E5', |
| |
'0107' => 'E6', |
| |
'00E7' => 'E7', |
| |
'010D' => 'E8', |
| |
'00E9' => 'E9', |
| |
'0119' => 'EA', |
| |
'00EB' => 'EB', |
| |
'011B' => 'EC', |
| |
'00ED' => 'ED', |
| |
'00EE' => 'EE', |
| |
'010F' => 'EF', |
| |
'0111' => 'F0', |
| |
'0144' => 'F1', |
| |
'0148' => 'F2', |
| |
'00F3' => 'F3', |
| |
'00F4' => 'F4', |
| |
'0151' => 'F5', |
| |
'00F6' => 'F6', |
| |
'00F7' => 'F7', |
| |
'0159' => 'F8', |
| |
'016F' => 'F9', |
| |
'00FA' => 'FA', |
| |
'0171' => 'FB', |
| |
'00FC' => 'FC', |
| |
'00FD' => 'FD', |
| |
'0163' => 'FE', |
| |
'02D9' => 'FF', |
| |
}, |
| |
'koi8' => { |
| |
'0415' => 'A3', |
| |
'0454' => 'A4', |
| |
'0456' => 'A6', |
| |
'0457' => 'A7', |
| |
'04D7' => 'B3', |
| |
'0404' => 'B4', |
| |
'0406' => 'B6', |
| |
'0407' => 'B7', |
| |
'042E' => 'C0', |
| |
'0430' => 'C1', |
| |
'0431' => 'C2', |
| |
'0446' => 'C3', |
| |
'0434' => 'C4', |
| |
'0435' => 'C5', |
| |
'0444' => 'C6', |
| |
'0433' => 'C7', |
| |
'0445' => 'C8', |
| |
'0438' => 'C9', |
| |
'0439' => 'CA', |
| |
'043A' => 'CB', |
| |
'043B' => 'CC', |
| |
'043C' => 'CD', |
| |
'043D' => 'CE', |
| |
'043E' => 'CF', |
| |
'043F' => 'D0', |
| |
'044F' => 'D1', |
| |
'0440' => 'D2', |
| |
'0441' => 'D3', |
| |
'0442' => 'D4', |
| |
'0443' => 'D5', |
| |
'0436' => 'D6', |
| |
'0432' => 'D7', |
| |
'044C' => 'D8', |
| |
'044B' => 'D9', |
| |
'0437' => 'DA', |
| |
'0448' => 'DB', |
| |
'044D' => 'DC', |
| |
'0449' => 'DD', |
| |
'0447' => 'DE', |
| |
'044A' => 'DF', |
| |
'042D' => 'E0', |
| |
'0410' => 'E1', |
| |
'0411' => 'E2', |
| |
'0426' => 'E3', |
| |
'0414' => 'E4', |
| |
'0415' => 'E5', |
| |
'0424' => 'E6', |
| |
'0413' => 'E7', |
| |
'0425' => 'E8', |
| |
'0418' => 'E9', |
| |
'0419' => 'EA', |
| |
'041A' => 'EB', |
| |
'041B' => 'EC', |
| |
'041C' => 'ED', |
| |
'041D' => 'EE', |
| |
'041E' => 'EF', |
| |
'041F' => 'F0', |
| |
'042F' => 'F1', |
| |
'0420' => 'F2', |
| |
'0421' => 'F3', |
| |
'0422' => 'F4', |
| |
'0423' => 'F5', |
| |
'0416' => 'F6', |
| |
'0412' => 'F7', |
| |
'042C' => 'F8', |
| |
'042B' => 'F9', |
| |
'0417' => 'FA', |
| |
'0428' => 'FB', |
| |
'042D' => 'FC', |
| |
'0429' => 'FD', |
| |
'0427' => 'FE', |
| |
'042A' => 'FF', |
| |
}, |
| |
); |
| |
|
| |
%eight_bit_to_unicode = (); |
| |
foreach my $encoding (keys(%makeinfo_encoding_to_map)) |
| |
{ |
| |
my $unicode_to_eight = $makeinfo_unicode_to_eight_bit{$makeinfo_encoding_to_map{$encoding}}; |
| |
#print STDERR "$encoding, $makeinfo_encoding_to_map{$encoding}, $unicode_to_eight\n"; |
| |
foreach my $utf8_key (keys(%{$unicode_to_eight})) |
| |
{ |
| |
$eight_bit_to_unicode{$encoding}->{$unicode_to_eight->{$utf8_key}} = |
| |
$utf8_key; |
| |
} |
| |
} |
| |
|
| |
# currently unused |
| |
my %makeinfo_transliterate_map = ( |
| |
'0416' => 'ZH', |
| |
'0447' => 'ch', |
| |
'00EB' => 'e', |
| |
'0414' => 'D', |
| |
'0159' => 'r', |
| |
'00E6' => 'ae', |
| |
'042B' => 'Y', |
| |
'00FA' => 'u', |
| |
'043B' => 'l', |
| |
'00DE' => 'TH', |
| |
'00D9' => 'U', |
| |
'00C4' => 'A', |
| |
'0148' => 'n', |
| |
'00F6' => 'o', |
| |
'0434' => 'd', |
| |
'041E' => 'O', |
| |
'041B' => 'L', |
| |
'044B' => 'y', |
| |
'0107' => 'c', |
| |
'0415' => 'E', |
| |
'00C1' => 'A', |
| |
'00D3' => 'O', |
| |
'00DB' => 'U', |
| |
'016E' => 'U', |
| |
'013A' => 'l', |
| |
'017B' => 'Z', |
| |
'00F1' => 'n', |
| |
'0428' => 'SH', |
| |
'0153' => 'oe', |
| |
'00F4' => 'o', |
| |
'0144' => 'n', |
| |
'0404' => 'IE', |
| |
'0427' => 'CH', |
| |
'0162' => 'T', |
| |
'017A' => 'z', |
| |
'0448' => 'sh', |
| |
'0436' => 'zh', |
| |
'00F9' => 'u', |
| |
'0406' => 'I', |
| |
'0103' => 'a', |
| |
'0422' => 'T', |
| |
'0160' => 'S', |
| |
'0165' => 't', |
| |
'017E' => 'z', |
| |
'00F0' => 'd', |
| |
'043E' => 'o', |
| |
'043D' => 'n', |
| |
'013E' => 'l', |
| |
'0412' => 'V', |
| |
'0111' => 'd', |
| |
'0155' => 's', |
| |
'017C' => 'z', |
| |
'00CE' => 'I', |
| |
'042D' => 'E', |
| |
'00C8' => 'E', |
| |
'00F8' => 'oe', |
| |
'00F2' => 'o', |
| |
'00FF' => 'y', |
| |
'0420' => 'R', |
| |
'0119' => 'e', |
| |
'00D2' => 'O', |
| |
'043C' => 'm', |
| |
'00D0' => 'DH', |
| |
'0179' => 'Z', |
| |
'0110' => 'D', |
| |
'043F' => 'p', |
| |
'0170' => 'U', |
| |
'011A' => 'E', |
| |
'010C' => 'C', |
| |
'015A' => 'S', |
| |
'0433' => 'g', |
| |
'00E1' => 'a', |
| |
'010D' => 'c', |
| |
'00CC' => 'I', |
| |
'016F' => 'u', |
| |
'0457' => 'yi', |
| |
'00C2' => 'A', |
| |
'0438' => 'i', |
| |
'00E3' => 'a', |
| |
'0435' => 'e', |
| |
'0440' => 'r', |
| |
'042A' => 'W', |
| |
'0431' => 'b', |
| |
'00EE' => 'i', |
| |
'0150' => 'O', |
| |
'00E8' => 'e', |
| |
'0418' => 'I', |
| |
'00CF' => 'I', |
| |
'015F' => 's', |
| |
'0142' => 'l', |
| |
'0147' => 'N', |
| |
'00DF' => 'ss', |
| |
'00E5' => 'aa', |
| |
'00C3' => 'A', |
| |
'0106' => 'C', |
| |
'0141' => 'L', |
| |
'0164' => 'T', |
| |
'017D' => 'Z', |
| |
'00EC' => 'i', |
| |
'041C' => 'M', |
| |
'00C9' => 'E', |
| |
'00E0' => 'a', |
| |
'043A' => 'k', |
| |
'00F5' => 'o', |
| |
'042C' => 'X', |
| |
'0449' => 'shch', |
| |
'0444' => 'f', |
| |
'0139' => 'L', |
| |
'0158' => 'R', |
| |
'00F3' => 'o', |
| |
'00FB' => 'u', |
| |
'0424' => 'F', |
| |
'0446' => 'c', |
| |
'0423' => 'U', |
| |
'0442' => 't', |
| |
'00FD' => 'y', |
| |
'0102' => 'A', |
| |
'0104' => 'A', |
| |
'00CB' => 'E', |
| |
'0426' => 'C', |
| |
'00CD' => 'I', |
| |
'0437' => 'z', |
| |
'0178' => 'y', |
| |
'00D4' => 'O', |
| |
'044D' => 'e', |
| |
'0432' => 'v', |
| |
'013D' => 'L', |
| |
'0163' => 't', |
| |
'0456' => 'i', |
| |
'011B' => 'e', |
| |
'044F' => 'ya', |
| |
'0429' => 'SHCH', |
| |
'0411' => 'B', |
| |
'044A' => 'w', |
| |
'00C6' => 'AE', |
| |
'041D' => 'N', |
| |
'00DA' => 'U', |
| |
'00C0' => 'A', |
| |
'0152' => 'OE', |
| |
'00DD' => 'Y', |
| |
'0154' => 'R', |
| |
'00E9' => 'e', |
| |
'00D5' => 'O', |
| |
'041F' => 'P', |
| |
'0161' => 's', |
| |
'0430' => 'a', |
| |
'0445' => 'h', |
| |
'00E2' => 'a', |
| |
'00D6' => 'O', |
| |
'0407' => 'YI', |
| |
'00CA' => 'E', |
| |
'0439' => 'i', |
| |
'0171' => 'u', |
| |
'00DC' => 'U', |
| |
'042F' => 'YA', |
| |
'0425' => 'H', |
| |
'00FE' => 'th', |
| |
'00D1' => 'N', |
| |
'044C' => 'x', |
| |
'010F' => 'd', |
| |
'0410' => 'A', |
| |
'0443' => 'u', |
| |
'00EF' => 'i', |
| |
'0105' => 'a', |
| |
'00EA' => 'e', |
| |
'00E4' => 'a', |
| |
'015E' => 'S', |
| |
'0417' => 'Z', |
| |
'00ED' => 'i', |
| |
'00FC' => 'u', |
| |
'04D7' => 'IO', |
| |
'00D8' => 'OE', |
| |
'0419' => 'I', |
| |
'0421' => 'S', |
| |
'0143' => 'N', |
| |
'010E' => 'D', |
| |
'0413' => 'G', |
| |
'015B' => 's', |
| |
'0151' => 'o', |
| |
'00E7' => 'c', |
| |
'00C5' => 'AA', |
| |
'0441' => 's', |
| |
'0118' => 'E', |
| |
'00C7' => 'C', |
| |
'041A' => 'K', |
| |
'0454' => 'ie', |
| |
'042E' => 'yu', |
| |
); |
| |
|
| |
|
| |
%transliterate_map = ( |
| |
'00C5' => 'AA', |
| |
'00E5' => 'aa', |
| |
'00D8' => 'O', |
| |
'00F8' => 'o', |
| |
'00E6' => 'ae', |
| |
'0153' => 'oe', |
| |
'00C6' => 'AE', |
| |
'0152' => 'OE', |
| |
'00DF' => 'ss', |
| |
'0141' => 'L', |
| |
'0142' => 'l', |
| |
'00D0' => 'D', |
| |
'00F0' => 'd', |
| |
'00DE' => 'TH', |
| |
'00FE' => 'th', |
| |
'0415' => 'E', |
| |
'0435' => 'e', |
| |
'0426' => 'C', |
| |
'042A' => 'W', |
| |
'044A' => 'w', |
| |
'042C' => 'X', |
| |
'044C' => 'x', |
| |
'042E' => 'yu', |
| |
'042F' => 'YA', |
| |
'044F' => 'ya', |
| |
'0433' => 'g', |
| |
'0446' => 'c', |
| |
'04D7' => 'IO', |
| |
'00DD' => 'Y', # unidecode gets this wrong ? |
| |
# following appears in tests, this is required to have |
| |
# the same output with and without unidecode |
| |
'4E2D' => 'Zhong', |
| |
'6587' => 'Wen', |
| |
'793A' => 'Shi', |
| |
'4F8B' => 'Li', |
| |
'7B2C' => 'Di', |
| |
'7AE0' => 'Zhang', |
| |
'53E6' => 'Ling', |
| |
'4E2A' => 'Ge', |
| |
# in http://www.cantonese.sheik.co.uk/dictionary/characters/7/ |
| |
# unidecode certainly gets it wrong |
| |
'4E00' => 'Yi', |
| |
'FF08' => '(', |
| |
'FF09' => ')', |
| |
'FF0C' => ',', |
| |
'5B66' => 'Xue', |
| |
'7FD2' => 'Xi', |
| |
'30DE' => 'ma', |
| |
'30CB' => 'ni', |
| |
'30E5' => 'yu', |
| |
'30A2' => 'a', |
| |
'30EB' => 'ru', |
| |
); |
| |
|
| |
foreach my $symbol(keys(%unicode_map)) |
| |
{ |
| |
if ($unicode_map{$symbol} ne '' and !exists($transliterate_map{$symbol})) |
| |
{ |
| |
$no_transliterate_map{$unicode_map{$symbol}} = 1; |
| |
} |
| |
} |
| |
|
| |
%ascii_character_map = ( |
| |
' ' => '0020', |
| |
'!' => '0021', |
| |
'"' => '0022', |
| |
'#' => '0023', |
| |
'$' => '0024', |
| |
'%' => '0025', |
| |
'&' => '0026', |
| |
"'" => '0027', |
| |
'(' => '0028', |
| |
')' => '0029', |
| |
'*' => '002A', |
| |
'+' => '002B', |
| |
',' => '002C', |
| |
'-' => '002D', |
| |
'.' => '002E', |
| |
'/' => '002F', |
| |
':' => '003A', |
| |
';' => '003B', |
| |
'<' => '003C', |
| |
'=' => '003D', |
| |
'>' => '003E', |
| |
'?' => '003F', |
| |
'@' => '0040', |
| |
'[' => '005B', |
| |
'\\' => '005C', |
| |
']' => '005D', |
| |
'^' => '005E', |
| |
'_' => '005F', |
| |
'`' => '0060', |
| |
'{' => '007B', |
| |
'|' => '007C', |
| |
'}' => '007D', |
| |
'~' => '007E', |
| |
); |
| |
|
| |
%perl_charset_to_html = ( |
| |
'utf8' => 'utf-8', |
| |
'utf-8-strict' => 'utf-8', |
| |
'ascii' => 'us-ascii', |
| |
'shiftjis' => 'shift_jis', |
| |
); |
| |
|
| |
%t2h_encoding_aliases = ( |
| |
'latin1' => 'iso-8859-1', |
| |
); |
| |
|
| |
foreach my $perl_charset (keys(%perl_charset_to_html)) |
| |
{ |
| |
$t2h_encoding_aliases{$perl_charset} = $perl_charset_to_html{$perl_charset}; |
| |
$t2h_encoding_aliases{$perl_charset_to_html{$perl_charset}} = $perl_charset_to_html{$perl_charset}; |
| |
} |
| |
|
| |
# These are the encodings from the texinfo manual |
| |
foreach my $canonical_encoding('us-ascii', 'utf-8', 'iso-8859-1', |
| |
'iso-8859-15','iso-8859-2','koi8-r', 'koi8-u') |
| |
{ |
| |
$canonical_texinfo_encodings{$canonical_encoding} = 1; |
| |
} |
| |
|
| |
# not used currently for html, but used in chm.init |
| |
%numeric_entity_map = (); |
| |
|
| |
foreach my $symbol (keys(%unicode_map)) |
| |
{ |
| |
if ($symbol ne '') |
| |
{ |
| |
$numeric_entity_map{$symbol} = '&#' . hex($unicode_map{$symbol}) . ';'; |
| |
} |
| |
} |
| |
|
| |
# When the value begins with & the function with that name is used to do the |
| |
# html. The first argument is the text enclosed within {}, the second is the |
| |
# style name (which is also the key of the hash) |
| |
# |
| |
# Otherwithe the value is the html element used to enclose the text, and if |
| |
# there is a " the resulting text is also enclosed within `' |
| |
my %old_style_map = ( |
| |
'acronym', '', |
| |
'asis', '', |
| |
'b', 'b', |
| |
'cite', 'cite', |
| |
'clicksequence', '', |
| |
'code', 'code', |
| |
'command', 'code', |
| |
'ctrl', '&default_ctrl', |
| |
'dfn', 'em', |
| |
'dmn', '', |
| |
'email', '&default_email', |
| |
'emph', 'em', |
| |
'env', 'code', |
| |
'file', '"tt', |
| |
'i', 'i', |
| |
'kbd', 'kbd', |
| |
'key', 'kbd', |
| |
'math', 'em', |
| |
'option', '"samp', |
| |
'r', '', |
| |
'samp', '"samp', |
| |
'sc', '&default_sc', |
| |
'strong', 'strong', |
| |
't', 'tt', |
| |
'uref', '&default_uref', |
| |
'url', '&default_url', |
| |
'var', 'var', |
| |
'verb', 'tt', |
| |
'titlefont', '&default_titlefont', |
| |
'w', '', |
| |
); |
| |
|
| |
sub t2h_default_copy_style_map ($$;$) |
| |
{ |
| |
my $from = shift; |
| |
my $to = shift; |
| |
my $merge = shift; |
| |
|
| |
foreach my $command (keys(%$from)) |
| |
{ |
| |
$to->{$command} = {} if (!exists($to->{$command})); |
| |
foreach my $key (keys(%{$from->{$command}})) |
| |
{ |
| |
next if (exists($to->{$command}->{$key}) and $merge); |
| |
if ($key eq 'args') |
| |
{ |
| |
$to->{$command}->{$key} = [ @{$from->{$command}->{$key}} ]; |
| |
} |
| |
else |
| |
{ |
| |
$to->{$command}->{$key} = $from->{$command}->{$key}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
# default is {'args' => ['normal'], 'attribute' => ''}, |
| %style_map = ( |
%style_map = ( |
| 'asis', '', |
'asis', {}, |
| 'b', 'B', |
'b', {}, |
| 'cite', 'CITE', |
'cite', {}, |
| 'code', 'CODE', |
'clicksequence', {}, |
| 'ctrl', '&do_ctrl', # special case |
'click', {'function' => \&t2h_default_click_normal, 'type' => 'simple_style'}, |
| 'dfn', 'EM', # DFN tag is illegal in the standard |
'code', {'args' => ['code']}, |
| 'dmn', '', # useless |
'command', {'args' => ['code']}, |
| 'email', '&do_email', # insert a clickable email address |
'ctrl', {'function' => \&t2h_default_ctrl,'type' => 'simple_style'}, |
| 'emph', 'EM', |
'dfn', {}, |
| 'file', '"TT', # will put quotes, cf. &apply_style |
'dmn', {'type' => 'simple_style'}, |
| 'i', 'I', |
'email', {'args' => ['code', 'normal'], |
| 'kbd', 'KBD', |
'function' => \&t2h_default_email, |
| 'key', 'KBD', |
'type' => 'simple_style'}, |
| 'math', 'EM', |
#'email', {'args' => ['normal', 'normal'], |
| 'r', '', # unsupported |
# 'function' => \&t2h_default_email}, |
| 'samp', '"SAMP', # will put quotes, cf. &apply_style |
'emph', {}, |
| 'sc', '&do_sc', # special case |
'env', {'args' => ['code']}, |
| 'strong', 'STRONG', |
'file', {'args' => ['code'], 'quote' => '"'}, |
| 't', 'TT', |
'headitemfont', {}, |
| 'titlefont', '', # useless |
'i', {}, |
| 'uref', '&do_uref', # insert a clickable URL |
'slanted', {}, |
| 'url', '&do_url', # insert a clickable URL |
'sansserif', {}, |
| 'var', 'VAR', |
'kbd', {'args' => ['code'], }, |
| 'w', '', # unsupported |
'key', {'args' => ['code'], 'begin' => '<', 'end' => '>'}, |
| ); |
'math', {'function' => \&t2h_default_math, 'args' => ['math'] }, |
| |
'option', {'args' => ['code'], 'quote' => '"'}, |
| |
'r', {}, |
| |
'samp', {'args' => ['code'], 'quote' => '"'}, |
| |
# 'sc', {'function' => \&t2h_default_sc}, |
| |
'sc', {}, |
| |
'strong', {}, |
| |
't', {}, |
| |
'uref', {'function' => \&t2h_default_uref, |
| |
'args' => ['code', 'normal', 'normal'], |
| |
'type' => 'simple_style' }, |
| |
#'uref', {'function' => \&t2h_default_uref, |
| |
# 'args' => ['normal', 'normal', 'normal']}, |
| |
'url', {'function' => \&t2h_default_uref, |
| |
'args' => ['code', 'normal', 'normal'], |
| |
'type' => 'simple_style'}, |
| |
'indicateurl', {'args' => ['code'], 'begin' => '<', 'end' => '>','type' => 'simple_style'}, |
| |
'var', {}, |
| |
'verb', {'args' => ['code'], }, |
| |
'titlefont', {'function' => \&t2h_default_titlefont, |
| |
'type' => 'simple_style'}, |
| |
'w', {}, |
| |
'hyphenation', {'function' => \&t2h_default_hyphenation, 'args' => ['keep']}, |
| |
); |
| |
|
| |
%command_type = (); |
| |
|
| |
foreach my $style (keys(%style_map)) |
| |
{ |
| |
if (exists($style_map{$style}->{'type'})) |
| |
{ |
| |
$command_type{$style} = $style_map{$style}->{'type'}; |
| |
} |
| |
else |
| |
{ |
| |
$command_type{$style} = 'style'; |
| |
} |
| |
} |
| |
|
| |
|
| |
sub t2h_default_select_substitution($$$) |
| |
{ |
| |
my $in_raw_text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_simple = shift; |
| |
|
| |
my $substitutions = \@text_substitutions_normal; |
| |
if ($in_raw_text) |
| |
{ |
| |
$substitutions = \@text_substitutions_texi; |
| |
} |
| |
elsif ($in_simple) |
| |
{ |
| |
$substitutions = \@text_substitutions_simple_format; |
| |
} |
| |
elsif ($in_preformatted) |
| |
{ |
| |
$substitutions = \@text_substitutions_pre; |
| |
} |
| |
return $substitutions; |
| |
} |
| |
|
| |
sub t2h_text_substitutions($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $in_raw_text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_simple = shift; |
| |
|
| |
my $substitutions = t2h_default_select_substitution($in_raw_text, $in_preformatted, $in_simple); |
| |
foreach my $substitution_entry (@$substitutions) |
| |
{ |
| |
my $from = quotemeta($substitution_entry->[0]); |
| |
my $to = $substitution_entry->[1]; |
| |
$text =~ s/$from/$to/g; |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
sub t2h_add_text_substitutions($$$$$) |
| |
{ |
| |
my $entry = shift; |
| |
my $in_normal = shift; |
| |
my $in_raw_text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_simple = shift; |
| |
|
| |
my @formats_to_be_done = ($in_normal, $in_raw_text, $in_preformatted, $in_simple); |
| |
|
| |
for (my $index = 0; $index < scalar(@formats_to_be_done); $index++) |
| |
{ |
| |
next unless ($formats_to_be_done[$index]); |
| |
my @args = (0, 0, 0); |
| |
my $found = 0; |
| |
$args[$index -1] = 1 if ($index > 0); |
| |
my $substitutions = &t2h_default_select_substitution(@args); |
| |
foreach my $substitution_entry (@$substitutions) |
| |
{ |
| |
if ($substitution_entry->[0] eq $entry->[0]) |
| |
{ |
| |
$found = 1; |
| |
$substitution_entry->[1] = $entry->[1]; |
| |
} |
| |
} |
| |
push @$substitutions, $entry unless ($found); |
| |
} |
| |
} |
| |
|
| |
sub t2h_remove_text_substitutions($$$$$) |
| |
{ |
| |
my $entry = shift; |
| |
my $in_normal = shift; |
| |
my $in_raw_text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_simple = shift; |
| |
|
| |
my @formats_to_be_done = ($in_normal, $in_raw_text, $in_preformatted, $in_simple); |
| |
|
| |
for (my $index = 0; $index < scalar(@formats_to_be_done); $index++) |
| |
{ |
| |
next unless ($formats_to_be_done[$index]); |
| |
my @args = (0, 0, 0); |
| |
$args[$index -1] = 1 if ($index > 0); |
| |
my $substitutions = &t2h_default_select_substitution(@args); |
| |
|
| |
@$substitutions = grep {$_->[0] ne $entry} @$substitutions; |
| |
} |
| |
} |
| |
|
| |
|
| |
%unicode_diacritical = ( |
| |
'H' => '030B', |
| |
'ringaccent' => '030A', |
| |
"'" => '0301', |
| |
'v' => '030C', |
| |
',' => '0327', |
| |
'^' => '0302', |
| |
'dotaccent' => '0307', |
| |
'`' => '0300', |
| |
'=' => '0304', |
| |
'~' => '0303', |
| |
'"' => '0308', |
| |
'udotaccent' => '0323', |
| |
'ubaraccent' => '0332', |
| |
'u' => '0306', |
| |
'tieaccent' => '0361', |
| |
'ogonek' => '0328' |
| |
); |
| |
|
| |
%unicode_accents = ( |
| |
'dotaccent' => { # dot above |
| |
'A' => '0226', #C moz-1.2 |
| |
'a' => '0227', #c moz-1.2 |
| |
'B' => '1E02', |
| |
'b' => '1E03', |
| |
'C' => '010A', |
| |
'c' => '010B', |
| |
'D' => '1E0A', |
| |
'd' => '1E0B', |
| |
'E' => '0116', |
| |
'e' => '0117', |
| |
'F' => '1E1E', |
| |
'f' => '1E1F', |
| |
'G' => '0120', |
| |
'g' => '0121', |
| |
'H' => '1E22', |
| |
'h' => '1E23', |
| |
'i' => '0069', |
| |
'I' => '0130', |
| |
'N' => '1E44', |
| |
'n' => '1E45', |
| |
'O' => '022E', #Y moz-1.2 |
| |
'o' => '022F', #v moz-1.2 |
| |
'P' => '1E56', |
| |
'p' => '1E57', |
| |
'R' => '1E58', |
| |
'r' => '1E59', |
| |
'S' => '1E60', |
| |
's' => '1E61', |
| |
'T' => '1E6A', |
| |
't' => '1E6B', |
| |
'W' => '1E86', |
| |
'w' => '1E87', |
| |
'X' => '1E8A', |
| |
'x' => '1E8B', |
| |
'Y' => '1E8E', |
| |
'y' => '1E8F', |
| |
'Z' => '017B', |
| |
'z' => '017C', |
| |
}, |
| |
'udotaccent' => { # dot below |
| |
'A' => '1EA0', |
| |
'a' => '1EA1', |
| |
'B' => '1E04', |
| |
'b' => '1E05', |
| |
'D' => '1E0C', |
| |
'd' => '1E0D', |
| |
'E' => '1EB8', |
| |
'e' => '1EB9', |
| |
'H' => '1E24', |
| |
'h' => '1E25', |
| |
'I' => '1ECA', |
| |
'i' => '1ECB', |
| |
'K' => '1E32', |
| |
'k' => '1E33', |
| |
'L' => '1E36', |
| |
'l' => '1E37', |
| |
'M' => '1E42', |
| |
'm' => '1E43', |
| |
'N' => '1E46', |
| |
'n' => '1E47', |
| |
'O' => '1ECC', |
| |
'o' => '1ECD', |
| |
'R' => '1E5A', |
| |
'r' => '1E5B', |
| |
'S' => '1E62', |
| |
's' => '1E63', |
| |
'T' => '1E6C', |
| |
't' => '1E6D', |
| |
'U' => '1EE4', |
| |
'u' => '1EE5', |
| |
'V' => '1E7E', |
| |
'v' => '1E7F', |
| |
'W' => '1E88', |
| |
'w' => '1E89', |
| |
'Y' => '1EF4', |
| |
'y' => '1EF5', |
| |
'Z' => '1E92', |
| |
'z' => '1E93', |
| |
}, |
| |
'ubaraccent' => { # line below |
| |
'B' => '1E06', |
| |
'b' => '1E07', |
| |
'D' => '1E0E', |
| |
'd' => '1E0F', |
| |
'h' => '1E96', |
| |
'K' => '1E34', |
| |
'k' => '1E35', |
| |
'L' => '1E3A', |
| |
'l' => '1E3B', |
| |
'N' => '1E48', |
| |
'n' => '1E49', |
| |
'R' => '1E5E', |
| |
'r' => '1E5F', |
| |
'T' => '1E6E', |
| |
't' => '1E6F', |
| |
'Z' => '1E94', |
| |
'z' => '1E95', |
| |
}, |
| |
',' => { # cedilla |
| |
'C' => '00C7', |
| |
'c' => '00E7', |
| |
'D' => '1E10', |
| |
'd' => '1E11', |
| |
'E' => '0228', #C moz-1.2 |
| |
'e' => '0229', #c moz-1.2 |
| |
'G' => '0122', |
| |
'g' => '0123', |
| |
'H' => '1E28', |
| |
'h' => '1E29', |
| |
'K' => '0136', |
| |
'k' => '0137', |
| |
'L' => '013B', |
| |
'l' => '013C', |
| |
'N' => '0145', |
| |
'n' => '0146', |
| |
'R' => '0156', |
| |
'r' => '0157', |
| |
'S' => '015E', |
| |
's' => '015F', |
| |
'T' => '0162', |
| |
't' => '0163', |
| |
}, |
| |
'=' => { # macron |
| |
'A' => '0100', |
| |
'a' => '0101', |
| |
'E' => '0112', |
| |
'e' => '0113', |
| |
'I' => '012A', |
| |
'i' => '012B', |
| |
'G' => '1E20', |
| |
'g' => '1E21', |
| |
'O' => '014C', |
| |
'o' => '014D', |
| |
'U' => '016A', |
| |
'u' => '016B', |
| |
'Y' => '0232', #? moz-1.2 |
| |
'y' => '0233', #? moz-1.2 |
| |
}, |
| |
'"' => { # diaeresis |
| |
'A' => '00C4', |
| |
'a' => '00E4', |
| |
'E' => '00CB', |
| |
'e' => '00EB', |
| |
'H' => '1E26', |
| |
'h' => '1E27', |
| |
'I' => '00CF', |
| |
'i' => '00EF', |
| |
'O' => '00D6', |
| |
'o' => '00F6', |
| |
't' => '1E97', |
| |
'U' => '00DC', |
| |
'u' => '00FC', |
| |
'W' => '1E84', |
| |
'w' => '1E85', |
| |
'X' => '1E8C', |
| |
'x' => '1E8D', |
| |
'y' => '00FF', |
| |
'Y' => '0178', |
| |
}, |
| |
'u' => { # breve |
| |
'A' => '0102', |
| |
'a' => '0103', |
| |
'E' => '0114', |
| |
'e' => '0115', |
| |
'G' => '011E', |
| |
'g' => '011F', |
| |
'I' => '012C', |
| |
'i' => '012D', |
| |
'O' => '014E', |
| |
'o' => '014F', |
| |
'U' => '016C', |
| |
'u' => '016D', |
| |
}, |
| |
"'" => { # acute |
| |
'A' => '00C1', |
| |
'a' => '00E1', |
| |
'C' => '0106', |
| |
'c' => '0107', |
| |
'E' => '00C9', |
| |
'e' => '00E9', |
| |
'G' => '01F4', |
| |
'g' => '01F5', |
| |
'I' => '00CD', |
| |
'i' => '00ED', |
| |
'K' => '1E30', |
| |
'k' => '1E31', |
| |
'L' => '0139', |
| |
'l' => '013A', |
| |
'M' => '1E3E', |
| |
'm' => '1E3F', |
| |
'N' => '0143', |
| |
'n' => '0144', |
| |
'O' => '00D3', |
| |
'o' => '00F3', |
| |
'P' => '1E54', |
| |
'p' => '1E55', |
| |
'R' => '0154', |
| |
'r' => '0155', |
| |
'S' => '015A', |
| |
's' => '015B', |
| |
'U' => '00DA', |
| |
'u' => '00FA', |
| |
'W' => '1E82', |
| |
'w' => '1E83', |
| |
'Y' => '00DD', |
| |
'y' => '00FD', |
| |
'Z' => '0179', |
| |
'z' => '018A', |
| |
}, |
| |
'~' => { # tilde |
| |
'A' => '00C3', |
| |
'a' => '00E3', |
| |
'E' => '1EBC', |
| |
'e' => '1EBD', |
| |
'I' => '0128', |
| |
'i' => '0129', |
| |
'N' => '00D1', |
| |
'n' => '00F1', |
| |
'O' => '00D5', |
| |
'o' => '00F5', |
| |
'U' => '0168', |
| |
'u' => '0169', |
| |
'V' => '1E7C', |
| |
'v' => '1E7D', |
| |
'Y' => '1EF8', |
| |
'y' => '1EF9', |
| |
}, |
| |
'`' => { # grave |
| |
'A' => '00C0', |
| |
'a' => '00E0', |
| |
'E' => '00C8', |
| |
'e' => '00E8', |
| |
'I' => '00CC', |
| |
'i' => '00EC', |
| |
'N' => '01F8', |
| |
'n' => '01F9', |
| |
'O' => '00D2', |
| |
'o' => '00F2', |
| |
'U' => '00D9', |
| |
'u' => '00F9', |
| |
'W' => '1E80', |
| |
'w' => '1E81', |
| |
'Y' => '1EF2', |
| |
'y' => '1EF3', |
| |
}, |
| |
'^' => { # circumflex |
| |
'A' => '00C2', |
| |
'a' => '00E2', |
| |
'C' => '0108', |
| |
'c' => '0109', |
| |
'E' => '00CA', |
| |
'e' => '00EA', |
| |
'G' => '011C', |
| |
'g' => '011D', |
| |
'H' => '0124', |
| |
'h' => '0125', |
| |
'I' => '00CE', |
| |
'i' => '00EE', |
| |
'J' => '0134', |
| |
'j' => '0135', |
| |
'O' => '00D4', |
| |
'o' => '00F4', |
| |
'S' => '015C', |
| |
's' => '015D', |
| |
'U' => '00DB', |
| |
'u' => '00FB', |
| |
'W' => '0174', |
| |
'w' => '0175', |
| |
'Y' => '0176', |
| |
'y' => '0177', |
| |
'Z' => '1E90', |
| |
'z' => '1E91', |
| |
}, |
| |
'ringaccent' => { # ring |
| |
'A' => '00C5', |
| |
'a' => '00E5', |
| |
'U' => '016E', |
| |
'u' => '016F', |
| |
'w' => '1E98', |
| |
'y' => '1E99', |
| |
}, |
| |
'v' => { # caron |
| |
'A' => '01CD', |
| |
'a' => '01CE', |
| |
'C' => '010C', |
| |
'c' => '010D', |
| |
'D' => '010E', |
| |
'd' => '010F', |
| |
'E' => '011A', |
| |
'e' => '011B', |
| |
'G' => '01E6', |
| |
'g' => '01E7', |
| |
'H' => '021E', #K with moz-1.2 |
| |
'h' => '021F', #k with moz-1.2 |
| |
'I' => '01CF', |
| |
'i' => '01D0', |
| |
'K' => '01E8', |
| |
'k' => '01E9', |
| |
'L' => '013D', #L' with moz-1.2 |
| |
'l' => '013E', #l' with moz-1.2 |
| |
'N' => '0147', |
| |
'n' => '0148', |
| |
'O' => '01D1', |
| |
'o' => '01D2', |
| |
'R' => '0158', |
| |
'r' => '0159', |
| |
'S' => '0160', |
| |
's' => '0161', |
| |
'T' => '0164', |
| |
't' => '0165', |
| |
'U' => '01D3', |
| |
'u' => '01D4', |
| |
'Z' => '017D', |
| |
'z' => '017E', |
| |
}, |
| |
'H' => { # double acute |
| |
'O' => '0150', |
| |
'o' => '0151', |
| |
'U' => '0170', |
| |
'u' => '0171', |
| |
}, |
| |
'ogonek' => { |
| |
'A' => '0104', |
| |
'a' => '0105', |
| |
'E' => '0118', |
| |
'e' => '0119', |
| |
'I' => '012E', |
| |
'i' => '012F', |
| |
'U' => '0172', |
| |
'u' => '0173', |
| |
'O' => '01EA', |
| |
'o' => '01EB', |
| |
}, |
| |
); |
| |
|
| |
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents)) |
| |
{ |
| |
$style_map{$accent_command} = { 'function' => \&t2h_default_accent }; |
| |
$old_style_map{$accent_command} = '&default_accent'; |
| |
$style_map_texi{$accent_command} = { 'function' => \&t2h_default_accent }; |
| |
} |
| |
|
| |
|
| |
%transliterate_accent_map = (); |
| |
foreach my $command (keys(%unicode_accents)) |
| |
{ |
| |
foreach my $letter(keys (%{$unicode_accents{$command}})) |
| |
{ |
| |
$transliterate_accent_map{$unicode_accents{$command}->{$letter}} |
| |
= $letter |
| |
unless (exists($transliterate_map{$unicode_accents{$command}->{$letter}})); |
| |
} |
| |
} |
| |
|
| |
sub default_accent($$) |
| |
{ |
| |
my $text = shift; |
| |
my $accent = shift; |
| |
return "&${text}$accent_map{$accent};" if (defined($accent_map{$accent}) and defined($special_accents{$accent}) and ($text =~ /^[$special_accents{$accent}]$/)); |
| |
return '&' . $text . 'ring;' if (($accent eq 'ringaccent') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/)); |
| |
return $text . '<' if ($accent eq 'v'); |
| |
return ascii_accents($text, $accent); |
| |
} |
| |
|
| |
sub t2h_default_accent($$) |
| |
{ |
| |
my $accent = shift; |
| |
my $args = shift; |
| |
|
| |
my $text = $args->[0]; |
| |
|
| |
return ascii_accents($text, $accent); |
| |
} |
| |
|
| |
#################################################################### |
| |
# special accent/encoding commands |
| # |
# |
| # texinfo format (@foo/@end foo) to HTML ones |
# Some functions used to override normal formatting functions in specific |
| |
# cases. The user shouldn't want to change them, but can use them. |
| # |
# |
| |
|
| |
sub ascii_accents($$) |
| |
{ |
| |
my $text = shift; |
| |
my $accent = shift; |
| |
return $text if ($accent eq 'dotless'); |
| |
return $text . "''" if ($accent eq 'H'); |
| |
return $text . '.' if ($accent eq 'dotaccent'); |
| |
return $text . '*' if ($accent eq 'ringaccent'); |
| |
return $text . '[' if ($accent eq 'tieaccent'); |
| |
return $text . '(' if ($accent eq 'u'); |
| |
return $text . '_' if ($accent eq 'ubaraccent'); |
| |
return '.' . $text if ($accent eq 'udotaccent'); |
| |
return $text . '<' if ($accent eq 'v'); |
| |
return $text . ';' if ($accent eq 'ogonek'); |
| |
return $text . $accent if (defined($accent_map{$accent})); |
| |
} |
| |
|
| |
sub xml_default_accent($$) |
| |
{ |
| |
my $accent = shift; |
| |
my $args = shift; |
| |
|
| |
my $text = $args->[0]; |
| |
|
| |
return "&${text}$accent_map{$accent};" if (defined($accent_map{$accent}) and defined($special_accents{$accent}) and ($text =~ /^[$special_accents{$accent}]$/)); |
| |
return '&' . $text . 'ring;' if (($accent eq 'ringaccent') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/)); |
| |
return $text . '<' if ($accent eq 'v'); |
| |
# FIXME here there could be a conversion to the character in the right |
| |
# encoding, like |
| |
# if ($USE_UNICODE and defined($OUT_ENCODING) and $OUT_ENCODING ne '' |
| |
# and exists($unicode_accents{$accent}) and exists($unicode_accents{$accent}->{$text})) |
| |
# { |
| |
# my $encoded_char = Encode::encode($OUT_ENCODING, chr(hex($unicode_map{$thing})), Encode::FB_QUIET); |
| |
# return $encoded_char if ($encoded_char ne ''); |
| |
# } |
| |
if ($USE_NUMERIC_ENTITY) |
| |
{ |
| |
if (exists($unicode_accents{$accent}) and exists($unicode_accents{$accent}->{$text})) |
| |
{ |
| |
return ('&#' . hex($unicode_accents{$accent}->{$text}) . ';'); |
| |
} |
| |
} |
| |
return ascii_accents($text, $accent); |
| |
} |
| |
|
| |
# used to utf8 encode the result |
| |
sub t2h_utf8_accent($$$) |
| |
{ |
| |
my $accent = shift; |
| |
my $args = shift; |
| |
my $style_stack = shift; |
| |
|
| |
my $text = $args->[0]; |
| |
#print STDERR "$accent\[".scalar(@$style_stack) ."\] (@$style_stack)\n"; |
| |
|
| |
# special handling of @dotless{i} |
| |
if ($accent eq 'dotless') |
| |
{ |
| |
if (($text eq 'i') and (!defined($style_stack->[-1]) or (!defined($unicode_accents{$style_stack->[-1]})) or ($style_stack->[-1] eq 'tieaccent'))) |
| |
{ |
| |
return "\x{0131}"; |
| |
} |
| |
#return "\x{}" if ($text eq 'j'); # not found ! |
| |
return $text; |
| |
} |
| |
|
| |
# FIXME \x{0131}\x{0308} for @dotless{i} @" doesn't lead to NFC 00ef. |
| |
return Unicode::Normalize::NFC($text . chr(hex($unicode_diacritical{$accent}))) |
| |
if (defined($unicode_diacritical{$accent})); |
| |
return ascii_accents($text, $accent); |
| |
} |
| |
|
| |
sub t2h_utf8_normal_text($$$$$$$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $in_raw_text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_code = shift; |
| |
my $in_math = shift; |
| |
my $in_simple = shift; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
$text = &$protect_text($text) unless($in_raw_text); |
| |
$text = uc($text) if (in_small_caps($style_stack)); |
| |
|
| |
if (!$in_code and !$in_preformatted) |
| |
{ |
| |
$text =~ s/---/\x{2014}/g; |
| |
$text =~ s/--/\x{2013}/g; |
| |
$text =~ s/``/\x{201C}/g; |
| |
$text =~ s/''/\x{201D}/g; |
| |
} |
| |
$text = t2h_text_substitutions($text, $in_raw_text, ($in_preformatted or $in_code), $in_simple); |
| |
return Unicode::Normalize::NFC($text); |
| |
} |
| |
|
| |
sub t2h_enable_encoding_normal_accent($$$) |
| |
{ |
| |
return t2h_enable_encoding_accent ('normal', @_); |
| |
} |
| |
sub t2h_enable_encoding_texi_accent($$$) |
| |
{ |
| |
return t2h_enable_encoding_accent ('texi', @_); |
| |
} |
| |
sub t2h_enable_encoding_pre_accent($$$) |
| |
{ |
| |
return t2h_enable_encoding_accent ('pre', @_); |
| |
} |
| |
|
| |
sub t2h_enable_encoding_accent($$$$) |
| |
{ |
| |
my $context = shift; |
| |
my @other_args = @_; |
| |
|
| |
my $accent = shift; |
| |
my $args = shift; |
| |
my $style_stack = shift; |
| |
my $text = $args->[0]; |
| |
|
| |
#print STDERR "enable_encoding_accent called($context) $accent (@$style_stack)\n"; |
| |
|
| |
# in case ENCODING_NAME is not known, the accent functions saved previously |
| |
# are used. |
| |
# This should happen rarely, like during @setfilename parsing. |
| |
return &{$t2h_enable_encoding_default_accent{$context}->{$accent}}(@other_args) if (!defined($Texi2HTML::THISDOC{'ENCODING_NAME'})); |
| |
|
| |
return t2h_utf8_accent($accent,[$text],$style_stack) if ($Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8'); |
| |
|
| |
# use the saved default handling if this is not a known 8 bit encoding |
| |
return &{$t2h_enable_encoding_default_accent{$context}->{$accent}}(@other_args) if (!exists($makeinfo_encoding_to_map{$Texi2HTML::THISDOC{'ENCODING_NAME'}})); |
| |
|
| |
# the following is for the handling of known 8 bit encodings. |
| |
if (scalar(@t2h_enable_encoding_accents_stack)) |
| |
{ |
| |
# in that case, we already have a result ready that corresponds with the |
| |
# formatting of a part of the stack mapped to |
| |
# t2h_enable_encoding_accents_stack, so it is emptied and the innermost |
| |
# $text is returned as is, such that the unmodified already formatted |
| |
# innermost formatted accented text is returned. |
| |
|
| |
#print STDERR " doing nothing, still in stack (@t2h_enable_encoding_accents_stack), accent: $accent"; |
| |
my $stack_accent = shift @t2h_enable_encoding_accents_stack; |
| |
#print STDERR " stack_accent $stack_accent\n"; |
| |
return $text; |
| |
} |
| |
|
| |
# in that case there is no t2h_enable_encoding_accents_stack, so we are |
| |
# at the closing of the innermost accented command. We will try to format |
| |
# all the stack in reverse(@$style_stack) that coresponds with |
| |
# accent commands |
| |
my @accents_stack = (); |
| |
my @styles = reverse(@$style_stack); |
| |
|
| |
# accents are formatted and the intermediate results are kept, such |
| |
# that we can return the maximum of multiaccented letters that can be |
| |
# rendered with a given eight bit formatting. |
| |
|
| |
# first put the letter in the stack |
| |
my @utf8_partial_results = { 'result' => $text, |
| |
'accents_stack' => [ @accents_stack ]}; |
| |
|
| |
# then the accent that is associated with the function call |
| |
my $current_accent = t2h_utf8_accent($accent,[$text],$style_stack); |
| |
@accents_stack = ($accent); |
| |
push @utf8_partial_results, { 'result' => $current_accent, |
| |
'accents_stack' => [ @accents_stack ]}; |
| |
|
| |
# and then all the other accents on the stack |
| |
while (scalar(@styles) and (defined($unicode_accents{$styles[0]}) or $styles[0] eq 'dotless')) |
| |
{ |
| |
my $next_style = shift @styles; |
| |
my @new_stack = reverse(@styles); |
| |
$current_accent = t2h_utf8_accent($next_style,[$current_accent],\@new_stack); |
| |
push @accents_stack, $next_style; |
| |
push @utf8_partial_results, { 'result' => $current_accent, |
| |
'accents_stack' => [ @accents_stack ]} |
| |
; |
| |
} |
| |
|
| |
my $enc_map = $makeinfo_encoding_to_map{$Texi2HTML::THISDOC{'ENCODING_NAME'}}; |
| |
my $eight_bit; |
| |
my $result; |
| |
# At this point we have the utf8 encoded results for the accent |
| |
# commands stack, with all the intermediate results. |
| |
# For each one we'll check if it is possible to encode it in the |
| |
# current eight bit output encoding table |
| |
foreach my $partial_result (@utf8_partial_results) |
| |
{ |
| |
my $char = $partial_result->{'result'}; |
| |
my $new_eight_bit = ''; |
| |
my $new_codepoint; |
| |
|
| |
if (ord($char) <= 128) |
| |
{ |
| |
$new_eight_bit = uc(sprintf("%02x",ord($char))); |
| |
$new_codepoint = uc(sprintf("%04x",ord($char))); |
| |
} |
| |
elsif (ord($char) <= hex(0xFFFF)) |
| |
{ |
| |
$new_codepoint = uc(sprintf("%04x",ord($char))); |
| |
if (exists($makeinfo_unicode_to_eight_bit{$enc_map}->{$new_codepoint})) |
| |
{ |
| |
$new_eight_bit = $makeinfo_unicode_to_eight_bit{$enc_map}->{$new_codepoint}; |
| |
} |
| |
} |
| |
#my $eight_bit_txt = 'undef'; |
| |
#$eight_bit_txt = $eight_bit if (defined($eight_bit)); |
| |
#print STDERR "" . Encode::encode('utf8', "$char") . " (@{$partial_result->{'accents_stack'}}), new_codepoint: $new_codepoint 8bit: $new_eight_bit old:$eight_bit_txt\n"; |
| |
# no corresponding eight bit character found |
| |
last if ($new_eight_bit eq ''); |
| |
|
| |
# in that case, the new eight bit character is the same than the one |
| |
# found with one less character (and it isnt a @dotless{i}). It may |
| |
# mean 2 things |
| |
# -> there are 2 characters in accent. This could happen, for example |
| |
# if an accent that cannot be rendered is found and it leads to |
| |
# appending or prepending a character. For example this happens for |
| |
# @={@,{@~{n}}}, where @,{@~{n}} is expanded to a 2 character: |
| |
# n with a tilde, followed by a , |
| |
# In nthat case, the additional utf8 accent is prepended, which |
| |
# means that it is composed with the , and leaves n with a tilde |
| |
# untouched. |
| |
# -> ord(char) leads to the same for the more inner character. |
| |
# this, for example, happens for @ubaraccent{a}, where ord(a) is |
| |
# the same than ord(a with underbar). |
| |
last if (defined($eight_bit) and (($new_eight_bit eq $eight_bit) |
| |
and !($partial_result->{'accents_stack'}[0] eq 'dotless' and $char eq 'i'))); |
| |
$result = $partial_result; |
| |
$eight_bit = $new_eight_bit; |
| |
} |
| |
if (defined($result) and scalar(@{$result->{'accents_stack'}})) |
| |
{ |
| |
# we got a result, return it and put in t2h_enable_encoding_accents_stack |
| |
# the stack of accent commands that were processed. They wont be used |
| |
# further, but only unshifted. |
| |
|
| |
#print STDERR "Result: ".Encode::encode('utf8', $result->{'result'}) ." '$eight_bit' (@{$result->{'accents_stack'}})\n" if defined($result); |
| |
@t2h_enable_encoding_accents_stack = @{$result->{'accents_stack'}}; |
| |
# remove the first, it is the accent being processed |
| |
shift @t2h_enable_encoding_accents_stack; |
| |
# it should be noted that we return the 'utf8' accent (which is really |
| |
# a codepoint, and not the eight bit representation, we leave the |
| |
# conversion to perl, which should handle it fine |
| |
return $result->{'result'}; |
| |
} |
| |
|
| |
return &{$t2h_enable_encoding_default_accent{$context}->{$accent}}(@other_args); |
| |
} |
| |
|
| |
# end special accent/encoding commands |
| |
#################################################################### |
| |
|
| |
#################################################################### |
| |
# TeX/LaTeX, that can especially be used in @math |
| |
# To load the appropriate hash, use |
| |
# default_load_tex_math |
| |
|
| |
my %tex_default_simple_map_math = ( |
| |
'{' => '\{', |
| |
'}' => '\}', |
| |
'\\' => '\\' |
| |
); |
| |
|
| |
my %tex_default_math_things_map = %default_things_map; |
| |
|
| |
$tex_default_math_things_map{'bullet'} = '\bullet'; |
| |
$tex_default_math_things_map{'copyright'} = '\copyright'; |
| |
$tex_default_math_things_map{'registeredsymbol'} = '\circledR'; |
| |
$tex_default_math_things_map{'dots'} = '\dots'; |
| |
$tex_default_math_things_map{'endots'} = '\dots'; |
| |
$tex_default_math_things_map{'equiv'} = '\equiv'; |
| |
$tex_default_math_things_map{'expansion'} = '\mapsto'; |
| |
$tex_default_math_things_map{'arrow'} = '\rightarrow'; |
| |
$tex_default_math_things_map{'point'} = '\star'; |
| |
$tex_default_math_things_map{'print'} = '\dashv'; |
| |
$tex_default_math_things_map{'result'} = '\Rightarrow'; |
| |
$tex_default_math_things_map{'pounds'} = '\pounds'; |
| |
$tex_default_math_things_map{'geq'} = '\geq'; |
| |
$tex_default_math_things_map{'leq'} = '\leq'; |
| |
$tex_default_math_things_map{'textdegree'} = '^\circ'; |
| |
|
| |
my %latex_default_math_things_map = %tex_default_math_things_map; |
| |
|
| |
$latex_default_math_things_map{'aa'} = '\mathring{a}'; |
| |
$latex_default_math_things_map{'AA'} = '\mathring{A}'; |
| |
|
| |
# FIXME Maybe this should not be there since it is not for math but |
| |
# more for a completly separate format. |
| |
my %latex_default_things_map; |
| |
|
| |
foreach my $thing (keys(%default_things_map)) |
| |
{ |
| |
$latex_default_things_map{$thing} = '\\'.$thing; |
| |
} |
| |
|
| |
$latex_default_things_map{'error'} = '\fbox{error}'; |
| |
$latex_default_things_map{'enddots'} = '\dots\@'; |
| |
$latex_default_things_map{'exclamdown'} = '\textexclamdown'; |
| |
$latex_default_things_map{'questiondown'} = '\textquestiondown'; |
| |
$latex_default_things_map{'tie'} = '~'; |
| |
$latex_default_things_map{'registeredsymbol'} = '\textregistered'; |
| |
$latex_default_things_map{'ordf'} = '\textordfeminine'; |
| |
$latex_default_things_map{'ordm'} = '\textordmasculine'; |
| |
$latex_default_things_map{'guillemetleft'} = '\guillemotleft'; |
| |
$latex_default_things_map{'guillemetright'} = '\guillemotright'; |
| |
|
| |
foreach my $text_prefixed_symbols ('bullet', 'exclamdown', 'questiondown', |
| |
'quotedblleft', 'quotedblright', 'quoteleft', 'quoteright') |
| |
{ |
| |
$latex_default_things_map{$text_prefixed_symbols} = '\text'.$text_prefixed_symbols; |
| |
} |
| |
|
| |
foreach my $math_only ('equiv', 'expansion', 'arrow', 'minus', 'point', |
| |
'print', 'result', 'geq', 'leq') |
| |
{ |
| |
$latex_default_things_map{$math_only} = '$'.$latex_default_math_things_map{$math_only}.'$'; |
| |
} |
| |
|
| |
|
| |
# End TeX/LaTeX |
| |
############################################################# |
| |
|
| |
sub default_sc($$) |
| |
{ |
| |
return uc($_[0]); |
| |
} |
| |
|
| |
sub default_ctrl($$) |
| |
{ |
| |
return "^$_[0]"; |
| |
} |
| |
|
| |
# obsolete, no warning, but noop |
| |
sub t2h_default_ctrl($$$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
#return "^$args->[0]"; |
| |
return "$args->[0]"; |
| |
} |
| |
|
| |
sub default_sc_pre($$) |
| |
{ |
| |
return uc($_[0]); |
| |
} |
| |
|
| |
sub default_titlefont($$) |
| |
{ |
| |
return "<h1 class=\"titlefont\">$_[0]</h1>" if ($_[0] =~ /\S/); |
| |
return ''; |
| |
} |
| |
|
| |
# Return nothing if the text is empty |
| |
sub t2h_default_titlefont($$$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $heading = $args->[0]; |
| |
return '' unless ($heading =~ /\S/); |
| |
return &$heading_text('@titlefont', $heading, 0); |
| |
} |
| |
|
| |
# At some point in time (before 4.7?) according to the texinfo |
| |
# manual, url shouldn't lead to a link but rather be formatted |
| |
# like text. It is now what indicateurl do, url is the same that |
| |
# uref with one arg. If we did like makeinfo did it would have been |
| |
#sub url($$) |
| |
#{ |
| |
# return '<<code>' . $_[0] . '</code>>'; |
| |
#} |
| |
# |
| |
# This is unused, t2h_default_uref is used instead |
| |
sub t2h_default_url ($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $url = shift @$args; |
| |
$url = main::normalise_space($url); |
| |
return '' unless ($url =~ /\S/); |
| |
return t2h_default_url_and_text($url); |
| |
} |
| |
|
| |
sub default_url ($$) |
| |
{ |
| |
my $url = shift; |
| |
my $command = shift; |
| |
$url =~ s/\s*$//; |
| |
$url =~ s/^\s*//; |
| |
return t2h_default_url_and_text($url); |
| |
} |
| |
|
| |
sub default_uref($$) |
| |
{ |
| |
my $arg = shift; |
| |
my $command = shift; |
| |
my ($url, $text, $replacement); |
| |
($url, $text, $replacement) = split /,\s*/, $arg; |
| |
$url =~ s/\s*$//; |
| |
$url =~ s/^\s*//; |
| |
$text = $replacement if (defined($replacement)); |
| |
return t2h_default_url_and_text($url, $text); |
| |
} |
| |
|
| |
sub t2h_default_uref($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $url = shift @$args; |
| |
my $text = shift @$args; |
| |
my $replacement = shift @$args; |
| |
$url = main::normalise_space($url); |
| |
$replacement = '' if (!defined($replacement)); |
| |
$replacement = main::normalise_space($replacement); |
| |
$text = '' if (!defined($text)); |
| |
$text = main::normalise_space($text); |
| |
$text = $replacement if ($replacement ne ''); |
| |
return t2h_default_url_and_text($url, $text); |
| |
} |
| |
|
| |
sub t2h_default_math($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $text = shift @$args; |
| |
return "$text"; |
| |
} |
| |
|
| |
sub default_email($$) |
| |
{ |
| |
my $arg = shift; |
| |
my $command = shift; |
| |
my ($mail, $text); |
| |
($mail, $text) = split /,\s*/, $arg; |
| |
$mail =~ s/\s*$//; |
| |
$mail =~ s/^\s*//; |
| |
return t2h_default_url_and_text("mailto:$mail", $text); |
| |
} |
| |
|
| |
sub t2h_default_email($$) |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $mail = shift @$args; |
| |
my $text = shift @$args; |
| |
$mail = main::normalise_space($mail); |
| |
if (defined($text)) |
| |
{ |
| |
#$text =~ s/^\s*//; |
| |
#$text =~ s/^\s*$//; |
| |
$text = main::normalise_space($text); |
| |
} |
| |
my $mailto = ''; |
| |
$mailto = "mailto:$mail" if ($mail ne ''); |
| |
return t2h_default_url_and_text($mailto, $text); |
| |
} |
| |
|
| |
sub t2h_default_click_normal($$$) |
| |
{ |
| |
return t2h_default_click('normal', @_); |
| |
} |
| |
|
| |
sub t2h_default_click_pre($$$) |
| |
{ |
| |
return t2h_default_click('pre', @_); |
| |
} |
| |
|
| |
sub t2h_default_click_texi($$$) |
| |
{ |
| |
return t2h_default_click('texi', @_); |
| |
} |
| |
|
| |
sub t2h_default_click($$$$$) |
| |
{ |
| |
my $context = shift; |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $arg = shift @$args; |
| |
my $cmd = $Texi2HTML::THISDOC{'clickstyle'}; |
| |
$cmd = 'arrow' if (!defined($cmd) or ($cmd eq '')); |
| |
|
| |
my $hash = \%things_map; |
| |
if ($context eq 'pre') |
| |
{ |
| |
$hash = \%pre_map; |
| |
} |
| |
elsif ($context eq 'texi') |
| |
{ |
| |
$hash = \%texi_map; |
| |
} |
| |
return $hash->{$cmd} . $arg if (exists($hash->{$cmd})); |
| |
return $arg; |
| |
} |
| |
|
| |
sub t2h_default_hyphenation($$) |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $text = shift @$args; |
| |
$text =~ s/^\s*//; |
| |
$text =~ s/\s*$//; |
| |
my @list = split /\s+/, $text; |
| |
foreach my $entry (@list) |
| |
{ |
| |
my $word = $entry; |
| |
$word =~ s/-//g; |
| |
$Texi2HTML::THISDOC{'hyphenation'}->{$word} = $entry; |
| |
} |
| |
} |
| |
|
| |
sub t2h_default_no_texi_email |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $mail = shift @$args; |
| |
my $text = shift @$args; |
| |
$mail = main::normalise_space($mail); |
| |
return $text if (defined($text) and ($text ne '')); |
| |
return $mail; |
| |
} |
| |
|
| |
sub t2h_default_no_texi_image($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $file = $args->[0]; |
| |
$file = main::trim_around_spaces($file); |
| |
return main::substitute_line($file, "\@$command", {'remove_texi' => 1, 'code_style' => 1}); |
| |
} |
| |
|
| |
sub t2h_default_no_texi_acronym_like($$) |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $acronym_texi = $args->[0]; |
| |
return (main::remove_texi($acronym_texi)); |
| |
} |
| |
|
| |
sub t2h_remove_command($$$$) |
| |
{ |
| |
return ''; |
| |
} |
| |
|
| |
# This is used for style in preformatted sections |
| |
my %old_style_map_pre = %old_style_map; |
| |
$old_style_map_pre{'sc'} = '&default_sc_pre'; |
| |
$old_style_map_pre{'titlefont'} = ''; |
| |
|
| |
foreach my $command (keys(%style_map)) |
| |
{ |
| |
$style_map_texi{$command} = {} if (!exists($style_map_texi{$command})); |
| |
$style_map_texi{$command}->{'args'} = [ @{$style_map{$command}->{'args'}} ] |
| |
if (exists($style_map{$command}->{'args'})); |
| |
#print STDERR "COMMAND $command"; |
| |
} |
| |
|
| |
%style_map_pre = (); |
| |
|
| |
t2h_default_copy_style_map(\%style_map, \%style_map_pre); |
| |
|
| |
$style_map_pre{'sc'} = {}; |
| |
$style_map_pre{'titlefont'} = {}; |
| |
$style_map_pre{'click'}->{'function'} = \&t2h_default_click_pre; |
| |
|
| |
$style_map_texi{'sc'} = {}; |
| |
$style_map_texi{'email'}->{'function'} = \&t2h_default_no_texi_email; |
| |
$style_map_texi{'click'}->{'function'} = \&t2h_default_click_texi; |
| |
|
| |
####### special styles. You shouldn't need to change them |
| |
%special_style = ( |
| |
#'xref' => ['keep','normal','normal','keep','normal'], |
| |
'xref' => { 'args' => ['keep','keep','keep','keep','keep'], |
| |
'function' => \&main::do_xref }, |
| |
'ref' => { 'args' => ['keep','keep','keep','keep','keep'], |
| |
'function' => \&main::do_xref }, |
| |
'pxref' => { 'args' => ['keep','keep','keep','keep','keep'], |
| |
'function' => \&main::do_xref }, |
| |
'inforef' => { 'args' => ['keep','keep','keep'], |
| |
'function' => \&main::do_xref }, |
| |
'image' => { 'args' => ['keep','keep','keep','keep','keep'], 'function' => \&main::do_image }, |
| |
'anchor' => { 'args' => ['keep'], 'function' => \&main::do_anchor_label }, |
| |
'footnote' => { 'args' => ['keep'], 'function' => \&main::do_footnote }, |
| |
'shortcaption' => { 'args' => ['keep'], 'function' => \&main::do_caption_shortcaption }, |
| |
'caption' => { 'args' => ['keep'], 'function' => \&main::do_caption_shortcaption }, |
| |
'acronym', {'args' => ['keep','keep'], 'function' => \&main::do_acronym_like}, |
| |
'abbr', {'args' => ['keep','keep'], 'function' => \&main::do_acronym_like}, |
| |
); |
| |
|
| |
# @image is replaced by the first arg in strings |
| |
$style_map_texi{'image'} = { 'args' => ['keep','keep','keep','keep','keep'], |
| |
'function' => \&t2h_default_no_texi_image }; |
| |
|
| |
$style_map_texi{'acronym'} = { 'args' => ['keep','keep'], |
| |
'function' => \&t2h_default_no_texi_acronym_like }; |
| |
$style_map_texi{'abbr'} = { 'args' => ['keep','keep'], |
| |
'function' => \&t2h_default_no_texi_acronym_like }; |
| |
|
| |
foreach my $special (keys(%special_style)) |
| |
{ |
| |
$style_map{$special} = $special_style{$special} |
| |
unless (defined($style_map{$special})); |
| |
$style_map_pre{$special} = $special_style{$special} |
| |
unless (defined($style_map_pre{$special})); |
| |
$style_map_texi{$special} = { 'args' => ['keep'], |
| |
'function' => \&t2h_remove_command } |
| |
unless (defined($style_map_texi{$special})); |
| |
} |
| |
####### end special styles. |
| |
|
| |
|
| |
#foreach my $command (keys(%style_map)) |
| |
#{ |
| |
# print STDERR "STYLE_MAP_TEXI $command($style_map_texi{$command}) "; |
| |
# print STDERR "ARGS $style_map_texi{$command}->{'args'} " if (defined($style_map_texi{$command}->{'args'})); |
| |
# print STDERR "FUN $style_map_texi{$command}->{'function'} " if (defined($style_map_texi{$command}->{'function'})); |
| |
# print STDERR "\n"; |
| |
#} |
| |
|
| |
# uncomment to use the old interface |
| |
#%style_map = %old_style_map; |
| |
#%style_map_pre = %old_style_map_pre; |
| |
|
| |
%simple_format_simple_map_texi = %simple_map_pre; |
| |
%simple_format_texi_map = %pre_map; |
| |
%simple_format_style_map_texi = (); |
| |
|
| |
t2h_default_copy_style_map(\%style_map_texi, \%simple_format_style_map_texi); |
| |
|
| |
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents)) |
| |
{ |
| |
# $simple_format_style_map_texi{$accent_command}->{'args'} = ['normal']; |
| |
$simple_format_style_map_texi{$accent_command}->{'function'} = \&t2h_default_accent; |
| |
} |
| |
|
| |
foreach my $hash (\%style_map, \%style_map_pre, \%style_map_texi, \%simple_format_style_map_texi) |
| |
{ |
| |
foreach my $style (keys(%{$hash})) |
| |
{ |
| |
$hash->{$style}->{'args'} = ['normal'] if (!exists($hash->{$style}->{'args'})); |
| |
} |
| |
} |
| |
|
| |
%default_style_map = (); |
| |
%default_style_map_pre = (); |
| |
%default_style_map_texi = (); |
| |
%default_simple_format_style_map_texi = (); |
| |
|
| |
t2h_default_copy_style_map(\%style_map, \%default_style_map); |
| |
t2h_default_copy_style_map(\%style_map_pre, \%default_style_map_pre); |
| |
t2h_default_copy_style_map(\%style_map_texi, \%default_style_map_texi); |
| |
t2h_default_copy_style_map(\%simple_format_style_map_texi, \%default_simple_format_style_map_texi); |
| |
|
| |
# called here because %default_style_map_texi is used. |
| |
t2h_default_set_variables_default(); |
| |
|
| |
################################################################# |
| |
# TeX/LaTeX styles, that can be used in math |
| |
|
| |
my %default_style_tex_map; |
| |
my %default_style_latex_map; |
| |
|
| |
t2h_default_copy_style_map(\%default_style_map, \%default_style_tex_map); |
| |
t2h_default_copy_style_map(\%default_style_map, \%default_style_latex_map); |
| |
|
| |
# common in TeX and LaTeX and both for math and normal text |
| |
|
| |
$default_style_latex_map{'w'}->{'inline_begin'} = '\mbox{'; |
| |
$default_style_tex_map{'w'}->{'inline_begin'} = '\mbox{'; |
| |
$default_style_latex_map{'dmn'}->{'inline_begin'} = '{\thinspace '; |
| |
$default_style_tex_map{'dmn'}->{'inline_begin'} = '{\thinspace '; |
| |
|
| |
my %default_style_latex_math_map; |
| |
|
| |
t2h_default_copy_style_map(\%default_style_latex_map, \%default_style_latex_math_map); |
| |
|
| |
my %default_tex_latex_map = ( |
| |
'bf' => [ 'b', 'strong' ], |
| |
'tt' => [ 'code', 'command', 'env', 'file', 'option', 'samp', 't' ], |
| |
'it' => [ 'i', 'var', 'emph' ], |
| |
'sf' => [ 'sanserif' ], |
| |
'rm' => [ 'r' ], |
| |
'sl' => [ 'dfn', 'slanted' ], |
| |
); |
| |
|
| |
foreach my $style (keys (%default_tex_latex_map)) |
| |
{ |
| |
foreach my $command (@{$default_tex_latex_map{$style}}) |
| |
{ |
| |
$default_style_tex_map{$command}->{'inline_begin'} = '{\\' . $style .' '; |
| |
$default_style_latex_map{$command}->{'inline_begin'} = '\text' . $style .'{'; |
| |
$style = 'normal' if ($style eq 'sl'); |
| |
$default_style_latex_math_map{$command}->{'inline_begin'} = '\math' . $style .'{'; |
| |
} |
| |
} |
| |
|
| |
# only in text |
| |
|
| |
$default_style_latex_map{'emph'}->{'inline_begin'} = '\emph{'; |
| |
$default_style_latex_map{'var'}->{'inline_begin'} = '\emph{'; |
| |
$default_style_latex_map{'sc'}->{'inline_begin'} = '\textsc{'; |
| |
|
| |
foreach my $hash (\%default_style_tex_map, \%default_style_latex_map, \%default_style_latex_math_map) |
| |
{ |
| |
foreach my $command (keys(%$hash)) |
| |
{ |
| |
$hash->{$command}->{'inline_end'} = '}' if ($hash->{$command}->{'inline_begin'}); |
| |
} |
| |
} |
| |
|
| |
# no kbd key sc in math |
| |
# 'kbd' - ? |
| |
# 'key' - ? |
| |
|
| |
my %default_style_tex_math_map; |
| |
|
| |
t2h_default_copy_style_map(\%default_style_tex_map, \%default_style_tex_math_map); |
| |
|
| |
# We don't want to override special commands in math mode for now, as long |
| |
# as they are not handled especially. Also we don't want to modify the math |
| |
# function, it is called to close the @math command and we don't want |
| |
# it to be the turned to the default one when calling |
| |
# FIXME maybe it would be even better not to duplicate default styles in |
| |
# math, like 'email', 'uref'.... |
| |
foreach my $command (keys(%special_style), 'math') |
| |
{ |
| |
delete $default_style_tex_math_map{$command}; |
| |
delete $default_style_latex_math_map{$command}; |
| |
} |
| |
|
| |
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents)) |
| |
{ |
| |
$default_style_latex_map{$accent_command} = { 'function' => \&default_tex_accent }; |
| |
$default_style_tex_map{$accent_command} = { 'function' => \&default_tex_accent }; |
| |
$default_style_tex_math_map{$accent_command} = { 'function' => \&default_tex_math_accent }; |
| |
$default_style_latex_math_map{$accent_command} = { 'function' => \&default_latex_math_accent }; |
| |
} |
| |
|
| |
my %tex_text_accent_map = ( |
| |
',' => 'c', |
| |
'ringaccent' => 'r', |
| |
'dotaccent' => '.', |
| |
'ubaraccent' => 'b', |
| |
'udotaccent' => 'd', |
| |
'ogonek' => 'k', |
| |
'tieaccent' => 'tie', |
| |
); |
| |
|
| |
sub default_tex_accent($$) |
| |
{ |
| |
my $text = shift; |
| |
my $accent = shift; |
| |
return "\\$tex_text_accent_map{$accent}\{$text\}" if ($tex_text_accent_map{$accent}); |
| |
if ($accent eq 'dotless') |
| |
{ |
| |
return "\\$text" if ($text eq 'i' or $text eq 'j'); |
| |
return $text; |
| |
} |
| |
return "\\$accent\{$text\}"; |
| |
} |
| |
|
| |
my %tex_math_accent_map = ( |
| |
"'" => 'acute', |
| |
'^' => 'hat', |
| |
'`' => 'grave', |
| |
'~' => 'tilde', |
| |
'"' => 'ddot', |
| |
'=' => 'bar', |
| |
'dotaccent' => 'dot', |
| |
'u' => 'breve', |
| |
'ubaraccent' => 'underline', |
| |
); |
| |
|
| |
sub default_latex_math_accent($$) |
| |
{ |
| |
my $text = shift; |
| |
my $accent = shift; |
| |
return '\mathring{'.$text.'}' if ($accent eq 'ringaccent'); |
| |
return default_tex_math_accent($text, $accent); |
| |
} |
| |
|
| |
sub default_tex_math_accent($$) |
| |
{ |
| |
my $text = shift; |
| |
my $accent = shift; |
| |
return "\\$tex_text_accent_map{$accent}\{$text\}" if ($tex_text_accent_map{$accent}); |
| |
if ($accent eq 'dotless') |
| |
{ |
| |
return "\\${text}math" if ($text eq 'i' or $text eq 'j'); |
| |
return $text; |
| |
} |
| |
return ascii_accent($text, $accent); |
| |
} |
| |
|
| |
my $kept_normal_text; |
| |
|
| |
# We assume that in @math the TeX characters have already been |
| |
# rightly protected and so don't protect once more. |
| |
sub default_tex_normal_math_text($$$$$$$;$) |
| |
{ |
| |
my @initial_args = @_; |
| |
my $text = shift; |
| |
my $in_raw_text = shift; # remove_texi |
| |
my $in_preformatted = shift; |
| |
my $in_code = shift; |
| |
my $in_math = shift; |
| |
my $in_simple = shift; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
# Don't protect text in math |
| |
if ($in_math) |
| |
{ |
| |
$text = uc($text) if (in_cmd($style_stack, 'sc')); |
| |
return $text; |
| |
} |
| |
return &kept_normal_text(@initial_args); |
| |
} |
| |
|
| |
# This is the entry point to be used by users. |
| |
sub default_load_tex_math(;$) |
| |
{ |
| |
my $style = shift; |
| |
$style = 'latex' if (!defined($style)); |
| |
%simple_map_math = %tex_default_simple_map_math; |
| |
if ($style eq 'tex') |
| |
{ |
| |
%math_map = %tex_default_math_things_map; |
| |
t2h_default_copy_style_map(\%default_style_tex_math_map, \%style_map_math); |
| |
} |
| |
else |
| |
{ |
| |
%math_map = %latex_default_math_things_map; |
| |
t2h_default_copy_style_map(\%default_style_latex_math_map, \%style_map_math); |
| |
} |
| |
$kept_normal_text = $normal_text; |
| |
$normal_text = \&default_tex_normal_math_text; |
| |
} |
| |
|
| |
# End TeX/LaTeX styles |
| |
################################################################# |
| |
|
| |
# regions expanded or not depending on the value of this hash. |
| |
# @EXPAND sets entries in this hash, and you should better use |
| |
# @EXPAND unless you know what you are doing. |
| |
%texi_formats_map = ( |
| |
'iftex' => 0, |
| |
'ignore' => 0, |
| |
'menu' => 0, |
| |
'ifplaintext' => 0, |
| |
'ifinfo' => 0, |
| |
'ifxml' => 0, |
| |
'ifhtml' => 0, |
| |
'ifdocbook' => 0, |
| |
# 'html' => 0, |
| |
# 'tex' => 0, |
| |
# 'xml' => 0, |
| |
# 'docbook' => 0, |
| |
'titlepage' => 1, |
| |
'documentdescription' => 1, |
| |
'copying' => 1, |
| |
'ifnothtml' => 1, |
| |
'ifnottex' => 1, |
| |
'ifnotplaintext' => 1, |
| |
'ifnotinfo' => 1, |
| |
'ifnotxml' => 1, |
| |
'ifnotdocbook' => 1, |
| |
'direntry' => 'normal', |
| |
'verbatim' => 'raw', |
| |
'macro' => 'raw', |
| |
'ifclear' => 'value', |
| |
'ifset' => 'value' , |
| |
); |
| |
|
| %format_map = ( |
%format_map = ( |
| 'display', 'PRE', |
# 'quotation' => 'blockquote', |
| 'example', 'PRE', |
# lists |
| 'format', 'PRE', |
# 'itemize' => 'ul', |
| 'lisp', 'PRE', |
'enumerate' => '', |
| 'quotation', 'BLOCKQUOTE', |
# 'multitable' => 'table', |
| 'smallexample', 'PRE', |
'table' => '', |
| 'smalllisp', 'PRE', |
'vtable' => '', |
| # lists |
'ftable' => '', |
| 'itemize', 'UL', |
'group' => '', |
| 'enumerate', 'OL', |
'raggedright' => '', |
| # poorly supported |
# 'detailmenu' => '', |
| 'flushleft', 'PRE', |
); |
| 'flushright', 'PRE', |
|
| ); |
|
| |
|
| |
%special_list_commands = ( |
| |
'table' => {}, |
| |
'vtable' => {}, |
| |
'ftable' => {}, |
| |
# 'itemize' => { 'bullet' => '' } |
| |
'itemize' => {}, |
| |
); |
| |
|
| |
%inter_item_commands = ( |
| |
'c' => 1, |
| |
'comment' => 1, |
| |
'cindex' => 1 |
| |
); |
| # |
# |
| # texinfo definition shortcuts to real ones |
# texinfo format to align attribute of paragraphs |
| # |
# |
| |
|
| |
%paragraph_style = ( |
| |
'center' => 'center', |
| |
'flushleft' => 'left', |
| |
'flushright' => 'right', |
| |
); |
| |
|
| |
# complex formats (preformatted) |
| |
%complex_format_map = (); |
| |
foreach my $complex_format ('example', 'smallexample', 'display', |
| |
'smalldisplay', 'lisp', 'smalllisp', 'format', 'smallformat', |
| |
'menu', 'detailmenu', 'direntry', 'menu_comment') |
| |
{ |
| |
$complex_format_map{$complex_format} = { 'begin' => '', 'end' => '' }; |
| |
} |
| |
foreach my $code_complex_format ('example', 'smallexample', 'lisp', 'smalllisp') |
| |
{ |
| |
$complex_format_map{$code_complex_format}->{'style'} = 'code'; |
| |
} |
| |
|
| |
# not in code_style, according to post on bug-texinfo |
| |
foreach my $format ('menu', 'detailmenu', 'direntry') |
| |
{ |
| |
$complex_format_map{$format}->{'class'} = 'menu-preformatted'; |
| |
} |
| |
|
| |
# not in code_style, according to post on bug-texinfo |
| |
$complex_format_map{'menu_comment'}->{'class'} = 'menu-comment'; |
| |
|
| %def_map = ( |
%def_map = ( |
| # basic commands |
# basic commands |
| 'deffn', 0, |
'deffn', [ 'f', 'category', 'name', 'arg' ], |
| 'defvr', 0, |
'defvr', [ 'v', 'category', 'name' ], |
| 'deftypefn', 0, |
'deftypefn', [ 'f', 'category', 'type', 'name', 'argtype' ], |
| 'deftypevr', 0, |
'deftypeop', [ 'f', 'category', 'class' , 'type', 'name', 'argtype' ], |
| 'defcv', 0, |
'deftypevr', [ 'v', 'category', 'type', 'name' ], |
| 'defop', 0, |
'defcv', [ 'v', 'category', 'class' , 'name' ], |
| 'deftp', 0, |
'deftypecv', [ 'v', 'category', 'class' , 'type', 'name' ], |
| # basic x commands |
'defop', [ 'f', 'category', 'class' , 'name', 'arg' ], |
| 'deffnx', 0, |
'deftp', [ 't', 'category', 'name', 'argtype' ], |
| 'defvrx', 0, |
# shortcuts |
| 'deftypefnx', 0, |
# FIXME i18n |
| 'deftypevrx', 0, |
'defun', 'deffn Function', |
| 'defcvx', 0, |
'defmac', 'deffn Macro', |
| 'defopx', 0, |
'defspec', 'deffn {Special Form}', |
| 'deftpx', 0, |
'defvar', 'defvr Variable', |
| # shortcuts |
'defopt', 'defvr {User Option}', |
| 'defun', 'deffn Function', |
'deftypefun', 'deftypefn {Function}', |
| 'defmac', 'deffn Macro', |
'deftypevar', 'deftypevr Variable', |
| 'defspec', 'deffn {Special Form}', |
'defivar', 'defcv {Instance Variable}', |
| 'defvar', 'defvr Variable', |
'deftypeivar', 'deftypecv {Instance Variable}', |
| 'defopt', 'defvr {User Option}', |
'defmethod', 'defop Method', |
| 'deftypefun', 'deftypefn Function', |
'deftypemethod', 'deftypeop Method', |
| 'deftypevar', 'deftypevr Variable', |
); |
| 'defivar', 'defcv {Instance Variable}', |
|
| 'defmethod', 'defop Method', |
|
| # x shortcuts |
|
| 'defunx', 'deffnx Function', |
|
| 'defmacx', 'deffnx Macro', |
|
| 'defspecx', 'deffnx {Special Form}', |
|
| 'defvarx', 'defvrx Variable', |
|
| 'defoptx', 'defvrx {User Option}', |
|
| 'deftypefunx', 'deftypefnx Function', |
|
| 'deftypevarx', 'deftypevrx Variable', |
|
| 'defivarx', 'defcvx {Instance Variable}', |
|
| 'defmethodx', 'defopx Method', |
|
| ); |
|
| |
|
| |
$def_always_delimiters = "()[]"; |
| |
$def_in_type_delimiters = ",;"; |
| |
$def_argument_separator_delimiters = "()[],"; |
| |
|
| |
# basic x commands |
| |
foreach my $key (keys(%def_map)) |
| |
{ |
| |
$def_map{$key . 'x'} = $def_map{$key}; |
| |
} |
| |
|
| # |
# |
| # things to skip |
# miscalleneous commands |
| # |
# |
| %to_skip = ( |
# Depending on the value, the command arg or spaces following the command |
| # comments |
# are handled differently: |
| 'c', 1, |
# |
| 'comment', 1, |
# the value is a reference on a hash. |
| 'ifnothtml', 1, |
# the hash keys are |
| # useless |
# 'arg' if the value is 'line' then the remaining of the line is the arg |
| 'detailmenu', 1, |
# if it is a number it is the number of args (separated by spaces) |
| 'direntry', 1, |
# 'skip' if the value is 'line' then the remaining of the line is skipped |
| 'contents', 1, |
# if the value is 'space' space but no newline is skipped |
| 'shortcontents', 1, |
# if the value is 'whitespace' space is skipped |
| 'summarycontents', 1, |
# if the value is 'linewhitespace' space is skipped if there are |
| 'footnotestyle', 1, |
# only spaces remaining on the line |
| 'end ifclear', 1, |
# if the value is 'linespace' space but no newline is skipped if |
| 'end ifset', 1, |
# there are only spaces remaining on the line |
| 'titlepage', 1, |
# 'keep' if true the args and the macro are kept, otherwise the macro |
| 'end titlepage', 1, |
# args and skipped stuffs are removed |
| # unsupported commands (formatting) |
%misc_command = ( |
| 'afourpaper', 1, |
'bye' => {'skip' => 'line'}, # no arg |
| 'cropmarks', 1, |
# set, clear |
| 'finalout', 1, |
'set' => {'skip' => 'line'}, # special arg |
| 'headings', 1, |
'clear' => {'skip' => 'line'}, # special arg |
| 'sp', 1, |
'alias' => {'args' => 3, 'skip' => 'line'}, # special arg |
| 'need', 1, |
# comments |
| 'page', 1, |
'comment' => {'arg' => 'line'}, |
| 'setchapternewpage', 1, |
'c' => {'arg' => 'line'}, |
| 'everyheading', 1, |
|
| 'everyfooting', 1, |
|
| 'evenheading', 1, |
|
| 'evenfooting', 1, |
|
| 'oddheading', 1, |
|
| 'oddfooting', 1, |
|
| 'smallbook', 1, |
|
| 'vskip', 1, |
|
| 'filbreak', 1, |
|
| 'paragraphindent', 1, |
|
| # unsupported formats |
|
| 'cartouche', 1, |
|
| 'end cartouche', 1, |
|
| 'group', 1, |
|
| 'end group', 1, |
|
| ); |
|
| |
|
| #+++############################################################################ |
# not needed for formatting |
| # # |
'raisesections' => {'skip' => 'line'}, # no arg |
| # Argument parsing, initialisation # |
'lowersections' => {'skip' => 'line'}, # no arg |
| # # |
'contents' => {}, # no arg |
| #---############################################################################ |
'shortcontents' => {}, # no arg |
| |
'summarycontents'=> {}, # no arg |
| |
'setcontentsaftertitlepage' => {}, # no arg |
| |
'setshortcontentsaftertitlepage' => {}, # no arg |
| |
# 'detailmenu' => {'skip' => 'whitespace'}, # no arg |
| |
# 'end detailmenu' => {'skip' => 'whitespace'}, # no arg |
| |
'clickstyle' => {'skip' => 'line'}, # arg should be an @-command |
| |
# in preamble |
| |
'novalidate' => {}, # no arg |
| |
'dircategory'=> {'arg' => 'line'}, # line. Position with regard |
| |
# with direntry is significant |
| |
'pagesizes' => {'skip' => 'line', 'arg' => 'line'}, # can have 2 args |
| |
# or one? 200mm,150mm 11.5in |
| |
'finalout' => {'skip' => 'line'}, # no arg |
| |
'paragraphindent' => {'skip' => 'line', 'arg' => 1}, # arg none asis |
| |
# or a number and forbids anything else on the line |
| |
'firstparagraphindent' => {'skip' => 'line', 'arg' => 1}, # none insert |
| |
'frenchspacing' => {'arg' => 1, 'skip' => 'line'}, # on off |
| |
# not so sure about 'skip' => 'line' |
| |
'fonttextsize' => {'arg' => 1}, # 10 11 |
| |
'allowcodebreaks' => {'arg' => 1, 'skip' => 'line'}, # false or true |
| |
'exampleindent' => {'skip' => 'line', 'arg' => 1}, # asis or a number |
| |
'footnotestyle'=> {'skip' => 'line', 'arg' => 1}, # end and separate |
| |
# and nothing else on the line |
| |
'afourpaper' => {'skip' => 'line'}, # no arg |
| |
'afivepaper' => {'skip' => 'line'}, # no arg |
| |
'afourlatex' => {'skip' => 'line'}, # no arg |
| |
'afourwide' => {'skip' => 'line'}, # no arg |
| |
'headings'=> {'skip' => 'line', 'arg' => 1}, |
| |
#off on single double singleafter doubleafter |
| |
# interacts with setchapternewpage |
| |
'setchapternewpage' => {'skip' => 'line', 'arg' => 1}, # off on odd |
| |
'everyheading' => {'arg' => 'line'}, |
| |
'everyfooting' => {'arg' => 'line'}, |
| |
'evenheading' => {'arg' => 'line'}, |
| |
'evenfooting' => {'arg' => 'line'}, |
| |
'oddheading' => {'arg' => 'line'}, |
| |
'oddfooting' => {'arg' => 'line'}, |
| |
'smallbook' => {'skip' => 'line'}, # no arg |
| |
'setfilename' => {'arg' => 'line'}, |
| |
'definfoenclose' => {'arg' => 'line'}, |
| |
#'shorttitle' => {'arg' => 'line', 'texi' => 1}, |
| |
#'shorttitlepage' => {'arg' => 'line', 'texi' => 1}, |
| |
#'settitle' => {'arg' => 'line', 'texi' => 1}, |
| |
#'author' => {'arg' => 'line', 'texi' => 1}, |
| |
#'subtitle' => {'arg' => 'line', 'texi' => 1}, |
| |
#'title' => {'arg' => 'line', 'texi' => 1}, |
| |
'shorttitle' => {'arg' => 'line'}, |
| |
'shorttitlepage' => {'arg' => 'line'}, |
| |
'settitle' => {'arg' => 'line'}, |
| |
'author' => {'arg' => 'line'}, |
| |
'subtitle' => {'arg' => 'line'}, |
| |
'title' => {'arg' => 'line'}, |
| |
'syncodeindex' => {'skip' => 'line', 'arg' => 2}, |
| |
# args are index identifiers |
| |
'synindex' => {'skip' => 'line', 'arg' => 2}, |
| |
'defindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg |
| |
'defcodeindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg |
| |
#'documentlanguage' => {'skip' => 'whitespace', 'arg' => 1}, |
| |
'documentlanguage' => {'skip' => 'line', 'arg' => 1}, |
| |
# language code arg |
| |
'kbdinputstyle' => {'skip' => 'whitespace', 'arg' => 1}, # code |
| |
#example distinct |
| |
'everyheadingmarks' => {'skip' => 'line', 'arg' => 1}, # top bottom |
| |
'everyfootingmarks' => {'skip' => 'whitespace', 'arg' => 1}, |
| |
'evenheadingmarks' => {'skip' => 'whitespace', 'arg' => 1}, |
| |
'oddheadingmarks' => {'skip' => 'whitespace', 'arg' => 1}, |
| |
'evenfootingmarks' => {'skip' => 'whitespace', 'arg' => 1}, |
| |
'oddfootingmarks' => {'skip' => 'whitespace', 'arg' => 1}, |
| |
'sp' => {'skip' => 'line', 'arg' => 1}, # no arg |
| |
# at the end of line or a numerical arg |
| |
# formatting |
| |
'page' => {}, # no arg (pagebreak) |
| |
'refill' => {}, # no arg (obsolete, to be ignored) |
| |
'noindent' => {'skip' => 'whitespace'}, # no arg |
| |
'indent' => {'skip' => 'whitespace'}, |
| |
'need' => {'skip' => 'line', 'arg' => 1}, # one numerical/real arg |
| |
'exdent' => {'skip' => 'space'}, |
| |
# not valid for info (should be in @iftex) |
| |
'vskip' => {'arg' => 'line'}, # arg line in TeX |
| |
'cropmarks' => {}, # no arg |
| |
# miscalleneous |
| |
'verbatiminclude'=> {'skip' => 'line'}, |
| |
'documentencoding' => {'arg' => 1, 'skip' => 'line'}, |
| |
# ??? |
| |
'filbreak' => {}, |
| |
# obsolete @-commands. Remove spaces and end of lines after the |
| |
# commands? If no, they can lead to empty lines |
| |
'quote-arg' => {'skip' => 'line'}, |
| |
'allow-recursion' => {'skip' => 'line'}, |
| |
); |
| |
|
| %value = (); # hold texinfo variables, see also -D |
my %misc_command_old = ( |
| |
# not needed for formatting |
| |
'raisesections', 'line', # no arg |
| |
'lowersections', 'line', # no arg |
| |
'contents', 1, # no arg |
| |
'shortcontents', 1, # no arg |
| |
'summarycontents', 1, # no arg |
| |
'detailmenu', 'whitespace', # no arg |
| |
'end detailmenu', 'whitespace', # no arg |
| |
#'end detailmenu', 1, # no arg |
| |
'novalidate', 1, # no arg |
| |
'bye', 'line', # no arg |
| |
# comments |
| |
'comment', 'line', |
| |
'c', 'line', |
| |
# in preamble |
| |
'dircategory', 'line', # line. Position with regard with direntry is |
| |
# significant |
| |
'pagesizes', 'line arg2', # can have 2 args |
| |
'finalout', 1, # no arg |
| |
'paragraphindent', 'line arg1', # in fact accepts only none asis |
| |
# or a number and forbids anything else on the line |
| |
'firstparagraphindent', 'line arg1', # in fact accepts only none insert |
| |
'exampleindent', 'line arg1', # in fact accepts only asis or a number |
| |
'footnotestyle', 'line arg1', # in fact accepts only end and separate |
| |
# and nothing else on the line |
| |
'afourpaper', 'line', # no arg |
| |
'afourlatex', 'line', # no arg |
| |
'afourwide', 'line', # no arg |
| |
'headings', 'line', # one arg, possibilities are |
| |
#off on single double singleafter doubleafter |
| |
# interacts with setchapternewpage |
| |
'setchapternewpage', 'line', # no arg |
| |
'everyheading', 'line', |
| |
'everyfooting', 'line', |
| |
'evenheading', 'line', |
| |
'evenfooting', 'line', |
| |
'oddheading', 'line', |
| |
'oddfooting', 'line', |
| |
'smallbook', 'line', # no arg |
| |
'setfilename', 'line', |
| |
'shorttitle', 'linetexi', |
| |
'shorttitlepage', 'linetexi', |
| |
'settitle', 'linetexi', |
| |
'author', 'linetexi', |
| |
'subtitle', 'linetexi', |
| |
'title','linetexi', |
| |
'syncodeindex','linespace arg2', # args are |
| |
'synindex','linespace arg2', |
| |
'defindex', 'line arg1', # one identifier arg |
| |
'defcodeindex', 'line arg1', # one identifier arg |
| |
'documentlanguage', 'whitespace arg1', # one language code arg |
| |
'kbdinputstyle', 'whitespace arg1', # one arg within |
| |
#code example distnct |
| |
'sp', 'whitespace arg1', # no arg at the en of line or a numerical arg |
| |
# formatting |
| |
'page', 1, # no arg (pagebreak) |
| |
'refill', 1, # no arg (obsolete, to be ignored)) |
| |
'noindent', 'space', # no arg |
| |
'need', 'line arg1', # one numerical/real arg |
| |
'exdent', 'space', |
| |
# not valid for info (should be in @iftex) |
| |
'vskip', 'line', # arg line in TeX |
| |
'cropmarks', 1, # no arg |
| |
# miscalleneous |
| |
'verbatiminclude', 'line', |
| |
'documentencoding', 'arg1', |
| |
# ??? |
| |
'filbreak', 1, |
| |
); |
| |
|
| $use_bibliography = 1; |
# The command_handler arrays are for commands formatted externally. |
| $use_acc = 0; |
# The function references in @command_handler_init are called |
| $debug = 0; |
# before the second pass, before the @-commands text collection. |
| $doctype = ''; |
# Those in @command_handler_process are called between the second pass |
| $check = 0; |
# and the third pass, after collection of @-commands text and before their |
| $expandinfo = 0; |
# expansion. |
| $use_glossary = 0; |
# Those in @command_handler_process are called after the third pass, |
| $invisible_mark = ''; |
# after the document generation. |
| $use_iso = 0; |
@command_handler_setup = (); |
| @include_dirs = (); |
@command_handler_init = (); |
| $show_menu = 0; |
@command_handler_names = (); |
| $number_sections = 0; |
@command_handler_process = (); |
| $split_node = 0; |
@command_handler_output = (); |
| $split_chapter = 0; |
@command_handler_finish = (); |
| $monolithic = 0; |
|
| $verbose = 0; |
|
| $usage = <<EOT; |
sub t2h_default_push_handler($$) |
| This is $THISPROG |
{ |
| To convert a Texinfo file to HMTL: $0 [options] file |
my $function = shift; |
| where options can be: |
my $handlers = shift; |
| -expandinfo : use \@ifinfo sections, not \@iftex |
push @$handlers, $function unless (grep {$_ eq $function} @$handlers); |
| -glossary : handle a glossary |
} |
| -invisible name: use 'name' as an invisible anchor |
|
| -Dname : define name like with \@set |
# the keys of %command_handler are @-command names and the value |
| -I dir : search also for files in 'dir' |
# is a hash reference with the following keys: |
| -menu : handle menus |
# 'init' function reference used to collect the @-command text |
| -monolithic : output only one file including ToC |
# 'expand' function reference used when expanding the @-command text |
| -number : number sections |
%command_handler = (); |
| -split_chapter : split on main sections |
|
| -split_node : split on nodes |
|
| -usage : print usage instructions |
# formatting functions |
| -verbose : verbose output |
|
| To check converted files: $0 -check [-verbose] files |
$anchor = \&t2h_default_anchor; |
| It accepts only ja_JP.EUC and ascii files. |
$def_item = \&t2h_default_def_item; |
| |
$def = \&t2h_default_def; |
| |
$menu_command = \&t2h_default_menu_command; |
| |
$menu_link = \&t2h_default_menu_link; |
| |
#$menu_comment = \&t2h_default_menu_comment; |
| |
$menu_description = \&t2h_default_menu_description; |
| |
#$simple_menu_link = \&t2h_default_simple_menu_link; |
| |
$table_item = \&t2h_default_table_item; |
| |
$table_line = \&t2h_default_table_line; |
| |
$table_list = \&t2h_default_table_list; |
| |
$row = \&t2h_default_row; |
| |
$cell = \&t2h_default_cell; |
| |
$list_item = \&t2h_default_list_item; |
| |
$comment = \&t2h_default_comment; |
| |
$def_line = \&t2h_default_def_line; |
| |
$def_line_no_texi = \&t2h_default_def_line_no_texi; |
| |
$raw = \&t2h_default_raw; |
| |
$raw_no_texi = \&t2h_default_raw_no_texi; |
| |
$heading = \&t2h_default_heading; |
| |
$heading_text = \&t2h_default_heading_text; |
| |
$heading_text_preformatted = \&t2h_default_heading_text_preformatted; |
| |
$element_heading = \&t2h_default_element_heading; |
| |
$heading_no_texi = \&t2h_default_heading_no_texi; |
| |
$external_href = \&t2h_default_external_href; |
| |
$paragraph = \&t2h_default_paragraph; |
| |
$preformatted = \&t2h_default_preformatted; |
| |
$foot_line_and_ref = \&t2h_default_foot_line_and_ref; |
| |
$foot_section = \&t2h_default_foot_section; |
| |
$image_files = \&t2h_default_image_files; |
| |
$image = \&t2h_default_image; |
| |
$index_entry_label = \&t2h_default_index_entry_label; |
| |
$index_summary = \&t2h_default_index_summary; |
| |
$summary_letter = \&t2h_default_summary_letter; |
| |
$index_entry = \&t2h_default_index_entry; |
| |
$index_entry_command = \&t2h_default_index_entry_command; |
| |
$index_letter = \&t2h_default_index_letter; |
| |
#$printindex = \&t2h_default_printindex; |
| |
$print_index = \&t2h_default_print_index; |
| |
$protect_text = \&t2h_default_protect_text; |
| |
$normal_text = \&t2h_default_normal_text; |
| |
$cartouche = \&t2h_default_cartouche; |
| |
$sp = \&t2h_default_sp; |
| |
$definition_category = \&t2h_default_definition_category; |
| |
$definition_index_entry = \&t2h_default_definition_index_entry; |
| |
$copying_comment = \&t2h_default_copying_comment; |
| |
$documentdescription = \&t2h_default_documentdescription; |
| |
$index_summary_file_entry = \&t2h_default_index_summary_file_entry; |
| |
$index_summary_file_end = \&t2h_default_index_summary_file_end; |
| |
$index_summary_file_begin = \&t2h_default_index_summary_file_begin; |
| |
$empty_line = \&t2h_default_empty_line; |
| |
$float = \&t2h_default_float; |
| |
$listoffloats = \&t2h_default_listoffloats; |
| |
$listoffloats_entry = \&t2h_default_listoffloats_entry; |
| |
$listoffloats_caption = \&t2h_default_listoffloats_caption; |
| |
$listoffloats_float_style = \&t2h_default_listoffloats_float_style; |
| |
$listoffloats_style = \&t2h_default_listoffloats_style; |
| |
$acronym_like = \&t2h_default_acronym_like; |
| |
$quotation = \&t2h_default_quotation; |
| |
$paragraph_style_command = \&t2h_default_paragraph_style_command; |
| |
$heading_texi = \&t2h_default_heading_texi; |
| |
$index_element_heading_texi = \&t2h_default_index_element_heading_texi; |
| |
$element_label = \&t2h_default_element_label; |
| |
$anchor_label = \&t2h_default_anchor_label; |
| |
$preserve_misc_command = \&t2h_default_preserve_misc_command; |
| |
$format_list_item_texi = \&t2h_default_format_list_item_texi; |
| |
$begin_format_texi = \&t2h_default_begin_format_texi; |
| |
$insertcopying = \&t2h_default_insertcopying; |
| |
$simple_command = \&t2h_default_simple_command; |
| |
$thing_command = \&t2h_default_thing_command; |
| |
$line_command = \&t2h_default_line_command; |
| |
$internal_links = \&t2h_default_internal_links; |
| |
|
| |
# address is not used anymore |
| |
$address = \&t2h_default_address; |
| |
|
| |
# return the line after preserving things according to misc_command map. |
| |
# You should not change it. It is here, nevertheless, to be used |
| |
# in other function references if needed. |
| |
sub t2h_default_preserve_misc_command($$) |
| |
{ |
| |
my $line = shift; |
| |
my $macro = shift; |
| |
my $text = ''; |
| |
my $args = []; |
| |
my $skip_spec = ''; |
| |
my $arg_spec = ''; |
| |
|
| |
#print STDERR "HHHHHHHHH $line $macro\n"; |
| |
$skip_spec = $misc_command{$macro}->{'skip'} |
| |
if (defined($misc_command{$macro}->{'skip'})); |
| |
$arg_spec = $misc_command{$macro}->{'arg'} |
| |
if (defined($misc_command{$macro}->{'arg'})); |
| |
|
| |
if ($arg_spec eq 'line') |
| |
{ |
| |
$text .= $line; |
| |
$args = [ $line ]; |
| |
$line = ''; |
| |
} |
| |
elsif ($arg_spec) |
| |
{ |
| |
my $arg_nr = $misc_command{$macro}->{'arg'}; |
| |
while ($arg_nr) |
| |
{ |
| |
$line =~ s/(\s+\S*)//o; |
| |
my $argument = $1; |
| |
if (defined($argument)) |
| |
{ |
| |
$text .= $argument; |
| |
push @$args, $argument; |
| |
} |
| |
$arg_nr--; |
| |
} |
| |
} |
| |
|
| |
if ($macro eq 'bye') |
| |
{ |
| |
$line = ''; |
| |
$text = "\n"; |
| |
} |
| |
elsif ($skip_spec eq 'linespace') |
| |
{ |
| |
if ($line =~ /^\s*$/o) |
| |
{ |
| |
$line =~ s/([ \t]*)//o; |
| |
$text .= $1; |
| |
} |
| |
} |
| |
elsif ($skip_spec eq 'linewhitespace') |
| |
{ |
| |
if ($line =~ /^\s*$/o) |
| |
{ |
| |
$text .= $line; |
| |
$line = ''; |
| |
} |
| |
} |
| |
elsif ($skip_spec eq 'line') |
| |
{ |
| |
$text .= $line; |
| |
$line = ''; |
| |
} |
| |
elsif ($skip_spec eq 'whitespace') |
| |
{ |
| |
$line =~ s/(\s*)//o; |
| |
$text .= $1; |
| |
} |
| |
elsif ($skip_spec eq 'space') |
| |
{ |
| |
$line =~ s/([ \t]*)//o; |
| |
$text .= $1; |
| |
} |
| |
$line = '' if (!defined($line)); |
| |
return ($line, $text, $args); |
| |
} |
| |
|
| |
sub t2h_default_simple_command($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_math = shift; |
| |
my $line_nr = shift; |
| |
my $state = shift; |
| |
|
| |
if ($in_math) |
| |
{ |
| |
my $result = $simple_map_pre{$command}; |
| |
$result = $simple_map_math{$command} if (defined($simple_map_math{$command})); |
| |
return $result; |
| |
} |
| |
elsif ($in_preformatted) |
| |
{ |
| |
return $simple_map_pre{$command}; |
| |
} |
| |
else |
| |
{ |
| |
return $simple_map{$command}; |
| |
} |
| |
} |
| |
|
| |
sub t2h_default_thing_command($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_math = shift; |
| |
my $line_nr = shift; |
| |
my $state = shift; |
| |
|
| |
my $result; |
| |
if ($in_math) |
| |
{ |
| |
$result = $pre_map{$command}; |
| |
$result = $math_map{$command} if (defined($math_map{$command})); |
| |
} |
| |
elsif ($in_preformatted) |
| |
{ |
| |
$result = $pre_map{$command}; |
| |
} |
| |
else |
| |
{ |
| |
$result = $things_map{$command}; |
| |
} |
| |
return $result . $text; |
| |
} |
| |
|
| |
# this is called each time a format begins. Here it is used to keep a |
| |
# record of the multitables to have a faithful count of the cell nr. |
| |
sub t2h_default_begin_format_texi($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $state = shift; |
| |
|
| |
# remove space in front of center, unless it removes the end of line! |
| |
$line =~ s/^\s*// if ($command eq 'center' and $line =~ /\S/); |
| |
return $line; |
| |
} |
| |
|
| |
# This function is called whenever a complex format is processed |
| |
# |
| |
# arguments: |
| |
# name of the format |
| |
# text appearing inside the format |
| |
# |
| |
# an eval of $complex_format->{format name}->{'begin'} should lead to the |
| |
# beginning of the complex format, an eval of |
| |
# $complex_format->{format name}->{'end'} should lead to the end of the |
| |
# complex format. |
| |
sub t2h_default_complex_format($$) |
| |
{ |
| |
my $name = shift; |
| |
my $text = shift; |
| |
return '' if ($text eq ''); |
| |
return '' if ($name eq 'direntry'); |
| |
my $beginning; |
| |
my $end; |
| |
# FIXME obsoleted in nov 2009 |
| |
if (exists($complex_format_map->{$name})) |
| |
{ |
| |
$beginning = eval "$complex_format_map->{$name}->{'begin'}"; |
| |
if ($@ ne '') |
| |
{ |
| |
main::msg_debug("Evaluation of $complex_format_map->{$name}->{'begin'}: $@"); |
| |
$beginning = ''; |
| |
|
| |
} |
| |
$end = eval "$complex_format_map->{$name}->{'end'}"; |
| |
if ($@ ne '') |
| |
{ |
| |
main::msg_debug("Evaluation of $complex_format_map->{$name}->{'end'}: $@"); |
| |
$end = ''; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$beginning = $complex_format_map{$name}->{'begin'}; |
| |
$beginning = '' if (!defined($beginning)); |
| |
$end = $complex_format_map{$name}->{'end'}; |
| |
$end = '' if (!defined($end)); |
| |
} |
| |
return $beginning . $text . $end; |
| |
} |
| |
|
| |
sub t2h_default_empty_line($$) |
| |
{ |
| |
my $text = shift; |
| |
my $state = shift; |
| |
#ignore the line if it just follows a deff |
| |
return '' if ($state->{'deff_line'}); |
| |
return $text; |
| |
} |
| |
|
| |
sub t2h_default_unknown($$$$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $line = shift; |
| |
my $pass = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
|
| |
my ($result_line, $result, $result_text, $message); |
| |
return ($line, 0, undef, undef); |
| |
} |
| |
|
| |
sub t2h_default_unknown_style($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $state = shift; |
| |
my $no_close = shift; |
| |
my $no_open = shift; |
| |
|
| |
my ($result, $result_text, $message); |
| |
return (0, undef, undef); |
| |
} |
| |
|
| |
sub t2h_default_caption_shortcaption($) |
| |
{ |
| |
my $float = shift; |
| |
my $caption_lines; |
| |
my $shortcaption_lines; |
| |
my $style = $float->{'style_texi'}; |
| |
if (defined($float->{'nr'})) |
| |
{ |
| |
my $nr = $float->{'nr'}; |
| |
if ($style ne '') |
| |
{ |
| |
$style = gdt('{style} {number}', { 'style' => $style, 'number' => $nr}); |
| |
} |
| |
else |
| |
{ |
| |
$style = $nr; |
| |
} |
| |
} |
| |
my $empty_caption = 1; |
| |
if (defined($float->{'caption_texi'}) and @{$float->{'caption_texi'}}) |
| |
{ |
| |
@$caption_lines = @{$float->{'caption_texi'}}; |
| |
$caption_lines->[0] =~ s/^\s*//; |
| |
if ($caption_lines->[0] =~ /\S/ or @$caption_lines > 2) |
| |
{ |
| |
$empty_caption = 0; |
| |
} |
| |
} |
| |
|
| |
if (!$empty_caption) |
| |
{ |
| |
if (defined($style)) |
| |
{ |
| |
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . gdt('{style}: {caption_first_line}', { 'style' => $style, 'caption_first_line' => $caption_lines->[0] }); |
| |
} |
| |
else |
| |
{ |
| |
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $caption_lines->[0]; |
| |
} |
| |
push @$caption_lines, "}\n"; |
| |
} |
| |
elsif (defined($style)) |
| |
{ |
| |
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $style . '}' . "\n"; |
| |
} |
| |
|
| |
my $empty_shortcaption = 1; |
| |
if (defined($float->{'shortcaption_texi'}) and @{$float->{'shortcaption_texi'}}) |
| |
{ |
| |
@$shortcaption_lines = @{$float->{'shortcaption_texi'}}; |
| |
$shortcaption_lines->[0] =~ s/^\s*//; |
| |
if ($shortcaption_lines->[0] =~ /\S/ or @$shortcaption_lines > 1) |
| |
{ |
| |
$empty_shortcaption = 0; |
| |
} |
| |
} |
| |
|
| |
if (!$empty_shortcaption) |
| |
{ |
| |
if (defined($style)) |
| |
{ |
| |
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . gdt('{style}: {shortcaption_first_line}', { 'style' => $style, 'shortcaption_first_line' => $shortcaption_lines->[0] }); |
| |
} |
| |
else |
| |
{ |
| |
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $shortcaption_lines->[0]; |
| |
} |
| |
push @$shortcaption_lines, "}\n"; |
| |
} |
| |
elsif (defined($style)) |
| |
{ |
| |
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $style . '}' . "\n"; |
| |
} |
| |
return ($caption_lines, $shortcaption_lines); |
| |
} |
| |
|
| |
# everything is done in &$float |
| |
sub t2h_default_caption_shortcaption_command($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $texi_lines = shift; |
| |
my $float_element = shift; |
| |
return ''; |
| |
} |
| |
|
| |
sub t2h_default_float($$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $float = shift; |
| |
my $caption = shift; |
| |
my $shortcaption = shift; |
| |
|
| |
my $label = ''; |
| |
if (exists($float->{'id'})) |
| |
{ |
| |
$label = &$anchor($float->{'id'}); |
| |
} |
| |
my $caption_text = ''; |
| |
|
| |
if (defined($float->{'caption_texi'})) |
| |
{ |
| |
$caption_text = $caption; |
| |
} |
| |
elsif (defined($float->{'shortcaption_texi'})) |
| |
{ |
| |
$caption_text = $shortcaption; |
| |
} |
| |
elsif (defined($caption)) |
| |
{ |
| |
$caption_text = $caption; |
| |
} |
| |
|
| |
return $text . "\n" . $caption_text; |
| |
} |
| |
|
| |
sub t2h_default_listoffloats_style($) |
| |
{ |
| |
my $style_texi = shift; |
| |
return ($style_texi); |
| |
} |
| |
|
| |
sub t2h_default_listoffloats_float_style($$) |
| |
{ |
| |
my $style_texi = shift; |
| |
my $float = shift; |
| |
|
| |
my $style = $float->{'style_texi'}; |
| |
#print STDERR "listoffloat/float style mismatch $style_texi $style\n" if ($style_texi ne $style); |
| |
if (defined($float->{'nr'})) |
| |
{ |
| |
my $nr = $float->{'nr'}; |
| |
if ($style ne '') |
| |
{ |
| |
$style = gdt('{style} {number}', { 'style' => $style, 'number' => $nr}); |
| |
} |
| |
else |
| |
{ |
| |
$style = $nr; |
| |
} |
| |
} |
| |
return $style; |
| |
} |
| |
|
| |
sub t2h_default_listoffloats_caption($) |
| |
{ |
| |
my $float = shift; |
| |
if (defined($float->{'shortcaption_texi'})) |
| |
{ |
| |
return ([ @{$float->{'shortcaption_texi'}} ], 'shortcaption'); |
| |
} |
| |
elsif (defined($float->{'caption_texi'})) |
| |
{ |
| |
return ([ @{$float->{'caption_texi'}} ], 'caption'); |
| |
} |
| |
return ([ ], undef); |
| |
} |
| |
|
| |
sub t2h_default_listoffloats_entry($$$$) |
| |
{ |
| |
my $style_texi = shift; |
| |
my $float = shift; |
| |
my $float_style = shift; |
| |
my $caption = shift; |
| |
my $href = shift; |
| |
|
| |
my @lines = split /^/, $caption; |
| |
$caption = $lines[0]; |
| |
$caption = '' if (!defined($caption)); |
| |
chomp ($caption); |
| |
|
| |
$caption = $float->{'text'} if ($caption eq '' and defined($float->{'text'}) and $float->{'text'} =~ /\S/); |
| |
|
| |
return "* $float_style: ${caption}\n"; |
| |
} |
| |
|
| |
sub t2h_default_listoffloats($$$) |
| |
{ |
| |
my $style_texi = shift; |
| |
my $style = shift; |
| |
my $float_entries = shift; |
| |
|
| |
my $result = "* List of $style:\n"; |
| |
foreach my $float_entry (@$float_entries) |
| |
{ |
| |
$result .= $float_entry; |
| |
} |
| |
return $result . "\n"; |
| |
} |
| |
|
| |
sub t2h_default_insertcopying($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $comment = shift; |
| |
my $simple_text = shift; |
| |
return $text; |
| |
} |
| |
|
| |
sub t2h_default_protect_text($) |
| |
{ |
| |
my $text = shift; |
| |
return $text; |
| |
} |
| |
|
| |
# This function is used to protect characters which are special in xml |
| |
# in inline text: &, ", <, and >. |
| |
# |
| |
# argument: |
| |
# text to be protected |
| |
sub xml_default_protect_text($) |
| |
{ |
| |
my $text = shift; |
| |
$text =~ s/&/&/g; |
| |
$text =~ s/</</g; |
| |
$text =~ s/>/>/g; |
| |
$text =~ s/\"/"/g; |
| |
return $text; |
| |
} |
| |
|
| |
sub in_cmd($$) |
| |
{ |
| |
my $style_stack = shift; |
| |
my $command = shift; |
| |
my $result = 0; |
| |
if ($style_stack and scalar(@{$style_stack})) |
| |
{ |
| |
my $level = $#$style_stack; |
| |
#print STDERR ":::$level ::@{$style_stack}\n"; |
| |
while ($level >= 0) |
| |
{ |
| |
if ($style_stack->[$level] eq $command) |
| |
{ |
| |
$result = 1; |
| |
last; |
| |
} |
| |
$level--; |
| |
} |
| |
} |
| |
return $result; |
| |
} |
| |
# |
| |
# |
| |
|
| |
sub in_small_caps($) |
| |
{ |
| |
my $style_stack = shift; |
| |
my $in_sc = 0; |
| |
if ($style_stack and scalar(@{$style_stack})) |
| |
{ |
| |
my $level = $#$style_stack; |
| |
#print STDERR ":::$level ::@{$style_stack}\n"; |
| |
while ($level >= 0) |
| |
{ |
| |
if ($style_stack->[$level] eq 'sc') |
| |
{ |
| |
$in_sc = 1; |
| |
last; |
| |
} |
| |
$level--; |
| |
} |
| |
} |
| |
return $in_sc; |
| |
} |
| |
# |
| |
# |
| |
sub t2h_default_normal_text($$$$$$$;$) |
| |
{ |
| |
my @initial_args = @_; |
| |
my $text = shift; |
| |
my $in_raw_text = shift; # remove_texi |
| |
my $in_preformatted = shift; |
| |
my $in_code = shift; |
| |
my $in_math = shift; |
| |
my $in_simple = shift; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
# like utf8.init |
| |
if ($ENABLE_ENCODING and !$ENABLE_ENCODING_USE_ENTITY and defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and $Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8' and $USE_UNICODE) |
| |
{ |
| |
return &t2h_utf8_normal_text(@initial_args); |
| |
} |
| |
|
| |
$text = uc($text) if (in_cmd($style_stack, 'sc')); |
| |
if (! $in_code and !$in_preformatted) |
| |
{ |
| |
$text =~ s/---/\x{1F}/g; |
| |
$text =~ s/--/-/g; |
| |
$text =~ s/\x{1F}/--/g; |
| |
$text =~ s/``/"/g; |
| |
$text =~ s/\'\'/"/g; |
| |
} |
| |
else |
| |
{ |
| |
# to be like tex. This would be wrong, however. |
| |
# my $special_code = 0; |
| |
# $special_code = 1 if (in_cmd($style_stack, 'code') or |
| |
# in_cmd($style_stack, 'example') or in_cmd($style_stack, 'verbatim')); |
| |
# $text =~ s/'/\&rsquo\;/g unless ($special_code and exists($main::value{'txicodequoteundirected'})); |
| |
# $text =~ s/`/\&lsquo\;/g unless ($special_code and exists($main::value{'txicodequotebacktick'})); |
| |
} |
| |
$text = t2h_text_substitutions($text, $in_raw_text, ($in_preformatted or $in_code), $in_simple); |
| |
return $text; |
| |
} |
| |
|
| |
sub t2h_default_url_and_text($;$) |
| |
{ |
| |
my $url = shift; |
| |
my $text = shift; |
| |
if (!defined($text) or $text eq '') |
| |
{ |
| |
return "<$url>" if (defined($url) and $url ne ''); |
| |
return ''; |
| |
} |
| |
else |
| |
{ |
| |
return $text if (!defined($url) or $url eq ''); |
| |
return "$text <$url>"; |
| |
} |
| |
} |
| |
|
| |
# This function produces an anchor. This need is quite html specific. |
| |
# |
| |
# arguments: |
| |
# $name : anchor name |
| |
# $href : anchor href |
| |
# text : text displayed |
| |
# extra_attribs : added to anchor attributes list |
| |
sub t2h_default_anchor($;$$$) |
| |
{ |
| |
my $name = shift; |
| |
my $href = shift; |
| |
my $text = shift; |
| |
my $attributes = shift; |
| |
return $text if (defined($text)); |
| |
return ''; |
| |
} |
| |
|
| |
# This function is used to format the text associated with a @deff/@end deff |
| |
# |
| |
# argument: |
| |
# text |
| |
# |
| |
# $DEF_TABLE should be used to distinguish between @def formatted as table |
| |
# and as definition lists. |
| |
sub t2h_default_def_item($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $command = shift; |
| |
if ($text =~ /\S/) |
| |
{ |
| |
return $text; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub t2h_default_definition_category($$$$) |
| |
{ |
| |
my $name = shift; |
| |
my $class = shift; |
| |
my $style = shift; |
| |
my $command = shift; |
| |
return ($name) if (!defined($class) or $class =~ /^\s*$/); |
| |
if ($style eq 'f') |
| |
{ |
| |
return gdt('{name} on {class}', { 'name' => $name, 'class' => $class }); |
| |
} |
| |
elsif ($style eq 'v') |
| |
{ |
| |
return gdt('{name} of {class}', { 'name' => $name, 'class' => $class }); |
| |
} |
| |
else |
| |
{ |
| |
return $name; |
| |
} |
| |
} |
| |
|
| |
sub t2h_default_definition_index_entry($$$$) |
| |
{ |
| |
my $name = shift; |
| |
my $class = shift; |
| |
my $style = shift; |
| |
my $command = shift; |
| |
return ($name) if (!defined($class) or $class =~ /^\s*$/); |
| |
if ($style eq 'f') |
| |
{ |
| |
return gdt('{name} on {class}', { 'name' => $name, 'class' => $class }); |
| |
} |
| |
elsif ($style eq 'v' and $command ne 'defcv') |
| |
{ |
| |
return gdt('{name} of {class}', { 'name' => $name, 'class' => $class }); |
| |
} |
| |
else |
| |
{ |
| |
return $name; |
| |
} |
| |
} |
| |
|
| |
sub t2h_default_summary_letter($$$$$$$) |
| |
{ |
| |
my $letter = shift; |
| |
my $file = shift; |
| |
my $default_identifier = shift; |
| |
my $index_element_id = shift; |
| |
my $number = shift; |
| |
my $index_element = shift; |
| |
my $index_name = shift; |
| |
|
| |
return ''; |
| |
} |
| |
|
| |
|
| |
# format the container for the @deffn line and text |
| |
# |
| |
# argument |
| |
# text of the whole @def, line and associated text. |
| |
# |
| |
# $DEF_TABLE should be used. |
| |
sub t2h_default_def($$) |
| |
{ |
| |
my $text = shift; |
| |
my $command = shift; |
| |
if ($text =~ /\S/) |
| |
{ |
| |
return $text; |
| |
} |
| |
return ''; |
| |
|
| |
} |
| |
|
| |
# a whole menu |
| |
# |
| |
# argument: |
| |
# the whole menu text (entries and menu comments) |
| |
# |
| |
# argument: |
| |
# whole menu text. |
| |
# not used since menu is a normal preformatted command with SIMPLE_MENU |
| |
sub t2h_default_menu_command($$$) |
| |
{ |
| |
my $format = shift; |
| |
my $text = shift; |
| |
my $in_preformatted = shift; |
| |
return "* Menu:\n".$text."\n"; |
| |
|
| |
} |
| |
|
| |
# formats a menu entry link pointing to a node or section |
| |
# |
| |
# arguments: |
| |
# the entry text |
| |
# the state, a hash reference holding informations about the context, with a |
| |
# usefull entry, 'preformatted', true if we are in a preformatted format |
| |
# (a format keeping space between words). In that case a function |
| |
# of the main program, main::do_preformatted($text, $state) might |
| |
# be used to format the text with the current format style. |
| |
# href is optionnal. It is the reference to the section or the node anchor |
| |
# which should be used to make the link (typically it is the argument |
| |
# of a href= attribute in a <a> element). |
| |
sub t2h_default_menu_link($$$$$$$$) |
| |
{ |
| |
my $entry = shift; |
| |
my $state = shift; |
| |
my $href = shift; |
| |
my $node = shift; |
| |
my $title = shift; |
| |
my $ending = shift; |
| |
my $has_title = shift; |
| |
my $command_stack = shift; |
| |
my $preformatted = shift; |
| |
|
| |
$title = '' unless ($has_title); |
| |
$title .= ':' if ($title ne ''); |
| |
return "$MENU_SYMBOL$title$node$ending" if ($NODE_NAME_IN_MENU); |
| |
return "$MENU_SYMBOL$title$entry$ending"; |
| |
} |
| |
|
| |
# formats a menu entry description, ie the text appearing after the node |
| |
# specification in a menu entry an spanning until there is another |
| |
# menu entry, an empty line or some text at the very beginning of the line |
| |
# (we consider that text at the beginning of the line begins a menu comment) |
| |
# |
| |
# arguments: |
| |
# the description text |
| |
# the state. See menu_entry. |
| |
# the heading of the element associated with the node. |
| |
# not usd since in SIMPLE_MENU |
| |
sub t2h_default_menu_description($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $state = shift; |
| |
my $element_text = shift; |
| |
my $command_stack = shift; |
| |
my $preformatted = shift; |
| |
|
| |
return $text; |
| |
} |
| |
|
| |
%htmlxref_entries = ( |
| |
'node' => [ 'node', 'section', 'chapter', 'mono' ], |
| |
'section' => [ 'section', 'chapter','node', 'mono' ], |
| |
'chapter' => [ 'chapter', 'section', 'node', 'mono' ], |
| |
'mono' => [ 'mono', 'chapter', 'section', 'node' ], |
| |
); |
| |
|
| |
|
| |
# Construct a href to an external source of information. |
| |
# node is the node with texinfo @-commands |
| |
# node_id is the node transliterated and transformed as explained in the |
| |
# texinfo manual |
| |
# node_xhtml_id is the node transformed such that it is unique and can |
| |
# be used to make an html cross ref as explained in the texinfo manual |
| |
# file is the file in '(file)node' |
| |
# This is used to construct href, so is likely to be ignored oustside of |
| |
# html. |
| |
sub t2h_default_external_href($$$) |
| |
{ |
| |
my $node = shift; |
| |
my $node_id = shift; |
| |
my $node_xhtml_id = shift; |
| |
my $file = shift; |
| |
$file = '' if (!defined($file)); |
| |
my $default_target_split = $Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'}; |
| |
my $target_split; |
| |
#my $target_mono; |
| |
#my $href_split; |
| |
#my $href_mono; |
| |
if ($file ne '') |
| |
{ |
| |
if ($NEW_CROSSREF_STYLE) |
| |
{ |
| |
$file =~ s/\.[^\.]*$//; |
| |
$file =~ s/^.*\///; |
| |
my $href; |
| |
my $document_split = get_conf('SPLIT'); |
| |
$document_split = 'mono' if (!$document_split); |
| |
my $split_found; |
| |
if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file})) |
| |
{ |
| |
foreach my $split_ordered (@{$htmlxref_entries{$document_split}}) |
| |
{ |
| |
if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}->{$split_ordered})) |
| |
{ |
| |
$split_found = $split_ordered; |
| |
$href = $Texi2HTML::THISDOC{'htmlxref'}->{$file}->{$split_ordered}->{'href'}; |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
if (defined($split_found)) |
| |
{ |
| |
$target_split = 1 unless ($split_found eq 'mono'); |
| |
} |
| |
else |
| |
{ # nothing specified for that manual, use default |
| |
$target_split = $default_target_split; |
| |
} |
| |
|
| |
if ($target_split) |
| |
{ |
| |
if (defined($href)) |
| |
{ |
| |
$file = $href; |
| |
} |
| |
elsif (defined($EXTERNAL_DIR)) |
| |
{ |
| |
$file = "$EXTERNAL_DIR/$file"; |
| |
} |
| |
elsif (get_conf('SPLIT')) |
| |
{ |
| |
$file = "../$file"; |
| |
} |
| |
$file .= "/"; |
| |
} |
| |
else |
| |
{# target not split |
| |
if (defined($href)) |
| |
{ |
| |
$file = $href; |
| |
} |
| |
else |
| |
{ |
| |
if (defined($EXTERNAL_DIR)) |
| |
{ |
| |
$file = "$EXTERNAL_DIR/$file"; |
| |
} |
| |
elsif (get_conf('SPLIT')) |
| |
{ |
| |
$file = "../$file"; |
| |
} |
| |
$file .= "." . $NODE_FILE_EXTENSION; |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$file .= "/"; |
| |
if (defined($EXTERNAL_DIR)) |
| |
{ |
| |
$file = $EXTERNAL_DIR . $file; |
| |
} |
| |
else |
| |
{ |
| |
$file = '../' . $file; |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$target_split = $default_target_split; |
| |
} |
| |
if ($node eq '') |
| |
{ |
| |
if ($NEW_CROSSREF_STYLE) |
| |
{ |
| |
if ($target_split) |
| |
{ |
| |
if (defined($TOP_NODE_FILE_TARGET)) |
| |
{ |
| |
return $file . $TOP_NODE_FILE_TARGET . '.' . $NODE_FILE_EXTENSION . '#Top'; |
| |
} |
| |
else |
| |
{ |
| |
return $file . '#Top'; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
return $file . '#Top'; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
return $file; |
| |
} |
| |
} |
| |
my $target; |
| |
if ($NEW_CROSSREF_STYLE) |
| |
{ |
| |
$node = $node_id; |
| |
$target = $node_xhtml_id; |
| |
} |
| |
else |
| |
{ |
| |
$node = main::remove_texi($node); |
| |
$node =~ s/[^\w\.\-]/-/g; |
| |
} |
| |
my $file_basename = $node; |
| |
$file_basename = $TOP_NODE_FILE_TARGET if ($node =~ /^top$/i and defined($TOP_NODE_FILE_TARGET)); |
| |
if ($NEW_CROSSREF_STYLE) |
| |
{ |
| |
if ($target_split) |
| |
{ |
| |
return $file . $file_basename . ".$NODE_FILE_EXTENSION" . '#' . $target; |
| |
} |
| |
else |
| |
{ |
| |
return $file . '#' . $target; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
return $file . $file_basename . ".$NODE_FILE_EXTENSION"; |
| |
} |
| |
} |
| |
|
| |
# format a reference external to the generated manual. This produces a full |
| |
# reference with introductive words and the reference itself. |
| |
# |
| |
# arguments: |
| |
# type of the reference: xref (reference at the beginning of a sentence), |
| |
# pxref (reference in a parenthesis), |
| |
# section in the book. This might be undef. |
| |
# book name. |
| |
# manual file name |
| |
# href linking to the html page containing the referenced node. A typical |
| |
# use for this href is a href attribute in an <a> element |
| |
# cross reference name |
| |
# array of texi arguments of the reference |
| |
# array of the formatted arguments of the reference |
| |
# node name |
| |
sub t2h_default_external_ref($$$$$$$$$) |
| |
{ |
| |
my $type = shift; |
| |
my $section = shift; |
| |
my $book = shift; |
| |
my $file = shift; |
| |
#my $file_node = shift; |
| |
my $href = shift; |
| |
my $cross_ref = shift; |
| |
my $args_texi = shift; |
| |
my $formatted_args = shift; |
| |
my $node = shift; |
| |
|
| |
my $name = $section; |
| |
$name = $cross_ref if ($name eq ''); |
| |
$name = $node if ($name eq ''); |
| |
|
| |
my $reference = $name; |
| |
|
| |
if ($book eq '' and $file ne '') |
| |
{ |
| |
$name = "($file)$name"; |
| |
} |
| |
$reference = &$anchor('', $href, $name) if ($href ne ''); |
| |
|
| |
# Yes, this is ugly, yet this helps internationalization |
| |
if ($type eq 'pxref') |
| |
{ |
| |
if (($book ne '') and ($href ne '')) |
| |
{ |
| |
return gdt('see {reference} in @cite{{book}}', { 'reference' => $reference, 'book' => $book },{'duplicate'=>1}); |
| |
} |
| |
elsif (($book ne '') and ($reference ne '')) |
| |
{ |
| |
return gdt('see `{section}\' in @cite{{book}}', { 'section' => $reference, 'book' => $book },{'duplicate'=>1}); |
| |
} |
| |
elsif ($book ne '') |
| |
{ # should seldom or even never happen |
| |
return gdt('see @cite{{book}}', { 'book' => $book },{'duplicate'=>1}); |
| |
} |
| |
elsif ($href ne '') |
| |
{ |
| |
return gdt('see {reference}', { 'reference' => $reference },{'duplicate'=>1}); |
| |
} |
| |
elsif ($reference ne '') |
| |
{ |
| |
return gdt('see `{section}\'', { 'section' => $reference },{'duplicate'=>1}); |
| |
} |
| |
} |
| |
if ($type eq 'xref' or $type eq 'inforef') |
| |
{ |
| |
if (($book ne '') and ($href ne '')) |
| |
{ |
| |
return gdt('See {reference} in @cite{{book}}', { 'reference' => $reference, 'book' => $book },{'duplicate'=>1}); |
| |
} |
| |
elsif (($book ne '') and ($reference ne '')) |
| |
{ |
| |
return gdt('See `{section}\' in @cite{{book}}', { 'section' => $reference, 'book' => $book },{'duplicate'=>1}); |
| |
} |
| |
elsif ($book ne '') |
| |
{ # should seldom or even never happen |
| |
return gdt('See @cite{{book}}', { 'book' => $book },{'duplicate'=>1}); |
| |
} |
| |
elsif ($href ne '') |
| |
{ |
| |
return gdt('See {reference}', { 'reference' => $reference },{'duplicate'=>1}); |
| |
} |
| |
elsif ($reference ne '') |
| |
{ |
| |
return gdt('See `{section}\'', { 'section' => $reference },{'duplicate'=>1}); |
| |
} |
| |
} |
| |
if ($type eq 'ref') |
| |
{ |
| |
if (($book ne '') and ($href ne '')) |
| |
{ |
| |
return gdt('{reference} in @cite{{book}}', { 'reference' => $reference, 'book' => $book },{'duplicate'=>1}); |
| |
} |
| |
elsif (($book ne '') and ($reference ne '')) |
| |
{ |
| |
return gdt('`{section}\' in @cite{{book}}', { 'section' => $reference, 'book' => $book },{'duplicate'=>1}); |
| |
} |
| |
elsif ($book ne '') |
| |
{ # should seldom or even never happen |
| |
return gdt('@cite{{book}}', { 'book' => $book },{'duplicate'=>1}); |
| |
} |
| |
elsif ($href ne '') |
| |
{ |
| |
return gdt('{reference}', { 'reference' => $reference },{'duplicate'=>1}); |
| |
} |
| |
elsif ($reference ne '') |
| |
{ |
| |
return gdt('`{section}\'', { 'section' => $reference },{'duplicate'=>1}); |
| |
} |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
# format a reference to a node or a section in the generated manual. This |
| |
# produces a full reference with introductive words and the reference itself. |
| |
# |
| |
# arguments: |
| |
# type of the reference: xref (reference at the beginning of a sentence), |
| |
# pxref (reference in a parenthesis), |
| |
# href linking to the html page containing the node or the section. A typical |
| |
# use for this href is a href attribute in an <a> element |
| |
# short name for this reference |
| |
# name for this reference |
| |
# boolean true if the reference is a reference to a section |
| |
# |
| |
# $SHORT_REF should be used. |
| |
sub t2h_default_internal_ref($$$$$$$$) |
| |
{ |
| |
my $type = shift; |
| |
my $href = shift; |
| |
my $short_name = shift; |
| |
my $name = shift; |
| |
my $is_section = shift; |
| |
my $args_texi = shift; |
| |
my $formatted_args = shift; |
| |
my $element = shift; |
| |
|
| |
if (! $SHORT_REF) |
| |
{ |
| |
$name = &$anchor('', $href, $name); |
| |
if ($type eq 'pxref') |
| |
{ |
| |
return gdt('see section {reference_name}', { 'reference_name' => $name },{'duplicate'=>1}) if ($is_section); |
| |
return gdt('see {reference_name}', { 'reference_name' => $name },{'duplicate'=>1}); |
| |
} |
| |
elsif ($type eq 'xref' or $type eq 'inforef') |
| |
{ |
| |
return gdt('See section {reference_name}', { 'reference_name' => $name },{'duplicate'=>1}) if ($is_section); |
| |
return gdt('See {reference_name}', { 'reference_name' => $name },{'duplicate'=>1}); |
| |
} |
| |
elsif ($type eq 'ref') |
| |
{ |
| |
return gdt('{reference_name}', { 'reference_name' => $name },{'duplicate'=>1}); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$name = &$anchor('', $href, $short_name); |
| |
if ($type eq 'pxref') |
| |
{ |
| |
return gdt('see {reference_name}', { 'reference_name' => $name },{'duplicate'=>1}); |
| |
} |
| |
elsif ($type eq 'xref' or $type eq 'inforef') |
| |
{ |
| |
return gdt('See {reference_name}', { 'reference_name' => $name },{'duplicate'=>1}); |
| |
} |
| |
elsif ($type eq 'ref') |
| |
{ |
| |
return gdt('{reference_name}', { 'reference_name' => $name },{'duplicate'=>1}); |
| |
} |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
# text after @item in table, vtable and ftable |
| |
sub t2h_default_table_item($$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $index_label = shift; |
| |
my $format = shift; |
| |
my $command = shift; |
| |
my $style_stack = shift; |
| |
my $item_cmd = shift; |
| |
my $formatted_index_entry = shift; |
| |
|
| |
return $text . "\n"; |
| |
} |
| |
|
| |
# format text on the line following the @item line (in table, vtable and ftable) |
| |
sub t2h_default_table_line($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return $text; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
#my $cell_nr = -1; |
| |
|
| |
# row in multitable |
| |
sub t2h_default_row($$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $macro = shift; |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return $text ."\n"; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
# cell in multitable |
| |
sub t2h_default_cell($$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $row_macro = shift; |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| |
|
| |
$text =~ s/^\s*//; |
| |
$text =~ s/\s*$//; |
| |
|
| |
return " $text"; |
| |
} |
| |
|
| |
# format an itemize, enumerate or @*table @item line, returning |
| |
# a texinfo line. |
| |
sub t2h_default_format_list_item_texi($$$$$) |
| |
{ |
| |
my $format = shift; |
| |
my $line = shift; |
| |
my $prepended = shift; |
| |
my $command = shift; |
| |
my $number = shift; |
| |
|
| |
my $result_line; |
| |
my $open_command = 0; |
| |
|
| |
$command = 'bullet' if ((!defined($command) or $command eq '') and (!defined($prepended) or $prepended eq '') and $format eq 'itemize'); |
| |
$prepended = "\@$command\{\}" if (defined($command) and $command ne ''); |
| |
$prepended = "$number." if (defined($number) and $number ne ''); |
| |
|
| |
if (defined($command) and $command ne '' and $format ne 'itemize') |
| |
{ |
| |
#@*table |
| |
$open_command = 1; |
| |
$line =~ s/^\s*//; |
| |
$line =~ s/\s*$//; |
| |
if (exists ($style_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{$line\}\n"; |
| |
} |
| |
elsif (exists ($things_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{\} $line\n"; |
| |
} |
| |
else |
| |
{ |
| |
$result_line = "\@$command $line\n"; |
| |
} |
| |
} |
| |
elsif (defined($prepended) and $prepended ne '') |
| |
{ |
| |
$prepended =~ s/^\s*//; |
| |
$prepended =~ s/\s*$//; |
| |
$line =~ s/^\s*//; |
| |
$result_line = $prepended . ' ' . $line; |
| |
} |
| |
return ($result_line, $open_command); |
| |
} |
| |
|
| |
|
| |
# format an item in a list |
| |
# |
| |
# argument: |
| |
# text of the item |
| |
# format of the list (itemize or enumerate) |
| |
# command passed as argument to the format |
| |
# formatted_command leading command formatted, if it is a thing command |
| |
sub t2h_default_list_item($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $format = shift; |
| |
my $command = shift; |
| |
my $formatted_command = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
my $item_command = shift; |
| |
|
| |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return $text; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub t2h_default_table_list($$$$$$$$$) |
| |
{ |
| |
my $format_command = shift; |
| |
my $text = shift; |
| |
my $command = shift; |
| |
my $formatted_command = shift; |
| |
# enumerate |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
# itemize |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
# multitable |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
# my $number = shift; |
| |
return $text; |
| |
} |
| |
|
| |
# an comment |
| |
sub t2h_default_comment($) |
| |
{ |
| |
my $text = shift; |
| |
return ''; |
| |
} |
| |
|
| |
# an xml comment |
| |
sub xml_default_comment($) |
| |
{ |
| |
my $text = shift; |
| |
$text =~ s/--+/-/go; |
| |
return '<!-- ' . $text . ' -->' . "\n"; |
| |
} |
| |
|
| |
sub t2h_collect_styles($) |
| |
{ |
| |
my $cmd_stack = shift; |
| |
my @result = (); |
| |
foreach my $style (reverse(@$cmd_stack)) |
| |
{ |
| |
# last unless (defined($command_type{$style}) and $command_type{$style} eq 'style'); |
| |
push @result, $style if (defined($command_type{$style}) and $command_type{$style} eq 'style'); |
| |
} |
| |
return @result; |
| |
} |
| |
|
| |
sub html_default_parse_attribute($) |
| |
{ |
| |
my $element = shift; |
| |
return ('', '', '') if (!defined($element)); |
| |
my ($class, $attributes) = ('', ''); |
| |
if ($element =~ /^(\w+)(\s+.*)/) |
| |
{ |
| |
$element = $1; |
| |
$attributes = $2; |
| |
if ($attributes =~ s/^\s+class=\"([^\"]+)\"//) |
| |
{ |
| |
$class = $1; |
| |
} |
| |
} |
| |
return ($element, $class, $attributes); |
| |
} |
| |
|
| |
sub t2h_get_attribute($;$) |
| |
{ |
| |
my $command = shift; |
| |
my $map_ref = shift; |
| |
$map_ref = \%style_map if (!defined($map_ref)); |
| |
return unless (defined($map_ref->{$command})); |
| |
my ($element, $class, $attributes) = ('', '', ''); |
| |
if (defined($map_ref->{$command})) |
| |
{ |
| |
if (ref($map_ref->{$command}) eq 'HASH') |
| |
{ |
| |
($element, $class, $attributes) = t2h_html_parse_attribute ($map_ref->{$command}->{'attribute'}); |
| |
} |
| |
elsif ($map_ref->{$command} !~ /^&/) |
| |
{ |
| |
$element = $map_ref->{$command}; |
| |
$element =~ s/^\"//; |
| |
} |
| |
} |
| |
return ($element, $class, $attributes); |
| |
} |
| |
|
| |
# a paragraph |
| |
# arguments: |
| |
# $text of the paragraph |
| |
# $align for the alignement |
| |
# $indent for the indent style (indent or noindent) |
| |
# The following is usefull if the paragraph is in an itemize. |
| |
# $paragraph_command is the leading formatting command (like @minus) |
| |
# $paragraph_command_formatted is the leading formatting command formatted |
| |
# $paragraph_number is a reference on the number of paragraphs appearing |
| |
# in the format. The value should be increased if a paragraph is done |
| |
# $format is the format name (@itemize) |
| |
sub t2h_default_paragraph($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $align = shift; |
| |
my $indent = shift; |
| |
my $paragraph_command = shift; |
| |
my $paragraph_command_formatted = shift; |
| |
my $paragraph_number = shift; |
| |
my $format = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $command_stack_at_end = shift; |
| |
my $command_stack_at_begin = shift; |
| |
#print STDERR "format: $format\n" if (defined($format)); |
| |
#print STDERR "paragraph @$command_stack_at_end; @$command_stack_at_begin\n"; |
| |
# $paragraph_command_formatted = '' if (!defined($paragraph_command_formatted) or |
| |
# exists($special_list_commands{$format}->{$paragraph_command})); |
| |
return '' if ($text =~ /^\s*$/); |
| |
|
| |
return $text; |
| |
} |
| |
|
| |
# a preformatted region |
| |
# arguments: |
| |
# $text of the preformatted region |
| |
# $pre_style css style |
| |
# $class identifier for the preformatted region (example, menu-comment) |
| |
# The following is usefull if the preformatted is in an itemize. |
| |
# $leading_command is the leading formatting command (like @minus) |
| |
# $leading_command_formatted is the leading formatting command formatted |
| |
# $preformatted_number is a reference on the number of preformatteds appearing |
| |
# in the format. The value should be increased if a preformatted is done |
| |
sub t2h_default_preformatted($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $pre_style = shift; |
| |
my $class = shift; |
| |
my $leading_command = shift; |
| |
my $leading_command_formatted = shift; |
| |
my $preformatted_number = shift; |
| |
my $format = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $command_stack_at_end = shift; |
| |
my $command_stack_at_begin = shift; |
| |
|
| |
#print STDERR "preformatted @$command_stack_at_end; @$command_stack_at_begin\n"; |
| |
return '' if ($text eq ''); |
| |
|
| |
my $top_stack = ''; |
| |
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin)); |
| |
if ($top_stack eq 'multitable') |
| |
{ |
| |
$text =~ s/^\s*//; |
| |
$text =~ s/\s*$//; |
| |
} |
| |
|
| |
# add a new line at the end in case there is none |
| |
chomp($text); |
| |
return $text . "\n"; |
| |
} |
| |
|
| |
# $new_element is set if the element is associated with a different |
| |
# reference element than the preceding element. This is where we |
| |
# do the navigation. For example it could be a @node before a @section. |
| |
# |
| |
# The heading function is always called, though -- in the default case |
| |
# nodes don't lead to an outputted title. |
| |
sub t2h_default_element_heading($$$$$$$$$$$$) |
| |
{ |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $texi_line = shift; |
| |
my $line = shift; |
| |
my $in_preformatted = shift; |
| |
my $one_section = shift; |
| |
my $element_heading = shift; |
| |
my $first_in_page = shift; |
| |
my $is_top = shift; |
| |
my $previous_is_top = shift; |
| |
my $command_line = shift; |
| |
my $element_id = shift; |
| |
my $new_element = shift; |
| |
#print STDERR ":::::::: $element $command i_p $in_preformatted o_s $one_section e_h $element_heading f_p $first_in_page i_t $is_top p_i_t $previous_is_top id $element_id new $new_element\n"; |
| |
|
| |
# my $result = ''; |
| |
my $result = &$element_label($element_id, $element, $command, $command_line); |
| |
|
| |
# in default case, print_head_navigation and print_navigation are no-ops. |
| |
# and $print_element_header is undef, so the following nothing. |
| |
if ($new_element and !$one_section) |
| |
{ |
| |
main::msg_debug ("For $element->{'texi'}, element_ref not defined", $element->{'line_nr'}) if (!defined($element->{'element_ref'})); |
| |
if (!defined($element->{'element_ref'}->{'top'})) |
| |
{ |
| |
if (defined($print_element_header)) |
| |
{ # FIXME backward compatibility, print_element_header is obsoleted in nov 2009 |
| |
$result .= &$print_element_header($first_in_page, $previous_is_top); |
| |
} |
| |
else |
| |
{ |
| |
if (($first_in_page or $previous_is_top) and get_conf('headers')) |
| |
{ |
| |
$result .= &$print_head_navigation(undef, \@SECTION_BUTTONS, $first_in_page, $previous_is_top, $element); |
| |
} |
| |
else |
| |
{ # got to do this here, as it isn't done otherwise sinc |
| |
# print_head_navigation is not called |
| |
$result .= &$print_navigation(\@SECTION_BUTTONS) if (get_conf('headers') or get_conf('SPLIT') eq 'node'); |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ # this is here because we want to always print the head navigation for top |
| |
# and use TOP_BUTTONS |
| |
$result .= &$print_head_navigation(undef, \@TOP_BUTTONS, $first_in_page, $previous_is_top, $element) |
| |
if (get_conf('SPLIT') or get_conf('headers')); |
| |
} |
| |
} |
| |
return $result. &$heading($element, $command, $texi_line, $line, $in_preformatted, $one_section, $element_heading); |
| |
} |
| |
|
| |
# This function formats a heading for an element |
| |
# |
| |
# argument: |
| |
# an element. It is a hash reference for a node or a sectioning command. |
| |
# it may be the wrong one in case of headings. |
| |
# The interesting keys are: |
| |
# 'text': the heading text |
| |
# 'text_nonumber': the heading text without section number |
| |
# 'node': true if it is a node |
| |
# 'level': level of the element. 0 for @top, 1 for chapter, heading, |
| |
# appendix..., 2 for section and so on... |
| |
# 'tag_level': the sectioning element name, raisesections and lowersections |
| |
# taken into account |
| |
sub t2h_default_heading($$$$$;$$) |
| |
{ |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $texi_line = shift; |
| |
my $line = shift; |
| |
my $in_preformatted = shift; |
| |
my $one_section = shift; |
| |
my $element_heading = shift; |
| |
|
| |
my $level = $element->{'level'}; |
| |
if ($element->{'node'}) |
| |
{ |
| |
if ($element->{'text'} =~ /^top$/i) |
| |
{ |
| |
$level = 0; |
| |
} |
| |
else |
| |
{ |
| |
$level = 3; |
| |
} |
| |
return '' if (!$element->{'this'} or $element->{'with_section'}) |
| |
} |
| |
else |
| |
{ |
| |
$command = $element->{'tag_level'}; |
| |
} |
| |
my $text = $element->{'text'}; |
| |
|
| |
if ($TOC_LINKS and $command !~ /heading/ and defined($element->{'tocid'})) |
| |
{ |
| |
$text = &$anchor ('', "$Texi2HTML::THISDOC{'toc_file'}#$element->{'tocid'}", $text); |
| |
} |
| |
|
| |
my $result; |
| |
if ($in_preformatted) |
| |
{ |
| |
$result = &$heading_text_preformatted("\@$command", $text, $level); |
| |
} |
| |
else |
| |
{ |
| |
$result = &$heading_text("\@$command", $text, $level); |
| |
} |
| |
#$result .= "\n"; |
| |
return $result; |
| |
} |
| |
|
| |
sub t2h_default_heading_no_texi($$$) |
| |
{ |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $line = shift; |
| |
return main::remove_texi($line) . "\n"; |
| |
} |
| |
|
| |
# formatting of raw regions |
| |
# if L2H is true another mechanism is used for tex |
| |
sub t2h_default_raw($$;$) |
| |
{ |
| |
my $style = shift; |
| |
my $text = shift; |
| |
my $line_nr = shift; |
| |
my $expanded = 1 if (grep {$style eq $_} @EXPAND); |
| |
if ($style eq 'verbatim' or $style eq 'verbatiminclude' or ($style eq 'tex' and $expanded)) |
| |
{ |
| |
return $text; |
| |
} |
| |
elsif ($expanded) |
| |
{ |
| |
main::line_warn (sprintf(__("Raw format %s is not converted"), $style), $line_nr); |
| |
return $text; |
| |
} |
| |
else |
| |
{ |
| |
return ''; |
| |
} |
| |
} |
| |
|
| |
# raw environment when removing texi (in comments) |
| |
sub t2h_default_raw_no_texi($$) |
| |
{ |
| |
my $style = shift; |
| |
my $text = shift; |
| |
if ($style eq 'verbatim' or $style eq 'verbatiminclude' or grep {$style eq $_} @EXPAND) |
| |
{ |
| |
return $text; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
# This function formats a footnote reference and the footnote text associated |
| |
# with a given footnote. |
| |
# The footnote reference is the text appearing in the main document pointing |
| |
# to the footnote text. |
| |
# |
| |
# arguments: |
| |
# absolute number of the footnote (in the document) |
| |
# relative number of the footnote (in the page) |
| |
# identifier for the footnote |
| |
# identifier for the footnote reference in the main document |
| |
# main document file |
| |
# footnote text file |
| |
# array with the footnote text lines |
| |
# the state. See menu entry. |
| |
# |
| |
# returns: |
| |
# reference on an array containing the footnote text lines which should |
| |
# have been updated |
| |
# the text for the reference pointing on the footnote text |
| |
sub t2h_default_foot_line_and_ref($$$$$$$$$) |
| |
{ |
| |
my $number_in_doc = shift; |
| |
my $number_in_page = shift; |
| |
my $footnote_id = shift; |
| |
my $place_id = shift; |
| |
my $document_file = shift; |
| |
my $footnote_file = shift; |
| |
my $lines = shift; |
| |
my $document_state = shift; |
| |
|
| |
$number_in_doc = $NO_NUMBER_FOOTNOTE_SYMBOL if (!$NUMBER_FOOTNOTES); |
| |
|
| |
if ($document_file eq $footnote_file) |
| |
{ |
| |
$document_file = $footnote_file = ''; |
| |
} |
| |
unshift (@$lines, "($number_in_doc)\n"); |
| |
push @$lines, "\n"; |
| |
return ($lines, "($number_in_doc)"); |
| |
} |
| |
|
| |
# formats a group of footnotes. |
| |
# |
| |
# argument: |
| |
# array reference on the footnotes texts lines |
| |
# |
| |
# returns an array reference on the group of footnotes lines |
| |
sub t2h_default_foot_section($) |
| |
{ |
| |
my $lines = shift; |
| |
my $header = &$heading_text('footnotes', gdt('Footnotes'), 3); |
| |
unshift (@$lines, "$header\n"); |
| |
return $lines; |
| |
} |
| |
|
| |
sub t2h_default_image_files($$$$) |
| |
{ |
| |
my $base = shift; |
| |
my $extension = shift; |
| |
my $texi_base = shift; |
| |
my $texi_extension = shift; |
| |
my @files = (); |
| |
return @files if (!defined($base) or ($base eq '')); |
| |
if (defined($extension) and ($extension ne '')) |
| |
{ |
| |
push @files,["$base.$extension", "$texi_base.$texi_extension"]; |
| |
} |
| |
foreach my $ext (@IMAGE_EXTENSIONS) |
| |
{ |
| |
push @files,["$base.$ext", "$texi_base.$ext"]; |
| |
} |
| |
return @files; |
| |
} |
| |
|
| |
# format an image |
| |
# |
| |
# arguments: |
| |
# image file name with path |
| |
# image basename |
| |
# a boolean true if we are in a preformatted format |
| |
# image file name without path |
| |
# alt text |
| |
# width |
| |
# height |
| |
# raw alt |
| |
# extension |
| |
# path to working dir |
| |
# path to file relative from working dir |
| |
sub t2h_default_image($$$$$$$$$$$$$$$$$) |
| |
{ |
| |
my $file = shift; |
| |
my $base = shift; |
| |
my $preformatted = shift; |
| |
my $file_name = shift; |
| |
my $alt = shift; |
| |
my $width = shift; |
| |
my $height = shift; |
| |
my $raw_alt = shift; |
| |
my $extension = shift; |
| |
my $working_dir = shift; |
| |
my $file_path = shift; |
| |
my $in_paragraph = shift; |
| |
my $file_locations = shift; |
| |
my $base_simple_format = shift; |
| |
my $extension_simple_format = shift; |
| |
my $file_name_simple_format = shift; |
| |
my $line_nr = shift; |
| |
|
| |
if (!defined($file_path) or $file_path eq '') |
| |
{ |
| |
if (defined($extension) and $extension ne '') |
| |
{ |
| |
$file = "$base.$extension"; |
| |
} |
| |
else |
| |
{ |
| |
$file = "$base.txt"; |
| |
} |
| |
} |
| |
elsif (! $COMPLETE_IMAGE_PATHS) |
| |
{ |
| |
$file = $file_name; |
| |
} |
| |
my $alt_txt = ''; |
| |
$alt_txt = ": $alt" if (defined($alt) and $alt =~ /\S/); |
| |
return "[ $file$alt_txt ]"; |
| |
# it is possible that $file_name is more correct as it allows the user |
| |
# to chose the relative path. |
| |
} |
| |
|
| |
# address put in footer describing when was generated and who did the manual |
| |
# not used anymore |
| |
sub t2h_default_address($) |
| |
{ |
| |
my $date = shift; |
| |
$date = '' if (!defined($date)); |
| |
if ($date ne '') |
| |
{ |
| |
return gdt('on @emph{{date}}', { 'date' => $date }); |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
# format a target in the main document for an index entry. |
| |
# |
| |
# arguments: |
| |
# target identifier |
| |
# boolean true if in preformatted format |
| |
sub t2h_default_index_entry_label($$$$$$$$$) |
| |
{ |
| |
my $identifier = shift; |
| |
my $preformatted = shift; |
| |
my $entry = shift; |
| |
my $index_name = shift; |
| |
my $index_command = shift; |
| |
my $texi_entry = shift; |
| |
my $formatted_entry = shift; |
| |
my $in_region_not_in_output = shift; |
| |
my $index_entry_ref = shift; |
| |
|
| |
return '' if (!defined($identifier) or ($identifier !~ /\S/)); |
| |
my $label = &$anchor($identifier); |
| |
return $label; |
| |
} |
| |
|
| |
sub t2h_default_index_entry_command($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $index_name = shift; |
| |
my $label = shift; |
| |
my $entry_texi = shift; |
| |
my $entry_formatted = shift; |
| |
my $index_entry_ref = shift; |
| |
|
| |
return $label; |
| |
} |
| |
|
| |
# process definition commands line @deffn for example |
| |
sub t2h_default_def_line($$$$$$$$$$$$$$$$) |
| |
{ |
| |
my $category_prepared = shift; |
| |
my $name = shift; |
| |
my $type = shift; |
| |
my $arguments = shift; |
| |
my $index_label = shift; |
| |
my $arguments_array = shift; |
| |
my $arguments_type_array = shift; |
| |
my $unformatted_arguments_array = shift; |
| |
my $command = shift; |
| |
my $class_name = shift; |
| |
my $category = shift; |
| |
my $class = shift; |
| |
my $style = shift; |
| |
my $original_command = shift; |
| |
|
| |
$name = '' if (!defined($name) or ($name =~ /^\s*$/)); |
| |
$type = '' if (!defined($type) or $type =~ /^\s*$/); |
| |
$arguments = '' if (!defined($arguments) or $arguments =~ /^\s*$/); |
| |
|
| |
my $type_name = ''; |
| |
$type_name .= "$type " if ($type ne ''); |
| |
$type_name .= $name if ($name ne ''); |
| |
|
| |
my $result = " -- $category_prepared: ${type_name}$arguments"; |
| |
$result =~ s/\s*$//; |
| |
$result .= "\n"; |
| |
|
| |
} |
| |
|
| |
# process definition commands line @deffn for example while removing texi |
| |
# commands |
| |
sub t2h_default_def_line_no_texi($$$$$) |
| |
{ |
| |
my $category = shift; |
| |
my $name = shift; |
| |
my $type = shift; |
| |
my $arguments = shift; |
| |
$name = '' if (!defined($name) or ($name =~ /^\s*$/)); |
| |
$type = '' if (!defined($type) or $type =~ /^\s*$/); |
| |
if (!defined($arguments) or $arguments =~ /^\s*$/) |
| |
{ |
| |
$arguments = ''; |
| |
} |
| |
my $type_name = ''; |
| |
$type_name = " $type" if ($type ne ''); |
| |
$type_name .= ' ' . $name if ($name ne ''); |
| |
$type_name .= $arguments; |
| |
if (! $DEF_TABLE) |
| |
{ |
| |
return $category . ':' . $type_name . "\n"; |
| |
} |
| |
else |
| |
{ |
| |
|
| |
return $type_name . " " . $category . "\n"; |
| |
} |
| |
} |
| |
|
| |
# a cartouche |
| |
sub t2h_default_cartouche($$) |
| |
{ |
| |
my $text = shift; |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return $text; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
my $IDXFILE; |
| |
# key: |
| |
# origin_href: |
| |
# entry: |
| |
# texi entry: |
| |
# element_href: |
| |
# element_text: |
| |
sub t2h_default_index_summary_file_entry ($$$$$$$$$) |
| |
{ |
| |
my $index_name = shift; |
| |
my $key = shift; |
| |
my $origin_href = shift; |
| |
my $entry = shift; |
| |
my $texi_entry = shift; |
| |
my $element_href = shift; |
| |
my $element_text = shift; |
| |
my $is_printed = shift; |
| |
my $manual_name = shift; |
| |
|
| |
$element_text = 'UNDEF' if (!defined($element_text)); |
| |
print $IDXFILE "key: $key\n origin_href: $origin_href\n entry: $entry\n" |
| |
. " texi_entry: $texi_entry\n" |
| |
. " element_href: $element_href\n element_text: $element_text\n"; |
| |
} |
| |
|
| |
sub t2h_default_index_summary_file_begin($$$) |
| |
{ |
| |
my $name = shift; |
| |
my $is_printed = shift; |
| |
my $manual_name = shift; |
| |
|
| |
$IDXFILE = main::open_out("$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . "_$name.idx"); |
| |
#open(IDXFILE, ">$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . "_$name.idx") |
| |
# || die "Can't open >$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . "_$name.idx for writing: $!\n"; |
| |
} |
| |
|
| |
sub t2h_default_index_summary_file_end($$$) |
| |
{ |
| |
my $name = shift; |
| |
my $is_printed = shift; |
| |
my $manual_name = shift; |
| |
|
| |
close ($IDXFILE); |
| |
} |
| |
|
| |
sub t2h_default_sp($$) |
| |
{ |
| |
my $number = shift; |
| |
my $preformatted = shift; |
| |
return "\n" x $number; |
| |
} |
| |
|
| |
sub t2h_default_acronym_like($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $acronym_texi = shift; |
| |
my $acronym_text = shift; |
| |
my $with_explanation = shift; |
| |
my $explanation_lines = shift; |
| |
my $explanation_text = shift; |
| |
my $explanation_simply_formatted = shift; |
| |
|
| |
if ($with_explanation) |
| |
{ |
| |
#return "$acronym_text ($explanation_text)"; |
| |
return gdt('{acronym_like} ({explanation})', {'acronym_like' => $acronym_text, 'explanation' => $explanation_text},{'duplicate'=>1}); |
| |
} |
| |
else |
| |
{ |
| |
return "$acronym_text"; |
| |
} |
| |
|
| |
} |
| |
|
| |
sub t2h_default_quotation_prepend_text($$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
return undef if (!defined($text) or $text =~ /^$/); |
| |
# If there is a @ protecting the end of line the result is, |
| |
# after the chomp: |
| |
# @b{some text @:} |
| |
# It is likely not to be what was intended, but it is certainly right. |
| |
# this is tested in formatting/quotation.texi |
| |
chomp($text); |
| |
return gdt('@b{{quotation_arg}:} ', {'quotation_arg' => $text}, {'keep_texi' => 1}); |
| |
} |
| |
|
| |
sub t2h_default_quotation($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $argument_text = shift; |
| |
my $argument_text_texi = shift; |
| |
my $authors = shift; |
| |
my $class_text = ''; |
| |
# this allows to add an end of line if there was none, which can happen |
| |
# if there is an argument to @quotation, but an empty quotation, like |
| |
# @quotation something |
| |
# @end quotation |
| |
chomp($text); |
| |
$text .= "\n"; |
| |
return $text; |
| |
} |
| |
|
| |
# format the text within a paragraph style format, |
| |
# |
| |
# argument: |
| |
# format name |
| |
# text within the format |
| |
sub t2h_default_paragraph_style_command($$) |
| |
{ |
| |
my $format = shift; |
| |
my $text = shift; |
| |
return $text; |
| |
} |
| |
|
| |
# format a whole index |
| |
# |
| |
# argument: |
| |
# index text |
| |
# index name |
| |
sub t2h_default_print_index($$) |
| |
{ |
| |
my $text = shift; |
| |
my $name = shift; |
| |
return '' if (!defined($text)); |
| |
return "* Index:\n" . $text; |
| |
} |
| |
|
| |
# format a letter entry in an index page. The letter entry contains |
| |
# the index entries for the words beginning with that letter. It is |
| |
# a target for links pointing from the summary of the index. |
| |
# |
| |
# arguments: |
| |
# the letter |
| |
# identifier for the letter entry. This should be used to make the target |
| |
# identifier |
| |
# text of the index entries |
| |
sub t2h_default_index_letter($$$) |
| |
{ |
| |
my $letter = shift; |
| |
my $id = shift; |
| |
my $text = shift; |
| |
return $text; |
| |
} |
| |
|
| |
# format an index entry (in a letter entry). |
| |
# |
| |
# arguments: |
| |
# href to the main text, linking to the place where the index entry appears |
| |
# entry text |
| |
# href to the main text, linking to the section or node where the index |
| |
# entry appears |
| |
# section or node heading |
| |
sub t2h_default_index_entry($$$$$$$$$$) |
| |
{ |
| |
my $text_href = shift; |
| |
my $entry = shift; |
| |
my $element_href = shift; |
| |
my $element_text = shift; |
| |
my $entry_file = shift; |
| |
my $current_element_file = shift; |
| |
my $entry_target = shift; |
| |
my $entry_element_target = shift; |
| |
my $in_region_not_in_output = shift; |
| |
my $index_entry_ref = shift; |
| |
|
| |
return '' if ($in_region_not_in_output); |
| |
#!$index_entry_ref->{'seen_in_output'} and defined($index_entry_ref->{'region'})); |
| |
$entry = main::substitute_line($index_entry_ref->{'texi'}, "index entry in \@printindex"); |
| |
return '' if ($entry =~ /^\s*$/); |
| |
|
| |
my $real_element_text; |
| |
my $element = $index_entry_ref->{'real_element'}; |
| |
# in case $element->{'text'} is not defined, it certainly means that we |
| |
# are n a special elemet, most likely the virtual element appearing |
| |
# before anything else |
| |
if (defined($element->{'text'})) |
| |
{ |
| |
my $element_set = 0; |
| |
if ($NODE_NAME_IN_INDEX) |
| |
{ |
| |
if ($element->{'node'}) |
| |
{ |
| |
$element_set = 1; |
| |
} |
| |
elsif ($element->{'with_node'}) |
| |
{ |
| |
$element = $element->{'with_node'}; |
| |
$element_set = 1; |
| |
} |
| |
} |
| |
elsif (defined($NODE_NAME_IN_INDEX)) |
| |
{ |
| |
if (!$element->{'node'}) |
| |
{ |
| |
$element_set = 1; |
| |
} |
| |
elsif ($element->{'with_section'}) |
| |
{ |
| |
$element = $element->{'with_section'}; |
| |
$element_set = 1; |
| |
} |
| |
} |
| |
$element = $element->{'element_ref'} if ($element->{'element_ref'} and !$element_set); |
| |
$real_element_text = $element->{'text'}; |
| |
} |
| |
else |
| |
{ |
| |
$real_element_text = gdt('(outside of any element)'); |
| |
} |
| |
return "* $entry: ".$real_element_text . '.'."\n"; |
| |
} |
| |
|
| |
|
| |
sub t2h_default_copying_comment($$$$) |
| |
{ |
| |
my $copying_lines = shift; |
| |
my $copying_text = shift; |
| |
my $copying_no_texi = shift; |
| |
my $copying_simple_text = shift; |
| |
return '' if ($copying_no_texi eq ''); |
| |
my $text = &$comment($copying_no_texi); |
| |
return $text; |
| |
} |
| |
|
| |
# return value is currently ignored |
| |
sub t2h_default_documentdescription($$$$) |
| |
{ |
| |
my $decription_lines = shift; |
| |
my $description_text = shift; |
| |
my $description_no_texi = shift; |
| |
my $description_simple_text = shift; |
| |
|
| |
if (defined($DOCUMENT_DESCRIPTION)) |
| |
{ |
| |
$Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'} = $DOCUMENT_DESCRIPTION; |
| |
return $DOCUMENT_DESCRIPTION; |
| |
} |
| |
|
| |
#return '' if ($description_no_texi eq ''); |
| |
#my @documentdescription = split (/\n/, $description_no_texi); |
| |
if ($description_simple_text eq '') |
| |
{ |
| |
$Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'} = undef; |
| |
return undef; |
| |
} |
| |
my @documentdescription = split (/\n/, $description_simple_text); |
| |
my $document_description = shift @documentdescription; |
| |
chomp $document_description; |
| |
foreach my $line (@documentdescription) |
| |
{ |
| |
chomp $line; |
| |
$document_description .= ' ' . $line; |
| |
} |
| |
$Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'} = $document_description; |
| |
return $document_description; |
| |
} |
| |
|
| |
# format an index summary. This is a list of letters linking to the letter |
| |
# entries. |
| |
# |
| |
# arguments: |
| |
# array reference containing the formatted alphabetical letters |
| |
# array reference containing the formatted non lphabetical letters |
| |
sub t2h_default_index_summary($$) |
| |
{ |
| |
my $alpha = shift; |
| |
my $nonalpha = shift; |
| |
|
| |
my $join = ''; |
| |
my $nonalpha_text = ''; |
| |
my $alpha_text = ''; |
| |
return ''; |
| |
} |
| |
|
| |
# return the heading with number texinfo text |
| |
# also called for nodes. |
| |
sub t2h_default_heading_texi($$$) |
| |
{ |
| |
my $tag = shift; |
| |
my $texi = shift; |
| |
my $number = shift; |
| |
#$texi = main::trim_around_spaces($texi); |
| |
return "$number $texi" if ($NUMBER_SECTIONS and defined($number) and ($number !~ /^\s*$/)) ; |
| |
return $texi; |
| |
} |
| |
|
| |
# return the heading texinfo text for split index sections |
| |
sub t2h_default_index_element_heading_texi($$$) |
| |
{ # FIXME i18n |
| |
my $heading_texi = shift; |
| |
my $tag = shift; |
| |
my $texi = shift; |
| |
my $number = shift; |
| |
my $first_letter = shift; |
| |
my $last_letter = shift; |
| |
return "$heading_texi: $first_letter -- $last_letter" if ($last_letter ne $first_letter); |
| |
return "$heading_texi: $first_letter"; |
| |
} |
| |
|
| |
sub t2h_default_element_label($$$$) |
| |
{ |
| |
my $id = shift; |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $line = shift; |
| |
|
| |
return &$anchor($id); |
| |
} |
| |
|
| |
sub t2h_default_misc_element_label($$) |
| |
{ |
| |
my $id = shift; |
| |
my $misc_page_name = shift; |
| |
return &$anchor($id); |
| |
} |
| |
|
| |
sub t2h_default_anchor_label($$$$) |
| |
{ |
| |
my $id = shift; |
| |
my $anchor_text = shift; |
| |
my $anchor_reference = shift; |
| |
my $in_special_region = shift; |
| |
return &$anchor($id); |
| |
} |
| |
|
| |
sub t2h_default_colon_command($) |
| |
{ |
| |
my $punctuation_character = shift; |
| |
return $colon_command_punctuation_characters{$punctuation_character} if defined($colon_command_punctuation_characters{$punctuation_character}); |
| |
return $punctuation_character; |
| |
} |
| |
|
| |
# called each time a @tab or an @itemx is encountered. |
| |
# To be noticed that there is another function better suited for |
| |
# formatting of an @item line: $format_list_item_texi |
| |
sub t2h_default_tab_item_texi($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $commands_stack = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line = shift; |
| |
my $line_nr = shift; |
| |
|
| |
return undef; |
| |
} |
| |
|
| |
sub xml_default_line_command($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $arg_text = shift; |
| |
my $arg_texi = shift; |
| |
my $state = shift; |
| |
|
| |
my $style = $line_command_map{$command}; |
| |
return '' if ($arg_text eq '' and !defined($style) or $style eq ''); |
| |
if ($style) |
| |
{ |
| |
my $attribute_text = ''; |
| |
if ($style =~ /^(\w+)(\s+.*)/) |
| |
{ |
| |
$style = $1; |
| |
$attribute_text = $2; |
| |
} |
| |
$arg_text = "<${style}$attribute_text>$arg_text</$style>"; |
| |
} |
| |
$arg_text .= "\n"; |
| |
return $arg_text; |
| |
} |
| |
|
| |
sub t2h_default_line_command($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $arg_text = shift; |
| |
my $arg_texi = shift; |
| |
my $state = shift; |
| |
|
| |
return $arg_text; |
| |
} |
| |
|
| |
# info is special, since it doesn't use the basename but directly the |
| |
# setfilename output, contrary to all the other formats |
| |
sub t2h_default_element_file_name($$$) |
| |
{ |
| |
my $element = shift; |
| |
my $type = shift; |
| |
my $prefix = shift; |
| |
|
| |
my $outname; |
| |
return unless ($USE_SETFILENAME_EXTENSION and $PREFIX eq ''); |
| |
$outname = $OUT if (defined($OUT) and $OUT ne '' and $OUT !~ /\/$/ and $Texi2HTML::THISDOC{'input_file_number'} == 0); |
| |
if ($type eq 'doc' or !get_conf('SPLIT')) |
| |
{ |
| |
if (defined($Texi2HTML::THISDOC{'setfilename'}) and !defined($outname)) |
| |
{ |
| |
$Texi2HTML::THISDOC{'extension'} = ''; |
| |
return $Texi2HTML::THISDOC{'setfilename'}; |
| |
} |
| |
} |
| |
|
| |
return undef; |
| |
} |
| |
|
| |
sub t2h_default_misc_command_line($$$$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $line = shift; |
| |
my $args = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
|
| |
my $result; |
| |
return ($macro, $line, $result); |
| |
} |
| |
|
| |
sub t2h_default_internal_links($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $elements_list = shift; |
| |
my $indices = shift; |
| |
|
| |
foreach my $element (@$elements_list) |
| |
{ |
| |
my $text = $element->{'no_texi'}; |
| |
#$text =~ s/^([\w.]+)\. /$1 /; |
| |
#$text = "Annexe ".$text if ($element->{'tag'} =~ /appendix/); |
| |
print $fh "$element->{'file'}#$element->{'id'}\ttoc\t$text\n"; |
| |
} |
| |
foreach my $index_name (sort(keys(%$indices))) |
| |
{ |
| |
my $entries = $indices->{$index_name}; |
| |
|
| |
foreach my $letter_entries (@$entries) |
| |
{ |
| |
foreach my $entry (@{$letter_entries->{'entries'}}) |
| |
{ |
| |
#print STDERR "($index_name) key $key, t $entry->{'texi'}: $entry->{'file'}#$entry->{'target'}\n"; |
| |
print $fh "$entry->{'file'}#$entry->{'target'}\t$index_name\t$entry->{'key'}\n" if ($entry->{'key'} =~ /\S/); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
1; |
| |
|
| |
require "$T2H_HOME/texi2html.init" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/texi2html.init" && -r "$T2H_HOME/texi2html.init"); |
| |
|
| |
# @INIT_HTML@ |
| |
# -*-perl-*- |
| |
# vim: set filetype=perl: |
| |
###################################################################### |
| |
# File: html.init |
| |
# html output formatting |
| |
# |
| |
# A copy of this file is pasted into the beginning of texi2html by |
| |
# running './configure'. |
| |
# |
| |
# $Id$ |
| |
|
| |
use strict; |
| |
|
| |
use vars qw(@html_default_multitable_stack); |
| |
# used in mediawiki.init |
| |
#my @html_default_multitable_stack; |
| |
# tracks menu entry index |
| |
my $html_menu_entry_index; |
| |
# the simple_formatted document title |
| |
my $html_default_title; |
| |
|
| |
# initialise the html output |
| |
sub html_default_load(;$) |
| |
{ |
| |
my $from_command_line = shift; |
| |
|
| |
t2h_default_set_variables_xml(); |
| |
|
| |
############################################################### |
| |
# defaults |
| |
|
| |
$HEADERS = 1; |
| |
|
| |
@T2H_FORMAT_EXPAND = ('html'); |
| |
|
| |
# The value is the 'SystemLiteral' which identifies the canonical DTD |
| |
# for the document. |
| |
# Definition: The SystemLiteral is called the entity's system |
| |
# identifier. It is a URI, which may be used to retrieve the entity. |
| |
# See http://www.xml.com/axml/target.html#NT-ExternalID |
| |
$DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'; |
| |
|
| |
# When frames are used, this SystemLiteral identifies the DTD used for |
| |
# the file containing the frame description. |
| |
$FRAMESET_DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'; |
| |
|
| |
# if this value is true, ISO8859 characters are used for special symbols |
| |
# (like copyright, etc). |
| |
$USE_ISO = 1; |
| |
|
| |
# if the value is true the Texinfo menus are shown. |
| |
$SHOW_MENU = 1; |
| |
|
| |
$SHOW_TITLE = 1; |
| |
|
| |
# default is to use nodes only as elements. |
| |
$USE_SECTIONS = undef; |
| |
|
| |
$TOP_FILE = 'index.html'; |
| |
|
| |
# file name used for Top node when NODE_FILES is true |
| |
$TOP_NODE_FILE = 'index'; |
| |
|
| |
############################################################################## |
| |
# |
| |
# The following can only be set in the init file |
| |
# |
| |
############################################################################## |
| |
|
| |
$INLINE_INSERTCOPYING = 0; |
| |
|
| |
# if this variable is true, numeric entities are used when there is no |
| |
# corresponding textual entity. |
| |
$USE_NUMERIC_ENTITY = 1; |
| |
|
| |
# if true, use the original command if the result is an entity |
| |
$ENABLE_ENCODING_USE_ENTITY = 1; |
| |
|
| |
# used as identation for block enclosing command @example, etc |
| |
# If not empty, must be enclosed in <td></td> |
| |
$EXAMPLE_INDENT_CELL = '<td> </td>'; |
| |
|
| |
# same as above, only for @small |
| |
$SMALL_EXAMPLE_INDENT_CELL = '<td> </td>'; |
| |
|
| |
# font size for @small |
| |
$SMALL_FONT_SIZE = '-1'; |
| |
|
| |
# horizontal rules |
| |
# Not used |
| |
$SMALL_RULE = '<hr size="1">'; |
| |
$MIDDLE_RULE = '<hr size="2">'; |
| |
# used almost everywhere |
| |
$DEFAULT_RULE = '<hr>'; |
| |
# used for top element and before misc elements |
| |
$BIG_RULE = '<hr size="6">'; |
| |
|
| |
# symbol put at the beginning of nodes entry in menu (and optionnaly of |
| |
# unnumbered in menus, see next variable) |
| |
$MENU_SYMBOL = '•'; |
| |
#$MENU_SYMBOL = '*'; |
| |
|
| |
$SIMPLE_MENU = 0; |
| |
|
| |
# extension for nodes files when NODE_FILES is true |
| |
$NODE_FILE_EXTENSION = 'html'; |
| |
|
| |
# extension |
| |
$EXTENSION = 'html'; |
| |
|
| |
# default is to split the html output |
| |
$SPLIT = 'node'; |
| |
|
| |
# this resets all the variables to the texi2html specific values if |
| |
# called as texi2html |
| |
|
| |
t2h_default_set_variables_texi2html() if ($COMMAND_NAME eq 'texi2html'); |
| |
|
| |
# this controls the pre style for menus |
| |
$MENU_PRE_STYLE = 'font-family: serif'; |
| |
|
| |
# on bug-texinfo is has been said the the style is not code_style |
| |
# for menus (except for the node name). |
| |
# this controls the menu preformatted format |
| |
# FIXME this is not dynamic, so change in MENU_PRE_STYLE is not taken |
| |
# into account. |
| |
# This is used if the menu appears within a preformatted format (which |
| |
# is certainly an invalid construct), and SIMPLE_MENU is not set. |
| |
$MENU_PRE_COMPLEX_FORMAT = { |
| |
'pre_style' => $MENU_PRE_STYLE, |
| |
'class' => 'menu-preformatted', |
| |
# 'style' => 'code' |
| |
}; |
| |
|
| |
# This controls the ul style for toc |
| |
$NO_BULLET_LIST_STYLE = 'list-style: none'; |
| |
$NO_BULLET_LIST_CLASS = 'no-bullet'; |
| |
$NO_BULLET_LIST_ATTRIBUTE = ' class="'.$NO_BULLET_LIST_CLASS.'"'; |
| |
|
| |
# These lines are inserted before and after the shortcontents |
| |
$BEFORE_OVERVIEW = "<div class=\"shortcontents\">\n"; |
| |
$AFTER_OVERVIEW = "</div>\n"; |
| |
|
| |
# These lines are inserted before and after the contents |
| |
$BEFORE_TOC_LINES = "<div class=\"contents\">\n"; |
| |
$AFTER_TOC_LINES = "</div>\n"; |
| |
|
| |
# text inserted after <body ...> |
| |
$AFTER_BODY_OPEN = ''; |
| |
|
| |
# text inserted before </body>, this will be automatically inside <p></p> |
| |
$PRE_BODY_CLOSE = ''; |
| |
|
| |
# this is added inside <head></head> after <title> and some <meta name> |
| |
# stuff, it can be used for eg. <style>, <script>, <meta> etc. tags. |
| |
$EXTRA_HEAD = ''; |
| |
|
| |
# Specifies the minimum page length required before a navigation panel |
| |
# is placed at the bottom of a page |
| |
$WORDS_IN_PAGE = 300; |
| |
|
| |
# html version for latex2html |
| |
$L2H_HTML_VERSION = "4.0"; |
| |
|
| |
# this is not set dynamically |
| |
if (!$HEADER_IN_TABLE) |
| |
{ |
| |
@SECTION_BUTTONS = ([ 'NodeNext', \&html_default_node_direction ], |
| |
[ 'NodePrev', \&html_default_node_direction ], |
| |
[ 'NodeUp', \&html_default_node_direction ], ' ', |
| |
'Contents', 'Index'); |
| |
@CHAPTER_BUTTONS = @SECTION_FOOTER_BUTTONS = @NODE_FOOTER_BUTTONS = |
| |
@MISC_BUTTONS = @TOP_BUTTONS = @SECTION_BUTTONS; |
| |
$BIG_RULE = $DEFAULT_RULE; |
| |
} |
| |
|
| |
$ICONS = 0; |
| |
|
| |
%BUTTONS_ACCESSKEY = |
| |
( |
| |
'Top', '', |
| |
'Contents', '', |
| |
'Overview', '', |
| |
'Index', '', |
| |
'This', '', |
| |
'Back', 'p', |
| |
'FastBack', '', |
| |
'Prev', 'p', |
| |
'Up', 'u', |
| |
'Next', 'n', |
| |
'NodeUp', 'u', |
| |
'NodeNext', 'n', |
| |
'NodePrev', 'p', |
| |
'Following', '', |
| |
'Forward', 'n', |
| |
'FastForward', '', |
| |
'About' , '', |
| |
'First', '', |
| |
'Last', '', |
| |
'NextFile', '', |
| |
'PrevFile', '', |
| |
); |
| |
|
| |
# see http://www.w3.org/TR/REC-html40/types.html#type-links |
| |
%BUTTONS_REL = |
| |
( |
| |
'Top', 'start', |
| |
'Contents', 'contents', |
| |
'Overview', '', |
| |
'Index', 'index', |
| |
'This', '', |
| |
'Back', 'previous', |
| |
'FastBack', '', |
| |
'Prev', 'previous', |
| |
'Up', 'up', |
| |
'Next', 'next', |
| |
'NodeUp', 'up', |
| |
'NodeNext', 'next', |
| |
'NodePrev', 'previous', |
| |
'Following', '', |
| |
'Forward', 'next', |
| |
'FastForward', '', |
| |
'About' , 'help', |
| |
'First', '', |
| |
'Last', '', |
| |
'NextFile', 'next', |
| |
'PrevFile', 'previous', |
| |
); |
| |
|
| |
|
| |
|
| |
# PRE_ABOUT can be a function reference or a scalar. |
| |
# Note that if it is a scalar, T2H_InitGlobals has not been called, |
| |
# and all global variables like $ADDRESS are not available. |
| |
$PRE_ABOUT = sub |
| |
{ |
| |
return ' ' . &$program_string() . "\n"; |
| |
}; |
| |
|
| |
# If customizing $AFTER_ABOUT, be sure to put the content inside <p></p>. |
| |
$AFTER_ABOUT = ''; |
| |
|
| |
%BUTTONS_EXAMPLE = |
| |
( |
| |
'Top', ' ', |
| |
'Contents', ' ', |
| |
'Overview', ' ', |
| |
'Index', ' ', |
| |
'This', '1.2.3', |
| |
'Back', '1.2.2', |
| |
'FastBack', '1', |
| |
'Prev', '1.2.2', |
| |
'Up', '1.2', |
| |
'Next', '1.2.4', |
| |
'NodeUp', '1.2', |
| |
'NodeNext', '1.2.4', |
| |
'NodePrev', '1.2.2', |
| |
'Following', '1.2.4', |
| |
'Forward', '1.2.4', |
| |
'FastForward', '2', |
| |
'About', ' ', |
| |
'First', '1.', |
| |
'Last', '1.2.4', |
| |
'NextFile', ' ', |
| |
'PrevFile', ' ', |
| |
); |
| |
|
| |
@IMAGE_EXTENSIONS = ('png','jpg','jpeg','gif'); |
| |
#, 'txt'); |
| |
|
| |
####################################################################### |
| |
# |
| |
# Values guessed if not set here. The value used is in |
| |
# $Texi2HTML::THISDOC{'VARNAME'} |
| |
# |
| |
####################################################################### |
| |
|
| |
$BODYTEXT = undef; |
| |
|
| |
#$init_out = \&html_default_init_out; |
| |
$translate_names = \&html_default_translate_names; |
| |
|
| |
t2h_default_push_handler(\&html_default_initialize, \@command_handler_init); |
| |
# This must be done after language has been set |
| |
t2h_default_push_handler(\&html_default_bodytext, \@command_handler_process); |
| |
# This must be done after the fulltitle has been set |
| |
t2h_default_push_handler(\&html_default_do_title, \@command_handler_output); |
| |
|
| |
######################################################################## |
| |
# Control of Page layout: |
| |
# You can make changes of the Page layout at two levels: |
| |
# 1.) For small changes, it is often enough to change the value of |
| |
# some global string/hash/array variables |
| |
# 2.) For larger changes, reimplement one of the HTML_DEFAULT_<fnc>* routines, |
| |
# give them another name, and assign them to the respective |
| |
# $<fnc> variable. |
| |
|
| |
# As a general interface, the hashes Texi2HTML::HREF, Texi2HTML::NAME, Texi2HTML::NODE, Texi2HTML::NO_TEXI, Texi2HTML::SIMPLE_TEXT hold |
| |
# href, html-name, node-name, name after removal of texi commands of |
| |
# This -- current section (resp. html page) |
| |
# Top -- top element |
| |
# Contents -- Table of contents element |
| |
# Overview -- Short table of contents element |
| |
# Index -- Index page element |
| |
# About -- page which explain "navigation buttons" element |
| |
# First -- first node element |
| |
# Last -- last node element |
| |
# |
| |
# Whether or not the following hash values are set, depends on the context |
| |
# (all values are w.r.t. 'This' section) |
| |
# Next -- next element of texinfo |
| |
# Prev -- previous element of texinfo |
| |
# NodeUp -- up node of texinfo |
| |
# Following -- following node in node reading order, taking menu into account |
| |
# Forward -- next node in reading order |
| |
# Back -- previous node in reading order |
| |
# Up -- parent given by sectioning commands |
| |
# FastForward -- if leave node, up and next, else next node |
| |
# FastBackward-- if leave node, up and prev, else prev node |
| |
# |
| |
# Furthermore, the following global variabels are set: |
| |
# $Texi2HTML::THISDOC{title} -- title as set by @title... |
| |
# $Texi2HTML::THISDOC{title_no_texi} -- title without texi (without html elements) |
| |
# $Texi2HTML::THISDOC{title_texi} -- title with texinfo @-commands |
| |
# $Texi2HTML::THISDOC{fulltitle} -- full title as set by @title... |
| |
# $Texi2HTML::THISDOC{subtitle} -- subtitle as set by @subtitle |
| |
# $Texi2HTML::THISDOC{author} -- author as set by @author |
| |
# $Texi2HTML::THISDOC{copying_comment} -- text of @copying and @end copying in comment |
| |
# |
| |
# $Texi2HTML::THISDOC{program} -- name and version of texi2html |
| |
# $Texi2HTML::THISDOC{program_homepage} -- homepage for texi2html |
| |
# $Texi2HTML::THISDOC{program_authors} -- authors of texi2html |
| |
# $Texi2HTML::THISDOC{today} -- date formatted with pretty_date |
| |
# $Texi2HTML::THISDOC{toc_file} -- table of contents file |
| |
# $Texi2HTML::THISDOC{file_base_name} -- base name of the texinfo manual file |
| |
# $Texi2HTML::THISDOC{input_file_name} -- name of the texinfo manual file |
| |
# $Texi2HTML::THISDOC{destination_directory} |
| |
# -- directory for the resulting files |
| |
# $Texi2HTML::THISDOC{user} -- user running the script |
| |
# $Texi2HTML::THISDOC{css_import_lines} -- ref on @import lines in css files |
| |
# $Texi2HTML::THISDOC{css_rule_lines} -- ref on css rules lines |
| |
# other $Texi2HTML::THISDOC keys corresponds with texinfo commands, the value |
| |
# being the command arg, for the following commands: |
| |
# kbdinputstyle, paragraphindent, setchapternewpage, headings, footnotestyle, |
| |
# exampleindent, firstparagraphindent, everyheading, everyfooting, |
| |
# evenheading, evenfooting, oddheading, oddfooting |
| |
# |
| |
# and pointer to arrays of lines which need to be printed by main::print_lines |
| |
# $Texi2HTML::THIS_SECTION -- lines of 'This' section |
| |
# $Texi2HTML::OVERVIEW -- lines of short table of contents |
| |
# $Texi2HTML::TOC_LINES -- lines of table of contents |
| |
# $Texi2HTML::TITLEPAGE -- lines of title page |
| |
# |
| |
# $Texi2HTML::THIS_ELEMENT holds the element reference. |
| |
|
| |
# |
| |
# There are the following subs which control the layout: |
| |
# |
| |
$print_section = \&HTML_DEFAULT_print_section; |
| |
$end_section = \&HTML_DEFAULT_end_section; |
| |
$one_section = \&HTML_DEFAULT_one_section; |
| |
$print_Top_footer = \&HTML_DEFAULT_print_Top_footer; |
| |
$print_Top = \&HTML_DEFAULT_print_Top; |
| |
# changed in info format, but irrelevant for non-split formats |
| |
$print_Footnotes = \&T2H_DEFAULT_print_Footnotes; |
| |
$print_misc_header = \&HTML_DEFAULT_print_misc_header; |
| |
$print_misc_footer = \&HTML_DEFAULT_print_misc_footer; |
| |
$print_section_footer = \&HTML_DEFAULT_print_section_footer; |
| |
$print_chapter_header = \&HTML_DEFAULT_print_chapter_header; |
| |
$print_section_header = \&HTML_DEFAULT_print_section_header; |
| |
$print_chapter_footer = \&HTML_DEFAULT_print_chapter_footer; |
| |
$print_page_head = \&HTML_DEFAULT_print_page_head; |
| |
$print_page_foot = \&HTML_DEFAULT_print_page_foot; |
| |
$print_head_navigation = \&HTML_DEFAULT_print_head_navigation; |
| |
$print_foot_navigation = \&HTML_DEFAULT_print_foot_navigation; |
| |
$button_icon_img = \&HTML_DEFAULT_button_icon_img; |
| |
$button_formatting = \&HTML_DEFAULT_button_formatting; |
| |
|
| |
$print_navigation = \&HTML_DEFAULT_print_navigation; |
| |
$about_body = \&HTML_DEFAULT_about_body; |
| |
|
| |
$print_frame = \&HTML_DEFAULT_print_frame; |
| |
$print_toc_frame = \&HTML_DEFAULT_print_toc_frame; |
| |
$contents = \&HTML_DEFAULT_contents; |
| |
$shortcontents = \&HTML_DEFAULT_shortcontents; |
| |
$print_redirection_page = \&HTML_DEFAULT_print_redirection_page; |
| |
|
| |
######################################################################## |
| |
# Control of formatting: |
| |
# 1.) For some changes, it is often enough to change the value of |
| |
# some global map. It might necessitate building a little |
| |
# function along with the change in hash, if the change is the use |
| |
# of another function (in style_map). |
| |
# 2.) For other changes, reimplement one of the t2h_default_<fnc>* routines, |
| |
# give them another name, and assign them to the respective |
| |
# $<fnc> variable (below). |
| |
|
| |
|
| |
# |
| |
# texinfo "simple things" (@foo) to HTML ones |
| |
# |
| |
%simple_map = %default_simple_map; |
| |
$simple_map{'*'} = '<br>'; # HTML+ |
| |
$simple_map{' '} = ' '; |
| |
$simple_map{"\t"} = ' '; |
| |
$simple_map{"\n"} = ' '; |
| |
# "­" or "­" could also be possible for @-, but it seems |
| |
# that some browser will consider this as an always visible hyphen mark |
| |
# which is not what we want (see http://www.cs.tut.fi/~jkorpela/shy.html) |
| |
#$simple_map{'-'} = ''; # hyphenation hint |
| |
|
| |
# this map is used in preformatted text |
| |
%simple_map_pre = %simple_map; |
| |
$simple_map_pre{'*'} = "\n"; |
| |
|
| |
# use entities in the default case |
| |
#$things_map{'dots'} = '<small class="dots">...</small>'; |
| |
$things_map{'enddots'} = '<small class="enddots">...</small>'; |
| |
|
| |
%style_map = (); |
| |
%style_map_pre = (); |
| |
t2h_default_copy_style_map (\%default_style_map, \%style_map); |
| |
t2h_default_copy_style_map (\%default_style_map_pre, \%style_map_pre); |
| |
# default is {'args' => ['normal'], 'attribute' => ''}, |
| |
my %style_map_html = ( |
| |
'b', {'inline_attribute' => 'b'}, |
| |
'cite', {'inline_attribute' => 'cite'}, |
| |
'code', {'inline_attribute' => 'code'}, |
| |
'command', {'inline_attribute' => 'code'}, |
| |
'dfn', {'inline_attribute' => 'em'}, |
| |
'email', {'function' => \&html_default_email}, |
| |
'emph', {'inline_attribute' => 'em'}, |
| |
'env', {'inline_attribute' => 'code'}, |
| |
'file', {'inline_attribute' => 'tt', 'quote' => '"'}, |
| |
'headitemfont', {'inline_attribute' => 'b'}, # not really that, in fact it is |
| |
# in <th> rather than <td> |
| |
'i', {'inline_attribute' => 'i'}, |
| |
'slanted', {'inline_attribute' => 'i'}, |
| |
'sansserif', {'inline_attribute' => 'span class="sansserif"'}, |
| |
'kbd', {'inline_attribute' => 'kbd'}, |
| |
'key', {'begin' => '<', 'end' => '>'}, |
| |
'math', {'function' => \&html_default_math}, |
| |
'option', {'inline_attribute' => 'samp', 'quote' => '"'}, |
| |
'r', {'inline_attribute' => 'span class="roman"'}, |
| |
'samp', {'inline_attribute' => 'samp', 'quote' => '"'}, |
| |
'sc', {'inline_attribute' => 'small'}, |
| |
'strong', {'inline_attribute' => 'strong'}, |
| |
't', {'inline_attribute' => 'tt'}, |
| |
'uref', {'function' => \&html_default_uref}, |
| |
'url', {'function' => \&html_default_uref}, |
| |
'indicateurl', {'begin' => '<<code>', 'end' => '</code>>'}, |
| |
'var', {'inline_attribute' => 'var'}, |
| |
'verb', {'inline_attribute' => 'tt'}, |
| |
); |
| |
|
| |
foreach my $style_command (keys(%style_map_html)) |
| |
{ |
| |
foreach my $key (keys(%{$style_map_html{$style_command}})) |
| |
{ |
| |
$style_map_pre{$style_command}->{$key} = $style_map_html{$style_command}->{$key}; |
| |
$style_map{$style_command}->{$key} = $style_map_html{$style_command}->{$key}; |
| |
} |
| |
} |
| |
|
| |
%line_command_map = ( |
| |
'title' => 'h1', |
| |
'subtitle' => 'h3 align="right"', |
| |
'author' => 'strong', |
| |
); |
| |
|
| |
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents)) |
| |
{ |
| |
$style_map{$accent_command} = { 'function' => \&xml_default_accent }; |
| |
$style_map_pre{$accent_command} = { 'function' => \&xml_default_accent }; |
| |
} |
| |
|
| |
$style_map_pre{'sc'} = {}; |
| |
$style_map_pre{'titlefont'} = {}; |
| |
$style_map_pre{'click'}->{'function'} = \&t2h_default_click_pre; |
| |
|
| |
# uncomment to use the old interface |
| |
#%style_map = %old_style_map; |
| |
#%style_map_pre = %old_style_map_pre; |
| |
|
| |
%simple_format_simple_map_texi = %simple_map_pre; |
| |
|
| |
%format_map = ( |
| |
# 'quotation' => 'blockquote', |
| |
# lists |
| |
# 'itemize' => 'ul', |
| |
'enumerate' => 'ol', |
| |
# 'multitable' => 'table', |
| |
'table' => 'dl compact="compact"', |
| |
'vtable' => 'dl compact="compact"', |
| |
'ftable' => 'dl compact="compact"', |
| |
'group' => '', |
| |
'raggedright' => '', |
| |
# 'detailmenu' => '', |
| |
); |
| |
|
| |
#%special_list_commands = ( |
| |
# 'table' => {}, |
| |
# 'vtable' => {}, |
| |
# 'ftable' => {}, |
| |
# 'itemize' => { 'bullet' => '' } |
| |
# ); |
| |
|
| |
$special_list_commands{'itemize'}->{ 'bullet'} = ''; |
| |
|
| |
# |
| |
# texinfo format to align attribute of paragraphs |
| |
# |
| |
|
| |
%paragraph_style = ( |
| |
'center' => 'center', |
| |
'flushleft' => 'left', |
| |
'flushright' => 'right', |
| |
); |
| |
|
| |
# preformatted formats formatting |
| |
if ($COMPLEX_FORMAT_IN_TABLE) |
| |
{ |
| |
foreach my $indented_format ('example', 'display', 'lisp') |
| |
{ |
| |
$complex_format_map{"small$indented_format"}->{'begin'} = "<table><tr>$SMALL_EXAMPLE_INDENT_CELL<td>"; |
| |
$complex_format_map{$indented_format}->{'begin'} = "<table><tr>$EXAMPLE_INDENT_CELL<td>"; |
| |
$complex_format_map{$indented_format}->{'end'} = "</td></tr></table>\n"; |
| |
$complex_format_map{"small$indented_format"}->{'end'} = "</td></tr></table>\n"; |
| |
} |
| |
|
| |
foreach my $non_indented_formats ('format', 'smallformat') |
| |
{ |
| |
$complex_format_map{$non_indented_formats}->{'begin'} = ''; |
| |
$complex_format_map{$non_indented_formats}->{'end'} = "\n"; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
foreach my $format ('example', 'display', 'lisp', 'format') |
| |
{ |
| |
$complex_format_map{$format}->{'begin'} = html_default_attribute_class('div', $format).">\n"; |
| |
$complex_format_map{"small$format"}->{'begin'} = html_default_attribute_class('div', "small$format").">\n"; |
| |
$complex_format_map{$format}->{'end'} = '</div>'."\n"; |
| |
$complex_format_map{"small$format"}->{'end'} = '</div>'."\n"; |
| |
} |
| |
} |
| |
|
| |
foreach my $format ('menu', 'detailmenu', 'direntry') |
| |
{ |
| |
$complex_format_map{$format} = { 'begin' => '' , 'end' => '', |
| |
'class' => 'menu-preformatted', |
| |
}; |
| |
} |
| |
|
| |
$complex_format_map{'menu_comment'} = { |
| |
'begin' => "<tr><th colspan=\"3\" align=\"left\" valign=\"top\">", |
| |
'end' => "</th></tr>", 'class' => 'menu-comment', |
| |
}; |
| |
|
| |
|
| |
%format_in_paragraph = ( |
| |
'html' => 1, |
| |
); |
| |
# map mapping css specification to style |
| |
|
| |
%css_map = |
| |
( |
| |
"ul.$NO_BULLET_LIST_CLASS" => "$NO_BULLET_LIST_STYLE", |
| |
'pre.menu-comment' => "$MENU_PRE_STYLE", |
| |
'pre.menu-preformatted' => "$MENU_PRE_STYLE", |
| |
'a.summary-letter' => 'text-decoration: none', |
| |
'blockquote.smallquotation' => 'font-size: smaller', |
| |
# 'pre.display' => 'font-family: inherit', |
| |
# 'pre.smalldisplay' => 'font-family: inherit; font-size: smaller', |
| |
'pre.display' => 'font-family: serif', |
| |
'pre.smalldisplay' => 'font-family: serif; font-size: smaller', |
| |
'pre.smallexample' => 'font-size: smaller', |
| |
'span.sansserif' => 'font-family:sans-serif; font-weight:normal', |
| |
'span.roman' => 'font-family:serif; font-weight:normal', |
| |
'span.nocodebreak' => 'white-space:pre', |
| |
'span.nolinebreak' => 'white-space:pre' |
| |
); |
| |
|
| |
$css_map{'pre.format'} = $css_map{'pre.display'}; |
| |
$css_map{'pre.smallformat'} = $css_map{'pre.smalldisplay'}; |
| |
$css_map{'pre.smalllisp'} = $css_map{'pre.smallexample'}; |
| |
|
| |
foreach my $indented_format ('example', 'display', 'lisp') |
| |
{ |
| |
$css_map{"div.$indented_format"} = 'margin-left: 3.2em'; |
| |
$css_map{"div.small$indented_format"} = 'margin-left: 3.2em'; |
| |
} |
| |
|
| |
# formatting functions |
| |
|
| |
$acronym_like = \&html_default_acronym_like; |
| |
$anchor = \&html_default_anchor; |
| |
$anchor_label = \&html_default_anchor_label; |
| |
$begin_format_texi = \&html_default_begin_format_texi; |
| |
$caption_shortcaption = \&html_default_caption_shortcaption; |
| |
$caption_shortcaption_command = \&html_default_caption_shortcaption_command; |
| |
$cartouche = \&html_default_cartouche; |
| |
$cell = \&html_default_cell; |
| |
$def = \&html_default_def; |
| |
$def_item = \&html_default_def_item; |
| |
$def_line = \&html_default_def_line; |
| |
$element_label = \&html_default_element_label; |
| |
$float = \&html_default_float; |
| |
$foot_line_and_ref = \&html_default_foot_line_and_ref; |
| |
$foot_section = \&html_default_foot_section; |
| |
$format_list_item_texi = \&html_default_format_list_item_texi; |
| |
$heading = \&t2h_default_heading; |
| |
$heading_text = \&html_default_heading_text; |
| |
$heading_text_preformatted = \&html_default_heading_text_preformatted; |
| |
$image = \&html_default_image; |
| |
$image_files = \&html_default_image_files; |
| |
$index_entry = \&html_default_index_entry; |
| |
$index_entry_command = \&html_default_index_entry_command; |
| |
$index_entry_label = \&html_default_index_entry_label; |
| |
$index_letter = \&html_default_index_letter; |
| |
$index_summary = \&html_default_index_summary; |
| |
$insertcopying = \&html_default_insertcopying; |
| |
$line_command = \&html_default_line_command; |
| |
$list_item = \&html_default_list_item; |
| |
$listoffloats = \&html_default_listoffloats; |
| |
$listoffloats_entry = \&html_default_listoffloats_entry; |
| |
$listoffloats_caption = \&html_default_listoffloats_caption; |
| |
$listoffloats_float_style = \&html_default_listoffloats_float_style; |
| |
$menu_command = \&html_default_menu_command; |
| |
$menu_link = \&html_default_menu_link; |
| |
$menu_description = \&html_default_menu_description; |
| |
$misc_element_label = \&html_default_misc_element_label; |
| |
$normal_text = \&html_default_normal_text; |
| |
$paragraph = \&html_default_paragraph; |
| |
$preformatted = \&html_default_preformatted; |
| |
$print_index = \&html_default_print_index; |
| |
$protect_text = \&xml_default_protect_text; |
| |
$quotation = \&html_default_quotation; |
| |
$sp = \&html_default_sp; |
| |
$summary_letter = \&html_default_summary_letter; |
| |
$tab_item_texi = \&html_default_tab_item_texi; |
| |
$table_item = \&html_default_table_item; |
| |
$table_line = \&html_default_table_line; |
| |
$table_list = \&html_default_table_list; |
| |
$raw = \&html_default_raw; |
| |
$row = \&html_default_row; |
| |
|
| |
} |
| |
|
| |
|
| |
|
| |
# The functions |
| |
|
| |
sub html_default_initialize() |
| |
{ |
| |
@html_default_multitable_stack = (); |
| |
$html_default_title = undef; |
| |
} |
| |
|
| |
# We have to do this dynamically because of internationalization and because |
| |
# in body $DOCUMENTLANGUAGE could be used. |
| |
sub html_default_bodytext() |
| |
{ |
| |
# Set the default body text, inserted between <body ... > |
| |
if (defined($BODYTEXT)) |
| |
{ |
| |
$Texi2HTML::THISDOC{'BODYTEXT'} = $BODYTEXT; |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::THISDOC{'BODYTEXT'} = 'lang="' . get_conf('documentlanguage') . '" bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000"'; |
| |
} |
| |
} |
| |
|
| |
sub html_default_translate_names() |
| |
{ |
| |
t2h_default_translate_names(); |
| |
|
| |
%NAVIGATION_TEXT = |
| |
( |
| |
'Top', gdt('Top'), |
| |
'Contents', gdt('Contents'), |
| |
'Overview', gdt('Overview'), |
| |
'Index', gdt('Index'), |
| |
' ', ' ', |
| |
'This', gdt('current'), |
| |
'Back', ' < ', |
| |
'FastBack', ' << ', |
| |
'Prev', gdt('Prev'), |
| |
'Up', gdt(' Up '), |
| |
'Next', gdt('Next'), |
| |
'NodeUp', gdt('Node up'), |
| |
'NodeNext', gdt('Next node'), |
| |
'NodePrev', gdt('Previous node'), |
| |
'Following', gdt('Following node'), |
| |
'Forward', ' > ', |
| |
'FastForward', ' >> ', |
| |
'About', ' ? ', |
| |
'First', ' |< ', |
| |
'Last', ' >| ', |
| |
'NextFile', gdt('Next file'), |
| |
'PrevFile', gdt('Previous file'), |
| |
); |
| |
|
| |
} |
| |
|
| |
sub html_default_do_title() |
| |
{ |
| |
$html_default_title = "$Texi2HTML::THISDOC{'fulltitle_simple_format'}"; |
| |
if ($html_default_title !~ /\S/) |
| |
{ |
| |
$html_default_title = gdt('Untitled Document',{},{'simple_format' => 1}); |
| |
main::document_warn("Must specify a title with a title command or \@top"); |
| |
} |
| |
} |
| |
|
| |
######################################################################## |
| |
# Page formatting functions |
| |
# |
| |
|
| |
######################################################################## |
| |
# Layout for html for every sections |
| |
# |
| |
|
| |
sub HTML_DEFAULT_print_section |
| |
{ |
| |
my $fh = shift; |
| |
my $first_in_page = shift; |
| |
my $previous_is_top = shift; |
| |
my $element = shift; |
| |
my $buttons = \@SECTION_BUTTONS; |
| |
|
| |
my $nw = main::print_lines($fh); |
| |
if ((get_conf('SPLIT') eq 'node') && get_conf('headers')) |
| |
{ |
| |
my $buttons = \@NODE_FOOTER_BUTTONS; |
| |
&$print_foot_navigation($fh, $buttons, $DEFAULT_RULE, |
| |
(!defined($WORDS_IN_PAGE) or (defined ($nw) and $nw >= $WORDS_IN_PAGE)), |
| |
$element); |
| |
} |
| |
} |
| |
|
| |
sub HTML_DEFAULT_one_section($$) |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
main::print_lines($fh); |
| |
print $fh "$DEFAULT_RULE\n"; |
| |
&$print_page_foot($fh); |
| |
} |
| |
|
| |
################################################################### |
| |
# Layout of top-page I recommend that you use @ifnothtml, @ifhtml, |
| |
# @html within the Top texinfo node to specify content of top-level |
| |
# page. |
| |
# |
| |
sub HTML_DEFAULT_print_Top_footer($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $end_page = shift; |
| |
my $element = shift; |
| |
my $buttons = \@TOP_BUTTONS; |
| |
my $rule = $DEFAULT_RULE; |
| |
$rule = $BIG_RULE if (!$end_page); |
| |
#print STDERR "end_page: $end_page\n"; |
| |
&$print_foot_navigation($fh, $buttons, $rule, |
| |
($end_page and (get_conf('headers') or (get_conf('SPLIT') and get_conf('SPLIT') ne 'node'))), $element); |
| |
if ($end_page) |
| |
{ |
| |
&$print_page_foot($fh); |
| |
} |
| |
} |
| |
|
| |
sub HTML_DEFAULT_print_Top($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $has_top_heading = shift; |
| |
my $element = shift; |
| |
|
| |
main::print_lines($fh, $Texi2HTML::THIS_SECTION); |
| |
} |
| |
|
| |
################################################################### |
| |
# Layout of Toc, Overview, and Footnotes pages |
| |
# By default, we use "normal" layout |
| |
# Texi2HTML::HREF of Next, Prev, Up, Forward, Back, etc are not defined |
| |
# use: my $buttons = [...] to redefine navigation buttons |
| |
sub HTML_DEFAULT_print_Footnotes |
| |
{ |
| |
return &$print_misc(@_); |
| |
} |
| |
|
| |
sub HTML_DEFAULT_print_misc_header |
| |
{ |
| |
my $fh = shift; |
| |
my $buttons = shift; |
| |
my $new_file = shift; |
| |
my $misc_page = shift; |
| |
&$print_page_head($fh) if ($new_file); |
| |
print $fh "".&$misc_element_label($misc_pages_targets{$misc_page}, $misc_page); |
| |
&$print_head_navigation($fh, $buttons) if ($new_file or get_conf('headers')); |
| |
} |
| |
|
| |
sub HTML_DEFAULT_print_misc_footer |
| |
{ |
| |
my $fh = shift; |
| |
my $buttons = shift; |
| |
my $new_file = shift; |
| |
&$print_foot_navigation($fh, $buttons, $DEFAULT_RULE, |
| |
($new_file and (get_conf('headers') or (get_conf('SPLIT') and get_conf('SPLIT') ne 'node'))), undef); |
| |
if ($new_file) |
| |
{ |
| |
&$print_page_foot($fh); |
| |
} |
| |
} |
| |
|
| |
################################################################## |
| |
# section_footer is only called if SPLIT eq 'section' |
| |
# section_footer: after print_section of last section, before print_page_foot |
| |
# |
| |
|
| |
sub HTML_DEFAULT_print_section_footer |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
my $buttons = \@SECTION_FOOTER_BUTTONS; |
| |
&$print_foot_navigation($fh, $buttons, $DEFAULT_RULE, 1, $element); |
| |
} |
| |
|
| |
################################################################### |
| |
# chapter_header and chapter_footer are only called if |
| |
# SPLIT eq 'chapter' |
| |
# chapter_header: after print_page_head, before print_section |
| |
# chapter_footer: after print_section of last section, before print_page_foot |
| |
# |
| |
# If you want to get rid of navigation stuff after each section, |
| |
# redefine print_section such that it does not call print_navigation, |
| |
# and put print_navigation into print_chapter_header |
| |
sub HTML_DEFAULT_print_chapter_header |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
# nothing to do there, by default, the navigation panel |
| |
# is the element navigation panel |
| |
if (! get_conf('headers')) |
| |
{ # in this case print_navigation is called here. |
| |
my $buttons = \@CHAPTER_BUTTONS; |
| |
&$print_head_navigation($fh, $buttons); |
| |
print $fh "\n$DEFAULT_RULE\n" unless ($VERTICAL_HEAD_NAVIGATION); |
| |
} |
| |
} |
| |
|
| |
sub HTML_DEFAULT_print_chapter_footer |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
my $buttons = \@CHAPTER_BUTTONS; |
| |
&$print_foot_navigation($fh, $buttons, $DEFAULT_RULE, 1, $element); |
| |
} |
| |
|
| |
sub HTML_DEFAULT_print_section_header |
| |
{ |
| |
# nothing to do there, by default |
| |
if (! get_conf('headers')) |
| |
{ # in this case print_navigation is called here. |
| |
my $fh = shift; |
| |
my $buttons = \@SECTION_BUTTONS; |
| |
&$print_head_navigation($fh, $buttons); |
| |
} |
| |
} |
| |
|
| |
|
| |
################################################################### |
| |
# Layout of standard header and footer |
| |
# |
| |
|
| |
sub HTML_DEFAULT_print_page_head($) |
| |
{ |
| |
my $fh = shift; |
| |
my $longtitle = $html_default_title; |
| |
$longtitle .= ": $Texi2HTML::SIMPLE_TEXT{'This'}" if (defined ($Texi2HTML::SIMPLE_TEXT{'This'}) and ($Texi2HTML::SIMPLE_TEXT{'This'} !~ /^\s*$/) and get_conf('SPLIT') and ($html_default_title ne $Texi2HTML::SIMPLE_TEXT{'This'})); |
| |
my $description = $Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'}; |
| |
$description = $longtitle if (!defined($description)); |
| |
$description = "<meta name=\"description\" content=\"$description\">" if |
| |
($description ne ''); |
| |
my $encoding = ''; |
| |
$encoding = "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$Texi2HTML::THISDOC{'ENCODING_NAME'}\">" if (defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and ($Texi2HTML::THISDOC{'ENCODING_NAME'} ne '')); |
| |
my $date = ''; |
| |
my $today = $Texi2HTML::THISDOC{'today'}; |
| |
$today = '' if (!defined($today)); |
| |
$date = "\n<meta name=\"date\" content=\"$today\">" if ($DATE_IN_HEADER and $today ne ''); |
| |
my $links = ''; |
| |
if ($USE_LINKS) |
| |
{ |
| |
foreach my $link (@LINKS_BUTTONS) |
| |
{ |
| |
#print STDERR "$link!!$Texi2HTML::HREF{$link}\n"; |
| |
if (defined($Texi2HTML::HREF{$link}) and $Texi2HTML::HREF{$link} ne '') |
| |
{ |
| |
my $title = ''; |
| |
$title = " title=\"$Texi2HTML::SIMPLE_TEXT{$link}\"" if (defined($Texi2HTML::SIMPLE_TEXT{$link})); |
| |
my $rel = ''; |
| |
$rel = " rel=\"$BUTTONS_REL{$link}\"" if (defined($BUTTONS_REL{$link})); |
| |
$links .= "<link href=\"$Texi2HTML::HREF{$link}\"${rel}${title}>\n"; |
| |
} |
| |
} |
| |
} |
| |
|
| |
my $css_text = ''; |
| |
$css_text = $Texi2HTML::THISDOC{'CSS_LINES'} if (defined($Texi2HTML::THISDOC{'CSS_LINES'})); |
| |
my $doctype = get_conf('doctype'); |
| |
print $fh <<EOT; |
| |
$doctype |
| |
<html> |
| |
$Texi2HTML::THISDOC{'copying_comment'}<!-- Created on $Texi2HTML::THISDOC{today} by $Texi2HTML::THISDOC{program} |
| |
$Texi2HTML::THISDOC{program_authors}--> |
| |
<head> |
| |
<title>$longtitle</title> |
| |
|
| |
$description |
| |
<meta name="keywords" content="$longtitle"> |
| |
<meta name="resource-type" content="document"> |
| |
<meta name="distribution" content="global"> |
| |
<meta name="Generator" content="$Texi2HTML::THISDOC{program}">$date |
| |
$encoding |
| |
${links}$css_text |
| |
$EXTRA_HEAD |
| |
</head> |
| |
|
| |
<body $Texi2HTML::THISDOC{'BODYTEXT'}> |
| |
$AFTER_BODY_OPEN |
| EOT |
EOT |
| |
} |
| |
|
| while (@ARGV && $ARGV[0] =~ /^-/) { |
sub HTML_DEFAULT_end_section($$$) |
| $_ = shift(@ARGV); |
{ |
| if (/^-acc$/) { $use_acc = 1; next; } |
my $fh = shift; |
| if (/^-d(ebug)?(\d+)?$/) { $debug = $2 || shift(@ARGV); next; } |
my $misc_or_top_and_section_separation = shift; |
| if (/^-doctype$/) { $doctype = shift(@ARGV); next; } |
my $element = shift; |
| if (/^-c(heck)?$/) { $check = 1; next; } |
if ($misc_or_top_and_section_separation) |
| if (/^-e(xpandinfo)?$/) { $expandinfo = 1; next; } |
{ |
| if (/^-g(lossary)?$/) { $use_glossary = 1; next; } |
my $rule = $BIG_RULE; |
| if (/^-i(nvisible)?$/) { $invisible_mark = shift(@ARGV); next; } |
# in that case we are almost surely at the end of the document |
| if (/^-iso$/) { $use_iso = 1; next; } |
$rule = $DEFAULT_RULE if (! $MONOLITHIC); |
| if (/^-D(.+)?$/) { $value{$1 || shift(@ARGV)} = 1; next; } |
&$print_foot_navigation($fh, undef, $rule, 0, $element, 1); |
| if (/^-I(.+)?$/) { push(@include_dirs, $1 || shift(@ARGV)); next; } |
|
| if (/^-m(enu)?$/) { $show_menu = 1; next; } |
|
| if (/^-mono(lithic)?$/) { $monolithic = 1; next; } |
|
| if (/^-n(umber)?$/) { $number_sections = 1; next; } |
|
| if (/^-s(plit)?_?(n(ode)?|c(hapter)?)?$/) { |
|
| if ($2 =~ /^n/) { |
|
| $split_node = 1; |
|
| } else { |
|
| $split_chapter = 1; |
|
| } |
|
| next; |
|
| } |
} |
| if (/^-v(erbose)?$/) { $verbose = 1; next; } |
else |
| die $usage; |
{ |
| |
print $fh "$DEFAULT_RULE\n"; |
| |
} |
| } |
} |
| if ($check) { |
|
| die $usage unless @ARGV > 0; |
sub HTML_DEFAULT_print_page_foot($) |
| ✓ |
{ |
| exit; |
my $fh = shift; |
| |
my $program_text = ''; |
| |
if ($PROGRAM_NAME_IN_FOOTER) |
| |
{ |
| |
my $program_string = &$program_string(); |
| |
$program_text = " <font size=\"-1\"> |
| |
$program_string |
| |
</font> |
| |
<br>"; |
| |
} |
| |
print $fh <<EOT; |
| |
<p> |
| |
$program_text |
| |
$PRE_BODY_CLOSE |
| |
</p> |
| |
</body> |
| |
</html> |
| |
EOT |
| } |
} |
| |
|
| if (($split_node || $split_chapter) && $monolithic) { |
################################################################### |
| warn "Can't use -monolithic with -split, -monolithic ignored.\n"; |
# Layout of navigation panel |
| $monolithic = 0; |
|
| |
sub HTML_DEFAULT_print_head_navigation($$$$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $buttons = shift; |
| |
my $first_in_page = shift; |
| |
my $previous_is_top = shift; |
| |
my $element = shift; |
| |
|
| |
my $result = ''; |
| |
if ($VERTICAL_HEAD_NAVIGATION) |
| |
{ |
| |
$result .= <<EOT; |
| |
<table border="0" cellpadding="0" cellspacing="0"> |
| |
<tr valign="top"> |
| |
<td align="left"> |
| |
EOT |
| |
} |
| |
$result .= &$print_navigation($buttons, $VERTICAL_HEAD_NAVIGATION); |
| |
if ($VERTICAL_HEAD_NAVIGATION) |
| |
{ |
| |
$result .= <<EOT; |
| |
</td> |
| |
<td align="left"> |
| |
EOT |
| |
} |
| |
elsif (get_conf('SPLIT') eq 'node') |
| |
{ |
| |
$result .= "$DEFAULT_RULE\n"; |
| |
} |
| |
|
| |
print $fh $result if (defined($fh)); |
| |
return $result; |
| } |
} |
| if ($expandinfo) { |
|
| $to_skip{'ifinfo'}++; |
sub HTML_DEFAULT_print_foot_navigation |
| $to_skip{'end ifinfo'}++; |
{ |
| $to_skip{'ifnottex'}++; |
my $fh = shift; |
| $to_skip{'end ifnottex'}++; |
my $buttons = shift; |
| } else { |
my $rule = shift; |
| $to_skip{'iftex'}++; |
my $print_navigation_panel = shift; |
| $to_skip{'end iftex'}++; |
my $element = shift; |
| |
# set if called between sections and top or between sections and misc. |
| |
# could also be the last element |
| |
my $maybe_in_page = shift; |
| |
|
| |
$rule = '' if (!defined($rule)); |
| |
$print_navigation_panel = 1 if (!defined($print_navigation_panel) |
| |
and defined($buttons)); |
| |
|
| |
# avoid the rule if at the end of a page and there is nothing below |
| |
$rule = '' if (!$PROGRAM_NAME_IN_FOOTER and !$print_navigation_panel and !$maybe_in_page); |
| |
|
| |
if ($VERTICAL_HEAD_NAVIGATION) |
| |
{ |
| |
print $fh <<EOT; |
| |
</td> |
| |
</tr> |
| |
</table> |
| |
EOT |
| |
} |
| |
print $fh "$rule\n" if ($rule ne ''); |
| |
print $fh "".&$print_navigation($buttons) if ($print_navigation_panel); |
| } |
} |
| $invisible_mark = '<IMG SRC="invisible.xbm">' if $invisible_mark eq 'xbm'; |
|
| die $usage unless @ARGV == 1; |
###################################################################### |
| $docu = shift(@ARGV); |
# navigation panel |
| if ($docu =~ /.*\//) { |
# |
| chop($docu_dir = $&); |
# how to create IMG tag |
| $docu_name = $'; |
sub HTML_DEFAULT_button_icon_img |
| } else { |
{ |
| $docu_dir = '.'; |
my $button = shift; |
| $docu_name = $docu; |
my $icon = shift; |
| |
my $name = shift; |
| |
return '' if (!defined($icon)); |
| |
$button = "" if (!defined ($button)); |
| |
$name = '' if (!defined($name)); |
| |
my $alt = ''; |
| |
if ($name ne '') |
| |
{ |
| |
if ($button ne '') |
| |
{ |
| |
$alt = "$button: $name"; |
| |
} |
| |
else |
| |
{ |
| |
$alt = $name; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$alt = $button; |
| |
} |
| |
return qq{<img src="$icon" border="0" alt="$alt" align="middle">}; |
| } |
} |
| unshift(@include_dirs, $docu_dir); |
|
| $docu_name =~ s/\.te?x(i|info)?$//; # basename of the document |
|
| |
|
| $docu_doc = "$docu_name.html"; # document's contents |
sub HTML_DEFAULT_button_formatting($$) |
| if ($monolithic) { |
{ |
| $docu_toc = $docu_foot = $docu_doc; |
my $button = shift; |
| } else { |
my $vertical = shift; |
| $docu_toc = "${docu_name}_toc.html"; # document's table of contents |
|
| $docu_foot = "${docu_name}_foot.html"; # document's footnotes |
my ($active, $passive); |
| |
if (ref($button) eq 'CODE') |
| |
{ |
| |
$active = &$button($vertical); |
| |
} |
| |
elsif (ref($button) eq 'SCALAR') |
| |
{ |
| |
$active = "$$button" if defined($$button); |
| |
} |
| |
elsif (ref($button) eq 'ARRAY') |
| |
{ |
| |
my $text = $button->[1]; |
| |
my $button_href = $button->[0]; |
| |
# verify that $button_href is simple text and text is a reference |
| |
if (defined($button_href) and !ref($button_href) |
| |
and defined($text) and (ref($text) eq 'SCALAR') and defined($$text)) |
| |
{ # use given text |
| |
if ($Texi2HTML::HREF{$button_href}) |
| |
{ |
| |
my $anchor_attributes = ''; |
| |
if ($USE_ACCESSKEY and (defined($BUTTONS_ACCESSKEY{$button_href})) and ($BUTTONS_ACCESSKEY{$button_href} ne '')) |
| |
{ |
| |
$anchor_attributes = "accesskey=\"$BUTTONS_ACCESSKEY{$button_href}\""; |
| |
} |
| |
if ($USE_REL_REV and (defined($BUTTONS_REL{$button_href})) and ($BUTTONS_REL{$button_href} ne '')) |
| |
{ |
| |
$anchor_attributes .= " rel=\"$BUTTONS_REL{$button_href}\""; |
| |
} |
| |
$active = "" . |
| |
&$anchor('', |
| |
$Texi2HTML::HREF{$button_href}, |
| |
$$text, |
| |
$anchor_attributes |
| |
); |
| |
} |
| |
else |
| |
{ |
| |
$passive = $$text; |
| |
} |
| |
} |
| |
elsif (defined($button_href) and !ref($button_href) |
| |
and defined($text) and (ref($text) eq 'CODE')) |
| |
{ |
| |
$active = &$text($button_href); |
| |
} |
| |
} |
| |
elsif ($button eq ' ') |
| |
{ # handle space button |
| |
$active = |
| |
($ICONS && $ACTIVE_ICONS{' '}) ? |
| |
&$button_icon_img($BUTTONS_NAME{$button}, $ACTIVE_ICONS{' '}) : |
| |
$NAVIGATION_TEXT{' '}; |
| |
#next; |
| |
} |
| |
elsif ($Texi2HTML::HREF{$button}) |
| |
{ # button is active |
| |
my $btitle = $BUTTONS_GOTO{$button} ? |
| |
'title="' . $BUTTONS_GOTO{$button} . '"' : ''; |
| |
if ($USE_ACCESSKEY and (defined($BUTTONS_ACCESSKEY{$button})) and ($BUTTONS_ACCESSKEY{$button} ne '')) |
| |
{ |
| |
$btitle .= " accesskey=\"$BUTTONS_ACCESSKEY{$button}\""; |
| |
} |
| |
if ($USE_REL_REV and (defined($BUTTONS_REL{$button})) and ($BUTTONS_REL{$button} ne '')) |
| |
{ |
| |
$btitle .= " rel=\"$BUTTONS_REL{$button}\""; |
| |
} |
| |
if ($ICONS && $ACTIVE_ICONS{$button}) |
| |
{ # use icon |
| |
$active = '' . |
| |
&$anchor('', |
| |
$Texi2HTML::HREF{$button}, |
| |
&$button_icon_img($BUTTONS_NAME{$button}, |
| |
$ACTIVE_ICONS{$button}, |
| |
$Texi2HTML::SIMPLE_TEXT{$button}), |
| |
$btitle |
| |
); |
| |
} |
| |
else |
| |
{ # use text |
| |
$active = |
| |
'[' . |
| |
&$anchor('', |
| |
$Texi2HTML::HREF{$button}, |
| |
$NAVIGATION_TEXT{$button}, |
| |
$btitle |
| |
) . |
| |
']'; |
| |
} |
| |
} |
| |
else |
| |
{ # button is passive |
| |
$passive = |
| |
$ICONS && $PASSIVE_ICONS{$button} ? |
| |
&$button_icon_img($BUTTONS_NAME{$button}, |
| |
$PASSIVE_ICONS{$button}, |
| |
$Texi2HTML::SIMPLE_TEXT{$button}) : |
| |
"[" . $NAVIGATION_TEXT{$button} . "]"; |
| |
} |
| |
return ($active, $passive); |
| } |
} |
| |
|
| |
my %html_default_node_directions; |
| |
foreach my $node_directions ('NodeNext', 'NodePrev', 'NodeUp') |
| |
{ |
| |
$html_default_node_directions{$node_directions} = 1; |
| |
} |
| |
|
| |
sub HTML_DEFAULT_print_navigation($;$) |
| |
{ |
| |
my $buttons = shift; |
| |
my $vertical = shift; |
| |
|
| |
my $first_button = 1; |
| |
my $result = ''; |
| |
if ($HEADER_IN_TABLE) |
| |
{ |
| |
$result .= html_default_attribute_class('table', 'header').' cellpadding="1" cellspacing="1" border="0">'."\n"; |
| |
$result .= "<tr>" unless $vertical; |
| |
} |
| |
else |
| |
{ |
| |
$result .= html_default_attribute_class('div', 'header').">\n<p>\n"; |
| |
} |
| |
for my $button (@$buttons) |
| |
{ |
| |
if ($HEADER_IN_TABLE) |
| |
{ |
| |
$result .= qq{<tr valign="top" align="left">\n} if $vertical; |
| |
$result .= qq{<td valign="middle" align="left">}; |
| |
} |
| |
my $direction; |
| |
if (ref($button) eq 'ARRAY' and defined($button->[0]) and !ref($button->[0])) |
| |
{ |
| |
$direction = $button->[0]; |
| |
} |
| |
elsif (defined($button) and !ref($button)) |
| |
{ |
| |
$direction = $button; |
| |
} |
| |
|
| |
my ($active, $passive) = &$button_formatting($button, $vertical); |
| |
if ($HEADER_IN_TABLE) |
| |
{ |
| |
if (defined($active)) |
| |
{ |
| |
$first_button = 0 if ($first_button); |
| |
$result .= $active; |
| |
} |
| |
elsif (defined($passive)) |
| |
{ |
| |
$first_button = 0 if ($first_button); |
| |
$result .= $passive; |
| |
} |
| |
$result .= "</td>\n"; |
| |
$result .= "</tr>\n" if $vertical; |
| |
} |
| |
elsif (defined($active)) |
| |
{ # only active buttons are print out when not in table |
| |
if (defined($direction) and $html_default_node_directions{$direction} and !$first_button) |
| |
{ |
| |
$active = ', ' .$active; |
| |
} |
| |
$result .= $active; |
| |
$first_button = 0 if ($first_button); |
| |
} |
| |
} |
| |
if ($HEADER_IN_TABLE) |
| |
{ |
| |
$result .= "</tr>" unless $vertical; |
| |
$result .= "</table>\n"; |
| |
} |
| |
else |
| |
{ |
| |
$result .= "</p>\n</div>\n"; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub html_default_node_direction($) |
| |
{ |
| |
my $direction = shift; |
| |
my $result = undef; |
| |
if ($Texi2HTML::HREF{$direction} and $Texi2HTML::NODE{$direction}) |
| |
{ |
| |
my $anchor_attributes = ''; |
| |
if ($USE_ACCESSKEY and (defined($BUTTONS_ACCESSKEY{$direction})) and ($BUTTONS_ACCESSKEY{$direction} ne '')) |
| |
{ |
| |
$anchor_attributes = "accesskey=\"$BUTTONS_ACCESSKEY{$direction}\""; |
| |
} |
| |
if ($USE_REL_REV and (defined($BUTTONS_REL{$direction})) and ($BUTTONS_REL{$direction} ne '')) |
| |
{ |
| |
$anchor_attributes .= " rel=\"$BUTTONS_REL{$direction}\""; |
| |
} |
| |
my $anchor = &$anchor('', |
| |
$Texi2HTML::HREF{$direction}, |
| |
$Texi2HTML::NODE{$direction}, |
| |
$anchor_attributes |
| |
) |
| |
; |
| |
# i18n |
| |
$result = "$BUTTONS_TEXT{$direction}: $anchor"; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
###################################################################### |
| |
# Frames: this is from "Richard Y. Kim" <ryk@coho.net> |
| |
# Should be improved to be more conforming to other _print* functions |
| |
# toc_file and main_file passed as args are relative to the texinfo manual |
| |
# location, and therefore are not used. |
| |
|
| |
sub HTML_DEFAULT_print_frame |
| |
{ |
| |
my $fh = shift; |
| |
my $toc_file = shift; |
| |
my $main_file = shift; |
| |
$main_file = $Texi2HTML::THISDOC{'filename'}->{'top'}; |
| |
$toc_file = $Texi2HTML::THISDOC{'filename'}->{'toc_frame'}; |
| |
print $fh <<EOT; |
| |
$FRAMESET_DOCTYPE |
| |
<html> |
| |
<head><title>$Texi2HTML::THISDOC{'fulltitle'}</title></head> |
| |
<frameset cols="140,*"> |
| |
<frame name="toc" src="$toc_file"> |
| |
<frame name="main" src="$main_file"> |
| |
</frameset> |
| |
</html> |
| |
EOT |
| |
} |
| |
|
| |
sub HTML_DEFAULT_print_toc_frame |
| |
{ |
| |
my $fh = shift; |
| |
my $stoc_lines = shift; |
| |
&$print_page_head($fh); |
| |
print $fh <<EOT; |
| |
<h2>Content</h2> |
| |
EOT |
| |
print $fh map {s/\bhref=/target="main" href=/; $_;} @$stoc_lines; |
| |
print $fh "</body></html>\n"; |
| |
} |
| |
|
| |
###################################################################### |
| |
# About page |
| # |
# |
| # variables |
|
| |
sub HTML_DEFAULT_about_body |
| |
{ |
| |
return undef if (!$HEADER_IN_TABLE); |
| |
my $about = "<p>\n"; |
| |
if (ref($PRE_ABOUT) eq 'CODE') |
| |
{ |
| |
$about .= &$PRE_ABOUT(); |
| |
} |
| |
else |
| |
{ |
| |
$about .= $PRE_ABOUT; |
| |
} |
| |
$about .= <<EOT; |
| |
</p> |
| |
<p> |
| |
EOT |
| |
$about .= gdt(' The buttons in the navigation panels have the following meaning:') . "\n"; |
| |
$about .= <<EOT; |
| |
</p> |
| |
<table border="1"> |
| |
<tr> |
| |
EOT |
| |
$about .= ' <th> ' . gdt('Button') . " </th>\n" . |
| |
' <th> ' . gdt('Name') . " </th>\n" . |
| |
' <th> ' . gdt('Go to') . " </th>\n" . |
| |
' <th> ' . gdt('From 1.2.3 go to') . "</th>\n" . " </tr>\n"; |
| |
|
| |
for my $button (@SECTION_BUTTONS) |
| |
{ |
| |
next if $button eq ' ' || ref($button) eq 'CODE' || ref($button) eq 'SCALAR' || ref($button) eq 'ARRAY'; |
| |
$about .= " <tr>\n <td align=\"center\">"; |
| |
$about .= |
| |
($ICONS && $ACTIVE_ICONS{$button} ? |
| |
&$button_icon_img($BUTTONS_NAME{$button}, $ACTIVE_ICONS{$button}) : |
| |
' [' . $NAVIGATION_TEXT{$button} . '] '); |
| |
$about .= "</td>\n"; |
| |
$about .= <<EOT; |
| |
<td align="center">$BUTTONS_NAME{$button}</td> |
| |
<td>$BUTTONS_GOTO{$button}</td> |
| |
<td>$BUTTONS_EXAMPLE{$button}</td> |
| |
</tr> |
| |
EOT |
| |
} |
| |
|
| |
$about .= <<EOT; |
| |
</table> |
| |
|
| |
<p> |
| |
EOT |
| |
$about .= gdt(' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:') . "\n"; |
| |
|
| |
# where the <strong> Example </strong> assumes that the current position |
| |
# is at <strong> Subsubsection One-Two-Three </strong> of a document of |
| |
# the following structure: |
| |
$about .= <<EOT; |
| |
</p> |
| |
|
| |
<ul> |
| |
EOT |
| |
$about .= ' <li> 1. ' . gdt('Section One') . "\n" . |
| |
" <ul>\n" . |
| |
' <li>1.1 ' . gdt('Subsection One-One') . "\n"; |
| |
$about .= <<EOT; |
| |
<ul> |
| |
<li>...</li> |
| |
</ul> |
| |
</li> |
| |
EOT |
| |
$about .= ' <li>1.2 ' . gdt('Subsection One-Two') . "\n" . |
| |
" <ul>\n" . |
| |
' <li>1.2.1 ' . gdt('Subsubsection One-Two-One') . "</li>\n" . |
| |
' <li>1.2.2 ' . gdt('Subsubsection One-Two-Two') . "</li>\n" . |
| |
' <li>1.2.3 ' . gdt('Subsubsection One-Two-Three') . " \n" |
| |
. |
| |
' <strong><== ' . gdt('Current Position') . " </strong></li>\n" . |
| |
' <li>1.2.4 ' . gdt('Subsubsection One-Two-Four') . "</li>\n" . |
| |
" </ul>\n" . |
| |
" </li>\n" . |
| |
' <li>1.3 ' . gdt('Subsection One-Three') . "\n"; |
| |
$about .= <<EOT; |
| |
<ul> |
| |
<li>...</li> |
| |
</ul> |
| |
</li> |
| |
EOT |
| |
$about .= ' <li>1.4 ' . gdt('Subsection One-Four') . "</li>\n"; |
| |
$about .= <<EOT; |
| |
</ul> |
| |
</li> |
| |
</ul> |
| |
$AFTER_ABOUT |
| |
EOT |
| |
return $about; |
| |
} |
| |
|
| |
sub HTML_DEFAULT_print_redirection_page() |
| |
{ |
| |
#my $fh = shift; |
| |
my $longtitle = $html_default_title; |
| |
$longtitle .= ": $Texi2HTML::SIMPLE_TEXT{'This'}" if (defined ($Texi2HTML::SIMPLE_TEXT{'This'}) and ($Texi2HTML::SIMPLE_TEXT{'This'} !~ /^\s*$/) and ($html_default_title ne $Texi2HTML::SIMPLE_TEXT{'This'})); |
| |
my $description = $Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'}; |
| |
$description = $longtitle if (!defined($description)); |
| |
my $encoding = ''; |
| |
$encoding = "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$Texi2HTML::THISDOC{'ENCODING_NAME'}\">" if (defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and ($Texi2HTML::THISDOC{'ENCODING_NAME'} ne '')); |
| |
my $href = &$anchor('', $Texi2HTML::HREF{'This'}, $Texi2HTML::NAME{'This'}); |
| |
my $string = gdt('The node you are looking for is at {href}.', |
| |
{ 'href' => $href }); |
| |
my $doctype = get_conf('doctype'); |
| |
my $css_text = ''; |
| |
$css_text = $Texi2HTML::THISDOC{'CSS_LINES'} if (defined($Texi2HTML::THISDOC{'CSS_LINES'})); |
| |
#print $fh <<EOT; |
| |
my $result = <<EOT; |
| |
$doctype |
| |
<html> |
| |
<!-- Created on $Texi2HTML::THISDOC{'today'} by $Texi2HTML::THISDOC{'program'} --> |
| |
<!-- |
| |
$Texi2HTML::THISDOC{'program_authors'} |
| |
--> |
| |
<head> |
| |
<title>$longtitle</title> |
| |
|
| |
<meta name="description" content="$description"> |
| |
<meta name="keywords" content="$longtitle"> |
| |
<meta name="resource-type" content="document"> |
| |
<meta name="distribution" content="global"> |
| |
<meta name="Generator" content="$Texi2HTML::THISDOC{program}"> |
| |
$encoding |
| |
$css_text |
| |
<meta http-equiv="Refresh" content="2; url=$Texi2HTML::HREF{'This'}"> |
| |
$EXTRA_HEAD |
| |
</head> |
| |
|
| |
<body $Texi2HTML::THISDOC{'BODYTEXT'}> |
| |
$AFTER_BODY_OPEN |
| |
<p>$string</p> |
| |
</body> |
| |
EOT |
| |
return $result; |
| |
} |
| |
|
| |
sub html_default_uref($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $url = shift @$args; |
| |
my $text = shift @$args; |
| |
my $replacement = shift @$args; |
| |
$url = main::normalise_space($url); |
| |
$replacement = '' if (!defined($replacement)); |
| |
$replacement = main::normalise_space($replacement); |
| |
$text = '' if (!defined($text)); |
| |
$text = main::normalise_space($text); |
| |
$text = $replacement if ($replacement ne ''); |
| |
$text = $url unless ($text ne ''); |
| |
return $text if ($url eq ''); |
| |
return &$anchor('', $url, $text); |
| |
} |
| |
|
| |
sub html_default_math($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $text = shift @$args; |
| |
return "<em>$text</em>"; |
| |
} |
| |
|
| |
sub html_default_email($$) |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $mail = shift @$args; |
| |
my $text = shift @$args; |
| |
$mail = main::normalise_space($mail); |
| |
$text = $mail unless (defined($text) and ($text ne '')); |
| |
$text = main::normalise_space($text); |
| |
return $text if ($mail eq ''); |
| |
return &$anchor('', "mailto:$mail", $text); |
| |
} |
| |
|
| |
sub html_default_attribute_class($$) |
| |
{ |
| |
my $element = shift; |
| |
my $class = shift; |
| |
return "<$element" if (!defined($class) or $class eq '' or $NO_CSS); |
| |
my $style = ''; |
| |
if ($INLINE_CSS_STYLE and defined($css_map{"$element.$class"})) |
| |
{ |
| |
$style = ' style="'.$css_map{"$element.$class"}.'"'; |
| |
} |
| |
return "<$element class=\"$class\"$style"; |
| |
} |
| |
|
| |
# this is called each time a format begins. Here it is used to keep a |
| |
# record of the multitables to have a faithful count of the cell nr. |
| |
sub html_default_begin_format_texi($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $state = shift; |
| |
|
| |
# first array element is the number of cell in a row |
| |
# second is the number of paragraphs in a cell |
| |
push (@html_default_multitable_stack, [-1,-1]) if ($command eq 'multitable'); |
| |
|
| |
return $line; |
| |
} |
| |
|
| |
sub html_default_caption_shortcaption($) |
| |
{ |
| |
my $float = shift; |
| |
my $caption_lines; |
| |
my $shortcaption_lines; |
| |
my $style = $float->{'style_texi'}; |
| |
if (defined($float->{'nr'})) |
| |
{ |
| |
my $nr = $float->{'nr'}; |
| |
if ($style ne '') |
| |
{ |
| |
$style = gdt('{style} {number}', { 'style' => $style, 'number' => $nr}); |
| |
} |
| |
else |
| |
{ |
| |
$style = $nr; |
| |
} |
| |
} |
| |
|
| |
if (defined($float->{'caption_texi'})) |
| |
{ |
| |
@$caption_lines = @{$float->{'caption_texi'}}; |
| |
$caption_lines->[0] =~ s/^\s*//; |
| |
if (defined($style)) |
| |
{ |
| |
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . gdt('{style}: {caption_first_line}', { 'style' => $style, 'caption_first_line' => $caption_lines->[0] }); |
| |
} |
| |
else |
| |
{ |
| |
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $caption_lines->[0]; |
| |
} |
| |
push @$caption_lines, "}\n"; |
| |
} |
| |
elsif (defined($style)) |
| |
{ |
| |
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $style . '}' . "\n"; |
| |
} |
| |
if (defined($float->{'shortcaption_texi'})) |
| |
{ |
| |
@$shortcaption_lines = @{$float->{'shortcaption_texi'}}; |
| |
if (defined($style)) |
| |
{ |
| |
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . gdt('{style}: {shortcaption_first_line}', { 'style' => $style, 'shortcaption_first_line' => $shortcaption_lines->[0] }); |
| |
} |
| |
else |
| |
{ |
| |
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $shortcaption_lines->[0]; |
| |
} |
| |
push @$shortcaption_lines, "}\n"; |
| |
} |
| |
elsif (defined($style)) |
| |
{ |
| |
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $style . '}' . "\n"; |
| |
} |
| |
return ($caption_lines, $shortcaption_lines); |
| |
} |
| |
|
| |
# everything is done in &$float |
| |
sub html_default_caption_shortcaption_command($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $texi_lines = shift; |
| |
my $float_element = shift; |
| |
return ''; |
| |
} |
| |
|
| |
sub html_default_float($$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $float = shift; |
| |
my $caption = shift; |
| |
my $shortcaption = shift; |
| |
|
| |
my $label = ''; |
| |
if (exists($float->{'id'})) |
| |
{ |
| |
$label = &$anchor($float->{'id'}); |
| |
} |
| |
my $caption_text = ''; |
| |
|
| |
if (defined($float->{'caption_texi'})) |
| |
{ |
| |
$caption_text = $caption; |
| |
} |
| |
elsif (defined($float->{'shortcaption_texi'})) |
| |
{ |
| |
$caption_text = $shortcaption; |
| |
} |
| |
elsif (defined($caption)) |
| |
{ |
| |
$caption_text = $caption; |
| |
} |
| |
|
| |
return html_default_attribute_class('div','float'). '>' . "$label\n" . $text . '</div>' . $caption_text; |
| |
} |
| |
|
| |
sub html_default_listoffloats_float_style($$) |
| |
{ |
| |
my $style_texi = shift; |
| |
my $float = shift; |
| |
|
| |
my $style = $float->{'style_texi'}; |
| |
#print STDERR "listoffloat/float style mismatch $style_texi $style\n" if ($style_texi ne $style); |
| |
if (defined($float->{'nr'})) |
| |
{ |
| |
my $nr = $float->{'nr'}; |
| |
if ($style ne '') |
| |
{ |
| |
$style = gdt('{style} {number}', { 'style' => $style, 'number' => $nr}); |
| |
} |
| |
else |
| |
{ |
| |
$style = $nr; |
| |
} |
| |
} |
| |
return $style; |
| |
} |
| |
|
| |
sub html_default_listoffloats_caption($) |
| |
{ |
| |
my $float = shift; |
| |
if (defined($float->{'shortcaption_texi'})) |
| |
{ |
| |
return ([ @{$float->{'shortcaption_texi'}} ], 'shortcaption'); |
| |
} |
| |
elsif (defined($float->{'caption_texi'})) |
| |
{ |
| |
return ([ @{$float->{'caption_texi'}} ], 'caption'); |
| |
} |
| |
return ([ ], undef); |
| |
} |
| |
|
| |
sub html_default_listoffloats_entry($$$$) |
| |
{ |
| |
my $style_texi = shift; |
| |
my $float = shift; |
| |
my $float_style = shift; |
| |
my $caption = shift; |
| |
my $href = shift; |
| |
|
| |
return '<dt>' . &$anchor('', $href, $float_style) . '</dt><dd>' . $caption |
| |
. '</dd>' . "\n"; |
| |
} |
| |
|
| |
sub html_default_listoffloats($$$) |
| |
{ |
| |
my $style_texi = shift; |
| |
my $style = shift; |
| |
my $float_entries = shift; |
| |
|
| |
my $result = html_default_attribute_class('dl', 'listoffloats').">\n" ; |
| |
foreach my $float_entry (@$float_entries) |
| |
{ |
| |
$result .= $float_entry; |
| |
} |
| |
return $result . "</dl>\n"; |
| |
} |
| |
|
| |
sub html_default_insertcopying($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $comment = shift; |
| |
my $simple_text = shift; |
| |
return $text; |
| |
} |
| |
|
| |
sub html_default_protect_space_codebreak($$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $in_raw_text = shift; # remove_texi |
| |
my $in_preformatted = shift; |
| |
my $in_code = shift; |
| |
my $style_stack = shift; |
| |
|
| |
return $text if ($in_preformatted or $in_raw_text); |
| |
|
| |
my $in_w = 1 if (in_cmd($style_stack, 'w')); |
| |
|
| |
if ($in_w or ($in_code and get_conf('allowcodebreaks') eq 'false')) |
| |
{ |
| |
my $class = 'nolinebreak'; |
| |
$class = 'nocodebreak' if ($in_code and get_conf('allowcodebreaks') eq 'false'); |
| |
my $open = html_default_attribute_class('span', $class).'>'; |
| |
# protect spaces in the html leading attribute in case we are in 'w' |
| |
$open =~ s/ /\x{1F}/g if ($in_w); |
| |
$text =~ s/(\S*[_-]\S*)/${open}$1<\/span>/g; |
| |
} |
| |
|
| |
if ($in_w) |
| |
{ |
| |
$text .= ' ' if (chomp($text)); |
| |
# protect spaces within text |
| |
$text =~ s/ / /g; |
| |
# revert protected spaces in leading html attribute |
| |
$text =~ s/\x{1F}/ /g; |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
sub html_default_normal_text($$$$$$$;$) |
| |
{ |
| |
my @initial_args = @_; |
| |
my $text = shift; |
| |
my $in_raw_text = shift; # remove_texi |
| |
my $in_preformatted = shift; |
| |
my $in_code = shift; |
| |
my $in_math = shift; |
| |
my $in_simple = shift; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
# like utf8.init |
| |
if ($ENABLE_ENCODING and !$ENABLE_ENCODING_USE_ENTITY and defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and $Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8') |
| |
{ |
| |
my $result = &t2h_utf8_normal_text(@initial_args); |
| |
$result = html_default_protect_space_codebreak($result, $in_raw_text, $in_preformatted, $in_code, $style_stack); |
| |
return $result; |
| |
} |
| |
|
| |
$text = uc($text) if (in_cmd($style_stack, 'sc')); |
| |
$text = &$protect_text($text) unless($in_raw_text); |
| |
#$text =~ s/ / /g |
| |
# if (!$in_raw_text and !$in_preformatted and in_cmd($style_stack, 'w')); |
| |
if (! $in_code and !$in_preformatted) |
| |
{ |
| |
if ($USE_ISO and !$in_raw_text) |
| |
{ |
| |
$text =~ s/---/\&mdash\;/g; |
| |
$text =~ s/--/\&ndash\;/g; |
| |
$text =~ s/``/\&ldquo\;/g; |
| |
$text =~ s/''/\&rdquo\;/g; |
| |
} |
| |
else |
| |
{ |
| |
if ($in_raw_text) #FIXME really do that ? It is done by makeinfo |
| |
{ |
| |
$text =~ s/``/"/g; |
| |
$text =~ s/''/"/g; |
| |
} |
| |
else |
| |
{ |
| |
$text =~ s/``/"/g; |
| |
$text =~ s/''/"/g; |
| |
# to be like texinfo |
| |
#$text =~ s/'/\&rsquo\;/g; |
| |
#$text =~ s/`/\&lsquo\;/g; |
| |
} |
| |
# FIXME really do that in raw text? |
| |
$text =~ s/---/\x{1F}/g; |
| |
$text =~ s/--/-/g; |
| |
$text =~ s/\x{1F}/--/g; |
| |
} |
| |
} |
| |
$text = html_default_protect_space_codebreak($text, $in_raw_text, $in_preformatted, $in_code, $style_stack); |
| |
$text = t2h_text_substitutions($text, $in_raw_text, ($in_preformatted or $in_code), $in_simple); |
| |
return $text; |
| |
} |
| |
|
| |
# This function produces an anchor |
| # |
# |
| $value{'html'} = 1; # predefine html (the output format) |
# arguments: |
| $value{'texi2html'} = $THISVERSION; # predefine texi2html (the translator) |
# $name : anchor name |
| # _foo: internal to track @foo |
# $href : anchor href |
| foreach ('_author', '_title', '_subtitle', |
# text : text displayed |
| '_settitle', '_setfilename') { |
# extra_attribs : added to anchor attributes list |
| $value{$_} = ''; # prevent -w warnings |
sub html_default_anchor($;$$$) |
| |
{ |
| |
my $name = shift; |
| |
my $href = shift; |
| |
my $text = shift; |
| |
my $attributes = shift; |
| |
my $class = ''; |
| |
#print STDERR "!$name!$href!$text!$attributes!\n"; |
| |
if (!defined($attributes) or ($attributes !~ /\S/)) |
| |
{ |
| |
$attributes = ''; |
| |
} |
| |
else |
| |
{ |
| |
if ($attributes =~ s/^class=\"([^\"]+)\"//) |
| |
{ |
| |
$class = $1; |
| |
} |
| |
|
| |
$attributes = ' ' . $attributes if ($attributes ne ''); |
| |
} |
| |
$name = '' if (!defined($name) or ($name !~ /\S/)); |
| |
$href = '' if (!defined($href) or ($href !~ /\S/)); |
| |
$text = '' if (!defined($text)); |
| |
return $text if (($name eq '') and ($href eq '')); |
| |
$name = "name=\"$name\"" if ($name ne ''); |
| |
$href = "href=\"$href\"" if ($href ne ''); |
| |
$href = ' ' . $href if (($name ne '') and ($href ne '')); |
| |
#print STDERR "!!!$name!$href!$text!$attributes!\n"; |
| |
return html_default_attribute_class('a', $class). " ${name}${href}${attributes}>$text</a>"; |
| } |
} |
| %node2sec = (); # node to section name |
|
| %node2href = (); # node to HREF |
|
| %bib2href = (); # bibliography reference to HREF |
|
| %gloss2href = (); # glossary term to HREF |
|
| @sections = (); # list of sections |
|
| %tag2pro = (); # protected sections |
|
| |
|
| |
# This function is used to format the text associated with a @deff/@end deff |
| # |
# |
| # initial indexes |
# argument: |
| |
# text |
| # |
# |
| $bib_num = 0; |
# $DEF_TABLE should be used to distinguish between @def formatted as table |
| $foot_num = 0; |
# and as definition lists. |
| $gloss_num = 0; |
sub html_default_def_item($$$) |
| $idx_num = 0; |
{ |
| $sec_num = 0; |
my $text = shift; |
| $doc_num = 0; |
my $only_inter_item_commands = shift; |
| $html_num = 0; |
my $command = shift; |
| |
if ($text =~ /\S/) |
| |
{ |
| |
if (! $DEF_TABLE) |
| |
{ |
| |
return '<dd>' . $text . '</dd>';# unless $only_inter_item_commands; |
| |
#return $text; # invalid without dd in ul |
| |
} |
| |
else |
| |
{ |
| |
return '<tr><td colspan="2">' . $text . '</td></tr>'; |
| |
} |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
# format the container for the @deffn line and text |
| |
# |
| |
# argument |
| |
# text of the whole @def, line and associated text. |
| # |
# |
| # can I use ISO8879 characters? (HTML+) |
# $DEF_TABLE should be used. |
| |
sub html_default_def($$) |
| |
{ |
| |
my $text = shift; |
| |
my $command = shift; |
| |
if ($text =~ /\S/) |
| |
{ |
| |
if (! $DEF_TABLE) |
| |
{ |
| |
return "<dl>\n" . $text . "</dl>\n"; |
| |
} |
| |
else |
| |
{ |
| |
return "<table width=\"100%\">\n" . $text . "</table>\n"; |
| |
} |
| |
} |
| |
return ''; |
| |
|
| |
} |
| |
|
| |
# a whole menu |
| # |
# |
| if ($use_iso) { |
# argument: |
| $things_map{'bullet'} = "•"; |
# the whole menu text (entries and menu comments) |
| $things_map{'copyright'} = "©"; |
# |
| $things_map{'dots'} = "…"; |
# argument: |
| $things_map{'equiv'} = "≡"; |
# whole menu text. |
| $things_map{'expansion'} = "→"; |
sub html_default_menu_command($$$) |
| $things_map{'point'} = "∗"; |
{ |
| $things_map{'result'} = "⇒"; |
my $format = shift; |
| |
my $text = shift; |
| |
my $in_preformatted = shift; |
| |
|
| |
$html_menu_entry_index=0; |
| |
|
| |
my $begin_row = ''; |
| |
my $end_row = ''; |
| |
if ($in_preformatted) |
| |
{ |
| |
$begin_row = '<tr><td>'; |
| |
$end_row = '</td></tr>'; |
| |
} |
| |
if ($text =~ /\S/) |
| |
{ |
| |
return '' if ($format eq 'direntry'); |
| |
return $text if ($format eq 'detailmenu'); |
| |
return html_default_attribute_class('table', 'menu')." border=\"0\" cellspacing=\"0\">${begin_row}\n" |
| |
. $text . "${end_row}</table>\n"; |
| |
} |
| } |
} |
| |
|
| |
# formats a menu entry link pointing to a node or section |
| # |
# |
| # read texi2html extensions (if any) |
# arguments: |
| |
# the entry text |
| |
# the state, a hash reference holding informations about the context, with a |
| |
# usefull entry, 'preformatted', true if we are in a preformatted format |
| |
# (a format keeping space between words). In that case a function |
| |
# of the main program, main::do_preformatted($text, $state) might |
| |
# be used to format the text with the current format style. |
| |
# href is optionnal. It is the reference to the section or the node anchor |
| |
# which should be used to make the link (typically it is the argument |
| |
# of a href= attribute in a <a> element). |
| |
sub html_default_menu_link($$$$$$$$) |
| |
{ |
| |
my $element_name = shift; |
| |
my $state = shift; |
| |
my $href = shift; |
| |
my $node = shift; |
| |
my $title = shift; |
| |
my $ending = shift; |
| |
my $has_title = shift; |
| |
my $command_stack = shift; |
| |
my $preformatted = shift; |
| |
|
| |
my $in_commands = 0; |
| |
$in_commands = 1 if ($command_stack->[-1] and $command_stack->[-1] ne 'menu' and $command_stack->[-1] ne 'detailmenu' and $command_stack->[-1] ne 'direntry'); |
| |
|
| |
$title = '' unless ($has_title); |
| |
#print STDERR "MENU_LINK($in_commands)($state->{'preformatted'})\n"; |
| |
my $entry; |
| |
my $symbol = ''; |
| |
if ($preformatted) |
| |
{ |
| |
$title .= ':' if ($title ne ''); |
| |
$entry = "$MENU_SYMBOL$title$node"; |
| |
} |
| |
elsif ($element_name eq '' or $NODE_NAME_IN_MENU) |
| |
{ |
| |
if ($has_title) |
| |
{ |
| |
$entry = "$title"; |
| |
} |
| |
else |
| |
{ |
| |
$entry = "$node"; |
| |
} |
| |
$entry =~ s/^\s*//; |
| |
$symbol = "$MENU_SYMBOL "; |
| |
} |
| |
else |
| |
{ |
| |
$entry = $element_name; |
| |
} |
| |
$html_menu_entry_index++; |
| |
my $accesskey; |
| |
$accesskey = "accesskey=\"$html_menu_entry_index\"" if ($USE_ACCESSKEY and ($html_menu_entry_index < 10)); |
| |
$entry = &$anchor ('', $href, $entry, $accesskey) if (defined($href)); |
| |
|
| |
return $entry.$ending if ($preformatted); |
| |
# FIXME conditionalise to not having a description |
| |
return "$symbol$entry$MENU_ENTRY_COLON" .' ' if ($in_commands); |
| |
return "<tr><td align=\"left\" valign=\"top\">$symbol$entry$MENU_ENTRY_COLON</td><td> </td>"; |
| |
} |
| |
|
| |
sub html_simplify_text($) |
| |
{ |
| |
my $text = shift; |
| |
$text =~ s/[^\w]//og; |
| |
return $text; |
| |
} |
| |
|
| |
# formats a menu entry description, ie the text appearing after the node |
| |
# specification in a menu entry an spanning until there is another |
| |
# menu entry, or empty line |
| # |
# |
| $extensions = 'texi2html.ext'; # extensions in working directory |
# arguments: |
| if (-f $extensions) { |
# the description text |
| print "# reading extensions from $extensions\n" if $verbose; |
# the state. See menu_entry. |
| require($extensions); |
# the heading of the element associated with the node. |
| |
sub html_default_menu_description($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $state = shift; |
| |
my $element_text = shift; |
| |
my $command_stack = shift; |
| |
my $preformatted = shift; |
| |
|
| |
my $in_commands = 0; |
| |
$in_commands = 1 if ($command_stack->[-1] and $command_stack->[-1] ne 'menu' and $command_stack->[-1] ne 'detailmenu' and $command_stack->[-1] ne 'direntry'); |
| |
return $text if ($preformatted); |
| |
return $text."<br>" if ($in_commands); |
| |
if ($AVOID_MENU_REDUNDANCY) |
| |
{ |
| |
$text = '' if (html_simplify_text($element_text) eq html_simplify_text($text)); |
| |
} |
| |
return "<td align=\"left\" valign=\"top\">$text</td></tr>\n"; |
| } |
} |
| ($progdir = $0) =~ s/[^\/]+$//; |
|
| if ($progdir && ($progdir ne './')) { |
sub html_teletyped_in_stack($) |
| $extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory |
{ |
| if (-f $extensions) { |
my $stack = shift; |
| print "# reading extensions from $extensions\n" if $verbose; |
foreach my $element(reverse(@$stack)) |
| require($extensions); |
{ |
| |
return 1 if ($complex_format_map{$element} and |
| |
$complex_format_map{$element}->{'style'} and |
| |
$complex_format_map{$element}->{'style'} eq 'code'); |
| } |
} |
| |
return 0; |
| } |
} |
| |
|
| print "# reading from $docu\n" if $verbose; |
# text after @item in table, vtable and ftable |
| |
sub html_default_table_item($$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $index_label = shift; |
| |
my $format = shift; |
| |
my $command = shift; |
| |
# my $formatted_command = shift; |
| |
my $style_stack = shift; |
| |
# my $text_formatted = shift; |
| |
# my $text_formatted_leading_spaces = shift; |
| |
# my $text_formatted_trailing_spaces = shift; |
| |
my $item_cmd = shift; |
| |
my $formatted_index_entry = shift; |
| |
|
| #+++############################################################################ |
# if (defined($text_formatted) and !exists $special_list_commands{$format}->{$command}) |
| # # |
# { |
| # Pass 1: read source, handle command, variable, simple substitution # |
# $text = $text_formatted_leading_spaces . $text_formatted .$text_formatted_trailing_spaces; |
| # # |
# } |
| #---############################################################################ |
# $formatted_command = '' if (!defined($formatted_command) or |
| |
# exists($special_list_commands{$format}->{$command})); |
| |
if (html_teletyped_in_stack($style_stack)) |
| |
{ |
| |
# $text .= '</tt>'; |
| |
# $formatted_command = '<tt>' . $formatted_command; |
| |
$text = '<tt>' . $text . '</tt>'; |
| |
} |
| |
$text .= "\n" . $index_label if (defined($index_label)); |
| |
# return '<dt>' . $formatted_command . $text . '</dt>' . "\n"; |
| |
return '<dt>' . $text . '</dt>' . "\n"; |
| |
} |
| |
|
| @lines = (); # whole document |
# format text on the line following the @item line (in table, vtable and ftable) |
| @toc_lines = (); # table of contents |
sub html_default_table_line($$$) |
| $toplevel = 0; # top level seen in hierarchy |
{ |
| $curlevel = 0; # current level in TOC |
my $text = shift; |
| $node = ''; # current node name |
my $only_inter_item_commands = shift; |
| $in_table = 0; # am I inside a table |
my $before_items = shift; |
| $table_type = ''; # type of table ('', 'f', 'v', 'multi') |
|
| @tables = (); # nested table support |
|
| $in_bibliography = 0; # am I inside a bibliography |
|
| $in_glossary = 0; # am I inside a glossary |
|
| $in_top = 0; # am I inside the top node |
|
| $in_pre = 0; # am I inside a preformatted section |
|
| $in_list = 0; # am I inside a list |
|
| $in_html = 0; # am I inside an HTML section |
|
| $first_line = 1; # is it the first line |
|
| $dont_html = 0; # don't protect HTML on this line |
|
| $split_num = 0; # split index |
|
| $deferred_ref = ''; # deferred reference for indexes |
|
| @html_stack = (); # HTML elements stack |
|
| $html_element = ''; # current HTML element |
|
| &html_reset; |
|
| |
|
| # build code for simple substitutions |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| # the maps used (%simple_map and %things_map) MUST be aware of this |
|
| # watch out for regexps, / and escaped characters! |
if ($text =~ /\S/) |
| $subst_code = ''; |
{ |
| foreach (keys(%simple_map)) { |
return '<dd>' . $text . '</dd>' . "\n";# unless ($only_inter_item_commands); |
| ($re = $_) =~ s/(\W)/\\$1/g; # protect regexp chars |
#return $text; # invalid without dd in ul |
| $subst_code .= "s/\\\@$re/$simple_map{$_}/g;\n"; |
} |
| |
return ''; |
| } |
} |
| foreach (keys(%things_map)) { |
|
| $subst_code .= "s/\\\@$_\\{\\}/$things_map{$_}/g;\n"; |
#my $cell_nr = -1; |
| |
|
| |
# row in multitable |
| |
sub html_default_row($$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $macro = shift; |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| |
|
| |
# this is used to keep the cell number |
| |
$html_default_multitable_stack[-1]->[0] = -1; |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
if ($macro eq 'headitem') |
| |
{ |
| |
return '<thead><tr>' . $text . '</tr></thead>' . "\n"; |
| |
} |
| |
return '<tr>' . $text . '</tr>' . "\n"; |
| |
} |
| |
return ''; |
| } |
} |
| if ($use_acc) { |
|
| # accentuated characters |
# cell in multitable |
| foreach (keys(%accent_map)) { |
sub html_default_cell($$$$$$$$) |
| if ($_ eq "`") { |
{ |
| $subst_code .= "s/$;3"; |
my $text = shift; |
| } elsif ($_ eq "'") { |
my $row_macro = shift; |
| $subst_code .= "s/$;4"; |
my $columnfractions = shift; |
| } else { |
my $prototype_row = shift; |
| $subst_code .= "s/\\\@\\$_"; |
my $prototype_lengths = shift; |
| } |
my $column_number = shift; |
| $subst_code .= "([aeiou])/&\${1}$accent_map{$_};/gi;\n"; |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| |
|
| |
$html_default_multitable_stack[-1]->[0]++; |
| |
my $cell_nr = $html_default_multitable_stack[-1]->[0]; |
| |
my $fractions = ''; |
| |
|
| |
if (defined($columnfractions) and (ref($columnfractions) eq 'ARRAY') |
| |
and exists($columnfractions->[$cell_nr])) |
| |
{ |
| |
my $fraction = sprintf('%d', 100*$columnfractions->[$cell_nr]); |
| |
$fractions = " width=\"$fraction%\""; |
| } |
} |
| |
|
| |
# in constructs like |
| |
# @strong{ |
| |
# @multitable .... |
| |
# } |
| |
# the space won't be removed since the <strong> is put before the space. |
| |
$text =~ s/^\s*//; |
| |
$text =~ s/\s*$//; |
| |
|
| |
if ($row_macro eq 'headitem') |
| |
{ |
| |
return "<th${fractions}>" . $text . '</th>'; |
| |
} |
| |
return "<td${fractions}>" . $text . '</td>'; |
| } |
} |
| eval("sub simple_substitutions { $subst_code }"); |
|
| |
|
| &init_input; |
sub html_default_format_list_item_texi($$$$$) |
| while ($_ = &next_line) { |
{ |
| # |
my $format = shift; |
| # remove \input on the first lines only |
my $line = shift; |
| # |
my $prepended = shift; |
| if ($first_line) { |
my $command = shift; |
| next if /^\\input/; |
my $number = shift; |
| $first_line = 0; |
|
| |
my $result_line; |
| |
my $open_command = 0; |
| |
if (defined($command) and $command ne '' and !exists $special_list_commands{$format}->{$command} and $format ne 'itemize') |
| |
{ |
| |
#@*table |
| |
$open_command = 1; |
| |
$line =~ s/^\s*//; |
| |
$line =~ s/\s*$//; |
| |
if (exists ($style_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{$line\}\n"; |
| |
} |
| |
elsif (exists ($things_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{\} $line\n"; |
| |
} |
| |
else |
| |
{ |
| |
$result_line = "\@$command $line\n"; |
| |
} |
| } |
} |
| # |
elsif (defined($prepended) and $prepended ne '') |
| # parse texinfo tags |
{ |
| # |
$prepended =~ s/^\s*//; |
| $tag = ''; |
$prepended =~ s/\s*$//; |
| $end_tag = ''; |
$line =~ s/^\s*//; |
| if (/^\s*\@end\s+(\w+)\b/) { |
$result_line = $prepended . ' ' . $line; |
| $end_tag = $1; |
|
| } elsif (/^\s*\@(\w+)\b/) { |
|
| $tag = $1; |
|
| } |
} |
| # |
return ($result_line, $open_command); |
| # handle @ifhtml / @end ifhtml |
} |
| # |
|
| if ($in_html) { |
|
| if ($end_tag eq 'ifhtml') { |
# format an item in a list |
| $in_html = 0; |
# |
| } else { |
# argument: |
| $tag2pro{$in_html} .= $_; |
# text of the item |
| } |
# format of the list (itemize or enumerate) |
| next; |
# command passed as argument to the format |
| } elsif ($tag eq 'ifhtml') { |
# formatted_command leading command formatted, if it is a thing command |
| $in_html = $PROTECTTAG . ++$html_num; |
sub html_default_list_item($$$$$$$$$$$) |
| push(@lines, $in_html); |
{ |
| next; |
my $text = shift; |
| |
my $format = shift; |
| |
my $command = shift; |
| |
my $formatted_command = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| |
|
| |
$formatted_command = '' if (!defined($formatted_command) or |
| |
exists($special_list_commands{$format}->{$command})); |
| |
my $prepend = ''; |
| |
# if (defined($prepended) and $prepended ne '') |
| |
# { |
| |
# $prepend = $prepended; |
| |
# } |
| |
# elsif ($formatted_command ne '') |
| |
if ($formatted_command ne '') |
| |
{ |
| |
$prepend = $formatted_command; |
| } |
} |
| # |
if ($text =~ /\S/) |
| # try to skip the line |
{ |
| # |
return '<li>' . $prepend . $text . '</li>'; |
| if ($end_tag) { |
|
| next if $to_skip{"end $end_tag"}; |
|
| } elsif ($tag) { |
|
| next if $to_skip{$tag}; |
|
| last if $tag eq 'bye'; |
|
| } |
} |
| if ($in_top) { |
return ''; |
| # parsing the top node |
} |
| if ($tag eq 'node' || $tag eq 'include' || $sec2level{$tag}) { |
|
| # no more in top |
sub html_default_table_list($$$$$$$$$) |
| $in_top = 0; |
{ |
| } else { |
my $format_command = shift; |
| # skip it |
my $text = shift; |
| next; |
my $command = shift; |
| } |
my $formatted_command = shift; |
| |
# enumerate |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
# itemize |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
# multitable |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
# my $number = shift; |
| |
$formatted_command = '' if (!defined($formatted_command) or |
| |
exists($special_list_commands{$format}->{$command})); |
| |
if ($format_command eq 'itemize') |
| |
{ |
| |
return "<ul>\n" . $text . "</ul>\n" if (($command eq 'bullet') or (($command eq '') and ($prepended eq ''))); |
| |
return html_default_attribute_class('ul',$NO_BULLET_LIST_CLASS).">\n" . $text . "</ul>\n"; |
| } |
} |
| # |
elsif ($format_command eq 'multitable') |
| # try to remove inlined comments |
{ |
| # syntax from tex-mode.el comment-start-skip |
pop @html_default_multitable_stack; |
| # |
return &$format('multitable', 'table', $text); |
| s/((^|[^\@])(\@\@)*)\@c(omment)? .*/$1/; |
|
| # non-@ substitutions cf. texinfmt.el |
|
| unless ($in_pre) { |
|
| s/``/\"/g; |
|
| s/''/\"/g; |
|
| s/([\w ])---([\w ])/$1--$2/g; |
|
| } |
} |
| # |
} |
| # analyze the tag |
|
| # |
# a paragraph |
| if ($tag) { |
# arguments: |
| # skip lines |
# $text of the paragraph |
| &skip_until($tag), next if $tag eq 'ignore'; |
# $align for the alignement |
| if ($expandinfo) { |
# $indent for the indent style (indent or noindent) |
| &skip_until($tag), next if $tag eq 'iftex'; |
# The following is usefull if the paragraph is in an itemize. |
| } else { |
# $paragraph_command is the leading formatting command (like @minus) |
| &skip_until($tag), next if $tag eq 'ifinfo'; |
# $paragraph_command_formatted is the leading formatting command formatted |
| } |
# $paragraph_number is a reference on the number of paragraphs appearing |
| &skip_until($tag), next if $tag eq 'tex'; |
# in the format. The value should be increased if a paragraph is done |
| # handle special tables |
# $format is the format name (@itemize) |
| if ($tag =~ /^(|f|v|multi)table$/) { |
sub html_default_paragraph($$$$$$$$$$$$) |
| $table_type = $1; |
{ |
| $tag = 'table'; |
my $text = shift; |
| } |
my $align = shift; |
| # special cases |
my $indent = shift; |
| if ($tag eq 'top' || ($tag eq 'node' && /^\@node\s+top\s*,/i)) { |
my $paragraph_command = shift; |
| $in_top = 1; |
my $paragraph_command_formatted = shift; |
| @lines = (); # ignore all lines before top (title page garbage) |
my $paragraph_number = shift; |
| next; |
my $format = shift; |
| } elsif ($tag eq 'node') { |
my $item_nr = shift; |
| $in_top = 0; |
my $enumerate_style = shift; |
| warn "$ERROR Bad node line: $_" unless $_ =~ /^\@node\s$NODESRE$/o; |
my $number = shift; |
| $_ = &protect_html($_); # if node contains '&' for instance |
my $command_stack_at_end = shift; |
| s/^\@node\s+//; |
my $command_stack_at_begin = shift; |
| ($node) = split(/,/); |
#print STDERR "format: $format\n" if (defined($format)); |
| &normalise_node($node); |
#print STDERR "paragraph @$command_stack_at_end; @$command_stack_at_begin\n"; |
| if ($split_node) { |
# $paragraph_command_formatted = '' if (!defined($paragraph_command_formatted) or |
| &next_doc; |
# exists($special_list_commands{$format}->{$paragraph_command})); |
| push(@lines, $SPLITTAG) if $split_num++; |
return '' if ($text =~ /^\s*$/); |
| push(@sections, $node); |
|
| } |
if (defined($paragraph_number) and defined($$paragraph_number)) |
| next; |
{ |
| } elsif ($tag eq 'include') { |
$$paragraph_number++; |
| if (/^\@include\s+($FILERE)\s*$/o) { |
return $text if (($format eq 'itemize' or $format eq 'enumerate') and |
| $file = $1; |
($$paragraph_number == 1)); |
| unless (-e $file) { |
|
| foreach $dir (@include_dirs) { |
|
| $file = "$dir/$1"; |
|
| last if -e $file; |
|
| } |
|
| } |
|
| if (-e $file) { |
|
| &open($file); |
|
| print "# including $file\n" if $verbose; |
|
| } else { |
|
| warn "$ERROR Can't find $file, skipping"; |
|
| } |
|
| } else { |
|
| warn "$ERROR Bad include line: $_"; |
|
| } |
|
| next; |
|
| } elsif ($tag eq 'ifclear') { |
|
| if (/^\@ifclear\s+($VARRE)\s*$/o) { |
|
| next unless defined($value{$1}); |
|
| &skip_until($tag); |
|
| } else { |
|
| warn "$ERROR Bad ifclear line: $_"; |
|
| } |
|
| next; |
|
| } elsif ($tag eq 'ifset') { |
|
| if (/^\@ifset\s+($VARRE)\s*$/o) { |
|
| next if defined($value{$1}); |
|
| &skip_until($tag); |
|
| } else { |
|
| warn "$ERROR Bad ifset line: $_"; |
|
| } |
|
| next; |
|
| } elsif ($tag eq 'menu') { |
|
| unless ($show_menu) { |
|
| &skip_until($tag); |
|
| next; |
|
| } |
|
| &html_push_if($tag); |
|
| push(@lines, &html_debug("\n", __LINE__)); |
|
| } elsif ($format_map{$tag}) { |
|
| $in_pre = 1 if $format_map{$tag} eq 'PRE'; |
|
| &html_push_if($format_map{$tag}); |
|
| push(@lines, &html_debug("\n", __LINE__)); |
|
| $in_list++ if $format_map{$tag} eq 'UL' || $format_map{$tag} eq 'OL' ; |
|
| push(@lines, &debug("<$format_map{$tag}>\n", __LINE__)); |
|
| next; |
|
| } elsif ($tag eq 'table') { |
|
| if (/^\s*\@(|f|v|multi)table\s+\@(\w+)/) { |
|
| $in_table = $2; |
|
| unshift(@tables, join($;, $table_type, $in_table)); |
|
| if ($table_type eq "multi") { |
|
| push(@lines, &debug("<TABLE BORDER>\n", __LINE__)); |
|
| &html_push_if('TABLE'); |
|
| } else { |
|
| push(@lines, &debug("<DL COMPACT>\n", __LINE__)); |
|
| &html_push_if('DL'); |
|
| } |
|
| push(@lines, &html_debug("\n", __LINE__)); |
|
| } else { |
|
| warn "$ERROR Bad table line: $_"; |
|
| } |
|
| next; |
|
| } elsif ($tag eq 'synindex' || $tag eq 'syncodeindex') { |
|
| if (/^\@$tag\s+(\w)\w\s+(\w)\w\s*$/) { |
|
| eval("*${1}index = *${2}index"); |
|
| } else { |
|
| warn "$ERROR Bad syn*index line: $_"; |
|
| } |
|
| next; |
|
| } elsif ($tag eq 'sp') { |
|
| push(@lines, &debug("<P>\n", __LINE__)); |
|
| next; |
|
| } elsif ($tag eq 'setref') { |
|
| &protect_html; # if setref contains '&' for instance |
|
| if (/^\@$tag\s*{($NODERE)}\s*$/) { |
|
| $setref = $1; |
|
| $setref =~ s/\s+/ /g; # normalize |
|
| $setref =~ s/ $//; |
|
| $node2sec{$setref} = $name; |
|
| $node2href{$setref} = "$docu_doc#$docid"; |
|
| } else { |
|
| warn "$ERROR Bad setref line: $_"; |
|
| } |
|
| next; |
|
| } elsif ($tag eq 'defindex' || $tag eq 'defcodeindex') { |
|
| if (/^\@$tag\s+(\w\w)\s*$/) { |
|
| $valid_index{$1} = 1; |
|
| } else { |
|
| warn "$ERROR Bad defindex line: $_"; |
|
| } |
|
| next; |
|
| } elsif ($tag eq 'lowersections') { |
|
| local ($sec, $level); |
|
| while (($sec, $level) = each %sec2level) { |
|
| $sec2level{$sec} = $level + 1; |
|
| } |
|
| next; |
|
| } elsif ($tag eq 'raisesections') { |
|
| local ($sec, $level); |
|
| while (($sec, $level) = each %sec2level) { |
|
| $sec2level{$sec} = $level - 1; |
|
| } |
|
| next; |
|
| } elsif (defined($def_map{$tag})) { |
|
| if ($def_map{$tag}) { |
|
| s/^\@$tag\s+//; |
|
| $tag = $def_map{$tag}; |
|
| $_ = "\@$tag $_"; |
|
| $tag =~ s/\s.*//; |
|
| } |
|
| } elsif (defined($user_sub{$tag})) { |
|
| s/^\@$tag\s+//; |
|
| $sub = $user_sub{$tag}; |
|
| print "# user $tag = $sub, arg: $_" if $debug & $DEBUG_USER; |
|
| if (defined(&$sub)) { |
|
| chop($_); |
|
| &$sub($_); |
|
| } else { |
|
| warn "$ERROR Bad user sub for $tag: $sub\n"; |
|
| } |
|
| next; |
|
| } |
|
| if (defined($def_map{$tag})) { |
|
| s/^\@$tag\s+//; |
|
| if ($tag =~ /x$/) { |
|
| # extra definition line |
|
| $tag = $`; |
|
| $is_extra = 1; |
|
| } else { |
|
| $is_extra = 0; |
|
| } |
|
| while (/\{([^\{\}]*)\}/) { |
|
| # this is a {} construct |
|
| ($before, $contents, $after) = ($`, $1, $'); |
|
| # protect spaces |
|
| $contents =~ s/\s+/$;9/g; |
|
| # restore $_ protecting {} |
|
| $_ = "$before$;7$contents$;8$after"; |
|
| } |
|
| @args = split(/\s+/, &protect_html($_)); |
|
| foreach (@args) { |
|
| s/$;9/ /g; # unprotect spaces |
|
| s/$;7/\{/g; # ... { |
|
| s/$;8/\}/g; # ... } |
|
| } |
|
| $type = shift(@args); |
|
| $type =~ s/^\{(.*)\}$/$1/; |
|
| print "# def ($tag): {$type} ", join(', ', @args), "\n" |
|
| if $debug & $DEBUG_DEF; |
|
| $type .= ':'; # it's nicer like this |
|
| $name = shift(@args); |
|
| $name =~ s/^\{(.*)\}$/$1/; |
|
| if ($is_extra) { |
|
| $_ = &debug("<DT>", __LINE__); |
|
| } else { |
|
| $_ = &debug("<DL>\n<DT>", __LINE__); |
|
| } |
|
| if ($tag eq 'deffn' || $tag eq 'defvr' || $tag eq 'deftp') { |
|
| $_ .= "<U>$type</U> <B>$name</B>"; |
|
| $_ .= " <I>@args</I>" if @args; |
|
| } elsif ($tag eq 'deftypefn' || $tag eq 'deftypevr' |
|
| || $tag eq 'defcv' || $tag eq 'defop') { |
|
| $ftype = $name; |
|
| $name = shift(@args); |
|
| $name =~ s/^\{(.*)\}$/$1/; |
|
| $_ .= "<U>$type</U> $ftype <B>$name</B>"; |
|
| $_ .= " <I>@args</I>" if @args; |
|
| } else { |
|
| warn "$ERROR Unknown definition type: $tag\n"; |
|
| $_ .= "<U>$type</U> <B>$name</B>"; |
|
| $_ .= " <I>@args</I>" if @args; |
|
| } |
|
| $_ .= &debug("\n<DD>", __LINE__); |
|
| $name = &unprotect_html($name); |
|
| if ($tag eq 'deffn' || $tag eq 'deftypefn') { |
|
| unshift(@input_spool, "\@findex $name\n"); |
|
| } elsif ($tag eq 'defop') { |
|
| unshift(@input_spool, "\@findex $name on $ftype\n"); |
|
| } elsif ($tag eq 'defvr' || $tag eq 'deftypevr' || $tag eq 'defcv') { |
|
| unshift(@input_spool, "\@vindex $name\n"); |
|
| } else { |
|
| unshift(@input_spool, "\@tindex $name\n"); |
|
| } |
|
| $dont_html = 1; |
|
| } |
|
| } elsif ($end_tag) { |
|
| if ($format_map{$end_tag}) { |
|
| $in_pre = 0 if $format_map{$end_tag} eq 'PRE'; |
|
| $in_list-- if $format_map{$end_tag} eq 'UL' || $format_map{$end_tag} eq 'OL' ; |
|
| &html_pop_if('LI', 'P'); |
|
| &html_pop_if(); |
|
| push(@lines, &debug("</$format_map{$end_tag}>\n", __LINE__)); |
|
| push(@lines, &html_debug("\n", __LINE__)); |
|
| } elsif ($end_tag =~ /^(|f|v|multi)table$/) { |
|
| unless (@tables) { |
|
| warn "$ERROR \@end $end_tag without \@*table\n"; |
|
| next; |
|
| } |
|
| ($table_type, $in_table) = split($;, shift(@tables)); |
|
| unless ($1 eq $table_type) { |
|
| warn "$ERROR \@end $end_tag without matching \@$end_tag\n"; |
|
| next; |
|
| } |
|
| if ($table_type eq "multi") { |
|
| push(@lines, "</TR></TABLE>\n"); |
|
| &html_pop_if('TR'); |
|
| } else { |
|
| push(@lines, "</DL>\n"); |
|
| &html_pop_if('DD'); |
|
| } |
|
| &html_pop_if(); |
|
| if (@tables) { |
|
| ($table_type, $in_table) = split($;, $tables[0]); |
|
| } else { |
|
| $in_table = 0; |
|
| } |
|
| } elsif (defined($def_map{$end_tag})) { |
|
| push(@lines, &debug("</DL>\n", __LINE__)); |
|
| } elsif ($end_tag eq 'menu') { |
|
| &html_pop_if(); |
|
| push(@lines, $_); # must keep it for pass 2 |
|
| } |
|
| next; |
|
| } |
} |
| # |
|
| # misc things |
my $top_stack = ''; |
| # |
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin)); |
| # protect texi and HTML things |
if ($top_stack eq 'multitable') |
| &protect_texi; |
{ |
| $_ = &protect_html($_) unless $dont_html; |
$html_default_multitable_stack[-1]->[1]++; |
| $dont_html = 0; |
if ($html_default_multitable_stack[-1]->[1] == 0) |
| # substitution (unsupported things) |
{ |
| s/^\@center\s+//g; |
return $text; |
| s/^\@exdent\s+//g; |
} |
| s/\@noindent\s+//g; |
|
| s/\@refill\s+//g; |
|
| # other substitutions |
|
| &simple_substitutions; |
|
| s/\@value{($VARRE)}/$value{$1}/eg; |
|
| s/\@footnote\{/\@footnote$docu_doc\{/g; # mark footnotes, cf. pass 4 |
|
| # |
|
| # analyze the tag again |
|
| # |
|
| if ($tag) { |
|
| if (defined($sec2level{$tag}) && $sec2level{$tag} > 0) { |
|
| if (/^\@$tag\s+(.+)$/) { |
|
| $name = $1; |
|
| $name =~ s/\s+$//; |
|
| $level = $sec2level{$tag}; |
|
| $name = &update_sec_num($tag, $level) . " $name" |
|
| if $number_sections && $tag !~ /^unnumbered/; |
|
| if ($tag =~ /heading$/) { |
|
| push(@lines, &html_debug("\n", __LINE__)); |
|
| if ($html_element ne 'body') { |
|
| # We are in a nice pickle here. We are trying to get a H? heading |
|
| # even though we are not in the body level. So, we convert it to a |
|
| # nice, bold, line by itself. |
|
| $_ = &debug("\n\n<P><STRONG>$name</STRONG>\n\n", __LINE__); |
|
| } else { |
|
| $_ = &debug("<H$level>$name</H$level>\n", __LINE__); |
|
| &html_push_if('body'); |
|
| } |
|
| print "# heading, section $name, level $level\n" |
|
| if $debug & $DEBUG_TOC; |
|
| } else { |
|
| if ($split_chapter) { |
|
| unless ($toplevel) { |
|
| # first time we see a "section" |
|
| unless ($level == 1) { |
|
| warn "$ERROR The first section found is not of level 1: $_"; |
|
| warn "$ERROR I'll split on sections of level $level...\n"; |
|
| } |
|
| $toplevel = $level; |
|
| } |
|
| if ($level == $toplevel) { |
|
| &next_doc; |
|
| push(@lines, $SPLITTAG) if $split_num++; |
|
| push(@sections, $name); |
|
| } |
|
| } |
|
| $sec_num++; |
|
| $docid = "SEC$sec_num"; |
|
| $tocid = "TOC$sec_num"; |
|
| # check biblio and glossary |
|
| $in_bibliography = ($name =~ /^([A-Z]|\d+)?(\.\d+)*\s*bibliography$/i); |
|
| $in_glossary = ($name =~ /^([A-Z]|\d+)?(\.\d+)*\s*glossary$/i); |
|
| # check node |
|
| if ($node) { |
|
| if ($node2sec{$node}) { |
|
| warn "$ERROR Duplicate node found: $node\n"; |
|
| } else { |
|
| $node2sec{$node} = $name; |
|
| $node2href{$node} = "$docu_doc#$docid"; |
|
| print "# node $node, section $name, level $level\n" |
|
| if $debug & $DEBUG_TOC; |
|
| } |
|
| $node = ''; |
|
| } else { |
|
| print "# no node, section $name, level $level\n" |
|
| if $debug & $DEBUG_TOC; |
|
| } |
|
| # update TOC |
|
| while ($level > $curlevel) { |
|
| $curlevel++; |
|
| push(@toc_lines, "<UL>\n"); |
|
| } |
|
| while ($level < $curlevel) { |
|
| $curlevel--; |
|
| push(@toc_lines, "</UL>\n"); |
|
| } |
|
| $_ = "<LI>" . &anchor($tocid, "$docu_doc#$docid", $name, 1); |
|
| push(@toc_lines, &substitute_style($_)); |
|
| # update DOC |
|
| push(@lines, &html_debug("\n", __LINE__)); |
|
| &html_reset; |
|
| $_ = "<H$level>".&anchor($docid, "$docu_toc#$tocid", $name)."</H$level>\n"; |
|
| $_ = &debug($_, __LINE__); |
|
| push(@lines, &html_debug("\n", __LINE__)); |
|
| } |
|
| # update DOC |
|
| foreach $line (split(/\n+/, $_)) { |
|
| push(@lines, "$line\n"); |
|
| } |
|
| next; |
|
| } else { |
|
| warn "$ERROR Bad section line: $_"; |
|
| } |
|
| } else { |
|
| # track variables |
|
| $value{$1} = $2, next if /^\@set\s+($VARRE)\s+(.*)$/o; |
|
| delete $value{$1}, next if /^\@clear\s+($VARRE)\s*$/o; |
|
| # store things |
|
| $value{'_setfilename'} = $1, next if /^\@setfilename\s+(.*)$/; |
|
| $value{'_settitle'} = $1, next if /^\@settitle\s+(.*)$/; |
|
| $value{'_author'} .= "$1\n", next if /^\@author\s+(.*)$/; |
|
| $value{'_subtitle'} .= "$1\n", next if /^\@subtitle\s+(.*)$/; |
|
| $value{'_title'} .= "$1\n", next if /^\@title\s+(.*)$/; |
|
| # index |
|
| if (/^\@(..?)index\s+/) { |
|
| unless ($valid_index{$1}) { |
|
| warn "$ERROR Undefined index command: $_"; |
|
| next; |
|
| } |
|
| $id = 'IDX' . ++$idx_num; |
|
| $index = $1 . 'index'; |
|
| $what = &substitute_style($'); |
|
| $what =~ s/\s+$//; |
|
| print "# found $index for '$what' id $id\n" |
|
| if $debug & $DEBUG_INDEX; |
|
| eval(<<EOC); |
|
| if (defined(\$$index\{\$what\})) { |
|
| \$$index\{\$what\} .= "$;$docu_doc#$id"; |
|
| } else { |
|
| \$$index\{\$what\} = "$docu_doc#$id"; |
|
| } |
|
| EOC |
|
| # |
|
| # dirty hack to see if I can put an invisible anchor... |
|
| # |
|
| if ($html_element eq 'P' || |
|
| $html_element eq 'LI' || |
|
| $html_element eq 'DT' || |
|
| $html_element eq 'DD' || |
|
| $html_element eq 'ADDRESS' || |
|
| $html_element eq 'B' || |
|
| $html_element eq 'BLOCKQUOTE' || |
|
| $html_element eq 'PRE' || |
|
| $html_element eq 'SAMP') { |
|
| push(@lines, &anchor($id, '', $invisible_mark, !$in_pre)); |
|
| } elsif ($html_element eq 'body') { |
|
| push(@lines, &debug("<P>\n", __LINE__)); |
|
| push(@lines, &anchor($id, '', $invisible_mark, !$in_pre)); |
|
| &html_push('P'); |
|
| } elsif ($html_element eq 'DL' || |
|
| $html_element eq 'UL' || |
|
| $html_element eq 'OL' ) { |
|
| $deferred_ref .= &anchor($id, '', $invisible_mark, !$in_pre) . " "; |
|
| } |
|
| next; |
|
| } |
|
| # list item |
|
| if (/^\s*\@itemx?\s+/) { |
|
| $what = $'; |
|
| $what =~ s/\s+$//; |
|
| if ($in_bibliography && $use_bibliography) { |
|
| if ($what =~ /^$BIBRE$/o) { |
|
| $id = 'BIB' . ++$bib_num; |
|
| $bib2href{$what} = "$docu_doc#$id"; |
|
| print "# found bibliography for '$what' id $id\n" |
|
| if $debug & $DEBUG_BIB; |
|
| $what = &anchor($id, '', $what); |
|
| } |
|
| } elsif ($in_glossary && $use_glossary) { |
|
| $id = 'GLOSS' . ++$gloss_num; |
|
| $entry = $what; |
|
| $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/; |
|
| $gloss2href{$entry} = "$docu_doc#$id"; |
|
| print "# found glossary for '$entry' id $id\n" |
|
| if $debug & $DEBUG_GLOSS; |
|
| $what = &anchor($id, '', $what); |
|
| } |
|
| &html_pop_if('P'); |
|
| if ($html_element eq 'DL' || $html_element eq 'DD') { |
|
| if ($things_map{$in_table} && !$what) { |
|
| # special case to allow @table @bullet for instance |
|
| push(@lines, &debug("<DT>$things_map{$in_table}\n", __LINE__)); |
|
| } else { |
|
| push(@lines, &debug("<DT>\@$in_table\{$what\}\n", __LINE__)); |
|
| } |
|
| push(@lines, "<DD>"); |
|
| &html_push('DD') unless $html_element eq 'DD'; |
|
| if ($table_type) { # add also an index |
|
| unshift(@input_spool, "\@${table_type}index $what\n"); |
|
| } |
|
| } elsif ($html_element eq 'TABLE') { |
|
| push(@lines, &debug("<TR><TD>$what</TD>\n", __LINE__)); |
|
| &html_push('TR'); |
|
| } elsif ($html_element eq 'TR') { |
|
| push(@lines, &debug("</TR>\n", __LINE__)); |
|
| push(@lines, &debug("<TR><TD>$what</TD>\n", __LINE__)); |
|
| } else { |
|
| push(@lines, &debug("<LI>$what\n", __LINE__)); |
|
| &html_push('LI') unless $html_element eq 'LI'; |
|
| } |
|
| push(@lines, &html_debug("\n", __LINE__)); |
|
| if ($deferred_ref) { |
|
| push(@lines, &debug("$deferred_ref\n", __LINE__)); |
|
| $deferred_ref = ''; |
|
| } |
|
| next; |
|
| } elsif (/^\@tab\s+(.*)$/) { |
|
| push(@lines, "<TD>$1</TD>\n"); |
|
| next; |
|
| } |
|
| } |
|
| } |
} |
| # paragraph separator |
|
| if ($_ eq "\n") { |
my $open = '<p>'; |
| next if $#lines >= 0 && $lines[$#lines] eq "\n"; |
if ($align) |
| if ($html_element eq 'P') { |
{ |
| push(@lines, "\n"); |
$open = "<p align=\"$paragraph_style{$align}\">"; |
| $_ = &debug("\n", __LINE__); |
|
| &html_pop; |
|
| } |
|
| } elsif ($html_element eq 'body' || $html_element eq 'BLOCKQUOTE') { |
|
| push(@lines, "<P>\n"); |
|
| &html_push('P'); |
|
| $_ = &debug($_, __LINE__); |
|
| } |
} |
| # otherwise |
return $open.$text.'</p>'; |
| push(@lines, $_); |
|
| } |
} |
| |
|
| # finish TOC |
# a preformatted region |
| $level = 0; |
# arguments: |
| while ($level < $curlevel) { |
# $text of the preformatted region |
| $curlevel--; |
# $pre_style css style |
| push(@toc_lines, "</UL>\n"); |
# $class identifier for the preformatted region (example, menu-comment) |
| |
# The following is usefull if the preformatted is in an itemize. |
| |
# $leading_command is the leading formatting command (like @minus) |
| |
# $leading_command_formatted is the leading formatting command formatted |
| |
# $preformatted_number is a reference on the number of preformatteds appearing |
| |
# in the format. The value should be increased if a preformatted is done |
| |
sub html_default_preformatted($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $pre_style = shift; |
| |
my $class = shift; |
| |
my $leading_command = shift; |
| |
my $leading_command_formatted = shift; |
| |
my $preformatted_number = shift; |
| |
my $format = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $command_stack_at_end = shift; |
| |
my $command_stack_at_begin = shift; |
| |
|
| |
#print STDERR "preformatted @$command_stack_at_end; @$command_stack_at_begin\n"; |
| |
return '' if ($text eq ''); |
| |
$leading_command_formatted = '' if (!defined($leading_command_formatted) or |
| |
exists($special_list_commands{$format}->{$leading_command})); |
| |
if (defined($preformatted_number) and defined($$preformatted_number)) |
| |
{ |
| |
$$preformatted_number++; |
| |
} |
| |
my $top_stack = ''; |
| |
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin)); |
| |
if ($top_stack eq 'multitable') |
| |
{ |
| |
$text =~ s/^\s*//; |
| |
$text =~ s/\s*$//; |
| |
} |
| |
|
| |
return html_default_attribute_class('pre', $class).">".$text."</pre>"; |
| } |
} |
| |
|
| print "# end of pass 1\n" if $verbose; |
sub html_default_heading_text($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $level = shift; |
| |
|
| |
return '' if ($text !~ /\S/); |
| |
# FIXME use a class=*contents? |
| |
my $class = ''; |
| |
if ($command =~ /^@/ and $command !~ /^@.*contents$/) |
| |
{ |
| |
$class = $command; |
| |
$class =~ s/^@//; |
| |
$class = 'node-heading' if ($command eq '@node'); |
| |
} |
| |
my $align = ''; |
| |
$align = ' align="center"' if ($command eq '@centerchap' or $command eq '@settitle'); |
| |
$level = 1 if ($level == 0); |
| |
my $result = html_default_attribute_class ("h$level", $class) ."$align>$text</h$level>"; |
| |
# FIXME titlefont appears inline in text, so no end of line is |
| |
# added. The end of line should be added by the user if needed. |
| |
$result .= "\n" unless ($command eq '@titlefont'); |
| |
$result .= $DEFAULT_RULE . "\n" if ($command eq '@part' and defined($DEFAULT_RULE) and $DEFAULT_RULE ne ''); |
| |
return $result; |
| |
} |
| |
|
| |
sub html_default_heading_text_preformatted($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $level = shift; |
| |
|
| |
return '' if ($text !~ /\S/); |
| |
return '<strong>'.$text.'</strong>'."\n"; |
| |
} |
| |
|
| |
# formatting of raw regions |
| |
# if L2H is true another mechanism is used for tex |
| |
sub html_default_raw($$;$) |
| |
{ |
| |
my $style = shift; |
| |
my $text = shift; |
| |
my $line_nr = shift; |
| |
my $expanded = 1 if (grep {$style eq $_} @EXPAND); |
| |
if ($style eq 'verbatim' or $style eq 'verbatiminclude' or ($style eq 'tex' and $expanded)) |
| |
{ |
| |
$style = 'verbatim' if ($style eq 'verbatiminclude'); |
| |
return html_default_attribute_class('pre', $style).">" . &$protect_text($text) . '</pre>'; |
| |
} |
| |
elsif ($style eq 'html' and $expanded) |
| |
{ |
| |
chomp ($text); |
| |
return $text; |
| |
} |
| |
elsif ($expanded) |
| |
{ |
| |
main::line_warn (sprintf(__("Raw format %s is not converted"), $style), $line_nr); |
| |
return &$protect_text($text); |
| |
} |
| |
else |
| |
{ |
| |
return ''; |
| |
} |
| |
} |
| |
|
| |
# This function formats a footnote reference and the footnote text associated |
| |
# with a given footnote. |
| |
# The footnote reference is the text appearing in the main document pointing |
| |
# to the footnote text. |
| |
# |
| |
# arguments: |
| |
# absolute number of the footnote (in the document) |
| |
# relative number of the footnote (in the page) |
| |
# identifier for the footnote |
| |
# identifier for the footnote reference in the main document |
| |
# main document file |
| |
# footnote text file |
| |
# array with the footnote text lines |
| |
# the state. See menu entry. |
| |
# |
| |
# returns: |
| |
# reference on an array containing the footnote text lines which should |
| |
# have been updated |
| |
# the text for the reference pointing on the footnote text |
| |
sub html_default_foot_line_and_ref($$$$$$$$$) |
| |
{ |
| |
my $number_in_doc = shift; |
| |
my $number_in_page = shift; |
| |
my $footnote_id = shift; |
| |
my $place_id = shift; |
| |
my $document_file = shift; |
| |
my $footnote_file = shift; |
| |
my $lines = shift; |
| |
my $document_state = shift; |
| |
|
| |
if ($document_file eq $footnote_file) |
| |
{ |
| |
$document_file = $footnote_file = ''; |
| |
} |
| |
|
| |
$number_in_doc = $NO_NUMBER_FOOTNOTE_SYMBOL if (!$NUMBER_FOOTNOTES); |
| |
|
| |
unshift (@$lines, '<h3>' . |
| |
&$anchor($footnote_id, $document_file . "#$place_id", |
| |
"($number_in_doc)") |
| |
. "</h3>\n"); |
| |
# this is a bit obscure, this allows to add an anchor only if formatted |
| |
# as part of the document. |
| |
#$place_id = '' if ($document_state->{'outside_document'} or $document_state->{'multiple_pass'} or $document_state->{'expansion'}); |
| |
$place_id = '' if ($document_state->{'outside_document'} or (defined($document_state->{'multiple_pass'}) and $document_state->{'multiple_pass'} > 0)); |
| |
return ($lines, &$anchor($place_id, $footnote_file . "#$footnote_id", |
| |
"($number_in_doc)")); |
| |
} |
| |
|
| |
# formats a group of footnotes. |
| |
# |
| |
# argument: |
| |
# array reference on the footnotes texts lines |
| |
# |
| |
# returns an array reference on the group of footnotes lines |
| |
sub html_default_foot_section($) |
| |
{ |
| |
my $lines = shift; |
| |
unshift (@$lines, html_default_attribute_class('div', 'footnote').">\n" ,"$DEFAULT_RULE\n", |
| |
&$heading_text('footnotes', gdt('Footnotes'), 3) |
| |
); |
| |
push (@$lines, "</div>\n"); |
| |
return $lines; |
| |
} |
| |
|
| |
sub html_default_image_files($$$$) |
| |
{ |
| |
my $base = shift; |
| |
my $extension = shift; |
| |
my $texi_base = shift; |
| |
my $texi_extension = shift; |
| |
my @files = (); |
| |
return @files if (!defined($base) or ($base eq '')); |
| |
if (defined($extension) and ($extension ne '')) |
| |
{ |
| |
push @files,["$base.$extension", "$texi_base.$texi_extension"]; |
| |
} |
| |
foreach my $ext (@IMAGE_EXTENSIONS) |
| |
{ |
| |
push @files,["$base.$ext", "$texi_base.$ext"]; |
| |
} |
| |
return @files; |
| |
} |
| |
|
| |
# format an image |
| |
# |
| |
# arguments: |
| |
# image file name with path |
| |
# image basename |
| |
# a boolean true if we are in a preformatted format |
| |
# image file name without path |
| |
# alt text |
| |
# width |
| |
# height |
| |
# raw alt |
| |
# extension |
| |
# path to working dir |
| |
# path to file relative from working dir |
| |
sub html_default_image($$$$$$$$$$$$$$$$$) |
| |
{ |
| |
my $file = shift; |
| |
my $base = shift; |
| |
my $preformatted = shift; |
| |
my $file_name = shift; |
| |
my $alt = shift; |
| |
my $width = shift; |
| |
my $height = shift; |
| |
my $raw_alt = shift; |
| |
my $extension = shift; |
| |
my $working_dir = shift; |
| |
my $file_path = shift; |
| |
my $in_paragraph = shift; |
| |
my $file_locations = shift; |
| |
my $base_simple_format = shift; |
| |
my $extension_simple_format = shift; |
| |
my $file_name_simple_format = shift; |
| |
my $line_nr = shift; |
| |
|
| |
if (!defined($file_path) or $file_path eq '') |
| |
{ |
| |
if (defined($extension) and $extension ne '') |
| |
{ |
| |
$file = "$base.$extension"; |
| |
} |
| |
else |
| |
{ |
| |
$file = "$base.jpg"; |
| |
} |
| |
main::line_warn (sprintf(__("\@image file `%s' (for HTML) not found, using `%s'"), $base, $file), $line_nr); |
| |
} |
| |
elsif (! $COMPLETE_IMAGE_PATHS) |
| |
{ |
| |
$file = $file_name; |
| |
} |
| |
$alt = &$protect_text($base) if (!defined($alt) or ($alt eq '')); |
| |
return "[ $alt ]" if ($preformatted); |
| |
# it is possible that $file_name is more correct as it allows the user |
| |
# to chose the relative path. |
| |
$file = &$protect_text($file); |
| |
return "<img src=\"$file\" alt=\"$alt\">"; |
| |
} |
| |
|
| |
# format a target in the main document for an index entry. |
| |
# |
| |
# arguments: |
| |
# target identifier |
| |
# boolean true if in preformatted format |
| |
# FIXME document the remaining |
| |
sub html_default_index_entry_label($$$$$$$$$) |
| |
{ |
| |
my $identifier = shift; |
| |
my $preformatted = shift; |
| |
my $entry = shift; |
| |
my $index_name = shift; |
| |
my $index_command = shift; |
| |
my $texi_entry = shift; |
| |
my $formatted_entry = shift; |
| |
my $in_region_not_in_output = shift; |
| |
my $index_entry_ref = shift; |
| |
|
| |
return '' if (!defined($identifier) or ($identifier !~ /\S/)); |
| |
my $label = &$anchor($identifier); |
| |
return $label . "\n" if (!$preformatted); |
| |
return $label; |
| |
} |
| |
|
| |
sub html_default_index_entry_command($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $index_name = shift; |
| |
my $label = shift; |
| |
my $entry_texi = shift; |
| |
my $entry_formatted = shift; |
| |
my $index_entry_ref = shift; |
| |
|
| |
return $label; |
| |
} |
| |
|
| |
# process definition commands line @deffn for example |
| |
sub html_default_def_line($$$$$$$$$$$$$$$$) |
| |
{ |
| |
my $category_prepared = shift; |
| |
my $name = shift; |
| |
my $type = shift; |
| |
my $arguments = shift; |
| |
my $index_label = shift; |
| |
my $arguments_array = shift; |
| |
my $arguments_type_array = shift; |
| |
my $unformatted_arguments_array = shift; |
| |
my $command = shift; |
| |
my $class_name = shift; |
| |
my $category = shift; |
| |
my $class = shift; |
| |
my $style = shift; |
| |
my $original_command = shift; |
| |
|
| |
$index_label = '' if (!defined($index_label)); |
| |
chomp($index_label); |
| |
$category_prepared = '' if (!defined($category_prepared) or ($category_prepared =~ /^\s*$/)); |
| |
$name = '' if (!defined($name) or ($name =~ /^\s*$/)); |
| |
$type = '' if (!defined($type) or $type =~ /^\s*$/); |
| |
if (!defined($arguments) or $arguments =~ /^\s*$/) |
| |
{ |
| |
$arguments = ''; |
| |
} |
| |
else |
| |
{ |
| |
chomp ($arguments); |
| |
$arguments = '<em>' . $arguments . '</em>'; |
| |
} |
| |
my $type_name = ''; |
| |
$type_name = " <em>$type</em>" if ($type ne ''); |
| |
$type_name .= ' <strong>' . $name . '</strong>' if ($name ne ''); |
| |
$type_name .= $arguments; |
| |
if (! $DEF_TABLE) |
| |
{ |
| |
return '<dt>'. $index_label. $category_prepared . ':' . $type_name . "</dt>\n"; |
| |
} |
| |
else |
| |
{ |
| |
return "<tr><td align=\"left\">" . $type_name . |
| |
"</td><td align=\"right\">" . $category_prepared . $index_label . "</td></tr>\n"; |
| |
} |
| |
} |
| |
|
| |
# a cartouche |
| |
sub html_default_cartouche($$) |
| |
{ |
| |
my $text = shift; |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return html_default_attribute_class('table', 'cartouche')." border=\"1\"><tr><td>\n" . $text . "</td></tr></table>\n"; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub html_default_sp($$) |
| |
{ |
| |
my $number = shift; |
| |
my $preformatted = shift; |
| |
return "<br>\n" x $number if (!$preformatted); |
| |
return "\n" x $number; |
| |
} |
| |
|
| |
sub html_default_acronym_like($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $acronym_texi = shift; |
| |
my $acronym_text = shift; |
| |
my $with_explanation = shift; |
| |
my $explanation_lines = shift; |
| |
my $explanation_text = shift; |
| |
my $explanation_simply_formatted = shift; |
| |
|
| |
my $attribute = $command; |
| |
my $opening = "<$attribute>"; |
| |
if (defined($explanation_simply_formatted)) |
| |
{ |
| |
$opening = "<$attribute title=\"$explanation_simply_formatted\">"; |
| |
} |
| |
if ($with_explanation) |
| |
{ |
| |
return gdt('{acronym_like} ({explanation})', {'acronym_like' => $opening . $acronym_text . "</$attribute>", 'explanation' => $explanation_text},{'duplicate'=>1}) |
| |
} |
| |
else |
| |
{ |
| |
return $opening . $acronym_text . "</$attribute>"; |
| |
} |
| |
} |
| |
|
| |
sub html_default_quotation($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $argument_text = shift; |
| |
my $argument_text_texi = shift; |
| |
my $authors = shift; |
| |
my $class = ''; |
| |
$class = $command if ($command ne 'quotation'); |
| |
my $attribution = ''; |
| |
if ($authors) |
| |
{ |
| |
foreach my $author (@$authors) |
| |
{ |
| |
my $author_texi = $author->{'author_texi'}; |
| |
chomp($author_texi); |
| |
$attribution .= gdt("\@center --- \@emph{{author}}\n", {'author' => $author_texi}, {'duplicate' => 1, 'allow_paragraph' => 1}); |
| |
} |
| |
} |
| |
return html_default_attribute_class('blockquote', $class).">\n" . $text ."</blockquote>\n" . $attribution; |
| |
} |
| |
|
| |
# format a whole index |
| |
# |
| |
# argument: |
| |
# index text |
| |
# index name |
| |
sub html_default_print_index($$) |
| |
{ |
| |
my $text = shift; |
| |
my $name = shift; |
| |
return '' if (!defined($text)); |
| |
return html_default_attribute_class('table', "index-$name")." border=\"0\">\n" . |
| |
"<tr><td></td><th align=\"left\">" . gdt('Index Entry') . "</th><td> </td><th align=\"left\"> " . gdt('Section') . "</th></tr>\n" |
| |
. "<tr><td colspan=\"4\"> $DEFAULT_RULE</td></tr>\n" . $text . |
| |
"</table>\n"; |
| |
} |
| |
|
| |
# format a letter entry in an index page. The letter entry contains |
| |
# the index entries for the words beginning with that letter. It is |
| |
# a target for links pointing from the summary of the index. |
| |
# |
| |
# arguments: |
| |
# the letter |
| |
# identifier for the letter entry. This should be used to make the target |
| |
# identifier |
| |
# text of the index entries |
| |
sub html_default_index_letter($$$) |
| |
{ |
| |
my $letter = shift; |
| |
my $id = shift; |
| |
my $text = shift; |
| |
return $text if ($letter =~ /^\s*$/); |
| |
return '<tr><th>' . &$anchor($id,'',&$normal_text($letter, 0, 0, 0, 0, 0, [])) . |
| |
"</th><td></td><td></td></tr>\n" . $text . |
| |
"<tr><td colspan=\"4\"> $DEFAULT_RULE</td></tr>\n"; |
| |
} |
| |
|
| |
# format an index entry (in a letter entry). |
| |
# |
| |
# arguments: |
| |
# href to the main text, linking to the place where the index entry appears |
| |
# entry text |
| |
# href to the main text, linking to the section or node where the index |
| |
# entry appears |
| |
# section or node heading |
| |
sub html_default_index_entry($$$$$$$$$$) |
| |
{ |
| |
my $text_href = shift; |
| |
my $entry = shift; |
| |
my $element_href = shift; |
| |
my $element_text = shift; |
| |
my $entry_file = shift; |
| |
my $current_element_file = shift; |
| |
my $entry_target = shift; |
| |
my $entry_element_target = shift; |
| |
my $in_region_not_in_output = shift; |
| |
my $index_entry_ref = shift; |
| |
|
| |
return '' if ($entry !~ /\S/); |
| |
my $element = $index_entry_ref->{'real_element'}; |
| |
if (defined($element)) |
| |
{ |
| |
my $element_set = 0; |
| |
if ($NODE_NAME_IN_INDEX) |
| |
{ |
| |
if ($element->{'node'}) |
| |
{ |
| |
$element_set = 1; |
| |
} |
| |
elsif ($element->{'with_node'}) |
| |
{ |
| |
$element = $element->{'with_node'}; |
| |
$element_set = 1; |
| |
} |
| |
} |
| |
elsif (defined($NODE_NAME_IN_INDEX)) |
| |
{ |
| |
if (!$element->{'node'}) |
| |
{ |
| |
$element_set = 1; |
| |
} |
| |
elsif ($element->{'with_section'}) |
| |
{ |
| |
$element = $element->{'with_section'}; |
| |
$element_set = 1; |
| |
} |
| |
} |
| |
if ($element_set) |
| |
{ |
| |
$element_href = main::href($element, $Texi2HTML::THIS_ELEMENT->{'file'}, |
| |
$Texi2HTML::THISDOC{'line_nr'}); |
| |
$element_text = $element->{'text'}; |
| |
} |
| |
} |
| |
|
| |
return '<tr><td></td><td valign="top">' . &$anchor('', $text_href, $entry) |
| |
. $INDEX_ENTRY_COLON . '</td><td> </td><td valign="top">' . &$anchor('', $element_href, $element_text) |
| |
. "</td></tr>\n"; |
| |
} |
| |
|
| |
|
| |
# format an index summary. This is a list of letters linking to the letter |
| |
# entries. |
| |
# |
| |
# arguments: |
| |
# array reference containing the formatted alphabetical letters |
| |
# array reference containing the formatted non lphabetical letters |
| |
sub html_default_index_summary($$) |
| |
{ |
| |
my $alpha = shift; |
| |
my $nonalpha = shift; |
| |
|
| |
my $join = ''; |
| |
my $nonalpha_text = ''; |
| |
my $alpha_text = ''; |
| |
$join = " \n<br>\n" if (@$nonalpha and @$alpha); |
| |
if (@$nonalpha) |
| |
{ |
| |
$nonalpha_text = join("\n \n", @$nonalpha) . "\n"; |
| |
} |
| |
if (@$alpha) |
| |
{ |
| |
$alpha_text = join("\n \n", @$alpha) . "\n \n"; |
| |
} |
| |
return "<table><tr><th valign=\"top\">" . gdt('Jump to') .": </th><td>" . |
| |
$nonalpha_text . $join . $alpha_text . "</td></tr></table>\n"; |
| |
} |
| |
|
| |
sub html_default_element_label($$$$) |
| |
{ |
| |
my $id = shift; |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $line = shift; |
| |
|
| |
return &$anchor($id) . "\n"; |
| |
} |
| |
|
| |
sub html_default_misc_element_label($$) |
| |
{ |
| |
my $id = shift; |
| |
my $misc_page_name = shift; |
| |
return &$anchor($id) . "\n"; |
| |
} |
| |
|
| |
sub html_default_anchor_label($$$$) |
| |
{ |
| |
my $id = shift; |
| |
my $anchor_text = shift; |
| |
my $anchor_reference = shift; |
| |
my $in_special_region = shift; |
| |
return &$anchor($id); |
| |
} |
| |
|
| |
sub html_default_tab_item_texi($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $commands_stack = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line = shift; |
| |
my $line_nr = shift; |
| |
|
| |
if (defined($commands_stack) and @$commands_stack and $commands_stack->[-1] eq 'multitable' and @html_default_multitable_stack) |
| |
{ |
| |
$html_default_multitable_stack[-1]->[1] = -1; |
| |
} |
| |
return undef; |
| |
} |
| |
|
| |
sub html_default_line_command($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $arg_text = shift; |
| |
my $arg_texi = shift; |
| |
my $state = shift; |
| |
|
| |
return '' if ($arg_text eq '' or ($command eq 'author' and (!$state->{'region'} or $state->{'region'} ne 'titlepage'))); |
| |
my $style = $line_command_map{$command}; |
| |
if ($style) |
| |
{ |
| |
my $attribute_text = ''; |
| |
if ($style =~ /^(\w+)(\s+.*)/) |
| |
{ |
| |
$style = $1; |
| |
$attribute_text = $2; |
| |
} |
| |
$arg_text = "<${style}$attribute_text>$arg_text</$style>"; |
| |
} |
| |
$arg_text .= "<br>" if ($command eq 'author'); |
| |
$arg_text .= "\n"; |
| |
return $arg_text; |
| |
} |
| |
|
| |
1; |
| |
|
| |
require "$T2H_HOME/formats/html.init" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/formats/html.init" && -r "$T2H_HOME/formats/html.init"); |
| |
|
| |
# @INIT_INFO@ |
| |
# vim: set filetype=perl: |
| |
# |
| |
#+############################################################################## |
| |
# |
| |
# info.init: convert to info |
| |
# |
| |
# Copyright (C) 2008, 2009 Patrice Dumas <pertusus@free.fr> |
| |
# |
| |
# This program is free software; you can redistribute it and/or modify |
| |
# it under the terms of the GNU General Public License as published by |
| |
# the Free Software Foundation; either version 2 of the License, or |
| |
# (at your option) any later version. |
| |
# |
| |
# This program is distributed in the hope that it will be useful, |
| |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
| |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| |
# GNU General Public License for more details. |
| |
# |
| |
# You should have received a copy of the GNU General Public License |
| |
# along with this program; if not, write to the Free Software |
| |
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
| |
# 02110-1301 USA |
| |
# |
| |
# Some error messages come from texinfo (makeinfo), so copyright holder |
| |
# is the FSF or the individual who wrote them. All come from before the |
| |
# switch of texinfo to GPLv3+. |
| |
# |
| |
#-############################################################################## |
| |
|
| |
use Data::Dumper; |
| |
|
| |
use strict; |
| |
|
| |
$Data::Dumper::Maxdepth = 25; |
| |
|
| |
my %info_default_indented_commands; |
| |
my %info_default_format; |
| |
my %info_default_enable_encoding_accents; |
| |
my @simple_quoted_commands; |
| |
my @asis_commands; |
| |
my @chevron_commands; |
| |
my %info_default_accent_commands = (); |
| |
my %info_default_leaf_command = (); |
| |
my $info_default_end_sentence_character; |
| |
my $info_default_after_punctuation_characters; |
| |
my $info_default_indent_length; |
| |
my %info_default_indent_format_length; |
| |
my $info_default_index_length_to_node; |
| |
my $info_default_listoffloat_caption_entry_length; |
| |
my $info_default_listoffloat_append; |
| |
my %info_default_index_entries_counts; |
| |
|
| |
sub info_default_load(;$) |
| |
{ |
| |
my $from_command_line = shift; |
| |
|
| |
t2h_default_set_variables_default(); |
| |
$USE_SECTIONS = 0; |
| |
$USE_NODES = 1; |
| |
#set_conf('SPLIT', 0, 1); |
| |
$SPLIT = ''; |
| |
@T2H_FORMAT_EXPAND = ('info', 'direntry'); |
| |
$EXTENSION = 'info'; |
| |
$SHOW_MENU = 1; |
| |
$SHOW_TITLE = 0; |
| |
$USE_SETFILENAME_EXTENSION = 1; |
| |
$INLINE_INSERTCOPYING = 1; |
| |
$SIMPLE_MENU = 1; |
| |
$MENU_SYMBOL = '*'; |
| |
$USE_ISO = 0; |
| |
$ENABLE_ENCODING_USE_ENTITY = 0; |
| |
$ENABLE_ENCODING = 1; |
| |
@IMAGE_EXTENSIONS = ('png', 'jpg', 'txt'); |
| |
$CAPTION_STYLE = 'asis'; |
| |
$DEFAULT_ENCODING = 'ascii'; |
| |
$HEADERS = 1; |
| |
$INLINE_CONTENTS = 0; |
| |
|
| |
|
| |
$no_paragraph_commands{'anchor'} = 1; |
| |
|
| |
%simple_map = %default_simple_map; |
| |
%simple_map_pre = %simple_map; |
| |
%simple_map_texi = %simple_map; |
| |
|
| |
%things_map = %default_things_map; |
| |
%pre_map = %things_map; |
| |
|
| |
%line_command_map = ( |
| |
'dircategory' => '' |
| |
); |
| |
|
| |
# sc and var upcase. |
| |
@simple_quoted_commands = ('cite', 'code', 'command', 'env', 'file', 'kbd', |
| |
'option', 'samp'); |
| |
@asis_commands = ('asis', 'w', 'b', 'ctrl', 'i', 'math', 'sc', 't', 'r', |
| |
'slanted', 'sansserif', 'var', 'titlefont', 'verb', 'clickstyle', |
| |
'headitemfont'); |
| |
@chevron_commands = ('key', 'indicateurl'); |
| |
|
| |
%info_default_accent_commands = (); |
| |
%info_default_leaf_command = (); |
| |
|
| |
%style_map = (); |
| |
t2h_default_copy_style_map (\%default_style_map, \%style_map); |
| |
|
| |
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents), keys(%accent_map)) |
| |
{ |
| |
$info_default_accent_commands{$accent_command} = 1; |
| |
$style_map{$accent_command} = { 'function' => \&info_default_accent }; |
| |
} |
| |
|
| |
foreach my $command (keys(%style_map)) |
| |
{ |
| |
delete $style_map{$command}->{'quote'} if (exists($style_map{$command}->{'quote'})); |
| |
if (grep {$_ eq $command} @simple_quoted_commands) |
| |
{ |
| |
delete $style_map{$command}->{'function'} if (exists($style_map{$command}->{'function'})); |
| |
$style_map{$command}->{'begin'} = '`'; |
| |
$style_map{$command}->{'end'} = "'"; |
| |
next; |
| |
} |
| |
elsif (grep {$_ eq $command} @asis_commands) |
| |
{ |
| |
delete $style_map{$command}->{'function'} if (exists($style_map{$command}->{'function'})); |
| |
delete $style_map{$command}->{'begin'} if (exists($style_map{$command}->{'begin'})); |
| |
delete $style_map{$command}->{'end'} if (exists($style_map{$command}->{'end'})); |
| |
} |
| |
if (grep {$_ eq $command} @chevron_commands) |
| |
{ |
| |
delete $style_map{$command}->{'function'} if (exists($style_map{$command}->{'function'})); |
| |
$style_map{$command}->{'begin'} = '<'; |
| |
$style_map{$command}->{'end'} = '>'; |
| |
next; |
| |
} |
| |
$info_default_leaf_command{$command} = 1 if ($style_map{$command}->{'type'} and $style_map{$command}->{'type'} eq 'simple_style'); |
| |
} |
| |
|
| |
$style_map{'strong'}->{'begin'} = '*'; |
| |
$style_map{'strong'}->{'end'} = '*'; |
| |
$style_map{'dfn'}->{'begin'} = '"'; |
| |
$style_map{'dfn'}->{'end'} = '"'; |
| |
$style_map{'emph'}->{'begin'} = '_'; |
| |
$style_map{'emph'}->{'end'} = '_'; |
| |
|
| |
|
| |
foreach my $command (keys(%info_default_leaf_command)) |
| |
{ |
| |
if (defined ($style_map{$command}->{'args'})) |
| |
{ |
| |
$style_map{$command}->{'orig_args'} = [ @{$style_map{$command}->{'args'}} ]; |
| |
} |
| |
else |
| |
{ |
| |
$style_map{$command}->{'orig_args'} = [ 'normal' ]; |
| |
} |
| |
$style_map{$command}->{'args'} = []; |
| |
foreach my $arg (@{$style_map{$command}->{'orig_args'}}) |
| |
{ |
| |
push @{$style_map{$command}->{'args'}}, 'keep'; |
| |
} |
| |
} |
| |
|
| |
$style_map{'uref'}->{'function'} = \&info_default_uref; |
| |
$style_map{'url'}->{'function'} = \&info_default_uref; |
| |
$style_map{'email'}->{'function'} = \&info_default_email; |
| |
|
| |
%style_map_pre = (); |
| |
%style_map_texi = (); |
| |
t2h_default_copy_style_map (\%style_map, \%style_map_pre); |
| |
t2h_default_copy_style_map (\%style_map, \%style_map_texi); |
| |
|
| |
$special_list_commands{'itemize'} = {}; |
| |
|
| |
%info_default_indent_format_length = ('enumerate' => 2, |
| |
'itemize' => 3, |
| |
'table' => 0, |
| |
'vtable' => 0, |
| |
'ftable' => 0, |
| |
); |
| |
|
| |
|
| |
%format_map = (); |
| |
foreach my $format ('group', 'raggedright', 'cartouche') |
| |
{ |
| |
$format_map{$format} = ''; |
| |
} |
| |
|
| |
foreach my $menu_command('menu', 'detailmenu', 'direntry', 'menu_comment') |
| |
{ |
| |
$complex_format_map{$menu_command} = {'begin' => '' , 'end' => ''}; |
| |
} |
| |
|
| |
foreach my $command (keys (%complex_format_map), keys(%info_default_indent_format_length), 'quotation', 'smallquotation', 'deff_item', 'deff_itemx') |
| |
{ |
| |
$info_default_indented_commands{$command} = 1; |
| |
} |
| |
|
| |
foreach my $command (keys(%info_default_indented_commands), 'multitable', 'float', 'flushright', 'flushleft', 'center') |
| |
{ |
| |
$info_default_format{$command} = 1; |
| |
} |
| |
|
| |
# it doesn't change anything for multitable |
| |
foreach my $non_indented_command('format', 'smallformat', 'menu', |
| |
'detailmenu', 'direntry', 'multitable') |
| |
{ |
| |
$info_default_indented_commands{$non_indented_command} = 0; |
| |
} |
| |
|
| |
$info_default_end_sentence_character = quotemeta($punctuation_characters); |
| |
$info_default_after_punctuation_characters = quotemeta($after_punctuation_characters); |
| |
$info_default_indent_length = 5; |
| |
|
| |
$info_default_index_length_to_node = 41; |
| |
|
| |
$info_default_listoffloat_caption_entry_length = 41; |
| |
#$info_default_listoffloat_append = '...: '; |
| |
$info_default_listoffloat_append = '...'; |
| |
|
| |
t2h_default_push_handler(\&info_default_init_accent_enable_encoding, \@command_handler_init); |
| |
t2h_default_push_handler(\&info_default_init_variables, \@command_handler_init); |
| |
|
| |
|
| |
$style = \&info_default_style; |
| |
$print_page_head = \&info_default_print_page_head; |
| |
$contents = \&info_default_noop; |
| |
$shortcontents = \&info_default_noop; |
| |
$about_body = \&info_default_noop; |
| |
$print_Footnotes = \&info_default_noop; |
| |
$copying_comment = \&info_default_copying_comment; |
| |
$element_heading = \&info_default_element_heading; |
| |
$heading = \&info_default_heading; |
| |
$normal_text = \&info_default_normal_text; |
| |
$paragraph = \&info_default_paragraph; |
| |
$preformatted = \&info_default_preformatted; |
| |
$empty_preformatted = \&info_default_preformatted; |
| |
$empty_line = \&info_default_empty_line; |
| |
# maybe should not be called from the main program? |
| |
$print_page_foot = \&info_default_print_page_foot; |
| |
$print_Top_footer = \&info_default_print_Top_footer; |
| |
$print_Top = \&info_default_print_section; |
| |
$print_section = \&info_default_print_section; |
| |
$end_section = \&info_default_end_section; |
| |
$one_section = \&info_default_one_section; |
| |
$begin_format_texi = \&info_default_begin_format_texi; |
| |
$begin_style_texi = \&info_default_begin_style_texi; |
| |
$begin_paragraph_texi = \&info_default_begin_paragraph_texi; |
| |
$simple_command = \&info_default_simple_command; |
| |
$thing_command = \&info_default_thing_command; |
| |
$begin_special_region = \&info_default_begin_special_region; |
| |
$end_special_region = \&info_default_end_special_region; |
| |
$anchor_label = \&info_default_anchor_label; |
| |
$element_label = \&info_default_noop; |
| |
$menu_link = \&info_default_menu_link; |
| |
#$menu_command = \&info_default_menu_command; |
| |
$complex_format = \&info_default_complex_format; |
| |
$quotation = \&info_default_quotation; |
| |
$misc_command_line = \&info_default_misc_commands; |
| |
$external_ref = \&info_default_external_ref; |
| |
$internal_ref = \&info_default_internal_ref; |
| |
$image = \&info_default_image; |
| |
$image_files = \&info_default_image_files; |
| |
$index_summary = \&info_default_index_summary; |
| |
$summary_letter = \&info_default_summary_letter; |
| |
$index_entry = \&info_default_index_entry; |
| |
$index_entry_command = \&t2h_default_index_entry_command; |
| |
$index_letter = \&info_default_index_letter; |
| |
$printindex = \&info_default_printindex; |
| |
$print_index = \&info_default_print_index; |
| |
$index_entry_label = \&info_default_index_entry_label; |
| |
$foot_section = \&info_default_foot_lines; |
| |
$foot_line_and_ref = \&info_default_foot_line_and_ref; |
| |
$footnote_texi = \&info_default_footnote_texi; |
| |
$list_item = \&info_default_list_item; |
| |
$format_list_item_texi = \&info_default_format_list_item_texi; |
| |
$format = \&info_default_format; |
| |
$tab_item_texi = \&info_default_tab_item_texi; |
| |
$acronym_like = \&info_default_acronym_like; |
| |
$sp = \&info_default_sp; |
| |
$paragraph_style_command = \&info_default_paragraph_style_command; |
| |
$cell = \&info_default_cell; |
| |
$row = \&info_default_row; |
| |
$table_list = \&info_default_table_list; |
| |
$def_item = \&info_default_def_item; |
| |
$def = \&info_default_def; |
| |
$def_line = \&info_default_def_line; |
| |
$float = \&info_default_float; |
| |
$listoffloats_entry = \&info_default_listoffloats_entry; |
| |
$listoffloats = \&info_default_listoffloats; |
| |
$colon_command = \&info_default_colon_command; |
| |
$raw = \&info_default_raw; |
| |
$line_command = \&info_default_line_command; |
| |
$comment = \&t2h_default_comment; |
| |
$unknown_style = \&info_default_unknown_style; |
| |
$heading_text = \&t2h_default_heading_text; |
| |
|
| |
} |
| |
|
| |
my %info_default_state_map = (); |
| |
my $info_default_out_file_nr = 1; |
| |
my $info_default_dir_specification = ''; |
| |
my @info_default_pending_indirect = (); |
| |
my @info_default_pending_footnotes = (); |
| |
my $info_default_state_nr = 0; |
| |
|
| |
# maximal length of index entries line number information. Each entry is |
| |
# an index name. |
| |
my %info_default_index_line_string_length = (); |
| |
my %info_default_index_entries = (); |
| |
my $info_default_footnote_index = 0; |
| |
my $info_default_current_node = undef; |
| |
|
| |
my %info_default_command_handler_expand; |
| |
|
| |
sub info_default_intercept_handler |
| |
{ |
| |
my $command = $_[0]; |
| |
my $result = &{$info_default_command_handler_expand{$command}}(@_); |
| |
return info_default_store_text (undef, $result, $command); |
| |
} |
| |
|
| |
sub info_default_init_variables() |
| |
{ |
| |
%info_default_state_map = (); |
| |
$info_default_out_file_nr = 1; |
| |
$info_default_dir_specification = ''; |
| |
@info_default_pending_indirect = (); |
| |
@info_default_pending_footnotes = (); |
| |
$info_default_state_nr = 0; |
| |
|
| |
%info_default_index_line_string_length = (); |
| |
%info_default_index_entries = (); |
| |
$info_default_footnote_index = 0; |
| |
$info_default_current_node = undef; |
| |
$Texi2HTML::THISDOC{'SPLIT'} = 0 if ($OUTPUT_FORMAT eq 'info'); |
| |
$FRAMES = 0 if ($OUTPUT_FORMAT eq 'info'); |
| |
|
| |
foreach my $command (keys (%command_handler)) |
| |
{ |
| |
if ($command_handler{$command}->{'expand'}) |
| |
{ |
| |
$info_default_command_handler_expand{$command} = $command_handler{$command}->{'expand'}; |
| |
$command_handler{$command}->{'expand'} = \&info_default_intercept_handler; |
| |
} |
| |
} |
| |
} |
| |
|
| |
# this is put in command_handler_init such that it sets things right |
| |
# in case $ENABLE_ENCODING is set and has lead to modification of the |
| |
# accent functions |
| |
sub info_default_init_accent_enable_encoding() |
| |
{ |
| |
return unless ($ENABLE_ENCODING and $USE_UNICODE); |
| |
foreach my $key (keys(%unicode_accents), 'dotless') |
| |
{ |
| |
$info_default_enable_encoding_accents{$key} = 1; |
| |
$t2h_enable_encoding_default_accent{'normal'}->{$key} = \&t2h_default_accent; |
| |
$t2h_enable_encoding_default_accent{'texi'}->{$key} = \&t2h_default_accent; |
| |
$t2h_enable_encoding_default_accent{'pre'}->{$key} = \&t2h_default_accent; |
| |
$style_map{$key}->{'function'} = \&info_default_accent; |
| |
$style_map_texi{$key}->{'function'} = \&info_default_accent; |
| |
$style_map_pre{$key}->{'function'} = \&info_default_accent; |
| |
} |
| |
} |
| |
|
| |
sub info_default_uref($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $url = shift @$args; |
| |
my $text = shift @$args; |
| |
my $replacement = shift @$args; |
| |
$url = main::normalise_space($url); |
| |
$replacement = '' if (!defined($replacement)); |
| |
$replacement = main::normalise_space($replacement); |
| |
return $replacement if ($replacement ne ''); |
| |
$text = '' if (!defined($text)); |
| |
$text = main::normalise_space($text); |
| |
return "`$url'" if ($text eq ''); |
| |
return "$text ($url)"; |
| |
} |
| |
|
| |
sub info_default_email($$) |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $mail = shift @$args; |
| |
my $text = shift @$args; |
| |
$mail = main::normalise_space($mail); |
| |
$text = '' if (!defined($text)); |
| |
$text = main::normalise_space($text); |
| |
$mail = "<$mail>"; |
| |
return $mail unless ($text ne ''); |
| |
return "$text $mail"; |
| |
} |
| |
|
| |
|
| |
sub info_default_accent($$$) |
| |
{ |
| |
my @args = @_; |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $text = $args->[0]; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
my $result; |
| |
if ($ENABLE_ENCODING and $info_default_enable_encoding_accents{$command}) |
| |
{ |
| |
$result = &t2h_enable_encoding_normal_accent(@args); |
| |
} |
| |
else |
| |
{ |
| |
$result = &t2h_default_accent(@args); |
| |
} |
| |
if (scalar(@$style_stack) and $info_default_accent_commands{$style_stack->[-1]}) |
| |
{ # still more accents on the stack |
| |
return $result; |
| |
} |
| |
return info_default_store_text($state,$result,'accents_commands'); |
| |
} |
| |
|
| |
sub info_default_noop |
| |
{ |
| |
return ''; |
| |
} |
| |
|
| |
sub info_default_copying_comment($$$$) |
| |
{ |
| |
my $copying_lines = shift; |
| |
my $copying_text = shift; |
| |
my $copying_no_texi = shift; |
| |
my $copying_simple_text = shift; |
| |
return '' if ($copying_text eq ''); |
| |
return $copying_text; |
| |
} |
| |
|
| |
sub info_default_byte_count($) |
| |
{ |
| |
my $string = shift; |
| |
my $out_encoding = Texi2HTML::Config::get_conf('OUT_ENCODING'); |
| |
if ($out_encoding and lc($out_encoding) ne 'us-ascii' and $USE_UNICODE) |
| |
{ |
| |
return length (Encode::encode($out_encoding, $string)); |
| |
} |
| |
# There is no default encoding. We assume it is us-ascii. Not sure |
| |
# about what perl thinks it is... |
| |
#print STDERR "Unknown encoding for: $string\n" if (!$out_encoding); |
| |
return length($string); |
| |
} |
| |
|
| |
sub info_default_count_lines($;$$) |
| |
{ |
| |
my $text = shift; |
| |
my $indent_length = shift; |
| |
my $indentation_done = shift; |
| |
|
| |
my $blank_line; |
| |
my $no_indentation = 0; |
| |
|
| |
if (!defined($indentation_done) or $indentation_done) |
| |
{ |
| |
$no_indentation = 1; |
| |
$indent_length = 0; |
| |
} |
| |
my @lines = split /^/, $text; |
| |
# don't accept empty text. |
| |
@lines = ('') if (!@lines); |
| |
my $line_passed = scalar(@lines); |
| |
$line_passed-- if ($line_passed); |
| |
|
| |
my $end_of_line = 0; |
| |
if (($#lines > 1) and !$end_of_line and ($lines[-1] !~ /\S/) and ($lines[-2] !~ /\S/)) |
| |
{ |
| |
$blank_line = 1; |
| |
} |
| |
my $last_line = $lines[-1]; |
| |
|
| |
my $indented_text = shift (@lines); |
| |
#print STDERR "COUNT info_default_count_lines(i_done $no_indentation, i_l $indent_length) i_t `$indented_text'\n"; |
| |
foreach my $line (@lines) |
| |
{ |
| |
if ($indent_length and $line =~ /\S/) |
| |
{ |
| |
$indented_text .= ' ' x $indent_length . $line; |
| |
} |
| |
else |
| |
{ |
| |
$indented_text .= $line; |
| |
} |
| |
} |
| |
if (chomp($text)) |
| |
{ |
| |
$line_passed++; |
| |
$end_of_line = 1; |
| |
} |
| |
return ($line_passed, $end_of_line, $last_line, $indented_text, $blank_line); |
| |
} |
| |
|
| |
sub info_default_get_state($) |
| |
{ |
| |
my $state = shift; |
| |
if (!exists $info_default_state_map{$state}) |
| |
{ |
| |
#print STDERR "NEW state $info_default_state_nr\n"; |
| |
my ($current_command, $top_stack); |
| |
$info_default_state_map{$state} = {}; |
| |
info_default_reset_state($info_default_state_map{$state}); |
| |
# since the page head always leave a blank line, and the state may be |
| |
# used for text right after the page head, we set it to 1 here. |
| |
# it may be wrong in other contexts, to be seen. |
| |
$info_default_state_map{$state}->{'blank_line'} = 1; |
| |
$info_default_state_map{$state}->{'only_spaces'} = 1; |
| |
# this is the first line, so set to 1. This is reset later in |
| |
# most cases, when a node is seen, but may still be useful in |
| |
# @footnote, for example |
| |
$info_default_state_map{$state}->{'line_count'} = 1; |
| |
$info_default_state_map{$state}->{'offset_in_file'} = 0; |
| |
$info_default_state_map{$state}->{'nr'} = $info_default_state_nr; |
| |
$info_default_state_map{$state}->{'state'} = $state; |
| |
$info_default_state_map{$state}->{'multitable_stack'} = []; |
| |
@{$info_default_state_map{$state}->{'align_stack'}} = ({'command'=>'normal'}); |
| |
$info_default_state_nr++; |
| |
} |
| |
#print STDERR "RETURN state $state $info_default_state_map{$state} $info_default_state_map{$state}->{'nr'}\n"; |
| |
return $info_default_state_map{$state}; |
| |
} |
| |
|
| |
sub info_default_reset_state($) |
| |
{ |
| |
my $info_state = shift; |
| |
$info_state->{'top'} = {}; |
| |
$info_state->{'current'} = $info_state->{'top'}; |
| |
} |
| |
|
| |
sub info_default_iterator_next($$$) |
| |
{ |
| |
my $current_command = shift; |
| |
my $command_index = shift; |
| |
my $command_close = shift; |
| |
#print STDERR "NNNNNNNNNNNNNN iterator_next current $current_command idx $command_index close $command_close\n"; |
| |
|
| |
my $sub_command = $current_command->{'content'}->[$command_index]; |
| |
|
| |
if ($sub_command->{'content'} and !$command_close) |
| |
{ |
| |
return ($sub_command, 0, 0); |
| |
} |
| |
|
| |
if ($current_command->{'content'}->[$command_index+1]) |
| |
{ |
| |
return ($current_command, $command_index+1, 0); |
| |
} |
| |
elsif (defined($current_command->{'parent'})) |
| |
{ |
| |
return ($current_command->{'parent'}, $current_command->{'index_in_parent'}, 1); |
| |
} |
| |
else |
| |
{ |
| |
return (undef, undef, undef); |
| |
} |
| |
} |
| |
|
| |
# return ($current_next, $index_next, $close_next, $text, $command); |
| |
# |
| |
# returns the next in tree, identified by the triplet |
| |
# ($current_next, $index_next, $close_next) and also the command |
| |
# and/or text if defined, in $text and $command. |
| |
sub info_default_next($$$) |
| |
{ |
| |
my $current = shift; |
| |
my $index = shift; |
| |
my $close = shift; |
| |
|
| |
my $text; |
| |
my $command; |
| |
|
| |
my ($current_next, $index_next, $close_next) = info_default_iterator_next($current, $index, $close); |
| |
return ($current_next, $index_next, $close_next, $text, $command) if (!defined($current_next)); |
| |
|
| |
my $content = $current_next->{'content'}->[$index_next]; |
| |
$command = $content->{'command'} if (defined($content->{'command'})); |
| |
if ($close_next) |
| |
{ |
| |
return ($current_next, $index_next, $close_next, $content->{'end'}, $command); |
| |
} |
| |
if (defined($content->{'text'})) |
| |
{ |
| |
return ($current_next, $index_next, $close_next, $content->{'text'}, $command); |
| |
} |
| |
if (defined($content->{'begin'})) |
| |
{ |
| |
$text = $content->{'begin'}; |
| |
} |
| |
if (defined($content->{'end'}) and !defined($content->{'content'})) |
| |
{ |
| |
if (!defined($text)) |
| |
{ |
| |
$text = $content->{'end'}; |
| |
} |
| |
else |
| |
{ |
| |
$text .= $content->{'end'}; |
| |
} |
| |
} |
| |
return ($current_next, $index_next, $close_next, $text, $command); |
| |
} |
| |
|
| |
|
| |
sub info_default_process_line_text($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $line_width_counter = shift; |
| |
my $indent_length = shift; |
| |
$indent_length = 0 if (!defined($indent_length)); |
| |
|
| |
my $line_passed = 0; |
| |
my $chomped_text = $text; |
| |
my $end_of_line = chomp($chomped_text); |
| |
if ($indent_length > $line_width_counter and $chomped_text ne '') |
| |
{ |
| |
$text = ' ' x ($indent_length - $line_width_counter) . $text; |
| |
} |
| |
$line_width_counter += t2h_default_string_width($text); |
| |
# it seems like it never happens in the tests. |
| |
if ($end_of_line) |
| |
{ |
| |
$line_passed = 1; |
| |
$line_width_counter = 0; |
| |
} |
| |
return ($line_width_counter, $line_passed, $text); |
| |
} |
| |
|
| |
# Beware that there is a pending word if the text doesn't end with |
| |
# a space |
| |
sub info_default_process_para_text($$$$$;$$) |
| |
{ |
| |
my $text = shift; |
| |
my $line_char_counter = shift; |
| |
my $pending_spaces_word = shift; |
| |
my $indent_length = shift; |
| |
my $max_column = shift; |
| |
my $keep_end_of_lines = shift; |
| |
$keep_end_of_lines = 0 if (!$keep_end_of_lines); |
| |
# indentation for the lines except for the first one |
| |
my $indent_length_next = shift; |
| |
$indent_length = 0 if (!defined($indent_length)); |
| |
$indent_length_next = $indent_length if (!defined($indent_length_next)); |
| |
|
| |
my $line_passed = 0; |
| |
my $result = ''; |
| |
|
| |
#print STDERR "process_text(indent($indent_length,$indent_length_next),keep_eol $keep_end_of_lines) spaces `$pending_spaces_word->{'spaces'}') line_char_counter $line_char_counter |$text|\n"; |
| |
|
| |
while ($text ne '') |
| |
{ |
| |
#print STDERR "l_c_c $line_char_counter pending_word ".var_to_str($pending_spaces_word->{'word'}).", pending_spaces `$pending_spaces_word->{'spaces'}', result `$result'\n"; |
| |
if (!$keep_end_of_lines and $text =~ s/^(\s+)//) |
| |
{ |
| |
my $new_spaces = $1; |
| |
# in general there are no end of lines in the lines cut, since they |
| |
# are replaced by spaces in the main loop. However, it may happen |
| |
# with @* in @def* lines |
| |
my @lines = split /^/, $new_spaces; |
| |
my $eol_spaces; |
| |
# last line is in $new_spaces, other lines are in $eol_spaces |
| |
if (@lines > 1) |
| |
{ |
| |
$new_spaces = pop @lines; |
| |
$eol_spaces = join ("", @lines); |
| |
#print STDERR "EOL_SPACES[$line_char_counter](+$pending_spaces_word->{'spaces'}) `$eol_spaces'\n"; |
| |
} |
| |
if (defined($pending_spaces_word->{'word'})) |
| |
{ |
| |
# add spaces in front if needed for the indentation |
| |
if ($indent_length > $line_char_counter + t2h_default_string_width($pending_spaces_word->{'spaces'})) |
| |
{ |
| |
$pending_spaces_word->{'spaces'} = ' ' x ($indent_length - $line_char_counter) . $pending_spaces_word->{'spaces'}; |
| |
} |
| |
$result .= $pending_spaces_word->{'spaces'} . $pending_spaces_word->{'word'}; |
| |
$line_char_counter += t2h_default_string_width($pending_spaces_word->{'spaces'})+t2h_default_string_width($pending_spaces_word->{'word'}); |
| |
$pending_spaces_word->{'spaces'} = $new_spaces; |
| |
$pending_spaces_word->{'word'} = undef; |
| |
} |
| |
elsif (!$eol_spaces) |
| |
{ |
| |
$pending_spaces_word->{'spaces'} .= $new_spaces; |
| |
} |
| |
if ($eol_spaces) |
| |
{ |
| |
$result .= $eol_spaces; |
| |
$line_passed += scalar(@lines); |
| |
$indent_length = $indent_length_next; |
| |
$line_char_counter = 0; |
| |
$pending_spaces_word->{'spaces'} = ''; |
| |
} |
| |
if ((t2h_default_string_width($pending_spaces_word->{'spaces'}) + $line_char_counter > $max_column)) |
| |
{ |
| |
$pending_spaces_word->{'spaces'} = ''; |
| |
$result .= "\n"; |
| |
$line_passed++; |
| |
$indent_length = $indent_length_next; |
| |
$line_char_counter = 0; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
my $word; |
| |
if ($keep_end_of_lines) |
| |
{ |
| |
$word = $text; |
| |
$text = ''; |
| |
} |
| |
elsif ($text =~ s/^([^\s]+)//) |
| |
{ |
| |
$word = $1; |
| |
} |
| |
#else |
| |
#{ |
| |
# die "BUG: Impossible situation.\n"; |
| |
#} |
| |
$pending_spaces_word->{'word'} = '' if (!defined($pending_spaces_word->{'word'})); |
| |
$pending_spaces_word->{'word'} .= $word; |
| |
# The $line_char_counter != 0 is here to cope with the case of a |
| |
# word longer than $line_char_counter followed by more text: |
| |
# a line would be passed each time some piece text is appended. |
| |
if ((t2h_default_string_width($pending_spaces_word->{'spaces'})+t2h_default_string_width($pending_spaces_word->{'word'}) + $line_char_counter > $max_column) and $line_char_counter != 0) |
| |
{ |
| |
$pending_spaces_word->{'spaces'} = ''; |
| |
$result .= "\n"; |
| |
$line_passed++; |
| |
$indent_length = $indent_length_next; |
| |
$line_char_counter = 0; |
| |
} |
| |
} |
| |
} |
| |
return ($line_char_counter, $pending_spaces_word, $line_passed, $result) |
| |
} |
| |
|
| |
sub info_default_skip_spaces($$$) |
| |
{ |
| |
my $current = shift; |
| |
my $index = shift; |
| |
my $close = shift; |
| |
|
| |
#print STDERR "SKIP_SPACES\n"; |
| |
while(1) |
| |
{ |
| |
my ($current_next, $index_next, $close_next) = info_default_iterator_next($current, $index, $close); |
| |
return if ($close_next or (!defined($current_next))); |
| |
my $content = $current_next->{'content'}->[$index_next]; |
| |
if (defined($content->{'begin'})) |
| |
{ |
| |
$content->{'begin'} =~ s/^\s*//; |
| |
#print STDERR "SKIP_SPACES begin\n"; |
| |
return if ($content->{'begin'} ne ''); |
| |
} |
| |
if (defined($content->{'content'}) or defined($content->{'format_name'}) |
| |
or $content->{'definition_line'}) |
| |
{ # non empty commands stop space skipping, even if they contain |
| |
# only spaces, like @asis{ } |
| |
# also for item(x) that have format_name defined |
| |
#print STDERR "SKIP_SPACES command?\n"; |
| |
return; |
| |
} |
| |
if (defined($content->{'text'})) |
| |
{ |
| |
my $command = ''; |
| |
$command = $content->{'command'} if (defined($content->{'command'})); |
| |
#print STDERR "SKIP_SPACES($command) text\n"; |
| |
$content->{'text'} =~ s/^\s*//; |
| |
return if ($content->{'text'} ne ''); |
| |
} |
| |
if (defined($content->{'end'})) |
| |
{ |
| |
#print STDERR "SKIP_SPACES end\n"; |
| |
$content->{'end'} =~ s/^\s*//; |
| |
return if ($content->{'end'} ne ''); |
| |
} |
| |
($current, $index, $close) = ($current_next, $index_next, $close_next); |
| |
} |
| |
} |
| |
|
| |
sub info_default_store_pending($$;$) |
| |
{ |
| |
my $line_char_counter = shift; |
| |
my $pending_spaces_word = shift; |
| |
my $indent_length = shift; |
| |
|
| |
$indent_length = 0 if (!defined($indent_length)); |
| |
my $indent_text = ''; |
| |
$indent_text = ' ' x $indent_length; |
| |
|
| |
#print STDERR "store_pending(spaces `$pending_spaces_word->{'spaces'}', indent($indent_length) `$indent_text' word `".var_to_str($pending_spaces_word->{'word'})."'\n"; |
| |
my $result = $pending_spaces_word->{'spaces'}; |
| |
$pending_spaces_word->{'spaces'} = ''; |
| |
if (defined($pending_spaces_word->{'word'})) |
| |
{ |
| |
$result .= $pending_spaces_word->{'word'}; |
| |
$pending_spaces_word->{'word'} = undef; |
| |
} |
| |
|
| |
my $chomped_result = $result; |
| |
chomp ($chomped_result); |
| |
if ($line_char_counter == 0 and $chomped_result ne '') |
| |
{ |
| |
$result = $indent_text . $result; |
| |
} |
| |
|
| |
$line_char_counter += t2h_default_string_width($result); |
| |
return ($line_char_counter, $pending_spaces_word, $result); |
| |
} |
| |
|
| |
sub info_default_output($) |
| |
{ |
| |
my $info_state = shift; |
| |
my $result = ''; |
| |
#print STDERR "Storing the stack\n"; |
| |
print STDERR "" . Data::Dumper->Dump([$info_state->{'top'}]) if ($DEBUG); |
| |
my ($bytes_count, $lines_count); |
| |
($bytes_count, $result, $lines_count) = info_default_process_content($info_state->{'top'}, $info_state); |
| |
$info_state->{'offset_in_file'} += $bytes_count; |
| |
$info_state->{'line_count'} += $lines_count; |
| |
#print STDERR "HHHHHH($lines_count) $info_state->{'line_count'}: $result\n"; |
| |
info_default_reset_state($info_state) |
| |
if (!defined($info_state->{'current'}->{'command'})); |
| |
return $result; |
| |
} |
| |
|
| |
sub info_default_process_content($$) |
| |
{ |
| |
my $current_command = shift; |
| |
my $info_state = shift; |
| |
|
| |
my $length = 0; |
| |
my $result = ''; |
| |
|
| |
my $line_char_counter = 0; |
| |
my $all_line_passed = 0; |
| |
|
| |
my $pending_spaces_word; |
| |
$pending_spaces_word->{'spaces'} = ''; |
| |
my $preformatted = 0; |
| |
my $indent_level = 0; |
| |
my $item_pending; |
| |
my $in_exdent = 0; |
| |
my $in_para = 0; |
| |
my $in_w = 0; |
| |
my $table_item_line = 0; |
| |
my $in_table_item = 0; |
| |
my $max_column = get_conf('fillcolumn'); |
| |
my $direntry = 0; |
| |
my $preformatted_format = 0; |
| |
my $indent_length = 0; |
| |
|
| |
# for formats that needs to process a full line (center and flushright) |
| |
# to know the line length before outputing |
| |
my $current_line = undef; |
| |
|
| |
my ($current, $index, $close) = ($current_command, 0, 0); |
| |
|
| |
#print STDERR "info_default_process_content: $current_command\n"; |
| |
while(1) |
| |
{ |
| |
last if (!defined($current)); |
| |
my $content = $current->{'content'}->[$index]; |
| |
my $text_added = ''; |
| |
my $line_added_before_item = 0; |
| |
my $indentation_done = 0; |
| |
my $prepend_newline; |
| |
|
| |
if ($DEBUG) |
| |
{ |
| |
my $text_item_pending = ''; |
| |
$text_item_pending = $item_pending if (defined($item_pending)); |
| |
my $text_length = ''; |
| |
$text_length = "$content->{'text'}" if defined($content->{'text'}); |
| |
my $text_command = ''; |
| |
$text_command = $content->{'command'} if defined($content->{'command'}); |
| |
my $in_node_count = 0; |
| |
$in_node_count = $info_state->{'line_count'} if defined($info_state->{'line_count'}); |
| |
print STDERR "($text_command|$text_length|$close|${all_line_passed}+$in_node_count|l_c_cnt $line_char_counter) prfrmted $preformatted para $in_para indent_lvl $indent_level($indent_length) in_exdent $in_exdent in_w $in_w only_spaces $info_state->{'only_spaces'} blank_line $info_state->{'blank_line'} table_item_line $table_item_line in_table_item $in_table_item item_pending $text_item_pending spaces: `$pending_spaces_word->{'spaces'}' word: ".main::var_to_str($pending_spaces_word->{'word'})."\n"; |
| |
} |
| |
|
| |
if ($close) |
| |
{ |
| |
if (defined($content->{'end'})) |
| |
{ |
| |
$text_added .= $content->{'end'}; |
| |
} |
| |
if ($complex_format_map{$content->{'command'}} and $content->{'content'}) |
| |
{ |
| |
$preformatted_format--; |
| |
} |
| |
# the format is always empty in the main program so the warning |
| |
# has to be done here |
| |
if (defined($content->{'total_item_nr'}) and !$content->{'total_item_nr'} and $content->{'content'}) |
| |
{ |
| |
main::line_warn (sprintf(__("\@%s has text but no \@item"), $content->{'command'}), $content->{'line_nr'}); |
| |
} |
| |
# check whether there is a blank line following, to avoid adding |
| |
# one when closing a format. |
| |
# This is not a required check if not in preformatted since doubled |
| |
# blank lines are discarded. |
| |
my $followed_by_blank_line = 0; |
| |
if ($preformatted_format) |
| |
{ |
| |
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close); |
| |
if (defined($command_next) and $command_next eq 'preformatted') |
| |
{ |
| |
($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current_next, $index_next, $close_next); |
| |
$followed_by_blank_line = 1 if (defined($text_next) and $text_next =~ /^\s*$/); |
| |
} |
| |
} |
| |
if ($info_default_indented_commands{$content->{'command'}}) |
| |
{ |
| |
$indent_level--; |
| |
$indent_length = $indent_level * $info_default_indent_length; |
| |
# $preformatteed cannot be used here since preformatted |
| |
# is closed before the end of a format |
| |
#if ($indent_level > 0 and !$info_state->{'blank_line'} and $content->{'command'} !~ /^deff_item/ and !$preformatted_format) |
| |
if ($indent_level > 0 and !$info_state->{'blank_line'} and $content->{'command'} !~ /^deff_item/ and !$followed_by_blank_line) |
| |
{ |
| |
$text_added .= "\n"; |
| |
} |
| |
# this nullify a potential noindent in a random format |
| |
$info_state->{'indent_para'} = undef; |
| |
} |
| |
elsif (($complex_format_map{$content->{'command'}} and $content->{'command'} ne 'menu') or $content->{'command'} eq 'cartouche') |
| |
{ |
| |
if (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level > 0) and !$followed_by_blank_line) |
| |
{ |
| |
$text_added .= "\n"; |
| |
} |
| |
} |
| |
if ($content->{'command'} eq 'paragraph' and $info_state->{'align_stack'}->[-1]->{'command'} eq 'normal') |
| |
{ |
| |
# if there is no space at the end of a paragraph, there may be |
| |
# pending text, for example, if there is an ending line like |
| |
# Some text@c a comment |
| |
my $pending; |
| |
($line_char_counter, $pending_spaces_word, $pending) = info_default_store_pending($line_char_counter, $pending_spaces_word, $indent_length); |
| |
$text_added .= $pending if (defined($pending)); |
| |
$text_added =~ s/\s*$//; |
| |
$pending_spaces_word->{'spaces'} = ''; |
| |
$in_para = 0; |
| |
$info_state->{'indent_para'} = undef; |
| |
$text_added .= "\n" unless (($line_char_counter + t2h_default_string_width($text_added)) == 0); |
| |
} |
| |
elsif ($content->{'command'} eq 'preformatted') |
| |
{ |
| |
# if preformatted doesn't end with a newline, it is added here |
| |
$text_added .= "\n" unless ($line_char_counter == 0); |
| |
$preformatted--; |
| |
} |
| |
elsif ($content->{'command'} eq 'menu') |
| |
{ |
| |
$text_added .= "\n" unless ($info_state->{'blank_line'}); |
| |
} |
| |
elsif ($content->{'command'} eq 'float') |
| |
{ |
| |
#$text_added = "\n" . $text_added unless ($info_state->{'blank_line'}); |
| |
$prepend_newline = 1 unless ($info_state->{'blank_line'}); |
| |
} |
| |
elsif ($content->{'command'} eq 'w') |
| |
{ |
| |
$in_w--; |
| |
} |
| |
elsif ($paragraph_style{$content->{'command'}}) |
| |
{ |
| |
my $popped = pop @{$info_state->{'align_stack'}}; |
| |
print STDERR "BUG".main::format_line_number().": align_stack, popped $popped->{'command'} ne command $content->{'command'}\n" if ($popped->{'command'} ne $content->{'command'}); |
| |
} |
| |
elsif ($content->{'command'} eq 'multitable') |
| |
{ |
| |
my $multitable = pop @{$info_state->{'multitable_stack'}}; |
| |
if (!defined($multitable->{'cells'}) and ($result ne '')) |
| |
{ |
| |
$multitable->{'result'} .= $result; |
| |
$multitable->{'length'} += $length; |
| |
$multitable->{'line_count'} += $all_line_passed; |
| |
} |
| |
$max_column = $multitable->{'max_column_kept'}; |
| |
$result = $multitable->{'result_kept'}; |
| |
$line_char_counter = $multitable->{'line_char_counter_kept'}; |
| |
$all_line_passed = $multitable->{'all_line_passed_kept'}; |
| |
$indent_level = $multitable->{'indent_level_kept'}; |
| |
$indent_length = $multitable->{'indent_length_kept'}; |
| |
#$indent_length_next_line = undef; |
| |
$length = $multitable->{'length_kept'}; |
| |
$info_state->{'offset_in_file'} = $multitable->{'offset_in_file_kept'}; |
| |
$info_state->{'line_count'} = $multitable->{'line_count_kept'}; |
| |
#print STDERR "MULTITABLE close, lines: $multitable->{'line_count_kept'} + $all_line_passed\n"; |
| |
foreach my $anchor_and_index (@{$multitable->{'anchors'}}, @{$multitable->{'index_entries'}}) |
| |
{ |
| |
$anchor_and_index->{'line_nr'} += $multitable->{'line_count_kept'} + $all_line_passed; |
| |
} |
| |
if (! scalar(@{$info_state->{'multitable_stack'}})) |
| |
{ |
| |
#print STDERR "MULTITABLE close, lengths: $multitable->{'offset_in_file_kept'} + $length\n"; |
| |
foreach my $anchor (@{$multitable->{'anchors'}}) |
| |
{ |
| |
$anchor->{'info_offset'} += $multitable->{'offset_in_file_kept'} + $length; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
push @{$info_state->{'multitable_stack'}->[-1]->{'anchors'}}, @{$multitable->{'anchors'}}; |
| |
push @{$info_state->{'multitable_stack'}->[-1]->{'index_entries'}}, @{$multitable->{'index_entries'}}; |
| |
} |
| |
$text_added .= $multitable->{'result'}; |
| |
$indentation_done = 1; |
| |
|
| |
goto new_text; |
| |
} |
| |
elsif ($content->{'command'} eq 'multitable_cell') |
| |
{ |
| |
my $cell = $info_state->{'multitable_stack'}->[-1]->{'cells'}->[-1]; |
| |
$cell->{'result'} = $result; |
| |
$cell->{'length'} = $length; |
| |
$cell->{'line_passed'} = $all_line_passed; |
| |
} |
| |
elsif ($content->{'command'} eq 'direntry') |
| |
{ |
| |
$direntry--; |
| |
# this has to be done here, otherwise, at the end, $direntry |
| |
# would be 0 |
| |
$info_default_dir_specification .= $text_added; |
| |
$text_added = ''; |
| |
} |
| |
elsif ($content->{'command'} eq 'multitable_row') |
| |
{ |
| |
my $multitable = $info_state->{'multitable_stack'}->[-1]; |
| |
my $indent_len = $multitable->{'indent_length_kept'}; |
| |
#print STDERR "INDENT: $indent_len\n"; |
| |
my $row_length = 0; |
| |
my $row = ''; |
| |
my $max_lines = 0; |
| |
my $cell_beginning = 0; |
| |
my @anchor_lines_array; |
| |
my $cell_idx = 0; |
| |
my @anchors; |
| |
my @indices; |
| |
foreach my $cell (@{$multitable->{'cells'}}) |
| |
{ |
| |
$cell->{'beginning'} = $cell_beginning; |
| |
$cell_beginning += $cell->{'cell_width'}+1; |
| |
@{$cell->{'lines'}} = split /^/, $cell->{'result'}; |
| |
$max_lines = scalar(@{$cell->{'lines'}}) if (scalar(@{$cell->{'lines'}}) > $max_lines); |
| |
foreach my $anchor (@{$cell->{'anchors'}}) |
| |
{ |
| |
push @{$anchor_lines_array[$anchor->{'line_nr'}]}, $anchor; |
| |
$anchor->{'cell_idx'} = $cell_idx; |
| |
push @anchors, $anchor; |
| |
} |
| |
push @indices, @{$cell->{'index_entries'}}; |
| |
$cell_idx++; |
| |
} |
| |
my $previous_last_cell = scalar(@{$multitable->{'cells'}}); |
| |
#print STDERR "ROW cell_beginning $cell_beginning, max_lines $max_lines, previous_last_cell $previous_last_cell\n"; |
| |
for (my $line_idx = 0; $line_idx < $max_lines; $line_idx++) |
| |
{ |
| |
my $line_width = $indent_len; |
| |
my $line_bytes = info_default_byte_count(' ' x$indent_len); |
| |
my $line = ''; |
| |
# determine the last cell in the line, to fill spaces in |
| |
# cells preceding that cell on the line |
| |
my $last_cell = 0; |
| |
for (my $cell_idx = 0; $cell_idx < $previous_last_cell; $cell_idx++) |
| |
{ |
| |
$last_cell = $cell_idx+1 if (defined($multitable->{'cells'}->[$cell_idx]->{'lines'}->[$line_idx])); |
| |
} |
| |
#print STDERR " L(last_cell $last_cell): $line_idx\n"; |
| |
for (my $cell_idx = 0; $cell_idx < $last_cell; $cell_idx++) |
| |
{ |
| |
my $cell_text = $multitable->{'cells'}->[$cell_idx]->{'lines'}->[$line_idx]; |
| |
#print STDERR " C($cell_idx) "; |
| |
if (defined($cell_text)) |
| |
{ |
| |
chomp($cell_text); |
| |
#print STDERR "$cell_text"; |
| |
if ($line eq '' and $cell_text ne '') |
| |
{ |
| |
$line = ' ' x $indent_len; |
| |
} |
| |
$line .= $cell_text; |
| |
$line_width += t2h_default_string_width($cell_text); |
| |
$line_bytes += info_default_byte_count($cell_text); |
| |
} |
| |
if ($cell_idx+1 < $last_cell) |
| |
{ |
| |
if ($line_width < $indent_len + $multitable->{'cells'}->[$cell_idx+1]->{'beginning'}) |
| |
{ |
| |
if ($line eq '') |
| |
{ |
| |
$line = ' ' x $indent_len; |
| |
} |
| |
my $spaces = ' ' x ($indent_len + $multitable->{'cells'}->[$cell_idx+1]->{'beginning'} - $line_width); |
| |
$line_width += t2h_default_string_width($spaces); |
| |
$line_bytes += info_default_byte_count($spaces); |
| |
$line .= $spaces; |
| |
#print STDERR " Csp($line_width) `$spaces'"; |
| |
} |
| |
} |
| |
} |
| |
if (defined($anchor_lines_array[$line_idx])) |
| |
{ |
| |
foreach my $anchor (@{$anchor_lines_array[$line_idx]}) |
| |
{ |
| |
my $anchor_position = $indent_len + $anchor->{'line_char_counter'} + $multitable->{'cells'}->[$anchor->{'cell_idx'}]->{'beginning'}; |
| |
if ($anchor_position > $line_width) |
| |
{ |
| |
my $spaces = ' ' x ($anchor_position - $line_width); |
| |
$line .= $spaces; |
| |
$line_width += t2h_default_string_width($spaces); |
| |
$line_bytes += info_default_byte_count($spaces); |
| |
} |
| |
$anchor->{'info_offset'} = $line_bytes + $row_length + $multitable->{'length'}; |
| |
#print STDERR "ROW anchor close: anchor[$anchor->{'cell_idx'}]($multitable->{'cells'}->[$anchor->{'cell_idx'}]->{'beginning'}+$anchor->{'line_char_counter'}) $anchor_position $anchor->{'info_offset'}\n"; |
| |
$anchor->{'line_char_counter'} = $anchor_position; |
| |
} |
| |
} |
| |
$line .= "\n"; |
| |
$row_length += info_default_byte_count($line); |
| |
#print STDERR " ($line_width,".length($line).") $line"; |
| |
$row .= $line; |
| |
$previous_last_cell = $last_cell; |
| |
} |
| |
foreach my $anchor_and_index (@anchors, @indices) |
| |
{ |
| |
$anchor_and_index->{'line_nr'} += $multitable->{'line_count'}; |
| |
#print STDERR "ROW close: new line count: $anchor_and_index->{'line_nr'} + \n"; |
| |
} |
| |
if ($content->{'item_command'} eq 'headitem') |
| |
{ |
| |
# at this point cell_beginning is at the beginning of |
| |
# the cell following the end of the table -> full width |
| |
my $line = ' ' x $indent_len . '-' x $cell_beginning . "\n"; |
| |
$row .= $line; |
| |
$row_length += info_default_byte_count($line); |
| |
} |
| |
#print STDERR "ROW_LENGTH $row_length\n"; |
| |
$multitable->{'result'} .= $row; |
| |
$multitable->{'length'} += $row_length; |
| |
$multitable->{'line_count'} += $max_lines; |
| |
$multitable->{'cells'} = []; |
| |
push @{$multitable->{'anchors'}}, @anchors; |
| |
push @{$multitable->{'index_entries'}}, @indices; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
if ($content->{'command'}) |
| |
{ |
| |
# if processing a paragraph, there may be some pending text |
| |
# and spaces, as the idea is to write them down only when |
| |
# there is a space in case of pending text, or when there is some |
| |
# text in case of pending space. So all the commands |
| |
# that should write something within paragraph must flush the |
| |
# pending text/spaces _before_ they output something, or the |
| |
# text order will be reversed, with the pending things output |
| |
# after the other commands text. |
| |
my $pending_added_length = 0; |
| |
my $pending_added_bytes = 0; |
| |
|
| |
if ($content->{'command'} eq 'anchor' or $content->{'command'} eq 'image' or $content->{'command'} eq 'index_command' or $content->{'command'} eq 'sp' or $content->{'raw_command'}) |
| |
{ |
| |
my $pending; |
| |
($line_char_counter, $pending_spaces_word, $pending) = info_default_store_pending($line_char_counter, $pending_spaces_word, $indent_length); |
| |
# here spaces out of any environment are ignored. |
| |
if ($in_para or $preformatted or $pending =~ /\S/) |
| |
{ # this has to be done before the anchor related code |
| |
# to have the right count. |
| |
# FIXME this is wrong if an end of line was passed. |
| |
# in that case line_char_counter has been increased and |
| |
# $pending ends with an end of line |
| |
$pending_added_length += t2h_default_string_width($pending); |
| |
$pending_added_bytes += info_default_byte_count($pending); |
| |
$text_added .= $pending; |
| |
} |
| |
} |
| |
if ($content->{'command'} eq 'strong') |
| |
{ |
| |
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close); |
| |
if (defined($text_next) and $text_next =~ /^Note\b/i) |
| |
{ |
| |
main::line_warn(__("\@strong{Note...} produces a spurious cross-reference in Info; reword to avoid that"), $content->{'line_nr'}); |
| |
} |
| |
} |
| |
elsif ($content->{'command'} eq 'w') |
| |
{ |
| |
$in_w++ if ($content->{'content'}); |
| |
} |
| |
elsif ($content->{'command'} eq 'anchor' or ($content->{'command'} eq 'float' and $content->{'anchor_reference'})) |
| |
{ |
| |
#print STDERR "anchor: offset_in_file $info_state->{'offset_in_file'}, line_count $info_state->{'line_count'}, line_char_counter $line_char_counter pending_added_length $pending_added_length\n"; |
| |
$content->{'anchor_reference'}->{'info_offset'} = $length + $info_state->{'offset_in_file'} + $pending_added_bytes; |
| |
$content->{'anchor_reference'}->{'line_nr'} = $all_line_passed + $info_state->{'line_count'}; |
| |
$content->{'anchor_reference'}->{'line_char_counter'} = $line_char_counter + $pending_added_length; |
| |
if (@{$info_state->{'multitable_stack'}}) |
| |
{ |
| |
if ($info_state->{'multitable_stack'}->[-1]->{'cells'}) |
| |
{ |
| |
push @{$info_state->{'multitable_stack'}->[-1]->{'cells'}->[-1]->{'anchors'}}, $content->{'anchor_reference'}; |
| |
} |
| |
else |
| |
{ |
| |
push @{$info_state->{'multitable_stack'}->[-1]->{'anchors'}}, $content->{'anchor_reference'}; |
| |
} |
| |
} |
| |
push @{$info_state->{'pending_tags'}}, $content->{'anchor_reference'}; |
| |
push @{$info_state->{'align_stack'}->[-1]->{'anchors'}}, $content->{'anchor_reference'} if ($info_state->{'align_stack'}->[-1]->{'command'} eq 'center' or $info_state->{'align_stack'}->[-1]->{'command'} eq 'flushright'); |
| |
} |
| |
elsif ($content->{'command'} eq 'index_label') |
| |
{ |
| |
#print STDERR "FFFFFFFFF($content->{'index_command'}) $all_line_passed + $info_state->{'line_count'} `$content->{'texi_entry'}'\n"; |
| |
my $index_line_nr = $all_line_passed + $info_state->{'line_count'}; |
| |
if ($info_state->{'blank_line'} and $content->{'index_command'} =~ /index$/) |
| |
{ |
| |
my ($current_next, $index_next, $close_nex) = info_default_iterator_next($current, $index, $close); |
| |
$index_line_nr-- if (!defined($current_next)); |
| |
} |
| |
elsif ($content->{'index_command'} =~ /^[vf]table$/) |
| |
{ |
| |
# if in a table, index label is systematically entered after |
| |
# the line is processed, as the line is processed with the |
| |
# item command, while the index entry is entered with the |
| |
# index_label callback that is done much later. |
| |
$index_line_nr--; |
| |
} |
| |
#print STDERR "index in a blank_line $content->{'index_command'} `$content->{'texi_entry'}'\n" if ($info_state->{'blank_line'}); |
| |
my $index_name = $content->{'index_entry_reference'}->{'index_name'}; |
| |
$info_default_index_line_string_length{$index_name} = t2h_default_string_width($index_line_nr) |
| |
if (!defined($info_default_index_line_string_length{$index_name}) or $info_default_index_line_string_length{$index_name} < t2h_default_string_width($index_line_nr)); |
| |
#print STDERR "RRRRRRRRRRRRR($content->{'index_entry_reference'}) $content->{'index_entry_reference'}->{'texi'} name: $index_name line: $index_line_nr max: $info_default_index_line_string_length{$index_name}\n"; |
| |
my $index_ref = { 'index_entry_reference' => $content->{'index_entry_reference'}, 'line_nr' => $index_line_nr }; |
| |
#print STDERR "INDEX($index_name) line $index_line_nr\n"; |
| |
$info_default_index_entries{$content->{'index_entry_reference'}} = $index_ref; |
| |
# there may be no cell in case of an empty multitable |
| |
if (@{$info_state->{'multitable_stack'}}) |
| |
{ |
| |
if ($info_state->{'multitable_stack'}->[-1]->{'cells'}) |
| |
{ |
| |
push @{$info_state->{'multitable_stack'}->[-1]->{'cells'}->[-1]->{'index_entries'}}, $index_ref; |
| |
} |
| |
else |
| |
{ |
| |
push @{$info_state->{'multitable_stack'}->[-1]->{'index_entries'}}, $index_ref; |
| |
} |
| |
} |
| |
push @{$info_state->{'pending_index_entries'}}, $index_ref; |
| |
} |
| |
elsif ($content->{'command'} eq '*' and !$preformatted) |
| |
{ |
| |
if (defined($pending_spaces_word->{'word'})) |
| |
{ |
| |
$text_added .= $pending_spaces_word->{'spaces'} . $pending_spaces_word->{'word'}; |
| |
$pending_spaces_word->{'word'} = undef; |
| |
} |
| |
# spaces preceding @* are skipped |
| |
$pending_spaces_word->{'spaces'} = ''; |
| |
$text_added .= $content->{'text'}; |
| |
# just like following spaces |
| |
info_default_skip_spaces($current, $index, $close); |
| |
# this isn't done otherwise, though, here it is not important |
| |
# since this end the line |
| |
$line_char_counter += t2h_default_string_width($content->{'text'}); |
| |
goto new_text; |
| |
} |
| |
elsif ($content->{'command'} eq 'paragraph' and $info_state->{'align_stack'}->[-1]->{'command'} eq 'normal') |
| |
{ |
| |
# empty paragraph |
| |
goto new_text if (!$content->{'content'}); |
| |
my $paragraphindent = get_conf('paragraphindent'); |
| |
$paragraphindent = 0 if ($paragraphindent eq 'none'); |
| |
if ($paragraphindent ne 'asis') |
| |
{ |
| |
info_default_skip_spaces($current, $index, $close); |
| |
} |
| |
# if within a format $content->{'paragraph_in_element_nr'} |
| |
# should not be defined so no indentation will take place |
| |
if ($paragraphindent ne 'asis' and $paragraphindent and $line_char_counter == 0 and (defined($content->{'paragraph_in_element_nr'})) and ($info_state->{'indent_para'} or (!defined($info_state->{'indent_para'}) and ($content->{'paragraph_in_element_nr'} or (get_conf('firstparagraphindent') eq 'insert'))))) |
| |
{ |
| |
$text_added .= ' ' x $paragraphindent; |
| |
} |
| |
$in_para = 1; |
| |
} |
| |
elsif ($content->{'command'} eq 'preformatted') |
| |
{ |
| |
$preformatted++ if ($content->{'content'}); |
| |
} |
| |
elsif ($content->{'command'} eq 'exdent') |
| |
{ |
| |
# if an end of line is added, in_exdent is set to 2 and |
| |
# set to one when processing the end of line that was just |
| |
# added, and set to 0 at the end of the line. |
| |
# if there is no end of line added, it is only set to 1. |
| |
if ($line_char_counter != 0) |
| |
{ |
| |
$text_added .= "\n"; |
| |
$in_exdent = 2; |
| |
} |
| |
else |
| |
{ |
| |
$in_exdent = 1; |
| |
} |
| |
$indent_length = ($indent_level -1) * $info_default_indent_length if ($indent_level > 0); |
| |
#goto new_text; |
| |
} |
| |
elsif ($content->{'command'} eq 'indent') |
| |
{ |
| |
$info_state->{'indent_para'} = 1; |
| |
} |
| |
elsif ($content->{'command'} eq 'noindent') |
| |
{ |
| |
$info_state->{'indent_para'} = 0; |
| |
} |
| |
elsif ($content->{'command'} eq 'sp') |
| |
{ |
| |
$text_added .= $content->{'text'}; |
| |
goto new_text; |
| |
} |
| |
elsif ($content->{'command'} eq 'image') |
| |
{ |
| |
# @image result count isn't counted in line_char_counter |
| |
# since it is not displayed in info |
| |
my $indent_added = 0; |
| |
$indent_added = ($indent_length - $line_char_counter) if ($indent_length - $line_char_counter > 0); |
| |
$text_added .= ' ' x $indent_added . $content->{'text'}; |
| |
$line_char_counter += $indent_added; |
| |
goto new_text; |
| |
} |
| |
elsif ($content->{'command'} eq 'ref') |
| |
{ # adds a . if needed. |
| |
if ($content->{'text'} !~ /[\.,]$/ and $content->{'text'} !~ /::$/) |
| |
{ |
| |
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close); |
| |
if (!defined($text_next) or $text_next !~ /^[\.,]/) |
| |
{ |
| |
$content->{'text'} .= '.'; |
| |
} |
| |
} |
| |
} |
| |
elsif ($content->{'command'} eq 'xref') |
| |
{ # warn if there is no punctuation following |
| |
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close); |
| |
if (!defined($text_next) or $text_next !~ /^./) |
| |
{ # in makeinfo it is |
| |
# "End of file reached while looking for `.' or `,'" |
| |
# but maybe it may not be true. |
| |
main::line_warn(__("`.' or `,' must follow \@xref."), $Texi2HTML::THISDOC{'line_nr'}); |
| |
} |
| |
elsif ($text_next !~ /^[\.,]/) |
| |
{ |
| |
my $char = substr($text_next, 0, 1); |
| |
main::line_warn(sprintf(__("`.' or `,' must follow \@xref, not %s"), $char), $Texi2HTML::THISDOC{'line_nr'}); |
| |
} |
| |
} |
| |
elsif ($content->{'definition_line'}) |
| |
{ |
| |
|
| |
my $dummy_line_passed; |
| |
print STDERR "BUG: defined pending_word before DEFINITION_LINE\n" if defined($pending_spaces_word->{'word'}); |
| |
#print STDERR "DEFINITION_LINE($line_char_counter,$pending_spaces_word->{'spaces'},$indent_length,$in_para,$max_column): $content->{'text'}"; |
| |
($line_char_counter, $pending_spaces_word, $dummy_line_passed, $text_added) = info_default_process_para_text($content->{'text'}, $line_char_counter, $pending_spaces_word, $indent_length, $max_column, 0, $indent_length+2*$info_default_indent_length); |
| |
$text_added .= $pending_spaces_word->{'spaces'}; |
| |
$pending_spaces_word->{'spaces'} = ''; |
| |
#print STDERR "DEFINITION_LINE($line_char_counter,$pending_spaces_word->{'spaces'}) -> $text_added"; |
| |
print STDERR "BUG: defined pending_word after DEFINITION_LINE\n" if defined($pending_spaces_word->{'word'}); |
| |
$indentation_done = 1; |
| |
|
| |
goto new_text; |
| |
} |
| |
elsif (($content->{'command'} eq 'item' or $content->{'command'} eq 'itemx') and exists $info_default_indent_format_length{$content->{'format_name'}}) |
| |
{ |
| |
$item_pending = $content->{'format_name'}; |
| |
#if (!$info_state->{'blank_line'} and $content->{'command'} eq 'item') |
| |
my $first_item = 0; |
| |
|
| |
if ($content->{'command'} eq 'item') |
| |
{ |
| |
if (!defined($content->{'parent'}->{'item_nr'})) |
| |
{ |
| |
$content->{'parent'}->{'item_nr'} = 1; |
| |
$first_item = 1; |
| |
} |
| |
else |
| |
{ |
| |
$content->{'parent'}->{'item_nr'}++; |
| |
} |
| |
} |
| |
|
| |
if ($item_pending =~ /table$/) |
| |
{ |
| |
$table_item_line = 1; |
| |
$indent_length = ($indent_level -1) * $info_default_indent_length if ($indent_level > 0); |
| |
$in_table_item = 0; |
| |
} |
| |
else |
| |
{ |
| |
$indent_length = ($info_default_indent_format_length{$item_pending} |
| |
+($indent_level -1)* $info_default_indent_length); |
| |
} |
| |
if (!$info_state->{'blank_line'} and ($content->{'command'} ne 'itemx') and (!$first_item or $indent_level > 1)) |
| |
{ |
| |
my $dummy_line_passed; |
| |
($line_char_counter, $dummy_line_passed, $text_added) = info_default_process_line_text($text_added, $line_char_counter, $indent_length); |
| |
$indentation_done = 1; |
| |
$line_added_before_item = 1; |
| |
$prepend_newline = 1; |
| |
#$text_added = "\n" . $text_added; |
| |
} |
| |
|
| |
if ($item_pending =~ /table$/) |
| |
{ |
| |
# one less indentation level and no line break |
| |
# adding line_added_before_item allows the table_item_line to |
| |
# still be active after the additional blank line |
| |
$table_item_line = 1+$line_added_before_item; |
| |
} |
| |
else |
| |
{ |
| |
info_default_skip_spaces($current, $index, $close); |
| |
} |
| |
} |
| |
elsif ($content->{'command'} eq 'menu' or $content->{'command'} eq 'listoffloats' or $content->{'heading_command'}) |
| |
{ |
| |
$text_added .= "\n" unless ($info_state->{'blank_line'}); |
| |
} |
| |
elsif ($content->{'command'} eq 'direntry') |
| |
{ |
| |
if ($content->{'content'}) |
| |
{ |
| |
$direntry++; |
| |
} |
| |
} |
| |
elsif ($paragraph_style{$content->{'command'}}) |
| |
{ |
| |
goto new_text if (!$content->{'content'}); |
| |
push @{$info_state->{'align_stack'}}, {'command' => $content->{'command'}}; |
| |
} |
| |
elsif ($content->{'command'} eq 'verbatim' or $content->{'command'} eq 'verbatiminclude') |
| |
{ |
| |
# $preformatted cannot be used here since preformatted |
| |
# is closed before a verbatim, $preformatted_format is used |
| |
if (!$preformatted_format and $indent_level != 0) |
| |
{ |
| |
if (!$info_state->{'blank_line'} and $info_state->{'only_spaces'}) |
| |
{ |
| |
$text_added .= "\n"; |
| |
} |
| |
my $verb_text = $content->{'text'}; |
| |
my ($line_passed, $end_of_line, $last_line, $text_indented, $blank_line) = info_default_count_lines($verb_text); |
| |
$content->{'text'} .= "\n" unless ($blank_line or ($last_line =~ /^\s*$/)); |
| |
} |
| |
} |
| |
# other raw commands |
| |
elsif ($content->{'raw_command'}) |
| |
{ |
| |
# not considered as in a paragraph even if in a paragraph |
| |
$text_added .= $content->{'text'}; |
| |
goto new_text; |
| |
} |
| |
elsif ($content->{'command'} eq 'multitable' and $content->{'content'}) |
| |
{ |
| |
my $indent_length_kept = $indent_level * $info_default_indent_length; |
| |
my $multitable = { |
| |
'offset_in_file_kept' => $info_state->{'offset_in_file'}, |
| |
'line_count_kept' => $info_state->{'line_count'}, |
| |
'columns_size' => [ @{$content->{'columns_size'}} ], |
| |
'result' => '', |
| |
'length' => 0, |
| |
'line_count' => 0, |
| |
'result_kept' => $result, |
| |
'length_kept' => $length, |
| |
'all_line_passed_kept' => $all_line_passed, |
| |
'line_char_counter_kept' => $line_char_counter, |
| |
'max_column_kept' => $max_column, |
| |
'indent_level_kept' => $indent_level, |
| |
'indent_length_kept' => $indent_length_kept, |
| |
}; |
| |
push @{$info_state->{'multitable_stack'}}, $multitable; |
| |
$info_state->{'offset_in_file'} = 0; |
| |
$info_state->{'line_count'} = 0; |
| |
$result = ''; |
| |
$length = 0; |
| |
$all_line_passed = 0; |
| |
$line_char_counter = 0; |
| |
$indent_level = 0; |
| |
$indent_length = 0; |
| |
} |
| |
elsif ($content->{'command'} eq 'multitable_row') |
| |
{ |
| |
my $multitable = $info_state->{'multitable_stack'}->[-1]; |
| |
if (!defined($multitable->{'cells'}) and ($result ne '')) |
| |
{ |
| |
$multitable->{'result'} .= $result; |
| |
$multitable->{'length'} += $length; |
| |
$multitable->{'line_count'} += $all_line_passed; |
| |
$multitable->{'cells'} = []; |
| |
} |
| |
$multitable->{'cell_index'} = -1; |
| |
} |
| |
elsif ($content->{'command'} eq 'multitable_cell') |
| |
{ |
| |
my $multitable = $info_state->{'multitable_stack'}->[-1]; |
| |
$multitable->{'cell_index'}++; |
| |
my $cell_width = $content->{'parent'}->{'parent'}->{'columns_size'}->[$multitable->{'cell_index'}]; |
| |
#$max_column = $cell_width-1; |
| |
$max_column = $cell_width -2; |
| |
my $cell = {'cell_width' => $cell_width, 'index_entries' => [], 'anchors' => []}; |
| |
push @{$multitable->{'cells'}}, $cell; |
| |
$result = ''; |
| |
$length = 0; |
| |
$all_line_passed = 0; |
| |
$line_char_counter = 0; |
| |
$indent_level = 0; |
| |
$indent_length = 0; |
| |
if (!$content->{'content'}) |
| |
{# empty cell |
| |
$cell->{'result'} = $result; |
| |
$cell->{'length'} = $length; |
| |
$cell->{'line_passed'} = $all_line_passed; |
| |
} |
| |
#info_default_skip_spaces($current, $index, $close); |
| |
} |
| |
if ($info_default_indented_commands{$content->{'command'}}) |
| |
{ |
| |
if ($content->{'command'} =~ /^deff_item/) |
| |
{ |
| |
info_default_skip_spaces($current, $index, $close); |
| |
} |
| |
#elsif (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level != 0) and !$preformatted) |
| |
elsif (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level != 0)) |
| |
{ |
| |
$text_added .= "\n"; |
| |
} |
| |
# there is no close if !$content->{'content'} |
| |
$indent_level++ if ($content->{'content'}); |
| |
$indent_length = $indent_level * $info_default_indent_length; |
| |
} |
| |
elsif (($complex_format_map{$content->{'command'}} and $content->{'command'} ne 'menu') or $content->{'command'} eq 'cartouche') |
| |
{ |
| |
#if (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level != 0) and !$preformatted_format) |
| |
if (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level != 0)) |
| |
{ |
| |
$text_added .= "\n"; |
| |
} |
| |
} |
| |
if ($complex_format_map{$content->{'command'}} and $content->{'content'}) |
| |
{ |
| |
$preformatted_format++; |
| |
} |
| |
} |
| |
|
| |
if (defined($content->{'text'})) |
| |
{ |
| |
if ($in_para and !$in_exdent) |
| |
{ |
| |
#print STDERR "IN_PARA text\n"; |
| |
my $new_text = $content->{'text'}; |
| |
# first find if in a context of no puncutation related |
| |
# modification: code style command or @var, @cite, @math |
| |
# acceptable for punctuation related modifications: |
| |
# asis b dfn emph i slanted sansserif r sc strong t w |
| |
my $current_tested = $content; |
| |
my $no_punctation_munging_command; |
| |
while ($current_tested) |
| |
{ |
| |
if (defined($current_tested->{'command'}) and (($style_map{$current_tested->{'command'}} and $style_map{$current_tested->{'command'}}->{'args'} and $style_map{$current_tested->{'command'}}->{'args'}->[0] and $style_map{$current_tested->{'command'}}->{'args'}->[0] eq 'code') or $current_tested->{'command'} eq 'var' or $current_tested->{'command'} eq 'cite' or $current_tested->{'command'} eq 'math')) |
| |
{ |
| |
$no_punctation_munging_command = 1; |
| |
last; |
| |
} |
| |
$current_tested = $current_tested->{'parent'}; |
| |
} |
| |
# a punctuation at the end of line in a command is treated |
| |
# like a punctuation in plain text, except for @:, |
| |
# accent commands, @dots, 'simple_style' command, and if in |
| |
# a command as found out just above. |
| |
|
| |
if (!$no_punctation_munging_command and (!defined($content->{'command'}) or ($content->{'command'} ne ':' and $content->{'command'} ne 'accents_commands' and $content->{'command'} ne 'dots') and !$info_default_leaf_command{$content->{'command'}}) and get_conf('frenchspacing') ne 'on' and $new_text =~ /([$info_default_end_sentence_character])([$info_default_after_punctuation_characters]*)(\s*)$/) |
| |
{ |
| |
my $spaces = $3; |
| |
if (chomp($new_text)) |
| |
{ |
| |
$new_text =~ s/(\s*)$/ /; |
| |
} |
| |
else |
| |
{ |
| |
# these variables hold the place where the end |
| |
# of line characters are normalized. |
| |
my ($current_start_from, $index_start_from, $close_start_from) = ($current, $index, $close); |
| |
my $only_after_punctuation_characters = 1; |
| |
my $spaces_to_normalize = 0; |
| |
|
| |
# first find whether there are only |
| |
# after_punctuation_characters followed by spaces |
| |
# and find the place where the |
| |
# after_punctuation_characters end |
| |
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close); |
| |
# go through the text as long as there are after_punctuation_characters |
| |
if (!$spaces) |
| |
{ |
| |
while (1) |
| |
{ |
| |
# !defined($text_next) catches many special |
| |
# commands, like anchor, index. Not sure if |
| |
# it is right or wrong. |
| |
# Also a style_map command never stops |
| |
# the search, so that @emph{ or @strong{ |
| |
# begin and end are not taken into account |
| |
if (!defined($current_next) or (!defined($text_next)) or (defined($command_next) and $command_next eq '*') or ($text_next !~ /^[$info_default_after_punctuation_characters]*(\s*)$/ and (!defined($command_next) or !$style_map{$command_next}))) |
| |
{ |
| |
$only_after_punctuation_characters = 0; |
| |
last; |
| |
} |
| |
my $text_next_kept = $text_next; |
| |
# begin normalizing spaces at the last place |
| |
# where there are after_punctuation_characters |
| |
$current_start_from = $current_next; |
| |
$index_start_from = $index_next; |
| |
$index_start_from = $index_next; |
| |
($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current_next, $index_next, $close_next); |
| |
if ($text_next_kept =~ /^[$info_default_after_punctuation_characters]*\s+$/) |
| |
{ |
| |
if (chomp($text_next_kept)) |
| |
{ |
| |
$spaces_to_normalize = 1; |
| |
} |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
# check if there are only spaces until end of line |
| |
if ($only_after_punctuation_characters and !$spaces_to_normalize) |
| |
{ |
| |
while (1) |
| |
{ |
| |
# !defined($text_next) catches many special |
| |
# commands, like anchor, index. Not sure if |
| |
# it is right or wrong. |
| |
last if (!defined($current_next) or (!defined($text_next)) or (defined($command_next) and $command_next eq '*')); |
| |
if ($text_next =~ /\S/ and (!defined($command_next) or !$style_map{$command_next})) |
| |
{ |
| |
last; |
| |
} |
| |
else |
| |
{ |
| |
if (chomp($text_next)) |
| |
{ |
| |
$spaces_to_normalize = 1; |
| |
last; |
| |
} |
| |
} |
| |
($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current_next, $index_next, $close_next); |
| |
} |
| |
|
| |
} |
| |
if ($spaces_to_normalize) |
| |
{ |
| |
# now do the spaces normalization |
| |
info_default_skip_spaces($current_start_from, $index_start_from, $close_start_from); |
| |
my $content = $current_start_from->{'content'}->[$index_start_from]; |
| |
$content->{'text'} =~ s/(\s*)$/ /; |
| |
} |
| |
} |
| |
} |
| |
elsif (chomp($new_text)) |
| |
{ |
| |
$new_text =~ s/(\s*)$/ /; |
| |
} |
| |
$text_added .= $new_text; |
| |
} # ignore spaces outside of paragraphs and preformatted |
| |
elsif ($preformatted or $info_state->{'align_stack'}->[-1]->{'command'} ne 'normal') |
| |
{ |
| |
#print STDERR "IN_PREFORMATTED or ALIGN text\n"; |
| |
$text_added .= $content->{'text'}; |
| |
} |
| |
else |
| |
{ |
| |
my $chomped_text = $content->{'text'}; |
| |
if ($chomped_text !~ /\S/ and chomp($chomped_text) and !$item_pending) |
| |
{ |
| |
if ($in_table_item and $info_state->{'only_spaces'}) |
| |
{ |
| |
# in a blank_line |
| |
#print STDERR "IN_ITEM ignored: `$content->{'text'}'\n"; |
| |
} |
| |
elsif (!$info_state->{'blank_line'} or !$info_state->{'only_spaces'}) |
| |
{ |
| |
#print STDERR "IN_ADDING_BLANK_LINE because no line before or text before\n"; |
| |
$text_added .= "\n"; |
| |
} |
| |
else |
| |
{ |
| |
#print STDERR "IN_NOT_ADDING_BLANK_LINE\n"; |
| |
} |
| |
} |
| |
else |
| |
{ # exdent, item not in paragraph nor in preformatted |
| |
#print STDERR "NOWHERE and not end of line (or item_pending) `$content->{'text'}'\n"; |
| |
$text_added .= $content->{'text'}; |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
if (defined($content->{'begin'})) |
| |
{ |
| |
$text_added .= $content->{'begin'}; |
| |
} |
| |
# command that won't be closed, so the end has to be added |
| |
# here. It should mostly happen for empty style @-commands. |
| |
if (defined($content->{'end'}) and !defined($content->{'content'})) |
| |
{ |
| |
$text_added .= $content->{'end'}; |
| |
} |
| |
} |
| |
} |
| |
if (!$preformatted and !$in_exdent and $info_state->{'align_stack'}->[-1]->{'command'} eq 'normal' and $in_para) |
| |
{ |
| |
# the line_passed returned here are not used, since they are computed |
| |
# below. |
| |
$indentation_done = 1; |
| |
my $dummy_line_passed; |
| |
($line_char_counter, $pending_spaces_word, $dummy_line_passed, $text_added) = info_default_process_para_text($text_added, $line_char_counter, $pending_spaces_word, $indent_length, $max_column, $in_w, $indent_level * $info_default_indent_length) if ($text_added ne ''); |
| |
} |
| |
elsif ($info_state->{'align_stack'}->[-1]->{'command'} ne 'center' and $info_state->{'align_stack'}->[-1]->{'command'} ne 'flushright') |
| |
{ |
| |
my $dummy_line_passed; |
| |
($line_char_counter, $dummy_line_passed, $text_added) = info_default_process_line_text($text_added, $line_char_counter, $indent_length); |
| |
#$indentation_done = 1; |
| |
} |
| |
else |
| |
{ |
| |
$line_char_counter += t2h_default_string_width($text_added); |
| |
} |
| |
new_text: |
| |
if ($text_added ne '') |
| |
{ |
| |
if ($item_pending and !$line_added_before_item) |
| |
{ |
| |
#info_default_skip_spaces($current, $index, $close); |
| |
$item_pending = undef; |
| |
} |
| |
} |
| |
if ($text_added =~ /\S/) |
| |
{ |
| |
$in_table_item = 0 if ($in_table_item); |
| |
$info_state->{'blank_line'} = 0; |
| |
} |
| |
$text_added = "\n" . $text_added if ($prepend_newline); |
| |
print STDERR "TEXT_ADDED($indent_length) `$text_added'\n" if ($text_added ne '' and $DEBUG); |
| |
#print STDERR "TEXT_ADDED($indent_length) `$text_added'\n"; |
| |
# from here, the next cmmand is available |
| |
($current, $index, $close) = info_default_iterator_next($current, $index, $close); |
| |
|
| |
my ($line_passed, $end_of_line, $last_line, $text_indented, $blank_line) = info_default_count_lines($text_added, $indent_length, ($indentation_done |
| |
or $info_state->{'align_stack'}->[-1]->{'command'} eq 'center' |
| |
or $info_state->{'align_stack'}->[-1]->{'command'} eq 'flushright')); |
| |
$info_state->{'blank_line'} = 1 if ($blank_line); |
| |
print STDERR "ADDING `$text_indented'\n" if ($text_indented ne '' and $DEBUG); |
| |
# only_space is set in all the conditionals |
| |
if ($end_of_line) |
| |
{ |
| |
$line_char_counter = 0; |
| |
if ($in_exdent) |
| |
{ |
| |
$in_exdent--; |
| |
} |
| |
if ($table_item_line) |
| |
{ |
| |
$table_item_line--; |
| |
$in_table_item = 1; |
| |
} |
| |
if (!$table_item_line and !$in_exdent and !$item_pending) |
| |
{ |
| |
$indent_length = $indent_level * $info_default_indent_length; |
| |
} |
| |
$info_state->{'blank_line'} = 1 if ($info_state->{'only_spaces'} and ($last_line !~ /\S/)); |
| |
$info_state->{'only_spaces'} = 1; |
| |
} |
| |
else |
| |
{ |
| |
if ($line_passed) |
| |
{# in that case we added more than one line, the $line_char_counter |
| |
# is reset to the last line length. |
| |
$line_char_counter = t2h_default_string_width($last_line); |
| |
$in_exdent = 0; |
| |
$indent_length = $indent_level * $info_default_indent_length; |
| |
if ($last_line !~ /\S/) |
| |
{ |
| |
$info_state->{'only_spaces'} = 1; |
| |
} |
| |
else |
| |
{ |
| |
$info_state->{'only_spaces'} = 0; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$info_state->{'only_spaces'} = 0 if ($last_line =~ /\S/); |
| |
} |
| |
} |
| |
if ($info_state->{'align_stack'}->[-1]->{'command'} eq 'center' |
| |
or $info_state->{'align_stack'}->[-1]->{'command'} eq 'flushright') |
| |
{ |
| |
if (defined($current_line)) |
| |
{ |
| |
$text_added = $current_line . $text_added; |
| |
} |
| |
$text_indented = ''; |
| |
$current_line = undef; |
| |
my $spaces_prepended = undef; |
| |
foreach my $line (split /^/, $text_added) |
| |
{ |
| |
my $chomped_line = $line; |
| |
if (chomp($chomped_line)) |
| |
{ |
| |
$line =~ s/^\s*//; |
| |
$line =~ s/\s*$//; |
| |
|
| |
if (t2h_default_string_width($line) eq 0) |
| |
{ |
| |
$spaces_prepended = 0; |
| |
$text_indented .= "\n"; |
| |
} |
| |
else |
| |
{ |
| |
my $line_width = t2h_default_string_width($line); |
| |
if ($line_width > $max_column) |
| |
{ |
| |
$spaces_prepended = 0; |
| |
} |
| |
elsif ($info_state->{'align_stack'}->[-1]->{'command'} eq 'center') |
| |
{ |
| |
$spaces_prepended = (($max_column -1 - $line_width) /2); |
| |
} |
| |
else |
| |
{ |
| |
$spaces_prepended = ($max_column -1 - $line_width); |
| |
} |
| |
$text_indented .= ' ' x$spaces_prepended . $line ."\n"; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$current_line = $line; |
| |
} |
| |
} |
| |
if (defined ($spaces_prepended) and defined($info_state->{'align_stack'}->[-1]->{'anchors'})) |
| |
{ |
| |
while (@{$info_state->{'align_stack'}->[-1]->{'anchors'}}) |
| |
{ |
| |
my $anchor = shift @{$info_state->{'align_stack'}->[-1]->{'anchors'}}; |
| |
$anchor->{'info_offset'} += info_default_byte_count(' ' x$spaces_prepended); |
| |
} |
| |
} |
| |
} |
| |
|
| |
if ($direntry) |
| |
{ |
| |
$info_default_dir_specification .= $text_indented; |
| |
} |
| |
else |
| |
{ |
| |
$result .= $text_indented; |
| |
$length += info_default_byte_count($text_indented); |
| |
$all_line_passed += $line_passed; |
| |
} |
| |
} |
| |
return ($length, $result, $all_line_passed); |
| |
} |
| |
|
| |
sub info_default_open_command($$;$) |
| |
{ |
| |
my $state = shift; |
| |
my $command = shift; |
| |
my $additional_entries = shift; |
| |
|
| |
my $index = 0; |
| |
|
| |
my $info_state = info_default_get_state($state); |
| |
# index in the parent content list |
| |
$index = scalar(@{$info_state->{'current'}->{'content'}}) |
| |
if (defined($info_state->{'current'}->{'content'})); |
| |
my $new_command = {'command' => $command, 'parent' => $info_state->{'current'}, 'index_in_parent' => $index }; |
| |
if (defined($additional_entries)) |
| |
{ |
| |
foreach my $key (keys(%$additional_entries)) |
| |
{ |
| |
$new_command->{$key} = $additional_entries->{$key}; |
| |
} |
| |
} |
| |
|
| |
push @{$info_state->{'current'}->{'content'}}, $new_command; |
| |
$info_state->{'current'} = $new_command; |
| |
print STDERR "TREE($info_state->{'nr'}): Opened $command\n" if ($DEBUG); |
| |
} |
| |
|
| |
sub info_default_close_command($$;$$$) |
| |
{ |
| |
my $state = shift; |
| |
my $command = shift; |
| |
my $begin = shift; |
| |
my $end = shift; |
| |
my $command_entries = shift; |
| |
|
| |
$state = $Texi2HTML::THISDOC{'state'} if (!defined($state)); |
| |
my $info_state = info_default_get_state($state); |
| |
print STDERR "TREE($info_state->{'nr'}): Closing $command\n" if ($DEBUG); |
| |
if (!defined($info_state->{'current'})) |
| |
{ |
| |
print STDERR "info_state->{'current'} not defined (closing $command)\n"; |
| |
} |
| |
elsif (!defined($info_state->{'current'}->{'command'})) |
| |
{ |
| |
print STDERR "info_state->{'current'}->{'command'} not defined (closing $command)\n"; |
| |
} |
| |
elsif ($command ne $info_state->{'current'}->{'command'}) |
| |
{ |
| |
print STDERR "Was waiting for $info_state->{'current'}->{'command'} (closing $command)\n"; |
| |
} |
| |
#return if $no_close; |
| |
$command_entries->{'begin'} = $begin; |
| |
$command_entries->{'end'} = $end; |
| |
$command_entries->{'line_nr'} = $Texi2HTML::THISDOC{'line_nr'}; |
| |
foreach my $key (keys(%$command_entries)) |
| |
{ |
| |
$info_state->{'current'}->{$key} = $command_entries->{$key} |
| |
if (defined($command_entries->{$key})); |
| |
} |
| |
|
| |
$info_state->{'current'} = $info_state->{'current'}->{'parent'}; |
| |
|
| |
return info_default_output($info_state) |
| |
if (!defined($info_state->{'current'}->{'command'})); |
| |
return ''; |
| |
} |
| |
|
| |
sub info_default_store_text($$;$$) |
| |
{ |
| |
my $state = shift; |
| |
my $text = shift; |
| |
my $command = shift; |
| |
my $text_entries = shift; |
| |
|
| |
$state = $Texi2HTML::THISDOC{'state'} if (!defined($state)); |
| |
my $info_state = info_default_get_state($state); |
| |
return '' if ((!defined($text) or $text eq '') and !defined($command)); |
| |
|
| |
################################## debug |
| |
my $command_text = ''; |
| |
$command_text = "\[$command\]" if (defined($command)); |
| |
$command_text .= $text if (defined($text)); |
| |
print STDERR "TREE($info_state->{'nr'}) Storing: ${command_text}\n" if ($DEBUG); |
| |
################################## end debug |
| |
|
| |
$text_entries->{'text'} = $text if (defined($text)); |
| |
$text_entries->{'command'} = $command if (defined($command)); |
| |
$text_entries->{'parent'} = $info_state->{'current'}; |
| |
$text_entries->{'line_nr'} = $Texi2HTML::THISDOC{'line_nr'}; |
| |
push @{$info_state->{'current'}->{'content'}}, $text_entries; |
| |
return info_default_output($info_state) |
| |
if (!defined($info_state->{'current'}->{'command'})); |
| |
return ''; |
| |
} |
| |
|
| |
sub info_default_increment_paragraph ($$$;$) |
| |
{ |
| |
my $in_format = shift; |
| |
my $parent_format = shift; |
| |
my $info_state = shift; |
| |
my $command = shift; |
| |
|
| |
if ($in_format) |
| |
{ |
| |
$parent_format->{'paragraph_in_format_nr'} = 0 if (!defined($parent_format->{'paragraph_in_format_nr'})); |
| |
$parent_format->{'paragraph_in_format_nr'}++; |
| |
} |
| |
else |
| |
{ |
| |
$info_state->{'paragraph_in_element_nr'}++; |
| |
} |
| |
####################### debug |
| |
$command = 'PARA' if (!defined($command)); |
| |
if (0) |
| |
#if (1) |
| |
{ |
| |
my $format_info = ''; |
| |
if ($in_format) |
| |
{ |
| |
$format_info = "format: [$parent_format->{'command'}],$parent_format->{'paragraph_in_format_nr'}" |
| |
} |
| |
print STDERR "INCREMENT_PARA($command) $info_state->{'paragraph_in_element_nr'} $format_info\n"; |
| |
} |
| |
####################### end debug |
| |
} |
| |
|
| |
sub info_default_begin_format_texi($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $state = shift; |
| |
|
| |
my $info_state = info_default_get_state ($state); |
| |
my ($parent_format, $in_format); |
| |
($parent_format, $in_format) = info_default_parent_format($info_state->{'current'}); |
| |
info_default_increment_paragraph ($in_format, $parent_format, $info_state, $command); |
| |
# remove space in front of center, unless it removes the end of line! |
| |
$line =~ s/^\s*// if ($command eq 'center' and $line =~ /\S/); |
| |
# don't open a format if it is a @def*x command and we are already in the |
| |
# corresponding @def* command |
| |
info_default_open_command($state,$command) unless ($def_map{$command} and $command =~ /x$/ and defined($info_state->{'current'}->{'command'}) and "$info_state->{'current'}->{'command'}x" eq $command); |
| |
return $line; |
| |
} |
| |
|
| |
sub info_default_begin_style_texi($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $state = shift; |
| |
my $stack = shift; |
| |
my $real_style_command = shift; |
| |
my $remove_texi = shift; |
| |
|
| |
info_default_open_command($state,$command) |
| |
unless ($info_default_accent_commands{$command} or exists $things_map{$command} |
| |
or $command =~ /^special_(\w+)_(\d+)$/); |
| |
# if ($real_style_command); |
| |
} |
| |
|
| |
sub info_default_begin_paragraph_texi($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $paragraph_macros = shift; |
| |
my $paragraph_command = shift; |
| |
#print STDERR "begin_paragraph $command\n"; |
| |
my $state = shift; |
| |
my $stack = shift; |
| |
info_default_open_command($state,$command); |
| |
foreach my $style_command (@$paragraph_macros) |
| |
{ |
| |
#print STDERR "para stack: $style_command->{'style'}\n"; |
| |
info_default_open_command($state,$style_command->{'style'}); |
| |
} |
| |
} |
| |
|
| |
sub info_default_simple_command($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_math = shift; |
| |
my $line_nr = shift; |
| |
my $state = shift; |
| |
|
| |
my $result = $simple_map{$command}; |
| |
$result = $simple_map_math{$command} if ($in_math and defined($simple_map_math{$command})); |
| |
# discards '-' '|' '/' and ':'. If ':' is associated with a punctuation |
| |
# character it is added to the tree in info_default_colon_command |
| |
return info_default_store_text($state,$result,$command) if ($result ne ''); |
| |
return ''; |
| |
} |
| |
|
| |
sub info_default_colon_command($) |
| |
{ |
| |
my $punctuation_character = shift; |
| |
if (defined($colon_command_punctuation_characters{$punctuation_character}) |
| |
and $punctuation_character =~ /^[$punctuation_characters]$/) |
| |
{ |
| |
return info_default_store_text(undef,$colon_command_punctuation_characters{$punctuation_character}, ':'); |
| |
} |
| |
else |
| |
{ |
| |
return info_default_store_text(undef,$punctuation_character); |
| |
} |
| |
} |
| |
|
| |
sub info_default_thing_command($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_math = shift; |
| |
my $line_nr = shift; |
| |
my $state = shift; |
| |
|
| |
my $result = $things_map{$command}; |
| |
#return info_default_close_command($state, $command, $result, $text, ''); |
| |
return info_default_store_text($state, $result, $command); |
| |
# return $result . $text; |
| |
} |
| |
|
| |
|
| |
sub info_default_style($$$$$$$$$$) |
| |
{ |
| |
my $style = shift; |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $args = shift; |
| |
my $no_close = shift; |
| |
my $no_open = shift; |
| |
my $line_nr = shift; |
| |
my $state = shift; |
| |
my $command_stack = shift; |
| |
my $kept_line_nrs = shift; |
| |
|
| |
my $begin = ''; |
| |
my $end = ''; |
| |
|
| |
# note that the $text is always discarded for closed commands |
| |
|
| |
# the formatting is done right here, and the result is entered as text below. |
| |
if ($info_default_leaf_command{$command}) |
| |
{ |
| |
my $style_index = 0; |
| |
my @formatted_args = (); |
| |
foreach my $arg (@$args) |
| |
{ |
| |
# we don't use style, since we only set 'orig_args' in style_map |
| |
# and not in style_map_pre. |
| |
my $arg_style = $style_map{$command}->{'orig_args'}->[$style_index]; |
| |
my $new_state = main::duplicate_formatting_state($state); |
| |
if ($arg_style eq 'normal') |
| |
{ |
| |
push @formatted_args, main::substitute_line($arg, "\@$command", $new_state); |
| |
} |
| |
elsif ($arg_style eq 'code') |
| |
{ |
| |
$new_state->{'code_style'} = 1; |
| |
push @formatted_args, main::substitute_line($arg, "\@$command", $new_state); |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "Unknown arg style($style_index) $arg_style for $command, $state->{'remove_texi'}\n"; |
| |
} |
| |
$style_index++; |
| |
} |
| |
$args = \@formatted_args; |
| |
} |
| |
if (defined($style->{'function'})) |
| |
{ # in case of an accent, some text is returned here if there are still |
| |
# more accents on the command_stack, otherwise it is put in the tree. |
| |
# Other commands text results are put in the tree below. |
| |
$text = &{$style->{'function'}}($command, $args, $command_stack, $state, $line_nr, $kept_line_nrs); |
| |
} |
| |
elsif ($info_default_leaf_command{$command}) |
| |
{ # no formatting function but a leaf command, it is just replaced |
| |
# by the formatted argument, and put in the tree below. |
| |
$text = $args->[0]; |
| |
} |
| |
if (defined($style->{'begin'}) and !$no_open) |
| |
{ |
| |
$begin = $style->{'begin'}; |
| |
} |
| |
if (defined($style->{'end'}) and !$no_close) |
| |
{ |
| |
$end = $style->{'end'}; |
| |
} |
| |
# normal style commands |
| |
unless($special_style{$command} or $info_default_accent_commands{$command} or ($command eq 'hyphenation') or $info_default_leaf_command{$command}) |
| |
{ |
| |
return info_default_close_command($state, $command, $begin, $end); |
| |
} |
| |
# this is for *ref, images and footnotes text registering and putting |
| |
# in the tree. |
| |
# anchor is already in the tree, from anchor_label. |
| |
if (($special_style{$command} or $info_default_leaf_command{$command}) and $command ne 'anchor') |
| |
{ |
| |
return info_default_store_text ($state, $begin.$text.$end, $command); |
| |
} |
| |
# for accents, hyphenation and anchor |
| |
# (though the result for anchor is always an empty string). |
| |
return $begin.$text.$end; |
| |
} |
| |
|
| |
sub info_default_header () |
| |
{ |
| |
return $Texi2HTML::THISDOC{'info_header'} if (defined($Texi2HTML::THISDOC{'info_header'})); |
| |
# $Texi2HTML::THISDOC{'program'} |
| |
my $input_basename = $Texi2HTML::THISDOC{'input_file_name'}; |
| |
$input_basename =~ s/^.*\///; # if ($TEST); |
| |
$input_basename = $STDIN_DOCU_NAME if ($input_basename eq '-'); |
| |
my $output_basename = $Texi2HTML::THISDOC{'filename'}->{'top'}; |
| |
$output_basename =~ s/^.*\///; |
| |
my $result = "This is $output_basename, produced by makeinfo version 4.13 from $input_basename. "; |
| |
my $dummy; |
| |
($dummy, $dummy, $dummy, $result) = info_default_process_para_text($result, 0, {'spaces' => ''}, undef, get_conf('fillcolumn')); |
| |
$result .= "\n\n"; |
| |
$result .= "$Texi2HTML::THISDOC{'copying_comment'}"; |
| |
if ($info_default_dir_specification) |
| |
{ |
| |
$result .= "$info_default_dir_specification\n"; |
| |
} |
| |
$Texi2HTML::THISDOC{'info_header'} = $result; |
| |
return $result; |
| |
} |
| |
|
| |
sub info_default_print_page_head($) |
| |
{ |
| |
my $fh = shift; |
| |
my $header = info_default_header(); |
| |
print $fh "".$header; |
| |
|
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
my $info_state = info_default_get_state ($state); |
| |
$info_state->{'offset_in_file'} += info_default_byte_count($header); |
| |
$info_state->{'blank_line'} = 1 if ($Texi2HTML::THISDOC{'copying_comment'} eq ''); |
| |
} |
| |
|
| |
sub info_default_parent_format($) |
| |
{ |
| |
my $parent_format = shift; |
| |
my $in_format = 0; |
| |
while (1) |
| |
{ |
| |
if (defined($parent_format->{'command'}) and $info_default_format{$parent_format->{'command'}}) |
| |
{ |
| |
$in_format = 1; |
| |
last; |
| |
} |
| |
last if (!defined($parent_format->{'parent'})); |
| |
|
| |
$parent_format = $parent_format->{'parent'}; |
| |
} |
| |
return ($parent_format, $in_format); |
| |
} |
| |
|
| |
sub info_default_paragraph($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $align = shift; |
| |
my $indent = shift; |
| |
my $paragraph_command = shift; |
| |
my $paragraph_command_formatted = shift; |
| |
my $paragraph_number = shift; |
| |
my $format = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $command_stack_at_end = shift; |
| |
my $command_stack_at_begin = shift; |
| |
|
| |
my $top_stack = ''; |
| |
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin)); |
| |
|
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
my $info_state = info_default_get_state ($state); |
| |
my ($parent_format, $in_format); |
| |
($parent_format, $in_format) = info_default_parent_format($info_state->{'current'}->{'parent'}); |
| |
info_default_increment_paragraph ($in_format, $parent_format, $info_state); |
| |
my $additional_args = {'top_stack' => $top_stack, 'parent_format' => $parent_format}; |
| |
$additional_args->{'paragraph_in_element_nr'} = ($info_state->{'paragraph_in_element_nr'} - 1) if (!$in_format); |
| |
|
| |
return info_default_close_command(undef, 'paragraph', undef, undef, $additional_args); |
| |
} |
| |
|
| |
# currently not used, but could be used if info_default_preformatted |
| |
# return something that is not 'false', for example spaces, though we |
| |
# want the preformatted to be ignored. Though it is not sure that if there |
| |
# are spaces we want to ignore the preformatted. |
| |
sub info_default_empty_preformatted($) |
| |
{ |
| |
my $text = shift; |
| |
my $result = info_default_preformatted($text, undef, undef, undef, undef, |
| |
undef, undef, undef, undef, undef, undef, undef); |
| |
return 0; |
| |
} |
| |
|
| |
sub info_default_preformatted($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $pre_style = shift; |
| |
my $class = shift; |
| |
my $leading_command = shift; |
| |
my $leading_command_formatted = shift; |
| |
my $preformatted_number = shift; |
| |
my $format = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $command_stack_at_end = shift; |
| |
my $command_stack_at_begin = shift; |
| |
|
| |
return info_default_close_command(undef, 'preformatted'); |
| |
} |
| |
|
| |
|
| |
sub info_default_node_line($$) |
| |
{ |
| |
my $element = shift; |
| |
my $info_state = shift; |
| |
my $outfile = $Texi2HTML::THISDOC{'filename'}->{'top'}; |
| |
$outfile = $STDOUT_DOCU_NAME if ($outfile eq '-'); |
| |
my $result = "\x{1F}\nFile: $outfile, Node: $element->{'text'}"; |
| |
if (defined($element->{'NodeNext'})) |
| |
{ # This is not translatable |
| |
$result .= ", Next: $element->{'NodeNext'}->{'text'}"; |
| |
} |
| |
if (defined($element->{'NodePrev'})) |
| |
{ |
| |
$result .= ", Prev: $element->{'NodePrev'}->{'text'}"; |
| |
} |
| |
if (defined($element->{'NodeUp'})) |
| |
{ |
| |
$result .= ", Up: $element->{'NodeUp'}->{'text'}"; |
| |
} |
| |
$result .= "\n\n"; |
| |
# the line_count is ahead from the number of lines by one. |
| |
$info_state->{'line_count'} = 3; |
| |
$info_state->{'offset_in_file'} += info_default_byte_count($result); |
| |
$info_state->{'blank_line'} = 1; |
| |
return $result; |
| |
} |
| |
|
| |
sub info_default_element_heading($$$$$$$$$$$$) |
| |
{ |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $texi_line = shift; |
| |
my $line = shift; |
| |
my $in_preformatted = shift; |
| |
my $one_section = shift; |
| |
my $element_heading = shift; |
| |
my $first_in_page = shift; |
| |
my $is_top = shift; |
| |
my $previous_is_top = shift; |
| |
my $command_line = shift; |
| |
my $element_id = shift; |
| |
my $new_element = shift; |
| |
|
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
my $info_state = info_default_get_state ($state); |
| |
|
| |
# FIXME use $element or $Texi2HTML::THIS_ELEMENT? Main program should |
| |
# ensure they are the same. |
| |
if ($new_element and ($element ne $new_element and $element->{'node'})) |
| |
{ |
| |
die "There is a new element, but element `$element->{'texi'}' is not the new element\n"; |
| |
} |
| |
# FIXME |
| |
# non node element may appear if the element appears before the first |
| |
# node/section element. For example `element not associated with a node' |
| |
# won't be associated with a node. |
| |
# @unnumbered element not associated with a node |
| |
# @node Top |
| |
# @top Top element |
| |
if (!$element->{'node'}) |
| |
{ |
| |
return &$heading($element, $command, $texi_line, $line, $in_preformatted, $one_section, $element_heading); |
| |
} |
| |
|
| |
my $before = ''; |
| |
$element->{'info_offset'} = $info_state->{'offset_in_file'}; |
| |
push @{$info_state->{'pending_tags'}}, $element; |
| |
|
| |
my $result = info_default_node_line($element, $info_state); |
| |
|
| |
$info_default_footnote_index = 0; |
| |
$info_default_current_node = $element; |
| |
|
| |
return $before.$result; |
| |
} |
| |
|
| |
sub info_default_heading($$$$$;$$) |
| |
{ |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $texi_line = shift; |
| |
my $line = shift; |
| |
my $in_preformatted = shift; |
| |
my $one_section = shift; |
| |
my $element_heading = shift; |
| |
|
| |
die "Heading called for a node\n" if ($element->{'node'}); |
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
my $info_state = info_default_get_state ($state); |
| |
$info_state->{'paragraph_in_element_nr'} = 0; |
| |
if (!defined($element->{'texi'})) |
| |
{ |
| |
main::msg_debug("for $element, element->{'texi'} not defined, texi_line: $texi_line"); |
| |
} |
| |
elsif (!defined($element->{'text'})) |
| |
{ |
| |
main::msg_debug("for $element, $element->{'texi'}, element->{'text'} not defined"); |
| |
} |
| |
return '' if ($element->{'tag'} eq 'part'); |
| |
|
| |
my $text = "$element->{'text'}"; |
| |
# when @top is empty, use settitle |
| |
$text = $Texi2HTML::THISDOC{'settitle'} if (!length($text) and $element->{'tag'} eq 'top' and defined ($Texi2HTML::THISDOC{'settitle'}) and length($Texi2HTML::THISDOC{'settitle'})); |
| |
my $result = &$heading_text ("\@$command", $text, $element->{'level'}); |
| |
|
| |
$result .= "\n"; |
| |
|
| |
return info_default_store_text($state, $result, $command, {'heading_command' => 1}); |
| |
} |
| |
|
| |
sub info_default_normal_text($$$$$$$;$) |
| |
{ |
| |
my @initial_args = @_; |
| |
my $text = shift; |
| |
my $in_raw_text = shift; # remove_texi |
| |
my $in_preformatted = shift; |
| |
my $in_code = shift; |
| |
my $in_math = shift; |
| |
my $in_simple = shift; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
# $Texi2HTML::THISDOC{'ENCODING_NAME'}) should be defined, but maybe |
| |
# not when parsing commands in first or second pass, and removeing texi |
| |
# like what is done for @setfilename. |
| |
if ($ENABLE_ENCODING and defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and ($Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8') and $USE_UNICODE) |
| |
{ |
| |
$text = &t2h_utf8_normal_text(@initial_args); |
| |
} |
| |
else |
| |
{ |
| |
#print STDERR "info_default_normal_text $text $in_preformatted $in_code \n"; |
| |
$text = uc($text) if (in_cmd($style_stack, 'sc')); |
| |
$text = uc($text) if (in_cmd($style_stack, 'var')); |
| |
if (! $in_code and !$in_preformatted) |
| |
{ |
| |
$text =~ s/---/\x{1F}/g; |
| |
$text =~ s/--/-/g; |
| |
$text =~ s/\x{1F}/--/g; |
| |
$text =~ s/``/"/g; |
| |
$text =~ s/\'\'/"/g; |
| |
} |
| |
} |
| |
# accented characters are not handled as normal text, but when the last |
| |
# accent command on the stack is closed. |
| |
if ($style_stack and @$style_stack and $info_default_accent_commands{$style_stack->[-1]}) |
| |
{ |
| |
return $text; |
| |
} |
| |
#print STDERR "NORMAL\n"; |
| |
return info_default_store_text($state,$text); |
| |
} |
| |
|
| |
# this is not called in preformatted |
| |
sub info_default_empty_line($$) |
| |
{ |
| |
my $text = shift; |
| |
my $state = shift; |
| |
#ignore the line if it just follows a deff |
| |
#return '' if ($state->{'deff_line'}); |
| |
return info_default_store_text($state,$text); |
| |
# return ''; |
| |
} |
| |
|
| |
# change interface? |
| |
sub info_default_anchor_label($$$$) |
| |
{ |
| |
my $id = shift; |
| |
my $anchor_text = shift; |
| |
my $anchor_reference = shift; |
| |
my $in_special_region = shift; |
| |
return '' if ($in_special_region); |
| |
#print STDERR "Storing anchor $anchor_reference->{'text'}\n"; |
| |
main::line_warn(__("anchor outside of any node, it won't be registered"), $Texi2HTML::THISDOC{'line_nr'}) if (!defined($info_default_current_node)); |
| |
return info_default_store_text(undef,undef,'anchor',{'anchor_reference' => $anchor_reference}); |
| |
} |
| |
|
| |
sub info_default_acronym_like($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $acronym_texi = shift; |
| |
my $acronym_text = shift; |
| |
my $with_explanation = shift; |
| |
my $explanation_lines = shift; |
| |
my $explanation_text = shift; |
| |
my $explanation_simply_formatted = shift; |
| |
|
| |
if ($with_explanation) |
| |
{ |
| |
return "$acronym_text ($explanation_text)"; |
| |
} |
| |
else |
| |
{ |
| |
return "$acronym_text"; |
| |
} |
| |
} |
| |
|
| |
|
| |
sub info_default_print_page_foot($) |
| |
{ |
| |
my $fh = shift; |
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
my $info_state = info_default_get_state ($state); |
| |
my $indirect = 0; |
| |
if (!defined ($info_state->{'pending_tags'})) |
| |
{ # i18n |
| |
main::document_warn ("Document without nodes."); |
| |
} |
| |
else |
| |
{ |
| |
$indirect = 1 if ($info_default_out_file_nr > 1); |
| |
if ($indirect) |
| |
{ |
| |
close ($Texi2HTML::THISDOC{'FH'}); |
| |
unless (rename ("$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'filename'}->{'top'}", "$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'filename'}->{'top'}-1")) |
| |
{ |
| |
main::document_warn ("Rename $Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'filename'}->{'top'} failed: $!"); |
| |
} |
| |
|
| |
my $INDIRECT = main::open_out("$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'filename'}->{'top'}"); |
| |
print $INDIRECT "".info_default_header(); |
| |
print $INDIRECT "\x{1F}\nIndirect:"; |
| |
foreach my $indirect (@info_default_pending_indirect) |
| |
{ |
| |
print $INDIRECT "\n$indirect->{'file'}: $indirect->{'offset'}"; |
| |
} |
| |
$fh = $INDIRECT; |
| |
} |
| |
# makeinfo seems to add systematically an additional \n, done just below |
| |
print $fh "\n\x{1F}\nTag Table:\n"; |
| |
|
| |
if ($indirect) |
| |
{ |
| |
print $fh "(Indirect)\n"; |
| |
} |
| |
my $Top_seen; |
| |
foreach my $element (@{$info_state->{'pending_tags'}}) |
| |
{ |
| |
my $prefix; |
| |
$prefix = 'Node' if ($element->{'node'}); |
| |
$prefix = 'Ref' if ($element->{'anchor'} or $element->{'float'}); |
| |
print $fh "$prefix: $element->{'text'}\x{7F}$element->{'info_offset'}\n"; |
| |
$Top_seen = 1 if ($element->{'text'} =~ /^top$/i); |
| |
} |
| |
if (!$Top_seen) |
| |
{# i18n |
| |
main::document_warn ("Document without Top node."); |
| |
} |
| |
print $fh "\x{1F}\nEnd Tag Table\n"; |
| |
} |
| |
|
| |
# IN_ENCODING is the documentencoding transformed to the encoding names |
| |
# usually seen in html. This is what the info readers should understand. |
| |
my $coding = get_conf('IN_ENCODING'); |
| |
$coding = get_conf('DOCUMENT_ENCODING') if (!defined($coding)); |
| |
if (defined($coding)) |
| |
{ |
| |
print $fh "\n\x{1F}\nLocal Variables:\ncoding: $coding\nEnd:\n"; |
| |
} |
| |
} |
| |
|
| |
sub info_default_print_Top_footer($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $end_page = shift; |
| |
my $element = shift; |
| |
if ($end_page) |
| |
{ |
| |
&$print_page_foot($fh); |
| |
} |
| |
info_default_end_section($fh, $end_page, $element); |
| |
} |
| |
|
| |
sub info_default_footnote_texi($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $state = shift; |
| |
my $style_stack = shift; |
| |
|
| |
unless ($state->{'outside_document'} or (defined($state->{'multiple_pass'}) and $state->{'multiple_pass'} > 0)) |
| |
{ |
| |
$info_default_footnote_index++; |
| |
} |
| |
my $footnote_number = $info_default_footnote_index; |
| |
$footnote_number = $NO_NUMBER_FOOTNOTE_SYMBOL if (!$NUMBER_FOOTNOTES); |
| |
return "($footnote_number) $text"; |
| |
#return undef; |
| |
} |
| |
|
| |
sub info_default_print_section |
| |
{ |
| |
my $fh = shift; |
| |
my $first_in_page = shift; |
| |
my $previous_is_top = shift; |
| |
my $element = shift; |
| |
my $nw = main::print_lines($fh); |
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
my $info_state = info_default_get_state ($state); |
| |
if (!$info_state->{'blank_line'}) |
| |
{ |
| |
my $end = "\n"; |
| |
$info_state->{'offset_in_file'} += info_default_byte_count($end); |
| |
$info_state->{'line_count'}++; |
| |
print $fh "$end"; |
| |
} |
| |
if (@info_default_pending_footnotes) |
| |
{ |
| |
my $footnote_text; |
| |
my $footnote_element; |
| |
if (get_conf('footnotestyle') eq 'separate') |
| |
{ |
| |
my $node_ref = $info_default_current_node; |
| |
# thee is a warning when processing the footnote, like |
| |
# "Footnote defined without parent node" |
| |
$node_ref = {'text' => 'no node', 'file' => ''} if (!defined($node_ref)); |
| |
$footnote_element = { 'NodeUp' => $node_ref, |
| |
'text' => $node_ref->{'text'} . "-Footnotes", |
| |
'file' => $node_ref->{'file'}, |
| |
'info_offset' => $info_state->{'offset_in_file'}, |
| |
'node' => 1, |
| |
}; |
| |
$footnote_element->{'element_ref'} = $footnote_element; |
| |
push @{$info_state->{'pending_tags'}}, $footnote_element; |
| |
$footnote_text = info_default_node_line($footnote_element, $info_state); |
| |
} |
| |
else |
| |
{ # FIXME i18n? |
| |
$footnote_text = " ---------- Footnotes ----------\n\n"; |
| |
$info_state->{'offset_in_file'} += info_default_byte_count($footnote_text); |
| |
$info_state->{'line_count'} += 2; |
| |
#print STDERR "MMMMMMMMMMMMMMMMMM $info_state->{'line_count'}\n"; |
| |
} |
| |
while (@info_default_pending_footnotes) |
| |
{ |
| |
#push @info_default_pending_footnotes, [$lines, $footnote_text, ${info_default_footnote_index}, $node_name, $footnote_info_state]; |
| |
my $footnote = shift @info_default_pending_footnotes; |
| |
my $foot_nr = $footnote->{'footnote_index'}; |
| |
my $node_name = $footnote->{'node_name'}; |
| |
my $lines = $footnote->{'lines'}; |
| |
push @{$info_state->{'pending_tags'}}, {'anchor' => 1, 'text' => "${node_name}-Footnote-${foot_nr}", 'info_offset' => $info_state->{'offset_in_file'} }; |
| |
my $footnote_info_state = $footnote->{'footnote_info_state'}; |
| |
my $footnote_result = shift @{$lines}; |
| |
# this is used to keep track of the size when there were |
| |
# leading spaces that will be removed below. This is only used |
| |
# to get the difference, the value itself is not of use. |
| |
my $initial_length = info_default_byte_count($footnote_result); |
| |
|
| |
$footnote_result =~ s/^\s*//; |
| |
#$footnote_result = " ($foot_nr) " . $footnote_result; |
| |
$footnote_result = ' ' x get_conf('paragraphindent') . $footnote_result; |
| |
foreach my $footnote_pending_tags(@{$footnote_info_state->{'pending_tags'}}) |
| |
{ |
| |
$footnote_pending_tags->{'info_offset'} += $info_state->{'offset_in_file'} + info_default_byte_count($footnote_result) - $initial_length; |
| |
push @{$info_state->{'pending_tags'}}, $footnote_pending_tags; |
| |
} |
| |
foreach my $footnote_pending_index_entry(@{$footnote_info_state->{'pending_index_entries'}}) |
| |
{ |
| |
#print STDERR "TTTTTTTTTTT($footnote_pending_index_entry->{'index_entry_reference'}->{'entry'}) $footnote_pending_index_entry->{'line_nr'} $info_state->{'line_count'}\n"; |
| |
$footnote_pending_index_entry->{'line_nr'} += $info_state->{'line_count'}; |
| |
$footnote_pending_index_entry->{'index_entry_reference'}->{'real_element'} = $footnote_element if (get_conf('footnotestyle') eq 'separate'); |
| |
} |
| |
my $line; |
| |
while (@$lines) |
| |
{ |
| |
$line = shift @$lines; |
| |
$footnote_result .= $line; |
| |
} |
| |
my ($line_passed, $end_of_line, $last_line, $text_indented, $blank_line) = info_default_count_lines($footnote_result); |
| |
if ($line_passed == 0) |
| |
{# certainly out of paragraph commands |
| |
$footnote_result =~ s/\s*$//; |
| |
$footnote_result .= "\n"; |
| |
$line_passed = 1; |
| |
} |
| |
unless (($last_line !~ /\S/ and $end_of_line) or ($blank_line)) |
| |
{ |
| |
$footnote_result .= "\n"; |
| |
$line_passed += 1; |
| |
} |
| |
|
| |
$info_state->{'offset_in_file'} += info_default_byte_count($footnote_result); |
| |
$info_state->{'line_count'} += $line_passed; |
| |
$footnote_text .= $footnote_result; |
| |
} |
| |
print $fh "$footnote_text"; |
| |
} |
| |
} |
| |
|
| |
sub info_default_end_section($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $end_foot_navigation = shift; |
| |
my $element = shift; |
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
my $info_state = info_default_get_state ($state); |
| |
|
| |
if (defined($Texi2HTML::THISDOC{'SPLIT_SIZE'}) and |
| |
$info_state->{'offset_in_file'} > ($info_default_out_file_nr) * $Texi2HTML::THISDOC{'SPLIT_SIZE'}) |
| |
{ |
| |
if ($info_default_out_file_nr == 1) |
| |
{ # push also the first node, which is always the first pending_tags |
| |
push @info_default_pending_indirect, {'file'=>"$Texi2HTML::THISDOC{'filename'}->{'top'}-$info_default_out_file_nr", 'offset' => $info_state->{'pending_tags'}->[0]->{'info_offset'} }; |
| |
} |
| |
$info_default_out_file_nr++; |
| |
# these file descriptors leak, but this allows the user to write a |
| |
# foot navigation himself, otherwise he would write on a closed file |
| |
# descriptor |
| |
#close($Texi2HTML::THISDOC{'FH'}); |
| |
if (!$end_foot_navigation) |
| |
{ |
| |
main::open_out_file("$Texi2HTML::THISDOC{'filename'}->{'top'}-$info_default_out_file_nr"); |
| |
#print STDERR "X-$info_default_out_file_nr: $info_state->{'offset_in_file'}\n"; |
| |
&$print_page_head($Texi2HTML::THISDOC{'FH'}); |
| |
push @info_default_pending_indirect, {'file'=>"$Texi2HTML::THISDOC{'filename'}->{'top'}-$info_default_out_file_nr", 'offset' => $info_state->{'offset_in_file'}}; |
| |
} |
| |
} |
| |
} |
| |
|
| |
sub info_default_one_section($$) |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
&$print_section($fh, 1, 0, $element); |
| |
&$print_page_foot($fh); |
| |
} |
| |
|
| |
sub info_default_begin_special_region($$$) |
| |
{ |
| |
my $region = shift; |
| |
my $state = shift; |
| |
my $lines = shift; |
| |
my $info_state = info_default_get_state ($state); |
| |
# reset paragraph_in_element_nr if out ofdocument formatting |
| |
if ($state->{'outside_document'}) |
| |
{ |
| |
$info_state->{'paragraph_in_element_nr'} = 0; |
| |
} |
| |
} |
| |
|
| |
sub info_default_end_special_region($$$) |
| |
{ |
| |
my $region = shift; |
| |
my $state = shift; |
| |
my $text = shift; |
| |
my $info_state = info_default_get_state ($state); |
| |
my $end = ''; |
| |
if (!$info_state->{'blank_line'}) |
| |
{ |
| |
$end = "\n"; |
| |
$info_state->{'offset_in_file'} += info_default_byte_count($end); |
| |
} |
| |
return $text.$end; |
| |
} |
| |
|
| |
sub info_default_menu_link($$$$$$$$) |
| |
{ |
| |
my $entry = shift; |
| |
my $state = shift; |
| |
my $href = shift; |
| |
my $node = shift; |
| |
my $title = shift; |
| |
my $ending = shift; |
| |
my $has_title = shift; |
| |
my $command_stack = shift; |
| |
my $preformatted = shift; |
| |
|
| |
$title = '' unless ($has_title); |
| |
$title .= ':' if ($title ne ''); |
| |
my $result = "$MENU_SYMBOL$title$node$ending"; |
| |
return info_default_store_text($state,$result,'menu_entry'); |
| |
} |
| |
|
| |
# not used, menu is a normal preformatted command |
| |
#sub info_default_menu_command($$$) |
| |
#{ |
| |
# my $format = shift; |
| |
# my $text = shift; |
| |
# my $in_preformatted = shift; |
| |
# return info_default_close_command(undef, $format, "* Menu:\n", undef, "\n"); |
| |
#} |
| |
|
| |
sub info_default_complex_format($$) |
| |
{ |
| |
my $name = shift; |
| |
my $text = shift; |
| |
my ($begin, $end); |
| |
if ($name eq 'menu') |
| |
{ |
| |
main::line_warn(__("\@menu before first node"), $Texi2HTML::THISDOC{'line_nr'}) if (!defined($info_default_current_node)); |
| |
$begin = "* Menu:\n\n"; |
| |
} |
| |
elsif ($name eq 'direntry') |
| |
{ |
| |
main::line_warn(__("\@direntry after first node"), $Texi2HTML::THISDOC{'line_nr'}) if (defined($info_default_current_node)); |
| |
$begin = "START-INFO-DIR-ENTRY\n"; |
| |
$end = "END-INFO-DIR-ENTRY\n"; |
| |
} |
| |
return info_default_close_command(undef, $name, $begin, $end); |
| |
} |
| |
|
| |
sub info_default_quotation($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $argument_text = shift; |
| |
my $argument_text_texi = shift; |
| |
my $authors = shift; |
| |
|
| |
my $attribution; |
| |
if ($authors) |
| |
{ |
| |
$attribution = ''; |
| |
foreach my $author (@$authors) |
| |
{ |
| |
my $author_texi = $author->{'author_texi'}; |
| |
chomp($author_texi); |
| |
$attribution .= gdt("\@center --- \@emph{{author}}\n", {'author' => $author_texi}, {'duplicate' => 1, 'allow_paragraph' => 1}); |
| |
} |
| |
} |
| |
|
| |
return info_default_close_command(undef, $command, undef, $attribution); |
| |
} |
| |
|
| |
sub info_default_misc_commands($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $args = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
|
| |
info_default_store_text($state,undef,$command) if ($command eq 'exdent' or $command eq 'noindent' or $command eq 'indent'); |
| |
return ($command, $line, undef); |
| |
} |
| |
|
| |
sub info_default_external_ref($$$$$$$$$) |
| |
{ |
| |
my $type = shift; |
| |
my $section = shift; |
| |
my $book = shift; |
| |
my $file = shift; |
| |
my $href = shift; |
| |
my $cross_ref = shift; |
| |
my $args_texi = shift; |
| |
my $formatted_args = shift; |
| |
my $node = shift; |
| |
|
| |
return info_default_inforef($formatted_args) if ($type eq 'inforef'); |
| |
return info_default_normal_reference($type, $formatted_args); |
| |
} |
| |
|
| |
sub info_default_internal_ref($$$$$$$$) |
| |
{ |
| |
my $type = shift; |
| |
my $href = shift; |
| |
my $short_name = shift; |
| |
my $name = shift; |
| |
my $is_section = shift; |
| |
my $args_texi = shift; |
| |
my $formatted_args = shift; |
| |
my $element = shift; |
| |
|
| |
$formatted_args->[1] = $name if ($element->{'float'} and (!defined($formatted_args->[1]) or $formatted_args->[1] eq '')); |
| |
return info_default_inforef($formatted_args) if ($type eq 'inforef'); |
| |
return info_default_normal_reference($type, $formatted_args); |
| |
} |
| |
|
| |
sub info_default_normal_reference($$) |
| |
{ |
| |
my $command = shift; |
| |
my $formatted_args = shift; |
| |
for (my $i = 0; $i < scalar(@$formatted_args); $i++) |
| |
{ |
| |
$formatted_args->[$i] = undef if (defined($formatted_args->[$i]) and |
| |
$formatted_args->[$i] =~ /^\s*$/); |
| |
} |
| |
my $node = $formatted_args->[0]; |
| |
# an error, should trigger the message: Undefined node `' in @ref. |
| |
# avoid undef value and use an empty string instead. |
| |
$node = '' if (!defined($node)); |
| |
my $name = $formatted_args->[1]; |
| |
$name = $formatted_args->[2] if (!defined($name)); |
| |
my $file = $formatted_args->[3]; |
| |
$file = '' if (!defined($file) and defined($formatted_args->[4])); |
| |
$name = $node if (!defined($name) and defined($file)); |
| |
my $result = '*note '; |
| |
$result = '*Note ' if ($command eq 'xref'); |
| |
if (defined($name)) |
| |
{ |
| |
$result .= "${name}: "; |
| |
$result .= "($file)" if (defined($file)); |
| |
$result .= "$node"; |
| |
$result .= '.' if ($command eq 'pxref'); |
| |
} |
| |
else |
| |
{ |
| |
$result .= "${node}::"; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub info_default_inforef($) |
| |
{ |
| |
my $formatted_args = shift; |
| |
return info_default_normal_reference('ref', [$formatted_args->[0], $formatted_args->[1], undef, $formatted_args->[2], 'dumb manual name']); |
| |
} |
| |
|
| |
sub info_default_image_files($$$$) |
| |
{ |
| |
my $base = shift; |
| |
my $extension = shift; |
| |
my $texi_base = shift; |
| |
my $texi_extension = shift; |
| |
my @files = (); |
| |
return @files if (!defined($base) or ($base eq '')); |
| |
|
| |
if (defined($extension) and ($extension ne '')) |
| |
{ |
| |
push @files, ["${base}$extension", "${texi_base}$extension"]; |
| |
push @files, ["$base.$extension", "$texi_base.$extension"]; |
| |
} |
| |
foreach my $ext (@IMAGE_EXTENSIONS) |
| |
{ |
| |
push @files, ["$base.$ext", "$texi_base.$ext"]; |
| |
} |
| |
return @files; |
| |
} |
| |
|
| |
sub info_default_image($$$$$$$$$$$$$$$$$) |
| |
{ |
| |
my $file = shift; |
| |
my $base = shift; |
| |
my $preformatted = shift; |
| |
my $file_name = shift; |
| |
my $alt = shift; |
| |
my $width = shift; |
| |
my $height = shift; |
| |
my $raw_alt = shift; |
| |
my $extension = shift; |
| |
my $working_dir = shift; |
| |
my $file_path = shift; |
| |
my $in_paragraph = shift; |
| |
my $file_locations = shift; |
| |
my $base_simple_format = shift; |
| |
my $extension_simple_format = shift; |
| |
my $file_name_simple_format = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my $txt_path; |
| |
my $found_file; |
| |
|
| |
my @extensions = @IMAGE_EXTENSIONS; |
| |
if (defined($extension) and ($extension ne '')) |
| |
{ |
| |
unshift @extensions, ".$extension"; |
| |
unshift @extensions, "$extension"; |
| |
} |
| |
else |
| |
{ |
| |
$extension = undef; |
| |
} |
| |
my $file_found_index = undef; |
| |
my $file_index = 0; |
| |
foreach my $file_location (@$file_locations) |
| |
{ |
| |
my ($file_located, $path, $file_simple_format) = @$file_location; |
| |
my $extension = shift @extensions; |
| |
if (defined($path)) |
| |
{ |
| |
if ($extension eq 'txt' and !defined($txt_path)) |
| |
{ |
| |
$txt_path = $path; |
| |
} |
| |
elsif (!defined($found_file)) |
| |
{ |
| |
$found_file = [$file_located, $extension, $file_simple_format]; |
| |
$file_found_index = $file_index; |
| |
} |
| |
} |
| |
$file_index++; |
| |
} |
| |
|
| |
my $text; |
| |
if (defined($txt_path)) |
| |
{ |
| |
if (open(TXT, "<$txt_path")) |
| |
{ |
| |
if (defined($Texi2HTML::THISDOC{'IN_ENCODING'}) and $USE_UNICODE) |
| |
{ |
| |
binmode(TXT, ":encoding($Texi2HTML::THISDOC{'IN_ENCODING'})"); |
| |
} |
| |
$text='[' if ($in_paragraph or $preformatted); |
| |
while (my $img_txt = <TXT>) |
| |
{ |
| |
$text .= $img_txt; |
| |
} |
| |
# remove last end of line |
| |
chomp ($text); |
| |
$text .= ']' if ($in_paragraph or $preformatted); |
| |
close(TXT); |
| |
} |
| |
else |
| |
{ |
| |
main::line_warn (sprintf(__("\@image file `%s' unreadable: %s"), $txt_path, $!), $line_nr); |
| |
} |
| |
} |
| |
elsif (!defined($found_file)) |
| |
{ |
| |
main::line_warn (sprintf(__("Cannot find \@image file `%s.txt'"), $base), $line_nr); |
| |
} |
| |
if (defined($found_file) and (!defined($extension) or $file_found_index <= 1)) |
| |
{ |
| |
my $filename = $found_file->[2]; |
| |
$filename =~ s/\\/\\\\/g; |
| |
$filename =~ s/\"/\\\"/g; |
| |
my $result = "\x{00}\x{08}[image src=\"$filename\""; |
| |
if (defined($alt)) |
| |
{ |
| |
$alt =~ s/\\/\\\\/g; |
| |
$alt =~ s/\"/\\\"/g; |
| |
$result .= " alt=\"$alt\""; |
| |
} |
| |
if (defined($text)) |
| |
{ |
| |
$text =~ s/\\/\\\\/g; |
| |
$text =~ s/\"/\\\"/g; |
| |
$result .= " text=\"$text\""; |
| |
} |
| |
$result .= "\x{00}\x{08}]"; |
| |
return $result; |
| |
} |
| |
return $text if (defined($text)); |
| |
return ''; |
| |
} |
| |
|
| |
sub info_default_printindex($$) |
| |
{ |
| |
my $index_name = shift; |
| |
my $printindex = shift; |
| |
%info_default_index_entries_counts = (); |
| |
return info_default_store_text(undef,t2h_GPL_default_printindex($index_name,$printindex),'printindex'); |
| |
} |
| |
|
| |
sub info_default_print_index($$) |
| |
{ |
| |
my $text = shift; |
| |
my $name = shift; |
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
my $info_state = info_default_get_state ($state); |
| |
my $before = ''; |
| |
if (!$info_state->{'blank_line'}) |
| |
{ |
| |
$before = "\n"; |
| |
} |
| |
return $before if (!defined($text)); |
| |
my $result = "\x{00}\x{08}[index\x{00}\x{08}]\n* Menu:\n\n" .$text."\n"; |
| |
return $before.$result; |
| |
} |
| |
|
| |
sub info_default_index_letter($$$) |
| |
{ |
| |
my $letter = shift; |
| |
my $id = shift; |
| |
my $text = shift; |
| |
return $text; |
| |
} |
| |
|
| |
sub info_default_index_entry_label($$$$$$$$$) |
| |
{ |
| |
my $identifier = shift; |
| |
my $preformatted = shift; |
| |
my $entry = shift; |
| |
my $index_name = shift; |
| |
my $index_command = shift; |
| |
my $texi_entry = shift; |
| |
my $formatted_entry = shift; |
| |
my $in_region_not_in_output = shift; |
| |
my $index_entry_ref = shift; |
| |
|
| |
#return '' if ($index_entry_ref->{'hidden'}); |
| |
#return '' if (!$index_entry_ref->{'seen_in_output'} and defined($index_entry_ref->{'region'})); |
| |
return '' if ($in_region_not_in_output or !defined($index_entry_ref->{'index_name'})); |
| |
main::line_warn(sprintf(__("Entry for index `%s' outside of any node"), $index_entry_ref->{'index_name'}), $Texi2HTML::THISDOC{'line_nr'}) if (!defined($info_default_current_node) and !$Texi2HTML::THISDOC{'state'}->{'outside_document'}); |
| |
my $index_entry_stored = {'index_entry_reference' => $index_entry_ref, 'index_command' => $index_command, 'texi_entry' => $texi_entry}; |
| |
return info_default_store_text(undef, undef, 'index_label', $index_entry_stored); |
| |
} |
| |
|
| |
sub info_default_index_entry($$$$$$$$$$) |
| |
{ |
| |
my $text_href = shift; |
| |
my $entry = shift; |
| |
my $element_href = shift; |
| |
my $element_text = shift; |
| |
my $entry_file = shift; |
| |
my $current_element_file = shift; |
| |
my $entry_target = shift; |
| |
my $entry_element_target = shift; |
| |
my $in_region_not_in_output = shift; |
| |
my $index_entry_ref = shift; |
| |
|
| |
#return '' if ($index_entry_ref->{'hidden'}); |
| |
#return '' if (!$index_entry_ref->{'seen_in_output'} and defined($index_entry_ref->{'region'})); |
| |
return '' if ($in_region_not_in_output); |
| |
$entry = main::substitute_line($index_entry_ref->{'texi'}, "index entry in \@printindex"); |
| |
return '' if ($entry =~ /^\s*$/); |
| |
|
| |
my $entry_nr = ''; |
| |
if (!defined($info_default_index_entries_counts{$entry})) |
| |
{ |
| |
$info_default_index_entries_counts{$entry} = 0; |
| |
} |
| |
else |
| |
{ |
| |
$info_default_index_entries_counts{$entry} ++; |
| |
$entry_nr = ' <'.$info_default_index_entries_counts{$entry}.'>'; |
| |
} |
| |
|
| |
my $result = "* $entry${entry_nr}: "; |
| |
if (t2h_default_string_width($result) < $info_default_index_length_to_node) |
| |
{ |
| |
$result .= ' ' x($info_default_index_length_to_node - t2h_default_string_width($result)); |
| |
} |
| |
|
| |
#print STDERR "DDDDDDDDDDD $index_entry_ref `$index_entry_ref->{'texi'}'\n"; |
| |
my $info_index_entry_ref = $info_default_index_entries{$index_entry_ref}; |
| |
my $line_nr = $info_index_entry_ref->{'line_nr'}; |
| |
|
| |
my $real_element_text; |
| |
my $element = $index_entry_ref->{'real_element'}; |
| |
# in case $element->{'text'} is not defined, it certainly means that we |
| |
# are n a special elemet, most likely the virtual element appearing |
| |
# before anything else |
| |
if (!defined($element->{'text'})) |
| |
{ |
| |
$real_element_text = gdt('(outside of any node)'); |
| |
$line_nr = 0; |
| |
} |
| |
else |
| |
{ |
| |
$element = $element->{'element_ref'} if ($element->{'element_ref'}); |
| |
$real_element_text = $element->{'text'}; |
| |
# this happens for index entries appearing after @printindex. In that case |
| |
# it is considered that they are at the beginning of the node. |
| |
$line_nr = 3 if (defined($line_nr) and $line_nr < 3); |
| |
$line_nr = 4 if (!defined($line_nr)); |
| |
} |
| |
$result .= $real_element_text . '.'; |
| |
my $max_len = $info_default_index_line_string_length{$index_entry_ref->{'index_name'}}; |
| |
$max_len = t2h_default_string_width($line_nr) if (!defined($max_len)); |
| |
my $line_nr_spaces = sprintf("%${max_len}d", $line_nr); |
| |
my $line_part = "(line ${line_nr_spaces})"; |
| |
#print STDERR "GGGGGGGGGG name: $index_entry_ref->{'index_name'} max: ${max_len} line_nr: `$line_nr' line_nr_spaces `$line_nr_spaces' $line_part \n"; |
| |
if (t2h_default_string_width($result)+t2h_default_string_width($line_part) +1 > get_conf('fillcolumn')) |
| |
{ |
| |
$result .= "\n" . ' ' x (get_conf('fillcolumn') - t2h_default_string_width($line_part)) ; |
| |
} |
| |
else |
| |
{ |
| |
$result .= ' ' x (get_conf('fillcolumn') - t2h_default_string_width($line_part) - t2h_default_string_width($result)); |
| |
} |
| |
$result .= "$line_part\n"; |
| |
|
| |
return $result; |
| |
} |
| |
|
| |
sub info_default_index_summary($$) |
| |
{ |
| |
my $alpha = shift; |
| |
my $nonalpha = shift; |
| |
|
| |
return ''; |
| |
} |
| |
|
| |
sub info_default_summary_letter |
| |
{ |
| |
return ''; |
| |
} |
| |
|
| |
sub info_default_foot_line_and_ref($$$$$$$$) |
| |
{ |
| |
my $foot_num = shift; |
| |
my $relative_num = shift; |
| |
my $footid = shift; |
| |
my $docid = shift; |
| |
my $from_file = shift; |
| |
my $footnote_file = shift; |
| |
my $lines = shift; |
| |
my $state = shift; |
| |
|
| |
my $footnote_state = $Texi2HTML::THISDOC{'state'}; |
| |
my $footnote_info_state = info_default_get_state ($footnote_state); |
| |
|
| |
my $footnote_text = "($info_default_footnote_index)"; |
| |
$footnote_text = "($NO_NUMBER_FOOTNOTE_SYMBOL)" if (!$NUMBER_FOOTNOTES); |
| |
my $node_name; |
| |
$node_name = ''; |
| |
if (defined($info_default_current_node)) |
| |
{ |
| |
$node_name = $info_default_current_node->{'text'}; |
| |
} |
| |
else |
| |
{ # i18n |
| |
# no warning when outside of document, for footnotes in |
| |
# titlepage and copying |
| |
main::line_error(__("Footnote defined without parent node"), $Texi2HTML::THISDOC{'line_nr'}) unless ($footnote_state->{'outside_document'}); |
| |
#print STDERR "".main::context_string()."\n"; |
| |
} |
| |
if (get_conf('footnotestyle') eq 'separate') |
| |
{ |
| |
$footnote_text .= ' (' . info_default_normal_reference('pxref', ["${node_name}-Footnote-${info_default_footnote_index}"]) . ')'; |
| |
} |
| |
push @info_default_pending_footnotes, {'lines' => $lines, |
| |
'footnote_text' => $footnote_text, |
| |
'footnote_index' => ${info_default_footnote_index}, |
| |
'node_name' => $node_name, |
| |
'footnote_info_state' => $footnote_info_state} |
| |
unless ($state->{'outside_document'} or (defined($state->{'multiple_pass'}) and $state->{'multiple_pass'} > 0)); |
| |
return ([], $footnote_text); |
| |
} |
| |
|
| |
sub info_default_foot_lines($) |
| |
{ |
| |
my $lines = shift; |
| |
#my $state = $Texi2HTML::THISDOC{'state'}; |
| |
#my $info_state = info_default_get_state ($state); |
| |
@$lines = (); |
| |
} |
| |
|
| |
# remark: table_item is the html one, but it gets added to the table text |
| |
# on the stack, and is ignored there (in info_default_format). |
| |
sub info_default_format_list_item_texi($$$$) |
| |
{ |
| |
my $format = shift; |
| |
my $line = shift; |
| |
my $prepended = shift; |
| |
my $command = shift; |
| |
my $number = shift; |
| |
|
| |
my $open_command = 0; |
| |
my $result_line; |
| |
$command = 'bullet' if ((!defined($command) or $command eq '') and (!defined($prepended) or $prepended eq '') and $format eq 'itemize'); |
| |
$prepended = "\@$command\{\}" if (defined($command) and $command ne ''); |
| |
$prepended = "$number." if (defined($number) and $number ne ''); |
| |
|
| |
$line =~ s/^\s*//; |
| |
|
| |
if (defined($command) and $command ne '' and $format ne 'itemize') |
| |
{ |
| |
#@*table |
| |
$line =~ s/\s*$//; |
| |
if (exists ($style_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{$line\}\n"; |
| |
} |
| |
elsif (exists ($things_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{\} $line\n"; |
| |
} |
| |
else |
| |
{ |
| |
$result_line = "\@$command $line\n"; |
| |
} |
| |
} |
| |
# elsif (defined($prepended) and $prepended ne '') |
| |
# { # @enumerate and @itemize |
| |
# $prepended =~ s/^\s*//; |
| |
# $prepended =~ s/\s*$//; |
| |
# $result_line = $prepended . ' ' . $line; |
| |
# } |
| |
|
| |
return ($result_line, $open_command); |
| |
} |
| |
|
| |
sub info_default_list_item($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $format = shift; |
| |
my $command = shift; |
| |
my $formatted_command = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
my $item_command = shift; |
| |
|
| |
# my $prepend = ''; |
| |
# if (defined($formatted_command) and $formatted_command ne '') |
| |
# { |
| |
# $prepend = $formatted_command; |
| |
# } |
| |
# return $prepend . $text; |
| |
# $command = 'bullet' if ((!defined($command) or $command eq '') and (!defined($prepended) or $prepended eq '') and $format eq 'itemize'); |
| |
$formatted_command = $things_map{'bullet'} if ((!defined($command) or $command eq '') and (!defined($prepended) or $prepended eq '') and $format eq 'itemize'); |
| |
|
| |
if ($format !~ /table$/) |
| |
{ |
| |
my $result = ''; |
| |
if ($format eq 'enumerate') |
| |
{ |
| |
$result = $number.'.'; |
| |
} |
| |
elsif ($format eq 'itemize') |
| |
{ |
| |
if (defined($formatted_command) and $formatted_command ne '') |
| |
{ |
| |
$result = $formatted_command; |
| |
} |
| |
elsif (defined ($prepended_formatted) and $prepended_formatted ne '') |
| |
{ |
| |
$prepended_formatted =~ s/^\s*//; |
| |
$prepended_formatted =~ s/\s*$//; |
| |
$result = $prepended_formatted; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$result = ''; |
| |
} |
| |
$result .= ' ' if ($result ne ''); |
| |
return info_default_close_command (undef, $item_command, $result); |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
sub info_default_format($$$) |
| |
{ |
| |
my $tag = shift; |
| |
my $element = shift; |
| |
my $text = shift; |
| |
|
| |
# currently no command has something else than '' as $element. |
| |
# notice that any text is discarded |
| |
$element = undef if ($element eq ''); |
| |
my $element_end = $element; |
| |
if (defined($element) and $element =~ /^(\w+)(\s+)(.+)/) |
| |
{ |
| |
$element = $1; |
| |
$element_end = $2; |
| |
} |
| |
return info_default_close_command(undef, $tag, $element, $element_end); |
| |
} |
| |
|
| |
sub info_default_tab_item_texi($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $commands_stack = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line = shift; |
| |
my $line_nr = shift; |
| |
|
| |
$line =~ s/^\s*//; |
| |
my $format; |
| |
my $info_state = info_default_get_state ($state); |
| |
#$format = $commands_stack->[-1] if (defined($commands_stack) and @$commands_stack and $commands_stack->[-1]); |
| |
my ($parent_format, $in_format) = info_default_parent_format($info_state->{'current'}); |
| |
print STDERR "Not in_format in info_default_tab_item_texi\n" if (!$in_format); |
| |
$format = $parent_format->{'command'}; |
| |
# in case of an @item or @tab outside of any format $format will be |
| |
# undefined, or not multitable for a @tab. |
| |
# however the main program still do as if something was opened, plus |
| |
# it is checked there that the nesting is correct |
| |
#return $line if (!defined($format) or $command eq 'tab' and $format ne 'multitable'); |
| |
#print STDERR "tab_item_texi $format $command $commands_stack, $stack, $state, $line, ".main::format_line_number($line_nr)."\n"; |
| |
if ($format eq 'multitable') |
| |
{ # even if it is a tab, if it is not already in a multitable_row, one |
| |
# should be started |
| |
if ($command ne 'tab' or $info_state->{'current'}->{'command'} ne 'multitable_row') |
| |
{ |
| |
info_default_open_command($state, 'multitable_row'); |
| |
} |
| |
info_default_open_command($state, 'multitable_cell'); |
| |
} |
| |
elsif ($format =~ /table$/) |
| |
{ |
| |
info_default_store_text ($state, undef, $command, {'format_name' => $format}); |
| |
} |
| |
else |
| |
{ |
| |
info_default_open_command ($state, $command, {'format_name' => $format}); |
| |
} |
| |
# this should have already been done for @item when the line |
| |
# is modified by the @-command and so on. |
| |
return $line; |
| |
} |
| |
|
| |
sub info_default_sp($$) |
| |
{ |
| |
my $number = shift; |
| |
my $preformatted = shift; |
| |
my $result = "\n" x $number; |
| |
return info_default_store_text(undef,$result,'sp'); |
| |
} |
| |
|
| |
sub info_default_paragraph_style_command($$) |
| |
{ |
| |
my $format = shift; |
| |
my $text = shift; |
| |
return info_default_close_command(undef, $format); |
| |
} |
| |
|
| |
sub info_default_row($$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $macro = shift; |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
#print STDERR "info_default_row: $text\n"; |
| |
|
| |
return info_default_close_command(undef, 'multitable_row', undef, undef, {'item_command' => $macro}); |
| |
} |
| |
|
| |
sub info_default_cell($$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $row_macro = shift; |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
# in general, when before_items, there will be no call to the function |
| |
# since there should never be a text sent back, so that this |
| |
# function will not be called for the first row (the multitable title). |
| |
# However, if there is a @tab before the first @item, the main program |
| |
# is less careful and closes the cell in any case, so before_items |
| |
# has to be checked for that case. |
| |
return info_default_close_command(undef, 'multitable_cell') unless ($before_items); |
| |
} |
| |
|
| |
sub info_default_table_list($$$$$$$$$) |
| |
{ |
| |
my $format_command = shift; |
| |
my $text = shift; |
| |
my $command = shift; |
| |
my $formatted_command = shift; |
| |
# enumerate |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
# itemize |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
# multitable |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
|
| |
die "BUG: $format_command item_nr undef\n" if (!defined($item_nr)); |
| |
|
| |
return info_default_close_command(undef, $format_command, undef, undef, {'total_item_nr' => $item_nr}) if ($format_command ne 'multitable'); |
| |
|
| |
my $columnsize = []; |
| |
if (defined($prototype_lengths) and @$prototype_lengths) |
| |
{ |
| |
$columnsize = [ @$prototype_lengths ]; |
| |
} |
| |
elsif (defined($columnfractions) and @$columnfractions) |
| |
{ |
| |
foreach my $fraction (@$columnfractions) |
| |
{ |
| |
push @$columnsize, int($fraction * get_conf('fillcolumn') +0.5); |
| |
} |
| |
} |
| |
else |
| |
{ # empty multitable |
| |
#print STDERR "Empty multitable?\n"; |
| |
} |
| |
|
| |
return info_default_close_command(undef, $format_command, undef, undef, {'columns_size' => $columnsize, 'total_item_nr' => $item_nr}); |
| |
} |
| |
|
| |
sub info_default_def_item($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $command = shift; |
| |
|
| |
my $format = 'deff_item'; |
| |
$format = 'deff_itemx' if ($command =~ /x$/); |
| |
return info_default_close_command(undef, $format); |
| |
} |
| |
|
| |
sub info_default_def_line($$$$$$$$$$$$$$$$) |
| |
{ |
| |
my $category_prepared = shift; |
| |
my $name = shift; |
| |
my $type = shift; |
| |
my $arguments = shift; |
| |
my $index_label = shift; |
| |
my $arguments_array = shift; |
| |
my $arguments_type_array = shift; |
| |
my $unformatted_arguments_array = shift; |
| |
my $command = shift; |
| |
my $class_name = shift; |
| |
my $category = shift; |
| |
my $class = shift; |
| |
my $style = shift; |
| |
my $original_command = shift; |
| |
|
| |
$name = '' if (!defined($name) or ($name =~ /^\s*$/)); |
| |
$type = '' if (!defined($type) or $type =~ /^\s*$/); |
| |
$arguments = '' if (!defined($arguments) or $arguments =~ /^\s*$/); |
| |
|
| |
my $type_name = ''; |
| |
$type_name .= "$type " if ($type ne ''); |
| |
$type_name .= $name if ($name ne ''); |
| |
|
| |
my $result = " -- $category_prepared: ${type_name}$arguments"; |
| |
$result =~ s/\s*$//; |
| |
$result .= "\n"; |
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
info_default_store_text(undef,$result,"${command}_line",{'definition_line' => 1}); |
| |
my $format = 'deff_item'; |
| |
$format = 'deff_itemx' if ($original_command =~ /x$/); |
| |
return info_default_open_command($state, $format); |
| |
} |
| |
|
| |
sub info_default_def($$) |
| |
{ |
| |
my $text = shift; |
| |
my $command = shift; |
| |
return info_default_close_command(undef, $command); |
| |
} |
| |
|
| |
sub info_default_float($$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $float = shift; |
| |
my $caption = shift; |
| |
my $shortcaption = shift; |
| |
|
| |
my $additional_arguments; |
| |
if (exists($float->{'id'})) |
| |
{ |
| |
$additional_arguments->{'anchor_reference'} = $float; |
| |
main::line_warn(__("float reference outside of any node, it won't be registered"), $Texi2HTML::THISDOC{'line_nr'}) if (!defined($info_default_current_node) and !$Texi2HTML::THISDOC{'state'}->{'outside_document'}); |
| |
} |
| |
my $caption_text = ''; |
| |
|
| |
if (defined($float->{'caption_texi'})) |
| |
{ |
| |
$caption_text = $caption; |
| |
} |
| |
elsif (defined($float->{'shortcaption_texi'})) |
| |
{ |
| |
$caption_text = $shortcaption; |
| |
} |
| |
elsif (defined($caption)) |
| |
{ |
| |
$caption_text = $caption; |
| |
} |
| |
|
| |
#return $caption_text; |
| |
return info_default_close_command(undef, 'float', undef, $caption_text, $additional_arguments); |
| |
} |
| |
|
| |
sub info_default_listoffloats_entry($$$$) |
| |
{ |
| |
my $style_texi = shift; |
| |
my $float = shift; |
| |
my $float_style = shift; |
| |
my $caption = shift; |
| |
my $href = shift; |
| |
|
| |
my @lines = split /^/, $caption; |
| |
$caption = $lines[0]; |
| |
$caption = '' if (!defined($caption)); |
| |
chomp ($caption); |
| |
|
| |
my $result = ''; |
| |
#$caption .= ':' if ($caption ne ''); |
| |
my $caption_entry = "* $float_style: $float->{'text'}."; |
| |
if (t2h_default_string_width($caption_entry) > $info_default_listoffloat_caption_entry_length) |
| |
{ |
| |
$caption_entry .= "\n" . ' ' x $info_default_listoffloat_caption_entry_length; |
| |
} |
| |
else |
| |
{ |
| |
$caption_entry .= ' ' x ($info_default_listoffloat_caption_entry_length - length($caption_entry)); |
| |
} |
| |
my $width = $info_default_listoffloat_caption_entry_length; |
| |
while ($caption =~ s/^(\S+\s*)//) |
| |
{ |
| |
my $new_word = $1; |
| |
if ((t2h_default_string_width($new_word) + $width) > get_conf('fillcolumn') - 3) |
| |
{ |
| |
$caption_entry .= $info_default_listoffloat_append; |
| |
last; |
| |
} |
| |
else |
| |
{ |
| |
$caption_entry .= $new_word; |
| |
$width += t2h_default_string_width($new_word); |
| |
} |
| |
} |
| |
return $caption_entry. "\n"; |
| |
} |
| |
|
| |
sub info_default_listoffloats($$$) |
| |
{ |
| |
my $style_texi = shift; |
| |
my $style = shift; |
| |
my $float_entries = shift; |
| |
|
| |
my $state = $Texi2HTML::THISDOC{'state'}; |
| |
my $info_state = info_default_get_state ($state); |
| |
my $result = "* Menu:\n\n"; |
| |
foreach my $float_entry (@$float_entries) |
| |
{ |
| |
$result .= $float_entry; |
| |
} |
| |
my ($parent_format, $in_format); |
| |
($parent_format, $in_format) = info_default_parent_format($info_state->{'current'}); |
| |
#print STDERR "\@listoffloats not at top level\n" if ($in_format); |
| |
info_default_increment_paragraph ($in_format, $parent_format, $info_state, 'listoffloats'); |
| |
return info_default_store_text($state,$result,'listoffloats'); |
| |
} |
| |
|
| |
sub info_default_raw($$) |
| |
{ |
| |
my $style = shift; |
| |
my $text = shift; |
| |
my $expanded = 1 if (grep {$style eq $_} @EXPAND); |
| |
# no warning for unknown raw formats |
| |
if ($style eq 'verbatim' or $style eq 'verbatiminclude' or $expanded) |
| |
{ |
| |
return info_default_store_text(undef, $text, $style, {'raw_command' => 1}); |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub info_default_line_command($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $arg_text = shift; |
| |
my $arg_texi = shift; |
| |
my $state = shift; |
| |
|
| |
main::line_warn(__("\@dircategory after first node"), $Texi2HTML::THISDOC{'line_nr'}) if (defined($info_default_current_node)); |
| |
return '' if ($arg_text eq ''); |
| |
$info_default_dir_specification .= "INFO-DIR-SECTION $arg_text\n"; |
| |
return ''; |
| |
} |
| |
|
| |
sub info_default_unknown_style($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $state = shift; |
| |
my $no_close = shift; |
| |
my $no_open = shift; |
| |
|
| |
my ($result, $result_text, $message); |
| |
$result_text = info_default_close_command(undef, $command, undef, undef, undef); |
| |
$message = "Unknown command with braces `\@$command'" if (!$no_open); |
| |
return (1, $result_text, $message); |
| |
} |
| |
|
| |
1; |
| |
|
| |
require "$T2H_HOME/formats/info.init" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/formats/info.init" && -r "$T2H_HOME/formats/info.init"); |
| |
|
| |
# @INIT_DOCBOOK@ |
| |
#+############################################################################## |
| |
# |
| |
# docbook.init: convert to docbook |
| |
# |
| |
# Copyright (C) 2008, 2009 Patrice Dumas <pertusus@free.fr> |
| |
# |
| |
# This program is free software; you can redistribute it and/or modify |
| |
# it under the terms of the GNU General Public License as published by |
| |
# the Free Software Foundation; either version 2 of the License, or |
| |
# (at your option) any later version. |
| |
# |
| |
# This program is distributed in the hope that it will be useful, |
| |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
| |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| |
# GNU General Public License for more details. |
| |
# |
| |
# You should have received a copy of the GNU General Public License |
| |
# along with this program; if not, write to the Free Software |
| |
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
| |
# 02110-1301 USA |
| |
# |
| |
#-############################################################################## |
| |
|
| |
|
| |
# regarding sections and nodes, in docbook we don't care at all about the |
| |
# splitting done in the main program. When there is a node, it is recorded as |
| |
# being pending. When there is a section it is opened, and closed when |
| |
# there is the next section or end of file. |
| |
|
| |
use strict; |
| |
|
| |
my %docbook_complex_format; |
| |
my $kept_footnote_function; |
| |
my $docbook_in_footnote; |
| |
my %docbook_sections; |
| |
my %def_format_docbook; |
| |
my %def_argument_types_docbook; |
| |
|
| |
my $docbook_pending_node_id; |
| |
my $docbook_current_section; |
| |
my @docbook_multitable_stack = (); |
| |
my @docbook_table_stack = (); |
| |
my @docbook_special_quotation; |
| |
|
| |
|
| |
sub docbook_default_load(;$) |
| |
{ |
| |
my $from_command_line = shift; |
| |
|
| |
t2h_default_set_variables_xml(); |
| |
$DOCTYPE = '<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.2//EN" "http://www.oasis-open.org/docbook/xml/4.2/docbookx.dtd" [ |
| |
<!ENTITY tex "TeX"> |
| |
<!ENTITY latex "LaTeX"> |
| |
]>'; |
| |
@T2H_FORMAT_EXPAND = ('docbook'); |
| |
@IMAGE_EXTENSIONS = ('eps', 'gif', 'jpg', 'jpeg', 'pdf', 'png', 'svg', 'txt'); |
| |
$INLINE_INSERTCOPYING = 1; |
| |
# this should lead to end_section being only called at the end of sectioning |
| |
$USE_NODES = 0; |
| |
$USE_SECTIONS = 1; |
| |
|
| |
$SHOW_MENU = 0; |
| |
$SHOW_TITLE = 0; |
| |
$HEADERS = 0; |
| |
# certainly irrelevant |
| |
$SIMPLE_MENU = 0; |
| |
|
| |
t2h_default_push_handler(\&docbook_initialize_variables, \@command_handler_init); |
| |
|
| |
%style_map = (); |
| |
t2h_default_copy_style_map (\%default_style_map, \%style_map); |
| |
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents)) |
| |
{ |
| |
$style_map{$accent_command} = { 'function' => \&xml_default_accent }; |
| |
} |
| |
|
| |
delete $style_map{'sc'}->{'inline_attribute'}; |
| |
# FIXME there is a code element in v4.3 |
| |
$style_map{'code'}->{'inline_attribute'} = 'literal'; |
| |
$style_map{'strong'}->{'inline_attribute'} = 'emphasis role="bold"'; |
| |
$style_map{'kbd'}->{'inline_attribute'} = 'userinput'; |
| |
$style_map{'w'}->{'end'} = '<!-- /@w -->'; |
| |
$style_map{'='}->{'function'} = \&docbook_macron; |
| |
$style_map{'b'}->{'inline_attribute'} = 'emphasis role="bold"'; |
| |
$style_map{'cite'}->{'inline_attribute'} = 'citetitle'; |
| |
$style_map{'command'}->{'inline_attribute'} = 'command'; |
| |
$style_map{'dfn'}->{'inline_attribute'} = 'firstterm'; |
| |
$style_map{'emph'}->{'inline_attribute'} = 'emphasis'; |
| |
$style_map{'env'}->{'inline_attribute'} = 'envar'; |
| |
$style_map{'file'}->{'inline_attribute'} = 'filename'; |
| |
$style_map{'i'}->{'inline_attribute'} = 'wordasword'; |
| |
$style_map{'key'}->{'inline_attribute'} = 'keycap'; |
| |
delete $style_map{'key'}->{'begin'}; |
| |
delete $style_map{'key'}->{'end'}; |
| |
$style_map{'option'}->{'inline_attribute'} = 'option'; |
| |
$style_map{'t'}->{'inline_attribute'} = 'literal'; |
| |
delete $style_map{'sansserif'}->{'inline_attribute'}; |
| |
delete $style_map{'r'}->{'inline_attribute'}; |
| |
$style_map{'indicateurl'}->{'inline_attribute'} = 'wordasword'; |
| |
delete $style_map{'indicateurl'}->{'begin'}; |
| |
delete $style_map{'indicateurl'}->{'end'}; |
| |
$style_map{'var'}->{'inline_attribute'} = 'replaceable'; |
| |
delete $style_map{'verb'}->{'inline_attribute'}; |
| |
$style_map{'email'}->{'function'} = \&docbook_email; |
| |
$style_map{'math'}->{'function'} = \&docbook_math; |
| |
$style_map{'uref'}->{'function'} = \&docbook_uref; |
| |
$style_map{'url'}->{'function'} = \&docbook_uref; |
| |
$style_map{'titlefont'}->{'function'} = \&docbook_titlefont; |
| |
#$style_map{'samp'}->{'function'} = \&docbook_samp; |
| |
#delete $style_map{'samp'}->{'inline_attribute'}; |
| |
$style_map{'samp'}->{'inline_attribute'} = 'literal'; |
| |
$style_map{'samp'}->{'begin'} = '‘'; |
| |
$style_map{'samp'}->{'end'} = '’'; |
| |
|
| |
$kept_footnote_function = $style_map{'footnote'}->{'function'}; |
| |
$style_map{'footnote'}->{'function'} = \&docbook_footnote; |
| |
|
| |
foreach my $style (keys(%style_map)) |
| |
{ |
| |
delete ($style_map{$style}->{'quote'}); |
| |
} |
| |
|
| |
#use Data::Dumper; |
| |
%style_map_pre = (); |
| |
t2h_default_copy_style_map (\%style_map, \%style_map_pre); |
| |
|
| |
$style_map_pre{'r'}->{'inline_attribute'} = 'lineannotation'; |
| |
|
| |
$colon_command_punctuation_characters{'.'} = '.'; |
| |
$colon_command_punctuation_characters{':'} = ':'; |
| |
$colon_command_punctuation_characters{'?'} = '?'; |
| |
$colon_command_punctuation_characters{'!'} = '!'; |
| |
|
| |
$stop_paragraph_command{'titlefont'} = 0; |
| |
|
| |
# FIXME |
| |
#$no_paragraph_commands{'anchor'} = 0; |
| |
|
| |
# FIXME |
| |
delete $special_accents{'ringaccent'}; |
| |
$special_accents{'ogonek'} = 'aeiuAEIU'; |
| |
|
| |
%simple_map = %default_simple_map; |
| |
%simple_map_pre = %simple_map; |
| |
|
| |
# FIXME right? ł Ł |
| |
$things_map{'l'} = '/l'; |
| |
$things_map{'L'} = '/L'; |
| |
$things_map{'TeX'} = '&tex;'; |
| |
$things_map{'LaTeX'} = '&latex;'; |
| |
$things_map{'enddots'} = '….'; |
| |
$things_map{'minus'} = '−'; |
| |
# FIXME ∗ |
| |
$things_map{'point'} = '-!-'; |
| |
# FIXME ≡ |
| |
$things_map{'equiv'} = '=='; |
| |
# FIXME no ‹ nor › |
| |
$things_map{'guilsinglright'} = '>'; |
| |
$things_map{'guilsinglleft'} = '<'; |
| |
# The following is unneeded because normal_text is redefined. |
| |
# FIXME it should certainly be better to leave those substitutions, |
| |
# or even hardcodes them in normal_text. |
| |
# t2h_remove_text_substitutions("'", 1, 0, 0, 1); |
| |
# t2h_remove_text_substitutions('`', 1, 0, 0, 1); |
| |
|
| |
$things_map{'quotedblbase'} = '„'; |
| |
$things_map{'quotesinglbase'} = '‚'; |
| |
|
| |
%pre_map = %things_map; |
| |
|
| |
#delete $inter_item_commands{'cindex'}; |
| |
|
| |
#$no_paragraph_commands{'cindex'} = 0; |
| |
$no_paragraph_commands{'float'} = 0; |
| |
|
| |
%docbook_complex_format = ( |
| |
'example' => 'screen', |
| |
'smallexample' => 'screen', |
| |
'display' => 'literallayout', |
| |
'smalldisplay' => 'literallayout', |
| |
'lisp' => 'programlisting', |
| |
'smalllisp' => 'programlisting', |
| |
'format' => 'abstract', |
| |
'smallformat' => 'screen' |
| |
); |
| |
|
| |
%docbook_sections = ( |
| |
'top' => 'chapter', |
| |
'part' => 'part', |
| |
'chapter' => 'chapter', |
| |
'unnumbered' => 'chapter', |
| |
'centerchap' => 'chapter', |
| |
'appendix' => 'appendix', |
| |
'majorheading' => 'other', |
| |
'chapheading' => 'other', |
| |
'heading' => 'sect1', |
| |
'subheading' => 'sect2', |
| |
'subsubheading' => 'sect3', |
| |
2 => 'sect1', |
| |
3 => 'sect2', |
| |
4 => 'sect3' |
| |
); |
| |
|
| |
%def_format_docbook = ( |
| |
'deffn' => [ ['function', 'name'] ], |
| |
'defvr' => [ ['varname', 'name'] ], |
| |
'deftypefn' => [ [ 'returnvalue', 'type' ], ['function', 'name'] ], |
| |
'deftypeop' => [ ['returnvalue', 'type'], ['methodname', 'name'] ], |
| |
'deftypevr' => [ ['returnvalue', 'type'], ['varname', 'name'] ], |
| |
'defcv' => [ ['classname', 'class'], ['property', 'name'] ], |
| |
'deftypecv' => [ ['returnvalue', 'type'], ['property', 'name'] ], |
| |
'defop' => [ ['classname', 'class'], ['methodname', 'name'] ], |
| |
'deftp' => [ ['structname', 'name'] ] |
| |
); |
| |
|
| |
%def_argument_types_docbook = ( |
| |
'param' => 'replaceable', |
| |
'paramtype' => 'type', |
| |
'delimiter' => '' |
| |
); |
| |
|
| |
@docbook_special_quotation = ('note', 'caution', 'important', 'tip', 'warning'); |
| |
|
| |
$region_formats_kept{'copying'} = 1; |
| |
|
| |
%format_map = ( |
| |
'group' => '', |
| |
'raggedright' => '', |
| |
'copying' => 'copying', |
| |
); |
| |
|
| |
$print_Top = \&docbook_print_Top; |
| |
$print_Top_footer = \&docbook_print_Top_footer; |
| |
$print_page_head = \&docbook_print_page_head; |
| |
$print_foot_navigation = \&docbook_noop; |
| |
$contents = \&docbook_noop; |
| |
$shortcontents = \&docbook_noop; |
| |
$about_body = \&docbook_noop; |
| |
$print_page_foot = \&docbook_print_page_foot; |
| |
$end_section = \&docbook_end_section; |
| |
$one_section = \&docbook_one_section; |
| |
|
| |
$acronym_like = \&docbook_acronym_like; |
| |
$anchor_label = \&docbook_anchor_label; |
| |
$begin_format_texi = \&docbook_begin_format_texi; |
| |
$cartouche = \&docbook_cartouche; |
| |
$cell = \&docbook_cell; |
| |
$complex_format = \&docbook_complex_format; |
| |
$def = \&docbook_def; |
| |
$def_line = \&docbook_def_line; |
| |
$def_item = \&docbook_def_item; |
| |
$element_label = \&docbook_element_label; |
| |
$external_ref = \&docbook_external_ref; |
| |
$float = \&docbook_float; |
| |
$foot_line_and_ref = \&docbook_foot_line_and_ref; |
| |
$format = \&docbook_format; |
| |
$format_list_item_texi = \&docbook_format_list_item_texi; |
| |
$heading = \&docbook_heading; |
| |
$image = \&docbook_image; |
| |
$image_files = \&docbook_image_files; |
| |
$index_entry_command = \&docbook_index_entry_command; |
| |
$index_entry_label = \&docbook_index_entry_label; |
| |
$index_summary = \&docbook_index_summary; |
| |
$internal_ref = \&docbook_internal_ref; |
| |
$insertcopying = \&docbook_insertcopying; |
| |
$list_item = \&docbook_list_item; |
| |
$misc_element_label = \&docbook_noop; |
| |
$normal_text = \&docbook_normal_text; |
| |
$paragraph = \&docbook_paragraph; |
| |
$preformatted = \&docbook_preformatted; |
| |
$printindex = \&docbook_printindex; |
| |
$protect_text = \&xml_default_protect_text; |
| |
$quotation = \&docbook_quotation; |
| |
$quotation_prepend_text = \&docbook_quotation_prepend_text; |
| |
$listoffloats = \&docbook_noop; |
| |
$raw = \&docbook_raw; |
| |
$row = \&docbook_row; |
| |
$sp = \&docbook_sp; |
| |
$style = \&docbook_style; |
| |
$table_item = \&docbook_table_item; |
| |
$table_line = \&docbook_table_line; |
| |
$table_list = \&docbook_table_list; |
| |
$misc_command_line = \&docbook_misc_commands; |
| |
|
| |
|
| |
} |
| |
|
| |
sub docbook_footnote |
| |
{ |
| |
$docbook_in_footnote = 1; |
| |
my $result = &$kept_footnote_function(@_); |
| |
$docbook_in_footnote = 0; |
| |
return $result; |
| |
} |
| |
|
| |
sub docbook_macron($$) |
| |
{ |
| |
my $accent = shift; |
| |
my $args = shift; |
| |
return $args->[0] . "¯"; |
| |
} |
| |
|
| |
sub docbook_samp($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
return "‘<literal>$args->[0]</literal>’"; |
| |
} |
| |
|
| |
sub docbook_email($$) |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $mail = shift @$args; |
| |
my $text = shift @$args; |
| |
$mail = main::normalise_space($mail); |
| |
if (defined($text) and $text =~ /\S/) |
| |
{ |
| |
# FIXME normalise_space would be more legible. |
| |
#return docbook_add_id('ulink').' url="mailto:'.$mail.'">'.main::normalise_space($text).'</ulink>'; |
| |
return docbook_add_id('ulink').' url="mailto:'.$mail.'">'.$text.'</ulink>'; |
| |
} |
| |
return docbook_add_id('email').">$mail</email>"; |
| |
} |
| |
|
| |
sub docbook_uref($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $url = shift @$args; |
| |
my $text = shift @$args; |
| |
my $replacement = shift @$args; |
| |
$url = main::normalise_space($url); |
| |
$text = '' if (!defined($text)); |
| |
$replacement = '' if (!defined($replacement)); |
| |
$replacement = $text if ($replacement eq ''); |
| |
$replacement = $url if ($replacement eq ''); |
| |
$replacement = main::normalise_space($replacement); |
| |
|
| |
return docbook_add_id('ulink')." url=\"$url\">$replacement</ulink>"; |
| |
} |
| |
|
| |
# FIXME |
| |
sub docbook_titlefont($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
return "$args->[0]"; |
| |
} |
| |
|
| |
# FIXME there ought to be something better... Like use tex4ht mathml |
| |
# output or something like that |
| |
sub docbook_math($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $text = shift @$args; |
| |
return $text; |
| |
} |
| |
|
| |
|
| |
sub docbook_print_page_head($) |
| |
{ |
| |
my $fh = shift; |
| |
my $language = get_conf('documentlanguage'); |
| |
my $doctype = get_conf('doctype'); |
| |
print $fh <<EOT; |
| |
<?xml version="1.0"?> |
| |
$doctype |
| |
<book id="$Texi2HTML::THISDOC{file_base_name}.$EXTENSION" lang="$language"> |
| |
EOT |
| |
} |
| |
|
| |
sub docbook_print_page_foot($) |
| |
{ |
| |
my $fh = shift; |
| |
print $fh "". docbook_close_section(); |
| |
print $fh <<EOT; |
| |
</book> |
| |
EOT |
| |
} |
| |
|
| |
sub docbook_print_Top($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $has_top_heading = shift; |
| |
my $element = shift; |
| |
main::print_lines($fh, $Texi2HTML::THIS_SECTION); |
| |
} |
| |
|
| |
sub docbook_element_tag($) |
| |
{ |
| |
my $element = shift; |
| |
#print STDERR "$element->{'texi'}, $element->{'tag_level'}, $element->{'level'}\n"; |
| |
return $docbook_sections{$element->{'tag_level'}} if (exists($docbook_sections{$element->{'tag_level'}})); |
| |
return $docbook_sections{$element->{'level'}} if (exists($docbook_sections{$element->{'level'}})); |
| |
} |
| |
|
| |
sub docbook_node_id($) |
| |
{ |
| |
my $node_texi = shift; |
| |
my $node = main::substitute_line($node_texi, 'docbook node id', {'code_style' => 1, 'remove_texi' => 1}); |
| |
$node =~ s/[\s\"]/-/g; |
| |
return &$protect_text($node); |
| |
} |
| |
|
| |
sub docbook_initialize_variables() |
| |
{ |
| |
$docbook_pending_node_id = undef; |
| |
$docbook_current_section = undef; |
| |
@docbook_multitable_stack = (); |
| |
@docbook_table_stack = (); |
| |
$Texi2HTML::THISDOC{'SPLIT'} = 0 if ($OUTPUT_FORMAT eq 'docbook'); |
| |
} |
| |
|
| |
sub docbook_add_id($) |
| |
{ |
| |
my $element = shift; |
| |
my $result = "<$element"; |
| |
if (defined($docbook_pending_node_id) and (!$docbook_in_footnote or $element eq 'footnote')) |
| |
{ |
| |
$result .= " id=\"$docbook_pending_node_id\""; |
| |
$docbook_pending_node_id = undef; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub docbook_heading($$$$$) |
| |
{ |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $texi_line = shift; |
| |
my $line = shift; |
| |
my $in_preformatted = shift; |
| |
|
| |
if (defined($command) and $command =~ /heading/) |
| |
{ |
| |
my $text = ''; |
| |
if (defined($line)) |
| |
{ |
| |
$text = $line; |
| |
# this isn't done in main program in that case... |
| |
chomp ($text); |
| |
$text =~ s/^\s*//; |
| |
} |
| |
return docbook_add_id('bridgehead')." renderas=\"$docbook_sections{$command}\">$text</bridgehead>\n"; |
| |
} |
| |
|
| |
my $result = ''; |
| |
|
| |
# FIXME verify xreflabel |
| |
if ($command ne 'node') |
| |
{ |
| |
# close previous section |
| |
$result .= docbook_close_section(); |
| |
my $title = $element->{'text_nonumber'}; |
| |
my $label = ''; |
| |
my $xreflabel = ''; |
| |
if ($element->{'number'}) |
| |
{ |
| |
my $label_nr = $element->{'number'}; |
| |
#$label_nr =~ s/\.$//; |
| |
$label = $label_nr; |
| |
} |
| |
else |
| |
{ |
| |
my $xreftitle = $title; |
| |
$xreflabel = " xreflabel=\"$xreftitle\""; |
| |
} |
| |
$result .= docbook_add_id(docbook_element_tag($element) . " label=\"${label}\"${xreflabel}"); |
| |
$result .= ">\n<title>$title</title>\n"; |
| |
$docbook_current_section = $element; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub docbook_element_label($$$$) |
| |
{ |
| |
my $id = shift; |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $line = shift; |
| |
|
| |
if ($command eq 'node') |
| |
{ |
| |
$docbook_pending_node_id = docbook_node_id($element->{'texi'}); |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub docbook_paragraph($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $align = shift; |
| |
my $indent = shift; |
| |
my $paragraph_command = shift; |
| |
my $paragraph_command_formatted = shift; |
| |
my $paragraph_number = shift; |
| |
my $format = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $command_stack_at_end = shift; |
| |
my $command_stack_at_begin = shift; |
| |
|
| |
if (defined($paragraph_number) and defined($$paragraph_number)) |
| |
{ |
| |
$$paragraph_number++; |
| |
} |
| |
|
| |
# no para in multitables, caption and shortcaptions. |
| |
my $top_stack = ''; |
| |
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin)); |
| |
return $text if ($top_stack eq 'multitable' or $top_stack eq 'shortcaption' or $top_stack eq 'caption' or $top_stack eq 'documentdescription'); |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
#return docbook_add_id('para').">$text</para>"; |
| |
return "<para>$text</para>"; |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
|
| |
sub docbook_def_line($$$$$$$$$$$$$$$) |
| |
{ |
| |
my $category_prepared = shift; |
| |
my $name = shift; |
| |
my $type = shift; |
| |
my $arguments = shift; |
| |
my $index_label = shift; |
| |
my $arguments_array = shift; |
| |
my $arguments_type_array = shift; |
| |
my $unformatted_arguments_array = shift; |
| |
my $command = shift; |
| |
my $class_name = shift; |
| |
my $category = shift; |
| |
my $class = shift; |
| |
my $style = shift; |
| |
my $original_command = shift; |
| |
|
| |
my %unformatted_arguments = (); |
| |
|
| |
my @unformatted_args = @$unformatted_arguments_array; |
| |
foreach my $type (@$arguments_type_array) |
| |
{ |
| |
my $unformatted_arg = shift @unformatted_args; |
| |
$unformatted_arguments{$type} = $unformatted_arg; |
| |
} |
| |
# FIXME unformatted! |
| |
my $result = "<synopsis role=\"$unformatted_arguments{'category'}\"><indexterm role=\"" |
| |
.$main::index_prefix_to_name{$style}."\"><primary>$class_name</primary></indexterm>"; |
| |
|
| |
my %arguments = ( 'prepared_category' => $category_prepared, |
| |
'category' => $category, |
| |
'name' => $name, |
| |
'type' => $type, |
| |
'class' => $class |
| |
); |
| |
foreach my $type (keys(%arguments)) |
| |
{ |
| |
$arguments{$type} = '' if (!defined($arguments{$type})); |
| |
} |
| |
|
| |
foreach my $mandatory_arg (@{$def_format_docbook{$command}}) |
| |
{ |
| |
my $elem = $mandatory_arg->[0]; |
| |
#if ($elem eq 'returnvalue' and $unformatted_arguments{$mandatory_arg->[1]} =~ /^\s*\@code\{/) |
| |
if ($elem eq 'returnvalue' and $unformatted_arguments{$mandatory_arg->[1]} =~ /\@code\{/) |
| |
{ |
| |
# FIXME unformatted |
| |
my $arg_without_at_command = $unformatted_arguments{$mandatory_arg->[1]}; |
| |
#$arg_without_at_command =~ s/\s*\@code\{//; |
| |
#$arg_without_at_command =~ s/\}\s*$//; |
| |
while ($arg_without_at_command =~ /\@code\{([^\{\}]*)\}/) |
| |
{ |
| |
$arg_without_at_command =~ s/\@code\{([^\{\}]*)\}/$1/; |
| |
} |
| |
$result .= "<$elem>$arg_without_at_command</$elem>"; |
| |
} |
| |
else |
| |
{ |
| |
$result .= "<$elem>$arguments{$mandatory_arg->[1]}</$elem>"; |
| |
} |
| |
} |
| |
|
| |
my @types = @$arguments_type_array; |
| |
@unformatted_args = @$unformatted_arguments_array; |
| |
foreach my $arg (@$arguments_array) |
| |
{ |
| |
my $type = shift @types; |
| |
my $unformatted = shift @unformatted_args; |
| |
if (exists ($def_argument_types_docbook{$type})) |
| |
{ |
| |
if ($def_argument_types_docbook{$type} and |
| |
($type eq 'paramtype' or ($unformatted !~ /^\s*\@var\{/))) |
| |
{ |
| |
$result .= "<$def_argument_types_docbook{$type}>$arg</$def_argument_types_docbook{$type}>"; |
| |
} |
| |
else |
| |
{ |
| |
$result .= $arg; |
| |
} |
| |
} |
| |
} |
| |
|
| |
$result .= "</synopsis>\n"; |
| |
return $result; |
| |
} |
| |
|
| |
# FIXME |
| |
# @deffn |
| |
# @c comment |
| |
# @end deffn |
| |
# leads to the creation of a <definitionitem> with a comment within, |
| |
# while there should be no definitionitem |
| |
sub docbook_def_item($) |
| |
{ |
| |
my $text = shift; |
| |
my $only_inter_item_commands = shift; |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return '<blockquote>' . $text . '</blockquote>' unless $only_inter_item_commands; |
| |
return $text; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub docbook_def($) |
| |
{ |
| |
my $text = shift; |
| |
return docbook_add_id('informalfigure').'>'.$text.'</informalfigure>'; |
| |
} |
| |
|
| |
sub docbook_preformatted($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $pre_style = shift; |
| |
my $class = shift; |
| |
my $leading_command = shift; |
| |
my $leading_command_formatted = shift; |
| |
my $preformatted_number = shift; |
| |
my $format = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $command_stack_at_end = shift; |
| |
my $command_stack_at_begin = shift; |
| |
|
| |
return $text; |
| |
} |
| |
|
| |
sub docbook_misc_commands($$$$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $line = shift; |
| |
my $args = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
#print STDERR "$macro $line"; |
| |
#print STDERR "ARGS @$args\n" if defined ($args); |
| |
my $result_text = undef; |
| |
if ($macro eq 'c' or $macro eq 'comment' and scalar(@$args)) |
| |
{ |
| |
my $comment_line = $args->[0]; |
| |
chomp ($comment_line); |
| |
# makeinfo remove all the leading spaces |
| |
$comment_line =~ s/^\s//; |
| |
$result_text = &$comment ($comment_line); |
| |
} |
| |
elsif ($macro eq 'settitle') |
| |
{ |
| |
# FIXME to be formatted? Also maybe in line_command. And in html, it |
| |
# is handled by heading _text |
| |
my $arg = $args->[0]; |
| |
$arg =~ s/^\s*//; |
| |
chomp($arg); |
| |
$result_text = "<title>$arg</title>\n"; |
| |
} |
| |
return ($macro, $line, $result_text); |
| |
} |
| |
|
| |
sub docbook_foot_line_and_ref($$$$$$$) |
| |
{ |
| |
my $number_in_doc = shift; |
| |
my $number_in_page = shift; |
| |
my $footnote_id = shift; |
| |
my $place_id = shift; |
| |
my $document_file = shift; |
| |
my $footnote_file = shift; |
| |
my $lines = shift; |
| |
my $state = shift; |
| |
|
| |
my $result = docbook_add_id('footnote').'>'; |
| |
foreach my $line (@$lines) |
| |
{ |
| |
$result .= $line; |
| |
} |
| |
return ([], $result . '</footnote>'); |
| |
} |
| |
|
| |
sub docbook_any_ref($$$) |
| |
{ |
| |
my $type = shift; |
| |
my $args = shift; |
| |
my $unformatted_args = shift; |
| |
|
| |
# FIXME? |
| |
if ($type eq 'inforef') |
| |
{ |
| |
my $node_file = "($args->[2])$args->[0]"; |
| |
if ($args->[1] ne '') |
| |
{ |
| |
return "*note $args->[1]: $node_file"; |
| |
} |
| |
else |
| |
{ |
| |
return "*note ${node_file}::"; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
if (($args->[3] ne '') or ($args->[4] ne '')) |
| |
{ |
| |
return '' if ($args->[4] eq ''); |
| |
my $section_name = $args->[2]; |
| |
$section_name = $args->[0] if ($section_name eq ''); |
| |
if ($type eq 'ref') |
| |
{ |
| |
return gdt('section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}', { 'section_name' => $section_name, 'book' => $args->[4] },{'duplicate'=>1}); |
| |
} |
| |
elsif ($type eq 'xref') |
| |
{ |
| |
return gdt('See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}', { 'section_name' => $section_name, 'book' => $args->[4] },{'duplicate'=>1}); |
| |
} |
| |
elsif ($type eq 'pxref') |
| |
{ |
| |
return gdt('see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}', { 'section_name' => $section_name, 'book' => $args->[4] },{'duplicate'=>1}); |
| |
} |
| |
} |
| |
my $link = docbook_node_id($unformatted_args->[0]); |
| |
my $title = $args->[2]; |
| |
$title = $args->[1] if ($title eq ''); |
| |
if ($title eq '') |
| |
{ |
| |
if ($type eq 'ref') |
| |
{ |
| |
return gdt('{ref}', {'ref' => docbook_add_id('xref')." linkend=\"$link\"></xref>"}); |
| |
} |
| |
elsif ($type eq 'pxref') |
| |
{ |
| |
return gdt('see {ref}', {'ref' => docbook_add_id('xref')." linkend=\"$link\"></xref>"}); |
| |
} |
| |
elsif ($type eq 'xref') |
| |
{ |
| |
return gdt('See {ref}', {'ref' => docbook_add_id('xref')." linkend=\"$link\"></xref>"}); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
if ($type eq 'ref') |
| |
{ |
| |
return gdt('{title_ref}', {'title_ref' => docbook_add_id('link')." linkend=\"$link\">$title</link>"}); |
| |
} |
| |
elsif ($type eq 'pxref') |
| |
{ |
| |
return gdt('see {title_ref}', {'title_ref' => docbook_add_id('link')." linkend=\"$link\">$title</link>"},{'duplicate'=>1}); |
| |
} |
| |
elsif ($type eq 'xref') |
| |
{ |
| |
return gdt('See {title_ref}', {'title_ref' => docbook_add_id('link')." linkend=\"$link\">$title</link>"},{'duplicate'=>1}); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
sub docbook_external_ref($$$$$$$$$) |
| |
{ |
| |
my $type = shift; |
| |
my $section = shift; |
| |
my $book = shift; |
| |
my $file = shift; |
| |
my $href = shift; |
| |
my $cross_ref = shift; |
| |
my $args_texi = shift; |
| |
my $formatted_args = shift; |
| |
my $node = shift; |
| |
|
| |
return docbook_any_ref ($type, $formatted_args, $args_texi); |
| |
} |
| |
|
| |
sub docbook_internal_ref($$$$$) |
| |
{ |
| |
my $type = shift; |
| |
my $href = shift; |
| |
my $short_name = shift; |
| |
my $name = shift; |
| |
my $is_section = shift; |
| |
my $args_texi = shift; |
| |
my $formatted_args = shift; |
| |
|
| |
return docbook_any_ref ($type, $formatted_args, $args_texi ); |
| |
} |
| |
|
| |
sub docbook_index_entry_command($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $index_name = shift; |
| |
my $label = shift; |
| |
my $entry_texi = shift; |
| |
my $entry_formatted = shift; |
| |
|
| |
return $label if (defined($label) and $label ne ''); |
| |
return docbook_index_entry_label('','','',$main::index_prefix_to_name{$index_name}, '', '', $entry_formatted, {}); |
| |
} |
| |
|
| |
sub docbook_index_entry_label($$$$$$$$$) |
| |
{ |
| |
my $identifier = shift; |
| |
my $preformatted = shift; |
| |
my $entry = shift; |
| |
my $index_name = shift; |
| |
my $index_command = shift; |
| |
my $texi_entry = shift; |
| |
my $formatted_entry = shift; |
| |
my $in_region_not_in_output = shift; |
| |
my $index_entry = shift; |
| |
|
| |
return "<indexterm role=\"${index_name}\"><primary>${formatted_entry}</primary></indexterm>"; |
| |
} |
| |
|
| |
sub docbook_close_section() |
| |
{ |
| |
my $element = $docbook_current_section; |
| |
|
| |
if (!defined($element)) |
| |
{ |
| |
return ''; |
| |
} |
| |
|
| |
my $result = ''; |
| |
|
| |
# there is a special case for a @chapter that is a child of @top |
| |
# but should not be considered as is, since it is also toplevel. |
| |
# @part, however may have other toplevel elements as children. |
| |
return '' if ($element->{'child'} and (!$element->{'child'}->{'toplevel'} or $element->{'tag'} ne 'top')); |
| |
$result .= '</'.docbook_element_tag($element).">\n"; |
| |
|
| |
my $current = $element; |
| |
# the second condition is such that top is closed only if it has |
| |
# sub-elements below chapter. |
| |
# the third condition is such that elements with a next element are |
| |
# only closed for the last element, except when the next element is |
| |
# toplevel and below top, such that @top is closed before the first |
| |
# @chapter if there are @section or the like below @top |
| |
while ($current->{'sectionup'} and !($current->{'sectionup'}->{'tag'} eq 'top' and $current->{'toplevel'}) and (!$current->{'childnext'} or ($current->{'childnext'}->{'toplevel'} and $current->{'sectionup'}->{'tag'} eq 'top'))) |
| |
{ |
| |
$current = $current->{'sectionup'}; |
| |
$result .= '</'.docbook_element_tag($current).">\n"; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub docbook_end_section($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $end_foot_navigation = shift; |
| |
my $element = shift; |
| |
} |
| |
|
| |
sub docbook_print_Top_footer($$) |
| |
{ |
| |
my $fh = shift; |
| |
my $end_page = shift; |
| |
my $element = shift; |
| |
} |
| |
|
| |
sub docbook_one_section($$) |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
main::print_lines($fh); |
| |
&$print_page_foot($fh); |
| |
} |
| |
|
| |
sub docbook_insertcopying($) |
| |
{ |
| |
my $text = shift; |
| |
my $comment = shift; |
| |
my $simple_text = shift; |
| |
|
| |
return $text; |
| |
} |
| |
|
| |
sub docbook_acronym_like($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $acronym_texi = shift; |
| |
my $acronym_text = shift; |
| |
my $with_explanation = shift; |
| |
my $explanation_lines = shift; |
| |
my $explanation_text = shift; |
| |
my $explanation_simply_formatted = shift; |
| |
|
| |
$command = 'abbrev' if ($command eq 'abbr'); |
| |
my $result = docbook_add_id($command).">$acronym_text</${command}>"; |
| |
if ($with_explanation) |
| |
{ |
| |
$result .= " ($explanation_text)"; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
|
| |
sub docbook_image_files($$$$) |
| |
{ |
| |
my $base = shift; |
| |
my $extension = shift; |
| |
my $texi_base = shift; |
| |
my $texi_extension = shift; |
| |
my @files = (); |
| |
return @files if (!defined($base) or ($base eq '')); |
| |
# FIXME should look at extension argument? makeinfo doesn't |
| |
# push @files,"$base.$extension" if (defined($extension) and ($extension ne '')); |
| |
foreach my $ext (@IMAGE_EXTENSIONS) |
| |
{ |
| |
push @files, ["$base.$ext", "$texi_base.$ext"]; |
| |
} |
| |
return @files; |
| |
} |
| |
|
| |
|
| |
sub docbook_image($$$$$$$$$$$$$$$$;$) |
| |
{ |
| |
my $file = shift; |
| |
my $base = shift; |
| |
my $preformatted = shift; |
| |
my $file_name = shift; |
| |
my $alt = shift; |
| |
my $width = shift; |
| |
my $height = shift; |
| |
my $raw_alt = shift; |
| |
my $extension = shift; |
| |
my $working_dir = shift; |
| |
my $file_path = shift; |
| |
my $in_paragraph = shift; |
| |
my $file_locations = shift; |
| |
my $base_simple_format = shift; |
| |
my $extension_simple_format = shift; |
| |
my $file_name_simple_format = shift; |
| |
my $line_nr = shift; |
| |
|
| |
# if (!defined($file_path) or $file_path eq '' or $file_path =~ /\.txt$/) |
| |
# { |
| |
# if (defined($extension) and $extension ne '') |
| |
# { |
| |
# $file = "$base.$extension"; |
| |
# } |
| |
# else |
| |
# { |
| |
# $file = "$base.jpg"; |
| |
# $extension = 'jpg'; |
| |
# } |
| |
# main::line_warn ("no image file for $base, (using $file)"); |
| |
# } |
| |
my $txt_path; |
| |
my @files = (); |
| |
my @extensions = @IMAGE_EXTENSIONS; |
| |
foreach my $file_location (@$file_locations) |
| |
{ |
| |
my ($file_located, $path, $file_simple_format) = @$file_location; |
| |
my $extension = shift @extensions; |
| |
if (defined($path)) |
| |
{ |
| |
if ($extension eq 'txt' and !defined($txt_path)) |
| |
{ |
| |
$txt_path = $path; |
| |
} |
| |
else |
| |
{ |
| |
push @files, [$file_located, uc($extension), $file_simple_format]; |
| |
} |
| |
} |
| |
} |
| |
push @files, ["$base.jpg", 'JPG', "$base_simple_format.jpg" ] unless (@files); |
| |
|
| |
my $begin = docbook_add_id('inlinemediaobject').'>'; |
| |
my $end = '</inlinemediaobject>'; |
| |
if ($preformatted or !$in_paragraph) |
| |
{ |
| |
$begin = docbook_add_id('informalfigure').'><mediaobject>'; |
| |
$end = '</mediaobject></informalfigure>'; |
| |
} |
| |
my $result = $begin; |
| |
foreach my $file_spec (@files) |
| |
{ |
| |
$result .= "<imageobject><imagedata fileref=\"$file_spec->[2]\" format=\"$file_spec->[1]\"></imagedata></imageobject>"; |
| |
} |
| |
if (defined($txt_path)) |
| |
{ |
| |
if (open(TXT, "<$txt_path")) |
| |
{ |
| |
if (defined($Texi2HTML::THISDOC{'IN_ENCODING'}) and $USE_UNICODE) |
| |
{ |
| |
binmode(TXT, ":encoding($Texi2HTML::THISDOC{'IN_ENCODING'})"); |
| |
} |
| |
$result.="<textobject><literallayout>"; |
| |
while (my $img_txt = <TXT>) |
| |
{ |
| |
$result .= $img_txt; |
| |
} |
| |
$result .= '</literallayout></textobject>'; |
| |
close(TXT); |
| |
} |
| |
else |
| |
{ |
| |
main::line_warn (sprintf(__("\@image file `%s' unreadable: %s"), $txt_path, $!), $line_nr); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
main::line_warn (sprintf(__("Cannot find \@image file `%s.txt'"), $base), $line_nr); |
| |
} |
| |
|
| |
return "$result$end"; |
| |
} |
| |
|
| |
sub docbook_format_list_item_texi($$$$) |
| |
{ |
| |
my $format = shift; |
| |
my $line = shift; |
| |
my $prepended = shift; |
| |
my $command = shift; |
| |
|
| |
my $result_line = undef; |
| |
|
| |
if (defined($command) and $command ne '' and !exists $special_list_commands{$format}->{$command} and $format ne 'itemize') |
| |
{ |
| |
#@*table |
| |
$line =~ s/^\s*//; |
| |
$line =~ s/\s*$//; |
| |
if (exists ($style_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{$line\}\n"; |
| |
} |
| |
elsif (exists ($things_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{\} $line\n"; |
| |
} |
| |
else |
| |
{ |
| |
$result_line = "\@$command $line\n"; |
| |
} |
| |
} |
| |
|
| |
return ($result_line, 0); |
| |
} |
| |
|
| |
|
| |
# row in multitable |
| |
sub docbook_row($$;$$) |
| |
{ |
| |
my $text = shift; |
| |
my $macro = shift; |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
|
| |
my $result = ''; |
| |
if ($macro eq 'headitem') |
| |
{ |
| |
if ($docbook_multitable_stack[-1] != 0) |
| |
{ |
| |
$result .= "<thead>"; |
| |
$result = "</tbody>" . $result if ($docbook_multitable_stack[-1] == 1); |
| |
$docbook_multitable_stack[-1] = 0; |
| |
} |
| |
} |
| |
elsif ($docbook_multitable_stack[-1] != 1) |
| |
{ |
| |
$result .= "<tbody>"; |
| |
$result = "</thead>" . $result if ($docbook_multitable_stack[-1] == 0); |
| |
$docbook_multitable_stack[-1] = 1; |
| |
} |
| |
$result .= "<row>$text</row>"; |
| |
|
| |
return $result; |
| |
} |
| |
|
| |
# cell in multitable |
| |
sub docbook_cell($$;$$) |
| |
{ |
| |
my $text = shift; |
| |
my $row_macro = shift; |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
|
| |
return "<entry>" . $text . '</entry>'; |
| |
} |
| |
|
| |
# if varlistentry_state is > 0 it means that a varlistentry is opened. |
| |
# if varlistentry_state is == 2 it means that we are in a succession |
| |
# of term |
| |
# if varlistentry_state is == 1 it means that we are in the line |
| |
# Having a listitem in a varlistentry is a must, so an empty |
| |
# listitem is added if a varlistentry is closed and varlistentry_state == 2 |
| |
# |
| |
# varlistentry acceps only term and listitem, so inter_item_commands |
| |
# are put in the next term, or, if at the end of the table in a last |
| |
# listitem |
| |
sub docbook_table_item($$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $index_label = shift; |
| |
my $format = shift; |
| |
my $command = shift; |
| |
# my $formatted_command = shift; |
| |
my $style_stack = shift; |
| |
# my $text_formatted = shift; |
| |
# my $text_formatted_leading_spaces = shift; |
| |
# my $text_formatted_trailing_spaces = shift; |
| |
my $item_cmd = shift; |
| |
|
| |
# $formatted_command = '' if (!defined($formatted_command)); |
| |
|
| |
# if (defined($text_formatted)) |
| |
# { |
| |
# $text_item = $text_formatted_leading_spaces . $text_formatted .$text_formatted_trailing_spaces; |
| |
# } |
| |
# else |
| |
# { |
| |
# $text_item = $text; |
| |
# } |
| |
|
| |
my $result = ''; |
| |
my $prepended = ''; |
| |
if (defined($docbook_table_stack[-1]->{'inter_item'})) |
| |
{ |
| |
#$formatted_command = $docbook_table_stack[-1]->{'inter_item'} . $formatted_command; |
| |
$prepended = $docbook_table_stack[-1]->{'inter_item'}; |
| |
delete $docbook_table_stack[-1]->{'inter_item'}; |
| |
} |
| |
if ($item_cmd eq 'item') |
| |
{ |
| |
if ($docbook_table_stack[-1]->{'varlistentry_state'} == 2) |
| |
{ |
| |
$result .= "<listitem><para><!-- empty table line --></para></listitem>"; |
| |
} |
| |
if ($docbook_table_stack[-1]->{'varlistentry_state'} >= 1) |
| |
{ |
| |
$result .= '</varlistentry>'; |
| |
} |
| |
$docbook_table_stack[-1]->{'varlistentry_state'} = 2; |
| |
$result .= '<varlistentry>'; |
| |
} |
| |
$result .= '<term>'; |
| |
$result .= $prepended . $text ."</term>\n"; |
| |
return $result; |
| |
} |
| |
|
| |
sub docbook_table_line($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| |
|
| |
#print STDERR |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
if ($before_items) |
| |
{ |
| |
return $text; |
| |
} |
| |
|
| |
if ($only_inter_item_commands) |
| |
{ |
| |
$docbook_table_stack[-1]->{'inter_item'} = $text; |
| |
return ''; |
| |
} |
| |
else |
| |
{ |
| |
$docbook_table_stack[-1]->{'varlistentry_state'} = 1; |
| |
return "<listitem>$text</listitem>"; |
| |
} |
| |
#return $text; |
| |
} |
| |
else |
| |
{ |
| |
return ''; |
| |
} |
| |
} |
| |
|
| |
sub docbook_list_item($$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $format = shift; |
| |
my $command = shift; |
| |
my $formatted_command = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
$only_inter_item_commands = '' if (!defined($only_inter_item_commands)); |
| |
|
| |
#my $prep_t = 'UNDEF'; $prep_t = $prepended if (defined($prepended)); |
| |
#$item_nr = 0 if (!defined($item_nr)); |
| |
#print STDERR " $item_nr --> $prep_t|${text}!!!!!\n"; |
| |
#return $text if ($only_inter_item_commands and $before_items); |
| |
return $text if ($before_items); |
| |
return '<listitem>' . $text . "</listitem>\n"; |
| |
} |
| |
|
| |
sub docbook_table_list($$$$$$$$$) |
| |
{ |
| |
my $format_command = shift; |
| |
my $text = shift; |
| |
my $command = shift; |
| |
my $formatted_command = shift; |
| |
# enumerate |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
# itemize |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
# multitable |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $number = shift; |
| |
|
| |
my $result = "<$format_command>"; |
| |
if ($format_command eq 'itemize') |
| |
{ |
| |
my $itemfunction; |
| |
#$prepended_formatted =~ s/^\s*// if (defined($prepended_formatted)); |
| |
$prepended =~ s/^\s*// if (defined($prepended)); |
| |
#if (defined($formatted_command) and $formatted_command ne '') |
| |
if (defined($command) and $command ne '') |
| |
{ |
| |
#$itemfunction = $formatted_command; |
| |
$itemfunction = $command; |
| |
#$itemfunction .= " $prepended_formatted" if (defined($prepended_formatted) and $prepended_formatted ne ''); |
| |
$itemfunction .= " $prepended" if (defined($prepended) and $prepended ne ''); |
| |
} |
| |
#elsif (defined($prepended_formatted)) |
| |
elsif (defined($prepended)) |
| |
{ |
| |
#$itemfunction = $prepended_formatted; |
| |
$itemfunction = $prepended; |
| |
} |
| |
my $mark = ''; |
| |
$mark = " mark=\"$itemfunction\"" if (defined($itemfunction) and $itemfunction ne ''); |
| |
return docbook_add_id('itemizedlist')."${mark}>$text</itemizedlist>"; |
| |
} |
| |
elsif ($format_command eq 'enumerate') |
| |
{ |
| |
my $numeration='arabic'; |
| |
if (defined($enumerate_style) and $enumerate_style ne '') |
| |
{ |
| |
if ($enumerate_style =~ /^[A-Z]/) |
| |
{ |
| |
$numeration = 'upperalpha'; |
| |
} |
| |
elsif ($enumerate_style =~ /^[a-z]/) |
| |
{ |
| |
$numeration = 'loweralpha'; |
| |
} |
| |
} |
| |
return docbook_add_id('orderedlist') ." numeration=\"$numeration\">$text</orderedlist>"; |
| |
} |
| |
elsif ($format_command eq 'multitable') |
| |
{ |
| |
my $result = docbook_add_id('informaltable').'><tgroup cols="'.$number.'">'; |
| |
my $fractions; |
| |
my $multiply = 1; |
| |
if (defined($columnfractions) and (ref($columnfractions) eq 'ARRAY') |
| |
and scalar(@$columnfractions)) |
| |
{ |
| |
$fractions = [ @$columnfractions ]; |
| |
$multiply = 100; |
| |
} |
| |
elsif (defined($prototype_lengths) and (ref($prototype_lengths) eq 'ARRAY') |
| |
and scalar(@$prototype_lengths)) |
| |
{ |
| |
$fractions = [ @$prototype_lengths ]; |
| |
} |
| |
|
| |
if (defined ($fractions)) |
| |
{ |
| |
foreach my $fraction (@$fractions) |
| |
{ |
| |
$result .= '<colspec colwidth="'.($fraction*$multiply).'*"></colspec>'; |
| |
} |
| |
} |
| |
$text .= "</tbody>" if ($docbook_multitable_stack[-1] == 1); |
| |
$text .= "</thead>" if ($docbook_multitable_stack[-1] == 0); |
| |
pop @docbook_multitable_stack; |
| |
return $result . "$text</tgroup></informaltable>"; |
| |
} |
| |
elsif ($format_command =~ /^(v|f)?table$/) |
| |
{ |
| |
$result = docbook_add_id('variablelist').'>'; |
| |
if (defined($docbook_table_stack[-1]->{'inter_item'})) |
| |
{ # there is a para in case there is only a comment, to avoid |
| |
# an empty listitem |
| |
$text .= "<listitem><para>$docbook_table_stack[-1]->{'inter_item'}</para></listitem>"; |
| |
} |
| |
elsif ($docbook_table_stack[-1]->{'varlistentry_state'} == 2) |
| |
{ |
| |
$text .= "<listitem><para><!-- empty table line --></para></listitem>"; |
| |
} |
| |
$text .= '</varlistentry>' if ($docbook_table_stack[-1]->{'varlistentry_state'} >= 1); |
| |
pop @docbook_table_stack; |
| |
return $result . "$text</variablelist>\n"; |
| |
} |
| |
} |
| |
|
| |
sub docbook_begin_format_texi($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $state = shift; |
| |
|
| |
push (@docbook_multitable_stack, -1) if ($command eq 'multitable'); |
| |
push (@docbook_table_stack, {'varlistentry_state' => 0}) if ($command =~ /^(v|f)?table/); |
| |
return $line; |
| |
} |
| |
|
| |
# FIXME |
| |
sub docbook_sp($$) |
| |
{ |
| |
my $number = shift; |
| |
my $preformatted = shift; |
| |
return ""; |
| |
} |
| |
|
| |
sub docbook_index_summary($$) |
| |
{ |
| |
my $alpha = shift; |
| |
my $nonalpha = shift; |
| |
return ''; |
| |
} |
| |
|
| |
sub docbook_printindex($$) |
| |
{ |
| |
my $name = shift; |
| |
my $printindex = shift; |
| |
return docbook_add_id('index')."></index>\n"; |
| |
} |
| |
|
| |
sub docbook_complex_format($$) |
| |
{ |
| |
my $name = shift; |
| |
my $text = shift; |
| |
return '' if ($text eq ''); |
| |
my $result = docbook_add_id($docbook_complex_format{$name}).'>' .$text."</$docbook_complex_format{$name}>"; |
| |
return $result; |
| |
} |
| |
|
| |
sub docbook_format($$) |
| |
{ |
| |
my $name = shift; |
| |
my $element = shift; |
| |
my $text = shift; |
| |
return '' if ($text eq ''); |
| |
return $text if ($format_map{$name} eq ''); |
| |
if ($name eq 'copying') |
| |
{ |
| |
# FIXME is info in docbook 5.0 |
| |
return "<bookinfo>\n<legalnotice>\n$text</legalnotice>\n</bookinfo>\n"; |
| |
} |
| |
return docbook_add_id($format_map{$name}).'>' .$text."</$format_map{$name}>"; |
| |
} |
| |
|
| |
sub docbook_quotation_prepend_text($$) |
| |
{ |
| |
my $command = shift; |
| |
my $argument_text = shift; |
| |
|
| |
return undef if (!defined($argument_text) or $argument_text =~ /^$/); |
| |
|
| |
chomp($argument_text); |
| |
|
| |
return undef if (grep {lc($argument_text) eq $_} @docbook_special_quotation); |
| |
return gdt('@b{{quotation_arg}:} ', {'quotation_arg' => $argument_text}, {'keep_texi' => 1}); |
| |
} |
| |
|
| |
|
| |
sub docbook_quotation($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $argument_text = shift; |
| |
my $argument_text_texi = shift; |
| |
my $authors = shift; |
| |
|
| |
$argument_text_texi = '' if (!defined($argument_text_texi)); |
| |
chomp($argument_text_texi); |
| |
my $docbook_command = 'blockquote'; |
| |
if (grep {lc($argument_text_texi) eq $_} @docbook_special_quotation) |
| |
{ |
| |
$docbook_command = lc($argument_text_texi); |
| |
} |
| |
my $attribution = ''; |
| |
if ($authors) |
| |
{ |
| |
foreach my $author (@$authors) |
| |
{ |
| |
$attribution .= $author->{'author_text'}; |
| |
} |
| |
$attribution = '<attribution>' .$attribution. '</attribution>' . "\n"; |
| |
} |
| |
return docbook_add_id($docbook_command).'>' .$attribution . $text . "</$docbook_command>\n"; |
| |
} |
| |
|
| |
sub docbook_style($$$$$$$$$) |
| |
{ |
| |
my $style = shift; |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $args = shift; |
| |
my $no_close =shift; |
| |
my $no_open = shift; |
| |
my $line_nr = shift; |
| |
my $state = shift; |
| |
my $command_stack = shift; |
| |
my $kept_line_nrs = shift; |
| |
|
| |
my $result = $text; |
| |
if (exists($style->{'function'})) |
| |
{ |
| |
my $function = $style->{'function'}; |
| |
$result = &$function($command, $args, $command_stack, $state, $line_nr, $kept_line_nrs); |
| |
} |
| |
elsif (exists($style->{'inline_attribute'})) |
| |
{ |
| |
my $element = $style->{'inline_attribute'}; |
| |
my $attribute_text = ''; |
| |
if ($element =~ /^(\w+)(\s+.*)/) |
| |
{ |
| |
$element = $1; |
| |
$attribute_text = $2; |
| |
} |
| |
|
| |
if ($no_open) |
| |
{ |
| |
$result = "<$element"; |
| |
} |
| |
else |
| |
{ |
| |
$result = docbook_add_id($element); |
| |
} |
| |
$result .= "$attribute_text>$text</$element>"; |
| |
} |
| |
if (exists($style->{'begin'}) and !$no_open) |
| |
{ |
| |
$result = $style->{'begin'} . $result; |
| |
} |
| |
if (exists($style->{'end'}) and !$no_close) |
| |
{ |
| |
$result .= $style->{'end'}; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub docbook_raw($$$) |
| |
{ |
| |
my $style = shift; |
| |
my $text = shift; |
| |
my $line_nr = shift; |
| |
|
| |
if ($style eq 'verbatim' or $style eq 'verbatiminclude') |
| |
{ |
| |
return docbook_add_id('screen').'>' . &$protect_text($text) . '</screen>'; |
| |
} |
| |
return '' unless (grep {$style eq $_} @EXPAND); |
| |
if ($style eq 'docbook') |
| |
{ |
| |
chomp ($text); |
| |
return $text; |
| |
} |
| |
else |
| |
{ |
| |
main::line_warn (sprintf(__("Raw format %s is not converted"), $style), $line_nr); |
| |
return &$protect_text($text); |
| |
} |
| |
} |
| |
|
| |
sub docbook_cartouche($$) |
| |
{ |
| |
my $text = shift; |
| |
|
| |
return $text; |
| |
} |
| |
|
| |
sub docbook_anchor_label($$) |
| |
{ |
| |
my $id = shift; |
| |
my $anchor_text = shift; |
| |
# FIXME use docbook_node_id |
| |
return '<anchor id="'. &$protect_text($anchor_text) . '"></anchor>'; |
| |
} |
| |
|
| |
sub docbook_float($$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $float = shift; |
| |
my $caption = shift; |
| |
my $shortcaption = shift; |
| |
|
| |
my $label_texi = $float->{'texi'}; |
| |
return $text if (!defined($label_texi) or $label_texi eq ''); |
| |
|
| |
return docbook_anchor_label('',$label_texi) . $text; |
| |
} |
| |
|
| |
sub docbook_normal_text($$$$$$$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $in_raw_text = shift; # remove_texi |
| |
my $in_preformatted = shift; |
| |
my $in_code = shift; |
| |
my $in_math = shift; |
| |
my $in_simple = shift; |
| |
#print STDERR "Bug: in_raw_text in_simple $text\n" if ($in_raw_text and $in_simple); |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
#$text = uc($text) if (in_cmd($style_stack, 'sc')); |
| |
$text = &$protect_text($text) unless($in_raw_text); |
| |
if (! $in_code and !$in_preformatted) |
| |
{ |
| |
if (!$in_raw_text) |
| |
{ |
| |
$text =~ s/---/\&mdash\;/g; |
| |
$text =~ s/--/\&ndash\;/g; |
| |
$text =~ s/``/\&ldquo\;/g; |
| |
$text =~ s/''/\&rdquo\;/g; |
| |
} |
| |
else |
| |
{ |
| |
#FIXME really do that ? It is done by makeinfo in html |
| |
$text =~ s/``/"/g; |
| |
$text =~ s/''/"/g; |
| |
# FIXME really do that in raw text? |
| |
$text =~ s/---/\x{1F}/g; |
| |
$text =~ s/--/-/g; |
| |
$text =~ s/\x{1F}/--/g; |
| |
} |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
sub docbook_noop |
| |
{ |
| |
return ''; |
| |
} |
| |
|
| |
1; |
| |
|
| |
require "$T2H_HOME/formats/docbook.init" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/formats/docbook.init" && -r "$T2H_HOME/formats/docbook.init"); |
| |
|
| |
# @INIT_XML@ |
| |
# vim: set filetype=perl: |
| |
|
| |
use strict; |
| |
|
| |
my @xml_multitable_stack = (); |
| |
my @xml_table_stack = (); |
| |
|
| |
my @xml_ignored_misc_commands; |
| |
my %xml_misc_command_output; |
| |
my %xml_misc_elements_with_arg_map; |
| |
my @xml_misc_elements_with_arg; |
| |
my %def_format_xml; |
| |
my $xml_current_section; |
| |
|
| |
sub xml_default_load(;$) |
| |
{ |
| |
my $from_command_line = shift; |
| |
|
| |
t2h_default_set_variables_xml(); |
| |
$DOCTYPE = '<!DOCTYPE texinfo PUBLIC "-//GNU//DTD TexinfoML V4.12//EN" "http://www.gnu.org/software/texinfo/dtd/4.12/texinfo.dtd">'; |
| |
$SIMPLE_MENU = 0; |
| |
$SEPARATE_DESCRIPTION = 1; |
| |
@T2H_FORMAT_EXPAND = ('xml', 'direntry'); |
| |
$USE_ISO = 0; |
| |
$HEADERS = 0; |
| |
$INLINE_INSERTCOPYING = 0; |
| |
$SHOW_MENU = 1; |
| |
$SHOW_TITLE = 0; |
| |
$NUMBER_SECTIONS = 0; |
| |
$USE_NODES = 1; |
| |
$USE_SECTIONS = 1; |
| |
|
| |
t2h_default_push_handler(\&xml_init_variables, \@command_handler_init); |
| |
|
| |
$colon_command_punctuation_characters{'.'} = '.'; |
| |
$colon_command_punctuation_characters{':'} = ':'; |
| |
$colon_command_punctuation_characters{'?'} = '?'; |
| |
$colon_command_punctuation_characters{'!'} = '!'; |
| |
|
| |
$simple_map{'*'} = '&linebreak;'; |
| |
$simple_map{' '} = '&space;'; |
| |
$simple_map{"\t"} = '&space;'; |
| |
$simple_map{"\n"} = '&space;'; |
| |
$simple_map{'.'} = '&eosperiod;'; |
| |
$simple_map{'!'} = '&eosexcl;'; |
| |
$simple_map{'?'} = '&eosquest;'; |
| |
|
| |
%simple_map_pre = %simple_map; |
| |
|
| |
# FIXME right? |
| |
$things_map{'l'} = '/l'; |
| |
$things_map{'L'} = '/L'; |
| |
$things_map{'enddots'} = '&enddots;'; |
| |
$things_map{'dots'} = '&dots;'; |
| |
# FIXME equiv, point, expansion could be ameliorated |
| |
$things_map{'equiv'} = '=='; |
| |
$things_map{'point'} = '-!-'; |
| |
$things_map{'expansion'} = '==>'; # →? |
| |
|
| |
$things_map{'minus'} = '−'; |
| |
$things_map{'result'} = '⇒'; |
| |
$things_map{'bullet'} = '•'; |
| |
$things_map{'copyright'} = '©right;'; |
| |
$things_map{'registeredsymbol'} = '®istered;'; |
| |
$things_map{'arrow'} = '→'; |
| |
$things_map{'TeX'} = '&tex;'; |
| |
$things_map{'LaTeX'} = '&latex;'; |
| |
|
| |
%pre_map = %things_map; |
| |
|
| |
$stop_paragraph_command{'caption'} = 1; |
| |
$stop_paragraph_command{'shortcaption'} = 1; |
| |
|
| |
%line_command_map = (); |
| |
foreach my $command ('contents', 'shortcontents', 'summarycontents') |
| |
{ |
| |
$line_command_map{$command} = $command; |
| |
} |
| |
|
| |
%format_map = (); |
| |
|
| |
$format_map{'copying'} = ''; |
| |
$format_map{'titlepage'} = 'titlepage'; |
| |
$format_map{'documentdescription'} = 'documentdescription'; |
| |
$format_map{'group'} = 'group'; |
| |
$format_map{'raggedright'} = 'raggedright'; |
| |
|
| |
foreach my $region ('titlepage', 'documentdescription', 'copying') |
| |
{ |
| |
$region_formats_kept{$region} = 1; |
| |
} |
| |
|
| |
%style_map = (); |
| |
t2h_default_copy_style_map (\%default_style_map, \%style_map); |
| |
|
| |
foreach my $style (keys(%style_map)) |
| |
{ |
| |
next if grep {$style eq $_} ('asis', 'ctrl', 'w'); |
| |
if (grep {$style eq $_} ('tieaccent', 'dotless', keys(%unicode_accents))) |
| |
{ |
| |
$style_map{$style} = { 'function' => \&xml_default_accent }; |
| |
} |
| |
elsif (!exists($style_map{$style}->{'args'}) or (scalar(@{$style_map{$style}->{'args'}}) eq 1 and ($style_map{$style}->{'args'}->[0] eq 'code' or $style_map{$style}->{'args'}->[0] eq 'normal'))) |
| |
{ |
| |
$style_map{$style}->{'inline_attribute'} = $style; |
| |
delete ($style_map{$style}->{'quote'}); |
| |
delete ($style_map{$style}->{'begin'}); |
| |
delete ($style_map{$style}->{'end'}); |
| |
delete ($style_map{$style}->{'function'}); |
| |
} |
| |
} |
| |
|
| |
foreach my $complex_format (keys(%complex_format_map)) |
| |
{ |
| |
my $style = $complex_format_map{$complex_format}->{'style'}; |
| |
delete $complex_format_map{$complex_format}; |
| |
$complex_format_map{$complex_format}->{'begin'} = "<$complex_format xml:space=\"preserve\">"; |
| |
$complex_format_map{$complex_format}->{'end'} = "</$complex_format>"; |
| |
$complex_format_map{$complex_format}->{'style'} = $style if (defined($style)); |
| |
} |
| |
foreach my $menu_command('menu', 'detailmenu', 'direntry', 'menu_comment') |
| |
{ |
| |
$complex_format_map{$menu_command} = undef; |
| |
delete $complex_format_map{$menu_command}; |
| |
} |
| |
|
| |
# this is not needed because normal_text isn't the same than in html |
| |
#t2h_remove_text_substitutions("'", 1, 0, 0, 1); |
| |
#t2h_remove_text_substitutions('`', 1, 0, 0, 1); |
| |
|
| |
$style_map{'w'}->{'end'} = '<!-- /@w -->'; |
| |
$style_map{'='}->{'function'} = \&xml_macron; |
| |
$style_map{'email'}->{'function'} = \&xml_email; |
| |
$style_map{'titlefont'}->{'function'} = \&xml_titlefont; |
| |
$style_map{'math'}->{'function'} = \&xml_math; |
| |
$style_map{'uref'}->{'function'} = \&xml_uref; |
| |
$style_map{'url'}->{'function'} = \&xml_uref; |
| |
$style_map{'t'}->{'inline_attribute'} = 'tt'; |
| |
# FIXME |
| |
delete $special_accents{'ringaccent'}; |
| |
$special_accents{'ogonek'} = 'aeiuAEIU'; |
| |
|
| |
%style_map_pre = %style_map; |
| |
|
| |
$no_paragraph_commands{'cindex'} = 0; |
| |
|
| |
#my @xml_ignored_misc_commands = ('bye', 'sp', 'verbatiminclude'); |
| |
|
| |
@xml_ignored_misc_commands = ('bye', 'sp', 'verbatiminclude', 'clickstyle', |
| |
'defcodeindex', |
| |
'syncodeindex', 'paragraphindent', 'shorttitlepage', 'refill', 'noindent'); |
| |
|
| |
# we want to proceed all the misc commands |
| |
# makeinfo ignores clickstyle, changes setfilename. Not sure it is right. |
| |
foreach my $misc_command (keys(%misc_command)) |
| |
{ |
| |
next if (grep {$misc_command eq $_} @xml_ignored_misc_commands); |
| |
$xml_misc_command_output{$misc_command} = 1; |
| |
} |
| |
|
| |
$format_map{'menu'} = 'menu'; |
| |
# checked on bug-texinfo, only node is in code_style, as with makeinfo --xml |
| |
#$format_code_style{'menu'} = 1; |
| |
#$format_code_style{'menu_name'} = 1; |
| |
#$format_code_style{'menu_description'} = 1; |
| |
$format_map{'detailmenu'} = 'detailmenu'; |
| |
$format_map{'direntry'} = 'direntry'; |
| |
$format_map{'menu_comment'} = ''; |
| |
|
| |
$menu_description = \&xml_menu_description; |
| |
$menu_link = \&xml_menu_link; |
| |
$element_heading = \&xml_heading; |
| |
$heading = \&xml_heading; |
| |
$paragraph = \&xml_paragraph; |
| |
$preformatted = \&xml_preformatted; |
| |
$misc_element_label = \&xml_noop; |
| |
$element_label = \&xml_noop; |
| |
$anchor_label = \&xml_anchor_label; |
| |
$index_entry_label = \&xml_index_entry_label; |
| |
$index_entry_command = \&xml_index_entry_command; |
| |
$listoffloats = \&xml_listoffloats; |
| |
$acronym_like = \&xml_acronym_like; |
| |
$foot_line_and_ref = \&xml_foot_line_and_ref; |
| |
$image = \&xml_image; |
| |
$sp = \&xml_sp; |
| |
$quotation = \&xml_quotation; |
| |
$table_list = \&xml_table_list; |
| |
$row = \&xml_row; |
| |
$cell = \&xml_cell; |
| |
$list_item = \&xml_list_item; |
| |
$format_list_item_texi = \&xml_format_list_item_texi; |
| |
$misc_command_line = \&xml_misc_commands; |
| |
$begin_format_texi = \&xml_begin_format_texi; |
| |
$def_line = \&xml_def_line; |
| |
$def = \&xml_def; |
| |
$def_item = \&xml_def_item; |
| |
$printindex = \&xml_printindex; |
| |
$index_summary = \&xml_index_summary; |
| |
$external_ref = \&xml_external_ref; |
| |
$internal_ref = \&xml_internal_ref; |
| |
$table_item = \&xml_table_item; |
| |
$table_line = \&xml_table_line; |
| |
$float = \&xml_float; |
| |
$caption_shortcaption = \&xml_caption_shortcaption; |
| |
$caption_shortcaption_command = \&xml_caption_shortcaption_command; |
| |
$normal_text = \&xml_normal_text; |
| |
$protect_text = \&xml_default_protect_text; |
| |
$paragraph_style_command = \&xml_paragraph_style_command; |
| |
$raw = \&xml_raw; |
| |
$cartouche = \&xml_cartouche; |
| |
|
| |
$print_Top = \&xml_print_Top; |
| |
$print_Top_footer = \&xml_print_Top_footer; |
| |
$print_page_head = \&xml_print_page_head; |
| |
$print_foot_navigation = \&xml_noop; |
| |
$toc_body = \&xml_noop; |
| |
$about_body = \&xml_noop; |
| |
$print_page_foot = \&xml_print_page_foot; |
| |
$end_section = \&xml_end_section; |
| |
$one_section = \&xml_one_section; |
| |
|
| |
%xml_misc_elements_with_arg_map = ( |
| |
'title' => 'booktitle', |
| |
'subtitle' => 'booksubtitle' |
| |
); |
| |
|
| |
@xml_misc_elements_with_arg = ('author', |
| |
'dircategory', 'settitle'); |
| |
#my @xml_misc_elements_with_arg = ('author', 'shorttitlepage', |
| |
# 'vskip', 'dircategory', 'settitle'); |
| |
|
| |
%def_format_xml = ( |
| |
'deffn' => [ ['category', 'category'], ['function', 'name'] ], |
| |
'defvr' => [ ['category', 'category'], ['variable', 'name'] ], |
| |
'deftypefn' => [ ['category', 'category'], ['type', 'type'], ['function', 'name'] ], |
| |
'deftypeop' => [ ['category', 'category'], ['type', 'type'], ['operation', 'name'] ], |
| |
'deftypevr' => [ ['category', 'category'], ['type', 'type'], ['variable', 'name'] ], |
| |
'defcv' => [ ['category' , 'category'], ['class', 'class'], ['classvar', 'name'] ], |
| |
'deftypecv' => [ ['category', 'category'], ['type', 'type'], ['classvar', 'name'] ], |
| |
'defop' => [ ['category', 'category'], ['class', 'class'], ['operation', 'name'] ], |
| |
'deftp' => [ ['category', 'category'], ['datatype', 'name'] ] |
| |
); |
| |
|
| |
|
| |
} |
| |
|
| |
sub xml_macron($$) |
| |
{ |
| |
my $accent = shift; |
| |
my $args = shift; |
| |
return $args->[0] . "¯"; |
| |
} |
| |
|
| |
sub xml_email($$) |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $mail = shift @$args; |
| |
my $text = shift @$args; |
| |
$mail = main::normalise_space($mail); |
| |
my $result = "<email><emailaddress>$mail</emailaddress>"; |
| |
if (defined($text) and $text =~ /\S/) |
| |
{ |
| |
$result .= "<emailname>".main::normalise_space($text)."</emailname>"; |
| |
} |
| |
return $result . '</email>'; |
| |
} |
| |
|
| |
sub xml_uref($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $url = shift @$args; |
| |
my $text = shift @$args; |
| |
my $replacement = shift @$args; |
| |
$url = main::normalise_space($url); |
| |
$replacement = '' if (!defined($replacement)); |
| |
$replacement = main::normalise_space($replacement); |
| |
$text = '' if (!defined($text)); |
| |
$text = main::normalise_space($text); |
| |
my $result = "<uref><urefurl>$url</urefurl>"; |
| |
$result .= "<urefdesc>$text</urefdesc>" if ($text ne ''); |
| |
$result .= "<urefreplacement>$replacement</urefreplacement>" if ($replacement ne ''); |
| |
return $result.'</uref>'; |
| |
} |
| |
|
| |
|
| |
sub xml_titlefont($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
return "<titlefont>$args->[0]</titlefont>"; |
| |
} |
| |
|
| |
sub xml_math($$) |
| |
{ |
| |
shift; |
| |
my $args = shift; |
| |
my $text = shift @$args; |
| |
return "<math>$text</math>"; |
| |
} |
| |
|
| |
|
| |
sub xml_menu_description($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $state = shift; |
| |
my $element_text = shift; |
| |
return "<menucomment>$text</menucomment>\n</menuentry>"; |
| |
} |
| |
|
| |
sub xml_menu_link($$$$$$$$$$) |
| |
{ |
| |
my $entry = shift; |
| |
my $state = shift; |
| |
my $href = shift; |
| |
my $menunode = shift; |
| |
my $menutitle = shift; |
| |
my $ending = shift; |
| |
my $has_title = shift; |
| |
my $command_stack = shift; |
| |
my $in_preformatted = shift; |
| |
my $menunode_normalized = shift; |
| |
|
| |
return "<menuentry>\n<menunode>$menunode_normalized</menunode>\n<menutitle>$menutitle</menutitle>\n"; |
| |
} |
| |
|
| |
sub xml_print_page_head($) |
| |
{ |
| |
my $fh = shift; |
| |
my $setfilename = ''; |
| |
$setfilename = "<setfilename>$Texi2HTML::THISDOC{file_base_name}.$EXTENSION</setfilename>" |
| |
unless (defined($Texi2HTML::THISDOC{'setfilename'}) and $Texi2HTML::THISDOC{'setfilename'} ne ''); |
| |
my $language = get_conf('documentlanguage'); |
| |
my $doctype = get_conf('doctype'); |
| |
print $fh <<EOT; |
| |
<?xml version="1.0"?> |
| |
$doctype |
| |
<texinfo xml:lang="$language"> |
| |
$setfilename |
| |
EOT |
| |
} |
| |
|
| |
sub xml_print_page_foot($) |
| |
{ |
| |
my $fh = shift; |
| |
print $fh "". xml_close_section(); |
| |
print $fh <<EOT; |
| |
</texinfo> |
| |
EOT |
| |
} |
| |
|
| |
sub xml_one_section($$) |
| |
{ |
| |
my $fh = shift; |
| |
my $element = shift; |
| |
main::print_lines($fh); |
| |
#print $fh "". xml_footing($element); |
| |
&$print_foot_navigation($fh); |
| |
&$print_page_foot($fh); |
| |
} |
| |
|
| |
sub xml_heading($$$$$) |
| |
{ |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $texi_line = shift; |
| |
my $line = shift; |
| |
my $in_preformatted = shift; |
| |
|
| |
#print STDERR "'$command' $line"; |
| |
if (defined($command) and $command =~ /heading/) |
| |
{ |
| |
my $text = ''; |
| |
if (defined($line)) |
| |
{ |
| |
$text = $line; |
| |
# this isn't done in main program in that case... |
| |
chomp ($text); |
| |
$text =~ s/^\s*//; |
| |
} |
| |
return "<${command}>$text</${command}>\n"; |
| |
} |
| |
elsif (defined($command) and $command eq 'node') |
| |
{ |
| |
#print STDERR "node $command $node_element->{'texi'}\n"; |
| |
my $result = ''; |
| |
$result .= xml_close_section(); |
| |
$result .= "<node>\n"; |
| |
$result .= "<nodename>$element->{'text'}</nodename>\n"; |
| |
foreach my $direction('nodenext', 'nodeprev', 'nodeup') |
| |
{ |
| |
if ($element->{$direction}) |
| |
{ |
| |
$result .= "<${direction}>$element->{$direction}->{'text'}</${direction}>\n"; |
| |
} |
| |
} |
| |
$result .= "</node>\n"; |
| |
return $result; |
| |
|
| |
} |
| |
else |
| |
{ |
| |
my $result = ''; |
| |
$result .= xml_close_section(); |
| |
$result .= "<".xml_element_tag($element).">\n<title>$element->{'text'}</title>\n"; |
| |
$xml_current_section = $element; |
| |
return $result; |
| |
} |
| |
} |
| |
|
| |
sub xml_element_tag($) |
| |
{ |
| |
my $element = shift; |
| |
my $class = $element->{'tag_level'}; |
| |
return $class; |
| |
} |
| |
|
| |
sub xml_close_section() |
| |
{ |
| |
my $element = $xml_current_section; |
| |
|
| |
if (!defined($element)) |
| |
{ |
| |
return ''; |
| |
} |
| |
my $result = ''; |
| |
|
| |
$xml_current_section = undef; |
| |
|
| |
# there is a special case for a @chapter that is a child of @top |
| |
# but should not be considered as is, since it is also toplevel. |
| |
# @part, however may have other toplevel elements as children. |
| |
return '' if ($element->{'child'} and (!$element->{'child'}->{'toplevel'} or $element->{'tag'} ne 'top')); |
| |
$result .= '</'.xml_element_tag($element).">\n"; |
| |
|
| |
my $current = $element; |
| |
# the second condition is such that top is closed only if it has |
| |
# sub-elements below chapter. |
| |
# the third condition is such that elements with a next element are |
| |
# only closed for the last element, except when the next element is |
| |
# toplevel and below top, such that @top is closed before the first |
| |
# @chapter if there are @section or the like below @top |
| |
while ($current->{'sectionup'} and !($current->{'sectionup'}->{'tag'} eq 'top' and $current->{'toplevel'}) and (!$current->{'childnext'} or ($current->{'childnext'}->{'toplevel'} and $current->{'sectionup'}->{'tag'} eq 'top'))) |
| |
{ |
| |
$current = $current->{'sectionup'}; |
| |
$result .= '</'.xml_element_tag($current).">\n"; |
| |
} |
| |
return $result; |
| |
|
| |
## there is a special case for a @chapter that is a child of @top |
| |
## but should not be considered as is, since it is also toplevel. |
| |
#return '' if ($element->{'child'} and !$element->{'child'}->{'toplevel'}); |
| |
#$result .= '</'.xml_element_tag($element).">\n"; |
| |
|
| |
#return $result if ($element->{'sectionnext'} or $element->{'level'} <= 1); |
| |
#my $current = $element; |
| |
#while ($current->{'level'} != 1 and $current->{'sectionup'} and !$current->{'sectionnext'}) |
| |
#{ |
| |
# $current = $current->{'sectionup'}; |
| |
# $result .= '</'.xml_element_tag($current).">\n"; |
| |
#} |
| |
#return $result; |
| |
} |
| |
|
| |
sub xml_end_section($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $end_foot_navigation = shift; |
| |
my $element = shift; |
| |
} |
| |
|
| |
sub xml_print_Top($$$) |
| |
{ |
| |
my $fh = shift; |
| |
my $has_top_heading = shift; |
| |
my $element = shift; |
| |
main::print_lines($fh, $Texi2HTML::THIS_SECTION); |
| |
} |
| |
|
| |
sub xml_print_Top_footer($$) |
| |
{ |
| |
my $fh = shift; |
| |
my $end_page = shift; |
| |
my $element = shift; |
| |
} |
| |
|
| |
# FIXME warning: |
| |
# |
| |
# @samp{first para |
| |
# |
| |
# second para}. |
| |
# |
| |
# maybe should lead to: |
| |
# <para><samp>first para second para</samp>.</para> |
| |
# |
| |
# But it leads to |
| |
# <para><samp>first para |
| |
# </samp></para> |
| |
# <para><samp>second para</samp>. |
| |
# </para> |
| |
sub xml_paragraph($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $align = shift; |
| |
my $indent = shift; |
| |
my $paragraph_command = shift; |
| |
my $paragraph_command_formatted = shift; |
| |
my $paragraph_number = shift; |
| |
my $format = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $command_stack_at_end = shift; |
| |
my $command_stack_at_begin = shift; |
| |
|
| |
# no para in multitables, caption and shortcaptions. |
| |
my $top_stack = ''; |
| |
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin)); |
| |
return $text if ($top_stack eq 'multitable' or $top_stack eq 'shortcaption' or $top_stack eq 'caption' or $top_stack eq 'documentdescription'); |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return "<para>$text</para>"; |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
sub xml_preformatted($$$$$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $pre_style = shift; |
| |
my $class = shift; |
| |
my $leading_command = shift; |
| |
my $leading_command_formatted = shift; |
| |
my $preformatted_number = shift; |
| |
my $format = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $command_stack_at_end = shift; |
| |
my $command_stack_at_begin = shift; |
| |
|
| |
return $text; |
| |
} |
| |
|
| |
sub xml_misc_commands($$$$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $line = shift; |
| |
my $args = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
|
| |
#print STDERR "$macro $line"; |
| |
#print STDERR "ARGS @$args\n" if defined ($args); |
| |
return ($macro, $line, undef) unless($xml_misc_command_output{$macro}); |
| |
|
| |
my $value_name = ''; |
| |
my $value = ''; |
| |
if ($macro eq 'set' or $macro eq 'clear') |
| |
{ |
| |
my $value_line = $line; |
| |
if ($value_line =~ s/^\s+([\w\-]+)//) |
| |
{ |
| |
$value_name = $1; |
| |
if ($macro eq 'set') |
| |
{ |
| |
$value = $value_line; |
| |
chomp ($value); |
| |
$value =~ s/^\s*//; |
| |
} |
| |
} |
| |
} |
| |
my $result_text = "<${macro}></${macro}>"; |
| |
if ($macro eq 'set' or $macro eq 'clear') |
| |
{ |
| |
$result_text = "<${macro}value name=\"$value_name\">$value</${macro}value>\n"; |
| |
} |
| |
if ($macro eq 'c' or $macro eq 'comment' and scalar(@$args)) |
| |
{ |
| |
my $comment_line = $args->[0]; |
| |
chomp ($comment_line); |
| |
# makeinfo remove all the leading spaces |
| |
$comment_line =~ s/^\s//; |
| |
$result_text = &$comment ($comment_line); |
| |
} |
| |
if ($macro eq 'frenchspacing') |
| |
{ |
| |
my $value = $args->[0]; |
| |
$value =~ s/\s*//g; |
| |
$result_text = "<${macro} var=\"$value\"></${macro}>"; |
| |
} |
| |
if (grep {$macro eq $_} @xml_misc_elements_with_arg) |
| |
{ |
| |
my $arg = $args->[0]; |
| |
$arg =~ s/^\s*//; |
| |
chomp($arg); |
| |
$result_text = "<${macro}>".main::substitute_line($arg, "\@$macro")."</${macro}>\n"; |
| |
} |
| |
if (exists($xml_misc_elements_with_arg_map{$macro})) |
| |
{ |
| |
my $arg = $args->[0]; |
| |
$arg =~ s/^\s*//; |
| |
chomp($arg); |
| |
$result_text = "<$xml_misc_elements_with_arg_map{$macro}>".main::substitute_line($arg, "\@$macro")."</$xml_misc_elements_with_arg_map{$macro}>\n"; |
| |
} |
| |
if ($macro eq 'setfilename') |
| |
{ |
| |
my $arg = $args->[0]; |
| |
#$arg =~ s/^\s*//; |
| |
#$arg =~ s/\s*$//; |
| |
#$arg = main::substitute_line($arg, "\@$macro"); |
| |
if ($arg =~ /\S/) |
| |
{ |
| |
$arg = get_conf('setfilename'); |
| |
$arg =~ s/\.[^\.]*$//; |
| |
$result_text = "<${macro}>${arg}.xml</${macro}>\n"; |
| |
} |
| |
} |
| |
return ($macro, $line, $result_text); |
| |
} |
| |
|
| |
|
| |
sub xml_anchor_label($$) |
| |
{ |
| |
my $id = shift; |
| |
my $anchor_text = shift; |
| |
return '<anchor name="'. &$protect_text($anchor_text) . '"></anchor>'; |
| |
} |
| |
|
| |
sub xml_index_entry_command($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $index_name = shift; |
| |
my $label = shift; |
| |
my $entry_texi = shift; |
| |
my $entry_formatted = shift; |
| |
|
| |
return $label if (defined($label) and $label ne ''); |
| |
return xml_index_entry_label('','','',$main::index_prefix_to_name{$index_name}, '', '', $entry_formatted, {}); |
| |
} |
| |
|
| |
sub xml_index_entry_label($$$$$$$$$) |
| |
{ |
| |
my $identifier = shift; |
| |
my $preformatted = shift; |
| |
my $formatted_entry = shift; |
| |
my $index_name = shift; |
| |
my $index_command = shift; |
| |
my $texi_entry = shift; |
| |
my $formatted_entry_reference = shift; |
| |
my $in_region_not_in_output = shift; |
| |
my $index_entry_ref = shift; |
| |
|
| |
|
| |
return "<indexterm index=\"${index_name}\">${formatted_entry_reference}</indexterm>"; |
| |
} |
| |
|
| |
sub xml_listoffloats($$$) |
| |
{ |
| |
my $style_texi = shift; |
| |
my $style = shift; |
| |
my $float_entries = shift; |
| |
# FIXME style, style_texi? Protected? |
| |
return "<listoffloats type=\"$style\"></listoffloats>"; |
| |
} |
| |
|
| |
sub xml_acronym_like($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $acronym_texi = shift; |
| |
my $acronym_text = shift; |
| |
my $with_explanation = shift; |
| |
my $explanation_lines = shift; |
| |
my $explanation_text = shift; |
| |
my $explanation_simply_formatted = shift; |
| |
|
| |
$command = 'abbrev' if ($command eq 'abbr'); |
| |
my $opening = "<${command}><${command}word>$acronym_text</${command}word>"; |
| |
if ($with_explanation) |
| |
{ |
| |
$opening .= "<${command}desc>$explanation_text</${command}desc>"; |
| |
} |
| |
return $opening . "</${command}>"; |
| |
} |
| |
|
| |
sub xml_foot_line_and_ref($$$$$$$) |
| |
{ |
| |
my $number_in_doc = shift; |
| |
my $number_in_page = shift; |
| |
my $footnote_id = shift; |
| |
my $place_id = shift; |
| |
my $document_file = shift; |
| |
my $footnote_file = shift; |
| |
my $lines = shift; |
| |
my $state = shift; |
| |
|
| |
my $result = '<footnote>'; |
| |
foreach my $line (@$lines) |
| |
{ |
| |
$result .= $line; |
| |
} |
| |
return ([], $result . '</footnote>'); |
| |
} |
| |
|
| |
sub xml_image($$$$$$$$$$$$$) |
| |
{ |
| |
my $file = shift; |
| |
my $base = shift; |
| |
my $preformatted = shift; |
| |
my $file_name = shift; |
| |
my $alt = shift; |
| |
my $width = shift; |
| |
my $height = shift; |
| |
my $raw_alt = shift; |
| |
my $extension = shift; |
| |
my $working_dir = shift; |
| |
my $file_path = shift; |
| |
my $in_paragraph = shift; |
| |
my $file_locations = shift; |
| |
|
| |
$alt = '' if (!defined($alt)); |
| |
# dirty hack to avoid " that can be here because of a @verb |
| |
$alt =~ s/"/"/g; |
| |
|
| |
$width = '' if (!defined($width)); |
| |
$height = '' if (!defined($height)); |
| |
|
| |
my $tag = 'inlineimage'; |
| |
$tag = 'image' if ($preformatted or !$in_paragraph); |
| |
|
| |
return "<$tag width=\"$width\" height=\"$height\" name=\"". &$protect_text($base)."\" extension=\"$extension\"><alttext>$alt</alttext></$tag>"; |
| |
} |
| |
|
| |
sub xml_sp($$) |
| |
{ |
| |
my $number = shift; |
| |
my $preformatted = shift; |
| |
return "<sp lines=\"$number\"></sp>\n"; |
| |
} |
| |
|
| |
sub xml_quotation($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $argument_text = shift; |
| |
my $argument_text_texi = shift; |
| |
my $authors = shift; |
| |
return "<$command>\n" . $text . "</$command>\n"; |
| |
} |
| |
|
| |
sub xml_format_list_item_texi($$$$) |
| |
{ |
| |
my $format = shift; |
| |
my $line = shift; |
| |
my $prepended = shift; |
| |
my $command = shift; |
| |
|
| |
my $result_line = undef; |
| |
|
| |
if (defined($command) and $command ne '' and !exists $special_list_commands{$format}->{$command} and $format ne 'itemize') |
| |
{ |
| |
#@*table |
| |
$line =~ s/^\s*//; |
| |
$line =~ s/\s*$//; |
| |
if (exists ($style_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{$line\}\n"; |
| |
} |
| |
elsif (exists ($things_map{$command})) |
| |
{ |
| |
$result_line = "\@$command\{\} $line\n"; |
| |
} |
| |
else |
| |
{ |
| |
$result_line = "\@$command $line\n"; |
| |
} |
| |
} |
| |
|
| |
return ($result_line, 0); |
| |
} |
| |
|
| |
sub xml_list_item($$$$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $format = shift; |
| |
my $command = shift; |
| |
my $formatted_command = shift; |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
my $number = shift; |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
|
| |
return '<item>' . $text . "</item>\n"; |
| |
} |
| |
|
| |
sub xml_init_variables() |
| |
{ |
| |
@xml_multitable_stack = (); |
| |
@xml_table_stack = (); |
| |
$xml_current_section = undef; |
| |
$Texi2HTML::THISDOC{'SPLIT'} = 0 if ($OUTPUT_FORMAT eq 'xml'); |
| |
} |
| |
|
| |
# row in multitable |
| |
sub xml_row($$;$$) |
| |
{ |
| |
my $text = shift; |
| |
my $macro = shift; |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
|
| |
my $result = ''; |
| |
if ($macro eq 'headitem') |
| |
{ |
| |
if ($xml_multitable_stack[-1] != 0) |
| |
{ |
| |
$result .= "<thead>"; |
| |
$result = "</tbody>" . $result if ($xml_multitable_stack[-1] == 1); |
| |
$xml_multitable_stack[-1] = 0; |
| |
} |
| |
} |
| |
elsif ($xml_multitable_stack[-1] != 1) |
| |
{ |
| |
$result .= "<tbody>"; |
| |
$result = "</thead>" . $result if ($xml_multitable_stack[-1] == 0); |
| |
$xml_multitable_stack[-1] = 1; |
| |
} |
| |
$result .= "<row>$text</row>"; |
| |
|
| |
return $result; |
| |
} |
| |
|
| |
# cell in multitable |
| |
sub xml_cell($$;$$) |
| |
{ |
| |
my $text = shift; |
| |
my $row_macro = shift; |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $column_number = shift; |
| |
|
| |
return "<entry>" . $text . '</entry>'; |
| |
} |
| |
|
| |
sub xml_table_list($$$$$$$$$) |
| |
{ |
| |
my $format_command = shift; |
| |
my $text = shift; |
| |
my $command = shift; |
| |
my $formatted_command = shift; |
| |
# enumerate |
| |
my $item_nr = shift; |
| |
my $enumerate_style = shift; |
| |
# itemize |
| |
my $prepended = shift; |
| |
my $prepended_formatted = shift; |
| |
# multitable |
| |
my $columnfractions = shift; |
| |
my $prototype_row = shift; |
| |
my $prototype_lengths = shift; |
| |
my $number = shift; |
| |
|
| |
my $result = "<$format_command>"; |
| |
if ($format_command eq 'itemize') |
| |
{ |
| |
my $itemfunction; |
| |
$prepended_formatted =~ s/^\s*// if (defined($prepended_formatted)); |
| |
if (defined($formatted_command) and $formatted_command ne '') |
| |
{ |
| |
$itemfunction = $formatted_command; |
| |
$itemfunction .= " $prepended_formatted" if (defined($prepended_formatted) and $prepended_formatted ne ''); |
| |
} |
| |
elsif (defined($prepended_formatted)) |
| |
{ |
| |
$itemfunction = $prepended_formatted; |
| |
} |
| |
$itemfunction = "•" if (!defined($itemfunction) or |
| |
$itemfunction eq ''); |
| |
$result .= "<itemfunction>$itemfunction</itemfunction>"; |
| |
} |
| |
elsif ($format_command eq 'enumerate') |
| |
{ |
| |
$result = "<$format_command first=\"$enumerate_style\">"; |
| |
} |
| |
elsif ($format_command eq 'multitable') |
| |
{ |
| |
my $fractions; |
| |
my $multiply = 1; |
| |
if (defined($columnfractions) and (ref($columnfractions) eq 'ARRAY') |
| |
and scalar(@$columnfractions)) |
| |
{ |
| |
$fractions = [ @$columnfractions ]; |
| |
$multiply = 100; |
| |
} |
| |
elsif (defined($prototype_lengths) and (ref($prototype_lengths) eq 'ARRAY') |
| |
and scalar(@$prototype_lengths)) |
| |
{ |
| |
$fractions = [ @$prototype_lengths ]; |
| |
} |
| |
|
| |
if (defined ($fractions)) |
| |
{ |
| |
foreach my $fraction (@$fractions) |
| |
{ |
| |
$result .= "<columnfraction>".($fraction*$multiply)."</columnfraction>\n"; |
| |
} |
| |
} |
| |
$text .= "</tbody>" if ($xml_multitable_stack[-1] == 1); |
| |
$text .= "</thead>" if ($xml_multitable_stack[-1] == 0); |
| |
pop @xml_multitable_stack; |
| |
} |
| |
elsif ($format_command =~ /^(v|f)?table$/) |
| |
{ |
| |
$result = '<table>'; |
| |
$text .= '</tableitem>' if ($xml_table_stack[-1] == 1); |
| |
pop @xml_table_stack; |
| |
return $result . "$text</table>\n"; |
| |
} |
| |
return $result . "$text</$format_command>\n"; |
| |
} |
| |
|
| |
sub xml_begin_format_texi($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $state = shift; |
| |
|
| |
push (@xml_multitable_stack, -1) if ($command eq 'multitable'); |
| |
push (@xml_table_stack, 0) if ($command =~ /^(v|f)?table/); |
| |
return $line; |
| |
} |
| |
|
| |
sub xml_def_line($$$$$$$$$$$$$$$) |
| |
{ |
| |
my $category_prepared = shift; |
| |
my $name = shift; |
| |
my $type = shift; |
| |
my $arguments = shift; |
| |
my $index_label = shift; |
| |
my $arguments_array = shift; |
| |
my $arguments_type_array = shift; |
| |
my $unformatted_arguments_array = shift; |
| |
my $command = shift; |
| |
my $class_name = shift; |
| |
my $category = shift; |
| |
my $class = shift; |
| |
my $style = shift; |
| |
my $original_command = shift; |
| |
|
| |
my $result = "<definitionterm><indexterm index=\"" |
| |
.$main::index_prefix_to_name{$style}."\">$class_name</indexterm>"; |
| |
|
| |
my %arguments = ( 'prepared_category' => $category_prepared, |
| |
'category' => $category, |
| |
'name' => $name, |
| |
'type' => $type, |
| |
'class' => $class |
| |
); |
| |
foreach my $type (keys(%arguments)) |
| |
{ |
| |
$arguments{$type} = '' if (!defined($arguments{$type})); |
| |
} |
| |
|
| |
foreach my $mandatory_arg (@{$def_format_xml{$command}}) |
| |
{ |
| |
my $elem = $mandatory_arg->[0]; |
| |
$result .= "<def$elem>$arguments{$mandatory_arg->[1]}</def$elem>"; |
| |
} |
| |
|
| |
my $params = ''; |
| |
my @types = @$arguments_type_array; |
| |
foreach my $arg (@$arguments_array) |
| |
{ |
| |
my $type = shift @types; |
| |
if (grep {$_ eq $type} ('param', 'paramtype', 'delimiter')) |
| |
{ |
| |
$result .= "<def$type>$arg</def$type>"; |
| |
} |
| |
} |
| |
|
| |
$result .= "</definitionterm>\n"; |
| |
return $result; |
| |
} |
| |
|
| |
# FIXME |
| |
# @deffn |
| |
# @c comment |
| |
# @end deffn |
| |
# leads to the creation of a <definitionitem> with a comment within, |
| |
# while there should be no definitionitem |
| |
sub xml_def_item($$) |
| |
{ |
| |
my $text = shift; |
| |
my $only_inter_item_commands = shift; |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return '<definitionitem>' . $text . '</definitionitem>' unless $only_inter_item_commands; |
| |
return $text; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub xml_def($) |
| |
{ |
| |
my $text = shift; |
| |
return '<definition>'.$text.'</definition>'; |
| |
} |
| |
|
| |
sub xml_index_summary($$) |
| |
{ |
| |
my $alpha = shift; |
| |
my $nonalpha = shift; |
| |
return ''; |
| |
} |
| |
|
| |
sub xml_printindex($$) |
| |
{ |
| |
my $name = shift; |
| |
my $printindex = shift; |
| |
return "<printindex>$name</printindex>\n"; |
| |
} |
| |
|
| |
sub xml_any_ref($$) |
| |
{ |
| |
my $type = shift; |
| |
my $args = shift; |
| |
my $result = ''; |
| |
if ($type eq 'pxref') |
| |
{ |
| |
$result = gdt('see ',{'duplicate'=>1}); |
| |
} |
| |
elsif ($type eq 'xref' or $type eq 'inforef') |
| |
{ |
| |
$result = gdt('See ',{'duplicate'=>1}); |
| |
} |
| |
if ($type eq 'inforef') |
| |
{ |
| |
$result .= "<inforef><inforefnodename>$args->[0]</inforefnodename>"; |
| |
$result .= "<inforefrefname>$args->[1]</inforefrefname>" if ($args->[1] ne ''); |
| |
$result .= "<inforefinfoname>$args->[2]</inforefinfoname></inforef>" |
| |
} |
| |
else |
| |
{ |
| |
$result .= "<xref><xrefnodename>$args->[0]</xrefnodename>"; |
| |
$result .= "<xrefinfoname>$args->[1]</xrefinfoname>" if ($args->[1] ne ''); |
| |
$result .= "<xrefprinteddesc>$args->[2]</xrefprinteddesc>" if ($args->[2] ne ''); |
| |
$result .= "<xrefinfofile>$args->[3]</xrefinfofile>" if ($args->[3] ne ''); |
| |
$result .= "<xrefprintedname>$args->[4]</xrefprintedname>" if ($args->[4] ne ''); |
| |
$result .= '</xref>'; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub xml_external_ref($$$$$$$$$) |
| |
{ |
| |
my $type = shift; |
| |
my $section = shift; |
| |
my $book = shift; |
| |
my $file = shift; |
| |
my $href = shift; |
| |
my $cross_ref = shift; |
| |
my $args_texi = shift; |
| |
my $formatted_args = shift; |
| |
my $node = shift; |
| |
|
| |
return xml_any_ref ($type, $formatted_args); |
| |
} |
| |
|
| |
sub xml_internal_ref($$$$$) |
| |
{ |
| |
my $type = shift; |
| |
my $href = shift; |
| |
my $short_name = shift; |
| |
my $name = shift; |
| |
my $is_section = shift; |
| |
my $args_texi = shift; |
| |
my $formatted_args = shift; |
| |
|
| |
return xml_any_ref ($type, $formatted_args); |
| |
} |
| |
|
| |
sub xml_table_item($$$$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $index_label = shift; |
| |
my $format = shift; |
| |
my $command = shift; |
| |
# my $formatted_command = shift; |
| |
my $style_stack = shift; |
| |
# my $text_formatted = shift; |
| |
# my $text_formatted_leading_spaces = shift; |
| |
# my $text_formatted_trailing_spaces = shift; |
| |
my $item_cmd = shift; |
| |
my $formatted_index_entry = shift; |
| |
|
| |
|
| |
# $formatted_command = '' if (!defined($formatted_command)); |
| |
# |
| |
# if (defined($text_formatted)) |
| |
# { |
| |
# $text_item = $text_formatted_leading_spaces . $text_formatted .$text_formatted_trailing_spaces; |
| |
# } |
| |
# else |
| |
# { |
| |
# $text_item = $text; |
| |
# } |
| |
|
| |
my $result = ''; |
| |
if ($item_cmd eq 'item') |
| |
{ |
| |
$result .= '</tableitem>' if ($xml_table_stack[-1] == 1); |
| |
$xml_table_stack[-1] = 1; |
| |
$result .= '<tableitem>'; |
| |
} |
| |
$result .= '<tableterm>'; |
| |
#print STDERR "$text | $format | $command | $formatted_command | $text_formatted | $item_cmd \n"; |
| |
my $indexterm = ''; |
| |
#print STDERR "FFFFFFFFFFFFFFFFf `$index_label' `$text'\n"; |
| |
if ($format =~ /^(v|f)/) |
| |
{ |
| |
# my $index_prefix = $1; |
| |
# $indexterm = $text; |
| |
# $indexterm =~ s/^\s*//; |
| |
# $result .= "<indexterm index=\"$main::index_prefix_to_name{$index_prefix}\">$formatted_index_entry</indexterm>"; |
| |
$result .= "$index_label"; |
| |
} |
| |
$result .= $text ."</tableterm>\n"; |
| |
return $result; |
| |
} |
| |
|
| |
sub xml_table_line($) |
| |
{ |
| |
my $text = shift; |
| |
my $only_inter_item_commands = shift; |
| |
my $before_items = shift; |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return "<item>$text</item>" unless $only_inter_item_commands; |
| |
return $text; |
| |
} |
| |
else |
| |
{ |
| |
return ''; |
| |
} |
| |
} |
| |
|
| |
sub xml_caption_shortcaption($) |
| |
{ |
| |
my $float = shift; |
| |
my $caption_lines; |
| |
my $shortcaption_lines; |
| |
if (defined($float->{'caption_texi'})) |
| |
{ |
| |
@$caption_lines = @{$float->{'caption_texi'}}; |
| |
} |
| |
if (defined($float->{'shortcaption_texi'})) |
| |
{ |
| |
@$shortcaption_lines = @{$float->{'shortcaption_texi'}}; |
| |
} |
| |
return ($caption_lines, $shortcaption_lines); |
| |
} |
| |
|
| |
sub xml_caption_shortcaption_command($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $text = shift; |
| |
my $texi_lines = shift; |
| |
my $float_element = shift; |
| |
|
| |
if ($text =~ /\S/) |
| |
{ |
| |
return "<$command>$text</$command>"; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub xml_float($$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $float = shift; |
| |
my $caption = shift; |
| |
my $shortcaption = shift; |
| |
|
| |
# FIXME don't use the texi, but a normalized node name |
| |
my $label_texi = $float->{'texi'}; |
| |
$label_texi = '' if (!defined($label_texi)); |
| |
my $result = "<float name=\"$label_texi\">\n"; |
| |
my $style = $float->{'style'}; |
| |
$style = '' if (!defined($style)); |
| |
$result .= "<floattype>$style</floattype>\n"; |
| |
$result .= "<floatpos></floatpos>\n"; |
| |
$result .= $text; |
| |
return $result."</float>\n"; |
| |
} |
| |
|
| |
sub xml_normal_text($$$$$$$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $in_raw_text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_code = shift; |
| |
my $in_math = shift; |
| |
my $in_simple = shift; |
| |
#print STDERR "Bug: in_raw_text in_simple $text\n" if ($in_raw_text and $in_simple); |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
$text = &$protect_text($text) unless($in_raw_text); |
| |
|
| |
if (! $in_code and !$in_preformatted and !$in_raw_text) |
| |
{ |
| |
$text =~ s/---/\&mdash\;/g; |
| |
$text =~ s/--/\&ndash\;/g; |
| |
$text =~ s/``/\&ldquo\;/g; |
| |
$text =~ s/''/\&rdquo\;/g; |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
sub xml_paragraph_style_command($$) |
| |
{ |
| |
my $format = shift; |
| |
my $text = shift; |
| |
return "<$format>$text</$format>" if ($format eq 'center'); |
| |
return $text; |
| |
} |
| |
|
| |
sub xml_raw($$) |
| |
{ |
| |
my $style = shift; |
| |
my $text = shift; |
| |
|
| |
if ($style eq 'verbatim' or $style eq 'verbatiminclude') |
| |
{ |
| |
return '<verbatim xml:space="preserve">' . &$protect_text($text) . '</verbatim>'; |
| |
} |
| |
return '' unless (grep {$style eq $_} @EXPAND); |
| |
if ($style eq 'xml') |
| |
{ |
| |
chomp ($text); |
| |
return $text; |
| |
} |
| |
else |
| |
{ |
| |
main::msg_warn ("Raw style $style not handled", $Texi2HTML::THISDOC{'line_nr'}); |
| |
return &$protect_text($text); |
| |
} |
| |
} |
| |
|
| |
sub xml_cartouche($$) |
| |
{ |
| |
my $text = shift; |
| |
|
| |
return "<cartouche>$text</cartouche>"; |
| |
} |
| |
|
| |
sub xml_noop |
| |
{ |
| |
return ''; |
| |
} |
| |
|
| |
1; |
| |
|
| |
require "$T2H_HOME/formats/xml.init" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/formats/xml.init" && -r "$T2H_HOME/formats/xml.init"); |
| |
|
| |
# @INIT_PLAINTEXT@ |
| |
#+############################################################################## |
| |
# |
| |
# plaintext.init: convert to plaintext |
| |
# |
| |
# Copyright (C) 2009 Patrice Dumas <pertusus@free.fr> |
| |
# |
| |
# This program is free software; you can redistribute it and/or modify |
| |
# it under the terms of the GNU General Public License as published by |
| |
# the Free Software Foundation; either version 2 of the License, or |
| |
# (at your option) any later version. |
| |
# |
| |
# This program is distributed in the hope that it will be useful, |
| |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
| |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| |
# GNU General Public License for more details. |
| |
# |
| |
# You should have received a copy of the GNU General Public License |
| |
# along with this program; if not, write to the Free Software |
| |
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
| |
# 02110-1301 USA |
| |
# |
| |
#-############################################################################## |
| |
|
| |
use strict; |
| |
|
| |
sub plaintext_default_load(;$) |
| |
{ |
| |
my $from_command_line = shift; |
| |
info_default_load(); |
| |
|
| |
$SHOW_MENU = 0; |
| |
$OUT = '-' unless(defined($OUT) and $OUT !~ m:/$:); |
| |
$HEADERS = 0; |
| |
@T2H_FORMAT_EXPAND = ('plaintext'); |
| |
|
| |
$print_page_head = \&plaintext_default_print_page_head; |
| |
$print_page_foot = \&plaintest_default_print_page_foot; |
| |
$element_heading = \&plaintext_default_element_heading; |
| |
$image = \&plaintext_default_image; |
| |
$print_index = \&plaintext_default_print_index; |
| |
|
| |
} |
| |
|
| |
sub plaintext_default_print_page_head($) |
| |
{ |
| |
my $fh = shift; |
| |
} |
| |
|
| |
sub plaintest_default_print_page_foot($) |
| |
{ |
| |
my $fh = shift; |
| |
} |
| |
|
| |
sub plaintext_default_element_heading($$$$$$$$$$$$) |
| |
{ |
| |
my $info_result = &Texi2HTML::Config::info_default_element_heading(@_); |
| |
my $element = shift; |
| |
my $command = shift; |
| |
my $texi_line = shift; |
| |
my $line = shift; |
| |
my $in_preformatted = shift; |
| |
my $one_section = shift; |
| |
my $element_heading = shift; |
| |
my $first_in_page = shift; |
| |
my $is_top = shift; |
| |
my $previous_is_top = shift; |
| |
my $command_line = shift; |
| |
my $element_id = shift; |
| |
my $new_element = shift; |
| |
|
| |
return $info_result if (!$element->{'node'}); |
| |
return ''; |
| |
} |
| |
|
| |
sub plaintext_default_image($$$$$$$$$$$$$$$$$) |
| |
{ |
| |
my $file = shift; |
| |
my $base = shift; |
| |
my $preformatted = shift; |
| |
my $file_name = shift; |
| |
my $alt = shift; |
| |
my $width = shift; |
| |
my $height = shift; |
| |
my $raw_alt = shift; |
| |
my $extension = shift; |
| |
my $working_dir = shift; |
| |
my $file_path = shift; |
| |
my $in_paragraph = shift; |
| |
my $file_locations = shift; |
| |
my $base_simple_format = shift; |
| |
my $extension_simple_format = shift; |
| |
my $file_name_simple_format = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my $txt_path; |
| |
my $found_file; |
| |
|
| |
my @extensions = @IMAGE_EXTENSIONS; |
| |
if (defined($extension) and ($extension ne '')) |
| |
{ |
| |
unshift @extensions, ".$extension"; |
| |
unshift @extensions, "$extension"; |
| |
} |
| |
else |
| |
{ |
| |
$extension = undef; |
| |
} |
| |
my $file_found_index = undef; |
| |
my $file_index = 0; |
| |
|
| |
foreach my $file_location (@$file_locations) |
| |
{ |
| |
my ($file_located, $path, $file_simple_format) = @$file_location; |
| |
my $extension = shift @extensions; |
| |
if (defined($path)) |
| |
{ |
| |
if ($extension eq 'txt' and !defined($txt_path)) |
| |
{ |
| |
$txt_path = $path; |
| |
} |
| |
elsif (!defined($found_file)) |
| |
{ |
| |
$found_file = [$file_located, $extension, $file_simple_format]; |
| |
$file_found_index = $file_index; |
| |
} |
| |
} |
| |
$file_index++; |
| |
} |
| |
|
| |
my $text = ''; |
| |
if (defined($txt_path)) |
| |
{ |
| |
if (open(TXT, "<$txt_path")) |
| |
{ |
| |
if (defined($Texi2HTML::THISDOC{'IN_ENCODING'}) and $USE_UNICODE) |
| |
{ |
| |
binmode(TXT, ":encoding($Texi2HTML::THISDOC{'IN_ENCODING'})"); |
| |
} |
| |
$text='[' if ($in_paragraph or $preformatted); |
| |
while (my $img_txt = <TXT>) |
| |
{ |
| |
$text .= $img_txt; |
| |
} |
| |
$text .= ']' if ($in_paragraph or $preformatted); |
| |
close(TXT); |
| |
} |
| |
else |
| |
{ |
| |
main::line_warn (sprintf(__("\@image file `%s' unreadable: %s"), $txt_path, $!), $line_nr); |
| |
} |
| |
} |
| |
elsif (!defined($found_file)) |
| |
{ |
| |
main::line_warn (sprintf(__("Cannot find \@image file `%s.txt'"), $base), $line_nr); |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
sub plaintext_default_print_index($$) |
| |
{ |
| |
my $text = shift; |
| |
my $name = shift; |
| |
return ''; |
| |
} |
| |
|
| |
1; |
| |
|
| |
require "$T2H_HOME/formats/plaintext.init" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/formats/plaintext.init" && -r "$T2H_HOME/formats/plaintext.init"); |
| |
|
| |
my $translation_file = 'translations.pl'; # file containing all the translations |
| |
my $T2H_OBSOLETE_STRINGS; |
| |
|
| |
# leave this within comments, and keep the require statement |
| |
# This way, you can directly run texi2html.pl, |
| |
# if $T2H_HOME/translations.pl exists. |
| |
# |
| |
# @T2H_TRANSLATIONS_FILE@ |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'nl'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => '', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '', |
| |
' Up ' => '', |
| |
'(outside of any element)' => '', |
| |
'(outside of any node)' => '', |
| |
'@b{{quotation_arg}:} ' => '', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '', |
| |
'@{No value for `{value}\'@}' => '', |
| |
'About' => '', |
| |
'About (help)' => '', |
| |
'About This Document' => 'No translation available!', |
| |
'April' => 'April', |
| |
'August' => 'Augustus', |
| |
'Back' => '', |
| |
'Back section in previous file' => '', |
| |
'Beginning of this chapter or previous chapter' => '', |
| |
'Button' => '', |
| |
'Contents' => '', |
| |
'Cover (top) of document' => '', |
| |
'Current' => '', |
| |
'Current Position' => '', |
| |
'Current section' => '', |
| |
'December' => 'December', |
| |
'FastBack' => '', |
| |
'FastForward' => '', |
| |
'February' => 'Februari', |
| |
'First' => '', |
| |
'First section in reading order' => '', |
| |
'Following' => '', |
| |
'Following node' => '', |
| |
'Footnotes' => 'No translation available!', |
| |
'Forward' => '', |
| |
'Forward section in next file' => '', |
| |
'From 1.2.3 go to' => '', |
| |
'Go to' => '', |
| |
'Index' => 'Index', |
| |
'Index Entry' => '', |
| |
'January' => 'Januari', |
| |
'July' => 'Juli', |
| |
'Jump to' => '', |
| |
'June' => 'Juni', |
| |
'Last' => '', |
| |
'Last section in reading order' => '', |
| |
'March' => 'Maart', |
| |
'May' => 'Mei', |
| |
'Menu:' => '', |
| |
'Name' => '', |
| |
'Next' => '', |
| |
'Next chapter' => '', |
| |
'Next file' => '', |
| |
'Next node' => '', |
| |
'Next section in reading order' => '', |
| |
'Next section on same level' => '', |
| |
'NextFile' => '', |
| |
'Node following in node reading order' => '', |
| |
'Node up' => '', |
| |
'NodeNext' => '', |
| |
'NodePrev' => '', |
| |
'NodeUp' => '', |
| |
'November' => 'November', |
| |
'October' => 'Oktober', |
| |
'Overview' => '', |
| |
'Prev' => '', |
| |
'PrevFile' => '', |
| |
'Previous' => '', |
| |
'Previous file' => '', |
| |
'Previous node' => '', |
| |
'Previous section in reading order' => '', |
| |
'Previous section on same level' => '', |
| |
'Section' => '', |
| |
'Section One' => '', |
| |
'See ' => '', |
| |
'See @cite{{book}}' => '', |
| |
'See `{section}\'' => '', |
| |
'See `{section}\' in @cite{{book}}' => '', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'See section {reference_name}' => '', |
| |
'See {reference_name}' => '', |
| |
'See {reference}' => '', |
| |
'See {reference} in @cite{{book}}' => '', |
| |
'See {ref}' => '', |
| |
'See {title_ref}' => '', |
| |
'September' => 'September', |
| |
'Short Table of Contents' => 'Korte inhoudsopgave', |
| |
'Short table of contents' => '', |
| |
'Subsection One-Four' => '', |
| |
'Subsection One-One' => '', |
| |
'Subsection One-Three' => '', |
| |
'Subsection One-Two' => '', |
| |
'Subsubsection One-Two-Four' => '', |
| |
'Subsubsection One-Two-One' => '', |
| |
'Subsubsection One-Two-Three' => '', |
| |
'Subsubsection One-Two-Two' => '', |
| |
'Table of Contents' => 'Inhoudsopgave', |
| |
'Table of contents' => '', |
| |
'The node you are looking for is at {href}.' => '', |
| |
'This' => '', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => '', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => '', |
| |
'Top' => '', |
| |
'Untitled Document' => '', |
| |
'Up' => '', |
| |
'Up node' => '', |
| |
'Up section' => '', |
| |
'`{section}\'' => '', |
| |
'`{section}\' in @cite{{book}}' => '', |
| |
'current' => '', |
| |
'on @emph{{date}}' => '', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see ' => '', |
| |
'see @cite{{book}}' => '', |
| |
'see `{section}\'' => '', |
| |
'see `{section}\' in @cite{{book}}' => '', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see section {reference_name}' => '', |
| |
'see {reference_name}' => '', |
| |
'see {reference}' => '', |
| |
'see {reference} in @cite{{book}}' => '', |
| |
'see {ref}' => '', |
| |
'see {title_ref}' => '', |
| |
'{acronym_like} ({explanation})' => '', |
| |
'{month} {day}, {year}' => '', |
| |
'{name} of {class}' => '', |
| |
'{name} on {class}' => '', |
| |
'{reference_name}' => '', |
| |
'{reference}' => '', |
| |
'{reference} in @cite{{book}}' => '', |
| |
'{ref}' => '', |
| |
'{style} {number}' => '', |
| |
'{style}: {caption_first_line}' => '', |
| |
'{style}: {shortcaption_first_line}' => '', |
| |
'{title_ref}' => '' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'ja'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => 'ナビゲーションパネル中のボタンには以下の意味があります。', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '@strong{例}では、以下に示す構造を持つ文書の@strong{1.2.3項}を現在位置に仮定しています。', |
| |
' Up ' => '上', |
| |
'(outside of any element)' => '', |
| |
'(outside of any node)' => '', |
| |
'@b{{quotation_arg}:} ' => '', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '', |
| |
'@{No value for `{value}\'@}' => '', |
| |
'About' => '', |
| |
'About (help)' => '', |
| |
'About This Document' => 'この文書について', |
| |
'April' => '4月', |
| |
'August' => '8月', |
| |
'Back' => '', |
| |
'Back section in previous file' => '', |
| |
'Beginning of this chapter or previous chapter' => '', |
| |
'Button' => 'ボタン', |
| |
'Contents' => '目次', |
| |
'Cover (top) of document' => '', |
| |
'Current' => '', |
| |
'Current Position' => '現在位置', |
| |
'Current section' => '', |
| |
'December' => '12月', |
| |
'FastBack' => '', |
| |
'FastForward' => '', |
| |
'February' => '2月', |
| |
'First' => '', |
| |
'First section in reading order' => '', |
| |
'Following' => '', |
| |
'Following node' => '', |
| |
'Footnotes' => '脚注', |
| |
'Forward' => '', |
| |
'Forward section in next file' => '', |
| |
'From 1.2.3 go to' => '1.2.3項からの移動先', |
| |
'Go to' => '移動先', |
| |
'Index' => '見出し', |
| |
'Index Entry' => '見出し一覧', |
| |
'January' => '1月', |
| |
'July' => '7月', |
| |
'Jump to' => '移動', |
| |
'June' => '6月', |
| |
'Last' => '', |
| |
'Last section in reading order' => '', |
| |
'March' => '3月', |
| |
'May' => '5月', |
| |
'Menu:' => 'メニュー', |
| |
'Name' => '名称', |
| |
'Next' => '次', |
| |
'Next chapter' => '', |
| |
'Next file' => '', |
| |
'Next node' => '', |
| |
'Next section in reading order' => '', |
| |
'Next section on same level' => '', |
| |
'NextFile' => '', |
| |
'Node following in node reading order' => '', |
| |
'Node up' => '', |
| |
'NodeNext' => '', |
| |
'NodePrev' => '', |
| |
'NodeUp' => '', |
| |
'November' => '11月', |
| |
'October' => '10月', |
| |
'Overview' => '概要', |
| |
'Prev' => '前', |
| |
'PrevFile' => '', |
| |
'Previous' => '', |
| |
'Previous file' => '', |
| |
'Previous node' => '', |
| |
'Previous section in reading order' => '', |
| |
'Previous section on same level' => '', |
| |
'Section' => '項', |
| |
'Section One' => '第1項', |
| |
'See ' => '', |
| |
'See @cite{{book}}' => '', |
| |
'See `{section}\'' => '項', |
| |
'See `{section}\' in @cite{{book}}' => '@cite{{book}}の `{section}\' ', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'See section {reference_name}' => '', |
| |
'See {reference_name}' => '', |
| |
'See {reference}' => '', |
| |
'See {reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}参照', |
| |
'See {ref}' => '', |
| |
'See {title_ref}' => '', |
| |
'September' => '9月', |
| |
'Short Table of Contents' => '簡略化した目次', |
| |
'Short table of contents' => '', |
| |
'Subsection One-Four' => '第1.4項', |
| |
'Subsection One-One' => '第1.1項', |
| |
'Subsection One-Three' => '第1.3項', |
| |
'Subsection One-Two' => '第1.2項', |
| |
'Subsubsection One-Two-Four' => '第1.2.4項', |
| |
'Subsubsection One-Two-One' => '第1.2.1項', |
| |
'Subsubsection One-Two-Three' => '第1.2.3項', |
| |
'Subsubsection One-Two-Two' => '第1.2.2項', |
| |
'Table of Contents' => '目次', |
| |
'Table of contents' => '', |
| |
'The node you are looking for is at {href}.' => '', |
| |
'This' => '', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'この文書は@emph{{date}}に@uref{{program_homepage}, @emph{{program}}}を用いて生成されました。', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'この文書は@uref{{program_homepage}, @emph{{program}}}を用いて生成されました。', |
| |
'Top' => '冒頭', |
| |
'Untitled Document' => '無題の文書', |
| |
'Up' => '', |
| |
'Up node' => '', |
| |
'Up section' => '', |
| |
'`{section}\'' => '項', |
| |
'`{section}\' in @cite{{book}}' => '@cite{{book}}の `{section}\' ', |
| |
'current' => '現在位置', |
| |
'on @emph{{date}}' => '@emph{{date}}', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see ' => '', |
| |
'see @cite{{book}}' => '', |
| |
'see `{section}\'' => '', |
| |
'see `{section}\' in @cite{{book}}' => '@cite{{book}}の `{section}\' ', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see section {reference_name}' => '', |
| |
'see {reference_name}' => '', |
| |
'see {reference}' => '{node_file_href}参照', |
| |
'see {reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}参照', |
| |
'see {ref}' => '', |
| |
'see {title_ref}' => '', |
| |
'{acronym_like} ({explanation})' => '', |
| |
'{month} {day}, {year}' => '', |
| |
'{name} of {class}' => '', |
| |
'{name} on {class}' => '', |
| |
'{reference_name}' => '', |
| |
'{reference}' => '', |
| |
'{reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}参照', |
| |
'{ref}' => '', |
| |
'{style} {number}' => '', |
| |
'{style}: {caption_first_line}' => '', |
| |
'{style}: {shortcaption_first_line}' => '', |
| |
'{title_ref}' => '' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'fr'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => ' Les boutons de navigation ont la signification suivante :', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' Dans cet exemple on est @`a @strong{ Sous sous section un-deux-trois } dans un document dont la structure est :', |
| |
' Up ' => 'Plus haut', |
| |
'(outside of any element)' => '', |
| |
'(outside of any node)' => '', |
| |
'@b{{quotation_arg}:} ' => '', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '', |
| |
'@{No value for `{value}\'@}' => '', |
| |
'About' => 'A propos', |
| |
'About (help)' => 'A propos (page d\'aide)', |
| |
'About This Document' => 'A propos de ce document', |
| |
'April' => 'avril', |
| |
'August' => 'ao@^ut', |
| |
'Back' => 'Retour', |
| |
'Back section in previous file' => '', |
| |
'Beginning of this chapter or previous chapter' => 'D@\'ebut de ce chapitre ou chapitre pr@\'ec@\'edent', |
| |
'Button' => 'Bouton', |
| |
'Contents' => 'Table des mati@`eres', |
| |
'Cover (top) of document' => 'Couverture (top) du document', |
| |
'Current' => '', |
| |
'Current Position' => 'Position', |
| |
'Current section' => 'Section actuelle', |
| |
'December' => 'd@\'ecembre', |
| |
'FastBack' => 'RetourRapide', |
| |
'FastForward' => 'AvanceRapide', |
| |
'February' => 'f@\'evrier', |
| |
'First' => 'Premier', |
| |
'First section in reading order' => 'Premi@`e section dans l\'ordre de lecture', |
| |
'Following' => 'Suivant', |
| |
'Following node' => 'N@oe{}ud suivant', |
| |
'Footnotes' => 'Notes de bas de page', |
| |
'Forward' => 'Avant', |
| |
'Forward section in next file' => '', |
| |
'From 1.2.3 go to' => 'Depuis 1.2.3 aller @`a', |
| |
'Go to' => 'Aller @`a', |
| |
'Index' => 'Index', |
| |
'Index Entry' => 'Entr@\'ee d\'index', |
| |
'January' => 'janvier', |
| |
'July' => 'juillet', |
| |
'Jump to' => 'Aller @`a', |
| |
'June' => 'juin', |
| |
'Last' => 'Dernier', |
| |
'Last section in reading order' => 'Derni@`ere section dans l\'ordre de lecture', |
| |
'March' => 'mars', |
| |
'May' => 'mai', |
| |
'Menu:' => 'Menu@ :', |
| |
'Name' => 'Nom', |
| |
'Next' => 'Suivant', |
| |
'Next chapter' => 'Chapitre suivant', |
| |
'Next file' => 'Fichier suivant', |
| |
'Next node' => 'N@oe{}ud suivant', |
| |
'Next section in reading order' => 'Section suivante dans l\'ordre de lecture', |
| |
'Next section on same level' => 'Section suivante au m@^eme niveau', |
| |
'NextFile' => 'FichierSuivant', |
| |
'Node following in node reading order' => 'N@oe{}ud suivant dans l\'ordre de lecture', |
| |
'Node up' => 'N@oe{}ud au dessus', |
| |
'NodeNext' => 'N@oe{}udSuivant', |
| |
'NodePrev' => 'N@oe{}udPr@\'ec@\'edent', |
| |
'NodeUp' => 'N@oe{}udMonter', |
| |
'November' => 'novembre', |
| |
'October' => 'octobre', |
| |
'Overview' => 'Vue d\'ensemble', |
| |
'Prev' => 'Pr@\'ec@\'edent', |
| |
'PrevFile' => '', |
| |
'Previous' => '', |
| |
'Previous file' => 'Fichier pr@\'ec@\'edent', |
| |
'Previous node' => 'N@oe{}ud pr@\'ec@\'edent', |
| |
'Previous section in reading order' => 'Section pr@\'ec@\'edente dans l\'ordre de lecture', |
| |
'Previous section on same level' => 'Section pr@\'ec@\'edente au m@^eme niveau', |
| |
'Section' => '', |
| |
'Section One' => 'Section un', |
| |
'See ' => '', |
| |
'See @cite{{book}}' => 'Voir @cite{{book}}', |
| |
'See `{section}\'' => 'Section sup@\'erieure', |
| |
'See `{section}\' in @cite{{book}}' => 'Voir la section `{section}\' dans @cite{{book}}', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'See section {reference_name}' => 'Voir la section {reference_name}', |
| |
'See {node_file_href}' => 'Voir {node_file_href}', |
| |
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Voir {node_file_href} section `{section}\' dans @cite{{book}}', |
| |
'See {reference_name}' => 'Voir {reference_name}', |
| |
'See {reference}' => 'Voir {reference_name}', |
| |
'See {reference} in @cite{{book}}' => 'Voir {node_file_href} @cite{{book}}', |
| |
'See {ref}' => '', |
| |
'See {title_ref}' => '', |
| |
'September' => 'septembre', |
| |
'Short Table of Contents' => 'R@\'esum@\'e du contenu', |
| |
'Short table of contents' => 'R@\'esum@\'e du contenu', |
| |
'Subsection One-Four' => 'Sous section un-quatre', |
| |
'Subsection One-One' => 'Sous section un-un', |
| |
'Subsection One-Three' => 'Sous section un-trois', |
| |
'Subsection One-Two' => 'Sous section un-deux', |
| |
'Subsubsection One-Two-Four' => 'Sous sous section un-deux-quatre', |
| |
'Subsubsection One-Two-One' => 'Sous sous section un-deux-un', |
| |
'Subsubsection One-Two-Three' => 'Sous sous section un-deux-trois', |
| |
'Subsubsection One-Two-Two' => 'Sous sous section un-deux-deux', |
| |
'Table of Contents' => 'Table des mati@`eres', |
| |
'Table of contents' => 'Table des mati@`eres', |
| |
'The node you are looking for is at {href}.' => 'Le n@oe{}ud que vous recherchez est ici@ : {href}.', |
| |
'This' => 'Ici', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e le @emph{{date}} en utilisant @uref{{program_homepage}, @emph{{program}}}', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e en utilisant @uref{{program_homepage}, @emph{{program}}}.', |
| |
'Top' => 'Racine', |
| |
'Untitled Document' => 'Document sans titre', |
| |
'Up' => 'Monter', |
| |
'Up node' => 'N@oe{}ud au dessus', |
| |
'Up section' => 'Section sup@\'erieure', |
| |
'`{section}\'' => 'Section sup@\'erieure', |
| |
'`{section}\' in @cite{{book}}' => 'section `{section}\' dans @cite{{book}}', |
| |
'current' => 'courante', |
| |
'on @emph{{date}}' => 'le @emph{{date}}', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see ' => '', |
| |
'see @cite{{book}}' => 'voir @cite{{book}}', |
| |
'see `{section}\'' => 'Section sup@\'erieure', |
| |
'see `{section}\' in @cite{{book}}' => 'section `{section}\' dans @cite{{book}}', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see section `{section}\' in @cite{{book}}' => 'voir la section `{section}\' dans @cite{{book}}', |
| |
'see section {reference_name}' => 'voir la section {reference_name}', |
| |
'see {node_file_href}' => 'voir {node_file_href}', |
| |
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'voir {node_file_href} section `{section}\' dans @cite{{book}}', |
| |
'see {reference_name}' => 'voir {reference_name}', |
| |
'see {reference}' => 'voir {reference_name}', |
| |
'see {reference} in @cite{{book}}' => 'voir {node_file_href} @cite{{book}}', |
| |
'see {ref}' => '', |
| |
'see {title_ref}' => '', |
| |
'{acronym_like} ({explanation})' => '', |
| |
'{month} {day}, {year}' => 'le {day} {month} {year}', |
| |
'{name} of {class}' => '{name} de {class}', |
| |
'{name} on {class}' => '{name} de {class}', |
| |
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} section `{section}\' dans @cite{{book}}', |
| |
'{reference_name}' => '', |
| |
'{reference}' => 'voir {reference_name}', |
| |
'{reference} in @cite{{book}}' => 'voir @cite{{book}}', |
| |
'{ref}' => '', |
| |
'{style} {number}' => '', |
| |
'{style}: {caption_first_line}' => '', |
| |
'{style}: {shortcaption_first_line}' => '', |
| |
'{title_ref}' => '' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'de'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => ' Die Links in der Navigationsleiste haben die folgende Bedeutung: ', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' wobei das @strong{ Beispiel } annimmt, dass die aktuelle Position bei @strong{ Unterabschnitt 1-2-3 } in einem Dokument mit folgender Struktur liegt:', |
| |
' Up ' => ' Nach oben ', |
| |
'(outside of any element)' => '', |
| |
'(outside of any node)' => '', |
| |
'@b{{quotation_arg}:} ' => '@b{{quotation_arg}:} ', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '@cite{{book}}', |
| |
'@{No value for `{value}\'@}' => '', |
| |
'About' => '@"Uber', |
| |
'About (help)' => '@"Uber (Hilfe)', |
| |
'About This Document' => '@"Uber dieses Dokument', |
| |
'April' => 'April', |
| |
'August' => 'August', |
| |
'Back' => 'Zur@"uck', |
| |
'Back section in previous file' => '', |
| |
'Beginning of this chapter or previous chapter' => 'Anfang dieses oder des letzten Kapitels', |
| |
'Button' => '', |
| |
'Contents' => 'Inhalt', |
| |
'Cover (top) of document' => 'Titelseite des Dokuments', |
| |
'Current' => '', |
| |
'Current Position' => 'Aktuelle Position', |
| |
'Current section' => 'Aktueller Abschnitt', |
| |
'December' => 'Dezember', |
| |
'FastBack' => '', |
| |
'FastForward' => '', |
| |
'February' => 'Februar', |
| |
'First' => '', |
| |
'First section in reading order' => 'Erster Abschnitt in Lesereihenfolge', |
| |
'Following' => '', |
| |
'Following node' => 'N@"achster Knoten', |
| |
'Footnotes' => 'Fu@ss{}noten', |
| |
'Forward' => 'Nach vorne', |
| |
'Forward section in next file' => '', |
| |
'From 1.2.3 go to' => 'Von 1.2.3 gehe zu', |
| |
'Go to' => 'Gehe zu', |
| |
'Index' => 'Index', |
| |
'Index Entry' => 'Indexeintrag', |
| |
'January' => 'Januar', |
| |
'July' => 'Juli', |
| |
'Jump to' => 'Springe zu', |
| |
'June' => 'Juni', |
| |
'Last' => '', |
| |
'Last section in reading order' => 'Letzter Abschnitt in Lesereihenfolge', |
| |
'March' => 'M@"arz', |
| |
'May' => 'Mai', |
| |
'Menu:' => 'Auswahl:', |
| |
'Name' => 'Name', |
| |
'Next' => '', |
| |
'Next chapter' => 'N@"achstes Kapitel', |
| |
'Next file' => '', |
| |
'Next node' => 'N@"achster Knoten', |
| |
'Next section in reading order' => 'N@"achster Abschnitt in Lesereihenfolge', |
| |
'Next section on same level' => 'N@"achster Abschitt derselben Ebene', |
| |
'NextFile' => '', |
| |
'Node following in node reading order' => 'N@"achster Abschnitt in Lesereihenfolge', |
| |
'Node up' => 'Knoten nach oben', |
| |
'NodeNext' => '', |
| |
'NodePrev' => '', |
| |
'NodeUp' => '', |
| |
'November' => 'November', |
| |
'October' => 'Oktober', |
| |
'Overview' => '@"Ubersicht', |
| |
'Prev' => '', |
| |
'PrevFile' => '', |
| |
'Previous' => '', |
| |
'Previous file' => '', |
| |
'Previous node' => 'Voriger Knoten', |
| |
'Previous section in reading order' => 'Voriger Abschnitt in Lesereihenfolge', |
| |
'Previous section on same level' => 'Voriger Abschnitt derselben Ebene', |
| |
'Section' => 'Abschnitt', |
| |
'Section One' => 'Abschnitt 1', |
| |
'See ' => '', |
| |
'See @cite{{book}}' => '', |
| |
'See `{section}\'' => 'Abschnitt nach oben', |
| |
'See `{section}\' in @cite{{book}}' => 'Siehe Abschnitt `{section}\' in @cite{{book}}', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'See section {reference_name}' => '', |
| |
'See {node_file_href}' => 'Siehe {node_file_href}', |
| |
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Siehe {node_file_href} in Abschnitt `{section}\' in @cite{{book}}', |
| |
'See {reference_name}' => '', |
| |
'See {reference}' => 'siehe {reference_name}', |
| |
'See {reference} in @cite{{book}}' => 'Siehe {node_file_href} @cite{{book}}', |
| |
'See {ref}' => '', |
| |
'See {title_ref}' => '', |
| |
'September' => 'September', |
| |
'Short Table of Contents' => 'Kurzes Inhaltsverzeichnis', |
| |
'Short table of contents' => 'Kurzes Inhaltsverzeichnis', |
| |
'Subsection One-Four' => 'Unterabschnitt 1-4', |
| |
'Subsection One-One' => 'Unterabschnitt 1-1', |
| |
'Subsection One-Three' => 'Unterabschnitt 1-3', |
| |
'Subsection One-Two' => 'Unterabschnitt 1-2', |
| |
'Subsubsection One-Two-Four' => 'Unterabschnitt 1-2-4', |
| |
'Subsubsection One-Two-One' => 'Unterabschnitt 1-2-1', |
| |
'Subsubsection One-Two-Three' => 'Unterabschnitt 1-2-3', |
| |
'Subsubsection One-Two-Two' => 'Unterabschnitt 1-2-2', |
| |
'Table of Contents' => 'Inhaltsverzeichnis', |
| |
'Table of contents' => 'Inhaltsverzeichnis', |
| |
'The node you are looking for is at {href}.' => 'Der Knoten, den Sie sehen, befindet sich bei {href}', |
| |
'This' => '', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Dieses Dokument wurde erzeugt am @i{{date}} durch @uref{{program_homepage}, @i{{program}}}.', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Dieses Dokument wurde erzeugt durch @uref{{program_homepage}, @emph{{program}}}.', |
| |
'Top' => 'Anfang', |
| |
'Untitled Document' => 'Unbenanntes Dokumen', |
| |
'Up' => 'Nach oben', |
| |
'Up node' => 'Knoten nach oben', |
| |
'Up section' => 'Abschnitt nach oben', |
| |
'`{section}\'' => 'Abschnitt nach oben', |
| |
'`{section}\' in @cite{{book}}' => 'Abschnitt `{section}\' in @cite{{book}}', |
| |
'current' => '', |
| |
'on @emph{{date}}' => 'am @emph{{date}}', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see ' => '', |
| |
'see @cite{{book}}' => 'siehe @cite{{book}}', |
| |
'see `{section}\'' => 'Abschnitt nach oben', |
| |
'see `{section}\' in @cite{{book}}' => 'Abschnitt `{section}\' in @cite{{book}}', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see section `{section}\' in @cite{{book}}' => 'siehe Abschnitt `{section}\' in @cite{{book}}', |
| |
'see section {reference_name}' => 'siehe Abschnitt {reference_name}', |
| |
'see {node_file_href}' => 'siehe {node_file_href}', |
| |
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'siehe {node_file_href} im Abschnitt `{section}\' in @cite{{book}}', |
| |
'see {reference_name}' => 'siehe {reference_name}', |
| |
'see {reference}' => 'siehe {reference_name}', |
| |
'see {reference} in @cite{{book}}' => 'siehe {node_file_href} @cite{{book}}', |
| |
'see {ref}' => '', |
| |
'see {title_ref}' => '', |
| |
'{acronym_like} ({explanation})' => '{acronym_like} ({explanation})', |
| |
'{month} {day}, {year}' => '{day}. {month} {year}', |
| |
'{name} of {class}' => '', |
| |
'{name} on {class}' => '', |
| |
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} in Abschnitt `{section}\' in @cite{{book}}', |
| |
'{reference_name}' => '{reference_name}', |
| |
'{reference}' => '{reference_name}', |
| |
'{reference} in @cite{{book}}' => 'siehe @cite{{book}}', |
| |
'{ref}' => '', |
| |
'{style} {number}' => '{style} {number}', |
| |
'{style}: {caption_first_line}' => '{style}: {caption_first_line}', |
| |
'{style}: {shortcaption_first_line}' => '{style}: {shortcaption_first_line}', |
| |
'{title_ref}' => '' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'pt'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => ' Os bot@~oes nos pain@\'eis de navega@,{c}@~ao possuem os seguintes significados:', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' onde o @strong{ Exemplo } assume que a posi@,{c}@~ao atual localiza-se em @strong{ Subsub@,{c}@~ao Um-Dois-Tr@^es } de um documento com a seguinte estrutura:', |
| |
' Up ' => ' Acima ', |
| |
'(outside of any element)' => '', |
| |
'(outside of any node)' => '', |
| |
'@b{{quotation_arg}:} ' => '', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '', |
| |
'@{No value for `{value}\'@}' => '', |
| |
'About' => 'Sobre', |
| |
'About (help)' => 'Sobre (ajuda)', |
| |
'About This Document' => 'Sobre Esse Documento', |
| |
'April' => 'Abril', |
| |
'August' => 'Agosto', |
| |
'Back' => 'Volta', |
| |
'Back section in previous file' => '', |
| |
'Beginning of this chapter or previous chapter' => 'Come@,{c}o desse cap@\'itulo ou cap@\'itulo anterior', |
| |
'Button' => 'Bot@~ao', |
| |
'Contents' => 'Conte@\'udo', |
| |
'Cover (top) of document' => 'In@\'icio (topo) do documento', |
| |
'Current' => '', |
| |
'Current Position' => 'Posi@,{c}@~ao Atual', |
| |
'Current section' => 'Se@,{c}@~ao atual', |
| |
'December' => 'Dezembro', |
| |
'FastBack' => 'Voltar R@\'apido', |
| |
'FastForward' => 'Avan@,{c}ar R@\'apido', |
| |
'February' => 'Fevereiro', |
| |
'First' => 'Primeiro', |
| |
'First section in reading order' => 'Primeira se@,{c}@~ao na ordem de leitura', |
| |
'Following' => 'Seguinte', |
| |
'Following node' => 'Nodo seguinte', |
| |
'Footnotes' => 'Notas de Rodap@\'e', |
| |
'Forward' => 'Avan@,{c}ar', |
| |
'Forward section in next file' => '', |
| |
'From 1.2.3 go to' => 'De 1.2.3 v@\'a para', |
| |
'Go to' => 'V@\'a para', |
| |
'Index' => '@\'Indice', |
| |
'Index Entry' => 'Entrada de @\'Indice', |
| |
'January' => 'Janeiro', |
| |
'July' => 'Julho', |
| |
'Jump to' => 'Pular para', |
| |
'June' => 'Junho', |
| |
'Last' => '@\'Ultimo', |
| |
'Last section in reading order' => '@\'Ultima se@,{c}@~ao na ordem de leitura', |
| |
'March' => 'Mar@,{c}o', |
| |
'May' => 'Maio', |
| |
'Menu:' => '', |
| |
'Name' => 'Nome', |
| |
'Next' => 'Pr@\'oximo', |
| |
'Next chapter' => 'Pr@\'oximo cap@\'itulo', |
| |
'Next file' => '', |
| |
'Next node' => 'Pr@\'oximo nodo', |
| |
'Next section in reading order' => 'Pr@\'oxima se@,{c}@~ao na ordem de leitura', |
| |
'Next section on same level' => 'Pr@\'oxima se@,{c}@~ao no mesmo n@\'ivel', |
| |
'NextFile' => '', |
| |
'Node following in node reading order' => 'Nodo seguinte na ordem de leitura de nodos', |
| |
'Node up' => 'Nodo acima', |
| |
'NodeNext' => 'Pr@\'oximo Nodo', |
| |
'NodePrev' => 'Nodo Anterior', |
| |
'NodeUp' => 'Nodo Acima', |
| |
'November' => 'Novembro', |
| |
'October' => 'Outubro', |
| |
'Overview' => 'Vis@~ao geral', |
| |
'Prev' => 'Pr@\'evio', |
| |
'PrevFile' => '', |
| |
'Previous' => '', |
| |
'Previous file' => '', |
| |
'Previous node' => 'Nodo anterior', |
| |
'Previous section in reading order' => 'Se@,{c}@~ao anterior na ordem de leitura', |
| |
'Previous section on same level' => 'Se@,{c}@~ao anterior no mesmo n@\'ivel', |
| |
'Section' => 'Se@,{c}@~ao', |
| |
'Section One' => 'Se@,{c}@~ao Um', |
| |
'See ' => '', |
| |
'See @cite{{book}}' => 'Veja @cite{{book}}', |
| |
'See `{section}\'' => 'Se@,{c}@~ao acima', |
| |
'See `{section}\' in @cite{{book}}' => 'Veja se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'See section {reference_name}' => 'Veja se@,{c}@~ao {reference_name}', |
| |
'See {node_file_href}' => 'Veja {node_file_href}', |
| |
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Veja {node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'See {reference_name}' => 'Veja {reference_name}', |
| |
'See {reference}' => 'Veja {reference_name}', |
| |
'See {reference} in @cite{{book}}' => 'Veja {node_file_href} @cite{{book}}', |
| |
'See {ref}' => '', |
| |
'See {title_ref}' => '', |
| |
'September' => 'Setembro', |
| |
'Short Table of Contents' => 'Breve Sum@\'ario', |
| |
'Short table of contents' => 'Breve sum@\'ario', |
| |
'Subsection One-Four' => 'Subse@,{c}@~ao Um-Quatro', |
| |
'Subsection One-One' => 'Subse@,{c}@~ao Um-Um', |
| |
'Subsection One-Three' => 'Subse@,{c}@~ao Um-Tr@^es', |
| |
'Subsection One-Two' => 'Subse@,{c}@~ao Um-Dois', |
| |
'Subsubsection One-Two-Four' => 'Subse@,{c}@~ao Um-Dois-Quatro', |
| |
'Subsubsection One-Two-One' => 'Subse@,{c}@~ao Um-Dois-Um', |
| |
'Subsubsection One-Two-Three' => 'Subse@,{c}@~ao Um-Dois-Tr@^es', |
| |
'Subsubsection One-Two-Two' => 'Subse@,{c}@~ao Um-Dois-Dois', |
| |
'Table of Contents' => 'Sum@\'ario', |
| |
'Table of contents' => 'Sum@\'ario', |
| |
'The node you are looking for is at {href}.' => 'O nodo que vo@^e est@\'a olhando est@\'a em {href}.', |
| |
'This' => 'Esse', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Esse documento foi gerado em @i{{date}} usando @uref{{program_homepage}, @i{{program}}}.', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Esse documento foi gerado usando @uref{{program_homepage}, @emph{{program}}}.', |
| |
'Top' => 'Topo', |
| |
'Untitled Document' => 'Documento Sem Nome', |
| |
'Up' => 'Acima', |
| |
'Up node' => 'Nodo acima', |
| |
'Up section' => 'Se@,{c}@~ao acima', |
| |
'`{section}\'' => 'Se@,{c}@~ao acima', |
| |
'`{section}\' in @cite{{book}}' => 'se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'current' => 'atual', |
| |
'on @emph{{date}}' => 'em @emph{{date}}', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see ' => '', |
| |
'see @cite{{book}}' => 'veja @cite{{book}}', |
| |
'see `{section}\'' => 'Se@,{c}@~ao acima', |
| |
'see `{section}\' in @cite{{book}}' => 'se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see section `{section}\' in @cite{{book}}' => 'veja se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'see section {reference_name}' => 'veja se@,{c}@~ao {reference_name}', |
| |
'see {node_file_href}' => 'veja {node_file_href}', |
| |
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'veja {node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'see {reference_name}' => 'veja {reference_name}', |
| |
'see {reference}' => 'veja {reference_name}', |
| |
'see {reference} in @cite{{book}}' => 'veja {node_file_href} @cite{{book}}', |
| |
'see {ref}' => '', |
| |
'see {title_ref}' => '', |
| |
'{acronym_like} ({explanation})' => '', |
| |
'{month} {day}, {year}' => '{day} de {month} de {year}', |
| |
'{name} of {class}' => '{name} da {class}', |
| |
'{name} on {class}' => '{name} na {class}', |
| |
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'{reference_name}' => '', |
| |
'{reference}' => 'veja {reference_name}', |
| |
'{reference} in @cite{{book}}' => 'veja @cite{{book}}', |
| |
'{ref}' => '', |
| |
'{style} {number}' => '', |
| |
'{style}: {caption_first_line}' => '', |
| |
'{style}: {shortcaption_first_line}' => '', |
| |
'{title_ref}' => '' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'hu'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => ' A navigációs panelen levő gombok jelentése a következő:', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' @strong{ Példánkban } az aktuális pozíció az @strong{ 1.2.3 alalszakasz } egy olyan dokumentumban, melynek szerkezete a következő:', |
| |
' Up ' => 'Fel', |
| |
'(outside of any element)' => '(bármelyik elemen kívül)', |
| |
'(outside of any node)' => '(bármelyik csomóponton kívül)', |
| |
'@b{{quotation_arg}:} ' => '@b{{quotation_arg}:} ', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '@cite{{book}}', |
| |
'@{No value for `{value}\'@}' => '@{Nincs értéke ennek: `{value}\'@}', |
| |
'About' => 'Súgó', |
| |
'About (help)' => 'Segítség a navigációhoz', |
| |
'About This Document' => 'A navigációs panel használata', |
| |
'April' => 'április', |
| |
'August' => 'augusztus', |
| |
'Back' => 'Vissza', |
| |
'Back section in previous file' => 'Előző fájl hátsó szakasza', |
| |
'Beginning of this chapter or previous chapter' => 'Fejezet eleje vagy előző fejezet', |
| |
'Button' => 'Gomb', |
| |
'Contents' => 'Tartalom', |
| |
'Cover (top) of document' => 'Dokumentum címoldala', |
| |
'Current' => 'Aktuális', |
| |
'Current Position' => 'Aktuális pozíció', |
| |
'Current section' => 'Aktuális szakasz', |
| |
'December' => 'december', |
| |
'FastBack' => 'Visszaugrás', |
| |
'FastForward' => 'Előreugrás', |
| |
'February' => 'február', |
| |
'First' => 'Első', |
| |
'First section in reading order' => 'Első szakasz az olvasási sorrendben', |
| |
'Following' => 'Következő', |
| |
'Following node' => 'Következő csomópont', |
| |
'Footnotes' => 'Lábjegyzet', |
| |
'Forward' => 'Előre', |
| |
'Forward section in next file' => 'Következő fájl elülső szakasza', |
| |
'From 1.2.3 go to' => '1.2.3-ból ide jutunk', |
| |
'Go to' => 'Cél', |
| |
'Index' => 'Tárgymutató', |
| |
'Index Entry' => 'Tárgymutató-bejegyzés', |
| |
'January' => 'január', |
| |
'July' => 'július', |
| |
'Jump to' => 'Ugorj ide', |
| |
'June' => 'június', |
| |
'Last' => 'Utolsó', |
| |
'Last section in reading order' => 'Utolsó szakasz az olvasási sorrendben', |
| |
'March' => 'március', |
| |
'May' => 'május', |
| |
'Menu:' => 'Menü:', |
| |
'Name' => 'Név', |
| |
'Next' => 'Következő', |
| |
'Next chapter' => 'Következő fejezet', |
| |
'Next file' => 'Következő fájl', |
| |
'Next node' => 'Következő csomópont', |
| |
'Next section in reading order' => 'Következő szakasz az olvasási sorrendben', |
| |
'Next section on same level' => 'Következő szakasz ugyanazon a szinten', |
| |
'NextFile' => 'KövetkezőFájl', |
| |
'Node following in node reading order' => 'Következő csomópont az olvasási sorrendben', |
| |
'Node up' => 'Szülő csomópont', |
| |
'NodeNext' => 'KövetkezőCsomópont', |
| |
'NodePrev' => 'ElőzőCsomópont', |
| |
'NodeUp' => 'SzülőCsomópont', |
| |
'November' => 'november', |
| |
'October' => 'október', |
| |
'Overview' => 'Áttekintés', |
| |
'Prev' => 'Előző', |
| |
'PrevFile' => 'ElőzőFájl', |
| |
'Previous' => 'Előző', |
| |
'Previous file' => 'Előző fájl', |
| |
'Previous node' => 'Előző csomópont', |
| |
'Previous section in reading order' => 'Előző szakasz az olvasási sorrendben', |
| |
'Previous section on same level' => 'Előző szakasz ugyanazon a szinten', |
| |
'Section' => 'Szakasz', |
| |
'Section One' => 'szakasz', |
| |
'See ' => 'Ld. ', |
| |
'See @cite{{book}}' => 'Ld. @cite{{book}}', |
| |
'See `{section}\'' => 'Szülő szakasz', |
| |
'See `{section}\' in @cite{{book}}' => 'Ld. ezt a szakaszt: `{section}\' itt: @cite{{book}}', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'Ld. ezt a szakaszt: `@asis{}`{section_name}\'@asis{}\' itt: @cite{{book}}', |
| |
'See section {reference_name}' => 'Ld. ezt a szakaszt: {reference_name}', |
| |
'See {node_file_href}' => 'Ld. {node_file_href}', |
| |
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Ld. {node_file_href} ezt a szakaszt: `{section}\' itt: @cite{{book}}', |
| |
'See {reference_name}' => 'Ld. {reference_name}', |
| |
'See {reference}' => 'Ld. {reference_name}', |
| |
'See {reference} in @cite{{book}}' => 'See {node_file_href} @cite{{book}}', |
| |
'See {ref}' => 'Ld. {ref}', |
| |
'See {title_ref}' => 'Ld. {title_ref}', |
| |
'September' => 'szeptember', |
| |
'Short Table of Contents' => 'Rövid tartalomjegyzék', |
| |
'Short table of contents' => 'Rövid tartalomjegyzék', |
| |
'Subsection One-Four' => 'alszakasz', |
| |
'Subsection One-One' => 'alszakasz', |
| |
'Subsection One-Three' => 'alszakasz', |
| |
'Subsection One-Two' => 'alszakasz', |
| |
'Subsubsection One-Two-Four' => 'alalszakasz', |
| |
'Subsubsection One-Two-One' => 'alalszakasz', |
| |
'Subsubsection One-Two-Three' => 'alalszakasz', |
| |
'Subsubsection One-Two-Two' => 'alalszakasz', |
| |
'Table of Contents' => 'Tartalomjegyzék', |
| |
'Table of contents' => 'Tartalomjegyzék', |
| |
'The node you are looking for is at {href}.' => 'A keresett csomópont itt található: {href}.', |
| |
'This' => 'Ez a(z)', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Ezt a dokumentumot @i{{date}} napon generálta a(z) @uref{{program_homepage}, @i{{program}}}.', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Ezt a dokumentumot a(z) @uref{{program_homepage}, @emph{{program}}} generálta.', |
| |
'Top' => 'Címoldal', |
| |
'Untitled Document' => 'Névtelen dokumentum', |
| |
'Up' => 'Fel', |
| |
'Up node' => 'Szülő csomópont', |
| |
'Up section' => 'Szülő szakasz', |
| |
'`{section}\'' => 'Szülő szakasz', |
| |
'`{section}\' in @cite{{book}}' => 'szakasz: `{section}\' itt: @cite{{book}}', |
| |
'current' => 'aktuális', |
| |
'on @emph{{date}}' => 'ekkor: @emph{{date}}', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'szakasz: `@asis{}`{section_name}\'@asis{}\' itt: @cite{{book}}', |
| |
'see ' => 'ld. ', |
| |
'see @cite{{book}}' => 'ld. @cite{{book}}', |
| |
'see `{section}\'' => 'Szülő szakasz', |
| |
'see `{section}\' in @cite{{book}}' => 'szakasz: `{section}\' itt: @cite{{book}}', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'ld. ezt a szakaszt: `@asis{}`{section_name}\'@asis{}\' itt: @cite{{book}}', |
| |
'see section `{section}\' in @cite{{book}}' => 'ld. ezt a szakaszt: `{section}\' itt: @cite{{book}}', |
| |
'see section {reference_name}' => 'ld. ezt a szakaszt: {reference_name}', |
| |
'see {node_file_href}' => 'ld. {node_file_href}', |
| |
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'ld. {node_file_href} ezt a szakaszt: `{section}\' itt: @cite{{book}}', |
| |
'see {reference_name}' => 'ld. {reference_name}', |
| |
'see {reference}' => 'ld. {reference_name}', |
| |
'see {reference} in @cite{{book}}' => 'ld. {node_file_href} @cite{{book}}', |
| |
'see {ref}' => 'ld. {ref}', |
| |
'see {title_ref}' => 'ld. {title_ref}', |
| |
'{acronym_like} ({explanation})' => '{acronym_like} ({explanation})', |
| |
'{month} {day}, {year}' => '', |
| |
'{name} of {class}' => '{name} típusa: {class}', |
| |
'{name} on {class}' => '{name} ezen: {class}', |
| |
'{node_file_href}' => '{node_file_href}', |
| |
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} szakasz: `{section}\' itt: @cite{{book}}', |
| |
'{reference_name}' => '{reference_name}', |
| |
'{reference}' => '{reference_name}', |
| |
'{reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}', |
| |
'{ref}' => '{ref}', |
| |
'{style} {number}' => '{style} {number}', |
| |
'{style}: {caption_first_line}' => '{style}: {caption_first_line}', |
| |
'{style}: {shortcaption_first_line}' => '{style}: {shortcaption_first_line}', |
| |
'{title_ref}' => '{title_ref}' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'pt_BR'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => ' Os bot@~oes nos pain@\'eis de navega@,{c}@~ao possuem os seguintes significados:', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' onde o @strong{ Exemplo } assume que a posi@,{c}@~ao atual localiza-se em @strong{ Subsub@,{c}@~ao Um-Dois-Tr@^es } de um documento com a seguinte estrutura:', |
| |
' Up ' => ' Acima ', |
| |
'(outside of any element)' => '', |
| |
'(outside of any node)' => '', |
| |
'@b{{quotation_arg}:} ' => '', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '', |
| |
'@{No value for `{value}\'@}' => '', |
| |
'About' => 'Sobre', |
| |
'About (help)' => 'Sobre (ajuda)', |
| |
'About This Document' => 'Sobre Esse Documento', |
| |
'April' => 'Abril', |
| |
'August' => 'Agosto', |
| |
'Back' => 'Volta', |
| |
'Back section in previous file' => '', |
| |
'Beginning of this chapter or previous chapter' => 'Come@,{c}o desse cap@\'itulo ou cap@\'itulo anterior', |
| |
'Button' => 'Bot@~ao', |
| |
'Contents' => 'Conte@\'udo', |
| |
'Cover (top) of document' => 'In@\'icio (topo) do documento', |
| |
'Current' => '', |
| |
'Current Position' => 'Posi@,{c}@~ao Atual', |
| |
'Current section' => 'Se@,{c}@~ao atual', |
| |
'December' => 'Dezembro', |
| |
'FastBack' => 'Voltar R@\'apido', |
| |
'FastForward' => 'Avan@,{c}ar R@\'apido', |
| |
'February' => 'Fevereiro', |
| |
'First' => 'Primeiro', |
| |
'First section in reading order' => 'Primeira se@,{c}@~ao na ordem de leitura', |
| |
'Following' => 'Seguinte', |
| |
'Following node' => 'Nodo seguinte', |
| |
'Footnotes' => 'Notas de Rodap@\'e', |
| |
'Forward' => 'Avan@,{c}ar', |
| |
'Forward section in next file' => '', |
| |
'From 1.2.3 go to' => 'De 1.2.3 v@\'a para', |
| |
'Go to' => 'V@\'a para', |
| |
'Index' => '@\'Indice', |
| |
'Index Entry' => 'Entrada de @\'Indice', |
| |
'January' => 'Janeiro', |
| |
'July' => 'Julho', |
| |
'Jump to' => 'Pular para', |
| |
'June' => 'Junho', |
| |
'Last' => '@\'Ultimo', |
| |
'Last section in reading order' => '@\'Ultima se@,{c}@~ao na ordem de leitura', |
| |
'March' => 'Mar@,{c}o', |
| |
'May' => 'Maio', |
| |
'Menu:' => '', |
| |
'Name' => 'Nome', |
| |
'Next' => 'Pr@\'oximo', |
| |
'Next chapter' => 'Pr@\'oximo cap@\'itulo', |
| |
'Next file' => '', |
| |
'Next node' => 'Pr@\'oximo nodo', |
| |
'Next section in reading order' => 'Pr@\'oxima se@,{c}@~ao na ordem de leitura', |
| |
'Next section on same level' => 'Pr@\'oxima se@,{c}@~ao no mesmo n@\'ivel', |
| |
'NextFile' => '', |
| |
'Node following in node reading order' => 'Nodo seguinte na ordem de leitura de nodos', |
| |
'Node up' => 'Nodo acima', |
| |
'NodeNext' => 'Pr@\'oximo Nodo', |
| |
'NodePrev' => 'Nodo Anterior', |
| |
'NodeUp' => 'Nodo Acima', |
| |
'November' => 'Novembro', |
| |
'October' => 'Outubro', |
| |
'Overview' => 'Vis@~ao geral', |
| |
'Prev' => 'Pr@\'evio', |
| |
'PrevFile' => '', |
| |
'Previous' => '', |
| |
'Previous file' => '', |
| |
'Previous node' => 'Nodo anterior', |
| |
'Previous section in reading order' => 'Se@,{c}@~ao anterior na ordem de leitura', |
| |
'Previous section on same level' => 'Se@,{c}@~ao anterior no mesmo n@\'ivel', |
| |
'Section' => 'Se@,{c}@~ao', |
| |
'Section One' => 'Se@,{c}@~ao Um', |
| |
'See ' => '', |
| |
'See @cite{{book}}' => 'Veja @cite{{book}}', |
| |
'See `{section}\'' => 'Se@,{c}@~ao acima', |
| |
'See `{section}\' in @cite{{book}}' => 'Veja se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'See section {reference_name}' => 'Veja se@,{c}@~ao {reference_name}', |
| |
'See {node_file_href}' => 'Veja {node_file_href}', |
| |
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Veja {node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'See {reference_name}' => 'Veja {reference_name}', |
| |
'See {reference}' => 'Veja {reference_name}', |
| |
'See {reference} in @cite{{book}}' => 'Veja {node_file_href} @cite{{book}}', |
| |
'See {ref}' => '', |
| |
'See {title_ref}' => '', |
| |
'September' => 'Setembro', |
| |
'Short Table of Contents' => 'Breve Sum@\'ario', |
| |
'Short table of contents' => 'Breve sum@\'ario', |
| |
'Subsection One-Four' => 'Subse@,{c}@~ao Um-Quatro', |
| |
'Subsection One-One' => 'Subse@,{c}@~ao Um-Um', |
| |
'Subsection One-Three' => 'Subse@,{c}@~ao Um-Tr@^es', |
| |
'Subsection One-Two' => 'Subse@,{c}@~ao Um-Dois', |
| |
'Subsubsection One-Two-Four' => 'Subse@,{c}@~ao Um-Dois-Quatro', |
| |
'Subsubsection One-Two-One' => 'Subse@,{c}@~ao Um-Dois-Um', |
| |
'Subsubsection One-Two-Three' => 'Subse@,{c}@~ao Um-Dois-Tr@^es', |
| |
'Subsubsection One-Two-Two' => 'Subse@,{c}@~ao Um-Dois-Dois', |
| |
'Table of Contents' => 'Sum@\'ario', |
| |
'Table of contents' => 'Sum@\'ario', |
| |
'The node you are looking for is at {href}.' => 'O nodo que vo@^e est@\'a olhando est@\'a em {href}.', |
| |
'This' => 'Esse', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Esse documento foi gerado em @i{{date}} usando @uref{{program_homepage}, @i{{program}}}.', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Esse documento foi gerado usando @uref{{program_homepage}, @emph{{program}}}.', |
| |
'Top' => 'Topo', |
| |
'Untitled Document' => 'Documento Sem Nome', |
| |
'Up' => 'Acima', |
| |
'Up node' => 'Nodo acima', |
| |
'Up section' => 'Se@,{c}@~ao acima', |
| |
'`{section}\'' => 'Se@,{c}@~ao acima', |
| |
'`{section}\' in @cite{{book}}' => 'se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'current' => 'atual', |
| |
'on @emph{{date}}' => 'em @emph{{date}}', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see ' => '', |
| |
'see @cite{{book}}' => 'veja @cite{{book}}', |
| |
'see `{section}\'' => 'Se@,{c}@~ao acima', |
| |
'see `{section}\' in @cite{{book}}' => 'se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see section `{section}\' in @cite{{book}}' => 'veja se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'see section {reference_name}' => 'veja se@,{c}@~ao {reference_name}', |
| |
'see {node_file_href}' => 'veja {node_file_href}', |
| |
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'veja {node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'see {reference_name}' => 'veja {reference_name}', |
| |
'see {reference}' => 'veja {reference_name}', |
| |
'see {reference} in @cite{{book}}' => 'veja {node_file_href} @cite{{book}}', |
| |
'see {ref}' => '', |
| |
'see {title_ref}' => '', |
| |
'{acronym_like} ({explanation})' => '', |
| |
'{month} {day}, {year}' => '{day} de {month} de {year}', |
| |
'{name} of {class}' => '{name} da {class}', |
| |
'{name} on {class}' => '{name} na {class}', |
| |
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}', |
| |
'{reference_name}' => '', |
| |
'{reference}' => 'veja {reference_name}', |
| |
'{reference} in @cite{{book}}' => 'veja @cite{{book}}', |
| |
'{ref}' => '', |
| |
'{style} {number}' => '', |
| |
'{style}: {caption_first_line}' => '', |
| |
'{style}: {shortcaption_first_line}' => '', |
| |
'{title_ref}' => '' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'es'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => ' Los botones de los paneles de navegaci@\'on tienen el significado siguiente:', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' donde el @strong{ Ejemplo } supone que la posici@\'on actual est@\'a en la @strong{ Sub-subsecci@\'on uno-dos-tres } de un documento de la estructura siguiente:', |
| |
' Up ' => ' Subir ', |
| |
'(outside of any element)' => '', |
| |
'(outside of any node)' => '', |
| |
'@b{{quotation_arg}:} ' => '', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '', |
| |
'@{No value for `{value}\'@}' => '', |
| |
'About' => 'Acerca de', |
| |
'About (help)' => 'Acerca de (p@\'agina de ayuda)', |
| |
'About This Document' => 'Acerca de este documento', |
| |
'April' => 'abril', |
| |
'August' => 'agosto', |
| |
'Back' => 'Atr@\'as', |
| |
'Back section in previous file' => 'Retroceder secci@\'on en el archivo anterior', |
| |
'Beginning of this chapter or previous chapter' => 'Inicio de este cap@\'itulo o cap@\'itulo anterior', |
| |
'Button' => 'Bot@\'on', |
| |
'Contents' => '@\'Indice general', |
| |
'Cover (top) of document' => 'Portada del documento', |
| |
'Current' => '', |
| |
'Current Position' => 'Posici@\'on actual', |
| |
'Current section' => 'Secci@\'on actual', |
| |
'December' => 'diciembre', |
| |
'FastBack' => 'Retroceso r@\'apido', |
| |
'FastForward' => 'Avance r@\'apido', |
| |
'February' => 'febrero', |
| |
'First' => 'Primero', |
| |
'First section in reading order' => 'Primera secci@\'on en orden de lectura', |
| |
'Following' => 'Siguiente', |
| |
'Following node' => 'Nodo siguiente', |
| |
'Footnotes' => 'Notas al pie', |
| |
'Forward' => 'Adelante', |
| |
'Forward section in next file' => 'Avanzar secci@\'on en el pr@\'oximo archivo', |
| |
'From 1.2.3 go to' => 'Desde 1.2.3 ir a', |
| |
'Go to' => 'Ir a', |
| |
'Index' => '@\'Indice', |
| |
'Index Entry' => 'Entrada de @\'indice', |
| |
'January' => 'enero', |
| |
'July' => 'julio', |
| |
'Jump to' => 'Saltar a', |
| |
'June' => 'junio', |
| |
'Last' => '@\'Ultimo', |
| |
'Last section in reading order' => '@\'Ultima secci@\'on en orden de lectura', |
| |
'March' => 'marzo', |
| |
'May' => 'mayo', |
| |
'Menu:' => 'Men@\'u:', |
| |
'Name' => 'Nombre', |
| |
'Next' => 'Siguiente', |
| |
'Next chapter' => 'Cap@\'itulo siguiente', |
| |
'Next file' => 'Archivo siguiente', |
| |
'Next node' => 'Nodo siguiente', |
| |
'Next section in reading order' => 'Secci@\'on siguiente en orden de lectura', |
| |
'Next section on same level' => 'Secci@\'on siguiente en el mismo nivel', |
| |
'NextFile' => 'ArchivoSiguiente', |
| |
'Node following in node reading order' => 'Nodo siguiente en orden de lectura de nodos', |
| |
'Node up' => 'Subir nodo', |
| |
'NodeNext' => 'NodoSiguiente', |
| |
'NodePrev' => 'NodoAnterior', |
| |
'NodeUp' => 'SubirNodo', |
| |
'November' => 'noviembre', |
| |
'October' => 'octubre', |
| |
'Overview' => 'Panor@\'amica', |
| |
'Prev' => 'Ant', |
| |
'PrevFile' => 'ArchivoAnt', |
| |
'Previous' => '', |
| |
'Previous file' => 'Archivo anterior', |
| |
'Previous node' => 'Nodo anterior', |
| |
'Previous section in reading order' => 'Secci@\'on anterior en orden de lectura', |
| |
'Previous section on same level' => 'Secci@\'on anterior en el mismo nivel', |
| |
'Section' => 'Secci@\'on', |
| |
'Section One' => 'Secci@\'on Uno', |
| |
'See ' => '', |
| |
'See @cite{{book}}' => 'V@\'ease @cite{{book}}', |
| |
'See `{section}\'' => 'Subir secci@\'on', |
| |
'See `{section}\' in @cite{{book}}' => 'V@\'ease la secci@\'on `{section}\' en @cite{{book}}', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'See section {reference_name}' => 'V@\'ease la secci@\'on {reference_name}', |
| |
'See {node_file_href}' => 'V@\'ease {node_file_href}', |
| |
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'V@\'ease {node_file_href} secci@\'on `{section}\' en @cite{{book}}', |
| |
'See {reference_name}' => 'V@\'ease {reference_name}', |
| |
'See {reference}' => 'V@\'ease {reference_name}', |
| |
'See {reference} in @cite{{book}}' => 'V@\'ease {node_file_href} @cite{{book}}', |
| |
'See {ref}' => '', |
| |
'See {title_ref}' => '', |
| |
'September' => 'septiembre', |
| |
'Short Table of Contents' => 'Resumen del Contenido', |
| |
'Short table of contents' => 'Resumen del contenido', |
| |
'Subsection One-Four' => 'Subsecci@\'on uno-cuatro', |
| |
'Subsection One-One' => 'Subsecci@\'on uno-uno', |
| |
'Subsection One-Three' => 'Subsecci@\'on uno-tres', |
| |
'Subsection One-Two' => 'Subsecci@\'on uno-dos', |
| |
'Subsubsection One-Two-Four' => 'Sub-subsecci@\'on uno-dos-cuatro', |
| |
'Subsubsection One-Two-One' => 'Sub-subsecci@\'on uno-dos-uno', |
| |
'Subsubsection One-Two-Three' => 'Sub-subsecci@\'on uno-dos-tres', |
| |
'Subsubsection One-Two-Two' => 'Sub-subsecci@\'on uno-dos-dos', |
| |
'Table of Contents' => '@\'{@dotless{I}}ndice General', |
| |
'Table of contents' => '@\'{@dotless{I}}ndice general', |
| |
'The node you are looking for is at {href}.' => 'El nodo que busca se encuentra en {href}.', |
| |
'This' => 'Este', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Este documento se gener@\'o el @i{{date}} utilizando @uref{{program_homepage}, @i{{program}}}.', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Este documento se gener@\'o utilizando @uref{{program_homepage}, @emph{{program}}}.', |
| |
'Top' => 'Arriba', |
| |
'Untitled Document' => 'Documento sin t@\'itulo', |
| |
'Up' => 'Subir', |
| |
'Up node' => 'Subir nodo', |
| |
'Up section' => 'Subir secci@\'on', |
| |
'`{section}\'' => 'Subir secci@\'on', |
| |
'`{section}\' in @cite{{book}}' => 'secci@\'on `{section}\' en @cite{{book}}', |
| |
'current' => 'actual', |
| |
'on @emph{{date}}' => 'el @emph{{date}}', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see ' => '', |
| |
'see @cite{{book}}' => 'v@\'ease @cite{{book}}', |
| |
'see `{section}\'' => 'Subir secci@\'on', |
| |
'see `{section}\' in @cite{{book}}' => 'secci@\'on `{section}\' en @cite{{book}}', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see section `{section}\' in @cite{{book}}' => 'v@\'ease la secci@\'on `{section}\' en @cite{{book}}', |
| |
'see section {reference_name}' => 'v@\'ease la secci@\'on {reference_name}', |
| |
'see {node_file_href}' => 'v@\'ease {node_file_href}', |
| |
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'v@\'ease {node_file_href} secci@\'on `{section}\' en @cite{{book}}', |
| |
'see {reference_name}' => 'v@\'ease {reference_name}', |
| |
'see {reference}' => 'v@\'ease {reference_name}', |
| |
'see {reference} in @cite{{book}}' => 'v@\'ease {node_file_href} @cite{{book}}', |
| |
'see {ref}' => '', |
| |
'see {title_ref}' => '', |
| |
'{acronym_like} ({explanation})' => '', |
| |
'{month} {day}, {year}' => 'el {day} {month} {year}', |
| |
'{name} of {class}' => '{name} de {class}', |
| |
'{name} on {class}' => '{name} en {class}', |
| |
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} secci@\'on `{section}\' en @cite{{book}}', |
| |
'{reference_name}' => '', |
| |
'{reference}' => 'v@\'ease {reference_name}', |
| |
'{reference} in @cite{{book}}' => 'v@\'ease @cite{{book}}', |
| |
'{ref}' => '', |
| |
'{style} {number}' => '', |
| |
'{style}: {caption_first_line}' => '', |
| |
'{style}: {shortcaption_first_line}' => '', |
| |
'{title_ref}' => '' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'it'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => ' I bottoni nei pannelli di navigazione hanno il seguente significato:', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' dove @strong{ Esempio } assume che l\'attuale posizione è alla @strong{ Sottosottosezione Uno-Due-Tre } di un documento che ha la seguente struttura:', |
| |
' Up ' => ' Su ', |
| |
'(outside of any element)' => '(fuori da qualsiasi elemento)', |
| |
'(outside of any node)' => '(fuori da qualsiasi nodo)', |
| |
'@b{{quotation_arg}:} ' => '@b{{quotation_arg}:} ', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '@cite{{book}}', |
| |
'@{No value for `{value}\'@}' => '@{Nessun valore per `{value}\'@}', |
| |
'About' => 'Informazioni', |
| |
'About (help)' => 'Informazioni (aiuto)', |
| |
'About This Document' => 'Informazioni su questo documento', |
| |
'April' => 'Aprile', |
| |
'August' => 'Agosto', |
| |
'Back' => 'Indietro', |
| |
'Back section in previous file' => '', |
| |
'Beginning of this chapter or previous chapter' => 'Inizio di questo capitolo o capitolo precedente', |
| |
'Button' => 'Bottone', |
| |
'Contents' => 'Contenuti', |
| |
'Cover (top) of document' => 'Copertina (inizio) del documento', |
| |
'Current' => 'Attuale', |
| |
'Current Position' => 'Posizione Attuale', |
| |
'Current section' => 'Sezione attuale', |
| |
'December' => 'Dicembre', |
| |
'FastBack' => 'Indietro veloce', |
| |
'FastForward' => 'Avanti veloce', |
| |
'February' => 'Febbraio', |
| |
'First' => 'Primo', |
| |
'First section in reading order' => 'Prima sezione in ordine di lettura', |
| |
'Following' => 'Seguente', |
| |
'Following node' => 'Nodo seguente', |
| |
'Footnotes' => 'Note a piè di pagina', |
| |
'Forward' => 'Avanti', |
| |
'Forward section in next file' => 'Sezione successiva nel prossimo file', |
| |
'From 1.2.3 go to' => 'Da 1.2.3 vai a', |
| |
'Go to' => 'Vai a', |
| |
'Index' => 'Indice', |
| |
'Index Entry' => 'Voce dell\'indice', |
| |
'January' => 'Gennaio', |
| |
'July' => 'Luglio', |
| |
'Jump to' => 'Salta a', |
| |
'June' => 'Giugno', |
| |
'Last' => 'Ultimo', |
| |
'Last section in reading order' => 'Ultima sezione in ordine di lettura', |
| |
'March' => 'Marzo', |
| |
'May' => 'Maggio', |
| |
'Menu:' => 'Menu', |
| |
'Name' => 'Nome', |
| |
'Next' => 'Successivo', |
| |
'Next chapter' => 'Capitolo successivo', |
| |
'Next file' => 'File successivo', |
| |
'Next node' => 'Nodo successivo', |
| |
'Next section in reading order' => 'Sezione successiva in ordine di lettura', |
| |
'Next section on same level' => 'Sezione successiva sullo stesso livello', |
| |
'NextFile' => 'File successivo', |
| |
'Node following in node reading order' => 'Nodo seguente in ordine di lettura', |
| |
'Node up' => 'Nodo superiore', |
| |
'NodeNext' => 'Nodo successivo', |
| |
'NodePrev' => 'Nodo precedente', |
| |
'NodeUp' => 'Nodo superiore', |
| |
'November' => 'Novembre', |
| |
'October' => 'Ottobre', |
| |
'Overview' => 'Panoramica', |
| |
'Prev' => 'Prec.', |
| |
'PrevFile' => 'File precedente', |
| |
'Previous' => 'Precedente', |
| |
'Previous file' => 'File precedente', |
| |
'Previous node' => 'Nodo precedente', |
| |
'Previous section in reading order' => 'Sezione precedente in ordine di lettura', |
| |
'Previous section on same level' => 'Sezione precedente sullo stesso livello', |
| |
'Section' => 'Sezione', |
| |
'Section One' => 'Sezione uno', |
| |
'See ' => 'Vedi', |
| |
'See @cite{{book}}' => 'Vedi @cite{{book}}', |
| |
'See `{section}\'' => 'Sezione superiore', |
| |
'See `{section}\' in @cite{{book}}' => 'Vedi la sezione `{section}\' in @cite{{book}}', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'Vedi la sezione `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}', |
| |
'See section {reference_name}' => 'Vedi la sezione {reference_name}', |
| |
'See {node_file_href}' => 'Vedi {node_file_href}', |
| |
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Vedi {node_file_href} nella sezione `{section}\' in @cite{{book}}', |
| |
'See {reference_name}' => 'Vedi {reference_name}', |
| |
'See {reference}' => 'Vedi {reference_name}', |
| |
'See {reference} in @cite{{book}}' => 'Vedi {node_file_href} @cite{{book}}', |
| |
'See {ref}' => 'Vedi {ref}', |
| |
'See {title_ref}' => 'Vedi {title_ref}', |
| |
'September' => 'Settembre', |
| |
'Short Table of Contents' => 'Indice breve', |
| |
'Short table of contents' => 'Indice breve', |
| |
'Subsection One-Four' => 'Sottosezione Uno-Quattro', |
| |
'Subsection One-One' => 'Sottosezione Uno-Uno', |
| |
'Subsection One-Three' => 'Sottosezione Uno-Tre', |
| |
'Subsection One-Two' => 'Sottosezione Uno-Due', |
| |
'Subsubsection One-Two-Four' => 'Sottosottosezione Uno-Due-Quattro', |
| |
'Subsubsection One-Two-One' => 'Sottosottosezione Uno-Due-Uno', |
| |
'Subsubsection One-Two-Three' => 'Sottosottosezione Uno-Due-Tre', |
| |
'Subsubsection One-Two-Two' => 'Sottosottosezione Uno-Due-Due', |
| |
'Table of Contents' => 'Indice', |
| |
'Table of contents' => 'Indice', |
| |
'The node you are looking for is at {href}.' => 'Il nodo che stai cercando è {href}', |
| |
'This' => 'Questo', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Questo documento è stato generato il @i{{date}} con @uref{{program_homepage}, @i{{program}}}.', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Questo documento è stato generato con @uref{{program_homepage}, @emph{{program}}}.', |
| |
'Top' => 'Inizio', |
| |
'Untitled Document' => 'Documento senza titolo', |
| |
'Up' => 'Su', |
| |
'Up node' => 'Nodo superiore', |
| |
'Up section' => 'Sezione superiore', |
| |
'`{section}\'' => 'Sezione superiore', |
| |
'`{section}\' in @cite{{book}}' => 'sezione `{section}\' in @cite{{book}}', |
| |
'current' => 'attuale', |
| |
'on @emph{{date}}' => 'il @emph{{date}}', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'sezione `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}', |
| |
'see ' => 'vedi ', |
| |
'see @cite{{book}}' => 'vedi @cite{{book}}', |
| |
'see `{section}\'' => 'Sezione superiore', |
| |
'see `{section}\' in @cite{{book}}' => 'sezione `{section}\' in @cite{{book}}', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'vedi la sezione `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}', |
| |
'see section `{section}\' in @cite{{book}}' => 'vedi la sezione `{section}\' in @cite{{book}}', |
| |
'see section {reference_name}' => 'vedi la sezione {reference_name}', |
| |
'see {node_file_href}' => 'vedi {node_file_href}', |
| |
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'vedi {node_file_href} nella sezione `{section}\' in @cite{{book}}', |
| |
'see {reference_name}' => 'vedi {reference_name}', |
| |
'see {reference}' => 'vedi {reference_name}', |
| |
'see {reference} in @cite{{book}}' => 'vedi {node_file_href} @cite{{book}}', |
| |
'see {ref}' => 'vedi {ref}', |
| |
'see {title_ref}' => 'vedi {title_ref}', |
| |
'{acronym_like} ({explanation})' => '{acronym_like} ({explanation})', |
| |
'{month} {day}, {year}' => '', |
| |
'{name} of {class}' => '{name} di {class}', |
| |
'{name} on {class}' => '{name} in {class}', |
| |
'{node_file_href}' => '{node_file_href}', |
| |
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} nella sezione `{section}\' in @cite{{book}}', |
| |
'{reference_name}' => '{reference_name}', |
| |
'{reference}' => '{reference_name}', |
| |
'{reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}', |
| |
'{ref}' => '{ref}', |
| |
'{style} {number}' => '{style} {number}', |
| |
'{style}: {caption_first_line}' => '{style}: {caption_first_line}', |
| |
'{style}: {shortcaption_first_line}' => '{style}: {shortcaption_first_line}', |
| |
'{title_ref}' => '{title_ref}' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'no'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => '', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '', |
| |
' Up ' => '', |
| |
'(outside of any element)' => '', |
| |
'(outside of any node)' => '', |
| |
'@b{{quotation_arg}:} ' => '', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '', |
| |
'@{No value for `{value}\'@}' => '', |
| |
'About' => '', |
| |
'About (help)' => '', |
| |
'About This Document' => 'No translation available!', |
| |
'April' => 'april', |
| |
'August' => 'august', |
| |
'Back' => '', |
| |
'Back section in previous file' => '', |
| |
'Beginning of this chapter or previous chapter' => '', |
| |
'Button' => '', |
| |
'Contents' => '', |
| |
'Cover (top) of document' => '', |
| |
'Current' => '', |
| |
'Current Position' => '', |
| |
'Current section' => '', |
| |
'December' => 'desember', |
| |
'FastBack' => '', |
| |
'FastForward' => '', |
| |
'February' => 'februar', |
| |
'First' => '', |
| |
'First section in reading order' => '', |
| |
'Following' => '', |
| |
'Following node' => '', |
| |
'Footnotes' => 'No translation available!', |
| |
'Forward' => '', |
| |
'Forward section in next file' => '', |
| |
'From 1.2.3 go to' => '', |
| |
'Go to' => '', |
| |
'Index' => 'Indeks', |
| |
'Index Entry' => '', |
| |
'January' => 'januar', |
| |
'July' => 'juli', |
| |
'Jump to' => '', |
| |
'June' => 'juni', |
| |
'Last' => '', |
| |
'Last section in reading order' => '', |
| |
'March' => 'mars', |
| |
'May' => 'mai', |
| |
'Menu:' => '', |
| |
'Name' => '', |
| |
'Next' => '', |
| |
'Next chapter' => '', |
| |
'Next file' => '', |
| |
'Next node' => '', |
| |
'Next section in reading order' => '', |
| |
'Next section on same level' => '', |
| |
'NextFile' => '', |
| |
'Node following in node reading order' => '', |
| |
'Node up' => '', |
| |
'NodeNext' => '', |
| |
'NodePrev' => '', |
| |
'NodeUp' => '', |
| |
'November' => 'november', |
| |
'October' => 'oktober', |
| |
'Overview' => '', |
| |
'Prev' => '', |
| |
'PrevFile' => '', |
| |
'Previous' => '', |
| |
'Previous file' => '', |
| |
'Previous node' => '', |
| |
'Previous section in reading order' => '', |
| |
'Previous section on same level' => '', |
| |
'Section' => '', |
| |
'Section One' => '', |
| |
'See ' => '', |
| |
'See @cite{{book}}' => '', |
| |
'See `{section}\'' => '', |
| |
'See `{section}\' in @cite{{book}}' => '', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'See section {reference_name}' => '', |
| |
'See {reference_name}' => '', |
| |
'See {reference}' => '', |
| |
'See {reference} in @cite{{book}}' => '', |
| |
'See {ref}' => '', |
| |
'See {title_ref}' => '', |
| |
'September' => 'september', |
| |
'Short Table of Contents' => 'Kort innholdsfortegnelse', |
| |
'Short table of contents' => '', |
| |
'Subsection One-Four' => '', |
| |
'Subsection One-One' => '', |
| |
'Subsection One-Three' => '', |
| |
'Subsection One-Two' => '', |
| |
'Subsubsection One-Two-Four' => '', |
| |
'Subsubsection One-Two-One' => '', |
| |
'Subsubsection One-Two-Three' => '', |
| |
'Subsubsection One-Two-Two' => '', |
| |
'Table of Contents' => 'Innholdsfortegnelse', |
| |
'Table of contents' => '', |
| |
'The node you are looking for is at {href}.' => '', |
| |
'This' => '', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => '', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => '', |
| |
'Top' => '', |
| |
'Untitled Document' => '', |
| |
'Up' => '', |
| |
'Up node' => '', |
| |
'Up section' => '', |
| |
'`{section}\'' => '', |
| |
'`{section}\' in @cite{{book}}' => '', |
| |
'current' => '', |
| |
'on @emph{{date}}' => '', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see ' => '', |
| |
'see @cite{{book}}' => '', |
| |
'see `{section}\'' => '', |
| |
'see `{section}\' in @cite{{book}}' => '', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see section {reference_name}' => '', |
| |
'see {reference_name}' => '', |
| |
'see {reference}' => '', |
| |
'see {reference} in @cite{{book}}' => '', |
| |
'see {ref}' => '', |
| |
'see {title_ref}' => '', |
| |
'{acronym_like} ({explanation})' => '', |
| |
'{month} {day}, {year}' => '', |
| |
'{name} of {class}' => '', |
| |
'{name} on {class}' => '', |
| |
'{reference_name}' => '', |
| |
'{reference}' => '', |
| |
'{reference} in @cite{{book}}' => '', |
| |
'{ref}' => '', |
| |
'{style} {number}' => '', |
| |
'{style}: {caption_first_line}' => '', |
| |
'{style}: {shortcaption_first_line}' => '', |
| |
'{title_ref}' => '' |
| |
}; |
| |
# Automatically generated file. Edit the .po file instead. |
| |
$LANGUAGES->{'en'} = { |
| |
' The buttons in the navigation panels have the following meaning:' => '', |
| |
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '', |
| |
' Up ' => '', |
| |
'(outside of any element)' => '', |
| |
'(outside of any node)' => '', |
| |
'@b{{quotation_arg}:} ' => '', |
| |
'@center --- @emph{{author}} |
| |
' => '', |
| |
'@cite{{book}}' => '', |
| |
'@{No value for `{value}\'@}' => '', |
| |
'About' => '', |
| |
'About (help)' => '', |
| |
'About This Document' => '', |
| |
'April' => '', |
| |
'August' => '', |
| |
'Back' => '', |
| |
'Back section in previous file' => '', |
| |
'Beginning of this chapter or previous chapter' => '', |
| |
'Button' => '', |
| |
'Contents' => '', |
| |
'Cover (top) of document' => '', |
| |
'Current' => '', |
| |
'Current Position' => '', |
| |
'Current section' => '', |
| |
'December' => '', |
| |
'FastBack' => '', |
| |
'FastForward' => '', |
| |
'February' => '', |
| |
'First' => '', |
| |
'First section in reading order' => '', |
| |
'Following' => '', |
| |
'Following node' => '', |
| |
'Footnotes' => '', |
| |
'Forward' => '', |
| |
'Forward section in next file' => '', |
| |
'From 1.2.3 go to' => '', |
| |
'Go to' => '', |
| |
'Index' => '', |
| |
'Index Entry' => '', |
| |
'January' => '', |
| |
'July' => '', |
| |
'Jump to' => '', |
| |
'June' => '', |
| |
'Last' => '', |
| |
'Last section in reading order' => '', |
| |
'March' => '', |
| |
'May' => '', |
| |
'Menu:' => '', |
| |
'Name' => '', |
| |
'Next' => '', |
| |
'Next chapter' => '', |
| |
'Next file' => '', |
| |
'Next node' => '', |
| |
'Next section in reading order' => '', |
| |
'Next section on same level' => '', |
| |
'NextFile' => '', |
| |
'Node following in node reading order' => '', |
| |
'Node up' => '', |
| |
'NodeNext' => '', |
| |
'NodePrev' => '', |
| |
'NodeUp' => '', |
| |
'November' => '', |
| |
'October' => '', |
| |
'Overview' => '', |
| |
'Prev' => '', |
| |
'PrevFile' => '', |
| |
'Previous' => '', |
| |
'Previous file' => '', |
| |
'Previous node' => '', |
| |
'Previous section in reading order' => '', |
| |
'Previous section on same level' => '', |
| |
'Section' => '', |
| |
'Section One' => '', |
| |
'See ' => '', |
| |
'See @cite{{book}}' => '', |
| |
'See `{section}\'' => '', |
| |
'See `{section}\' in @cite{{book}}' => '', |
| |
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'See section {reference_name}' => '', |
| |
'See {reference_name}' => '', |
| |
'See {reference}' => '', |
| |
'See {reference} in @cite{{book}}' => '', |
| |
'See {ref}' => '', |
| |
'See {title_ref}' => '', |
| |
'September' => '', |
| |
'Short Table of Contents' => '', |
| |
'Short table of contents' => '', |
| |
'Subsection One-Four' => '', |
| |
'Subsection One-One' => '', |
| |
'Subsection One-Three' => '', |
| |
'Subsection One-Two' => '', |
| |
'Subsubsection One-Two-Four' => '', |
| |
'Subsubsection One-Two-One' => '', |
| |
'Subsubsection One-Two-Three' => '', |
| |
'Subsubsection One-Two-Two' => '', |
| |
'Table of Contents' => '', |
| |
'Table of contents' => '', |
| |
'The node you are looking for is at {href}.' => '', |
| |
'This' => '', |
| |
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => '', |
| |
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => '', |
| |
'Top' => '', |
| |
'Untitled Document' => '', |
| |
'Up' => '', |
| |
'Up node' => '', |
| |
'Up section' => '', |
| |
'`{section}\'' => '', |
| |
'`{section}\' in @cite{{book}}' => '', |
| |
'current' => '', |
| |
'on @emph{{date}}' => '', |
| |
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see ' => '', |
| |
'see @cite{{book}}' => '', |
| |
'see `{section}\'' => '', |
| |
'see `{section}\' in @cite{{book}}' => '', |
| |
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '', |
| |
'see section {reference_name}' => '', |
| |
'see {reference_name}' => '', |
| |
'see {reference}' => '', |
| |
'see {reference} in @cite{{book}}' => '', |
| |
'see {ref}' => '', |
| |
'see {title_ref}' => '', |
| |
'{acronym_like} ({explanation})' => '', |
| |
'{month} {day}, {year}' => '', |
| |
'{name} of {class}' => '', |
| |
'{name} on {class}' => '', |
| |
'{reference_name}' => '', |
| |
'{reference}' => '', |
| |
'{reference} in @cite{{book}}' => '', |
| |
'{ref}' => '', |
| |
'{style} {number}' => '', |
| |
'{style}: {caption_first_line}' => '', |
| |
'{style}: {shortcaption_first_line}' => '', |
| |
'{title_ref}' => '' |
| |
}; |
| |
|
| |
require "$T2H_HOME/$translation_file" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/$translation_file" && -r "$T2H_HOME/$translation_file"); |
| |
|
| |
|
| |
# these are unlikely to be used by users, as they are essentially |
| |
# used to follow the html external refs specification in texinfo |
| |
sub t2h_cross_manual_normal_text($$$$$$$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $in_raw_text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_code =shift; |
| |
my $in_math = shift; |
| |
my $in_simple =shift; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
$text = uc($text) if (in_small_caps($style_stack)); |
| |
return $text if ($USE_UNICODE); |
| |
return t2h_no_unicode_cross_manual_normal_text($text, 0); |
| |
} |
| |
|
| |
sub t2h_cross_manual_normal_text_transliterate($$$$$$$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $in_raw_text = shift; |
| |
my $in_preformatted = shift; |
| |
my $in_code =shift; |
| |
my $in_math = shift; |
| |
my $in_simple =shift; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
|
| |
$text = uc($text) if (in_small_caps($style_stack)); |
| |
return $text if ($USE_UNICODE); |
| |
return t2h_no_unicode_cross_manual_normal_text($text, 1); |
| |
} |
| |
|
| |
sub t2h_no_unicode_cross_manual_normal_text($$) |
| |
{ |
| |
# if there is no unicode support, we do all the transformations here |
| |
my $text = shift; |
| |
my $transliterate = shift; |
| |
my $result = ''; |
| |
|
| |
my $encoding = get_conf('DOCUMENT_ENCODING'); |
| |
if (defined($encoding) and exists($t2h_encoding_aliases{$encoding})) |
| |
{ |
| |
$encoding = $t2h_encoding_aliases{$encoding}; |
| |
} |
| |
|
| |
while ($text ne '') |
| |
{ |
| |
if ($text =~ s/^([A-Za-z0-9]+)//o) |
| |
{ |
| |
$result .= $1; |
| |
} |
| |
elsif ($text =~ s/^ //o) |
| |
{ |
| |
$result .= '-'; |
| |
} |
| |
elsif ($text =~ s/^(.)//o) |
| |
{ |
| |
if (exists($ascii_character_map{$1})) |
| |
{ |
| |
$result .= '_' . lc($ascii_character_map{$1}); |
| |
} |
| |
else |
| |
{ |
| |
my $character = $1; |
| |
my $charcode = uc(sprintf("%02x",ord($1))); |
| |
my $done = 0; |
| |
if (defined($encoding) and exists($eight_bit_to_unicode{$encoding}) |
| |
and exists($eight_bit_to_unicode{$encoding}->{$charcode})) |
| |
{ |
| |
$done = 1; |
| |
my $unicode_point = $eight_bit_to_unicode{$encoding}->{$charcode}; |
| |
if (!$transliterate) |
| |
{ |
| |
$result .= '_' . lc($unicode_point); |
| |
} |
| |
elsif (exists($transliterate_map{$unicode_point})) |
| |
{ |
| |
$result .= $transliterate_map{$unicode_point}; |
| |
} |
| |
elsif (exists($unicode_diacritical{$unicode_point})) |
| |
{ |
| |
$result .= ''; |
| |
} |
| |
else |
| |
{ |
| |
$done = 0; |
| |
} |
| |
} |
| |
|
| |
if (!$done) |
| |
{ # wild guess that work for latin1, and thus, should fail |
| |
$result .= '_' . '00' . lc($charcode); |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
msg_debug("Bug: unknown character in cross ref (likely in infinite loop)"); |
| |
msg_debug("Text: !!$text!!"); |
| |
sleep 1; |
| |
} |
| |
} |
| |
|
| |
return $result; |
| |
} |
| |
|
| |
sub t2h_nounicode_cross_manual_accent($$$) |
| |
{ |
| |
my $accent = shift; |
| |
my $args = shift; |
| |
my $style_stack = shift; |
| |
|
| |
my $text = $args->[0]; |
| |
|
| |
if ($accent eq 'dotless') |
| |
{ |
| |
if (($text eq 'i') and (!defined($style_stack->[-1]) or (!defined($unicode_accents{$style_stack->[-1]})) or ($style_stack->[-1] eq 'tieaccent'))) |
| |
{ |
| |
return "_0131"; |
| |
} |
| |
#return "\x{}" if ($text eq 'j'); # not found ! |
| |
return $text; |
| |
} |
| |
return '_' . lc($unicode_accents{$accent}->{$text}) |
| |
if (defined($unicode_accents{$accent}->{$text})); |
| |
return ($text . '_' . lc($unicode_diacritical{$accent})) |
| |
if (defined($unicode_diacritical{$accent})); |
| |
return ascii_accents($text, $accent); |
| |
} |
| |
|
| |
sub t2h_transliterate_cross_manual_accent($$) |
| |
{ |
| |
my $accent = shift; |
| |
my $args = shift; |
| |
|
| |
my $text = $args->[0]; |
| |
|
| |
if (exists($unicode_accents{$accent}->{$text}) and |
| |
exists ($transliterate_map{$unicode_accents{$accent}->{$text}})) |
| |
{ |
| |
return $transliterate_map{$unicode_accents{$accent}->{$text}}; |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
|
| |
} # end package Texi2HTML::Config |
| |
|
| |
# set the defaults based on real command name |
| |
set_config_init_dirs_output($real_command_name); |
| |
|
| |
use vars qw( |
| |
%value |
| |
%alias |
| |
); |
| |
|
| |
# variables which might be redefined by the user but aren't likely to be |
| |
# they seem to be in the main namespace |
| |
use vars qw( |
| |
%index_names |
| |
%index_prefix_to_name |
| |
%predefined_index |
| |
%valid_index |
| |
%reference_sec2level |
| |
%code_style_map |
| |
%forbidden_index_name |
| |
); |
| |
|
| |
# Some global variables are set in the script, and used in the subroutines |
| |
# they are in the Texi2HTML namespace, thus prefixed with Texi2HTML::. |
| |
# see texi2html.init for details. |
| |
|
| #+++############################################################################ |
#+++############################################################################ |
| # # |
# # |
| # Pass 2/3: handle style, menu, index, cross-reference # |
# Pasted content of File $(srcdir)/MySimple.pm: Command-line processing # |
| # # |
# # |
| #---############################################################################ |
#---############################################################################ |
| |
|
| @lines2 = (); # whole document (2nd pass) |
# leave this within comments, and keep the require statement |
| @lines3 = (); # whole document (3rd pass) |
# This way, you can directly run texi2html.pl, if $T2H_HOME/MySimple.pm |
| $in_menu = 0; # am I inside a menu |
# exists. |
| |
|
| while (@lines) { |
# @MYSIMPLE@ |
| $_ = shift(@lines); |
package Getopt::MySimple; |
| # |
|
| # special case (protected sections) |
# Name: |
| # |
# Getopt::MySimple. |
| if (/^$PROTECTTAG/o) { |
# |
| push(@lines2, $_); |
# Documentation: |
| next; |
# POD-style (incomplete) documentation is in file MySimple.pod |
| } |
# |
| # |
# Tabs: |
| # menu |
# 4 spaces || die. |
| # |
# |
| $in_menu = 1, push(@lines2, &debug("<UL>\n", __LINE__)), next if /^\@menu\b/; |
# Author: |
| $in_menu = 0, push(@lines2, &debug("</UL>\n", __LINE__)), next if /^\@end\s+menu\b/; |
# Ron Savage rpsavage@ozemail.com.au. |
| if ($in_menu) { |
# 1.00 19-Aug-97 Initial version. |
| if (/^\*\s+($NODERE)::/o) { |
# 1.10 13-Oct-97 Add arrays of switches (eg '=s@'). |
| $descr = $'; |
# 1.20 3-Dec-97 Add 'Help' on a per-switch basis. |
| chop($descr); |
# 1.30 11-Dec-97 Change 'Help' to 'verbose'. Make all hash keys lowercase. |
| &menu_entry($1, $1, $descr); |
# 1.40 10-Nov-98 Change width of help report. Restructure tests. |
| } elsif (/^\*\s+(.+):\s+([^\t,\.\n]+)[\t,\.\n]/) { |
# 1-Jul-00 Modifications for Texi2html |
| $descr = $'; |
|
| chop($descr); |
# -------------------------------------------------------------------------- |
| &menu_entry($1, $2, $descr); |
# Locally modified by obachman (Display type instead of env, order by cmp) |
| } elsif (/^\*/) { |
# $Id$ |
| warn "$ERROR Bad menu line: $_"; |
|
| } else { # description continued? |
# use strict; |
| push(@lines2, $_); |
# no strict 'refs'; |
| |
|
| |
use vars qw(@EXPORT @EXPORT_OK @ISA); |
| |
use vars qw($fieldWidth $opt $VERSION); |
| |
|
| |
use Exporter(); |
| |
use Getopt::Long; |
| |
|
| |
@ISA = qw(Exporter); |
| |
@EXPORT = qw(); |
| |
@EXPORT_OK = qw($opt); # An alias for $self -> {'opt'}. |
| |
|
| |
# -------------------------------------------------------------------------- |
| |
|
| |
$fieldWidth = 20; |
| |
$VERSION = '1.41'; |
| |
|
| |
# -------------------------------------------------------------------------- |
| |
|
| |
sub byOrder |
| |
{ |
| |
my($self) = @_; |
| |
|
| |
return uc($a) cmp (uc($b)); |
| |
} |
| |
|
| |
# -------------------------------------------------------------------------- |
| |
|
| |
sub dumpOptions |
| |
{ |
| |
my($self) = @_; |
| |
|
| |
print 'Option', ' ' x ($fieldWidth - length('Option') ), "Value\n"; |
| |
|
| |
for (sort byOrder keys(%{$self -> {'opt'} }) ) |
| |
{ |
| |
print "-$_", ' ' x ($fieldWidth - (1 + length) ), "${$self->{'opt'} }{$_}\n"; |
| } |
} |
| next; |
|
| } |
print "\n"; |
| # |
|
| # printindex |
} # End of dumpOptions. |
| # |
|
| if (/^\@printindex\s+(\w\w)\b/) { |
# -------------------------------------------------------------------------- |
| local($index, *ary, @keys, $key, $letter, $last_letter, @refs); |
# Return: |
| if ($predefined_index{$1}) { |
# 0 -> Error. |
| $index = $predefined_index{$1} . 'index'; |
# 1 -> Ok. |
| } else { |
|
| $index = $1 . 'index'; |
sub getOptions |
| |
{ |
| |
push(@_, 0) if ($#_ == 2); # Default for $ignoreCase is 0. |
| |
push(@_, 1) if ($#_ == 3); # Default for $helpThenExit is 1. |
| |
|
| |
my($self, $default, $helpText, $versionText, |
| |
$helpThenExit, $versionThenExit, $ignoreCase) = @_; |
| |
|
| |
$helpThenExit = 1 unless (defined($helpThenExit)); |
| |
$versionThenExit = 1 unless (defined($versionThenExit)); |
| |
$ignoreCase = 0 unless (defined($ignoreCase)); |
| |
|
| |
$self -> {'default'} = $default; |
| |
$self -> {'helpText'} = $helpText; |
| |
$self -> {'versionText'} = $versionText; |
| |
$Getopt::Long::ignorecase = $ignoreCase; |
| |
|
| |
unless (defined($self -> {'default'}{'help'})) |
| |
{ |
| |
$self -> {'default'}{'help'} = |
| |
{ |
| |
type => ':i', |
| |
default => '', |
| |
linkage => sub {$self->helpOptions($_[1]); sleep 5;exit (0) if $helpThenExit;}, |
| |
verbose => "print help and exit" |
| |
}; |
| } |
} |
| eval("*ary = *$index"); |
|
| @keys = keys(%ary); |
unless (defined($self -> {'default'}{'version'})) |
| foreach $key (@keys) { |
{ |
| $_ = $key; |
$self -> {'default'}{'version'} = |
| 1 while s/<(\w+)>\`(.*)\'<\/\1>/$2/; # remove HTML tags with quotes |
{ |
| 1 while s/<(\w+)>(.*)<\/\1>/$2/; # remove HTML tags |
type => '', |
| $_ = &unprotect_html($_); |
default => '', |
| &unprotect_texi; |
linkage => sub {print $self->{'versionText'}; exit (0) if $versionThenExit;}, |
| tr/A-Z/a-z/; # lowercase |
verbose => "print version and exit" |
| $key2alpha{$key} = $_; |
}; |
| print "# index $key sorted as $_\n" |
|
| if $key ne $_ && $debug & $DEBUG_INDEX; |
|
| } |
} |
| push(@lines2, "Jump to:\n"); |
|
| $last_letter = undef; |
for (keys(%{$self -> {'default'} }) ) |
| foreach $key (sort byalpha @keys) { |
{ |
| $letter = substr($key2alpha{$key}, 0, 1); |
next unless (ref(${$self -> {'default'} }{$_}) eq 'HASH'); |
| $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;; |
my $type = ${$self -> {'default'} }{$_}{'type'}; |
| if (!defined($last_letter) || $letter ne $last_letter) { |
push(@{$self -> {'type'} }, "$_$type"); |
| push(@lines2, "-\n") if defined($last_letter); |
my $key = $_; |
| push(@lines2, "<A HREF=\"#$index\_$letter\">" . &protect_html($letter) . "</A>\n"); |
# get rid of aliases, if any |
| $last_letter = $letter; |
$key =~ s/\|.*//; |
| } |
$self->{'opt'}->{$key} = ${$self -> {'default'} }{$_}{'linkage'} |
| |
if ${$self -> {'default'} }{$_}{'linkage'}; |
| } |
} |
| push(@lines2, "<P>\n"); |
|
| $last_letter = undef; |
my($result) = &GetOptions($self -> {'opt'}, @{$self -> {'type'} }); |
| foreach $key (sort byalpha @keys) { |
|
| $letter = substr($key2alpha{$key}, 0, 1); |
return $result unless $result; |
| $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;; |
|
| if (!defined($last_letter) || $letter ne $last_letter) { |
for (keys(%{$self -> {'default'} }) ) |
| push(@lines2, "</DIR>\n") if defined($last_letter); |
{ |
| push(@lines2, "<H2><A NAME=\"$index\_$letter\">" . &protect_html($letter) . "</A></H2>\n"); |
if (! defined(${$self -> {'opt'} }{$_})) #{ |
| push(@lines2, "<DIR>\n"); |
{ |
| $last_letter = $letter; |
${$self -> {'opt'} }{$_} = ${$self -> {'default'} }{$_}{'default'}; |
| } |
} |
| @refs = (); |
|
| foreach (split(/$;/, $ary{$key})) { |
|
| push(@refs, &anchor('', $_, $key, 0)); |
|
| } |
|
| push(@lines2, "<LI>" . join(", ", @refs) . "\n"); |
|
| } |
} |
| push(@lines2, "</DIR>\n") if defined($last_letter); |
|
| next; |
$result; |
| } |
} # End of getOptions. |
| # |
|
| # simple style substitutions |
# -------------------------------------------------------------------------- |
| # |
|
| $_ = &substitute_style($_); |
sub helpOptions |
| # |
{ |
| # xref |
my($self) = shift; |
| # |
my($noHelp) = shift; |
| while (/\@(x|px|info|)ref{($XREFRE)(}?)/o) { |
$noHelp = 0 unless $noHelp; |
| # note: Texinfo may accept other characters |
my($optwidth, $typewidth, $defaultwidth, $maxlinewidth, $valind, $valwidth) |
| ($type, $nodes, $full) = ($1, $2, $3); |
= (10, 5, 9, 78, 4, 11); |
| ($before, $after) = ($`, $'); |
|
| if (! $full && $after) { |
print "$self->{'helpText'}" if ($self -> {'helpText'}); |
| warn "$ERROR Bad xref (no ending } on line): $_"; |
|
| $_ = "$before$;0${type}ref\{$nodes$after"; |
print ' Option', ' ' x ($optwidth - length('Option') -1 ), |
| next; # while xref |
'Type', ' ' x ($typewidth - length('Type') + 1), |
| } |
'Default', ' ' x ($defaultwidth - length('Default') ), |
| if ($type eq 'x') { |
"Description\n"; |
| $type = 'See '; |
|
| } elsif ($type eq 'px') { |
for (sort byOrder keys(%{$self -> {'default'} }) ) |
| $type = 'see '; |
{ |
| } elsif ($type eq 'info') { |
my($line, $help, $option, $val); |
| $type = 'See Info'; |
$option = $_; |
| } else { |
next if (ref(${$self -> {'default'} }{$_}) ne 'HASH' or (${$self->{'default'} }{$_}{'noHelp'} && ${$self->{'default'} }{$_}{'noHelp'} > $noHelp)); |
| $type = ''; |
#$line = " -$_" . ' ' x ($optwidth - (2 + length) ) . |
| } |
# "${$self->{'default'} }{$_}{'type'} ". |
| unless ($full) { |
# ' ' x ($typewidth - (1+length(${$self -> {'default'} }{$_}{'type'}) )); |
| $next = shift(@lines); |
$line = " --$_" . "${$self->{'default'} }{$_}{'type'}". |
| $next = &substitute_style($next); |
' ' x ($typewidth - (1+length(${$self -> {'default'} }{$_}{'type'}) )); |
| chop($nodes); # remove final newline |
|
| if ($next =~ /\}/) { # split on 2 lines |
$val = ${$self->{'default'} }{$_}{'linkage'}; |
| $nodes .= " $`"; |
if ($val) |
| $after = $'; |
{ |
| } else { |
if ((ref($val) eq 'SCALAR') and (defined($$val))) |
| $nodes .= " $next"; |
{ |
| $next = shift(@lines); |
$val = $$val; |
| $next = &substitute_style($next); |
} |
| chop($nodes); |
else |
| if ($next =~ /\}/) { # split on 3 lines |
{ |
| $nodes .= " $`"; |
$val = ''; |
| $after = $'; |
} |
| } else { |
} |
| warn "$ERROR Bad xref (no ending }): $_"; |
elsif (defined(${$self->{'default'} }{$_}{'default'})) |
| $_ = "$before$;0xref\{$nodes$after"; |
{ |
| unshift(@lines, $next); |
$val = ${$self->{'default'} }{$_}{'default'}; |
| next; # while xref |
|
| } |
} |
| } |
else |
| |
{ |
| |
$val = ''; |
| |
} |
| |
$line .= "$val "; |
| |
$line .= ' ' x ($optwidth + $typewidth + $defaultwidth + 1 - length($line)); |
| |
|
| |
if (defined(${$self -> {'default'} }{$_}{'verbose'}) && |
| |
${$self -> {'default'} }{$_}{'verbose'} ne '') |
| |
{ |
| |
$help = "${$self->{'default'} }{$_}{'verbose'}"; |
| |
} |
| |
else |
| |
{ |
| |
$help = ' '; |
| |
} |
| |
if ((length("$line") + length($help)) < $maxlinewidth) |
| |
{ |
| |
print $line , $help, "\n"; |
| |
} |
| |
else |
| |
{ |
| |
print $line, "\n", ' ' x $valind, $help, "\n"; |
| |
} |
| |
for $val (sort byOrder keys(%{${$self->{'default'}}{$option}{'values'}})) |
| |
{ |
| |
print ' ' x ($valind + 2); |
| |
print $val, ' ', ' ' x ($valwidth - length($val) - 2); |
| |
print ${$self->{'default'}}{$option}{'values'}{$val}, "\n"; |
| |
} |
| } |
} |
| $nodes =~ s/\s+/ /g; # remove useless spaces |
|
| @args = split(/\s*,\s*/, $nodes); |
print <<EOT; |
| $node = $args[0]; # the node is always the first arg |
Note: 'Options' may be abbreviated. -- prefix may be replaced by a single -. |
| &normalise_node($node); |
'Type' specifications mean: |
| $sec = $node2sec{$node}; |
<none>| ! no argument: variable is set to 1 on -foo (or, to 0 on -nofoo) |
| if (@args == 5) { # reference to another manual |
=s | :s mandatory (or, optional) string argument |
| $sec = $args[2] || $node; |
=i | :i mandatory (or, optional) integer argument |
| $man = $args[4] || $args[3]; |
EOT |
| $_ = "${before}${type}section `$sec' in \@cite{$man}$after"; |
} # End of helpOptions. |
| } elsif ($type =~ /Info/) { # inforef |
|
| warn "$ERROR Wrong number of arguments: $_" unless @args == 3; |
#------------------------------------------------------------------- |
| ($nn, $_, $in) = @args; |
|
| $_ = "${before}${type} file `$in', node `$nn'$after"; |
sub new |
| } elsif ($sec) { |
{ |
| $href = $node2href{$node}; |
my($class) = @_; |
| $_ = "${before}${type}section " . &anchor('', $href, $sec) . $after; |
my($self) = {}; |
| } else { |
$self -> {'default'} = {}; |
| warn "$ERROR Undefined node ($node): $_"; |
$self -> {'helpText'} = ''; |
| $_ = "$before$;0xref{$nodes}$after"; |
$self -> {'opt'} = {}; |
| } |
$opt = $self -> {'opt'}; # An alias for $self -> {'opt'}. |
| |
$self -> {'type'} = (); |
| |
|
| |
return bless $self, $class; |
| |
|
| |
} # End of new. |
| |
|
| |
# -------------------------------------------------------------------------- |
| |
|
| |
1; |
| |
|
| |
# End MySimple.pm |
| |
|
| |
require "$T2H_HOME/MySimple.pm" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/MySimple.pm" && -r "$T2H_HOME/MySimple.pm"); |
| |
|
| |
#+++######################################################################## |
| |
# # |
| |
# Pasted content of File $(srcdir)/T2h_i18n.pm: Internationalisation # |
| |
# # |
| |
#---######################################################################## |
| |
|
| |
# leave this within comments, and keep the require statement |
| |
# This way, you can directly run texi2html.pl, if $T2H_HOME/T2h_i18n.pm |
| |
# exists. |
| |
|
| |
{ |
| |
# @T2H_I18N@ |
| |
#+############################################################################## |
| |
# |
| |
# T2h_i18n.pm: Internationalization for texi2html |
| |
# |
| |
# Copyright (C) 1999-2005 Patrice Dumas <pertusus@free.fr>, |
| |
# Derek Price <derek@ximbiot.com>, |
| |
# Adrian Aichner <adrian@xemacs.org>, |
| |
# & others. |
| |
# |
| |
# This program is free software; you can redistribute it and/or modify |
| |
# it under the terms of the GNU General Public License as published by |
| |
# the Free Software Foundation; either version 2 of the License, or |
| |
# (at your option) any later version. |
| |
# |
| |
# This program is distributed in the hope that it will be useful, |
| |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
| |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| |
# GNU General Public License for more details. |
| |
# |
| |
# You should have received a copy of the GNU General Public License |
| |
# along with this program; if not, write to the Free Software |
| |
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
| |
# |
| |
#-############################################################################## |
| |
|
| |
# This requires perl version 5 or higher |
| |
require 5.0; |
| |
|
| |
package Texi2HTML::I18n; |
| |
|
| |
use strict; |
| |
|
| |
use vars qw( |
| |
@ISA |
| |
@EXPORT |
| |
); |
| |
|
| |
use Exporter; |
| |
@ISA = qw(Exporter); |
| |
@EXPORT = qw(pretty_date); |
| |
|
| |
my $language; |
| |
my $i18n_dir = 'i18n'; # name of the directory containing the per language files |
| |
#my $translation_file = 'translations.pl'; # file containing all the translations |
| |
#my @known_languages = ('de', 'nl', 'es', 'no', 'pt', 'fr'); # The supported |
| |
# languages |
| |
|
| |
######################################################################## |
| |
# Language dependencies: |
| |
# To add a new language extend the WORDS hash and create $T2H_<...>_WORDS hash |
| |
# To redefine one word, simply do: |
| |
# $T2h_i18n::T2H_LANGUAGES->{<language>}->{<word>} = 'whatever' in your personal init file. |
| |
# |
| |
|
| |
# Those hashes are obsolete but retained here for reference |
| |
|
| |
my $T2H_WORDS_EN = |
| |
{ |
| |
# titles of pages |
| |
#'Table of Contents' => 'Table of Contents', |
| |
#'Short Table of Contents' => 'Short Table of Contents', |
| |
#'Index' => 'Index', |
| |
#'About This Document' => 'About This Document', |
| |
#'Footnotes' => 'Footnotes', |
| |
#'See' => 'See', |
| |
#'see' => 'see', |
| |
#'section' => 'section', |
| |
'About This Document' => '', |
| |
'Table of Contents' => '', |
| |
'Short Table of Contents', => '', |
| |
'Index' => '', |
| |
'Footnotes' => '', |
| |
'See' => '', |
| |
'see' => '', |
| |
'section' => '', |
| |
'Top' => '', |
| |
'Untitled Document' => '', |
| |
# If necessary, we could extend this as follows: |
| |
# # text for buttons |
| |
# 'Top_Button' => 'Top', |
| |
# 'ToC_Button' => 'Contents', |
| |
# 'Overview_Button' => 'Overview', |
| |
# 'Index_button' => 'Index', |
| |
# 'Back_Button' => 'Back', |
| |
# 'FastBack_Button' => 'FastBack', |
| |
# 'Prev_Button' => 'Prev', |
| |
# 'Up_Button' => 'Up', |
| |
# 'Next_Button' => 'Next', |
| |
# 'Forward_Button' =>'Forward', |
| |
# 'FastWorward_Button' => 'FastForward', |
| |
# 'First_Button' => 'First', |
| |
# 'Last_Button' => 'Last', |
| |
# 'About_Button' => 'About' |
| |
'January' => '', |
| |
'February' => '', |
| |
'March' => '', |
| |
'April' => '', |
| |
'May' => '', |
| |
'June' => '', |
| |
'July' => '', |
| |
'August' => '', |
| |
'September' => '', |
| |
'October' => '', |
| |
'November' => '', |
| |
'December' => '', |
| |
'T2H_today' => '%s, %d %d', |
| |
}; |
| |
|
| |
my $T2H_WORDS_DE = |
| |
{ |
| |
'Table of Contents' => 'Inhaltsverzeichniss', |
| |
'Short Table of Contents' => 'Kurzes Inhaltsverzeichniss', |
| |
'Index' => 'Index', |
| |
'About This Document' => 'Über dieses Dokument', |
| |
'Footnotes' => 'Fußnoten', |
| |
'See' => 'Siehe', |
| |
'see' => 'siehe', |
| |
'section' => 'Abschnitt', |
| |
'January' => 'Januar', |
| |
'February' => 'Februar', |
| |
'March' => 'März', |
| |
'April' => 'April', |
| |
'May' => 'Mai', |
| |
'June' => 'Juni', |
| |
'July' => 'Juli', |
| |
'August' => 'August', |
| |
'September' => 'September', |
| |
'October' => 'Oktober', |
| |
'November' => 'November', |
| |
'December' => 'Dezember', |
| |
}; |
| |
|
| |
my $T2H_WORDS_NL = |
| |
{ |
| |
'Table of Contents' => 'Inhoudsopgave', |
| |
'Short Table of Contents' => 'Korte inhoudsopgave', |
| |
'Index' => 'Index', #Not sure ;-) |
| |
'About This Document' => 'No translation available!', #No translation available! |
| |
'Footnotes' => 'No translation available!', #No translation available! |
| |
'See' => 'Zie', |
| |
'see' => 'zie', |
| |
'section' => 'sectie', |
| |
'January' => 'Januari', |
| |
'February' => 'Februari', |
| |
'March' => 'Maart', |
| |
'April' => 'April', |
| |
'May' => 'Mei', |
| |
'June' => 'Juni', |
| |
'July' => 'Juli', |
| |
'August' => 'Augustus', |
| |
'September' => 'September', |
| |
'October' => 'Oktober', |
| |
'November' => 'November', |
| |
'December' => 'December', |
| |
}; |
| |
|
| |
my $T2H_WORDS_ES = |
| |
{ |
| |
'Table of Contents' => 'índice General', |
| |
'Short Table of Contents' => 'Resumen del Contenido', |
| |
'Index' => 'Index', #Not sure ;-) |
| |
'About This Document' => 'No translation available!', #No translation available! |
| |
'Footnotes' => 'Fußnoten', |
| |
'See' => 'Véase', |
| |
'see' => 'véase', |
| |
'section' => 'sección', |
| |
'January' => 'enero', |
| |
'February' => 'febrero', |
| |
'March' => 'marzo', |
| |
'April' => 'abril', |
| |
'May' => 'mayo', |
| |
'June' => 'junio', |
| |
'July' => 'julio', |
| |
'August' => 'agosto', |
| |
'September' => 'septiembre', |
| |
'October' => 'octubre', |
| |
'November' => 'noviembre', |
| |
'December' => 'diciembre', |
| |
}; |
| |
|
| |
my $T2H_WORDS_NO = |
| |
{ |
| |
'Table of Contents' => 'Innholdsfortegnelse', |
| |
'Short Table of Contents' => 'Kort innholdsfortegnelse', |
| |
'Index' => 'Indeks', #Not sure ;-) |
| |
'About This Document' => 'No translation available!', #No translation available! |
| |
'Footnotes' => 'No translation available!', |
| |
'See' => 'Se', |
| |
'see' => 'se', |
| |
'section' => 'avsnitt', |
| |
'January' => 'januar', |
| |
'February' => 'februar', |
| |
'March' => 'mars', |
| |
'April' => 'april', |
| |
'May' => 'mai', |
| |
'June' => 'juni', |
| |
'July' => 'juli', |
| |
'August' => 'august', |
| |
'September' => 'september', |
| |
'October' => 'oktober', |
| |
'November' => 'november', |
| |
'December' => 'desember', |
| |
}; |
| |
|
| |
my $T2H_WORDS_PT = |
| |
{ |
| |
'Table of Contents' => 'Sumário', |
| |
'Short Table of Contents' => 'Breve Sumário', |
| |
'Index' => 'Índice', #Not sure ;-) |
| |
'About This Document' => 'No translation available!', #No translation available! |
| |
'Footnotes' => 'No translation available!', |
| |
'See' => 'Veja', |
| |
'see' => 'veja', |
| |
'section' => 'Seção', |
| |
'January' => 'Janeiro', |
| |
'February' => 'Fevereiro', |
| |
'March' => 'Março', |
| |
'April' => 'Abril', |
| |
'May' => 'Maio', |
| |
'June' => 'Junho', |
| |
'July' => 'Julho', |
| |
'August' => 'Agosto', |
| |
'September' => 'Setembro', |
| |
'October' => 'Outubro', |
| |
'November' => 'Novembro', |
| |
'December' => 'Dezembro', |
| |
}; |
| |
|
| |
my $T2H_WORDS_FR = |
| |
{ |
| |
'Table of Contents' => 'Table des matières', |
| |
'Short Table of Contents' => 'Résumée du contenu', |
| |
'Index' => 'Index', |
| |
'About This Document' => 'A propos de ce document', |
| |
'Footnotes' => 'Notes de bas de page', |
| |
'See' => 'Voir', |
| |
'see' => 'voir', |
| |
'section' => 'section', |
| |
'January' => 'Janvier', |
| |
'February' => 'Février', |
| |
'March' => 'Mars', |
| |
'April' => 'Avril', |
| |
'May' => 'Mai', |
| |
'June' => 'Juin', |
| |
'July' => 'Juillet', |
| |
'August' => 'Août', |
| |
'September' => 'Septembre', |
| |
'October' => 'Octobre', |
| |
'November' => 'Novembre', |
| |
'December' => 'Décembre', |
| |
'T2H_today' => 'le %2$d %1$s %3$d' |
| |
}; |
| |
|
| |
#$T2H_LANGUAGES = |
| |
#{ |
| |
# 'en' => $T2H_WORDS_EN, |
| |
# 'de' => $T2H_WORDS_DE, |
| |
# 'nl' => $T2H_WORDS_NL, |
| |
# 'es' => $T2H_WORDS_ES, |
| |
# 'no' => $T2H_WORDS_NO, |
| |
# 'pt' => $T2H_WORDS_PT, |
| |
# 'fr' => $T2H_WORDS_FR, |
| |
#}; |
| |
|
| |
sub set_language($) |
| |
{ |
| |
my $lang = shift; |
| |
if (defined($lang) && exists($Texi2HTML::Config::LANGUAGES->{$lang}) && defined($Texi2HTML::Config::LANGUAGES->{$lang})) |
| |
{ |
| |
$language = $lang; |
| |
return 1; |
| } |
} |
| |
else |
| |
{ |
| |
return 0; |
| |
} |
| |
} |
| |
|
| |
sub get_language() |
| |
{ |
| |
return $language; |
| |
} |
| |
|
| |
my @MONTH_NAMES = |
| |
( |
| |
'January', 'February', 'March', 'April', 'May', |
| |
'June', 'July', 'August', 'September', 'October', |
| |
'November', 'December' |
| |
); |
| |
|
| |
# This is not used as code, but used to mark months as strings to be |
| |
# translated |
| |
if (0) |
| |
{ |
| |
my @mark_month_for_translation = ( |
| |
gdt('January'), |
| |
gdt('February'), |
| |
gdt('March'), |
| |
gdt('April'), |
| |
gdt('May'), |
| |
gdt('June'), |
| |
gdt('July'), |
| |
gdt('August'), |
| |
gdt('September'), |
| |
gdt('October'), |
| |
gdt('November'), |
| |
gdt('December') |
| |
); |
| |
} |
| |
|
| |
my $I = \&get_string; |
| |
|
| |
sub pretty_date($) |
| |
{ |
| |
my $lang = shift; |
| |
my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst); |
| |
|
| |
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); |
| |
$year += ($year < 70) ? 2000 : 1900; |
| |
return main::gdt('{month} {day}, {year}', { 'month' => main::gdt($MONTH_NAMES[$mon]), |
| |
'day' => $mday, 'year' => $year }); |
| |
} |
| |
|
| |
my $error_no_en = 0; |
| |
|
| |
my %missing_strings; |
| |
|
| |
# arguments should already be converted |
| |
sub get_string($;$$) |
| |
{ |
| |
my $string = shift; |
| |
my $arguments = shift; |
| |
$arguments = undef if (!ref($arguments)); |
| |
my $state = shift; |
| |
# if duplicate is passed, it means that we are in the text and so should |
| |
# use the main state |
| |
if (defined($state) and $state->{'duplicate'} and defined($Texi2HTML::THISDOC{'state'})) |
| |
{ |
| |
$state = main::duplicate_formatting_state($Texi2HTML::THISDOC{'state'}); |
| |
} |
| |
|
| |
my $translated_string; |
| |
my $T2H_LANGUAGES = $Texi2HTML::Config::LANGUAGES; |
| |
if (! exists($T2H_LANGUAGES->{'en'})) |
| |
{ |
| |
unless($error_no_en) |
| |
{ |
| |
print STDERR "i18n: no LANGUAGES->{'en'} hash\n"; |
| |
$error_no_en = 1; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
unless (exists ($T2H_LANGUAGES->{'en'}->{$string})) |
| |
{ |
| |
unless (exists($missing_strings{$string})) |
| |
{ |
| |
#print STDERR "i18n: missing string $string\n"; |
| |
$missing_strings{$string} = 1; |
| |
} |
| |
} |
| |
if (defined ($T2H_LANGUAGES->{$language}->{$string}) and |
| |
($T2H_LANGUAGES->{$language}->{$string} ne '')) |
| |
{ |
| |
$translated_string = $T2H_LANGUAGES->{$language}->{$string}; |
| |
} |
| |
elsif (defined ($T2H_LANGUAGES->{'en'}->{$string}) and |
| |
($T2H_LANGUAGES->{'en'}->{$string} ne '')) |
| |
{ |
| |
$translated_string = $T2H_LANGUAGES->{'en'}->{$string}; |
| |
} |
| |
else |
| |
{ |
| |
$translated_string = $string; |
| |
} |
| |
} |
| |
return main::substitute_line($translated_string, "translation", $state) unless (defined($arguments) or !keys(%$arguments)); |
| |
|
| if (/^\@image\s*{/) { |
# taken from libintl perl, copyright Guido. sub __expand |
| s/\@image\s*{//; |
my %args = %$arguments; |
| my (@args) = split (/,/); |
my $re = join '|', map { quotemeta $_ } keys %args; |
| my $base = $args[0]; |
|
| my $image; |
if ($state->{'keep_texi'}) |
| if (-r "$base.jpg") { |
{ |
| $image = "$base.jpg"; |
$translated_string =~ s/\{($re)\}/defined $args{$1} ? $args{$1} : "{$1}"/ge; |
| } elsif (-r "$base.png") { |
return $translated_string; |
| $image = "$base.png"; |
|
| } elsif (-r "$base.gif") { |
|
| $image = "$base.gif"; |
|
| } else { |
|
| warn "$ERROR no image file for $base: $_"; |
|
| } |
|
| $_ = "<IMG SRC=\"$image\" ALT=\"$base\">"; |
|
| } |
} |
| |
|
| # |
# if there are arguments, we must protect the {arg} constructs before |
| # try to guess bibliography references or glossary terms |
# doing substitute_line. So there is a first pass here to change {arg} |
| # |
# to %@internal_translation_open_brace{}arg@internal_translation_close_brace{} |
| unless (/^<H\d><A NAME=\"SEC\d/) { |
$translated_string =~ s/\{($re)\}/\@internal_translation_open_brace\{\}$1\@internal_translation_close_brace\{\}/g; |
| if ($use_bibliography) { |
foreach my $map (\%Texi2HTML::Config::things_map, \%Texi2HTML::Config::pre_map, \%Texi2HTML::Config::texi_map, \%Texi2HTML::Config::simple_format_texi_map) |
| $done = ''; |
{ |
| while (/$BIBRE/o) { |
$map->{'internal_translation_open_brace'} = '{'; |
| ($pre, $what, $post) = ($`, $&, $'); |
$map->{'internal_translation_close_brace'} = '}'; |
| $href = $bib2href{$what}; |
|
| if (defined($href) && $post !~ /^[^<]*<\/A>/) { |
|
| $done .= $pre . &anchor('', $href, $what); |
|
| } else { |
|
| $done .= "$pre$what"; |
|
| } |
|
| $_ = $post; |
|
| } |
|
| $_ = $done . $_; |
|
| } |
|
| if ($use_glossary) { |
|
| $done = ''; |
|
| while (/\b\w+\b/) { |
|
| ($pre, $what, $post) = ($`, $&, $'); |
|
| $entry = $what; |
|
| $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/; |
|
| $href = $gloss2href{$entry}; |
|
| if (defined($href) && $post !~ /^[^<]*<\/A>/) { |
|
| $done .= $pre . &anchor('', $href, $what); |
|
| } else { |
|
| $done .= "$pre$what"; |
|
| } |
|
| $_ = $post; |
|
| } |
|
| $_ = $done . $_; |
|
| } |
|
| } |
} |
| # otherwise |
$translated_string = main::substitute_line($translated_string, "translation", $state); |
| push(@lines2, $_); |
$translated_string =~ s/\{($re)\}/defined $args{$1} ? $args{$1} : "{$1}"/ge; |
| |
foreach my $map (\%Texi2HTML::Config::things_map, \%Texi2HTML::Config::pre_map, \%Texi2HTML::Config::texi_map, \%Texi2HTML::Config::simple_format_texi_map) |
| |
{ |
| |
delete $map->{'internal_translation_open_brace'}; |
| |
delete $map->{'internal_translation_close_brace'}; |
| |
} |
| |
return $translated_string; |
| |
|
| } |
} |
| print "# end of pass 2\n" if $verbose; |
|
| |
|
| |
1; |
| |
require "$T2H_HOME/T2h_i18n.pm" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/T2h_i18n.pm" && -r "$T2H_HOME/T2h_i18n.pm"); |
| |
} |
| |
|
| |
|
| |
######################################################################### |
| # |
# |
| # split style substitutions |
# latex2html code |
| # |
# |
| while (@lines2) { |
#---###################################################################### |
| $_ = shift(@lines2); |
|
| # |
{ |
| # special case (protected sections) |
# leave this within comments, and keep the require statement |
| # |
# This way, you can directly run texi2html.pl, if $ENV{T2H_HOME}/T2h_l2h.pm |
| if (/^$PROTECTTAG/o) { |
# exists. |
| push(@lines3, $_); |
|
| next; |
# @T2H_L2H@ |
| |
#+############################################################################## |
| |
# |
| |
# T2h_l2h.pm: interface to LaTeX2HTML |
| |
# |
| |
# Copyright (C) 1999-2005 Patrice Dumas <pertusus@free.fr>, |
| |
# Derek Price <derek@ximbiot.com>, |
| |
# Adrian Aichner <adrian@xemacs.org>, |
| |
# & others. |
| |
# |
| |
# This program is free software; you can redistribute it and/or modify |
| |
# it under the terms of the GNU General Public License as published by |
| |
# the Free Software Foundation; either version 2 of the License, or |
| |
# (at your option) any later version. |
| |
# |
| |
# This program is distributed in the hope that it will be useful, |
| |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
| |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| |
# GNU General Public License for more details. |
| |
# |
| |
# You should have received a copy of the GNU General Public License |
| |
# along with this program; if not, write to the Free Software |
| |
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
| |
# 02110-1301 USA |
| |
# |
| |
#-############################################################################## |
| |
|
| |
require 5.0; |
| |
use strict; |
| |
|
| |
package Texi2HTML::LaTeX2HTML; |
| |
use Cwd; |
| |
|
| |
|
| |
# latex2html conversions consist of three stages: |
| |
# 1) to latex: Put "latex" code into a latex file |
| |
# (init, to_latex, finish_to_latex) |
| |
# 2) to html: Use latex2html to generate corresponding html code and images |
| |
# (to_html) |
| |
# 3) from html: Extract generated code and images from latex2html run |
| |
# (init_from_html, do_tex) |
| |
|
| |
# init l2h defaults for files and names |
| |
|
| |
# global variable used for caching |
| |
# FIXME there is no reason for this variable to be global |
| |
use vars qw( |
| |
%l2h_cache |
| |
); |
| |
|
| |
my ($l2h_name, $l2h_latex_file, $l2h_cache_file, $l2h_html_file, $l2h_prefix); |
| |
|
| |
# holds the status of latex2html operations. If 0 it means that there was |
| |
# an error |
| |
my $status = 0; |
| |
|
| |
my $debug; |
| |
my $verbose; |
| |
my $docu_rdir; |
| |
my $docu_name; |
| |
|
| |
# init_from_html |
| |
my $extract_error_count; |
| |
my $invalid_counter_count; |
| |
|
| |
# change_image_file_names |
| |
my %l2h_img; # associate src file to destination file |
| |
# such that files are not copied twice |
| |
my $image_count; |
| |
|
| |
# do_tex |
| |
my $html_output_count = 0; # html text outputed in html result file |
| |
|
| |
########################## |
| |
# |
| |
# First stage: Generation of Latex file |
| |
# Initialize with: init |
| |
# Add content with: to_latex ($text) --> HTML placeholder comment |
| |
# Finish with: finish_to_latex |
| |
# |
| |
|
| |
my $l2h_latex_preamble = <<EOT; |
| |
% This document was automatically generated by the l2h extenstion of texi2html |
| |
% DO NOT EDIT !!! |
| |
\\documentclass{article} |
| |
\\usepackage{html} |
| |
\\begin{document} |
| |
EOT |
| |
|
| |
my $l2h_latex_closing = <<EOT; |
| |
\\end{document} |
| |
EOT |
| |
|
| |
my %l2h_to_latex = (); # associate a latex text with the index in the |
| |
# html result array. |
| |
my @l2h_to_latex = (); # array used to associate the index with |
| |
# the original latex text. |
| |
my $latex_count = 0; # number of latex texts really stored |
| |
my $latex_converted_count = 0; # number of latex texts passed through latex2html |
| |
my $to_latex_count = 0; # total number of latex texts processed |
| |
my $cached_count = 0; # number of cached latex texts |
| |
%l2h_cache = (); # the cache hash. Associate latex text with |
| |
# html from the previous run |
| |
my @l2h_from_html; # array of resulting html |
| |
|
| |
my %global_count = (); # associate a command name and the |
| |
# corresponding counter to the index in the |
| |
# html result array |
| |
|
| |
# set $status to 1, if l2h could be initalized properly, to 0 otherwise |
| |
sub init() |
| |
{ |
| |
|
| |
%l2h_to_latex = (); # associate a latex text with the index in the |
| |
# html result array. |
| |
@l2h_to_latex = (); # array used to associate the index with |
| |
# the original latex text. |
| |
$latex_count = 0; # number of latex texts really stored |
| |
$latex_converted_count = 0; # number of latex texts passed through latex2html |
| |
$to_latex_count = 0; # total number of latex texts processed |
| |
$cached_count = 0; # number of cached latex texts |
| |
%l2h_cache = (); # the cache hash. Associate latex text with |
| |
# html from the previous run |
| |
@l2h_from_html = (); # array of resulting html |
| |
|
| |
%global_count = (); # associate a command name and the |
| |
# corresponding counter to the index in the |
| |
# html result array |
| |
$extract_error_count = 0; |
| |
$invalid_counter_count = 0; |
| |
%l2h_img = (); # associate src file to destination file |
| |
# such that files are not copied twice |
| |
$image_count = 1; |
| |
|
| |
$html_output_count = 0; # html text outputed in html result file |
| |
$status = 0; |
| |
return if ($Texi2HTML::Config::null_device_file{$Texi2HTML::THISDOC{'filename'}->{'top'}}); |
| |
|
| |
$docu_name = $Texi2HTML::THISDOC{'file_base_name'}; |
| |
$docu_rdir = $Texi2HTML::THISDOC{'destination_directory'}; |
| |
$docu_rdir = '' if (!defined($docu_rdir)); |
| |
$l2h_name = "${docu_name}_l2h"; |
| |
$l2h_latex_file = "$docu_rdir${l2h_name}.tex"; |
| |
$l2h_cache_file = "${docu_rdir}${docu_name}-l2h_cache.pm"; |
| |
# destination dir -- generated images are put there, should be the same |
| |
# as dir of enclosing html document -- |
| |
$l2h_html_file = "$docu_rdir${l2h_name}.html"; |
| |
$l2h_prefix = "${l2h_name}_"; |
| |
$debug = $Texi2HTML::THISDOC{'debug_l2h'}; |
| |
$verbose = $Texi2HTML::Config::VERBOSE; |
| |
|
| |
unless ($Texi2HTML::Config::L2H_SKIP) |
| |
{ |
| |
unless (open(L2H_LATEX, ">$l2h_latex_file")) |
| |
{ |
| |
main::document_error ("l2h: Can't open latex file '$l2h_latex_file' for writing: $!"); |
| |
$status = 0; |
| |
return; |
| |
} |
| |
warn "# l2h: use ${l2h_latex_file} as latex file\n" if ($verbose); |
| |
print L2H_LATEX $l2h_latex_preamble; |
| } |
} |
| # |
# open the database that holds cached text |
| # split style substitutions |
init_cache() if (!defined($Texi2HTML::Config::L2H_SKIP) or $Texi2HTML::Config::L2H_SKIP); |
| # |
$status = 1; |
| $old = ''; |
} |
| while ($old ne $_) { |
|
| $old = $_; |
|
| if (/\@(\w+)\{/) { |
# print text (2nd arg) into latex file (if not already there nor in cache) |
| ($before, $style, $after) = ($`, $1, $'); |
# which can be later on replaced by the latex2html generated text. |
| if (defined($style_map{$style})) { |
# |
| $_ = $after; |
sub to_latex($$$) |
| $text = ''; |
{ |
| $after = ''; |
my $command = shift; |
| $failed = 1; |
my $text = shift; |
| while (@lines2) { |
my $counter = shift; |
| if (/\}/) { |
return unless ($status); |
| $text .= $`; |
if ($command eq 'tex') |
| $after = $'; |
{ |
| $failed = 0; |
$text .= ' '; |
| last; |
|
| } else { |
|
| $text .= $_; |
|
| $_ = shift(@lines2); |
|
| } |
|
| } |
|
| if ($failed) { |
|
| die "* Bad syntax (\@$style) after: $before\n"; |
|
| } else { |
|
| $text = &apply_style($style, $text); |
|
| $_ = "$before$text$after"; |
|
| } |
|
| } |
|
| } |
|
| } |
} |
| # otherwise |
elsif ($command eq 'math') |
| push(@lines3, $_); |
{ |
| |
$text = "\$".$text."\$"; |
| |
} |
| |
$to_latex_count++; |
| |
$text =~ s/(\s*)$//; |
| |
# try whether we have text already on things to do |
| |
my $count = $l2h_to_latex{$text}; |
| |
unless ($count) |
| |
{ |
| |
$latex_count++; |
| |
$count = $latex_count; |
| |
# try whether we can get it from cache |
| |
my $cached_text = from_cache($text); |
| |
if (defined($cached_text)) |
| |
{ |
| |
$cached_count++; |
| |
# put the cached result in the html result array |
| |
$l2h_from_html[$count] = $cached_text; |
| |
} |
| |
else |
| |
{ |
| |
$latex_converted_count++; |
| |
unless ($Texi2HTML::Config::L2H_SKIP) |
| |
{ |
| |
print L2H_LATEX "\\begin{rawhtml}\n\n"; |
| |
print L2H_LATEX "<!-- l2h_begin $l2h_name $count -->\n"; |
| |
print L2H_LATEX "\\end{rawhtml}\n"; |
| |
|
| |
print L2H_LATEX "$text\n"; |
| |
|
| |
print L2H_LATEX "\\begin{rawhtml}\n"; |
| |
print L2H_LATEX "<!-- l2h_end $l2h_name $count -->\n\n"; |
| |
print L2H_LATEX "\\end{rawhtml}\n"; |
| |
} |
| |
} |
| |
$l2h_to_latex[$count] = $text; |
| |
$l2h_to_latex{$text} = $count; |
| |
} |
| |
$global_count{"${command}_$counter"} = $count; |
| |
return 1; |
| } |
} |
| print "# end of pass 3\n" if $verbose; |
|
| |
|
| |
# print closing into latex file and close it |
| |
sub finish_to_latex() |
| |
{ |
| |
my $reused = $to_latex_count - $latex_converted_count - $cached_count; |
| |
unless ($Texi2HTML::Config::L2H_SKIP) |
| |
{ |
| |
print L2H_LATEX $l2h_latex_closing; |
| |
close (L2H_LATEX); |
| |
} |
| |
warn "# l2h: finished to latex ($cached_count cached, $reused reused, $latex_converted_count to process)\n" if ($verbose); |
| |
unless ($latex_count) |
| |
{ |
| |
# no @tex nor @math |
| |
finish(); |
| |
return 0; |
| |
} |
| |
return 1; |
| |
} |
| |
|
| |
################################### |
| |
# Second stage: Use latex2html to generate corresponding html code and images |
| |
# |
| |
# to_html([$l2h_latex_file, [$l2h_html_dir]]): |
| |
# Call latex2html on $l2h_latex_file |
| |
# Put images (prefixed with $l2h_name."_") and html file(s) in $l2h_html_dir |
| |
# Return 1, on success |
| |
# 0, otherwise |
| |
# |
| |
sub to_html() |
| |
{ |
| |
my ($call, $dotbug); |
| |
# when there are no tex constructs to convert (happens in case everything |
| |
# comes from the cache), there is no latex2html run |
| |
if ($Texi2HTML::Config::L2H_SKIP or ($latex_converted_count == 0)) |
| |
{ |
| |
warn "# l2h: skipping latex2html run\n" if ($verbose); |
| |
return 1; |
| |
} |
| |
# Check for dot in directory where dvips will work |
| |
if ($Texi2HTML::Config::L2H_TMP) |
| |
{ |
| |
if ($Texi2HTML::Config::L2H_TMP =~ /\./) |
| |
{ |
| |
main::document_warn ("l2h: l2h_tmp dir contains a dot."); |
| |
$dotbug = 1; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
if (cwd() =~ /\./) |
| |
{ |
| |
main::document_warn ("l2h: current dir contains a dot."); |
| |
$dotbug = 1; |
| |
} |
| |
} |
| |
# fix it, if necessary and hope that it works |
| |
#$Texi2HTML::Config::L2H_TMP = "/tmp" if ($dotbug); |
| |
return 0 if ($dotbug); |
| |
|
| |
$call = $Texi2HTML::Config::L2H_L2H; |
| |
# use init file, if specified |
| |
my $init_file = main::locate_init_file($Texi2HTML::Config::L2H_FILE); |
| |
$call = $call . " -init_file " . $init_file if ($init_file); |
| |
# set output dir |
| |
$call .= (($docu_rdir ne '') ? " -dir $docu_rdir" : " -no_subdir"); |
| |
# use l2h_tmp, if specified |
| |
$call .= " -tmp $Texi2HTML::Config::L2H_TMP" |
| |
if (defined($Texi2HTML::Config::L2H_TMP) and $Texi2HTML::Config::L2H_TMP ne ''); |
| |
# use a given html version if specified |
| |
$call .= " -html_version $Texi2HTML::Config::L2H_HTML_VERSION" |
| |
if (defined($Texi2HTML::Config::L2H_HTML_VERSION) and $Texi2HTML::Config::L2H_HTML_VERSION ne ''); |
| |
# options we want to be sure of |
| |
$call .= " -address 0 -info 0 -split 0 -no_navigation -no_auto_link"; |
| |
$call .= " -prefix $l2h_prefix $l2h_latex_file"; |
| |
|
| |
warn "# l2h: executing '$call'\n" if ($verbose); |
| |
if (system($call)) |
| |
{ |
| |
main::document_error ("l2h: '${call}' did not succeed"); |
| |
return 0; |
| |
} |
| |
else |
| |
{ |
| |
warn "# l2h: latex2html finished successfully\n" if ($verbose); |
| |
return 1; |
| |
} |
| |
} |
| |
|
| |
########################## |
| |
# Third stage: Extract generated contents from latex2html run |
| |
# Initialize with: init_from_html |
| |
# open $l2h_html_file for reading |
| |
# reads in contents into array indexed by numbers |
| |
# return 1, on success -- 0, otherwise |
| |
# Finish with: finish |
| |
# closes $l2h_html_dir/$l2h_name.".$docu_ext" |
| |
|
| |
|
| |
# the images generated by latex2html have names like ${docu_name}_l2h_img?.png |
| |
# they are copied to ${docu_name}_?.png, and html is changed accordingly. |
| |
|
| |
# FIXME is it really necessary to bother doing that? Looks like an unneeded |
| |
# complication to me (pertusus, 2009), and it could go bad if there is some |
| |
# SRC="(.*?)" in the text (though the regexp could be made more specific). |
| |
|
| |
# %l2h_img; # associate src file to destination file |
| |
# such that files are not copied twice |
| |
sub change_image_file_names($) |
| |
{ |
| |
my $content = shift; |
| |
my @images = ($content =~ /SRC="(.*?)"/g); |
| |
my ($src, $dest); |
| |
|
| |
for $src (@images) |
| |
{ |
| |
$dest = $l2h_img{$src}; |
| |
unless ($dest) |
| |
{ |
| |
my $ext = ''; |
| |
if ($src =~ /.*\.(.*)$/ and (!defined($Texi2HTML::THISDOC{'extension'}) or $1 ne $Texi2HTML::THISDOC{'extension'})) |
| |
{ |
| |
$ext = ".$1"; |
| |
} |
| |
else |
| |
{ # A warning when the image extension is the same than the |
| |
# document extension. copying the file could result in |
| |
# overwriting an output file (almost surely if the default |
| |
# texi2html file names are used). |
| |
main::document_warn ("L2h image $src has invalid extension"); |
| |
next; |
| |
} |
| |
while (-e "$docu_rdir${docu_name}_${image_count}$ext") |
| |
{ |
| |
$image_count++; |
| |
} |
| |
$dest = "${docu_name}_${image_count}$ext"; |
| |
if ($debug) |
| |
{ |
| |
# not portable, but only used with debug. |
| |
system("cp -f $docu_rdir$src $docu_rdir$dest"); |
| |
} |
| |
else |
| |
{ |
| |
# FIXME error condition not checked. |
| |
rename ("$docu_rdir$src", "$docu_rdir$dest"); |
| |
} |
| |
$l2h_img{$src} = $dest; |
| |
#unlink "$docu_rdir$src" unless ($debug); |
| |
} |
| |
$content =~ s/SRC="$src"/SRC="$dest"/g; |
| |
} |
| |
return $content; |
| |
} |
| |
|
| |
sub init_from_html() |
| |
{ |
| |
# when there are no tex constructs to convert (happens in case everything |
| |
# comes from the cache), the html file that was generated by previous |
| |
# latex2html runs isn't reused. |
| |
if ($latex_converted_count == 0) |
| |
{ |
| |
return 1; |
| |
} |
| |
|
| |
if (! open(L2H_HTML, "<$l2h_html_file")) |
| |
{ |
| |
main::document_warn ("l2h: Can't open $l2h_html_file for reading"); |
| |
return 0; |
| |
} |
| |
warn "# l2h: use $l2h_html_file as html file\n" if ($verbose); |
| |
|
| |
my $html_converted_count = 0; # number of html resulting texts |
| |
# retrieved in the file |
| |
|
| |
my ($count, $h_line); |
| |
while ($h_line = <L2H_HTML>) |
| |
{ |
| |
if ($h_line =~ /!-- l2h_begin $l2h_name ([0-9]+) --/) |
| |
{ |
| |
$count = $1; |
| |
my $h_content = ''; |
| |
my $h_end_found = 0; |
| |
while ($h_line = <L2H_HTML>) |
| |
{ |
| |
if ($h_line =~ /!-- l2h_end $l2h_name $count --/) |
| |
{ |
| |
$h_end_found = 1; |
| |
chomp $h_content; |
| |
chomp $h_content; |
| |
$html_converted_count++; |
| |
# transform image file names and copy image files |
| |
$h_content = change_image_file_names($h_content); |
| |
# store result in the html result array |
| |
$l2h_from_html[$count] = $h_content; |
| |
# also add the result in cache hash |
| |
$l2h_cache{$l2h_to_latex[$count]} = $h_content; |
| |
last; |
| |
} |
| |
$h_content = $h_content.$h_line; |
| |
} |
| |
unless ($h_end_found) |
| |
{ # couldn't found the closing comment. Certainly a bug. |
| |
main::msg_debug ("l2h: l2h_end $l2h_name $count not found"); |
| |
close(L2H_HTML); |
| |
return 0; |
| |
} |
| |
} |
| |
} |
| |
|
| |
# Not the same number of converted elements and retrieved elements |
| |
if ($latex_converted_count != $html_converted_count) |
| |
{ |
| |
main::msg_debug ("l2h: waiting for $latex_converted_count elements found $html_converted_count"); |
| |
} |
| |
|
| |
warn "# l2h: Got $html_converted_count of $latex_count html contents\n" |
| |
if ($verbose); |
| |
|
| |
close(L2H_HTML); |
| |
return 1; |
| |
} |
| |
|
| |
# $html_output_count = 0; # html text outputed in html result file |
| |
|
| |
# called each time a construct handled by latex2html is encountered, should |
| |
# output the corresponding html |
| |
sub do_tex($$$$) |
| |
{ |
| |
my $style = shift; |
| |
my $counter = shift; |
| |
my $state = shift; |
| |
return unless ($status); |
| |
my $count = $global_count{"${style}_$counter"}; |
| |
################################## begin debug section (incorrect counts) |
| |
if (!defined($count)) |
| |
{ |
| |
# counter is undefined |
| |
$invalid_counter_count++; |
| |
main::msg_debug ("l2h: undefined count for ${style}_$counter"); |
| |
return ("<!-- l2h: ". __LINE__ . " undef count for ${style}_$counter -->") |
| |
if ($debug); |
| |
return ''; |
| |
} |
| |
elsif(($count <= 0) or ($count > $latex_count)) |
| |
{ |
| |
# counter out of range |
| |
$invalid_counter_count++; |
| |
main::msg_debug ("l2h: Request of $count content which is out of valide range [0,$latex_count)"); |
| |
return ("<!-- l2h: ". __LINE__ . " out of range count $count -->") |
| |
if ($debug); |
| |
return ''; |
| |
} |
| |
################################## end debug section (incorrect counts) |
| |
|
| |
# this seems to be a valid counter |
| |
my $result = ''; |
| |
$result = "<!-- l2h_begin $l2h_name $count -->" if ($debug); |
| |
if (defined($l2h_from_html[$count])) |
| |
{ |
| |
$html_output_count++; |
| |
# maybe we could also have something if simple_format |
| |
# with Texi2HTML::Config::protect_text in case there |
| |
# was some @math on a line passed through simple_format. |
| |
# This would certainly be illegal texinfo, however. |
| |
if ($state->{'remove_texi'}) |
| |
{# don't protect anything |
| |
$result .= $l2h_to_latex[$count]; |
| |
} |
| |
else |
| |
{ |
| |
$result .= $l2h_from_html[$count]; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
# if the result is not in @l2h_from_html, there is an error somewhere. |
| |
$extract_error_count++; |
| |
main::msg_debug ("l2h: can't extract content $count from html"); |
| |
# try simple (ordinary) substitution (without l2h) |
| |
$result .= "<!-- l2h: ". __LINE__ . " use texi2html -->" if ($debug); |
| |
$result .= main::substitute_text({}, undef, 'error in l2h', $l2h_to_latex[$count]); |
| |
} |
| |
$result .= "<!-- l2h_end $l2h_name $count -->" if ($debug); |
| |
return $result; |
| |
} |
| |
|
| |
# store results in the cache and remove temporary files. |
| |
sub finish() |
| |
{ |
| |
return unless($status); |
| |
if ($verbose) |
| |
{ |
| |
if ($extract_error_count + $invalid_counter_count) |
| |
{ |
| |
warn "# l2h: finished from html ($extract_error_count extract and $invalid_counter_count invalid counter errors)\n"; |
| |
} |
| |
else |
| |
{ |
| |
warn "# l2h: finished from html (no error)\n"; |
| |
} |
| |
if ($html_output_count != $latex_converted_count) |
| |
{ # this may happen if @-commands are collected at some places |
| |
# but @-command at those places are not expanded later. For |
| |
# example @math on @multitable lines. |
| |
warn "# l2h: $html_output_count html outputed for $latex_converted_count converted\n"; |
| |
} |
| |
} |
| |
store_cache(); |
| |
if ($Texi2HTML::Config::L2H_CLEAN) |
| |
{ |
| |
local ($_); |
| |
warn "# l2h: removing temporary files generated by l2h extension\n" |
| |
if $verbose; |
| |
while (<"$docu_rdir$l2h_name"*>) |
| |
{ |
| |
# FIXME error condition not checked |
| |
unlink $_; |
| |
} |
| |
} |
| |
warn "# l2h: Finished\n" if $verbose; |
| |
return 1; |
| |
} |
| |
|
| |
# the driver of end of first pass and second pass |
| |
# |
| |
sub latex2html() |
| |
{ |
| |
return unless($status); |
| |
return unless ($status = finish_to_latex()); |
| |
return unless ($status = to_html()); |
| |
} |
| |
|
| |
|
| |
############################## |
| |
# stuff for l2h caching |
| |
# |
| |
# FIXME it is clear that l2h stuff takes very long compared with texi2html |
| |
# which is already quite long. However this also adds some complexity |
| |
|
| |
# I tried doing this with a dbm data base, but it did not store all |
| |
# keys/values. Hence, I did as latex2html does it |
| |
sub init_cache |
| |
{ |
| |
if (-r "$l2h_cache_file") |
| |
{ |
| |
my $rdo = do "$l2h_cache_file"; |
| |
main::document_error ("l2h: could not load $docu_rdir$l2h_cache_file: $@") |
| |
unless ($rdo); |
| |
} |
| |
} |
| |
|
| |
# store all the text obtained through latex2html |
| |
sub store_cache |
| |
{ |
| |
return unless $latex_count; |
| |
my ($key, $value); |
| |
unless (open(FH, ">$l2h_cache_file")) |
| |
{ |
| |
main::document_error ("l2h: could not open $docu_rdir$l2h_cache_file for writing: $!"); |
| |
return; |
| |
} |
| |
while (($key, $value) = each %l2h_cache) |
| |
{ |
| |
# escape stuff |
| |
$key =~ s|/|\\/|g; |
| |
$key =~ s|\\\\/|\\/|g; |
| |
# weird, a \ at the end of the key results in an error |
| |
# maybe this also broke the dbm database stuff |
| |
$key =~ s|\\$|\\\\|; |
| |
$value =~ s/\|/\\\|/go; |
| |
$value =~ s/\\\\\|/\\\|/go; |
| |
$value =~ s|\\\\|\\\\\\\\|g; |
| |
print FH "\n\$l2h_cache_key = q/$key/;\n"; |
| |
print FH "\$l2h_cache{\$l2h_cache_key} = q|$value|;\n"; |
| |
} |
| |
print FH "1;"; |
| |
close (FH); |
| |
} |
| |
|
| |
# return cached html, if it exists for text, and if all pictures |
| |
# are there, as well |
| |
sub from_cache($) |
| |
{ |
| |
my $text = shift; |
| |
my $cached = $l2h_cache{$text}; |
| |
if (defined($cached)) |
| |
{ |
| |
while ($cached =~ m/SRC="(.*?)"/g) |
| |
{ |
| |
unless (-e "$docu_rdir$1") |
| |
{ |
| |
return undef; |
| |
} |
| |
} |
| |
return $cached; |
| |
} |
| |
return undef; |
| |
} |
| |
|
| |
1; |
| |
|
| |
require "$T2H_HOME/T2h_l2h.pm" |
| |
if ($0 =~ /\.pl$/ && |
| |
-e "$T2H_HOME/T2h_l2h.pm" && -r "$T2H_HOME/T2h_l2h.pm"); |
| |
|
| |
} |
| |
|
| |
{ |
| |
package Texi2HTML::LaTeX2HTML::Config; |
| |
|
| |
# latex2html variables |
| |
# These variables are not used. They are here for information only, and |
| |
# an example of config file for latex2html file is included. |
| |
my $ADDRESS; |
| |
my $ANTI_ALIAS; |
| |
my $ANTI_ALIAS_TEXT; |
| |
my $ASCII_MODE; |
| |
my $AUTO_LINK; |
| |
my $AUTO_PREFIX; |
| |
my $CHILDLINE; |
| |
my $DEBUG; |
| |
my $DESTDIR; |
| |
my $DVIPS = 'dvips'; |
| |
my $ERROR; |
| |
my $EXTERNAL_FILE; |
| |
my $EXTERNAL_IMAGES; |
| |
my $EXTERNAL_UP_LINK; |
| |
my $EXTERNAL_UP_TITLE; |
| |
my $FIGURE_SCALE_FACTOR; |
| |
my $HTML_VERSION; |
| |
my $IMAGES_ONLY; |
| |
my $INFO; |
| |
my $LINE_WIDTH; |
| |
my $LOCAL_ICONS; |
| |
my $LONG_TITLES; |
| |
my $MATH_SCALE_FACTOR; |
| |
my $MAX_LINK_DEPTH; |
| |
my $MAX_SPLIT_DEPTH; |
| |
my $NETSCAPE_HTML; |
| |
my $NOLATEX; |
| |
my $NO_FOOTNODE; |
| |
my $NO_IMAGES; |
| |
my $NO_NAVIGATION; |
| |
my $NO_SIMPLE_MATH; |
| |
my $NO_SUBDIR; |
| |
my $PAPERSIZE; |
| |
my $PREFIX; |
| |
my $PS_IMAGES; |
| |
my $REUSE; |
| |
my $SCALABLE_FONTS; |
| |
my $SHORTEXTN; |
| |
my $SHORT_INDEX; |
| |
my $SHOW_SECTION_NUMBERS; |
| |
my $SPLIT; |
| |
my $TEXDEFS; |
| |
my $TITLE; |
| |
my $TITLES_LANGUAGE; |
| |
my $TMP; |
| |
my $VERBOSE; |
| |
my $WORDS_IN_NAVIGATION_PANEL_TITLES; |
| |
my $WORDS_IN_PAGE; |
| |
|
| |
# @T2H_L2H_INIT@ |
| |
|
| |
###################################################################### |
| |
# from here on, its l2h init stuff |
| |
# |
| |
|
| |
## initialization for latex2html as for Singular manual generation |
| |
## obachman 3/99 |
| |
|
| |
# |
| |
# Options controlling Titles, File-Names, Tracing and Sectioning |
| |
# |
| |
$TITLE = ''; |
| |
|
| |
$SHORTEXTN = 0; |
| |
|
| |
$LONG_TITLES = 0; |
| |
|
| |
#$DESTDIR = ''; |
| |
|
| |
$NO_SUBDIR = 1; |
| |
|
| |
#$PREFIX = ''; |
| |
|
| |
$AUTO_PREFIX = 0; |
| |
|
| |
$AUTO_LINK = 0; |
| |
|
| |
$SPLIT = 0; |
| |
|
| |
$MAX_LINK_DEPTH = 0; |
| |
|
| |
#$TMP = ''; |
| |
|
| |
$DEBUG = 0; |
| |
|
| |
$VERBOSE = 1; |
| |
|
| |
# |
| |
# Options controlling Extensions and Special Features |
| |
# |
| |
#$HTML_VERSION = "3.2"; # set by command line |
| |
|
| |
$TEXDEFS = 1; # we absolutely need that |
| |
|
| |
$EXTERNAL_FILE = ''; |
| |
|
| |
$SCALABLE_FONTS = 1; |
| |
|
| |
$NO_SIMPLE_MATH = 1; |
| |
|
| |
$LOCAL_ICONS = 1; |
| |
|
| |
$SHORT_INDEX = 0; |
| |
|
| |
$NO_FOOTNODE = 1; |
| |
|
| |
$ADDRESS = ''; |
| |
|
| |
$INFO = ''; |
| |
|
| |
# |
| |
# Switches controlling Image Generation |
| |
# |
| |
$ASCII_MODE = 0; |
| |
|
| |
$NOLATEX = 0; |
| |
|
| |
$EXTERNAL_IMAGES = 0; |
| |
|
| |
$PS_IMAGES = 0; |
| |
|
| |
$NO_IMAGES = 0; |
| |
|
| |
$IMAGES_ONLY = 0; |
| |
|
| |
$REUSE = 2; |
| |
|
| |
$ANTI_ALIAS = 1; |
| |
|
| |
$ANTI_ALIAS_TEXT = 1; |
| |
|
| |
# |
| |
#Switches controlling Navigation Panels |
| |
# |
| |
$NO_NAVIGATION = 1; |
| |
$ADDRESS = ''; |
| |
$INFO = 0; # 0 = do not make a "About this document..." section |
| |
|
| |
# |
| |
#Switches for Linking to other documents |
| |
# |
| |
# currently -- we don't care |
| |
|
| |
$MAX_SPLIT_DEPTH = 0; # Stop making separate files at this depth |
| |
|
| |
$MAX_LINK_DEPTH = 0; # Stop showing child nodes at this depth |
| |
|
| |
$NOLATEX = 0; # 1 = do not pass unknown environments to Latex |
| |
|
| |
$EXTERNAL_IMAGES = 0; # 1 = leave the images outside the document |
| |
|
| |
$ASCII_MODE = 0; # 1 = do not use any icons or internal images |
| |
|
| |
# 1 = use links to external postscript images rather than inlined bitmap |
| |
# images. |
| |
$PS_IMAGES = 0; |
| |
$SHOW_SECTION_NUMBERS = 0; |
| |
|
| |
### Other global variables ############################################### |
| |
|
| |
# put dvips stderr on stdout since latex2html is alread very verbose |
| |
$DVIPS = "$DVIPS ".' 2>&1'; |
| |
|
| |
$CHILDLINE = ""; |
| |
|
| |
# This is the line width measured in pixels and it is used to right justify |
| |
# equations and equation arrays; |
| |
$LINE_WIDTH = 500; |
| |
|
| |
# Used in conjunction with AUTO_NAVIGATION |
| |
$WORDS_IN_PAGE = 300; |
| |
|
| |
# The value of this variable determines how many words to use in each |
| |
# title that is added to the navigation panel (see below) |
| |
# |
| |
$WORDS_IN_NAVIGATION_PANEL_TITLES = 0; |
| |
|
| |
# This number will determine the size of the equations, special characters, |
| |
# and anything which will be converted into an inlined image |
| |
# *except* "image generating environments" such as "figure", "table" |
| |
# or "minipage". |
| |
# Effective values are those greater than 0. |
| |
# Sensible values are between 0.1 - 4. |
| |
$MATH_SCALE_FACTOR = 1.5; |
| |
|
| |
# This number will determine the size of |
| |
# image generating environments such as "figure", "table" or "minipage". |
| |
# Effective values are those greater than 0. |
| |
# Sensible values are between 0.1 - 4. |
| |
$FIGURE_SCALE_FACTOR = 1.6; |
| |
|
| |
|
| |
# If both of the following two variables are set then the "Up" button |
| |
# of the navigation panel in the first node/page of a converted document |
| |
# will point to $EXTERNAL_UP_LINK. $EXTERNAL_UP_TITLE should be set |
| |
# to some text which describes this external link. |
| |
$EXTERNAL_UP_LINK = ""; |
| |
$EXTERNAL_UP_TITLE = ""; |
| |
|
| |
# If this is set then the resulting HTML will look marginally better if viewed |
| |
# with Netscape. |
| |
$NETSCAPE_HTML = 1; |
| |
|
| |
# Valid paper sizes are "letter", "legal", "a4","a3","a2" and "a0" |
| |
# Paper sizes has no effect other than in the time it takes to create inlined |
| |
# images and in whether large images can be created at all ie |
| |
# - larger paper sizes *MAY* help with large image problems |
| |
# - smaller paper sizes are quicker to handle |
| |
$PAPERSIZE = "a4"; |
| |
|
| |
# Replace "english" with another language in order to tell LaTeX2HTML that you |
| |
# want some generated section titles (eg "Table of Contents" or "References") |
| |
# to appear in a different language. Currently only "english" and "french" |
| |
# is supported but it is very easy to add your own. See the example in the |
| |
# file "latex2html.config" |
| |
$TITLES_LANGUAGE = "english"; |
| |
|
| |
1; # This must be the last non-comment line |
| |
|
| |
# End File l2h.init |
| |
###################################################################### |
| |
|
| |
} |
| |
|
| |
package main; |
| |
|
| |
if (!defined(Texi2HTML::Config::get_conf('use_nls'))) |
| |
{ |
| |
my $use_nls = ('yes' eq 'yes' or $0 =~ /\.pl$/); |
| |
Texi2HTML::Config::set_conf('use_nls', $use_nls); |
| |
} |
| |
|
| |
# prepare the gettext-like framework. To be noted that Locales::TextDomain |
| |
# canot be used, since it cannot be used dynamically through a reuires. |
| |
# Fortunately, Locales::TextDomain is a thin layer above Locales::Messages. |
| |
|
| |
my $strings_textdomain = 'texi2html' . '_document'; |
| |
$strings_textdomain = 'texi2html_document' if ($strings_textdomain eq '@'.'PACKAGE@' . '_document'); |
| |
my $messages_textdomain = 'texi2html'; |
| |
$messages_textdomain = 'texi2html' if ($messages_textdomain eq '@'.'PACKAGE@'); |
| |
|
| |
#my $messages_textdomain = 'texinfo'; |
| |
|
| |
if (Texi2HTML::Config::get_conf('use_nls')) |
| |
{ |
| |
if ($0 =~ /\.pl$/) |
| |
{ # use in-source libintl when testing |
| |
unshift @INC, "$T2H_HOME/lib/libintl-perl/lib"; |
| |
} |
| |
elsif ($ENV{T2H_SOURCE_LIBINTL}) |
| |
{ |
| |
unshift @INC, $ENV{T2H_SOURCE_LIBINTL}; |
| |
} |
| |
elsif ('no' ne 'yes') |
| |
{ |
| |
unshift @INC, "$pkgdatadir/lib/libintl-perl/lib"; |
| |
} |
| |
else |
| |
{ |
| |
eval { |
| |
require Locale::Messages; |
| |
}; |
| |
if ($@) |
| |
{ |
| |
unshift @INC, "$pkgdatadir/lib/libintl-perl/lib"; |
| |
} |
| |
} |
| |
# gettext-like translations |
| |
#require Locale::TextDomain; |
| |
require Locale::Messages; |
| |
# we want a reliable way to switch locale, so we don't use the system |
| |
# gettext. |
| |
Locale::Messages->select_package ('gettext_pp'); |
| |
if ($0 =~ /\.pl$/) |
| |
{ |
| |
# in case of out of source build, the locales directory should |
| |
# be two levels below. $T2H_HOME is in srcdir. |
| |
foreach my $locales_dir ("$T2H_HOME/locales", "../../locales") |
| |
{ |
| |
if (-d $locales_dir) |
| |
{ |
| |
Locale::Messages::bindtextdomain ($strings_textdomain, $locales_dir); |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ # match where gettext installs |
| |
Locale::Messages::bindtextdomain ($strings_textdomain, "$datadir/locale"); |
| |
} |
| |
# simply bind error messages to the installation directory. |
| |
# Messages should be untranslated for tests. |
| |
Locale::Messages::bindtextdomain ($messages_textdomain, "$datadir/locale"); |
| |
} |
| |
else |
| |
{ |
| |
unshift @INC, "$pkgdatadir/lib/libintl-perl/lib"; |
| |
require Locale::Messages; |
| |
} |
| |
|
| |
sub __($) |
| |
{ |
| |
my $msgid = shift; |
| |
return Locale::Messages::dgettext($messages_textdomain, $msgid); |
| |
} |
| |
|
| |
sub __p($$) |
| |
{ |
| |
my $context = shift; |
| |
my $msgid = shift; |
| |
return Locale::Messages::dpgettext($messages_textdomain, $context, $msgid); |
| |
} |
| |
|
| |
sub N__($) |
| |
{ |
| |
return $_[0]; |
| |
} |
| |
|
| |
# |
| |
# flush stdout and stderr after every write |
| |
# |
| |
select(STDERR); |
| |
$| = 1; |
| |
select(STDOUT); |
| |
$| = 1; |
| |
|
| |
my $I = \&Texi2HTML::I18n::get_string; |
| |
|
| |
######################################################################## |
| |
# |
| |
# Global variable initialization |
| |
# |
| |
######################################################################## |
| |
# |
| |
# pre-defined indices |
| |
# |
| |
|
| |
%index_prefix_to_name = (); |
| |
|
| |
%index_names = |
| |
( |
| |
'cp' => { 'prefixes' => {'cp' => 0,'c' => 0}}, |
| |
'fn' => { 'prefixes' => {'fn' => 1, 'f' => 1}}, |
| |
'vr' => { 'prefixes' => {'vr' => 1, 'v' => 1}}, |
| |
'ky' => { 'prefixes' => {'ky' => 1, 'k' => 1}}, |
| |
'pg' => { 'prefixes' => {'pg' => 1, 'p' => 1}}, |
| |
'tp' => { 'prefixes' => {'tp' => 1, 't' => 1}} |
| |
); |
| |
|
| |
foreach my $name(keys(%index_names)) |
| |
{ |
| |
foreach my $prefix (keys %{$index_names{$name}->{'prefixes'}}) |
| |
{ |
| |
$forbidden_index_name{$prefix} = 1; |
| |
$index_prefix_to_name{$prefix} = $name; |
| |
} |
| |
} |
| |
|
| |
foreach my $other_forbidden_index_name ('info','ps','pdf','htm', |
| |
'log','aux','dvi','texi','txi','texinfo','tex','bib') |
| |
{ |
| |
$forbidden_index_name{$other_forbidden_index_name} = 1; |
| |
} |
| |
|
| |
# commands with ---, -- '' and `` preserved |
| |
# usefull with the old interface |
| |
|
| |
%code_style_map = ( |
| |
'code' => 1, |
| |
'command' => 1, |
| |
'env' => 1, |
| |
'file' => 1, |
| |
'kbd' => 1, |
| |
'option' => 1, |
| |
'samp' => 1, |
| |
'verb' => 1, |
| |
); |
| |
|
| |
my @element_directions = ('Up', 'Forward', 'Back', 'Next', 'Prev', |
| |
'SectionNext', 'SectionPrev', 'SectionUp', 'FastForward', 'FastBack', |
| |
'This', 'NodeUp', 'NodePrev', 'NodeNext', 'Following', 'NextFile', 'PrevFile', |
| |
'ToplevelNext', 'ToplevelPrev'); |
| |
$::simple_map_ref = \%Texi2HTML::Config::simple_map; |
| |
$::simple_map_math_ref = \%Texi2HTML::Config::simple_map_math; |
| |
#$::simple_map_pre_ref = \%Texi2HTML::Config::simple_map_pre; |
| |
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi; |
| |
$::style_map_ref = \%Texi2HTML::Config::style_map; |
| |
$::style_map_pre_ref = \%Texi2HTML::Config::style_map_pre; |
| |
$::style_map_math_ref = \%Texi2HTML::Config::style_map_math; |
| |
$::style_map_texi_ref = \%Texi2HTML::Config::style_map_texi; |
| |
$::things_map_ref = \%Texi2HTML::Config::things_map; |
| |
$::pre_map_ref = \%Texi2HTML::Config::pre_map; |
| |
$::texi_map_ref = \%Texi2HTML::Config::texi_map; |
| |
|
| |
#print STDERR "MAPS: $::simple_map_ref $::simple_map_pre_ref $::simple_map_texi_ref $::style_map_ref $::style_map_pre_ref $::style_map_texi_ref $::things_map_ref $::pre_map_ref $::texi_map_ref\n"; |
| |
|
| |
# delete from hash if we are using the new interface |
| |
foreach my $code (keys(%code_style_map)) |
| |
{ |
| |
delete ($code_style_map{$code}) |
| |
if (ref($::style_map_ref->{$code}) eq 'HASH'); |
| |
} |
| |
|
| |
# no paragraph in these commands |
| |
my %no_paragraph_macro = ( |
| |
'xref' => 1, |
| |
'ref' => 1, |
| |
'pxref' => 1, |
| |
'inforef' => 1, |
| |
'anchor' => 1, |
| |
); |
| |
|
| |
|
| |
# |
| |
# texinfo section names to level |
| |
# |
| |
my %reference_sec2level = ( |
| |
'top', 0, |
| |
'chapter', 1, |
| |
'unnumbered', 1, |
| |
'chapheading', 1, |
| |
'appendix', 1, |
| |
'section', 2, |
| |
'unnumberedsec', 2, |
| |
'heading', 2, |
| |
'appendixsec', 2, |
| |
'subsection', 3, |
| |
'unnumberedsubsec', 3, |
| |
'subheading', 3, |
| |
'appendixsubsec', 3, |
| |
'subsubsection', 4, |
| |
'unnumberedsubsubsec', 4, |
| |
'subsubheading', 4, |
| |
'appendixsubsubsec', 4, |
| |
); |
| |
|
| |
# the reverse mapping. There is an entry for each sectioning command. |
| |
# The value is a ref on an array containing at each index the corresponding |
| |
# sectioning command name. |
| |
my %level2sec; |
| |
{ |
| |
my $sections = [ ]; |
| |
my $appendices = [ ]; |
| |
my $unnumbered = [ ]; |
| |
my $headings = [ ]; |
| |
foreach my $command (keys (%reference_sec2level)) |
| |
{ |
| |
if ($command =~ /^appendix/) |
| |
{ |
| |
$level2sec{$command} = $appendices; |
| |
} |
| |
elsif ($command =~ /^unnumbered/ or $command eq 'top') |
| |
{ |
| |
$level2sec{$command} = $unnumbered; |
| |
} |
| |
elsif ($command =~ /section$/ or $command eq 'chapter') |
| |
{ |
| |
$level2sec{$command} = $sections; |
| |
} |
| |
else |
| |
{ |
| |
$level2sec{$command} = $headings; |
| |
} |
| |
$level2sec{$command}->[$reference_sec2level{$command}] = $command; |
| |
} |
| |
} |
| |
|
| |
# out of the main hierarchy |
| |
$reference_sec2level{'part'} = 0; |
| |
# this are synonyms |
| |
$reference_sec2level{'appendixsection'} = 2; |
| |
# sec2level{'majorheading'} is also 1 and not 0 |
| |
$reference_sec2level{'majorheading'} = 1; |
| |
$reference_sec2level{'chapheading'} = 1; |
| |
$reference_sec2level{'centerchap'} = 1; |
| |
|
| |
sub stop_paragraph_command($) |
| |
{ |
| |
my $command = shift; |
| |
return 1 if ($Texi2HTML::Config::stop_paragraph_command{$command} or defined($reference_sec2level{$command})); |
| |
} |
| |
|
| |
sub set_no_line_macro($$) |
| |
{ |
| |
my $macro = shift; |
| |
my $value = shift; |
| |
$Texi2HTML::Config::no_paragraph_commands{$macro} = $value |
| |
unless defined($Texi2HTML::Config::no_paragraph_commands{$macro}); |
| |
} |
| |
|
| |
# those macros aren't considered as beginning a paragraph |
| |
foreach my $no_line_macro ('alias', 'macro', 'unmacro', 'rmacro', |
| |
'titlefont', 'include', 'copying', 'end copying', 'tab', 'item', |
| |
'itemx', '*', 'float', 'end float', 'caption', 'shortcaption', 'cindex', |
| |
'image') |
| |
{ |
| |
set_no_line_macro($no_line_macro, 1); |
| |
} |
| |
|
| |
foreach my $key (keys(%Texi2HTML::Config::misc_command), keys(%reference_sec2level)) |
| |
{ |
| |
set_no_line_macro($key, 1); |
| |
} |
| |
|
| |
# a hash associating a format @thing / @end thing with the type of the format |
| |
# 'complex_format' 'simple_format' 'deff' 'list' 'menu' 'paragraph_format' |
| |
my %format_type = (); |
| |
|
| |
foreach my $simple_format (keys(%Texi2HTML::Config::format_map)) |
| |
{ |
| |
$format_type{$simple_format} = 'simple_format'; |
| |
} |
| |
foreach my $paragraph_style (keys(%Texi2HTML::Config::paragraph_style)) |
| |
{ |
| |
$format_type{$paragraph_style} = 'paragraph_format'; |
| |
} |
| |
# FIXME $complex_format_map obsoleted in nov 2009 |
| |
foreach my $complex_format (keys(%$Texi2HTML::Config::complex_format_map), |
| |
keys(%Texi2HTML::Config::complex_format_map)) |
| |
{ |
| |
$format_type{$complex_format} = 'complex_format'; |
| |
} |
| |
foreach my $table (('table', 'ftable', 'vtable')) |
| |
{ |
| |
$format_type{$table} = 'table'; |
| |
} |
| |
$format_type{'multitable'} = 'multitable'; |
| |
foreach my $def_format (keys(%Texi2HTML::Config::def_map)) |
| |
{ |
| |
$format_type{$def_format} = 'deff'; |
| |
} |
| |
$format_type{'itemize'} = 'list'; |
| |
$format_type{'enumerate'} = 'list'; |
| |
|
| |
$format_type{'menu'} = 'menu'; |
| |
$format_type{'detailmenu'} = 'menu'; |
| |
$format_type{'direntry'} = 'menu'; |
| |
|
| |
$format_type{'cartouche'} = 'cartouche'; |
| |
|
| |
$format_type{'float'} = 'float'; |
| |
|
| |
$format_type{'quotation'} = 'quotation'; |
| |
$format_type{'smallquotation'} = 'quotation'; |
| |
|
| |
$format_type{'group'} = 'group'; |
| |
|
| |
my @special_regions = ('titlepage', 'copying', 'documentdescription'); |
| |
foreach my $region (@special_regions) |
| |
{ |
| |
$format_type{$region} = 'region'; |
| |
} |
| |
|
| |
foreach my $key (keys(%format_type)) |
| |
{ |
| |
set_no_line_macro($key, 1); |
| |
set_no_line_macro("end $key", 1); |
| |
} |
| |
|
| |
foreach my $macro (keys(%Texi2HTML::Config::format_in_paragraph)) |
| |
{ |
| |
set_no_line_macro($macro, 1); |
| |
set_no_line_macro("end $macro", 1); |
| |
} |
| |
|
| |
# fake format at the bottom of the stack |
| |
$format_type{'noformat'} = ''; |
| |
|
| |
# fake formats are formats used internally within other formats |
| |
# we associate them with a real format, for the error messages |
| |
my %fake_format = ( |
| |
'line' => 'table', |
| |
'term' => 'table', |
| |
'item' => 'list or table', |
| |
'row' => 'multitable row', |
| |
'cell' => 'multitable cell', |
| |
'deff_item' => 'definition command', |
| |
'menu_comment' => 'menu', |
| |
'menu_description' => 'menu', |
| |
); |
| |
|
| |
foreach my $key (keys(%fake_format)) |
| |
{ |
| |
$format_type{$key} = 'fake'; |
| |
} |
| |
|
| |
# raw formats which are expanded especially |
| |
my @raw_regions = ('html', 'tex', 'xml', 'docbook'); |
| |
foreach my $format (keys(%Texi2HTML::Config::texi_formats_map)) |
| |
{ |
| |
push @raw_regions, $format if ($Texi2HTML::Config::texi_formats_map{$format} eq 'raw'); |
| |
} |
| |
|
| |
# The css formats are associated with complex format commands, and associated |
| |
# with the 'pre_style' key |
| |
# FIXME $complex_format_map obsoleted in nov 2009 |
| |
foreach my $complex_format (keys(%$Texi2HTML::Config::complex_format_map)) |
| |
{ |
| |
next if (defined($Texi2HTML::Config::complex_format_map->{$complex_format}->{'pre_style'})); |
| |
$Texi2HTML::Config::complex_format_map->{$complex_format}->{'pre_style'} = ''; |
| |
$Texi2HTML::Config::complex_format_map->{$complex_format}->{'pre_style'} = $Texi2HTML::Config::css_map{"pre.$complex_format"} if (exists($Texi2HTML::Config::css_map{"pre.$complex_format"})); |
| |
} |
| |
|
| |
# The css formats are associated with complex format commands, and associated |
| |
# with the 'pre_style' key |
| |
foreach my $complex_format (keys(%Texi2HTML::Config::complex_format_map)) |
| |
{ |
| |
next if (defined($Texi2HTML::Config::complex_format_map{$complex_format}->{'pre_style'})); |
| |
$Texi2HTML::Config::complex_format_map{$complex_format}->{'pre_style'} = ''; |
| |
$Texi2HTML::Config::complex_format_map{$complex_format}->{'pre_style'} = $Texi2HTML::Config::css_map{"pre.$complex_format"} if (exists($Texi2HTML::Config::css_map{"pre.$complex_format"})); |
| |
} |
| |
|
| |
|
| |
|
| #+++############################################################################ |
#+++############################################################################ |
| # # |
# # |
| # Pass 4: foot notes, final cleanup # |
# Argument parsing, initialisation # |
| # # |
# # |
| #---############################################################################ |
#---############################################################################ |
| |
|
| @foot_lines = (); # footnotes |
# shorthand for Texi2HTML::Config::VERBOSE |
| @doc_lines = (); # final document |
my $T2H_VERBOSE; |
| $end_of_para = 0; # true if last line is <P> |
my $T2H_DEBUG; |
| |
|
| while (@lines3) { |
sub line_warn($$); |
| $_ = shift(@lines3); |
sub document_warn($); |
| # |
sub file_line_warn($$;$); |
| # special case (protected sections) |
sub cmdline_warn ($); |
| # |
|
| if (/^$PROTECTTAG/o) { |
my $T2H_FAILURE_TEXT = sprintf(__("Try `%s --help' for more information.\n"), $real_command_name); |
| push(@doc_lines, $_); |
|
| $end_of_para = 0; |
#print STDERR "" . gdt('test i18n: \' , \a \\ %% %{unknown}a %known % %{known} \\', { 'known' => 'a known string', 'no' => 'nope'}); exit 0; |
| next; |
|
| |
# file: file name to locate. It can be a file path. |
| |
# all_files: if true collect all the files with that name, otherwise stop |
| |
# at first match. |
| |
# directories: a reference on a array containing a list of directories to |
| |
# search the file in. default is |
| |
# @Texi2HTML::Config::CONF_DIRS, @program_config_dirs. |
| |
sub locate_init_file($;$$) |
| |
{ |
| |
my $file = shift; |
| |
my $all_files = shift; |
| |
my $directories = shift; |
| |
|
| |
if (!defined($directories)) |
| |
{ |
| |
if ($all_files) |
| |
{ |
| |
$directories = [ @program_config_dirs ]; |
| |
} |
| |
else |
| |
{ |
| |
$directories = [ @Texi2HTML::Config::CONF_DIRS, @program_init_dirs ]; |
| |
} |
| } |
} |
| # |
|
| # footnotes |
if ($file =~ /^\//) |
| # |
{ |
| while (/\@footnote([^\{\s]+)\{/) { |
return $file if (-e $file and -r $file); |
| ($before, $d, $after) = ($`, $1, $'); |
|
| $_ = $after; |
|
| $text = ''; |
|
| $after = ''; |
|
| $failed = 1; |
|
| while (@lines3) { |
|
| if (/\}/) { |
|
| $text .= $`; |
|
| $after = $'; |
|
| $failed = 0; |
|
| last; |
|
| } else { |
|
| $text .= $_; |
|
| $_ = shift(@lines3); |
|
| } |
|
| } |
|
| if ($failed) { |
|
| die "* Bad syntax (\@footnote) after: $before\n"; |
|
| } else { |
|
| $foot_num++; |
|
| $docid = "DOCF$foot_num"; |
|
| $footid = "FOOT$foot_num"; |
|
| $foot = "($foot_num)"; |
|
| push(@foot_lines, "<H3>" . &anchor($footid, "$d#$docid", $foot) . "</H3>\n"); |
|
| $text = "<P>$text" unless $text =~ /^\s*<P>/; |
|
| push(@foot_lines, "$text\n"); |
|
| $_ = $before . &anchor($docid, "$docu_foot#$footid", $foot) . $after; |
|
| } |
|
| } |
} |
| # |
else |
| # remove unnecessary <P> |
{ |
| # |
my @files; |
| if (/^\s*<P>\s*$/) { |
foreach my $dir (@$directories) |
| next if $end_of_para++; |
{ |
| } else { |
next unless (-d "$dir"); |
| $end_of_para = 0; |
if ($all_files) |
| |
{ |
| |
push (@files, "$dir/$file") if (-e "$dir/$file" and -r "$dir/$file"); |
| |
} |
| |
else |
| |
{ |
| |
return "$dir/$file" if (-e "$dir/$file" and -r "$dir/$file"); |
| |
} |
| |
} |
| |
return @files if ($all_files); |
| } |
} |
| # otherwise |
return undef; |
| push(@doc_lines, $_); |
|
| } |
} |
| print "# end of pass 4\n" if $verbose; |
|
| |
|
| |
# called on -init-file |
| |
sub load_init_file |
| |
{ |
| |
# First argument is option |
| |
shift; |
| |
# second argument is value of options |
| |
my $init_file = shift; |
| |
my $file; |
| |
if ($file = locate_init_file($init_file)) |
| |
{ |
| |
print STDERR "# reading initialization file from $file\n" |
| |
if ($T2H_VERBOSE); |
| |
# require the file in the Texi2HTML::Config namespace |
| |
return (Texi2HTML::Config::load($file)); |
| |
} |
| |
else |
| |
{ |
| |
document_error ("Can't read init file $init_file"); |
| |
return 0; |
| |
} |
| |
} |
| |
|
| |
sub set_date($) |
| |
{ |
| |
my $language = shift; |
| |
if (!$Texi2HTML::Config::TEST) |
| |
{ |
| |
print STDERR "# Setting date in $language\n" if ($T2H_DEBUG); |
| |
$Texi2HTML::THISDOC{'today'} = Texi2HTML::I18n::pretty_date($language); # like "20 September 1993"; |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::THISDOC{'today'} = 'a sunny day'; |
| |
} |
| |
$Texi2HTML::THISDOC{'today'} = $Texi2HTML::Config::DATE |
| |
if (defined($Texi2HTML::Config::DATE)); |
| |
$::things_map_ref->{'today'} = $Texi2HTML::THISDOC{'today'}; |
| |
$::pre_map_ref->{'today'} = $Texi2HTML::THISDOC{'today'}; |
| |
$::texi_map_ref->{'today'} = $Texi2HTML::THISDOC{'today'}; |
| |
} |
| |
|
| |
sub warn_unknown_language($;$) |
| |
{ |
| |
my $lang = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my $lang_code = $lang; |
| |
my $region_code; |
| |
|
| |
if ($lang =~ /^([a-z]+)_([A-Z]+)/) |
| |
{ |
| |
$lang_code = $1; |
| |
$region_code = $2; |
| |
} |
| |
|
| |
if (! $Texi2HTML::Config::language_codes{$lang_code}) |
| |
{ |
| |
msg_warn(sprintf(__("%s is not a valid language code"), $lang_code), $line_nr); |
| |
} |
| |
if (defined($region_code) and ! $Texi2HTML::Config::region_codes{$region_code}) |
| |
{ |
| |
msg_warn(sprintf(__("%s is not a valid region code"), $region_code), $line_nr); |
| |
} |
| |
} |
| |
|
| |
# Called on --document-language, at the beginning of each pass and |
| |
# when a @documentlanguage appears |
| |
sub set_document_language ($$;$) |
| |
{ |
| |
my $lang = shift; |
| |
my $silent = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my @langs = ($lang); |
| |
|
| |
# my $lang_code = $lang; |
| |
# my $region_code; |
| |
|
| |
my $main_lang; |
| |
|
| |
if ($lang =~ /^([a-z]+)_([A-Z]+)/) |
| |
{ |
| |
$main_lang = $1; |
| |
# $region_code = $2; |
| |
# $lang_code = $main_lang; |
| |
push @langs, $main_lang; |
| |
} |
| |
|
| |
# if (!$silent) |
| |
# { |
| |
# if (! $Texi2HTML::Config::language_codes{$lang_code}) |
| |
# { # i18n |
| |
# msg_warn("$lang_code is not a valid language code.", $line_nr); |
| |
# } |
| |
# if (defined($region_code) and ! $Texi2HTML::Config::region_codes{$region_code}) |
| |
# { # i18n |
| |
# msg_warn("$region_code is not a valid region code.", $line_nr); |
| |
# } |
| |
# } |
| |
# Always succeed if using a gettext-like environment |
| |
if (!$Texi2HTML::Config::I18N_PERL_HASH) |
| |
{ |
| |
set_date($lang); |
| |
return 1; |
| |
} |
| |
|
| |
my @files = locate_init_file("$i18n_dir/$lang.thl", 1); |
| |
if (! scalar(@files) and defined($main_lang)) |
| |
{ |
| |
@files = locate_init_file("$i18n_dir/$main_lang.thl", 1); |
| |
} |
| |
|
| |
foreach my $file (@files) |
| |
{ |
| |
Texi2HTML::Config::load($file); |
| |
} |
| |
foreach my $language (@langs) |
| |
{ |
| |
if (Texi2HTML::I18n::set_language($language)) |
| |
{ |
| |
print STDERR "# using '$language' as document language\n" if ($T2H_VERBOSE); |
| |
# since it may be different from get_conf('documentlanguage'), |
| |
# we record it. |
| |
# Currently this is not used anywhere, not sure what the value |
| |
# really corresponds with. |
| |
$Texi2HTML::THISDOC{'current_language'} = $language; |
| |
set_date($language); |
| |
return 1; |
| |
} |
| |
} |
| |
return 0; |
| |
} |
| |
|
| |
|
| |
# manage footnote style |
| |
sub set_footnote_style($$;$) |
| |
{ |
| |
my $value = shift; |
| |
my $from_command_line = shift; |
| |
my $line_nr = shift; |
| |
my $command = 'footnotestyle'; |
| |
if ($value eq 'end' or $value eq 'separate') |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, $value, !$from_command_line); |
| |
} |
| |
elsif ($from_command_line) |
| |
{ |
| |
die sprintf(__("%s: --footnote-style arg must be `separate' or `end', not `%s'.\n"), $real_command_name, $value); |
| |
# the T2H_FAILURE_TEXT is output by getOption, seems to catch die |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@%s arg must be `separate' or `end', not `%s'"), $command, $value), $line_nr); |
| |
} |
| |
} |
| |
|
| |
|
| |
# find the encoding alias. |
| |
# with encoding support (USE_UNICODE), may return undef if no alias was found |
| |
sub encoding_alias($;$$) |
| |
{ |
| |
my $encoding = shift; |
| |
my $line_nr = shift; |
| |
my $context_string = shift; |
| |
return undef if (!defined($encoding) or $encoding eq ''); |
| |
if ($Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
my $result_encoding = Encode::resolve_alias($encoding); |
| |
if (! $result_encoding) |
| |
{ |
| |
msg_warn(sprintf(__("unrecognized encoding name `%s'"), $encoding), $line_nr, $context_string); |
| |
return undef; |
| |
} |
| |
if (defined($Texi2HTML::Config::t2h_encoding_aliases{$result_encoding})) |
| |
{ |
| |
$result_encoding = $Texi2HTML::Config::t2h_encoding_aliases{$result_encoding}; |
| |
} |
| |
print STDERR "# Using encoding $result_encoding\n" if ($T2H_VERBOSE); |
| |
return $result_encoding; |
| |
} |
| |
else |
| |
{ |
| |
if (exists($Texi2HTML::Config::t2h_encoding_aliases{$encoding})) |
| |
{ |
| |
$encoding = $Texi2HTML::Config::t2h_encoding_aliases{$encoding}; |
| |
document_warn (__("Document encoding is utf8, but there is no unicode support")) if ($encoding eq 'utf-8'); |
| |
return $encoding; |
| |
} |
| |
msg_warn(sprintf(__("Encoding %s certainly poorly supported"), $encoding), $line_nr); |
| |
return $encoding; |
| |
} |
| |
} |
| |
|
| |
# libintl converts between encodings but doesn't decode them into the |
| |
# perl internal format. |
| |
sub encode_i18n_string($$) |
| |
{ |
| |
my $string = shift; |
| |
my $encoding = shift; |
| |
if ($encoding ne 'us-ascii' and $Texi2HTML::Config::USE_UNICODE |
| |
and Encode::resolve_alias($encoding)) |
| |
{ |
| |
return Encode::decode($encoding, $string); |
| |
} |
| |
return $string; |
| |
} |
| |
|
| |
sub gdt($;$$) |
| |
{ |
| |
my $message = shift; |
| |
my $context = shift; |
| |
my $state = shift; |
| |
|
| |
# FIXME this should be done only once, for @documentencoding |
| |
my $encoding = lc(Texi2HTML::Config::get_conf('DOCUMENT_ENCODING')); |
| |
if (defined($encoding) and $encoding ne '' and exists($Texi2HTML::Config::t2h_encoding_aliases{$encoding})) |
| |
{ |
| |
$encoding = $Texi2HTML::Config::t2h_encoding_aliases{$encoding}; |
| |
} |
| |
$encoding = 'us-ascii' if (!defined($encoding) or $encoding eq ''); |
| |
|
| |
return &$I($message, $context, $state) if ($Texi2HTML::Config::I18N_PERL_HASH); |
| |
# if set, use substitute_text instead of substitute_line |
| |
my $allow_paragraph = $state->{'allow_paragraph'}; |
| |
# if duplicate is passed, it means that we are in the text and so should |
| |
# use the main state |
| |
if (defined($state) and $state->{'duplicate'} and defined($Texi2HTML::THISDOC{'state'})) |
| |
{ |
| |
$state = main::duplicate_formatting_state($Texi2HTML::THISDOC{'state'}); |
| |
} |
| |
|
| |
my $result; |
| |
# taken from libintl perl, copyright Guido. sub __expand. Overall not |
| |
# enough code taken form Guido right now to be copyrightable. |
| |
my $re = join '|', map { quotemeta $_ } keys %$context if (defined($context) and ref($context)); |
| |
|
| |
if (Texi2HTML::Config::get_conf('use_nls')) |
| |
{ |
| |
my $saved_LANGUAGE = $ENV{'LANGUAGE'}; |
| |
|
| |
Locale::Messages::textdomain($strings_textdomain); |
| |
|
| |
|
| |
Locale::Messages::bind_textdomain_codeset($strings_textdomain, $encoding) if ($encoding ne 'us-ascii'); |
| |
Locale::Messages::bind_textdomain_filter($strings_textdomain, \&encode_i18n_string, $encoding); |
| |
|
| |
my $lang = Texi2HTML::Config::get_conf('documentlanguage'); |
| |
my @langs = ($lang); |
| |
if ($lang =~ /^([a-z]+)_([A-Z]+)/) |
| |
{ |
| |
my $main_lang = $1; |
| |
my $region_code = $2; |
| |
push @langs, $main_lang; |
| |
} |
| |
|
| |
my $locales = ''; |
| |
foreach my $language (@langs) |
| |
{ |
| |
$locales .= "$language.$encoding:"; |
| |
#$locales .= "$language:"; |
| |
# always try us-ascii, the charset should always be a subset of |
| |
# all charset, and should resort to @-commands if needed for non |
| |
# ascii characters |
| |
if ($encoding ne 'us-ascii') |
| |
{ |
| |
$locales .= "$language.us-ascii:"; |
| |
} |
| |
} |
| |
$locales =~ s/:$//; |
| |
#print STDERR "$locales\n"; |
| |
Locale::Messages::nl_putenv("LANGUAGE=$locales"); |
| |
|
| |
if (!defined($context) or ref($context)) |
| |
{ |
| |
$result = Locale::Messages::gettext($message); |
| |
} |
| |
else |
| |
{ |
| |
$result = Locale::Messages::pgettext($context, $message); |
| |
} |
| |
Locale::Messages::textdomain($messages_textdomain); |
| |
# old perl complains 'Use of uninitialized value in scalar assignment' |
| |
if (!defined($saved_LANGUAGE)) |
| |
{ |
| |
delete ($ENV{'LANGUAGE'}); |
| |
} |
| |
else |
| |
{ |
| |
$ENV{'LANGUAGE'} = $saved_LANGUAGE; |
| |
} |
| |
} |
| |
|
| |
# now perform the argument substitutions |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
# next line taken from libintl perl, copyright Guido. sub __expand |
| |
$result =~ s/\{($re)\}/defined $context->{$1} ? $context->{$1} : "{$1}"/ge if (defined($re)); |
| |
return $result; |
| |
} |
| |
if (defined($re)) |
| |
{ |
| |
# next line taken from libintl perl, copyright Guido. sub __expand |
| |
$result =~ s/\{($re)\}/\@internal_translation_open_brace\{\}$1\@internal_translation_close_brace\{\}/g; |
| |
foreach my $map (\%Texi2HTML::Config::things_map, \%Texi2HTML::Config::pre_map, \%Texi2HTML::Config::texi_map, \%Texi2HTML::Config::simple_format_texi_map) |
| |
{ |
| |
$map->{'internal_translation_open_brace'} = '{'; |
| |
$map->{'internal_translation_close_brace'} = '}'; |
| |
} |
| |
} |
| |
if ($allow_paragraph) |
| |
{ |
| |
delete $state->{'allow_paragraph'}; |
| |
$result = substitute_text ($state, undef, __("translation"), ($result)); |
| |
} |
| |
else |
| |
{ |
| |
$result = substitute_line ($result, __("translation"), $state); |
| |
} |
| |
if (defined($re)) |
| |
{ |
| |
$result =~ s/\{($re)\}/defined $context->{$1} ? $context->{$1} : "{$1}"/ge; |
| |
foreach my $map (\%Texi2HTML::Config::things_map, \%Texi2HTML::Config::pre_map, \%Texi2HTML::Config::texi_map, \%Texi2HTML::Config::simple_format_texi_map) |
| |
{ |
| |
delete $map->{'internal_translation_open_brace'}; |
| |
delete $map->{'internal_translation_close_brace'}; |
| |
} |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
my %nodes; # nodes hash. The key is the texi node name |
| |
my %cross_reference_nodes; # normalized node names arrays |
| |
|
| |
# |
| |
# %value hold texinfo variables, see also -D, -U, @set and @clear. |
| |
# we predefine html (the output format) and texi2html (the translator) |
| |
# it is initialized with %value_initial at the beginning of the |
| |
# document parsing and filled and emptied as @set and @clear are |
| |
# encountered |
| |
my %value_initial = |
| |
( |
| |
'html' => 1, |
| |
'texi2html' => $THISVERSION, |
| |
); |
| |
|
| |
# |
| |
# _foo: internal variables to track @foo |
| |
# |
| |
foreach my $key ('_author', '_title', '_subtitle', '_shorttitlepage', |
| |
'_settitle', '_titlefont') |
| |
{ |
| |
$value_initial{$key} = ''; # prevent -w warnings |
| |
} |
| |
|
| |
|
| |
sub unicode_to_protected($) |
| |
{ |
| |
my $text = shift; |
| |
my $result = ''; |
| |
while ($text ne '') |
| |
{ |
| |
if ($text =~ s/^([A-Za-z0-9]+)//o) |
| |
{ |
| |
$result .= $1; |
| |
} |
| |
elsif ($text =~ s/^ //o) |
| |
{ |
| |
$result .= '-'; |
| |
} |
| |
elsif ($text =~ s/^(.)//o) |
| |
{ |
| |
my $char = $1; |
| |
if (exists($Texi2HTML::Config::ascii_character_map{$char})) |
| |
{ |
| |
$result .= '_' . lc($Texi2HTML::Config::ascii_character_map{$char}); |
| |
} |
| |
else |
| |
{ |
| |
if (ord($char) <= hex(0xFFFF)) |
| |
{ |
| |
$result .= '_' . lc(sprintf("%04x",ord($char))); |
| |
} |
| |
else |
| |
{ |
| |
$result .= '__' . lc(sprintf("%06x",ord($char))); |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "Bug: unknown character in a cross ref (likely in infinite loop)\n"; |
| |
print STDERR "Text: !!$text!!\n"; |
| |
sleep 1; |
| |
} |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub unicode_to_transliterate($) |
| |
{ |
| |
my $text = shift; |
| |
if (chomp($text)) |
| |
{ |
| |
print STDERR "Strange: end of line to transliterate: $text\n"; |
| |
} |
| |
my $result = ''; |
| |
while ($text ne '') |
| |
{ |
| |
if ($text =~ s/^([A-Za-z0-9 ]+)//o) |
| |
{ |
| |
$result .= $1; |
| |
} |
| |
elsif ($text =~ s/^(.)//o) |
| |
{ |
| |
my $char = $1; |
| |
if (exists($Texi2HTML::Config::ascii_character_map{$char})) |
| |
{ |
| |
$result .= $char; |
| |
} |
| |
elsif (ord($char) <= hex(0xFFFF) and exists($Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($char)))})) |
| |
{ |
| |
$result .= $Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($char)))}; |
| |
} |
| |
elsif (ord($char) <= hex(0xFFFF) and exists($Texi2HTML::Config::unicode_diacritical{uc(sprintf("%04x",ord($char)))})) |
| |
{ |
| |
$result .= ''; |
| |
} |
| |
# in this case, we want to avoid calling unidecode, as we are sure |
| |
# that there is no useful transliteration of the unicode character |
| |
# instead we want to keep it as is. |
| |
# This is the case, for example, for @exclamdown, is corresponds |
| |
# with x00a1, but unidecode transliterates it to a !, we want |
| |
# to avoid that and keep x00a1. |
| |
elsif (ord($char) <= hex(0xFFFF) and exists($Texi2HTML::Config::no_transliterate_map{uc(sprintf("%04x",ord($char)))})) |
| |
{ |
| |
$result .= $char; |
| |
} |
| |
else |
| |
{ |
| |
if ($Texi2HTML::Config::USE_UNIDECODE) |
| |
{ |
| |
$result .= unidecode($char); |
| |
} |
| |
else |
| |
{ |
| |
$result .= $char; |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "Bug: unknown character in cross ref transliteration (likely in infinite loop)\n"; |
| |
print STDERR "Text: !!$text!!\n"; |
| |
sleep 1; |
| |
} |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
# used both for command line and @-command argument checking |
| |
sub set_paragraphindent($$;$$) |
| |
{ |
| |
my $value = shift; |
| |
my $from_command_line = shift; |
| |
my $line_nr = shift; |
| |
my $pass = shift; |
| |
my $command = 'paragraphindent'; |
| |
|
| |
if ($value =~ /^([0-9]+)$/ or $value eq 'none' or $value eq 'asis') |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, $value, !$from_command_line); |
| |
} |
| |
elsif ($from_command_line) |
| |
{ |
| |
die sprintf(__("%s: --paragraph-indent arg must be numeric/`none'/`asis', not `%s'.\n"), $real_command_name, $value); |
| |
} |
| |
elsif ($pass == 1) |
| |
{ |
| |
line_error (sprintf(__("\@paragraphindent arg must be numeric/`none'/`asis', not `%s'"), $value), $line_nr); |
| |
} |
| |
} |
| |
|
| |
# T2H_OPTIONS is a hash whose keys are the (long) names of valid |
| |
# command-line options and whose values are a hash with the following keys: |
| |
# type ==> one of !|=i|:i|=s|:s (see Getopt::Long for more info) |
| |
# linkage ==> ref to scalar, array, or subroutine (see Getopt::Long for more info) |
| |
# verbose ==> short description of option (displayed by -h) |
| |
# noHelp ==> if 1 -> for "not so important options": only print description on -h 1 |
| |
# 2 -> for obsolete options: only print description on -h 2 |
| |
my $T2H_OPTIONS; |
| |
$T2H_OPTIONS -> {'debug'} = |
| |
{ |
| |
type => '=i', |
| |
linkage => \$Texi2HTML::Config::DEBUG, |
| |
verbose => 'output HTML with debuging information', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'doctype'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {Texi2HTML::Config::set_conf('doctype', $_[1]);}, |
| |
verbose => 'document type which is output in header of HTML files', |
| |
noHelp => 1 |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'frameset-doctype'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::FRAMESET_DOCTYPE, |
| |
verbose => 'document type for HTML frameset documents', |
| |
noHelp => 1 |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'test'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::TEST, |
| |
verbose => 'use predefined information to avoid differences with reference files', |
| |
noHelp => 1 |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'dump-texi'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::DUMP_TEXI, |
| |
verbose => 'dump the output of first pass into a file with extension passfirst and exit', |
| |
noHelp => 1 |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'macro-expand|E'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::MACRO_EXPAND, |
| |
verbose => 'output macro expanded source in <file>', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'ifhtml'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub { Texi2HTML::Config::set_expansion('html', $_[1]); }, |
| |
verbose => "expand ifhtml and html sections", |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'ifinfo'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub { Texi2HTML::Config::set_expansion('info', $_[1]); }, |
| |
verbose => "expand ifinfo", |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'ifxml'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub { Texi2HTML::Config::set_expansion('xml', $_[1]); }, |
| |
verbose => "expand ifxml and xml sections", |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'ifdocbook'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub { Texi2HTML::Config::set_expansion('docbook', $_[1]); }, |
| |
verbose => "expand ifdocbook and docbook sections", |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'iftex'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub { Texi2HTML::Config::set_expansion('tex', $_[1]); }, |
| |
verbose => "expand iftex and tex sections", |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'ifplaintext'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub { Texi2HTML::Config::set_expansion('plaintext', $_[1]); }, |
| |
verbose => "expand ifplaintext sections", |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'iso'} = |
| |
{ |
| |
type => 'iso', |
| |
linkage => sub {Texi2HTML::Config::t2h_default_set_iso_symbols ($_[1]);}, |
| |
verbose => 'if set, entities are used for special symbols (like copyright, etc...) and quotes', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'I'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \@Texi2HTML::Config::INCLUDE_DIRS, |
| |
verbose => 'append $s to the @include search path', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'conf-dir'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \@Texi2HTML::Config::CONF_DIRS, |
| |
verbose => 'append $s to the init file directories', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'P'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {unshift (@Texi2HTML::Config::PREPEND_DIRS, $_[1]);}, |
| |
verbose => 'prepend $s to the @include search path', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'top-file'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::TOP_FILE, |
| |
verbose => 'use $s as top file, instead of <docname>.html', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'toc-file'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::TOC_FILE, |
| |
verbose => 'use $s as ToC file, instead of <docname>_toc.html', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'frames'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::FRAMES, |
| |
verbose => 'output files which use HTML 4.0 frames (experimental)', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'menu'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::SHOW_MENU, |
| |
verbose => 'output Texinfo menus', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'number-sections'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::NUMBER_SECTIONS, |
| |
verbose => 'output chapter and sectioning numbers.', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'number-footnotes'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::NUMBER_FOOTNOTES, |
| |
verbose => 'output footnote numbers.', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'use-nodes'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::USE_NODES, |
| |
verbose => 'use nodes for sectioning', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'node-files'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::NODE_FILES, |
| |
verbose => 'produce one file per node for cross references' |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'footnote-style|s'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {set_footnote_style ($_[1], 1);}, |
| |
verbose => 'output footnotes separate|end', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'toc-links'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::TOC_LINKS, |
| |
verbose => 'create links from headings to toc entries' |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'split'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::SPLIT, |
| |
verbose => 'split document on section|chapter|node else no splitting', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'no-split'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {$Texi2HTML::Config::SPLIT = ''; $Texi2HTML::Config::SPLIT_SIZE = undef;}, |
| |
verbose => 'no splitting of document', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'headers'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub { |
| |
Texi2HTML::Config::set_conf('headers', $_[1]); |
| |
Texi2HTML::Config::t2h_default_load_format('plaintext', 1) |
| |
if (!$_[1] and defined($Texi2HTML::Config::OUTPUT_FORMAT) and $Texi2HTML::Config::OUTPUT_FORMAT eq 'info'); |
| |
}, |
| |
verbose => 'output navigation headers for each section', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'subdir'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::SUBDIR, |
| |
verbose => 'put files in directory $s, not $cwd', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'short-ext'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::SHORTEXTN, |
| |
verbose => 'use "htm" extension for output HTML files', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'prefix'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::PREFIX, |
| |
verbose => 'use as prefix for output files, instead of <docname>', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'output|out|o'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::OUT, |
| |
verbose => 'output goes to $s (directory if split)', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'no-validate|no-pointer-validate'} = |
| |
{ |
| |
type => '', |
| |
linkage => sub {Texi2HTML::Config::set_conf('novalidate',$_[1])}, |
| |
verbose => 'suppress node cross-reference validation', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'no-warn'} = |
| |
{ |
| |
type => '', |
| |
linkage => \$Texi2HTML::Config::NO_WARN, |
| |
verbose => 'suppress warnings (but not errors).' |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'short-ref'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::SHORT_REF, |
| |
verbose => 'if set, references are without section numbers', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'idx-sum'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::IDX_SUMMARY, |
| |
verbose => 'if set, also output index summary', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'def-table'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::DEF_TABLE, |
| |
verbose => 'if set, \@def.. are converted using tables.', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'verbose'} = 0; |
| |
$T2H_OPTIONS -> {'verbose|v'} = |
| |
{ |
| |
type => '!', |
| |
linkage=> \$Texi2HTML::Config::VERBOSE, |
| |
verbose => 'print progress info to stdout', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'document-language'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub { |
| |
warn_unknown_language ($_[1]); |
| |
Texi2HTML::Config::set_conf('documentlanguage', $_[1]) |
| |
}, |
| |
verbose => 'use $s as document language', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'ignore-preamble-text'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::IGNORE_PREAMBLE_TEXT, |
| |
verbose => 'if set, ignore the text before @node and sectioning commands', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'html-xref-prefix'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::EXTERNAL_DIR, |
| |
verbose => '$s is the base dir for external manual references', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'l2h'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::L2H, |
| |
verbose => 'if set, uses latex2html for @math and @tex', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'l2h-l2h'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::L2H_L2H, |
| |
verbose => 'program to use for latex2html translation', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'l2h-skip'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::L2H_SKIP, |
| |
verbose => 'if set, tries to reuse previously latex2html output', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'l2h-tmp'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::L2H_TMP, |
| |
verbose => 'if set, uses $s as temporary latex2html directory', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'l2h-file'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::L2H_FILE, |
| |
verbose => 'if set, uses $s as latex2html init file', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
|
| |
$T2H_OPTIONS -> {'l2h-clean'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::L2H_CLEAN, |
| |
verbose => 'if set, do not keep intermediate latex2html files for later reuse', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'D'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {$value_initial{$_[1]} = 1;}, |
| |
verbose => 'equivalent to Texinfo "@set $s 1"', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'U'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {delete $value_initial{$_[1]};}, |
| |
verbose => 'equivalent to Texinfo "@clear $s"', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'init-file'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \&load_init_file, |
| |
verbose => 'load init file $s' |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'css-include'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \@Texi2HTML::Config::CSS_FILES, |
| |
verbose => 'use css file $s' |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'css-ref'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \@Texi2HTML::Config::CSS_REFS, |
| |
verbose => 'generate reference to the CSS URL $s' |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'transliterate-file-names'} = |
| |
{ |
| |
type => '!', |
| |
linkage=> \$Texi2HTML::Config::TRANSLITERATE_FILE_NAMES, |
| |
verbose => 'produce file names in ASCII transliteration', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'error-limit|e'} = |
| |
{ |
| |
type => '=i', |
| |
linkage => \$Texi2HTML::Config::ERROR_LIMIT, |
| |
verbose => 'quit after NUM errors (default 1000).', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'split-size'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::SPLIT_SIZE, |
| |
verbose => 'split Info files at size s (default 300000).', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'paragraph-indent|p'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {set_paragraphindent($_[1], 1);}, |
| |
'verbose' => "indent Info paragraphs by VAL spaces (default 3). |
| |
If VAL is `none', do not indent; if VAL is |
| |
`asis', preserve existing indentation.", |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'fill-column|f'} = |
| |
{ |
| |
type => '=i', |
| |
linkage => sub {Texi2HTML::Config::set_conf('fillcolumn',$_[1]);}, |
| |
'verbose' => "break Info lines at NUM characters (default 72).", |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'enable-encoding'} = |
| |
{ |
| |
type => '', |
| |
linkage => \$Texi2HTML::Config::ENABLE_ENCODING, |
| |
verbose => 'override --disable-encoding (default in Info).', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'disable-encoding'} = |
| |
{ |
| |
type => '', |
| |
linkage => sub {$Texi2HTML::Config::ENABLE_ENCODING = 0}, |
| |
verbose => 'do not output accented and special characters |
| |
in Info output based on @documentencoding.', |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'internal-links'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::INTERNAL_LINKS, |
| |
verbose => 'produce list of internal links in FILE.' |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'force|F'} = |
| |
{ type => '!', |
| |
linkage => \$Texi2HTML::Config::FORCE, |
| |
verbose => 'preserve output even if errors.' |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'monolithic'} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::MONOLITHIC, |
| |
verbose => 'output only one file including ToC, About...', |
| |
noHelp => 1 |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'commands-in-node-names'} = |
| |
{ |
| |
type => '!', |
| |
verbose => 'Always set', |
| |
noHelp => 1 |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'output-indent'} = |
| |
{ |
| |
type => '=i', |
| |
verbose => 'This option used to indent XML, it is ignored' |
| |
}; |
| |
|
| |
$T2H_OPTIONS -> {'program'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {set_config_init_dirs_output($_[1]);}, |
| |
'verbose' => 'Call as $s, setting corresponding defaults' |
| |
}; |
| |
|
| |
#$T2H_OPTIONS -> {'command'} = |
| |
#{ |
| |
# type => '=s', |
| |
# linkage => \@Texi2HTML::Config::COMMANDS, |
| |
# verbose => 'insert CMD in copy of input file' |
| |
#}; |
| |
|
| |
|
| |
foreach my $output_format (keys(%Texi2HTML::Config::output_format_names)) |
| |
{ |
| |
next if (defined($Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT) and $output_format eq $Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT); |
| |
$T2H_OPTIONS -> {$output_format} = |
| |
{ |
| |
type => '', |
| |
linkage => sub {Texi2HTML::Config::t2h_default_load_format($_[0], 1);}, |
| |
verbose => "output $Texi2HTML::Config::output_format_names{$output_format} rather than $Texi2HTML::Config::output_format_names{$Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT}.", |
| |
} |
| |
} |
| |
|
| |
$T2H_OPTIONS -> {$Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT} = |
| |
{ |
| |
type => '', |
| |
linkage => sub {Texi2HTML::Config::t2h_default_load_format($_[0], 1);}, |
| |
verbose => "output default format.", |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
## |
| |
## obsolete cmd line options |
| |
## |
| |
my $T2H_OBSOLETE_OPTIONS; |
| |
|
| |
# actually a noop, since it is not used anywhere |
| |
$T2H_OBSOLETE_OPTIONS -> {'invisible'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::INVISIBLE_MARK, |
| |
verbose => 'use text in invisble anchor', |
| |
noHelp => 2, |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {'expand'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {Texi2HTML::Config::set_expansion($_[1], 1);}, |
| |
verbose => 'Expand <s> section of texinfo source', |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {'no-expand'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {Texi2HTML::Config::set_expansion ($_[1], 0);}, |
| |
verbose => 'Don\'t expand the given section of texinfo source', |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {'noexpand'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => $T2H_OBSOLETE_OPTIONS->{'no-expand'}->{'linkage'}, |
| |
verbose => $T2H_OBSOLETE_OPTIONS->{'no-expand'}->{'verbose'}, |
| |
noHelp => 1, |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {'out-file'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {$Texi2HTML::Config::OUT = $_[1]; $Texi2HTML::Config::SPLIT = '';}, |
| |
verbose => 'if set, all HTML output goes into file $s, obsoleted by "-output" with different semantics', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {'lang'} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {Texi2HTML::Config::set_conf('documentlanguage', $_[1])}, |
| |
verbose => 'obsolete, use "--document-language" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {'separated-footnotes'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {my $style = 'separate'; $style = 'end' if !$_[1]; set_footnote_style ($style, 1);}, |
| |
verbose => 'obsolete, use "--footnote-style" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {'Verbose'} = |
| |
{ |
| |
type => '!', |
| |
linkage=> \$Texi2HTML::Config::VERBOSE, |
| |
verbose => 'obsolete, use "--verbose" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {init_file} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \&load_init_file, |
| |
verbose => 'obsolete, use "-init-file" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {l2h_clean} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::L2H_CLEAN, |
| |
verbose => 'obsolete, use "-l2h-clean" instead', |
| |
noHelp => 2, |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {l2h_l2h} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::L2H_L2H, |
| |
verbose => 'obsolete, use "-l2h-l2h" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {l2h_skip} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::L2H_SKIP, |
| |
verbose => 'obsolete, use "-l2h-skip" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {l2h_tmp} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::L2H_TMP, |
| |
verbose => 'obsolete, use "-l2h-tmp" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {out_file} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {$Texi2HTML::Config::OUT = $_[1]; $Texi2HTML::Config::SPLIT = '';}, |
| |
verbose => 'obsolete, use "-out-file" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {short_ref} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::SHORT_REF, |
| |
verbose => 'obsolete, use "-short-ref" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {idx_sum} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::IDX_SUMMARY, |
| |
verbose => 'obsolete, use "-idx-sum" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {def_table} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::DEF_TABLE, |
| |
verbose => 'obsolete, use "-def-table" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {short_ext} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::SHORTEXTN, |
| |
verbose => 'obsolete, use "-short-ext" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {sec_nav} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {Texi2HTML::Config::set_conf('headers', $_[1]);}, |
| |
verbose => 'obsolete, use "-headers" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {'sec-nav'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {Texi2HTML::Config::set_conf('headers', $_[1]);}, |
| |
verbose => 'obsolete, use "--header" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {top_file} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::TOP_FILE, |
| |
verbose => 'obsolete, use "-top-file" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {toc_file} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::TOC_FILE, |
| |
verbose => 'obsolete, use "-toc-file" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {glossary} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::USE_GLOSSARY, |
| |
verbose => "this does nothing", |
| |
noHelp => 2, |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {check} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {exit 0;}, |
| |
verbose => "exit without doing anything", |
| |
noHelp => 2, |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {dump_texi} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$Texi2HTML::Config::DUMP_TEXI, |
| |
verbose => 'obsolete, use "-dump-texi" instead', |
| |
noHelp => 1 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {frameset_doctype} = |
| |
{ |
| |
type => '=s', |
| |
linkage => \$Texi2HTML::Config::FRAMESET_DOCTYPE, |
| |
verbose => 'obsolete, use "-frameset-doctype" instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {'no-section_navigation'} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {Texi2HTML::Config::set_conf('headers', 0);}, |
| |
verbose => 'obsolete, use -nosec_nav', |
| |
noHelp => 2, |
| |
}; |
| |
my $use_acc; # not used |
| |
$T2H_OBSOLETE_OPTIONS -> {use_acc} = |
| |
{ |
| |
type => '!', |
| |
linkage => \$use_acc, |
| |
verbose => 'obsolete, set to true unconditionnaly', |
| |
noHelp => 2 |
| |
}; |
| |
$T2H_OBSOLETE_OPTIONS -> {expandinfo} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {push @Texi2HTML::Config::EXPAND, 'info';}, |
| |
verbose => 'obsolete, use "--ifinfo" instead', |
| |
noHelp => 2, |
| |
}; |
| |
$T2H_OBSOLETE_OPTIONS -> {expandtex} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {push @Texi2HTML::Config::EXPAND, 'tex';}, |
| |
verbose => 'obsolete, use "--iftex" instead', |
| |
noHelp => 2, |
| |
}; |
| |
$T2H_OBSOLETE_OPTIONS -> {split_node} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub{$Texi2HTML::Config::SPLIT = 'section';}, |
| |
verbose => 'obsolete, use "-split section" instead', |
| |
noHelp => 2, |
| |
}; |
| |
$T2H_OBSOLETE_OPTIONS -> {split_chapter} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub{$Texi2HTML::Config::SPLIT = 'chapter';}, |
| |
verbose => 'obsolete, use "-split chapter" instead', |
| |
noHelp => 2, |
| |
}; |
| |
$T2H_OBSOLETE_OPTIONS -> {no_verbose} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {$Texi2HTML::Config::VERBOSE = 0;}, |
| |
verbose => 'obsolete, use -noverbose instead', |
| |
noHelp => 2, |
| |
}; |
| |
$T2H_OBSOLETE_OPTIONS -> {output_file} = |
| |
{ |
| |
type => '=s', |
| |
linkage => sub {$Texi2HTML::Config::OUT = $_[1]; $Texi2HTML::Config::SPLIT = '';}, |
| |
verbose => 'obsolete, use --out-file instead', |
| |
noHelp => 2 |
| |
}; |
| |
|
| |
$T2H_OBSOLETE_OPTIONS -> {section_navigation} = |
| |
{ |
| |
type => '!', |
| |
linkage => sub {Texi2HTML::Config::set_conf('headers', $_[1]);}, |
| |
verbose => 'obsolete, use --sec-nav instead', |
| |
noHelp => 2, |
| |
}; |
| |
|
| |
# read initialzation from $sysconfdir/texi2htmlrc or $HOME/.texi2htmlrc |
| |
# (this is obsolete). Obsoleted in 1.68 (March 20 2004). |
| |
my @rc_files = (); |
| |
push @rc_files, "$sysconfdir/texi2htmlrc" if defined($sysconfdir); |
| |
push @rc_files, "$ENV{'HOME'}/.texi2htmlrc" if (defined($ENV{'HOME'})); |
| |
foreach my $i (@rc_files) |
| |
{ |
| |
if (-e $i and -r $i) |
| |
{ |
| |
print STDERR "# reading initialization file from $i\n" |
| |
if ($T2H_VERBOSE); |
| |
print STDERR "Reading config from $i is obsolete, use texi2html/$conf_file_name instead\n"; |
| |
Texi2HTML::Config::load($i); |
| |
} |
| |
} |
| |
|
| |
# read initialization files |
| |
foreach my $file (locate_init_file($conf_file_name, 1)) |
| |
{ |
| |
print STDERR "# reading initialization file from $file\n" if ($T2H_VERBOSE); |
| |
Texi2HTML::Config::load($file); |
| |
} |
| |
|
| |
|
| #+++############################################################################ |
#+++############################################################################ |
| # # |
# # |
| # Pass 5: print things # |
# parse command-line options |
| # # |
# # |
| #---############################################################################ |
#---############################################################################ |
| |
|
| $header = <<EOT; |
# options known by makeinfo (+version, help and if*) |
| <!-- Created by $THISPROG from $docu on $TODAY --> |
my @makeinfo_options = ('error-limit', 'document-language', |
| |
'force', 'help', 'no-validate', 'no-warn', 'verbose', 'docbook', 'html', |
| |
'xml', 'plaintext', 'macro-expand', 'headers', 'no-split', |
| |
'number-sections', 'output', 'disable-encoding', 'enable-encoding', |
| |
'fill-column', 'footnote-style', 'paragraph-indent', 'split-size', |
| |
'css-include', 'css-ref', 'internal-links', 'transliterate-file-names', |
| |
'output-indent', 'number-footnotes', 'D', 'I', 'P', 'U'); |
| |
|
| |
# always used, even though they are not in makeinfo in C. |
| |
# dump-texi', 'debug', 'test' are for debugging. |
| |
# split is in makeinfo in C, as --no-split. |
| |
# 'conf-dir', 'init-file' options have to be taken into account for proper |
| |
# functionning. |
| |
my @basic_options = ('dump-texi', 'debug', 'test', 'conf-dir', 'init-file', |
| |
'split', 'program'); |
| |
|
| |
# --command=CMD insert CMD in copy of input file |
| |
my $makeinfo_help = |
| |
sprintf(__("Usage: %s [OPTION]... TEXINFO-FILE...\n"), $real_command_name) |
| |
."\n". |
| |
__("Translate Texinfo source documentation to various other formats, by default |
| |
Info files suitable for reading online with Emacs or standalone GNU Info.\n") |
| |
."\n"; |
| |
$makeinfo_help .= sprintf(__("General options: |
| |
--error-limit=NUM quit after NUM errors (default %d). |
| |
--document-language=STR locale to use in translating Texinfo keywords |
| |
for the output document (default C). |
| |
--force preserve output even if errors. |
| |
--help display this help and exit. |
| |
--no-validate suppress node cross-reference validation. |
| |
--no-warn suppress warnings (but not errors). |
| |
-v, --verbose explain what is being done. |
| |
--version display version information and exit.\n"), $Texi2HTML::Config::ERROR_LIMIT) |
| |
."\n"; |
| |
$makeinfo_help .= __("Output format selection (default is to produce Info): |
| |
--docbook output Docbook XML rather than Info. |
| |
--html output HTML rather than Info. |
| |
--xml output Texinfo XML rather than Info. |
| |
--plaintext output plain text rather than Info.\n") |
| |
."\n"; |
| |
$makeinfo_help .= __("General output options: |
| |
-E, --macro-expand=FILE output macro-expanded source to FILE, |
| |
ignoring any \@setfilename. |
| |
--no-headers suppress node separators, Node: lines, and menus |
| |
from Info output (thus producing plain text) |
| |
or from HTML (thus producing shorter output); |
| |
also, write to standard output by default. |
| |
--no-split suppress the splitting of Info or HTML output, |
| |
generate only one output file. |
| |
--number-sections output chapter and sectioning numbers. |
| |
-o, --output=FILE output to FILE (or directory if split HTML).\n") |
| |
."\n"; |
| |
$makeinfo_help .= sprintf(__("Options for Info and plain text: |
| |
--disable-encoding do not output accented and special characters |
| |
in Info output based on \@documentencoding. |
| |
--enable-encoding override --disable-encoding (default). |
| |
--fill-column=NUM break Info lines at NUM characters (default %d). |
| |
--footnote-style=STYLE output footnotes in Info according to STYLE: |
| |
`separate' to put them in their own node; |
| |
`end' to put them at the end of the node, in |
| |
which they are defined (this is the default). |
| |
--paragraph-indent=VAL indent Info paragraphs by VAL spaces (default %d). |
| |
If VAL is `none', do not indent; if VAL is |
| |
`asis', preserve existing indentation. |
| |
--split-size=NUM split Info files at size NUM (default %d).\n"), |
| |
$Texi2HTML::Config::FILLCOLUMN, $Texi2HTML::Config::PARAGRAPHINDENT, $Texi2HTML::Config::SPLIT_SIZE) |
| |
."\n"; |
| |
$makeinfo_help .= __("Options for HTML: |
| |
--css-include=FILE include FILE in HTML <style> output; |
| |
read stdin if FILE is -. |
| |
--css-ref=URL generate reference to a CSS file. |
| |
--internal-links=FILE produce list of internal links in FILE. |
| |
--transliterate-file-names |
| |
produce file names in ASCII transliteration.\n") |
| |
."\n"; |
| |
# This is ignored, so remove it from help |
| |
#Options for XML and Docbook: |
| |
# --output-indent=VAL indent XML elements by VAL spaces (default 2). |
| |
# If VAL is 0, ignorable whitespace is dropped. |
| |
# |
| |
$makeinfo_help .= __("Input file options: |
| |
--commands-in-node-names allow \@ commands in node names. |
| |
-D VAR define the variable VAR, as with \@set. |
| |
-I DIR append DIR to the \@include search path. |
| |
-P DIR prepend DIR to the \@include search path. |
| |
-U VAR undefine the variable VAR, as with \@clear.\n") |
| |
."\n"; |
| |
$makeinfo_help .= __("Conditional processing in input: |
| |
--ifdocbook process \@ifdocbook and \@docbook even if |
| |
not generating Docbook. |
| |
--ifhtml process \@ifhtml and \@html even if not generating HTML. |
| |
--ifinfo process \@ifinfo even if not generating Info. |
| |
--ifplaintext process \@ifplaintext even if not generating plain text. |
| |
--iftex process \@iftex and \@tex; implies --no-split. |
| |
--ifxml process \@ifxml and \@xml. |
| |
--no-ifdocbook do not process \@ifdocbook and \@docbook text. |
| |
--no-ifhtml do not process \@ifhtml and \@html text. |
| |
--no-ifinfo do not process \@ifinfo text. |
| |
--no-ifplaintext do not process \@ifplaintext text. |
| |
--no-iftex do not process \@iftex and \@tex text. |
| |
--no-ifxml do not process \@ifxml and \@xml text. |
| |
|
| |
Also, for the --no-ifFORMAT options, do process \@ifnotFORMAT text.\n") |
| |
."\n"; |
| |
$makeinfo_help .= __(" The defaults for the \@if... conditionals depend on the output format: |
| |
if generating HTML, --ifhtml is on and the others are off; |
| |
if generating Info, --ifinfo is on and the others are off; |
| |
if generating plain text, --ifplaintext is on and the others are off; |
| |
if generating XML, --ifxml is on and the others are off.\n") |
| |
."\n"; |
| |
$makeinfo_help .= __("Examples: |
| |
makeinfo foo.texi write Info to foo's \@setfilename |
| |
makeinfo --html foo.texi write HTML to \@setfilename |
| |
makeinfo --xml foo.texi write Texinfo XML to \@setfilename |
| |
makeinfo --docbook foo.texi write DocBook XML to \@setfilename |
| |
makeinfo --no-headers foo.texi write plain text to standard output |
| |
|
| |
makeinfo --html --no-headers foo.texi write html without node lines, menus |
| |
makeinfo --number-sections foo.texi write Info with numbered sections |
| |
makeinfo --no-split foo.texi write one Info file however big\n") |
| |
."\n"; |
| |
$makeinfo_help .= __("Email bug reports to bug-texinfo\@gnu.org, |
| |
general questions and discussion to help-texinfo\@gnu.org. |
| |
Texinfo home page: http://www.gnu.org/software/texinfo/") ."\n"; |
| |
|
| |
# parsing like texi2html: |
| |
|
| |
|
| |
my $T2H_USAGE_TEXT = <<EOT; |
| |
Usage: texi2html [OPTIONS] TEXINFO-FILE |
| |
Translates Texinfo source documentation to HTML. |
| EOT |
EOT |
| |
|
| $full_title = $value{'_title'} || $value{'_settitle'} || "Untitled Document"; |
|
| $title = $value{'_settitle'} || $full_title; |
|
| $_ = &substitute_style($full_title); |
|
| &unprotect_texi; |
|
| s/\n$//; # rmv last \n (if any) |
|
| $full_title = "<H1>" . join("</H1>\n<H1>", split(/\n/, $_)) . "</H1>\n"; |
|
| |
|
| |
my $options = new Getopt::MySimple; |
| |
|
| |
$T2H_OPTIONS -> {'help'} = 0; |
| |
$T2H_OPTIONS -> {'help|h'} = |
| |
{ |
| |
type => ':i', |
| |
default => '', |
| |
linkage => sub {$options->helpOptions($_[1]); |
| |
print "\nSend bugs and suggestions to <texi2html-bug\@nongnu.org>\n"; |
| |
exit (0);}, |
| |
verbose => "print help and exit" |
| |
}; |
| |
|
| |
# this avoids getOptions defining twice 'help' and 'version'. |
| |
$T2H_OBSOLETE_OPTIONS->{'help'} = 0; |
| |
$T2H_OBSOLETE_OPTIONS->{'version'} = 0; |
| |
$T2H_OBSOLETE_OPTIONS->{'verbose'} = 0; |
| |
|
| |
|
| |
if ($real_command_name eq 'texi2html') |
| |
{ |
| |
# some older version of GetOpt::Long don't have |
| |
# Getopt::Long::Configure("pass_through") |
| |
eval {Getopt::Long::Configure("pass_through");}; |
| |
my $Configure_failed = $@ && <<EOT; |
| |
**WARNING: Parsing of obsolete command-line options could have failed. |
| |
Consider to use only documented command-line options (run |
| |
'texi2html --help 2' for a complete list) or upgrade to perl |
| |
version 5.005 or higher. |
| |
EOT |
| |
if (! $options->getOptions($T2H_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n")) |
| |
{ |
| |
print STDERR "$Configure_failed" if $Configure_failed; |
| |
die $T2H_FAILURE_TEXT; |
| |
} |
| |
if (@ARGV > 1) |
| |
{ |
| |
eval {Getopt::Long::Configure("no_pass_through");}; |
| |
if (! $options->getOptions($T2H_OBSOLETE_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n")) |
| |
{ |
| |
print STDERR "$Configure_failed" if $Configure_failed; |
| |
die $T2H_FAILURE_TEXT; |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
# changes how command lines are parsed, for example -init file.init |
| |
# doesn't work anymore. |
| |
Getopt::Long::Configure("gnu_getopt"); |
| |
my $opts; |
| |
my @types; |
| |
foreach my $key (keys(%$T2H_OPTIONS)) |
| |
{ |
| |
next unless ($T2H_OPTIONS->{$key}); |
| |
my $primary = $key; |
| |
$primary =~ s/\|.*//; |
| |
next if ($primary eq 'version' or $primary eq 'help'); |
| |
next if ($real_command_name eq 'makeinfo' and ! grep {$primary eq $_} (@makeinfo_options, @basic_options) and $primary !~ /^if/); |
| |
$opts->{$primary} = $T2H_OPTIONS->{$key}->{'linkage'} if defined($T2H_OPTIONS->{$key}->{'linkage'}); |
| |
push @types, "$key$T2H_OPTIONS->{$key}->{'type'}"; |
| |
} |
| |
$opts->{'version'} = sub { |
| |
print "$real_command_name (GNU texinfo) $THISVERSION\n\n"; |
| |
|
| |
printf __("Copyright (C) %s Free Software Foundation, Inc. |
| |
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html> |
| |
This is free software: you are free to change and redistribute it. |
| |
There is NO WARRANTY, to the extent permitted by law.\n"), '2008'; |
| |
exit 0; |
| |
}; |
| |
$opts->{'help'} = sub { |
| |
print "$makeinfo_help"; |
| |
exit 0; |
| |
}; |
| |
push @types, ('version|V', 'help|h'); |
| |
#foreach my $key (sort(keys(%$opts))) |
| |
#{ |
| |
# #print STDERR "$key, $opts->{$key}\n"; |
| |
# print "$key\n"; |
| |
#} |
| |
#print STDERR "@types\n"; |
| |
my $result_options = Getopt::Long::GetOptions ($opts, @types); |
| |
} |
| |
|
| |
if (! $Texi2HTML::THISDOC{'format_from_command_line'} and defined($ENV{'TEXINFO_OUTPUT_FORMAT'}) and $ENV{'TEXINFO_OUTPUT_FORMAT'} ne '') |
| |
{ |
| |
if (! Texi2HTML::Config::t2h_default_load_format($ENV{'TEXINFO_OUTPUT_FORMAT'}, 0)) |
| |
{ |
| |
warn sprintf(__("%s: Ignoring unrecognized TEXINFO_OUTPUT_FORMAT value `%s'.\n"), $real_command_name, $ENV{'TEXINFO_OUTPUT_FORMAT'}); |
| |
} |
| |
} |
| |
|
| |
# $T2H_DEBUG and $T2H_VERBOSE are shorthands |
| |
$T2H_DEBUG = $Texi2HTML::Config::DEBUG; |
| |
$T2H_VERBOSE = $Texi2HTML::Config::VERBOSE; |
| |
|
| # |
# |
| # print ToC |
# read texi2html extensions (if any) |
| # |
# It is obsolete (obsoleted by -init-file). we keep it for backward |
| if (!$monolithic && @toc_lines) { |
# compatibility. |
| if (open(FILE, "> $docu_toc")) { |
my $extensions = 'texi2html.ext'; # extensions in working directory |
| print "# creating $docu_toc...\n" if $verbose; |
if (-f $extensions) |
| &print_toplevel_header("$title - Table of Contents"); |
{ |
| &print_ruler; |
print STDERR "# reading extensions from $extensions\n" if $T2H_VERBOSE; |
| &print(*toc_lines, FILE); |
require($extensions); |
| &print_toplevel_footer; |
} |
| close(FILE); |
my $progdir; |
| } else { |
($progdir = $0) =~ s/[^\/]+$//; |
| warn "$ERROR Can't write to $docu_toc: $!\n"; |
if ($progdir && ($progdir ne './')) |
| |
{ |
| |
$extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory |
| |
if (-f $extensions) |
| |
{ |
| |
print STDERR "# reading extensions from $extensions\n" if $T2H_VERBOSE; |
| |
require($extensions); |
| } |
} |
| } |
} |
| |
|
| |
|
| |
#+++############################################################################ |
| |
# # |
| |
# evaluation of cmd line options |
| |
# # |
| |
#---############################################################################ |
| |
|
| |
# set the default 'args' entry to normal for each style hash (and each command |
| |
# within) |
| |
my $name_index = -1; |
| |
my @hash_names = ('style_map', 'style_map_pre', 'style_map_texi', 'simple_format_style_map_texi'); |
| |
foreach my $hash (\%Texi2HTML::Config::style_map, \%Texi2HTML::Config::style_map_pre, \%Texi2HTML::Config::style_map_texi, \%Texi2HTML::Config::simple_format_style_map_texi) |
| |
{ |
| |
$name_index++; |
| |
my $name = $hash_names[$name_index]; # name associated with hash ref |
| |
foreach my $style (keys(%{$hash})) |
| |
{ |
| |
next unless (ref($hash->{$style}) eq 'HASH'); |
| |
$hash->{$style}->{'args'} = ['normal'] if (!exists($hash->{$style}->{'args'})); |
| |
die "Bug: args not defined, but existing, for $style in $name" if (!defined($hash->{$style}->{'args'})); |
| |
#print STDERR "DEFAULT($name, $hash) add normal as arg for $style ($hash->{$style}), $hash->{$style}->{'args'}\n"; |
| |
} |
| |
} |
| |
|
| |
# setup hashes used for html manual cross references in texinfo |
| |
my %cross_ref_texi_map = %Texi2HTML::Config::default_texi_map; |
| |
my %cross_transliterate_texi_map = %cross_ref_texi_map; |
| |
|
| |
my %cross_ref_simple_map_texi = %Texi2HTML::Config::default_simple_map; |
| |
$cross_ref_simple_map_texi{"*"} = ' '; |
| |
|
| |
my %cross_ref_style_map_texi = (); |
| |
my %cross_transliterate_style_map_texi = (); |
| |
Texi2HTML::Config::t2h_default_copy_style_map(\%Texi2HTML::Config::default_style_map_texi, \%cross_ref_style_map_texi); |
| |
Texi2HTML::Config::t2h_default_copy_style_map(\%Texi2HTML::Config::default_style_map_texi, \%cross_transliterate_style_map_texi); |
| |
|
| |
|
| |
|
| |
# Fill in the %style_type hash, a hash associating style @-comand with |
| |
# the type, 'accent', real 'style', 'simple_style', or 'special'. |
| |
# 'simple_style' styles don't extend accross lines. |
| |
my %style_type = (); |
| |
my @simple_styles = ('ctrl', 'w', 'url','uref','indicateurl','email', |
| |
'titlefont'); |
| |
foreach my $style (keys(%Texi2HTML::Config::style_map)) |
| |
{ |
| |
if (exists $Texi2HTML::Config::command_type{$style}) |
| |
{ |
| |
$style_type{$style} = $Texi2HTML::Config::command_type{$style}; |
| |
next; |
| |
} |
| |
if (ref($Texi2HTML::Config::style_map{$style} eq 'HASH')) |
| |
{ |
| |
$style_type{$style} = $Texi2HTML::Config::style_map{$style}->{'type'} |
| |
if (exists($Texi2HTML::Config::style_map{$style}->{'type'})); |
| |
} |
| |
else |
| |
{ |
| |
$style_type{$style} = 'simple_style' if (grep {$_ eq $style} @simple_styles); |
| |
} |
| |
$style_type{$style} = 'style' unless (defined($style_type{$style})); |
| |
} |
| |
|
| |
foreach my $accent (keys(%Texi2HTML::Config::unicode_accents), 'tieaccent', 'dotless') |
| |
{ |
| |
if (exists $Texi2HTML::Config::command_type{$accent}) |
| |
{ |
| |
$style_type{$accent} = $Texi2HTML::Config::command_type{$accent}; |
| |
next; |
| |
} |
| |
$style_type{$accent} = 'accent'; |
| |
} |
| |
|
| |
|
| |
|
| |
|
| |
foreach my $special ('footnote', 'ref', 'xref', 'pxref', 'inforef', 'anchor', 'image', 'hyphenation') |
| |
{ |
| |
if (exists $Texi2HTML::Config::command_type{$special}) |
| |
{ |
| |
$style_type{$special} = $Texi2HTML::Config::command_type{$special}; |
| |
next; |
| |
} |
| |
$style_type{$special} = 'special'; |
| |
} |
| |
|
| |
# retro compatibility for $Texi2HTML::Config::EXPAND |
| |
push (@Texi2HTML::Config::EXPAND, $Texi2HTML::Config::EXPAND) if ($Texi2HTML::Config::EXPAND); |
| |
|
| |
push (@Texi2HTML::Config::EXPAND, @Texi2HTML::Config::T2H_FORMAT_EXPAND); |
| |
|
| |
# correct %Texi2HTML::Config::texi_formats_map based on command line and init |
| |
# variables |
| |
$Texi2HTML::Config::texi_formats_map{'menu'} = 'normal' if ($Texi2HTML::Config::SHOW_MENU); |
| |
|
| |
foreach my $expanded (@Texi2HTML::Config::EXPAND) |
| |
{ |
| |
$Texi2HTML::Config::texi_formats_map{"if$expanded"} = 1 if (exists($Texi2HTML::Config::texi_formats_map{"if$expanded"})); |
| |
next unless (exists($Texi2HTML::Config::texi_formats_map{$expanded})); |
| |
if (grep {$_ eq $expanded} @raw_regions) |
| |
{ |
| |
$Texi2HTML::Config::texi_formats_map{$expanded} = 'raw'; |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::Config::texi_formats_map{$expanded} = 'normal'; |
| |
} |
| |
} |
| |
|
| |
# don't set set_no_line_macro for raw EXPAND formats |
| |
foreach my $key (keys(%Texi2HTML::Config::texi_formats_map)) |
| |
{ |
| |
unless ($Texi2HTML::Config::texi_formats_map{$key} eq 'raw') |
| |
{ |
| |
set_no_line_macro($key, 1); |
| |
set_no_line_macro("end $key", 1); |
| |
} |
| |
} |
| |
|
| |
# the remaining (not in @EXPAND) raw formats are set as 'raw' such that |
| |
# they are propagated to formatting functions, but |
| |
# they don't start paragraphs or preformatted. |
| |
foreach my $raw (@raw_regions) |
| |
{ |
| |
if (!defined($Texi2HTML::Config::texi_formats_map{$raw})) |
| |
{ |
| |
$Texi2HTML::Config::texi_formats_map{$raw} = 'raw'; |
| |
$Texi2HTML::Config::format_in_paragraph{$raw} = 1; |
| |
set_no_line_macro($raw, 1); |
| |
set_no_line_macro("end $raw", 1); |
| |
} |
| |
} |
| |
|
| |
# handle ifnot regions |
| |
foreach my $region (keys (%Texi2HTML::Config::texi_formats_map)) |
| |
{ |
| |
next if ($region =~ /^ifnot/); |
| |
if ($Texi2HTML::Config::texi_formats_map{$region} and $region =~ /^if(\w+)$/) |
| |
{ |
| |
$Texi2HTML::Config::texi_formats_map{"ifnot$1"} = 0; |
| |
} |
| |
} |
| |
|
| |
if ($T2H_VERBOSE) |
| |
{ |
| |
print STDERR "# Expanded: "; |
| |
foreach my $text_macro (keys(%Texi2HTML::Config::texi_formats_map)) |
| |
{ |
| |
print STDERR "$text_macro " if ($Texi2HTML::Config::texi_formats_map{$text_macro}); |
| |
} |
| |
print STDERR "\n"; |
| |
} |
| |
|
| |
# This is kept in that file although it is html formatting as it seems to |
| |
# be rather obsolete |
| |
$Texi2HTML::Config::INVISIBLE_MARK = '<img src="invisible.xbm" alt="">' if $Texi2HTML::Config::INVISIBLE_MARK eq 'xbm'; |
| |
|
| |
$T2H_DEBUG |= $DEBUG_TEXI if ($Texi2HTML::Config::DUMP_TEXI); |
| |
|
| |
# no user provided USE_UNICODE, use configure provided |
| |
if (!defined($Texi2HTML::Config::USE_UNICODE)) |
| |
{ |
| |
$Texi2HTML::Config::USE_UNICODE = 'unknown'; |
| |
} |
| |
|
| |
# no user provided nor configured, run time test |
| |
if ($Texi2HTML::Config::USE_UNICODE eq 'unknown' or $Texi2HTML::Config::USE_UNICODE eq '@' .'USE_UNICODE@') |
| |
{ |
| |
eval { |
| |
require Encode; |
| |
require Unicode::Normalize; |
| |
Encode->import('encode'); |
| |
}; |
| |
if ($@) |
| |
{ |
| |
$Texi2HTML::Config::USE_UNICODE = 0 |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::Config::USE_UNICODE = 1; |
| |
} |
| |
} |
| |
|
| |
if ($Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
require Encode; |
| |
require Unicode::Normalize; |
| |
Encode->import('encode'); |
| |
|
| |
# use EastAsianWidth if USE_UNICODE is set |
| |
if ($0 =~ /\.pl$/) |
| |
{ # use in-source EastAsianWidth when testing |
| |
unshift @INC, "$T2H_HOME/lib/Unicode-EastAsianWidth/lib"; |
| |
} |
| |
elsif ($ENV{T2H_SOURCE_EASTASIANWIDTH}) |
| |
{ |
| |
unshift @INC, $ENV{T2H_SOURCE_EASTASIANWIDTH}; |
| |
} |
| |
elsif ('no' ne 'yes') |
| |
{ |
| |
unshift @INC, "$pkgdatadir/lib/Unicode-EastAsianWidth/lib"; |
| |
} |
| |
else |
| |
{ |
| |
eval { |
| |
require Unicode::EastAsianWidth; |
| |
}; |
| |
if ($@) |
| |
{ |
| |
unshift @INC, "$pkgdatadir/lib/Unicode-EastAsianWidth/lib"; |
| |
} |
| |
} |
| |
# unicode east asian character width tables. |
| |
require Unicode::EastAsianWidth; |
| |
} |
| |
|
| |
# no user provided USE_UNIDECODE, use configure provided |
| |
if (!defined($Texi2HTML::Config::USE_UNIDECODE)) |
| |
{ |
| |
$Texi2HTML::Config::USE_UNIDECODE = 'unknown'; |
| |
} |
| |
|
| |
# no user provided nor configured, run time test |
| |
if ($Texi2HTML::Config::USE_UNIDECODE eq 'unknown' or $Texi2HTML::Config::USE_UNIDECODE eq '@' .'USE_UNIDECODE@') |
| |
{ |
| |
$Texi2HTML::Config::USE_UNIDECODE = 1; |
| |
eval { |
| |
require Text::Unidecode; |
| |
Text::Unidecode->import('unidecode'); |
| |
}; |
| |
$Texi2HTML::Config::USE_UNIDECODE = 0 if ($@); |
| |
} |
| |
|
| |
if ($Texi2HTML::Config::USE_UNIDECODE) |
| |
{ |
| |
require Text::Unidecode; |
| |
Text::Unidecode->import('unidecode'); |
| |
} |
| |
|
| |
print STDERR "# USE_UNICODE $Texi2HTML::Config::USE_UNICODE, USE_UNIDECODE $Texi2HTML::Config::USE_UNIDECODE \n" |
| |
if ($T2H_VERBOSE); |
| |
|
| |
# Construct hashes used for cross references generation |
| |
# Do it now as the user may have changed $USE_UNICODE |
| |
|
| |
foreach my $key (keys(%Texi2HTML::Config::unicode_map)) |
| |
{ |
| |
if ($Texi2HTML::Config::unicode_map{$key} ne '') |
| |
{ |
| |
if ($Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
my $char_nr = hex($Texi2HTML::Config::unicode_map{$key}); |
| |
#$cross_ref_texi_map{$key} = chr(hex($Texi2HTML::Config::unicode_map{$key})); |
| |
#$cross_ref_texi_map{$key} = pack("U0U*",hex($Texi2HTML::Config::unicode_map{$key})); |
| |
if ($char_nr > 126 and $char_nr < 255) |
| |
{ |
| |
$cross_ref_texi_map{$key} = Encode::decode("iso-8859-1", chr($char_nr)); |
| |
} |
| |
else |
| |
{ |
| |
$cross_ref_texi_map{$key} = chr($char_nr); |
| |
} |
| |
# cross_transliterate_texi_map is only used if |
| |
# USE_UNIDECODE is unset and TRANSLITERATE_FILE_NAMES is set |
| |
if (exists ($Texi2HTML::Config::transliterate_map{$Texi2HTML::Config::unicode_map{$key}})) |
| |
{ |
| |
$cross_transliterate_texi_map{$key} = $Texi2HTML::Config::transliterate_map{$Texi2HTML::Config::unicode_map{$key}}; |
| |
} |
| |
else |
| |
{ |
| |
$cross_transliterate_texi_map{$key} = $cross_ref_texi_map{$key}; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$cross_ref_texi_map{$key} = '_' . lc($Texi2HTML::Config::unicode_map{$key}); |
| |
# cross_transliterate_texi_map is used if TRANSLITERATE_FILE_NAMES is set |
| |
if (exists ($Texi2HTML::Config::transliterate_map{$Texi2HTML::Config::unicode_map{$key}})) |
| |
{ |
| |
$cross_transliterate_texi_map{$key} = $Texi2HTML::Config::transliterate_map{$Texi2HTML::Config::unicode_map{$key}}; |
| |
} |
| |
else |
| |
{ |
| |
$cross_transliterate_texi_map{$key} = '_' . lc($Texi2HTML::Config::unicode_map{$key}); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
#if ($Texi2HTML::Config::USE_UNICODE and $Texi2HTML::Config::TRANSLITERATE_FILE_NAMES |
| |
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES and ( |
| |
($Texi2HTML::Config::USE_UNICODE and ! $Texi2HTML::Config::USE_UNIDECODE) |
| |
or !$Texi2HTML::Config::USE_UNICODE)) |
| |
{ |
| |
foreach my $key (keys (%Texi2HTML::Config::transliterate_accent_map)) |
| |
{ |
| |
$Texi2HTML::Config::transliterate_map{$key} = $Texi2HTML::Config::transliterate_accent_map{$key}; |
| |
} |
| |
} |
| |
|
| |
foreach my $key (keys(%cross_ref_style_map_texi)) |
| |
{ |
| |
if ($style_type{$key} eq 'accent' |
| |
and (ref($cross_ref_style_map_texi{$key}) eq 'HASH')) |
| |
{ |
| |
if ($Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
$cross_ref_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_utf8_accent; |
| |
} |
| |
else |
| |
{ |
| |
$cross_ref_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_nounicode_cross_manual_accent; |
| |
} |
| |
# this is only used if TRANSLITERATE_FILE_NAMES is set and USE_UNICODE |
| |
# or USE_UNIDECODE is not set |
| |
$cross_transliterate_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_transliterate_cross_manual_accent; |
| |
} |
| |
} |
| |
|
| |
if ($Texi2HTML::Config::L2H and defined($Texi2HTML::Config::OUTPUT_FORMAT) and $Texi2HTML::Config::OUTPUT_FORMAT eq 'html') |
| |
{ |
| |
push @Texi2HTML::Config::command_handler_init, \&Texi2HTML::LaTeX2HTML::init; |
| |
push @Texi2HTML::Config::command_handler_process, \&Texi2HTML::LaTeX2HTML::latex2html; |
| |
# do it here once to have something ready for special regions |
| |
push @Texi2HTML::Config::command_handler_process, \&Texi2HTML::LaTeX2HTML::init_from_html; |
| |
# do it here once more in case the file was modified (see mediawiki.init) |
| |
push @Texi2HTML::Config::command_handler_output, \&Texi2HTML::LaTeX2HTML::init_from_html; |
| |
push @Texi2HTML::Config::command_handler_finish, \&Texi2HTML::LaTeX2HTML::finish; |
| |
$Texi2HTML::Config::command_handler{'math'} = |
| |
{ 'init' => \&Texi2HTML::LaTeX2HTML::to_latex, |
| |
'expand' => \&Texi2HTML::LaTeX2HTML::do_tex |
| |
}; |
| |
$Texi2HTML::Config::command_handler{'tex'} = |
| |
{ 'init' => \&Texi2HTML::LaTeX2HTML::to_latex, |
| |
'expand' => \&Texi2HTML::LaTeX2HTML::do_tex |
| |
}; |
| |
} |
| |
|
| |
if ($Texi2HTML::Config::ENABLE_ENCODING) |
| |
{ |
| |
if ($Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
Texi2HTML::Config::t2h_enable_encoding_load(); |
| |
} |
| |
else |
| |
{ # FIXME: only warn if ENABLE_ENCODING is set on the command line |
| |
#warn "** --enable-encoding requires utf-8 support\n"; |
| |
} |
| |
} |
| |
|
| |
# for all files. This won't be overriden by @documentencoding, this is not |
| |
# what is done in general. |
| |
Texi2HTML::Config::set_conf('IN_ENCODING', $Texi2HTML::Config::IN_ENCODING); |
| |
Texi2HTML::Config::set_conf('DOCUMENT_ENCODING', $Texi2HTML::Config::DOCUMENT_ENCODING); |
| |
|
| |
# Backward compatibility for deprecated $Texi2HTML::Config::ENCODING |
| |
$Texi2HTML::Config::ENCODING_NAME = $Texi2HTML::Config::ENCODING |
| |
if (!defined($Texi2HTML::Config::ENCODING_NAME) and defined($Texi2HTML::Config::ENCODING)); |
| |
|
| |
# APA: There's got to be a better way: |
| |
if ($Texi2HTML::Config::TEST) |
| |
{ |
| |
# to generate files similar to reference ones to be able to check for |
| |
# real changes we use these dummy values if -test is given |
| |
$THISPROG = 'texi2html'; |
| |
setlocale( LC_ALL, "C" ); |
| |
} |
| |
|
| |
$Texi2HTML::GLOBAL{'debug_l2h'} = 1 if ($T2H_DEBUG & $DEBUG_L2H); |
| |
|
| |
# parse texinfo cnf file for external manual specifications. This was |
| |
# discussed on texinfo list but not in makeinfo for now. |
| |
my @texinfo_htmlxref_files = locate_init_file ($texinfo_htmlxref, 1, \@texinfo_config_dirs); |
| |
|
| |
foreach my $file (@texinfo_htmlxref_files) |
| |
{ |
| |
print STDERR "html refs config file: $file\n" if ($T2H_DEBUG); |
| |
unless (open (HTMLXREF, $file)) |
| |
{ |
| |
document_warn("Cannot open html refs config file ${file}: $!"); |
| |
next; |
| |
} |
| |
my $line_nr = 0; |
| |
my %variables; |
| |
while (my $hline = <HTMLXREF>) |
| |
{ |
| |
my $line = $hline; |
| |
$line_nr++; |
| |
next if $hline =~ /^\s*#/; |
| |
#$hline =~ s/[#]\s.*//; |
| |
$hline =~ s/^\s*//; |
| |
next if $hline =~ /^\s*$/; |
| |
chomp ($hline); |
| |
if ($hline =~ s/^(\w+)\s*=\s*//) |
| |
{ |
| |
# handle variables |
| |
my $var = $1; |
| |
my $re = join '|', map { quotemeta $_ } keys %variables; |
| |
$hline =~ s/\$\{($re)\}/defined $variables{$1} ? $variables{$1} : "\${$1}"/ge; |
| |
$variables{$var} = $hline; |
| |
next; |
| |
} |
| |
my @htmlxref = split /\s+/, $hline; |
| |
my $manual = shift @htmlxref; |
| |
my $split_or_mono = shift @htmlxref; |
| |
#print STDERR "$split_or_mono $Texi2HTML::Config::htmlxref_entries{$split_or_mono} $line_nr\n"; |
| |
if (!defined($split_or_mono)) |
| |
{ |
| |
file_line_warn(__("Missing type"), $file, $line_nr); |
| |
next; |
| |
} |
| |
elsif (!defined($Texi2HTML::Config::htmlxref_entries{$split_or_mono})) |
| |
{ |
| |
file_line_warn(sprintf(__("Unrecognized type: %s"), $split_or_mono), $file, $line_nr); |
| |
next; |
| |
} |
| |
my $href = shift @htmlxref; |
| |
next if (exists($Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split_or_mono}) and exists($Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split_or_mono}->{'href'})); |
| |
|
| |
if (defined($href)) |
| |
{ |
| |
my $re = join '|', map { quotemeta $_ } keys %variables; |
| |
$href =~ s/\$\{($re)\}/defined $variables{$1} ? $variables{$1} : "\${$1}"/ge; |
| |
$href =~ s/\/*$// if ($split_or_mono ne 'mono'); |
| |
$Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split_or_mono}->{'href'} = $href; |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split_or_mono} = {}; |
| |
} |
| |
} |
| |
close (HTMLXREF); |
| |
} |
| |
|
| |
if ($T2H_DEBUG) |
| |
{ |
| |
foreach my $manual (keys(%{$Texi2HTML::GLOBAL{'htmlxref'}})) |
| |
{ |
| |
foreach my $split (keys(%Texi2HTML::Config::htmlxref_entries)) |
| |
{ |
| |
my $href = 'NO'; |
| |
next unless (exists($Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split})); |
| |
$href = $Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split}->{'href'} if |
| |
exists($Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split}->{'href'}); |
| |
print STDERR "$manual: $split, href: $href\n"; |
| |
} |
| |
} |
| |
} |
| |
|
| |
# resulting files splitting |
| |
if ($Texi2HTML::Config::SPLIT =~ /section/i) |
| |
{ |
| |
$Texi2HTML::Config::SPLIT = 'section'; |
| |
} |
| |
elsif ($Texi2HTML::Config::SPLIT =~ /node/i) |
| |
{ |
| |
$Texi2HTML::Config::SPLIT = 'node'; |
| |
} |
| |
elsif ($Texi2HTML::Config::SPLIT =~ /chapter/i) |
| |
{ |
| |
$Texi2HTML::Config::SPLIT = 'chapter'; |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::Config::SPLIT = ''; |
| |
} |
| |
|
| |
$Texi2HTML::Config::SPLIT_INDEX = 0 unless $Texi2HTML::Config::SPLIT; |
| |
$Texi2HTML::Config::NODE_FILENAMES = 1 if ((!defined($Texi2HTML::Config::NODE_FILENAMES) and $Texi2HTML::Config::SPLIT eq 'node') or $Texi2HTML::Config::NODE_FILES); |
| |
|
| |
# Something like backward compatibility. This would make sense to keep |
| |
# it ad-infinitum since the meaning of --out and --subdir are different. |
| |
if ($Texi2HTML::Config::SPLIT and defined($Texi2HTML::Config::SUBDIR) |
| |
and ($Texi2HTML::Config::SUBDIR ne '') and |
| |
(!defined($Texi2HTML::Config::OUT) or ($Texi2HTML::Config::OUT eq ''))) |
| |
{ |
| |
$Texi2HTML::Config::OUT = $Texi2HTML::Config::SUBDIR; |
| |
} |
| |
|
| |
die "output to STDOUT and split or frames incompatible\n" |
| |
if (($Texi2HTML::Config::SPLIT or $Texi2HTML::Config::FRAMES) and defined($Texi2HTML::Config::OUT) and $Texi2HTML::Config::OUT eq '-'); |
| |
|
| |
if ($Texi2HTML::Config::SPLIT and defined($Texi2HTML::Config::OUT) and ($Texi2HTML::Config::OUT eq '.')) |
| |
{# This is to avoid trouble with latex2html |
| |
$Texi2HTML::Config::OUT = ''; |
| |
} |
| |
|
| |
@Texi2HTML::Config::INCLUDE_DIRS = split(/$quoted_path_separator/,join($path_separator,@Texi2HTML::Config::INCLUDE_DIRS)); |
| |
@Texi2HTML::Config::PREPEND_DIRS = split(/$quoted_path_separator/,join($path_separator,@Texi2HTML::Config::PREPEND_DIRS)); |
| |
|
| |
my @include_dirs_orig = @Texi2HTML::Config::INCLUDE_DIRS; |
| |
|
| |
@Texi2HTML::Config::CONF_DIRS = split(/$quoted_path_separator/,join($path_separator,@Texi2HTML::Config::CONF_DIRS)); |
| |
# extension |
| |
$Texi2HTML::GLOBAL{'extension'} = $Texi2HTML::Config::EXTENSION; |
| |
if ($Texi2HTML::Config::SHORTEXTN) |
| |
{ |
| |
$Texi2HTML::GLOBAL{'extension'} = "htm"; |
| |
} |
| |
|
| |
my $global_pass; # track the phases of processing for debugging output purposes |
| |
|
| # |
# |
| # print footnotes |
# file name business |
| # |
# |
| if (!$monolithic && @foot_lines) { |
|
| if (open(FILE, "> $docu_foot")) { |
my @created_directories = (); |
| print "# creating $docu_foot...\n" if $verbose; |
|
| &print_toplevel_header("$title - Footnotes"); |
my $docu_dir; # directory of the document |
| &print_ruler; |
my $docu_name; # basename of the document |
| &print(*foot_lines, FILE); |
my $docu_rdir; # directory for the output |
| &print_toplevel_footer; |
my $docu_toc; # document's table of contents |
| close(FILE); |
my $docu_stoc; # document's short toc |
| } else { |
my $docu_foot; # document's footnotes |
| warn "$ERROR Can't write to $docu_foot: $!\n"; |
my $docu_about; # about this document |
| |
my $docu_top; # document top |
| |
my $docu_doc; # document (or document top of split) |
| |
my $docu_frame; # main frame file |
| |
my $docu_toc_frame; # toc frame file |
| |
my $path_to_working_dir; # relative path leading to the working |
| |
# directory from the document directory |
| |
my $docu_doc_file; |
| |
my $docu_toc_file; |
| |
my $docu_stoc_file; |
| |
my $docu_foot_file; |
| |
my $docu_about_file; |
| |
my $docu_top_file; |
| |
my $docu_frame_file; |
| |
my $docu_toc_frame_file; |
| |
|
| |
sub set_docu_names($$) |
| |
{ |
| |
my $docu_base_name = shift; |
| |
my $file_nr = shift; |
| |
if ($docu_base_name =~ /(.*\/)/) |
| |
{ |
| |
$docu_dir = $1; |
| |
chop($docu_dir); |
| |
$docu_name = $docu_base_name; |
| |
$docu_name =~ s/.*\///; |
| |
} |
| |
else |
| |
{ |
| |
$docu_dir = '.'; |
| |
$docu_name = $docu_base_name; |
| |
} |
| |
|
| |
@Texi2HTML::Config::INCLUDE_DIRS = @include_dirs_orig; |
| |
my @prependended_include_directories = ('.'); |
| |
push @prependended_include_directories, $Texi2HTML::THISDOC{'input_directory'} if ($Texi2HTML::THISDOC{'input_directory'} ne '.'); |
| |
# as Karl said, adding the destination directory is confusing. |
| |
#push @prependended_include_directories, $docu_dir if ($docu_dir ne '.' and $docu_dir ne $Texi2HTML::THISDOC{'input_directory'}); |
| |
unshift(@Texi2HTML::Config::INCLUDE_DIRS, @prependended_include_directories); |
| |
unshift(@Texi2HTML::Config::INCLUDE_DIRS, @Texi2HTML::Config::PREPEND_DIRS); |
| |
# AAAA |
| |
if ($Texi2HTML::Config::PREFIX and ($file_nr == 0)) |
| |
{ |
| |
$docu_name = $Texi2HTML::Config::PREFIX; |
| |
} |
| |
elsif ($docu_name eq '-') |
| |
{ |
| |
$docu_name = $Texi2HTML::Config::STDIN_DOCU_NAME; |
| |
} |
| |
|
| |
# subdir |
| |
$docu_rdir = ''; |
| |
my $null_output; |
| |
if (defined($Texi2HTML::Config::OUT) and ($file_nr == 0) and $Texi2HTML::Config::null_device_file{$Texi2HTML::Config::OUT}) |
| |
{ # this overrides the setting for this file. |
| |
$Texi2HTML::THISDOC{'SPLIT'} = ''; |
| |
$Texi2HTML::THISDOC{'SPLIT_SIZE'} = undef; |
| |
$null_output = 1; |
| |
$path_to_working_dir = $docu_rdir; |
| |
} |
| |
if (!$null_output) |
| |
{ |
| |
if (Texi2HTML::Config::get_conf('SPLIT')) |
| |
{ |
| |
if (defined($Texi2HTML::Config::OUT) and ($file_nr == 0)) |
| |
{ |
| |
$docu_rdir = $Texi2HTML::Config::OUT; |
| |
} |
| |
else |
| |
{ |
| |
$docu_rdir = $docu_name; |
| |
} |
| |
if ($docu_rdir ne '') |
| |
{ |
| |
$docu_rdir =~ s|/*$||; |
| |
$docu_rdir .= '/'; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
my $out_file; |
| |
# AAAA |
| |
# even if the out file is not set by OUT, in case it is not the first |
| |
# file, the out directory is still used. This is only used to determine |
| |
# the directory, the out file itself is set below |
| |
if (defined($Texi2HTML::Config::OUT) and $Texi2HTML::Config::OUT ne '') |
| |
{ |
| |
$out_file = $Texi2HTML::Config::OUT; |
| |
} |
| |
else |
| |
{ |
| |
$out_file = $docu_name; |
| |
} |
| |
|
| |
if ($out_file =~ m|(.*)/|) |
| |
{# there is a leading directories |
| |
$docu_rdir = "$1/"; |
| |
} |
| |
} |
| |
|
| |
if ($docu_rdir ne '') |
| |
{ |
| |
unless (-d $docu_rdir) |
| |
{ |
| |
if ( mkdir($docu_rdir, oct(755))) |
| |
{ |
| |
print STDERR "# created directory $docu_rdir\n" if ($T2H_VERBOSE); |
| |
push @created_directories, $docu_rdir; |
| |
} |
| |
else |
| |
{ |
| |
document_error (sprintf(__("Can't create directory `%s': %s"), $docu_rdir, $!), 1); |
| |
} |
| |
} |
| |
print STDERR "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE); |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "# putting result files into current directory \n" if ($T2H_VERBOSE); |
| |
} |
| |
# We don't use "./" as $docu_rdir when $docu_rdir is the current directory |
| |
# because it is problematic for latex2html. To test writability with -w, |
| |
# however we need a real directory. |
| |
my $result_rdir = $docu_rdir; |
| |
$result_rdir = "." if ($docu_rdir eq ''); |
| |
unless (-w $result_rdir) |
| |
{ |
| |
$docu_rdir = 'current directory' if ($docu_rdir eq ''); |
| |
document_error ("$docu_rdir not writable", 1); |
| |
} |
| |
|
| |
# relative path leading to the working directory from the document directory |
| |
$path_to_working_dir = $docu_rdir; |
| |
if ($docu_rdir ne '') |
| |
{ |
| |
my $cwd = cwd; |
| |
my $docu_path = $docu_rdir; |
| |
$docu_path = $cwd . '/' . $docu_path unless ($docu_path =~ /^\//); |
| |
my @result = (); |
| |
# this code simplify the paths. The cwd is absolute, while in the |
| |
# document path there may be some .., a .. is removed with the |
| |
# previous path element, such that something like |
| |
# /cwd/directory/../somewhere/ |
| |
# leads to |
| |
# /cwd/somewhere/ |
| |
# with directory/.. removed |
| |
foreach my $element (split /\//, File::Spec->canonpath($docu_path)) |
| |
{ |
| |
if ($element eq '') |
| |
{ |
| |
push @result, ''; |
| |
} |
| |
elsif ($element eq '..') |
| |
{ |
| |
if (@result and ($result[-1] eq '')) |
| |
{ |
| |
print STDERR "Too much .. in absolute file name\n"; |
| |
} |
| |
elsif (@result and ($result[-1] ne '..')) |
| |
{ |
| |
pop @result; |
| |
} |
| |
else |
| |
{ |
| |
push @result, $element; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
push @result, $element; |
| |
} |
| |
} |
| |
$path_to_working_dir = File::Spec->abs2rel($cwd, join ('/', @result)); |
| |
# this should not be needed given what canonpath does |
| |
$path_to_working_dir =~ s:/*$::; |
| |
$path_to_working_dir .= '/' unless($path_to_working_dir eq ''); |
| |
} |
| |
} |
| |
|
| |
my $docu_ext = $Texi2HTML::THISDOC{'extension'}; |
| |
# out_dir is undocummented, should never be used, use destination_directory |
| |
$Texi2HTML::THISDOC{'out_dir'} = $docu_rdir; |
| |
|
| |
$Texi2HTML::THISDOC{'destination_directory'} = $docu_rdir; |
| |
$Texi2HTML::THISDOC{'file_base_name'} = $docu_name; |
| |
|
| |
$docu_doc = $docu_name . (defined($docu_ext) ? ".$docu_ext" : ""); # document's contents |
| |
if (Texi2HTML::Config::get_conf('SPLIT') and $Texi2HTML::Config::NODE_FILENAMES) |
| |
{ |
| |
if (defined($Texi2HTML::Config::TOP_NODE_FILE)) |
| |
{ |
| |
$docu_doc = $Texi2HTML::Config::TOP_NODE_FILE; |
| |
if (defined($Texi2HTML::Config::NODE_FILE_EXTENSION) and $Texi2HTML::Config::NODE_FILE_EXTENSION ne '') |
| |
{ |
| |
$docu_doc .= ".$Texi2HTML::Config::NODE_FILE_EXTENSION"; |
| |
} |
| |
} |
| |
} |
| |
if (Texi2HTML::Config::get_conf('SPLIT')) |
| |
{ |
| |
# AAAA |
| |
if (defined($Texi2HTML::Config::TOP_FILE) and ($Texi2HTML::Config::TOP_FILE ne '') and ($file_nr == 0)) |
| |
{ |
| |
$docu_top = $Texi2HTML::Config::TOP_FILE; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
# AAAA |
| |
if (defined($Texi2HTML::Config::OUT) and ($file_nr == 0)) |
| |
{ |
| |
my $out_file = $Texi2HTML::Config::OUT; |
| |
if ($out_file eq '-') |
| |
{ |
| |
$Texi2HTML::THISDOC{'SPLIT'} = ''; |
| |
$Texi2HTML::THISDOC{'SPLIT_SIZE'} = undef; |
| |
} |
| |
$out_file =~ s|.*/|| unless ($null_output); |
| |
$docu_doc = $out_file if ($out_file !~ /^\s*$/); |
| |
} |
| |
} |
| |
|
| |
if (defined $Texi2HTML::Config::element_file_name) |
| |
{ |
| |
my $docu_doc_set = &$Texi2HTML::Config::element_file_name |
| |
(undef, 'doc', $docu_name); |
| |
$docu_doc = $docu_doc_set if (defined($docu_doc_set)); |
| |
} |
| |
$docu_top = $docu_doc if (!defined($docu_top)); |
| |
|
| |
if (Texi2HTML::Config::get_conf('SPLIT') or !$Texi2HTML::Config::MONOLITHIC) |
| |
{ |
| |
if (defined $Texi2HTML::Config::element_file_name) |
| |
{ |
| |
$docu_toc = &$Texi2HTML::Config::element_file_name |
| |
(undef, 'toc', $docu_name); |
| |
$docu_stoc = &$Texi2HTML::Config::element_file_name |
| |
(undef, 'stoc', $docu_name); |
| |
$docu_foot = &$Texi2HTML::Config::element_file_name |
| |
(undef, 'foot', $docu_name); |
| |
$docu_about = &$Texi2HTML::Config::element_file_name |
| |
(undef, 'about', $docu_name); |
| |
# $docu_top may be overwritten later. |
| |
} |
| |
if (!defined($docu_toc)) |
| |
{ |
| |
my $default_toc = "${docu_name}_toc"; |
| |
$default_toc .= ".$docu_ext" if (defined($docu_ext)); |
| |
# AAAA |
| |
if (defined($Texi2HTML::Config::TOC_FILE) and ($Texi2HTML::Config::TOC_FILE ne '') and ($file_nr == 0)) |
| |
{ |
| |
$docu_toc = $Texi2HTML::Config::TOC_FILE; |
| |
} |
| |
else |
| |
{ |
| |
$docu_toc = $default_toc; |
| |
} |
| |
} |
| |
if (!defined($docu_stoc)) |
| |
{ |
| |
$docu_stoc = "${docu_name}_ovr"; |
| |
$docu_stoc .= ".$docu_ext" if (defined($docu_ext)); |
| |
} |
| |
if (!defined($docu_foot)) |
| |
{ |
| |
$docu_foot = "${docu_name}_fot"; |
| |
$docu_foot .= ".$docu_ext" if (defined($docu_ext)); |
| |
} |
| |
if (!defined($docu_about)) |
| |
{ |
| |
$docu_about = "${docu_name}_abt"; |
| |
$docu_about .= ".$docu_ext" if (defined($docu_ext)); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$docu_toc = $docu_foot = $docu_stoc = $docu_about = $docu_doc; |
| |
} |
| |
|
| |
# Note that file extension has already been added here. |
| |
if ($Texi2HTML::Config::FRAMES) |
| |
{ |
| |
if (defined $Texi2HTML::Config::element_file_name) |
| |
{ |
| |
$docu_frame = &$Texi2HTML::Config::element_file_name |
| |
(undef, 'frame', $docu_name); |
| |
$docu_toc_frame = &$Texi2HTML::Config::element_file_name |
| |
(undef, 'toc_frame', $docu_name); |
| |
} |
| |
} |
| |
|
| |
if (!defined($docu_frame)) |
| |
{ |
| |
$docu_frame = "${docu_name}_frame"; |
| |
$docu_frame .= ".$docu_ext" if (defined($docu_ext)); |
| |
} |
| |
if (!defined($docu_toc_frame)) |
| |
{ |
| |
$docu_toc_frame = "${docu_name}_toc_frame"; |
| |
$docu_toc_frame .= ".$docu_ext" if (defined($docu_ext)); |
| |
} |
| |
|
| |
if ($T2H_VERBOSE) |
| |
{ |
| |
print STDERR "# Files and directories:\n"; |
| |
print STDERR "# rdir($docu_rdir) path_to_working_dir($path_to_working_dir)\n"; |
| |
print STDERR "# doc($docu_doc) top($docu_top) toc($docu_toc) stoc($docu_stoc)\n"; |
| |
print STDERR "# foot($docu_foot) about($docu_about) frame($docu_toc) toc_frame($docu_toc_frame)\n"; |
| |
} |
| |
|
| |
$docu_doc_file = "$docu_rdir$docu_doc"; |
| |
$docu_toc_file = "$docu_rdir$docu_toc"; |
| |
$docu_stoc_file = "$docu_rdir$docu_stoc"; |
| |
$docu_foot_file = "$docu_rdir$docu_foot"; |
| |
$docu_about_file = "$docu_rdir$docu_about"; |
| |
$docu_top_file = "$docu_rdir$docu_top"; |
| |
$docu_frame_file = "$docu_rdir$docu_frame"; |
| |
$docu_toc_frame_file = "$docu_rdir$docu_toc_frame"; |
| |
|
| |
# For use in init files |
| |
$Texi2HTML::THISDOC{'filename'}->{'top'} = $docu_top; |
| |
$Texi2HTML::THISDOC{'filename'}->{'foot'} = $docu_foot; |
| |
$Texi2HTML::THISDOC{'filename'}->{'stoc'} = $docu_stoc; |
| |
$Texi2HTML::THISDOC{'filename'}->{'about'} = $docu_about; |
| |
$Texi2HTML::THISDOC{'filename'}->{'toc'} = $docu_toc; |
| |
$Texi2HTML::THISDOC{'filename'}->{'toc_frame'} = $docu_toc_frame; |
| |
$Texi2HTML::THISDOC{'filename'}->{'frame'} = $docu_frame; |
| |
} |
| |
|
| |
sub var_to_str($) |
| |
{ |
| |
return 'UNDEF' if (!defined($_[0])); |
| |
return $_[0]; |
| |
} |
| |
|
| |
# |
| |
# Common initializations |
| |
# |
| |
|
| |
sub texinfo_initialization($) |
| |
{ |
| |
my $pass = shift; |
| |
|
| |
# set the translations now. This means at the beginning of each pass. |
| |
# Do it silently, except during the last pass. |
| |
my $lang = Texi2HTML::Config::get_conf('documentlanguage'); |
| |
my $silent_lang = 1 if ($pass != 2); |
| |
if (!set_document_language($lang, $silent_lang)) |
| |
{ |
| |
document_warn ("Translations for '$lang' not found. Using 'en'.") unless ($silent_lang); |
| |
set_document_language('en', $silent_lang); |
| } |
} |
| |
# All the initialization used the informations still there at the |
| |
# end of the previous pass. |
| |
# Now we reset everything, such that things are used when they happen. |
| |
# also reset the @set/@clear values. |
| |
%value = %value_initial; |
| |
foreach my $init_mac ('everyheading', 'everyfooting', 'evenheading', |
| |
'evenfooting', 'oddheading', 'oddfooting', 'headings', |
| |
'allowcodebreaks', 'frenchspacing', 'exampleindent', |
| |
'firstparagraphindent', 'paragraphindent', 'clickstyle', |
| |
'novalidate', 'documentlanguage') |
| |
{ |
| |
Texi2HTML::Config::set_conf($init_mac, undef, 1); |
| |
} |
| } |
} |
| |
|
| |
#+++########################################################################### |
| |
# # |
| |
# Pass texi: read source, handle variable, ignored text, # |
| |
# # |
| |
#---########################################################################### |
| |
|
| |
#my @lines = (); # whole document |
| |
#my @lines_numbers = (); # line number, originating file associated with |
| |
# whole document |
| |
my $macros = undef; # macros. reference on a hash |
| |
my %info_enclose = (); # macros defined with definfoenclose |
| |
my @floats = (); # floats list |
| |
my %floats = (); # floats by style |
| |
|
| |
sub initialise_state_texi($) |
| |
{ |
| |
my $state = shift; |
| |
$state->{'texi'} = 1; # for substitute_text and close_stack: |
| |
# 1 if pass_texi/scan_texi is to be used |
| |
$state->{'macro_inside'} = 0 unless(defined($state->{'macro_inside'})); |
| |
$state->{'ifvalue_inside'} = 0 unless(defined($state->{'ifvalue_inside'})); |
| |
$state->{'arg_expansion'} = 0 unless(defined($state->{'arg_expansion'})); |
| |
$state->{'files_stack'} = [] unless(defined($state->{'files_stack'})); |
| |
} |
| |
|
| |
|
| |
sub pass_texi($) |
| |
{ |
| |
my $input_file_name = shift; |
| |
#my $texi_line_number = { 'file_name' => '', 'line_nr' => 0, 'macro' => '' }; |
| |
|
| |
my @lines = (); # whole document |
| |
my @lines_numbers = (); # line number, originating file associated with |
| |
# whole document |
| |
my @first_lines = (); |
| |
my $first_lines = 1; # is it the first lines |
| |
my $state = {}; |
| |
# holds the informations about the context |
| |
# to pass it down to the functions |
| |
my @command_line_lines = @Texi2HTML::Config::COMMANDS; |
| |
initialise_state_texi($state); |
| |
my $texi_line_number; |
| |
($texi_line_number, $state->{'input_spool'}) = |
| |
open_file($input_file_name, '', $state->{'files_stack'}); |
| |
my @stack; |
| |
my $text; |
| |
my $cline; |
| |
INPUT_LINE: while (1) |
| |
{ |
| |
($cline, $state->{'input_spool'}) = next_line($texi_line_number, $state->{'files_stack'}); |
| |
last if (!defined($cline)); |
| |
# |
| |
# remove the lines preceding \input or an @-command |
| |
# |
| |
if ($first_lines) |
| |
{ |
| |
if ($cline =~ /^\\input/) |
| |
{ |
| |
push @first_lines, $cline; |
| |
$first_lines = 0; |
| |
next; |
| |
} |
| |
if ($cline =~ /^\s*\@/) |
| |
{ |
| |
$first_lines = 0; |
| |
} |
| |
else |
| |
{ |
| |
push @first_lines, $cline; |
| |
next; |
| |
} |
| |
} |
| |
#print STDERR "PASS_TEXI($texi_line_number->{'line_nr'})$cline"; |
| |
my $chomped_line = $cline; |
| |
if (scan_texi ($cline, \$text, \@stack, $state, $texi_line_number) and chomp($chomped_line)) |
| |
{ |
| |
#print STDERR "==> new page (line_nr $texi_line_number->{'line_nr'},$texi_line_number->{'file_name'},$texi_line_number->{'macro'})\n"; |
| |
push (@lines_numbers, { 'file_name' => $texi_line_number->{'file_name'}, |
| |
'line_nr' => $texi_line_number->{'line_nr'}, |
| |
'macro' => $texi_line_number->{'macro'} }); |
| |
} |
| |
#dump_stack (\$text, \@stack, $state); |
| |
if ($state->{'bye'}) |
| |
{ |
| |
#dump_stack(\$text, \@stack, $state); |
| |
# close stack after bye |
| |
#print STDERR "close stack after bye\n"; |
| |
close_stack_texi(\$text, \@stack, $state, $texi_line_number); |
| |
#dump_stack(\$text, \@stack, $state); |
| |
} |
| |
next if (@stack); |
| |
$cline = $text; |
| |
$text = ''; |
| |
if (!defined($cline)) |
| |
{ |
| |
msg_debug ("\$cline undefined after scan_texi", $texi_line_number); |
| |
next unless ($state->{'bye'}); |
| |
} |
| |
push @lines, split_lines($cline); |
| |
last if ($state->{'bye'}); |
| |
} |
| |
# close stack at the end of pass texi |
| |
#print STDERR "close stack at the end of pass texi\n"; |
| |
close_stack_texi(\$text, \@stack, $state, $texi_line_number); |
| |
push @lines, split_lines($text); |
| |
print STDERR "# end of pass texi\n" if $T2H_VERBOSE; |
| |
return (\@lines, \@first_lines, \@lines_numbers); |
| |
} |
| |
|
| |
#+++########################################################################### |
| |
# # |
| |
# Pass structure: parse document structure # |
| |
# # |
| |
#---########################################################################### |
| |
|
| |
sub initialise_state_structure($) |
| |
{ |
| |
my $state = shift; |
| |
$state->{'structure'} = 1; # for substitute_text and close_stack: |
| |
# 1 if pass_structure/scan_structure is |
| |
# to be used |
| |
$state->{'menu'} = 0; # number of opened menus |
| |
$state->{'detailmenu'} = 0; # number of opened detailed menus |
| |
$state->{'direntry'} = 0; # number of opened direntry |
| |
$state->{'sectionning_base'} = 0; # current base sectioning level |
| |
$state->{'table_stack'} = [ "no table" ]; # a stack of opened tables/lists |
| |
# seems to be only debug |
| |
if (exists($state->{'region_lines'}) and !defined($state->{'region_lines'})) |
| |
{ |
| |
delete ($state->{'region_lines'}); |
| |
print STDERR "Bug: state->{'region_lines'} exists but undef.\n"; |
| |
} |
| |
} |
| |
# This is a virtual element for things appearing before @node and |
| |
# sectioning commands |
| |
my $element_before_anything; |
| |
|
| # |
# |
| # print document |
# initial counters. Global variables for pass_structure. |
| # |
# |
| if ($split_chapter || $split_node) { # split |
my $document_idx_num; |
| $doc_num = 0; |
my $document_sec_num; |
| $last_num = scalar(@sections); |
my $document_head_num; |
| $first_doc = &doc_name(1); |
my $document_anchor_num; |
| $last_doc = &doc_name($last_num); |
|
| while (@sections) { |
# section to level hash taking into account raise and lower sections. |
| $section = shift(@sections); |
# Reset at document beginning |
| &next_doc; |
my %sec2level; |
| if (open(FILE, "> $docu_doc")) { |
# initial state for the special regions. |
| print "# creating $docu_doc...\n" if $verbose; |
my %region_initial_state; |
| &print_header("$title - $section"); |
my %region_lines; |
| $prev_doc = ($doc_num == 1 ? undef : &doc_name($doc_num - 1)); |
my %region_line_nrs; |
| $next_doc = ($doc_num == $last_num ? undef : &doc_name($doc_num + 1)); |
|
| $navigation = "Go to the "; |
# This is a place for index entries, anchors and so on appearing in |
| $navigation .= ($prev_doc ? &anchor('', $first_doc, "first") : "first"); |
# copying or documentdescription |
| $navigation .= ", "; |
my $no_element_associated_place; |
| $navigation .= ($prev_doc ? &anchor('', $prev_doc, "previous") : "previous"); |
|
| $navigation .= ", "; |
|
| $navigation .= ($next_doc ? &anchor('', $next_doc, "next") : "next"); |
my @nodes_list; # nodes in document reading order |
| $navigation .= ", "; |
# each member is a reference on a hash |
| $navigation .= ($next_doc ? &anchor('', $last_doc, "last") : "last"); |
my @sections_list; # sections in reading order |
| $navigation .= " section, " . &anchor('', $docu_toc, "table of contents") . ".\n"; |
# each member is a reference on a hash |
| print FILE $navigation; |
my @all_elements; # sectioning elements (nodes and sections) |
| &print_ruler; |
# in reading order. Each member is a reference |
| # find corresponding lines |
# on a hash which also appears in %nodes, |
| @tmp_lines = (); |
# @sections_list @nodes_list, @elements_list |
| while (@doc_lines) { |
my @elements_list; # all the resulting elements in document order |
| $_ = shift(@doc_lines); |
my %sections; # sections hash. The key is the section number |
| last if ($_ eq $SPLITTAG); |
my %headings; # headings hash. The key is the heading number |
| push(@tmp_lines, $_); |
my $section_top; # @top section |
| } |
my $element_top; # Top element |
| &print(*tmp_lines, FILE); |
my $node_top; # Top node |
| &print_ruler; |
my $node_first; # First node |
| print FILE $navigation; |
my $element_index; # element with first index |
| &print_footer; |
my $element_chapter_index; # chapter with first index |
| close(FILE); |
my $element_first; # first element |
| } else { |
my $element_last; # last element |
| warn "$ERROR Can't write to $docu_doc: $!\n"; |
my %special_commands; # hash for the commands specially handled |
| } |
# by the user |
| |
|
| |
# element for content and shortcontent if on a separate page |
| |
my %content_element; |
| |
my %reference_content_element = |
| |
( |
| |
'contents' => { 'id' => $Texi2HTML::Config::misc_pages_targets{'Contents'}, |
| |
'target' => $Texi2HTML::Config::misc_pages_targets{'Contents'}, |
| |
'contents' => 1, 'texi' => '_contents' }, |
| |
'shortcontents' => { |
| |
'id' => $Texi2HTML::Config::misc_pages_targets{'Overview'}, |
| |
'target' => $Texi2HTML::Config::misc_pages_targets{'Overview'}, |
| |
'shortcontents' => 1, 'texi' => '_shortcontents' }, |
| |
); |
| |
|
| |
# holds content elements located with @*contents commands |
| |
my %all_content_elements; |
| |
|
| |
# common code for headings and sections |
| |
sub new_section_heading($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $name = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
$name = trim_comment_spaces ($name, "\@$command", $line_nr); |
| |
$name = normalise_texi_space($name); |
| |
$name = '' if (!defined($name)); |
| |
# no increase if in @copying and the like. Also no increase if it is top |
| |
# since top has number 0. |
| |
my $docid; |
| |
my $num; |
| |
|
| |
my $section_ref = { 'texi' => $name, |
| |
'level' => $sec2level{$command}, |
| |
'tag' => $command, |
| |
}; |
| |
return $section_ref; |
| |
} |
| |
|
| |
sub scan_line_separators($$$;$) |
| |
{ |
| |
my $line = shift; |
| |
my $separators = shift; |
| |
my $context = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my @command_stack; |
| |
my $result = ''; |
| |
while (1) |
| |
{ |
| |
# macro_regexp |
| |
if ($line =~ s/^([^{}\@$separators]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])// or $line =~ s/^([^{}\@$separators]*)\@([a-zA-Z][\w-]*)//) |
| |
{ |
| |
$result .= $1; |
| |
my $command = $2; |
| |
$command = $alias{$command} if (exists($alias{$command})); |
| |
if (defined($Texi2HTML::Config::misc_command{$command})) |
| |
{ |
| |
if ($command ne 'c' and $command ne 'comment') |
| |
{ # misc commands other than comments are kept as-is, only |
| |
# comments are removed. |
| |
my ($text, $args); |
| |
($line, $text, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command); |
| |
$result .= "\@$command".$text; |
| |
next; |
| |
} |
| |
else |
| |
{ |
| |
$line =~ s/.*//; |
| |
return ($result, $line, undef); |
| |
} |
| |
} |
| |
$result .= "\@$command"; |
| |
if ($line =~ s/^{//) |
| |
{ |
| |
push @command_stack, $command; |
| |
$result .= '{'; |
| |
} |
| |
if ($command eq 'verb') |
| |
{ |
| |
if ($line =~ s/^(.)//) |
| |
{ |
| |
my $char = $1; |
| |
my $verb_char = quotemeta($char); |
| |
if ($line =~ s/^(.*?${verb_char}\})//) |
| |
{ |
| |
$result .= $char.$1; |
| |
} |
| |
else |
| |
{ |
| |
$line =~ s/^(.*)//; |
| |
$result .= $char . $1; |
| |
return ($result, $line, undef); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
return ($result, $line, undef); |
| |
} |
| |
pop @command_stack; |
| |
} |
| |
} |
| |
elsif ($line =~ s/^([^\{\}$separators]*)([{}])//) |
| |
{ |
| |
$result .= $1 . $2; |
| |
my $brace = $2; |
| |
if (@command_stack and $brace eq '}') |
| |
{ |
| |
pop @command_stack; |
| |
} |
| |
} |
| |
elsif ($separators ne '' and $line =~ s/^([^${separators}]*)([$separators])//) |
| |
{ |
| |
$result .= $1; |
| |
my $separator = $2; |
| |
if (@command_stack) |
| |
{ |
| |
$result .= $separator; |
| |
} |
| |
else |
| |
{ |
| |
return ($result, $line, $separator); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$result .= $line; |
| |
$line = ''; |
| |
return ($result, $line, undef); |
| |
} |
| } |
} |
| } else { # not split |
} |
| if (open(FILE, "> $docu_doc")) { |
|
| print "# creating $docu_doc...\n" if $verbose; |
sub trim_comment_spaces($$;$) |
| if ($monolithic || !@toc_lines) { |
{ |
| &print_toplevel_header($title); |
my $line = shift; |
| } else { |
my $context = shift; |
| &print_header($title); |
my $line_nr = shift; |
| print FILE $full_title; |
|
| } |
if(!defined($line)) |
| if ($monolithic && @toc_lines) { |
{ |
| &print_ruler; |
msg_debug("trim_comment_spaces: $context: line undef", $line_nr); |
| print FILE "<H1>Table of Contents</H1>\n"; |
return undef; |
| &print(*toc_lines, FILE); |
|
| } |
|
| &print_ruler; |
|
| &print(*doc_lines, FILE); |
|
| if ($monolithic && @foot_lines) { |
|
| &print_ruler; |
|
| print FILE "<H1>Footnotes</H1>\n"; |
|
| &print(*foot_lines, FILE); |
|
| } |
|
| if ($monolithic || !@toc_lines) { |
|
| &print_toplevel_footer; |
|
| } else { |
|
| &print_footer; |
|
| } |
|
| close(FILE); |
|
| } else { |
|
| warn "$ERROR Can't write to $docu_doc: $!\n"; |
|
| } |
} |
| |
my ($arg, $remaining, $separator) = scan_line_separators ($line, '', $context, $line_nr); |
| |
#msg_debug ("trim_comment_spaces: $context: arg undef. $line", $line_nr) if (!defined($arg)); |
| |
#msg_debug ("trim_comment_spaces: $context: $arg !!! $line", $line_nr); |
| |
return $arg if (!defined($arg)); |
| |
return trim_around_spaces($arg); |
| } |
} |
| |
|
| print "# that's all folks\n" if $verbose; |
# argument may be the number of arguments when the commas in the last |
| |
# argument has no specific meaning. When it is undef it means that |
| |
# all the arguments have to be parsed |
| |
sub parse_line_arguments($$$;$) |
| |
{ |
| |
my $line = shift; |
| |
my $arg_total_nr = shift; |
| |
my $context = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my @args; |
| |
my $arg_nr = 0; |
| |
my $remaining = $line; |
| |
|
| |
while (!defined($arg_total_nr) or $arg_nr < $arg_total_nr -1) |
| |
{ |
| |
my ($arg, $separator); |
| |
($arg, $remaining, $separator) = scan_line_separators($remaining, ',', $context, $line_nr); |
| |
push @args, trim_around_spaces($arg) if (defined($arg)); |
| |
return @args if (!defined($separator) or !defined($remaining) or !defined($arg)); |
| |
$arg_nr++; |
| |
} |
| |
if (defined($arg_total_nr)) |
| |
{ |
| |
my ($last_arg, $separator); |
| |
($last_arg, $remaining, $separator) = scan_line_separators($remaining, '', $context, $line_nr); |
| |
push @args, trim_around_spaces($last_arg) if (defined($last_arg)); |
| |
} |
| |
return @args; |
| |
} |
| |
|
| |
sub pass_structure($$) |
| |
{ |
| |
my $texi_lines = shift; |
| |
my $lines_numbers = shift; |
| |
|
| |
my @doc_lines; # whole document |
| |
my @doc_numbers; # whole document line numbers and file names |
| |
|
| |
my $state = {}; |
| |
# holds the informations about the context |
| |
# to pass it down to the functions |
| |
initialise_state_structure($state); |
| |
$state->{'heading_element'} = $element_before_anything; |
| |
$state->{'current_element'} = $element_before_anything; |
| |
$state->{'place'} = $element_before_anything->{'place'}; |
| |
my @stack; |
| |
my $text; |
| |
my $line_nr; |
| |
|
| |
while (@$texi_lines or $state->{'in_deff_line'}) |
| |
{ |
| |
my $cline = shift @$texi_lines; |
| |
my $chomped_line = $cline; |
| |
if (@$texi_lines and !chomp($chomped_line)) |
| |
{ |
| |
$texi_lines->[0] = $cline . $texi_lines->[0]; |
| |
next; |
| |
} |
| |
# !defined($cline) may happen if $state->{'in_deff_line'} is true |
| |
# but there is no more line, in case the last end of line is |
| |
# protected |
| |
$line_nr = shift (@$lines_numbers) unless (!defined($cline)); |
| |
|
| |
if ($state->{'in_deff_line'}) |
| |
{ # line stored in $state->{'in_deff_line'} was protected by @ |
| |
# and can be concatenated with the next line |
| |
if (defined($cline)) |
| |
{ |
| |
$cline = $state->{'in_deff_line'} . $cline; |
| |
} |
| |
else |
| |
{# end of line protected at the very end of the file |
| |
# in that case there is also no line_nr anymore. |
| |
$cline = $state->{'in_deff_line'}; |
| |
} |
| |
delete $state->{'in_deff_line'}; |
| |
} |
| |
|
| |
#print STDERR "PASS_STRUCTURE($line_nr->{'line_nr'}. raw:".var_to_str($state->{'raw'}).", verb:".var_to_str($state->{'verb'})."): $cline"; |
| |
if (!$state->{'raw'} and !$state->{'verb'}) |
| |
{ |
| |
my $tag = ''; |
| |
if ($cline =~ /^\s*\@(\w+)\b/) |
| |
{ |
| |
$tag = $1; |
| |
} |
| |
|
| |
# |
| |
# analyze the tag |
| |
# |
| |
if ($tag and $tag eq 'node' or (defined($sec2level{$tag}) and ($tag !~ /heading/)) or ($tag eq 'insertcopying' and $Texi2HTML::Config::INLINE_INSERTCOPYING)) |
| |
{ |
| |
my @added_lines = ($cline); |
| |
my @added_numbers = ($line_nr); |
| |
if ($tag eq 'node' or defined($sec2level{$tag})) |
| |
{# in pass structure node shouldn't appear in formats |
| |
close_stack_structure(\$text, \@stack, $state, $line_nr); |
| |
if (exists($state->{'region_lines'})) |
| |
{ |
| |
push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines($text); |
| |
push @doc_lines, split_lines($text) if ($Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}}); |
| |
$state->{'region_lines'}->{'number'} = 0; |
| |
close_region($state); |
| |
} |
| |
else |
| |
{ |
| |
push @doc_lines, split_lines($text); |
| |
} |
| |
$text = ''; |
| |
} |
| |
if ($tag eq 'node') |
| |
{ |
| |
my $node_ref; |
| |
my $auto_directions; |
| |
my $node_line = $cline; |
| |
$node_line =~ s/^\@node\s*//; |
| |
my @node_res = parse_line_arguments($node_line, undef, '@node', $line_nr); |
| |
@node_res = normalise_node_array (\@node_res); |
| |
# even for empty nodes, @nodes_res has one element. |
| |
#line_error (sprintf(__("Error scanning %s"), $cline), $line_nr) if (@node_res < 1); |
| |
$auto_directions = 1 if (scalar(@node_res) == 1); |
| |
if (@node_res > 4) |
| |
{ |
| |
line_warn(__("Superfluous arguments for node"), $line_nr); |
| |
} |
| |
my ($node, $node_next, $node_prev, $node_up) = @node_res; |
| |
if (defined($node) and ($node ne '')) |
| |
{ |
| |
if (exists($nodes{$node}) and defined($nodes{$node}) |
| |
and $nodes{$node}->{'seen'}) |
| |
{ |
| |
line_error (sprintf(__("Node `%s' previously defined %s"), $node, format_line_number($nodes{$node}->{'line_nr'})), $line_nr); |
| |
next; |
| |
} |
| |
elsif ($node =~ /^\(.+\)/) |
| |
{ |
| |
line_error (sprintf(__("Syntax for an external node used for `%s'"), $node), $line_nr); |
| |
next; |
| |
} |
| |
else |
| |
{ |
| |
if (exists($nodes{$node}) and defined($nodes{$node})) |
| |
{ # node appeared in a menu |
| |
$node_ref = $nodes{$node}; |
| |
} |
| |
else |
| |
{ |
| |
$node_ref = {}; |
| |
$nodes{$node} = $node_ref; |
| |
} |
| |
$node_ref->{'node'} = 1; |
| |
$node_ref->{'tag'} = 'node'; |
| |
$node_ref->{'tag_level'} = 'node'; |
| |
$node_ref->{'texi'} = $node; |
| |
$node_ref->{'seen'} = 1; |
| |
$node_ref->{'automatic_directions'} = $auto_directions; |
| |
$node_ref->{'place'} = []; |
| |
$node_ref->{'current_place'} = []; |
| |
$node_ref->{'line_nr'} = $line_nr; |
| |
merge_element_before_anything($node_ref); |
| |
$node_ref->{'index_names'} = []; |
| |
$state->{'place'} = $node_ref->{'current_place'}; |
| |
$state->{'heading_element'} = $node_ref; |
| |
$state->{'current_element'} = $node_ref; |
| |
$state->{'node_ref'} = $node_ref; |
| |
$state->{'menu_in_node'} = 0; |
| |
# makeinfo treats differently case variants of |
| |
# top in nodes and anchors and in refs commands and |
| |
# refs from nodes. |
| |
if ($node =~ /^top$/i) |
| |
{ |
| |
if (!defined($node_top)) |
| |
{ |
| |
$node_top = $node_ref; |
| |
$node_top->{'texi'} = 'Top'; |
| |
delete $nodes{$node}; |
| |
$nodes{$node_top->{'texi'}} = $node_ref; |
| |
} |
| |
else |
| |
{ # All the refs are going to point to the first Top |
| |
line_warn ("Top node already exists", $line_nr); |
| |
} |
| |
} |
| |
unless (@nodes_list) |
| |
{ |
| |
$node_first = $node_ref; |
| |
} |
| |
push (@nodes_list, $node_ref); |
| |
push @all_elements, $node_ref; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
line_error ("Empty node", $line_nr); |
| |
next; |
| |
} |
| |
|
| |
if (defined($node_next) and ($node_next ne '')) |
| |
{ |
| |
$node_ref->{'node_next'} = $node_next; |
| |
} |
| |
if (defined($node_prev) and ($node_prev ne '')) |
| |
{ |
| |
$node_ref->{'node_prev'} = $node_prev; |
| |
} |
| |
if (defined($node_up) and ($node_up ne '')) |
| |
{ |
| |
$node_ref->{'node_up'} = $node_up; |
| |
} |
| |
} |
| |
elsif (defined($sec2level{$tag})) |
| |
{ # section |
| |
if ($cline =~ /^\@$tag\s*(.*)$/) |
| |
{ |
| |
my $name = $1; |
| |
my $section_ref = new_section_heading($tag, $name, $state, $line_nr); |
| |
$document_sec_num++ if ($tag ne 'top'); |
| |
|
| |
$section_ref->{'sec_num'} = $document_sec_num; |
| |
$section_ref->{'id'} = "SEC$document_sec_num"; |
| |
$section_ref->{'seen'} = 1; |
| |
$section_ref->{'index_names'} = []; |
| |
$section_ref->{'current_place'} = []; |
| |
$section_ref->{'place'} = []; |
| |
$section_ref->{'section'} = 1; |
| |
$section_ref->{'line_nr'} = $line_nr; |
| |
|
| |
if ($tag eq 'top') |
| |
{ |
| |
$section_ref->{'number'} = ''; |
| |
$section_ref->{'id'} = "SEC_Top"; |
| |
$section_ref->{'sec_num'} = 0; |
| |
if (defined($section_top)) |
| |
{ |
| |
line_error ("\@top already exists", $line_nr); |
| |
$sections{0} = $section_ref; |
| |
} |
| |
else |
| |
{ |
| |
$sections{0.1} = $section_ref; |
| |
} |
| |
$section_top = $section_ref; |
| |
} |
| |
else |
| |
{ |
| |
$sections{$section_ref->{'sec_num'}} = $section_ref; |
| |
} |
| |
merge_element_before_anything($section_ref); |
| |
if ($state->{'node_ref'}) |
| |
{ |
| |
$section_ref->{'node_ref'} = $state->{'node_ref'}; |
| |
push @{$state->{'node_ref'}->{'sections'}}, $section_ref; |
| |
} |
| |
if ($state->{'node_ref'} and !exists($state->{'node_ref'}->{'with_section'})) |
| |
{ |
| |
my $node_ref = $state->{'node_ref'}; |
| |
$section_ref->{'with_node'} = $node_ref; |
| |
$section_ref->{'titlefont'} = $node_ref->{'titlefont'}; |
| |
$node_ref->{'with_section'} = $section_ref; |
| |
} |
| |
if (! $name and $section_ref->{'level'}) |
| |
{ |
| |
line_warn (sprintf(__("\@%s requires an argument"), $tag), $line_nr); |
| |
} |
| |
push @sections_list, $section_ref; |
| |
push @all_elements, $section_ref; |
| |
$state->{'heading_element'} = $section_ref; |
| |
$state->{'current_element'} = $section_ref; |
| |
$state->{'place'} = $section_ref->{'current_place'}; |
| |
################# debug |
| |
my $node_ref = "NO NODE"; |
| |
my $node_texi =''; |
| |
if ($state->{'node_ref'}) |
| |
{ |
| |
$node_ref = $state->{'node_ref'}; |
| |
$node_texi = $state->{'node_ref'}->{'texi'}; |
| |
} |
| |
print STDERR "# pass_structure node($node_ref)$node_texi, tag \@$tag($section_ref->{'level'}) ref $section_ref, num,id $section_ref->{'sec_num'},$section_ref->{'id'}\n $name\n" |
| |
if $T2H_DEBUG & $DEBUG_ELEMENTS; |
| |
################# end debug |
| |
} |
| |
} |
| |
elsif ($cline =~ /^\@insertcopying\s*/) |
| |
{ |
| |
@added_lines = @{$region_lines{'copying'}}; |
| |
@added_numbers = @{$region_line_nrs{'copying'}}; |
| |
unshift (@$texi_lines, @added_lines); |
| |
unshift (@$lines_numbers, @added_numbers); |
| |
next; |
| |
} |
| |
if (exists($state->{'region_lines'})) |
| |
{ |
| |
push @{$region_lines{$state->{'region_lines'}->{'format'}}}, @added_lines; |
| |
if ($Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}}) |
| |
{ # the region is kept in the document in addition with |
| |
# being put in the appropriate region_lines entry. |
| |
push @doc_lines, @added_lines; |
| |
push @doc_numbers, @added_numbers; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
push @doc_lines, @added_lines; |
| |
push @doc_numbers, @added_numbers; |
| |
} |
| |
next; |
| |
} |
| |
} |
| |
if (scan_structure ($cline, \$text, \@stack, $state, $line_nr)) |
| |
{ |
| |
if (!exists($state->{'region_lines'}) or $Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}}) |
| |
{ |
| |
push (@doc_numbers, $line_nr); |
| |
} |
| |
if (exists($state->{'region_lines'})) |
| |
{ |
| |
push @{$region_line_nrs{$state->{'region_lines'}->{'format'}}}, $line_nr unless ($state->{'region_lines'}->{'first_line'}); |
| |
} |
| |
} |
| |
next if (scalar(@stack) or $state->{'in_deff_line'}); |
| |
$cline = $text; |
| |
$text = ''; |
| |
next if (!defined($cline)); |
| |
if ($state->{'region_lines'}) |
| |
{ |
| |
# the first line is like @copying, it is not put in the region |
| |
# lines |
| |
push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines($cline) unless ($state->{'region_lines'}->{'first_line'}); |
| |
delete $state->{'region_lines'}->{'first_line'}; |
| |
push @doc_lines, split_lines($cline) if ($Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}}); |
| |
} |
| |
else |
| |
{ |
| |
push @doc_lines, split_lines($cline); |
| |
} |
| |
} |
| |
if (@stack) |
| |
{# close stack at the end of pass structure |
| |
close_stack_structure(\$text, \@stack, $state, $line_nr); |
| |
if ($text) |
| |
{ |
| |
if (!exists($state->{'region_lines'}) or $Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}}) |
| |
{ |
| |
push @doc_lines, split_lines($text); |
| |
} |
| |
if (exists($state->{'region_lines'})) |
| |
{ |
| |
push @{$region_lines{$state->{'region_lines'}->{'format'}}}, |
| |
split_lines($text); |
| |
} |
| |
} |
| |
} |
| |
#line_warn ("Expected $state->{'region_lines'}->{'number'} \@end $state->{'region_lines'}->{'format'}", $line_nr) if (exists($state->{'region_lines'})); |
| |
line_error (sprintf(__("Expected \@end %s"), $state->{'region_lines'}->{'format'}), $line_nr) if (exists($state->{'region_lines'})); |
| |
print STDERR "# end of pass structure\n" if $T2H_VERBOSE; |
| |
# To remove once they are handled |
| |
#print STDERR "No node nor section, texi2html won't be able to place things rightly\n" if ($element_before_anything->{'place'} and @{$element_before_anything->{'place'}}); |
| |
return (\@doc_lines, \@doc_numbers); |
| |
} |
| |
|
| |
# split line at end of line and put each resulting line in an array |
| |
# FIXME there must be a more perlish way to do it... Not a big deal |
| |
# as long as it work |
| |
sub split_lines($) |
| |
{ |
| |
my $line = shift; |
| |
my @result = (); |
| |
return @result if (!defined($line)); |
| |
my $i = 0; |
| |
while ($line ne '') |
| |
{ |
| |
$result[$i] = ''; |
| |
$line =~ s/^(.*)//; |
| |
$result[$i] .= $1; |
| |
$result[$i] .= "\n" if ($line =~ s/^\n//); |
| |
#print STDERR "$i: $result[$i]"; |
| |
$i++; |
| |
} |
| |
return @result; |
| |
} |
| |
|
| |
# handle @documentlanguage |
| |
sub do_documentlanguage($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $silent = shift; |
| |
my $line_nr = shift; |
| |
my $language_change_succes = 0; |
| |
if ($line =~ s/\s+(\w+)\s*//) |
| |
{ |
| |
my $lang = $1; |
| |
my $prev_lang = Texi2HTML::Config::get_conf('documentlanguage'); |
| |
# This won't be done if the documentlanguage was set on the command line |
| |
if (Texi2HTML::Config::set_conf('documentlanguage', $lang, 1)) |
| |
{ |
| |
warn_unknown_language ($lang, $line_nr) unless ($silent); |
| |
$language_change_succes = set_document_language($lang, $silent, $line_nr); |
| |
if (!$language_change_succes) |
| |
{ # reset previous documentlanguage |
| |
Texi2HTML::Config::set_conf('documentlanguage', $prev_lang, 1); |
| |
line_warn (sprintf(__("Translations for `%s' not found. Reverting to `%s'"),$lang, $prev_lang), $line_nr) unless ($silent); |
| |
} |
| |
} |
| |
# FIXME warn about stuff remaining on the line? |
| |
} |
| |
return $language_change_succes; |
| |
} |
| |
|
| |
# actions that should be done in more than one pass. In fact most are not |
| |
# to be done in pass_texi. The $pass argument is the number of the pass, |
| |
# 0 for pass_texi, 1 for pass_structure, 2 for pass_text |
| |
sub common_misc_commands($$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $pass = shift; |
| |
my $line_nr = shift; |
| |
|
| |
# for error messages |
| |
my $cline = $line; |
| |
chomp($cline); |
| |
$cline =~ s/^\s*//; |
| |
|
| |
# track variables |
| |
if ($command eq 'set') |
| |
{ |
| |
if ($line =~ /^(\s+)($VARRE)(\s+)(.*)$/) |
| |
{ |
| |
$value{$2} = $4; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("%c%s requires a name"), ord('@'), $command), $line_nr) if (!$pass); |
| |
} |
| |
} |
| |
elsif ($command eq 'clear') |
| |
{ |
| |
if ($line =~ /^(\s+)($VARRE)/) |
| |
{ |
| |
delete $value{$2}; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("%c%s requires a name"), ord('@'), $command), $line_nr) if (!$pass); |
| |
} |
| |
} |
| |
elsif ($command eq 'clickstyle') |
| |
{ |
| |
if ($line =~ s/^\s+@([^\s\{\}\@]+)({})?\s*//) |
| |
{ |
| |
$Texi2HTML::THISDOC{$command} = $1; |
| |
# FIXME warn about what remains on the line? |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@%s should only accept a \@-command as argument, not `%s'"), $command, $cline), $line_nr) if ($pass == 1); |
| |
} |
| |
} |
| |
elsif ($command eq 'novalidate') |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, 1, 1); |
| |
} |
| |
if ($pass) |
| |
{ # these commands are only taken into account here in pass_structure 1 |
| |
# and pass_text 2 |
| |
if ($command eq 'setfilename') |
| |
{ |
| |
my $filename = trim_comment_spaces($line, "\@$command"); |
| |
$filename = substitute_line($filename, "\@$command",{'code_style' => 1, 'remove_texi' => 1}); |
| |
if ($filename ne '') |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, $filename, 1); |
| |
} |
| |
} |
| |
elsif ($command eq 'paragraphindent') |
| |
{ |
| |
if ($line =~ /\s+([\w\-]+)[^\w\-]/) |
| |
{ |
| |
set_paragraphindent ($1, 0, $line_nr, $pass); |
| |
} |
| |
else |
| |
{ |
| |
set_paragraphindent ($line, 0, $line_nr, $pass); |
| |
} |
| |
} |
| |
elsif ($command eq 'firstparagraphindent') |
| |
{ |
| |
if (($line =~ /^\s+(none)[^\w\-]/) or ($line =~ /^\s+(insert)[^\w\-]/)) |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, $1, 1); |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@firstparagraphindent arg must be `none' or `insert', not `%s'"), $cline), $line_nr) if ($pass == 1); |
| |
} |
| |
} |
| |
elsif ($command eq 'exampleindent') |
| |
{ |
| |
if ($line =~ /^\s+([0-9]+)/) |
| |
{ |
| |
$Texi2HTML::THISDOC{$command} = $1; |
| |
} |
| |
elsif ($line =~ /^\s+(asis)[^\w\-]/) |
| |
{ |
| |
$Texi2HTML::THISDOC{$command} = $1; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@exampleindent arg must be numeric/`asis', not `%s'"), $cline), $line_nr) if ($pass == 1); |
| |
} |
| |
} |
| |
elsif ($command eq 'frenchspacing') |
| |
{ |
| |
if (($line =~ /^\s+(on)[^\w\-]/) or ($line =~ /^\s+(off)[^\w\-]/)) |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, $1, 1); |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Expected \@%s on or off, not `%s'"), $command, $cline), $line_nr) if ($pass == 1); |
| |
} |
| |
} |
| |
elsif ($command eq 'kbdinputstyle') |
| |
{ |
| |
if ($line =~ /\s+([a-z]+)/ and ($1 eq 'code' or $1 eq 'example' or $1 eq 'distinct')) |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, $1, 1); |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@kbdinputstyle arg must be `code'/`example'/`distinct', not `%s'"), $cline), $line_nr) if ($pass == 1); |
| |
} |
| |
} |
| |
elsif (grep {$command eq $_} ('everyheading', 'everyfooting', |
| |
'evenheading', 'evenfooting', 'oddheading', 'oddfooting')) |
| |
{ # FIXME have a _texi and without texi, and without texi, |
| |
# and expand rightly @this*? And use @| to separate, and give |
| |
# an array for user consumption? This should be done for each new |
| |
# chapter, section, and page. What is a page is not necessarily |
| |
# well defined in html, however... |
| |
# @thisfile is the @include file. Should be in $line_nr. |
| |
|
| |
# Also if that command appears in the texi, the error message is |
| |
# Unknown command `@evenheading' |
| |
# It could be better. |
| |
my $arg = $line; |
| |
$arg =~ s/^\s+//; |
| |
$Texi2HTML::THISDOC{$command} = $arg; |
| |
} |
| |
elsif ($command eq 'allowcodebreaks') |
| |
{ |
| |
if (($line =~ /^\s+(true)[^\w\-]/) or ($line =~ /^\s+(false)[^\w\-]/)) |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, $1, 1); |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@allowcodebreaks arg must be `true' or `false', not `%s'"), $cline), $line_nr) if ($pass == 1); |
| |
} |
| |
} |
| |
elsif ($command eq 'headings') |
| |
{ |
| |
my $valid_arg = 0; |
| |
foreach my $possible_arg (('off','on','single','double', |
| |
'singleafter','doubleafter')) |
| |
{ |
| |
if ($line =~ /^\s+($possible_arg)[^\w\-]/) |
| |
{ |
| |
$valid_arg = 1; |
| |
$Texi2HTML::THISDOC{$command} = $possible_arg; |
| |
last; |
| |
} |
| |
} |
| |
unless ($valid_arg) |
| |
{ |
| |
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr) if ($pass == 1); |
| |
} |
| |
} |
| |
elsif ($command eq 'documentlanguage') |
| |
{ |
| |
if (do_documentlanguage($command, $line, $pass -1, $line_nr)) |
| |
{ |
| |
&$Texi2HTML::Config::translate_names(); |
| |
set_special_names(); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
sub misc_command_texi($$$$) |
| |
{ |
| |
my $line = shift; |
| |
my $command = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $text; |
| |
my $args; |
| |
my $cline = $line; |
| |
|
| |
if (!$state->{'ignored'} and !$state->{'arg_expansion'}) |
| |
{ |
| |
if ($command eq 'documentencoding') |
| |
{ # FIXME accept more characters, like @? |
| |
if ($cline =~ s/^(\s+)([\w\-]+)//) |
| |
{ |
| |
my $encoding = $2; |
| |
$Texi2HTML::THISDOC{'documentencoding'} = $encoding; |
| |
line_warn(sprintf(__("Encoding %s is not a canonical texinfo encoding"), $encoding), $line_nr) |
| |
if (!$Texi2HTML::Config::canonical_texinfo_encodings{lc($encoding)}); |
| |
if (Texi2HTML::Config::set_conf('DOCUMENT_ENCODING', $Texi2HTML::THISDOC{'documentencoding'}, 1)) |
| |
{ |
| |
my $from_encoding; |
| |
if (!defined($Texi2HTML::Config::IN_ENCODING)) |
| |
{ |
| |
$from_encoding = encoding_alias($encoding, $line_nr); |
| |
Texi2HTML::Config::set_conf('IN_ENCODING', $from_encoding, 1) |
| |
if (defined($from_encoding)); |
| |
} |
| |
if (defined($from_encoding) and $Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
foreach my $file (@{$state->{'files_stack'}}) |
| |
{ |
| |
binmode($file->{'fh'}, ":encoding($from_encoding)"); |
| |
} |
| |
} |
| |
} |
| |
#FIXME error if garbage remains on the line? |
| |
} |
| |
else |
| |
{ |
| |
line_error(sprintf(__("\@%s arg must be an encoding"), $command), $line_nr); |
| |
} |
| |
} |
| |
elsif ($command eq 'alias') |
| |
{ |
| |
if ($line =~ /(\s+)([a-zA-Z][\w-]*)(\s*=\s*)([a-zA-Z][\w-]*)(\s*)/) |
| |
{ |
| |
$alias{$2} = $4; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Bad argument to \@%s"), $command), $line_nr); |
| |
} |
| |
} |
| |
elsif ($command eq 'definfoenclose') |
| |
{ |
| |
if ($cline =~ s/^\s+([a-z][\w\-]*)\s*,\s*([^\s]+)\s*,\s*([^\s]+)//) |
| |
{ |
| |
$info_enclose{$1} = [ $2, $3 ]; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Bad argument to \@%s"), $command), $line_nr); |
| |
} # FIXME warn about garbage remaining on the line? |
| |
} |
| |
else |
| |
{ |
| |
if ($command eq 'setfilename' and $Texi2HTML::Config::USE_SETFILENAME) |
| |
{ # a double setfillename is removed before calling misc_command_texi |
| |
my $filename = trim_comment_spaces($line, "\@$command"); |
| |
$filename = substitute_line($filename, "\@$command",{'code_style' => 1, 'remove_texi' => 1}, $line_nr); |
| |
if ($filename ne '') |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, $filename, 1); |
| |
# remove extension |
| |
$filename =~ s/\.[^\.]*$//; |
| |
init_with_file_name ($filename) if ($filename ne ''); |
| |
} |
| |
} |
| |
# in reality, do only set, clear and clickstyle. |
| |
# though we should never go there for clickstyle... |
| |
common_misc_commands($command, $line, 0, $line_nr); |
| |
} |
| |
} |
| |
|
| |
($line, $text, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command); |
| |
return ($line, $text); |
| |
} |
| |
|
| |
sub new_content_element($) |
| |
{ |
| |
my $command = shift; |
| |
$command = 'shortcontents' if ($command ne 'contents'); |
| |
my $element; |
| |
foreach my $key (keys(%{$reference_content_element{$command}})) |
| |
{ |
| |
$element->{$key} = $reference_content_element{$command}->{$key}; |
| |
} |
| |
return $element; |
| |
} |
| |
|
| |
# handle misc commands and misc command args |
| |
sub misc_command_structure($$$$) |
| |
{ |
| |
my $line = shift; |
| |
my $command = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $text; |
| |
my $args; |
| |
# for error messages |
| |
my $cline = $line; |
| |
chomp $cline; |
| |
$cline =~ s/^\s*//; |
| |
|
| |
if ($command eq 'lowersections') |
| |
{ |
| |
my ($sec, $level); |
| |
while (($sec, $level) = each %sec2level) |
| |
{ |
| |
$sec2level{$sec} = $level + 1 if ($reference_sec2level{$sec} > 0); |
| |
} |
| |
$state->{'sectionning_base'}--; |
| |
} |
| |
elsif ($command eq 'raisesections') |
| |
{ |
| |
my ($sec, $level); |
| |
while (($sec, $level) = each %sec2level) |
| |
{ |
| |
$sec2level{$sec} = $level - 1 if ($reference_sec2level{$sec} > 0); |
| |
} |
| |
$state->{'sectionning_base'}++; |
| |
} |
| |
elsif (($command eq 'contents') or ($command eq 'summarycontents') or ($command eq 'shortcontents')) |
| |
{ |
| |
if ($command ne 'contents') |
| |
{ |
| |
$command = 'shortcontents'; |
| |
} |
| |
Texi2HTML::Config::set_conf($command, 1, 1); |
| |
my $new_content_element = new_content_element($command); |
| |
push @{$state->{'place'}}, $new_content_element; |
| |
push @{$all_content_elements{$command}}, $new_content_element; |
| |
} |
| |
elsif ($command eq 'dircategory') |
| |
{ |
| |
my $arg = trim_comment_spaces ($line, "\@$command"); |
| |
$Texi2HTML::THISDOC{"${command}_texi"} = $arg; |
| |
$Texi2HTML::THISDOC{$command} = substitute_line($arg, "\@$command"); |
| |
} |
| |
elsif (grep {$_ eq $command} ('settitle','shorttitlepage','title')) |
| |
{ |
| |
my $arg = trim_comment_spaces($line, "\@$command"); |
| |
$Texi2HTML::THISDOC{$command . '_texi'} = $arg; |
| |
$Texi2HTML::THISDOC{$command . '_line_nr'} = $line_nr; |
| |
|
| |
# FIXME backward compatibility. Obsoleted in nov 2009. |
| |
$value{"_$command"} = $arg; |
| |
if ($command eq 'title') |
| |
{ # FIXME This was obsoleted in jun 2007 |
| |
$Texi2HTML::THISDOC{"${command}s_texi"} = [ $arg ]; |
| |
} |
| |
} |
| |
elsif (grep {$_ eq $command} ('author','subtitle')) |
| |
{ |
| |
my $arg = trim_comment_spaces($line, "\@$command"); |
| |
$Texi2HTML::THISDOC{$command . '_texi'} .= $arg . "\n"; |
| |
if ($state->{'region'} and $state->{'region'} eq 'titlepage') |
| |
{ |
| |
push @{$Texi2HTML::THISDOC{"${command}s_texi"}}, $arg; |
| |
push @{$Texi2HTML::THISDOC{"${command}s_line_nr"}}, $line_nr; |
| |
} |
| |
#chomp($arg); |
| |
|
| |
# FIXME backward compatibility. Obsoleted in nov 2009. |
| |
$value{"_$command"} .= $arg . "\n"; |
| |
} |
| |
elsif ($command eq 'synindex' || $command eq 'syncodeindex') |
| |
{ |
| |
if ($line =~ /^\s+(\w+)\s+(\w+)/) |
| |
{ |
| |
my $index_from = $1; |
| |
my $index_to = $2; |
| |
line_error (sprintf(__("Unknown from index `%s' in \@%s"), $index_from, $command), $line_nr) |
| |
unless $index_names{$index_from}; |
| |
line_error (sprintf(__("Unknown to index name `%s' in \@%s"), $index_to, $command), $line_nr) |
| |
unless $index_names{$index_to}; |
| |
if ($index_names{$index_from} and $index_names{$index_to}) |
| |
{ |
| |
my $in_code = 0; |
| |
$in_code = 1 if ($command eq 'syncodeindex'); |
| |
my $current_to = $index_to; |
| |
while ($current_to ne $index_from and $Texi2HTML::THISDOC{'merged_index'}->{$current_to}) |
| |
{ |
| |
$current_to = $Texi2HTML::THISDOC{'merged_index'}->{$current_to}; |
| |
} |
| |
if ($current_to ne $index_from) |
| |
{ |
| |
foreach my $prefix (keys(%{$index_names{$index_from}->{'prefixes'}})) |
| |
{ |
| |
$index_names{$current_to}->{'prefixes'}->{$prefix} = $in_code; |
| |
$index_prefix_to_name{$prefix} = $current_to; |
| |
} |
| |
$Texi2HTML::THISDOC{'merged_index'}->{$index_from} = $current_to; |
| |
} |
| |
push @{$Texi2HTML::THISDOC{$command}}, [$index_from,$index_to]; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr); |
| |
} |
| |
} |
| |
elsif ($command eq 'defindex' || $command eq 'defcodeindex') |
| |
{ |
| |
if ($line =~ /^\s+(\w+)\s*$/) |
| |
{ |
| |
my $name = $1; |
| |
if ($forbidden_index_name{$name}) |
| |
{ |
| |
line_error(sprintf(__("Reserved index name %s"),$name), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
my $in_code = 0; |
| |
$in_code = 1 if ($command eq 'defcodeindex'); |
| |
# FIXME this leads to spurious error message in hello_nodes |
| |
#if (defined($index_names{$name})) |
| |
#{ |
| |
# line_error(sprintf(__("Index `%s' already exists"),$name), $line_nr); |
| |
#} |
| |
$index_names{$name}->{'prefixes'}->{$name} = $in_code; |
| |
$index_prefix_to_name{$name} = $name; |
| |
push @{$Texi2HTML::THISDOC{$command}}, $name; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr); |
| |
} |
| |
} |
| |
elsif (grep {$_ eq $command} ('everyheadingmarks','everyfootingmarks', |
| |
'evenheadingmarks','oddheadingmarks','evenfootingmarks','oddfootingmarks')) |
| |
{ |
| |
if (($line =~ /^\s+(top)[^\w\-]/) or ($line =~ /^\s+(bottom)[^\w\-]/)) |
| |
{ |
| |
$Texi2HTML::THISDOC{$command} = $1; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@%s arg must be `top' or `bottom', not `%s'"), $command, $cline), $line_nr); |
| |
} |
| |
} |
| |
elsif ($command eq 'fonttextsize') |
| |
{ |
| |
if (($line =~ /^\s+(10)[^\w\-]/) or ($line =~ /^\s+(11)[^\w\-]/)) |
| |
{ |
| |
$Texi2HTML::THISDOC{$command} = $1; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Only \@%s 10 or 11 is supported, not `%s'"),$command, $cline), $line_nr); |
| |
} |
| |
} |
| |
elsif ($command eq 'pagesizes') |
| |
{ |
| |
if ($line =~ /^\s+(.*)\s*$/) |
| |
{ |
| |
$Texi2HTML::THISDOC{$command} = $1; |
| |
} |
| |
} |
| |
elsif ($command eq 'footnotestyle') |
| |
{ |
| |
if ($line =~ /^\s+([a-z]+)[^\w\-]/) |
| |
{ |
| |
set_footnote_style ($1, 0, $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
set_footnote_style ($line, 0, $line_nr); |
| |
} |
| |
} |
| |
elsif ($command eq 'setchapternewpage') |
| |
{ |
| |
if (($line =~ /^\s+(on)[^\w\-]/) or ($line =~ /^\s+(off)[^\w\-]/) |
| |
or ($line =~ /^\s+(odd)[^\w\-]/)) |
| |
{ |
| |
$Texi2HTML::THISDOC{$command} = $1; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@%s arg must be `on', `off' or `odd', not `%s'"), $command, $cline), $line_nr); |
| |
} |
| |
} |
| |
elsif ($command eq 'setcontentsaftertitlepage' or $command eq 'setshortcontentsaftertitlepage') |
| |
{ |
| |
Texi2HTML::Config::set_conf($command, 1, 1); |
| |
} |
| |
elsif ($command eq 'need') |
| |
{ # only a warning |
| |
unless (($line =~ /^\s+([0-9]+(\.[0-9]*)?)[^\w\-]/) or |
| |
($line =~ /^\s+(\.[0-9]+)[^\w\-]/)) |
| |
{ |
| |
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
common_misc_commands($command, $line, 1, $line_nr); |
| |
} |
| |
|
| |
($text, $line, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command); |
| |
return ($text, $line); |
| |
} |
| |
|
| |
sub set_special_names() |
| |
{ |
| |
$Texi2HTML::NAME{'About'} = gdt('About This Document'); |
| |
$Texi2HTML::NAME{'Contents'} = gdt('Table of Contents'); |
| |
$Texi2HTML::NAME{'Overview'} = gdt('Short Table of Contents'); |
| |
$Texi2HTML::NAME{'Footnotes'} = gdt('Footnotes'); |
| |
$Texi2HTML::NO_TEXI{'About'} = gdt('About This Document', {}, {'remove_texi' => 1} ); |
| |
$Texi2HTML::NO_TEXI{'Contents'} = gdt('Table of Contents', {}, {'remove_texi' => 1} ); |
| |
$Texi2HTML::NO_TEXI{'Overview'} = gdt('Short Table of Contents', {}, {'remove_texi' => 1} ); |
| |
$Texi2HTML::NO_TEXI{'Footnotes'} = gdt('Footnotes', {}, {'remove_texi' => 1} ); |
| |
$Texi2HTML::SIMPLE_TEXT{'About'} = gdt('About This Document', {}, {'simple_format' => 1}); |
| |
$Texi2HTML::SIMPLE_TEXT{'Contents'} = gdt('Table of Contents',{}, {'simple_format' => 1}); |
| |
$Texi2HTML::SIMPLE_TEXT{'Overview'} = gdt('Short Table of Contents', {}, {'simple_format' => 1}); |
| |
$Texi2HTML::SIMPLE_TEXT{'Footnotes'} = gdt('Footnotes', {},{'simple_format' => 1}); |
| |
} |
| |
|
| |
sub enter_author_command($$$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $texi = shift; |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
$texi = trim_comment_spaces($texi, "\@$command"); |
| |
if ($command eq 'author') |
| |
{ |
| |
my $top_format = top_stack($stack, 2); |
| |
if (defined($top_format) and $format_type{$top_format->{'format'}} eq 'quotation') |
| |
{ |
| |
push @{$top_format->{'quote_authors'}}, {'author_texi' => $texi, 'author_text' => $text}; |
| |
} |
| |
elsif (!$state->{'region'} or $state->{'region'} ne 'titlepage') |
| |
{ |
| |
line_warn (sprintf(__("\@%s not meaningful outside `\@titlepage' and `\@quotation' environments"), $command), $line_nr); |
| |
} |
| |
} |
| |
} |
| |
|
| |
# return the line after removing things according to misc_command map. |
| |
# if the skipped command has an effect it is done here |
| |
# this is used during pass_text |
| |
sub misc_command_text($$$$$$) |
| |
{ |
| |
my $line = shift; |
| |
my $command = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $text = shift; |
| |
my $line_nr = shift; |
| |
my ($skipped, $remaining, $args, $result); |
| |
|
| |
# The strange condition associated with 'keep_texi' is |
| |
# there because for an argument appearing on an @itemize |
| |
# line (we're in 'check_item'), meant to be prepended to an |
| |
# @item we don't want to keep @c or @comment as otherwise it |
| |
# eats the @item line. Other commands could do that too but |
| |
# then the user deserves what he gets. |
| |
if ($state->{'keep_texi'} and |
| |
(!$state->{'check_item'} or ($command ne 'c' and $command ne 'comment'))) |
| |
{ |
| |
($remaining, $skipped, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command); |
| |
add_prev($text, $stack, "\@$command". $skipped); |
| |
return $remaining; |
| |
} |
| |
|
| |
($remaining, $skipped, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command); |
| |
|
| |
if ($state->{'remove_texi'}) |
| |
{ |
| |
($command, $line, $result) = &$Texi2HTML::Config::misc_command_line_texi($command, $line, $args, $stack, $state); |
| |
} |
| |
else |
| |
{ |
| |
($command, $line, $result) = &$Texi2HTML::Config::misc_command_line($command, $line, $args, $stack, $state); |
| |
} |
| |
|
| |
enter_author_command ($command, $line, $result, $stack, $state, $line_nr); |
| |
|
| |
# for error messages |
| |
my $cline = $line; |
| |
$cline =~ s/^\s*//; |
| |
chomp $cline; |
| |
|
| |
# if it is true the command args are kept so the user can modify how |
| |
# they are skipped and handle them as unknown @-commands. Nowadays, it is |
| |
# not that interesting since using misc_command_line above should do |
| |
# about the same more simply. |
| |
my $keep = $Texi2HTML::Config::misc_command{$command}->{'keep'}; |
| |
|
| |
if ($command eq 'sp') |
| |
{ |
| |
my $sp_number; |
| |
if ($line =~ /^\s+(\d+)\s/) |
| |
{ |
| |
$sp_number = $1; |
| |
} |
| |
elsif ($line =~ /(\s*)$/) |
| |
{ |
| |
$sp_number = ''; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@sp requires a positive numeric argument, not `%s'"), $cline), $line_nr); |
| |
} |
| |
$sp_number = 1 if ($sp_number eq ''); |
| |
if (!$state->{'remove_texi'}) |
| |
{ |
| |
add_prev($text, $stack, &$Texi2HTML::Config::sp($sp_number, $state->{'preformatted'})); |
| |
} |
| |
} |
| |
elsif($command eq 'verbatiminclude' and !$keep) |
| |
{ |
| |
if ($line =~ /\s+(.+)/) |
| |
{ |
| |
my $arg = $1; |
| |
$arg = trim_around_spaces($arg); |
| |
my $file_name = substitute_line($arg, "\@$command", {'code_style' => 1}); |
| |
my $file = locate_include_file($file_name); |
| |
if (defined($file)) |
| |
{ |
| |
if (!open(VERBINCLUDE, $file)) |
| |
{ |
| |
line_error (sprintf(__("Cannot read %s: %s"), $file, $!), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
my $verb_text = ''; |
| |
while (my $verb_line = <VERBINCLUDE>) |
| |
{ |
| |
$verb_text .= $verb_line; |
| |
} |
| |
|
| |
if ($state->{'remove_texi'}) |
| |
{ |
| |
add_prev ($text, $stack, &$Texi2HTML::Config::raw_no_texi('verbatiminclude', $verb_text)); |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, &$Texi2HTML::Config::raw('verbatiminclude', $verb_text, $line_nr)); |
| |
} |
| |
close VERBINCLUDE; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@%s: Cannot find %s"), $command, $file_name), $line_nr); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr); |
| |
} |
| |
} |
| |
elsif ($command eq 'indent' or $command eq 'noindent') |
| |
{ |
| |
$state->{'paragraph_indent'} = $command; |
| |
} |
| |
else |
| |
{ |
| |
common_misc_commands($command, $line, 2, $line_nr); |
| |
} |
| |
|
| |
return ($skipped.$remaining, $result) if ($keep); |
| |
return ($remaining, $result); |
| |
} |
| |
|
| |
# merge the things appearing before the first @node or sectioning command |
| |
# (held by element_before_anything) with the current element |
| |
# do that only once. |
| |
sub merge_element_before_anything($) |
| |
{ |
| |
my $element = shift; |
| |
if (exists($element_before_anything->{'place'})) |
| |
{ |
| |
$element->{'current_place'} = $element_before_anything->{'place'}; |
| |
delete $element_before_anything->{'place'}; |
| |
foreach my $placed_thing (@{$element->{'current_place'}}) |
| |
{ |
| |
$placed_thing->{'element'} = $element if (exists($placed_thing->{'element'})); |
| |
} |
| |
} |
| |
# this is certainly redundant with the above condition, but cleaner |
| |
# that way |
| |
if (exists($element_before_anything->{'titlefont'})) |
| |
{ |
| |
$element->{'titlefont'} = $element_before_anything->{'titlefont'}; |
| |
delete $element_before_anything->{'titlefont'}; |
| |
} |
| |
} |
| |
|
| |
# find menu_prev, menu_up... for a node in menu |
| |
sub menu_entry_texi($$$) |
| |
{ |
| |
my $node = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
return if ($state->{'direntry'}); |
| |
my $node_menu_ref = {}; |
| |
if (exists($nodes{$node})) |
| |
{ |
| |
$node_menu_ref = $nodes{$node}; |
| |
} |
| |
else |
| |
{ |
| |
$nodes{$node} = $node_menu_ref; |
| |
$node_menu_ref->{'texi'} = $node; |
| |
$node_menu_ref->{'external_node'} = 1 if ($node =~ /^\(.+\)/); |
| |
} |
| |
return if ($state->{'detailmenu'}); |
| |
if ($state->{'node_ref'}) |
| |
{ |
| |
if ($node_menu_ref->{'menu_up'} and !$node_menu_ref->{'external_node'}) |
| |
{ |
| |
# This is not an error. This is used a lot in real life manuals |
| |
#line_warn ("Double entry in menu for `$node' (also below `$node_menu_ref->{'menu_up'}->{'texi'}')", $line_nr); |
| |
} |
| |
$node_menu_ref->{'menu_up'} = $state->{'node_ref'}; |
| |
$node_menu_ref->{'menu_up_hash'}->{$state->{'node_ref'}->{'texi'}} = 1; |
| |
} |
| |
if ($state->{'prev_menu_node'}) |
| |
{ |
| |
$node_menu_ref->{'menu_prev'} = $state->{'prev_menu_node'}; |
| |
$state->{'prev_menu_node'}->{'menu_next'} = $node_menu_ref; |
| |
} |
| |
elsif ($state->{'node_ref'} and !$state->{'node_ref'}->{'menu_child'}) |
| |
{ |
| |
$state->{'node_ref'}->{'menu_child'} = $node_menu_ref; |
| |
} |
| |
$state->{'prev_menu_node'} = $node_menu_ref; |
| |
} |
| |
|
| |
my @index_labels; # array corresponding with @?index commands |
| |
# constructed during pass_structure, used to |
| |
# put labels in pass_text |
| |
my @unknown_index_index_entries; # array of index entries not associated |
| |
# with any index |
| |
|
| |
sub sorted_line($) |
| |
{ |
| |
my $line = shift; |
| |
$::texi_map_ref = \%Texi2HTML::Config::sorting_things_map; |
| |
my $result = remove_texi($line); |
| |
$::texi_map_ref = \%Texi2HTML::Config::texi_map; |
| |
return $result; |
| |
} |
| |
|
| |
sub prepare_indices() |
| |
{ |
| |
#print STDERR "Do splitting of index letters, once.\n"; |
| |
|
| |
foreach my $index_name(keys %{$Texi2HTML::THISDOC{'index_entries_array'}}) |
| |
{ |
| |
#print STDERR "$Texi2HTML::THISDOC{'index_entries_array'}->{$index_name}) letters\n"; |
| |
my %letters_hash; |
| |
foreach my $index_entry (@{$Texi2HTML::THISDOC{'index_entries_array'}->{$index_name}}) |
| |
{ |
| |
my $key = sorted_line($index_entry->{'texi'}); |
| |
$index_entry->{'key'} = $key; |
| |
my $letter = uc(substr($key, 0, 1)); |
| |
push @{$letters_hash{$letter}}, $index_entry; |
| |
} |
| |
|
| |
# use cmp if only letters or only symbols, otherwise symbols before |
| |
# letters |
| |
foreach my $letter (sort { |
| |
((($a =~ /^[[:alpha:]]/ and $b =~ /^[[:alpha:]]/) or |
| |
($a !~ /^[[:alpha:]]/ and $b !~ /^[[:alpha:]]/)) && $a cmp $b) |
| |
|| ($a =~ /^[[:alpha:]]/ && 1) || -1 } (keys %letters_hash)) |
| |
{ |
| |
# FIXME sort without uc? |
| |
# This sorts the entries for a given letter |
| |
my @sorted_letter_entries = (sort {uc($a->{'key'}) cmp uc($b->{'key'})} (@{$letters_hash{$letter}})); |
| |
|
| |
push @{$Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}}, { 'letter' => $letter, 'entries' => \@sorted_letter_entries }; |
| |
} |
| |
} |
| |
|
| |
# generate the keys for index sorting also for the entries not |
| |
# associated with an index. |
| |
foreach my $index_entry_without_index (@unknown_index_index_entries) |
| |
{ |
| |
my $key = sorted_line($index_entry_without_index->{'texi'}); |
| |
$index_entry_without_index->{'key'} = $key; |
| |
} |
| |
Texi2HTML::Config::t2h_default_init_split_indices(); |
| |
} |
| |
|
| |
# This function is used to construct link names from node names as |
| |
# specified for texinfo |
| |
sub cross_manual_links() |
| |
{ |
| |
my @all_index_entries; |
| |
foreach my $index_name (sort(keys(%{$Texi2HTML::THISDOC{'index_entries_array'}}))) |
| |
{ |
| |
push @all_index_entries, @{$Texi2HTML::THISDOC{'index_entries_array'}->{$index_name}}; |
| |
} |
| |
print STDERR "# Doing ".scalar(keys(%nodes))." cross manual links ". |
| |
scalar(@all_index_entries). " index entries\n" |
| |
if ($T2H_DEBUG); |
| |
$::simple_map_texi_ref = \%cross_ref_simple_map_texi; |
| |
$::style_map_texi_ref = \%cross_ref_style_map_texi; |
| |
$::texi_map_ref = \%cross_ref_texi_map; |
| |
my $normal_text_kept = $Texi2HTML::Config::normal_text; |
| |
$Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text; |
| |
my $style_kept = $Texi2HTML::Config::style; |
| |
$Texi2HTML::Config::style = \&Texi2HTML::Config::T2H_GPL_style; |
| |
|
| |
foreach my $key (keys(%nodes)) |
| |
{ |
| |
my $node = $nodes{$key}; |
| |
#print STDERR "CROSS_MANUAL:$key,$node\n"; |
| |
if (!defined($node->{'texi'})) |
| |
{ |
| |
###################### debug section |
| |
foreach my $key (keys(%$node)) |
| |
{ |
| |
#print STDERR "$key:$node->{$key}!!!\n"; |
| |
} |
| |
###################### end debug section |
| |
} |
| |
else |
| |
{ |
| |
$node->{'cross_manual_target'} = remove_texi($node->{'texi'}); |
| |
if ($node->{'cross_manual_target'} !~ /\S/) |
| |
{ |
| |
line_error (sprintf(__("Empty node name after expansion `%s'"), $node->{'texi'}), $node->{'line_nr'}); |
| |
$node->{'cross_manual_target'} = 't_0'; |
| |
$node->{'cross_manual_file'} = 't_0'; |
| |
} |
| |
elsif ($Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
$node->{'cross_manual_target'} = Unicode::Normalize::NFC($node->{'cross_manual_target'}); |
| |
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES and $Texi2HTML::Config::USE_UNIDECODE) |
| |
{ |
| |
$node->{'cross_manual_file'} = |
| |
unicode_to_protected(unicode_to_transliterate($node->{'cross_manual_target'})); |
| |
} |
| |
$node->{'cross_manual_target'} = |
| |
unicode_to_protected($node->{'cross_manual_target'}); |
| |
} |
| |
#print STDERR "CROSS_MANUAL_TARGET $node->{'cross_manual_target'}\n"; |
| |
unless ($node->{'external_node'}) |
| |
{ |
| |
if (exists($cross_reference_nodes{$node->{'cross_manual_target'}})) |
| |
{ |
| |
my $other_node_array = $cross_reference_nodes{$node->{'cross_manual_target'}}; |
| |
my $node_seen; |
| |
foreach my $other_node (@{$other_node_array}) |
| |
{ # find the first node seen for the error message |
| |
$node_seen = $other_node; |
| |
last if ($nodes{$other_node}->{'seen'}) |
| |
} |
| |
my $other_node_line_nr = $nodes{$node_seen}->{'line_nr'}; |
| |
if (defined($other_node_line_nr)) |
| |
{ |
| |
msg_error ("Node equivalent with `$node->{'texi'}' already used `$node_seen' ".format_line_number($other_node_line_nr), $node->{'line_nr'}); |
| |
} |
| |
else |
| |
{ |
| |
msg_error ("Node equivalent with `$node->{'texi'}' already used `$node_seen'", $node->{'line_nr'}); |
| |
} |
| |
push @{$other_node_array}, $node->{'texi'}; |
| |
} |
| |
else |
| |
{ |
| |
push @{$cross_reference_nodes{$node->{'cross_manual_target'}}}, $node->{'texi'}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
|
| |
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES and |
| |
(!$Texi2HTML::Config::USE_UNICODE or !$Texi2HTML::Config::USE_UNIDECODE)) |
| |
{ |
| |
$::style_map_texi_ref = \%cross_transliterate_style_map_texi; |
| |
$::texi_map_ref = \%cross_transliterate_texi_map; |
| |
$Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text_transliterate if (!$Texi2HTML::Config::USE_UNICODE); |
| |
|
| |
foreach my $key (keys(%nodes)) |
| |
{ |
| |
my $node = $nodes{$key}; |
| |
#print STDERR "TRANSLITERATE:$key,$node\n"; |
| |
if (defined($node->{'texi'})) |
| |
{ |
| |
$node->{'cross_manual_file'} = remove_texi($node->{'texi'}); |
| |
if ($node->{'cross_manual_file'} !~ /\S/) |
| |
{ |
| |
$node->{'cross_manual_file'} = 't_0'; |
| |
} |
| |
elsif ($Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
$node->{'cross_manual_file'} = unicode_to_protected(unicode_to_transliterate($node->{'cross_manual_file'})); |
| |
} |
| |
} |
| |
} |
| |
|
| |
foreach my $entry (@all_index_entries, values(%sections), values(%headings)) |
| |
{ |
| |
#print STDERR "TRANSLITERATE($entry) $entry->{'texi'}\n"; |
| |
$entry->{'cross'} = remove_texi($entry->{'texi'}); |
| |
$entry->{'cross'} = unicode_to_protected(unicode_to_transliterate($entry->{'cross'})) if ($Texi2HTML::Config::USE_UNICODE); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
foreach my $entry (@all_index_entries, values(%sections), values(%headings)) |
| |
{ |
| |
$entry->{'cross'} = remove_texi($entry->{'texi'}); |
| |
if ($Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
$entry->{'cross'} = Unicode::Normalize::NFC($entry->{'cross'}); |
| |
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES and $Texi2HTML::Config::USE_UNIDECODE) # USE_UNIDECODE is redundant |
| |
{ |
| |
$entry->{'cross'} = |
| |
unicode_to_protected(unicode_to_transliterate($entry->{'cross'})); |
| |
} |
| |
else |
| |
{ |
| |
$entry->{'cross'} = |
| |
unicode_to_protected($entry->{'cross'}); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
$Texi2HTML::Config::normal_text = $normal_text_kept; |
| |
$Texi2HTML::Config::style = $style_kept; |
| |
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi; |
| |
$::style_map_texi_ref = \%Texi2HTML::Config::style_map_texi; |
| |
$::texi_map_ref = \%Texi2HTML::Config::texi_map; |
| |
} |
| |
|
| |
# This function is used to construct a link name from a node name as |
| |
# specified for texinfo |
| |
sub cross_manual_line($;$) |
| |
{ |
| |
my $text = shift; |
| |
my $transliterate = shift; |
| |
#print STDERR "cross_manual_line $text\n"; |
| |
#print STDERR "remove_texi text ". remove_texi($text)."\n\n\n"; |
| |
if ($text !~ /\S/) |
| |
{ |
| |
# special case for empty node/ref |
| |
return ('t_0', 't_0'); |
| |
} |
| |
$::simple_map_texi_ref = \%cross_ref_simple_map_texi; |
| |
$::style_map_texi_ref = \%cross_ref_style_map_texi; |
| |
$::texi_map_ref = \%cross_ref_texi_map; |
| |
my $normal_text_kept = $Texi2HTML::Config::normal_text; |
| |
$Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text; |
| |
my $style_kept = $Texi2HTML::Config::style; |
| |
$Texi2HTML::Config::style = \&Texi2HTML::Config::T2H_GPL_style; |
| |
|
| |
my ($cross_ref_target, $cross_ref_file); |
| |
if ($Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
$cross_ref_target = Unicode::Normalize::NFC(remove_texi($text)); |
| |
if ($transliterate and $Texi2HTML::Config::USE_UNIDECODE) |
| |
{ |
| |
$cross_ref_file = |
| |
unicode_to_protected(unicode_to_transliterate($cross_ref_target)); |
| |
} |
| |
$cross_ref_target = unicode_to_protected($cross_ref_target); |
| |
} |
| |
else |
| |
{ |
| |
$cross_ref_target = remove_texi($text); |
| |
} |
| |
|
| |
if ($transliterate and |
| |
(!$Texi2HTML::Config::USE_UNICODE or !$Texi2HTML::Config::USE_UNIDECODE)) |
| |
{ |
| |
$::style_map_texi_ref = \%cross_transliterate_style_map_texi; |
| |
$::texi_map_ref = \%cross_transliterate_texi_map; |
| |
$Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text_transliterate if (!$Texi2HTML::Config::USE_UNICODE); |
| |
$cross_ref_file = remove_texi($text); |
| |
$cross_ref_file = unicode_to_protected(unicode_to_transliterate($cross_ref_file)) |
| |
if ($Texi2HTML::Config::USE_UNICODE); |
| |
} |
| |
|
| |
$Texi2HTML::Config::normal_text = $normal_text_kept; |
| |
$Texi2HTML::Config::style = $style_kept; |
| |
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi; |
| |
$::style_map_texi_ref = \%Texi2HTML::Config::style_map_texi; |
| |
$::texi_map_ref = \%Texi2HTML::Config::texi_map; |
| |
#print STDERR "\n\ncross_ref $cross_ref\n"; |
| |
unless ($transliterate) |
| |
{ |
| |
return $cross_ref_target; |
| |
} |
| |
# print STDERR "$text|$cross_ref_target|$cross_ref_file\n"; |
| |
return ($cross_ref_target, $cross_ref_file); |
| |
} |
| |
|
| |
sub equivalent_nodes($) |
| |
{ |
| |
my $name = shift; |
| |
#print STDERR "equivalent_nodes $name\n"; |
| |
my $node = normalise_node($name); |
| |
$name = cross_manual_line($node); |
| |
#print STDERR "equivalent_nodes `$node' `$name'\n"; |
| |
my @equivalent_nodes = (); |
| |
if (exists($cross_reference_nodes{$name})) |
| |
{ |
| |
@equivalent_nodes = grep {$_ ne $node} @{$cross_reference_nodes{$name}}; |
| |
} |
| |
return @equivalent_nodes; |
| |
} |
| |
|
| |
sub do_place_target_file($$$) |
| |
{ |
| |
my $place = shift; |
| |
my $element = shift; |
| |
my $context = shift; |
| |
|
| |
$place->{'file'} = $element->{'file'} unless defined($place->{'file'}); |
| |
$place->{'target'} = $element->{'target'} unless defined($place->{'target'}); |
| |
if (defined($Texi2HTML::Config::placed_target_file_name)) |
| |
{ |
| |
my ($target, $id, $file) = &$Texi2HTML::Config::placed_target_file_name($place,$element,$place->{'target'}, $place->{'id'}, $place->{'file'},$context); |
| |
$place->{'target'} = $target if (defined($target)); |
| |
$place->{'file'} = $file if (defined($file)); |
| |
$place->{'id'} = $id if (defined($id)); |
| |
} |
| |
} |
| |
|
| |
sub do_node_target_file($$) |
| |
{ |
| |
my $node = shift; |
| |
my $type_of_node = shift; |
| |
my $node_file = &$Texi2HTML::Config::node_file_name($node,$type_of_node); |
| |
$node->{'node_file'} = $node_file if (defined($node_file)); |
| |
if (defined($Texi2HTML::Config::node_target_name)) |
| |
{ |
| |
my ($target,$id) = &$Texi2HTML::Config::node_target_name($node,$node->{'target'},$node->{'id'}, $type_of_node); |
| |
$node->{'target'} = $target if (defined($target)); |
| |
$node->{'id'} = $id if (defined($id)); |
| |
} |
| |
} |
| |
|
| |
sub do_element_targets($;$) |
| |
{ |
| |
my $element = shift; |
| |
my $use_node_file = shift; |
| |
my $is_top = ''; |
| |
|
| |
$is_top = 'top' if (defined($element_top) and ($element eq $element_top or (defined($element->{'with_node'}) and $element->{'with_node'} eq $element_top))); |
| |
|
| |
if ($Texi2HTML::Config::SPLIT_INDEX and Texi2HTML::Config::get_conf('SPLIT')) |
| |
{ |
| |
Texi2HTML::Config::t2h_default_associate_index_element($element, $is_top, $docu_name, $use_node_file); |
| |
} |
| |
|
| |
if (defined($Texi2HTML::Config::element_file_name)) |
| |
{ |
| |
my $previous_file_name = $element->{'file'}; |
| |
my $filename = |
| |
&$Texi2HTML::Config::element_file_name ($element, $is_top, $docu_name); |
| |
if (defined($filename)) |
| |
{ |
| |
foreach my $place (@{$element->{'place'}}) |
| |
{ |
| |
$place->{'file'} = $filename if (defined($place->{'file'}) and ($place->{'file'} eq $previous_file_name)); |
| |
} |
| |
$element->{'file'} = $filename; |
| |
if ($is_top) |
| |
{ # reset these variables, although they aren't used much, they may be |
| |
# used in file name comparisons |
| |
$docu_top = $filename; |
| |
$docu_top_file = "$docu_rdir$docu_top"; |
| |
} |
| |
} |
| |
} |
| |
print STDERR "file !defined for element $element->{'texi'}\n" if (!defined($element->{'file'})); |
| |
if (defined($Texi2HTML::Config::element_target_name)) |
| |
{ |
| |
my ($target,$id) = &$Texi2HTML::Config::element_target_name($element, $element->{'target'}, $element->{'id'}); |
| |
$element->{'target'} = $target if (defined($target)); |
| |
$element->{'id'} = $id if (defined($id)); |
| |
} |
| |
foreach my $place(@{$element->{'place'}}) |
| |
{ |
| |
do_place_target_file($place, $element, ''); |
| |
} |
| |
} |
| |
|
| |
sub add_t2h_element($$$) |
| |
{ |
| |
my $element = shift; |
| |
my $elements_list = shift; |
| |
my $prev_element = shift; |
| |
|
| |
push @$elements_list, $element; |
| |
$element->{'element_ref'} = $element; |
| |
$element->{'this'} = $element; |
| |
|
| |
if (defined($prev_element)) |
| |
{ |
| |
$element->{'back'} = $prev_element; |
| |
$prev_element->{'forward'} = $element; |
| |
} |
| |
push @{$element->{'place'}}, $element; |
| |
push @{$element->{'place'}}, @{$element->{'current_place'}}; |
| |
return $element; |
| |
} |
| |
|
| |
sub add_t2h_dependent_element ($$) |
| |
{ |
| |
my $element = shift; |
| |
my $element_ref = shift; |
| |
$element->{'element_ref'} = $element_ref; |
| |
$element_index = $element_ref if ($element_index and ($element_index eq $element)); |
| |
push @{$element_ref->{'place'}}, $element; |
| |
push @{$element_ref->{'place'}}, @{$element->{'current_place'}}; |
| |
} |
| |
|
| |
my %files = (); # keys are files. This is used to avoid reusing an already |
| |
# used file name |
| |
my @opened_files = (); # all the files opened by the program to remove |
| |
# them if FORCE is not set and an error occured |
| |
my %printed_indices = (); # value is true for an index name not empty and |
| |
# printed |
| |
# This is a virtual element used to have the right hrefs for index entries |
| |
# and anchors in footnotes. |
| |
my $footnote_element; |
| |
|
| |
# find next, prev, up, back, forward, fastback, fastforward |
| |
# find element id and file |
| |
# split index pages |
| |
# associate placed items (items which have links to them) with the right |
| |
# file and id |
| |
# associate nodes with sections |
| |
sub rearrange_elements() |
| |
{ |
| |
print STDERR "# find sections levels and toplevel\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
|
| |
my $toplevel = 4; |
| |
|
| |
# correct level if raisesections or lowersections overflowed |
| |
# and find toplevel level |
| |
# use %sections and %headings to modify also the headings |
| |
foreach my $section (values(%sections), values(%headings)) |
| |
{ |
| |
my $level = $section->{'level'}; |
| |
if ($level > $MAX_LEVEL) |
| |
{ |
| |
$section->{'level'} = $MAX_LEVEL; |
| |
} |
| |
# second condition is for @top and @part |
| |
elsif ($level < $MIN_LEVEL and ($reference_sec2level{$section->{'tag'}} >= $MIN_LEVEL)) |
| |
{ |
| |
$section->{'level'} = $MIN_LEVEL; |
| |
} |
| |
else |
| |
{ |
| |
$section->{'level'} = $level; |
| |
} |
| |
$section->{'toc_level'} = $section->{'level'}; |
| |
# This is for top |
| |
$section->{'toc_level'} = $MIN_LEVEL if ($section->{'level'} < $MIN_LEVEL); |
| |
# find the new tag corresponding with the level of the section |
| |
if ($section->{'tag'} !~ /heading/ and ($level ne $reference_sec2level{$section->{'tag'}})) |
| |
{ |
| |
$section->{'tag_level'} = $level2sec{$section->{'tag'}}->[$section->{'level'}]; |
| |
} |
| |
else |
| |
{ |
| |
$section->{'tag_level'} = $section->{'tag'}; |
| |
} |
| |
$toplevel = $section->{'level'} if (($section->{'level'} < $toplevel) and ($section->{'level'} > 0 and ($section->{'tag'} !~ /heading/))); |
| |
print STDERR "# section level $level: $section->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
} |
| |
|
| |
print STDERR "# find sections structure, construct section numbers (toplevel=$toplevel)\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
my $in_appendix = 0; |
| |
# these arrays have an element per sectioning level. |
| |
my @previous_numbers = (); # holds the number of the previous sections |
| |
# at the same and upper levels |
| |
my @previous_sections = (); # holds the ref of the previous sections |
| |
my $previous_toplevel; |
| |
my @pending_parts; # parts yet to be associated with the |
| |
# following element |
| |
|
| |
foreach my $section (@sections_list) |
| |
{ |
| |
########################### debug |
| |
print STDERR "BUG: node or section_ref defined for section $section->{'texi'}\n" |
| |
if (exists($section->{'node'}) or exists($section->{'section_ref'})); |
| |
print STDERR "Bug level undef for ($section) $section->{'texi'}\n" if (!defined($section->{'level'})); |
| |
########################### end debug |
| |
|
| |
# associate with first node if it is a section appearing before |
| |
# the first node |
| |
$section->{'node_ref'} = $nodes_list[0] if ($nodes_list[0] and !$section->{'node_ref'}); |
| |
|
| |
# a part doesn't really make up an element, it is associated with the |
| |
# next sectioning element instead. |
| |
if ($section->{'tag'} eq 'part') |
| |
{ |
| |
push @pending_parts, $section; |
| |
} |
| |
elsif (@pending_parts) |
| |
{ |
| |
if ($section->{'tag'} ne 'top') |
| |
{ |
| |
foreach my $part (@pending_parts) |
| |
{ |
| |
$part->{'part_section_ref'} = $section; |
| |
if (!$section->{'with_part'}) |
| |
{ |
| |
$section->{'with_part'} = $part; |
| |
$part->{'part_with_section'} = $section; |
| |
} |
| |
# if a node is associated with the part, reassociate it with |
| |
# the chapter |
| |
if ($part->{'with_node'} and !$section->{'with_node'}) |
| |
{ |
| |
$section->{'with_node'} = $part->{'with_node'}; |
| |
delete $part->{'with_node'}; |
| |
$section->{'with_node'}->{'with_section'} = $section; |
| |
} |
| |
} |
| |
} |
| |
@pending_parts = (); |
| |
} |
| |
|
| |
# we track the toplevel next and previous because there is no |
| |
# strict child parent relationship between chapters and top. Indeed |
| |
# a chapter may appear before @top, it may be better to consider them |
| |
# on the same toplevel. |
| |
if ($section->{'level'} <= $toplevel) |
| |
{ |
| |
$section->{'toplevel'} = 1; |
| |
if (defined($previous_toplevel)) |
| |
{ |
| |
$previous_toplevel->{'toplevelnext'} = $section; |
| |
$section->{'toplevelprev'} = $previous_toplevel; |
| |
} |
| |
# part is not used as previous_toplevel since toplevel directions |
| |
# are used to move between chapters (and top) |
| |
$previous_toplevel = $section if ($section->{'tag'} ne 'part'); |
| |
# In fact this is only useful for toplevel elements appearing |
| |
# before @top, the other have their sectionup reset up below |
| |
# based on the sectioning commands hierarchy. |
| |
if (defined($section_top) and $section ne $section_top) |
| |
{ |
| |
$section->{'sectionup'} = $section_top; |
| |
} |
| |
} |
| |
# undef things under that section level |
| |
my $section_level = $section->{'level'}; |
| |
for (my $level = $section_level + 1; $level < $MAX_LEVEL + 1 ; $level++) |
| |
{ |
| |
$previous_numbers[$level] = undef unless ($section->{'tag'} =~ /unnumbered/ or $section->{'tag'} eq 'centerchap'); |
| |
$previous_sections[$level] = undef; |
| |
} |
| |
my $number_set; |
| |
# find number at the current level |
| |
if ($section->{'tag'} =~ /appendix/ and !$in_appendix) |
| |
{ |
| |
$previous_numbers[$toplevel] = 'A'; |
| |
$in_appendix = 1; |
| |
$number_set = 1 if ($section->{'level'} <= $toplevel); |
| |
$section->{'appendix_beginning'} = 1; |
| |
} |
| |
if (!defined($previous_numbers[$section->{'level'}]) and !$number_set) |
| |
{ |
| |
if ($section->{'tag'} =~ /unnumbered/ or $section->{'tag'} eq 'centerchap') |
| |
{ |
| |
$previous_numbers[$section->{'level'}] = undef; |
| |
} |
| |
else |
| |
{ |
| |
$previous_numbers[$section->{'level'}] = 1; |
| |
} |
| |
} |
| |
elsif ($section->{'tag'} !~ /unnumbered/ and $section->{'tag'} ne 'centerchap' and !$number_set) |
| |
{ |
| |
$previous_numbers[$section->{'level'}]++; |
| |
} |
| |
# construct the section number |
| |
$section->{'number'} = ''; |
| |
|
| |
unless ($section->{'tag'} =~ /unnumbered/ or $section->{'tag'} eq 'centerchap' or $section->{'tag'} eq 'top' or $section->{'tag'} eq 'part') |
| |
{ |
| |
my $level = $section->{'level'}; |
| |
while ($level > $toplevel) |
| |
{ |
| |
my $number = $previous_numbers[$level]; |
| |
$number = 0 if (!defined($number)); |
| |
if ($section->{'number'}) |
| |
{ |
| |
$section->{'number'} = "$number.$section->{'number'}"; |
| |
} |
| |
else |
| |
{ |
| |
$section->{'number'} = $number; |
| |
} |
| |
$level--; |
| |
} |
| |
my $toplevel_number = $previous_numbers[$toplevel]; |
| |
$toplevel_number = 0 if (!defined($toplevel_number)); |
| |
|
| |
if ($section->{'number'}) |
| |
{ # not toplevel |
| |
$section->{'number'} = "$toplevel_number.$section->{'number'}"; |
| |
} |
| |
else |
| |
{ # toplevel |
| |
$section->{'number'} = $toplevel_number; |
| |
if ($section->{'tag'} =~ /appendix/) |
| |
{# i18n |
| |
$section->{'plain_number'} = $section->{'number'}; |
| |
$section->{'number'} = "Appendix $section->{'number'}"; |
| |
} |
| |
} |
| |
} |
| |
$section->{'plain_number'} = $section->{'number'} if (!defined($section->{'plain_number'})); |
| |
# find the previous section |
| |
if (defined($previous_sections[$section->{'level'}])) |
| |
{ |
| |
my $prev_section = $previous_sections[$section->{'level'}]; |
| |
$section->{'sectionprev'} = $prev_section; |
| |
$prev_section->{'sectionnext'} = $section; |
| |
} |
| |
# find the up section |
| |
my $level = $section->{'level'} - 1; |
| |
while (!defined($previous_sections[$level]) and ($level >= 0)) |
| |
{ |
| |
$level--; |
| |
} |
| |
# The second conditions ensures that a @part is stopped by |
| |
# the first @appendix command. |
| |
if (defined($previous_sections[$level]) |
| |
and !($section->{'appendix_beginning'} and $previous_sections[$level]->{'tag'} eq 'part' and $previous_sections[$level]->{'part_section_ref'} ne $section)) |
| |
{ |
| |
# toplevel elements have already their up set to the top element, |
| |
# it is overwriten here for most cases -- this leads to a different |
| |
# sectionup if there are parts, for instance. |
| |
# as a side note, it is not touched upon if the element appears |
| |
# before @top. |
| |
$section->{'sectionup'} = $previous_sections[$level]; |
| |
# 'child' is the first child. |
| |
if (!$section->{'sectionup'}->{'child'}) |
| |
{ |
| |
$section->{'sectionup'}->{'child'} = $section; |
| |
} |
| |
else |
| |
{ |
| |
# 'childnext' is the next child of a an element. it may |
| |
# be different from 'sectionnext' when the elemnt are not |
| |
# at the same level, for example |
| |
# @chapter chapter |
| |
# @subsection subsection (certainly wrong) |
| |
# @section section (not next of subsection, but childnext) |
| |
$section->{'sectionup'}->{'section_childs'}->[-1]->{'childnext'} = $section if (defined($section->{'sectionup'}->{'section_childs'})); |
| |
} |
| |
push @{$section->{'sectionup'}->{'section_childs'}}, $section; |
| |
} |
| |
$previous_sections[$section->{'level'}] = $section; |
| |
# This is what is used in the .init file. |
| |
$section->{'up'} = $section->{'sectionup'}; |
| |
# Not used but documented. |
| |
$section->{'next'} = $section->{'sectionnext'}; |
| |
$section->{'prev'} = $section->{'sectionprev'}; |
| |
|
| |
############################# debug |
| |
my $up = "NO_UP"; |
| |
$up = $section->{'sectionup'} if (defined($section->{'sectionup'})); |
| |
print STDERR "# numbering section ($section->{'level'}): $section->{'number'}: (up: $up) $section->{'texi'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
############################# end debug |
| |
} |
| |
|
| |
# at that point there are still some node structures that are not |
| |
# in %nodes, (the external nodes, and unknown nodes in case |
| |
# novalidate is true) so we cannot find the id. The consequence is that |
| |
# some node equivalent with another node may not be catched during |
| |
# that pass. We mark the nodes that have directions for unreferenced |
| |
# nodes and make a second pass for these nodes afterwards. |
| |
my @nodes_with_unknown_directions = (); |
| |
|
| |
my %node_directions = ( |
| |
'node_prev' => 'nodeprev', |
| |
'node_next' => 'nodenext', |
| |
'node_up' => 'nodeup'); |
| |
# handle nodes |
| |
# the node_prev... are texinfo strings, find the associated node references |
| |
print STDERR "# Resolve nodes directions\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
foreach my $node (@nodes_list) |
| |
{ |
| |
foreach my $direction (keys(%node_directions)) |
| |
{ |
| |
if (defined($node->{$direction})) |
| |
{ |
| |
if ($nodes{$node->{$direction}} and $nodes{$node->{$direction}}->{'seen'}) |
| |
{ |
| |
$node->{$node_directions{$direction}} = $nodes{$node->{$direction}}; |
| |
} |
| |
elsif (($node->{$direction} =~ /^\(.*\)/) or Texi2HTML::Config::get_conf('novalidate')) |
| |
{ # ref to an external node |
| |
if (exists($nodes{$node->{$direction}})) |
| |
{ |
| |
$node->{$node_directions{$direction}} = $nodes{$node->{$direction}}; |
| |
} |
| |
else |
| |
{ |
| |
my $node_ref = { 'texi' => $node->{$direction} }; |
| |
$node_ref->{'external_node'} = 1 if ($node->{$direction} =~ /^\(.*\)/); |
| |
$nodes{$node->{$direction}} = $node_ref; |
| |
$node->{$node_directions{$direction}} = $node_ref; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
push @nodes_with_unknown_directions, $node; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
# Find cross manual links as explained on the texinfo mailing list |
| |
# The specification is such that cross manual links formatting should |
| |
# be insensitive to the manual split |
| |
cross_manual_links(); |
| |
|
| |
my %direction_texts = ( |
| |
'node_prev' => 'Prev',, |
| |
'node_next' => 'Next', |
| |
'node_up' => 'Up' |
| |
); |
| |
# Now it is possible to find the unknown directions that are equivalent |
| |
# (have same node id) than an existing node |
| |
foreach my $node (@nodes_with_unknown_directions) |
| |
{ |
| |
foreach my $direction (keys(%node_directions)) |
| |
{ |
| |
if (defined($node->{$direction}) and !$node->{$node_directions{$direction}}) |
| |
{ |
| |
line_error (sprintf(__("%s reference to nonexistent `%s'"),$direction_texts{$direction}, $node->{$direction}), $node->{'line_nr'}); # for `$node->{'texi'}'" |
| |
my @equivalent_nodes = equivalent_nodes($node->{$direction}); |
| |
my $node_seen; |
| |
foreach my $equivalent_node (@equivalent_nodes) |
| |
{ |
| |
if ($nodes{$equivalent_node}->{'seen'}) |
| |
{ |
| |
$node_seen = $equivalent_node; |
| |
last; |
| |
} |
| |
} |
| |
if (defined($node_seen)) |
| |
{ |
| |
document_warn ("---> but equivalent node `$node_seen' found"); |
| |
$node->{$node_directions{$direction}} = $nodes{$node_seen}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| |
# nodes are attached to the section preceding them if not already |
| |
# associated with a section. |
| |
# a @part should never have nodes associated, if it is associated |
| |
# with a chapter, instead the chapter pointed on by part_section_ref is |
| |
# used. |
| |
my $current_section = $sections_list[0]; |
| |
$current_section = $current_section->{'part_section_ref'} if ($current_section and $current_section->{'part_section_ref'}); |
| |
foreach my $element (@all_elements) |
| |
{ |
| |
if ($element->{'node'}) |
| |
{ |
| |
if ($element->{'with_section'}) |
| |
{ # the node is associated with a section |
| |
$element->{'section_ref'} = $element->{'with_section'}; |
| |
} |
| |
elsif (defined($current_section)) |
| |
{# node appearing after a section, but not before another section, |
| |
# or appearing before any section |
| |
$element->{'section_ref'} = $current_section; |
| |
push @{$current_section->{'node_childs'}}, $element; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$current_section = $element; |
| |
$current_section = $element->{'part_section_ref'} if ($element->{'part_section_ref'}); |
| |
} |
| |
} |
| |
|
| |
print STDERR "# Complete nodes next prev and up based on menus and sections\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
# set the default id based on the node number |
| |
my $node_nr = 1; |
| |
# find the node* directions |
| |
# find the directions corresponding with sections |
| |
# and set 'up' for the node |
| |
foreach my $node (@nodes_list) |
| |
{ |
| |
# first a warning if the node and the equivalent nodes don't |
| |
# appear in menus. |
| |
# Don't warn for the top node, and the first node if there is no |
| |
# top node. |
| |
if ((($node_top and $node ne $node_top) or (!$node_top and $node ne $node_first)) and !$node->{'menu_up'} and $Texi2HTML::Config::SHOW_MENU) |
| |
{ |
| |
my @equivalent_nodes = equivalent_nodes($node->{'texi'}); |
| |
my $found = 0; |
| |
foreach my $equivalent_node (@equivalent_nodes) |
| |
{ |
| |
if (($nodes{$equivalent_node} eq $node_first) or $nodes{$equivalent_node}->{'menu_up'}) |
| |
{ |
| |
$found = 1; |
| |
last; |
| |
} |
| |
} |
| |
unless ($found) |
| |
{ # makeinfo has also |
| |
# "`%s' has no Up field (perhaps incorrect sectioning?)" |
| |
# but it is not useful since the up will always be set if |
| |
# the node appears in a menu so the following error message |
| |
# is enough |
| |
line_warn (sprintf(__("unreferenced node `%s'"), $node->{'texi'}), $node->{'line_nr'}); |
| |
} |
| |
} |
| |
|
| |
# use values deduced from menus to complete missing up, next, prev |
| |
# or from sectioning commands if automatic sectioning |
| |
if (!$node->{'nodeup'}) |
| |
{ |
| |
if (defined($node_top) and ($node eq $node_top) and $node->{'automatic_directions'}) |
| |
{ # Top node has a special up, which is (dir) by default |
| |
my $top_nodeup = $Texi2HTML::Config::TOP_NODE_UP; |
| |
if (exists($nodes{$top_nodeup})) |
| |
{ |
| |
$node->{'nodeup'} = $nodes{$top_nodeup}; |
| |
} |
| |
else |
| |
{ |
| |
my $node_ref = { 'texi' => $top_nodeup }; |
| |
$node_ref->{'external_node'} = 1; |
| |
$nodes{$top_nodeup} = $node_ref; |
| |
$node->{'nodeup'} = $node_ref; |
| |
} |
| |
} |
| |
elsif ($node->{'automatic_directions'}) |
| |
{ |
| |
if ($node->{'with_section'}) |
| |
{ |
| |
# ignore the up if it is a @part. If the sectioning is |
| |
# correct, the element is toplevel and will be handled |
| |
# by the next condition. |
| |
if ($node->{'with_section'}->{'sectionup'} and !$node->{'with_section'}->{'sectionup'}->{'part_section_ref'}) |
| |
{ |
| |
$node->{'nodeup'} = get_node($node->{'with_section'}->{'sectionup'}); |
| |
} |
| |
elsif ($node->{'with_section'}->{'toplevel'} and defined($section_top) and ($node->{'with_section'} ne $section_top)) |
| |
{ |
| |
$node->{'nodeup'} = get_node($section_top); |
| |
} |
| |
print STDERR "# Deducing from section node_up $node->{'nodeup'}->{'texi'} for $node->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS and defined($node->{'nodeup'})); |
| |
} |
| |
elsif ($node->{'menu_up'}) |
| |
{ |
| |
$node->{'nodeup'} = $node->{'menu_up'}; |
| |
print STDERR "# Deducing from menu node_up $node->{'menu_up'}->{'texi'} for $node->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
} |
| |
} |
| |
} |
| |
|
| |
if ($node->{'nodeup'} and !$node->{'nodeup'}->{'external_node'}) |
| |
{ |
| |
# We detect when the up node has no menu entry for that node, as |
| |
# there may be infinite loops when finding following node (see below) |
| |
unless (defined($node->{'menu_up_hash'}) and ($node->{'menu_up_hash'}->{$node->{'nodeup'}->{'texi'}})) |
| |
{ |
| |
line_error(sprintf(__("Node `%s' lacks menu item for `%s' despite being its Up target"), $node->{'nodeup'}->{'texi'}, $node->{'texi'}), $node->{'nodeup'}->{'line_nr'}) if ($Texi2HTML::Config::SHOW_MENU); |
| |
push @{$node->{'up_not_in_menu'}}, $node->{'nodeup'}->{'texi'}; |
| |
} |
| |
} |
| |
# check that the up is in one of the menus |
| |
if ($Texi2HTML::Config::SHOW_MENU and $node->{'nodeup'} and $node->{'menu_up'}) |
| |
{ |
| |
my @equivalent_nodes = equivalent_nodes($node->{'nodeup'}->{'texi'}); |
| |
my $found = 0; |
| |
foreach my $equivalent_node ($node->{'nodeup'}->{'texi'}, @equivalent_nodes) |
| |
{ |
| |
if ($node->{'menu_up_hash'}->{$equivalent_node}) |
| |
{ |
| |
$found = 1; |
| |
last; |
| |
} |
| |
} |
| |
unless ($found) |
| |
{ |
| |
line_warn (sprintf(__("For `%s', up in menu `%s' and up `%s' don't match"), $node->{'texi'}, $node->{'menu_up'}->{'texi'}, $node->{'nodeup'}->{'texi'}), $node->{'line_nr'}); |
| |
} |
| |
|
| |
} |
| |
|
| |
# Find next node if not already found |
| |
if ($node->{'nodenext'}) |
| |
{ |
| |
# doing the following would be wrong: |
| |
#$node->{'nodenext'}->{'nodeprev'} = $node if (!defined($node->{'nodenext'}->{'nodeprev'})); |
| |
} |
| |
elsif ($node->{'texi'} eq 'Top' and $node->{'automatic_directions'}) |
| |
{ # special case as said in the texinfo manual |
| |
if ($node->{'menu_child'}) |
| |
{ |
| |
$node->{'nodenext'} = $node->{'menu_child'}; |
| |
$node->{'menu_child'}->{'nodeprev'} = $node; |
| |
} |
| |
} |
| |
elsif ($node->{'automatic_directions'}) |
| |
{ |
| |
if (defined($node->{'with_section'})) |
| |
{ |
| |
my $next; |
| |
my $warn_for_next_not_in_menu = 1; |
| |
my $section = $node->{'with_section'}; |
| |
if ($section->{'sectionnext'}) |
| |
{ |
| |
$next = get_node($section->{'sectionnext'}); |
| |
} |
| |
# we use toplevelnext, mostly for chapters associated with |
| |
# @part. But we don't want to have the @top as prev for |
| |
# a @chapter or the like |
| |
elsif ($section->{'toplevelnext'} and $section->{'toplevelnext'} ne $section_top) |
| |
{ |
| |
$next = get_node($section->{'toplevelnext'}); |
| |
} |
| |
elsif ($Texi2HTML::Config::USE_UP_FOR_ADJACENT_NODES) |
| |
{ # makeinfo don't do that. So this is conditionnal. |
| |
# Also no warning, because it is expected that the |
| |
# next found out with the up is not the next in menu. |
| |
$warn_for_next_not_in_menu = 0; |
| |
while (defined($section->{'sectionup'}) and !defined($section->{'sectionnext'})) |
| |
{ |
| |
$section = $section->{'sectionup'}; |
| |
} |
| |
if (defined($section->{'sectionnext'})) |
| |
{ |
| |
$next = get_node($section->{'sectionnext'}); |
| |
} |
| |
} |
| |
if (defined($next) and $Texi2HTML::Config::SHOW_MENU and $warn_for_next_not_in_menu) |
| |
{ |
| |
line_warn (sprintf(__("No node following `%s' in menu, but `%s' follows in sectioning"), $node->{'texi'}, $next->{'texi'}), $node->{'line_nr'}) if (!defined($node->{'menu_next'})); |
| |
line_warn (sprintf(__("Node following `%s' in menu `%s' and in sectioning `%s' differ"), $node->{'texi'}, $node->{'menu_next'}->{'texi'}, $next->{'texi'}), $node->{'line_nr'}) |
| |
if (defined($node->{'menu_next'}) and $next ne $node->{'menu_next'}); |
| |
} |
| |
$node->{'nodenext'} = $next; |
| |
} |
| |
elsif ($node->{'menu_next'}) |
| |
{ |
| |
$node->{'nodenext'} = $node->{'menu_next'}; |
| |
} |
| |
} |
| |
|
| |
# Find prev node |
| |
if ($node->{'nodeprev'}) |
| |
{ |
| |
# doing the following would be wrong: |
| |
#$node->{'nodeprev'}->{'nodenext'} = $node if (!defined($node->{'nodeprev'}->{'nodenext'})); |
| |
} |
| |
elsif ($node->{'automatic_directions'}) |
| |
{ |
| |
if (defined($node->{'with_section'})) |
| |
{ |
| |
my $section = $node->{'with_section'}; |
| |
if ($section->{'sectionprev'}) |
| |
{ |
| |
$node->{'nodeprev'} = get_node($section->{'sectionprev'}); |
| |
} |
| |
# we use toplevelprev, mostly for chapters associated with |
| |
# @part. But we don't want to have the @top as prev for |
| |
# a @chapter or the like |
| |
elsif ($section->{'toplevelprev'} and $section->{'toplevelprev'} ne $section_top) |
| |
{ |
| |
$node->{'nodeprev'} = get_node($section->{'toplevelprev'}); |
| |
} |
| |
elsif ($Texi2HTML::Config::USE_UP_FOR_ADJACENT_NODES and defined($section->{'sectionup'})) |
| |
{ # makeinfo don't do that |
| |
$node->{'nodeprev'} = get_node($section->{'sectionup'}); |
| |
} |
| |
} |
| |
elsif ($node->{'menu_prev'}) |
| |
{ |
| |
$node->{'nodeprev'} = $node->{'menu_prev'}; |
| |
} |
| |
# the prev node is the parent node |
| |
elsif ($node->{'menu_up'} and ($node->{'menu_up'}->{'menu_child'} eq $node) and $Texi2HTML::Config::USE_UP_FOR_ADJACENT_NODES) |
| |
{ |
| |
$node->{'nodeprev'} = $node->{'menu_up'}; |
| |
} |
| |
} |
| |
|
| |
# the following node is the node following in node reading order |
| |
# it is thus first the child, else the next, else the next following |
| |
# the up |
| |
if ($node->{'menu_child'}) |
| |
{ |
| |
$node->{'following'} = $node->{'menu_child'}; |
| |
} |
| |
elsif ($node->{'automatic_directions'} and defined($node->{'with_section'}) and defined($node->{'with_section'}->{'child'})) |
| |
{ |
| |
$node->{'following'} = get_node($node->{'with_section'}->{'child'}); |
| |
} |
| |
elsif (defined($node->{'nodenext'})) |
| |
{ |
| |
$node->{'following'} = $node->{'nodenext'}; |
| |
} |
| |
else |
| |
{ |
| |
my $up = $node->{'nodeup'}; |
| |
# in order to avoid infinite recursion in case the up node is the |
| |
# node itself we use the up node as following when there isn't |
| |
# a correct menu structure, here and also below. |
| |
$node->{'following'} = $up if (defined($up) and grep {$_ eq $up->{'texi'}} @{$node->{'up_not_in_menu'}}); |
| |
while ((!defined($node->{'following'})) and (defined($up))) |
| |
{ |
| |
if (($node_top) and ($up eq $node_top)) |
| |
{ # if we are at Top, Top is following |
| |
$node->{'following'} = $node_top; |
| |
$up = undef; |
| |
} |
| |
if (defined($up->{'nodenext'})) |
| |
{ |
| |
$node->{'following'} = $up->{'nodenext'}; |
| |
} |
| |
elsif (defined($up->{'nodeup'})) |
| |
{ |
| |
if (! grep { $_ eq $up->{'nodeup'}->{'texi'} } @{$node->{'up_not_in_menu'}}) |
| |
{ |
| |
$up = $up->{'nodeup'}; |
| |
} |
| |
else |
| |
{ # in that case we can go into a infinite loop |
| |
$node->{'following'} = $up->{'nodeup'}; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$up = undef; |
| |
} |
| |
} |
| |
} |
| |
# copy the direction of the associated section. |
| |
if (defined($node->{'with_section'})) |
| |
{ |
| |
my $section = $node->{'with_section'}; |
| |
foreach my $direction ('sectionnext', 'sectionprev', 'sectionup') |
| |
{ |
| |
$node->{$direction} = $section->{$direction} |
| |
if (defined($section->{$direction})); |
| |
} |
| |
} |
| |
# 'up' is used in .init files. It is almost sectionup, but not |
| |
# exactly, it allows to have something relevant whether elements |
| |
# are nodes or sections -- just like Back and Forward. So it |
| |
# should certainly be kept. |
| |
if (defined($node->{'sectionup'})) |
| |
{ |
| |
$node->{'up'} = $node->{'sectionup'}; |
| |
} |
| |
elsif (defined($node->{'nodeup'}) and |
| |
(!$node_top or ($node ne $node_top))) |
| |
{ |
| |
$node->{'up'} = $node->{'nodeup'}; |
| |
} |
| |
# 'next' not used but documented. |
| |
if (defined($node->{'sectionnext'})) |
| |
{ |
| |
$node->{'next'} = $node->{'sectionnext'}; |
| |
} |
| |
if (defined($node->{'sectionprev'})) |
| |
{ |
| |
$node->{'prev'} = $node->{'sectionprev'}; |
| |
} |
| |
|
| |
# default id for nodes. Should be overriden later. |
| |
$node->{'id'} = 'NOD' . $node_nr; |
| |
$node_nr++; |
| |
} |
| |
|
| |
# do node directions for sections. |
| |
foreach my $section (@sections_list) |
| |
{ |
| |
# If the element is not a node, then all the node directions are copied |
| |
# if there is an associated node |
| |
if (defined($section->{'with_node'})) |
| |
{ |
| |
$section->{'nodenext'} = $section->{'with_node'}->{'nodenext'}; |
| |
$section->{'nodeprev'} = $section->{'with_node'}->{'nodeprev'}; |
| |
$section->{'menu_next'} = $section->{'with_node'}->{'menu_next'}; |
| |
$section->{'menu_prev'} = $section->{'with_node'}->{'menu_prev'}; |
| |
$section->{'menu_child'} = $section->{'with_node'}->{'menu_child'}; |
| |
$section->{'menu_up'} = $section->{'with_node'}->{'menu_up'}; |
| |
$section->{'nodeup'} = $section->{'with_node'}->{'nodeup'}; |
| |
$section->{'following'} = $section->{'with_node'}->{'following'}; |
| |
} |
| |
} |
| |
|
| |
my $only_nodes = 0; |
| |
my $only_sections = 0; |
| |
|
| |
# for legibility |
| |
my $use_nodes = $Texi2HTML::Config::USE_NODES; |
| |
my $use_sections = $Texi2HTML::Config::USE_SECTIONS; |
| |
|
| |
$only_nodes = 1 if ( |
| |
(!scalar(@sections_list) and |
| |
($use_nodes or (!$use_sections and !defined($use_nodes)))) |
| |
or ($use_nodes and !$use_sections) |
| |
); |
| |
$only_sections = 1 if (!$only_nodes and !$use_nodes and ($use_sections or !defined($use_sections))); |
| |
#print STDERR "USE_NODES $use_nodes, USE_SECTIONS $use_sections. only_nodes: $only_nodes, only_sections $only_sections\n"; |
| |
|
| |
my $prev_element; |
| |
print STDERR "# Build the elements list only_nodes: $only_nodes, only_sections $only_sections\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
foreach my $element (@all_elements) |
| |
{ |
| |
if ($element->{'node'}) |
| |
{ |
| |
if ($element->{'section_ref'} and ($only_sections or (!$only_nodes and $element->{'with_section'}))) |
| |
{ |
| |
add_t2h_dependent_element ($element, $element->{'section_ref'}); |
| |
#$element->{'toc_level'} = $element->{'section_ref'}->{'toc_level'}; |
| |
} |
| |
elsif (!$only_sections) |
| |
{ |
| |
$prev_element = add_t2h_element($element, \@elements_list, $prev_element); |
| |
} |
| |
else # $only_section and !$section_ref. This should only |
| |
# happen when there are no sections |
| |
{ |
| |
#print STDERR "node $element->{'texi'} not associated with an element\n"; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
my $part_element = $element->{'part_section_ref'}; |
| |
if (($element->{'node_ref'} or ($part_element and $part_element->{'node_ref'})) and $only_nodes) |
| |
{ |
| |
my $element_with_node = $element; |
| |
$element_with_node = $part_element if ($part_element); |
| |
add_t2h_dependent_element ($element, $element_with_node->{'node_ref'}); |
| |
} |
| |
elsif (!$only_nodes) |
| |
{ |
| |
if ($part_element) |
| |
{ |
| |
add_t2h_dependent_element ($element, $part_element); |
| |
} |
| |
else |
| |
{ |
| |
$prev_element = add_t2h_element($element, \@elements_list, $prev_element); |
| |
} |
| |
} |
| |
else |
| |
{ # no node, and $only_nodes |
| |
#print STDERR "$element->{'tag'} $element->{'texi'} not associated with an element\n"; |
| |
} |
| |
} |
| |
} |
| |
|
| |
# find texi2html specific directions and elements that are not texinfo |
| |
# language features. |
| |
# |
| |
# Maybe Config hooks should be used at that point (up to index |
| |
# preparation) |
| |
# |
| |
# find first, last and top elements |
| |
if (@elements_list) |
| |
{ |
| |
$element_first = $elements_list[0]; |
| |
print STDERR "# element first: $element_first->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
# It is the last element before indices split, which may add new |
| |
# elements |
| |
$element_last = $elements_list[-1]; |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "# \@elements_list is empty\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
} |
| |
print STDERR "# top node: $node_top->{'texi'}\n" if (defined($node_top) and |
| |
($T2H_DEBUG & $DEBUG_ELEMENTS)); |
| |
|
| |
# Remark: there are many subtle distinctions among the elements that |
| |
# have a flavor of being at top. First there are the texinfo top |
| |
# elements (if present), namely $section_top for the @top element |
| |
# and $node_top for the @node Top element (and both may be associated). |
| |
|
| |
# Then there is $element_top, set up just below. In addition to |
| |
# $section_top and $node_top, the section associated with $node_top |
| |
# and the first element may be used. $element_top is used to determine |
| |
# file splitting and file names, since it is always associated with |
| |
# $docu_top file. |
| |
|
| |
# The $element_top may have 'top' set, in case it is a node or @top. |
| |
# In that case, special formatting is done, like using print_Top and |
| |
# similar. |
| |
|
| |
# Similarly with element_top, some other nodes than $node_top may |
| |
# get associated with the top node filename without being considered |
| |
# as top otherwise (this is done below). |
| |
|
| |
if (defined($section_top) and $section_top->{'this'}) |
| |
{ |
| |
# element top is the element with @top. |
| |
$element_top = $section_top; |
| |
} |
| |
elsif (defined($node_top) and $node_top->{'this'}) |
| |
{ |
| |
# otherwise top node may be the element_top |
| |
$element_top = $node_top; |
| |
} |
| |
elsif (defined($node_top) and defined($node_top->{'with_section'}) and $node_top->{'with_section'}->{'this'}) |
| |
{ |
| |
# next, the element associated with the @node Top may be |
| |
# the $element_top. In that case $element_top->{'top'} won't be set |
| |
$element_top = $node_top->{'with_section'}; |
| |
} |
| |
elsif (defined($element_first)) |
| |
{ |
| |
# If there is no @top section no top node associated with an element, |
| |
# first element is used |
| |
$element_top = $element_first; |
| |
} |
| |
|
| |
# Rather arbitrarily, 'top' is set for nodes as top elements |
| |
# and @top. This triggers specific formatting, like calling |
| |
# print_Top and similar things. |
| |
if (defined($element_top)) |
| |
{ |
| |
$element_top->{'top'} = 1 if ($element_top->{'node'} or $element_top->{'tag'} eq 'top'); |
| |
print STDERR "# element top: $element_top->{'texi'}\n" if ($element_top and |
| |
($T2H_DEBUG & $DEBUG_ELEMENTS)); |
| |
} |
| |
|
| |
print STDERR "# find fastback and fastforward\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
foreach my $element (@elements_list) |
| |
{ # nodes are ignored here, although their associated sectioning |
| |
# command may be taken into account. |
| |
my $up = get_top($element); |
| |
next unless (defined($up)); |
| |
# take the opportunity to set the first chapter with index |
| |
$element_chapter_index = $up if ($element_index and ($element_index eq $element)); |
| |
# fastforward is the next element on same level than the upper parent |
| |
# element. |
| |
if (exists ($up->{'toplevelnext'})) |
| |
{ |
| |
$element->{'fastforward'} = $up->{'toplevelnext'} |
| |
} |
| |
# if the element isn't at the highest level, fastback is the |
| |
# highest parent element |
| |
if ($up and ($up ne $element)) |
| |
{ |
| |
$element->{'fastback'} = $up; |
| |
} |
| |
elsif ($element->{'toplevel'}) |
| |
{ |
| |
# the element is a top level element, we adjust the next |
| |
# toplevel element fastback |
| |
$element->{'fastforward'}->{'fastback'} = $element if ($element->{'fastforward'}); |
| |
} |
| |
} |
| |
|
| |
# set 'reference_element' which is used each time there is a cross ref |
| |
# to that node (xref and menu entry), to do the href, and also the |
| |
# element heading text. |
| |
# It is the section associated with the node if there are only sections. |
| |
# Since in the default case the target is the node target, even for |
| |
# sections, this, in fact shouldn't lead to a different target, unless |
| |
# the node and the section don't have the same file associated, which could |
| |
# only happen with indices split. The heading text will be different, though. |
| |
# The node name should also always be passed to the formatting functions |
| |
# such that it is always possible for the formatting to chose the node |
| |
# heading over the element heading selected using 'reference_element'. |
| |
if ($only_sections) |
| |
{ |
| |
foreach my $node(@nodes_list) |
| |
{ |
| |
if ($node->{'with_section'}) |
| |
{ |
| |
$node->{'reference_element'} = $node->{'with_section'}; |
| |
} |
| |
} |
| |
} |
| |
# the symmetric is not done for sections, since there is no crossref |
| |
# to sections in texinfo (only to anchors and nodes), so that when |
| |
# there is a link to an element (in Toc, for instance), |
| |
# there is no reason to want to have the node (though, once again, |
| |
# the href is almost surely the same than what would be with the node, |
| |
# the heading would be different). |
| |
|
| |
# end texi2html added directions |
| |
|
| |
# do human readable id |
| |
print STDERR "# find float id\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
foreach my $float (@floats) |
| |
{ |
| |
$float->{'style_id'} = cross_manual_line($float->{'style_texi'}); |
| |
my $float_style = { }; |
| |
if (exists($floats{$float->{'style_id'}})) |
| |
{ |
| |
$float_style = $floats{$float->{'style_id'}}; |
| |
} |
| |
else |
| |
{ |
| |
$floats{$float->{'style_id'}} = $float_style; |
| |
} |
| |
push @{$float_style->{'floats'}}, $float; |
| |
$float->{'absolute_nr'} = scalar(@{$float_style->{'floats'}}); |
| |
my $up = get_top($float->{'element'}); |
| |
if (defined($up) and (!defined($float_style->{'current_chapter'}) or ($up->{'texi'} ne $float_style->{'current_chapter'}))) |
| |
{ |
| |
$float_style->{'current_chapter'} = $up->{'texi'}; |
| |
$float_style->{'nr_in_chapter'} = 1; |
| |
} |
| |
else |
| |
{ |
| |
$float_style->{'nr_in_chapter'}++; |
| |
} |
| |
if (defined($up) and $up->{'toplevel'} and $up->{'number'} ne '') |
| |
{ |
| |
$float->{'chapter_nr'} = $up->{'plain_number'}; |
| |
$float->{'nr'} = $float->{'chapter_nr'} . "." . $float_style->{'nr_in_chapter'}; |
| |
} |
| |
else |
| |
{ |
| |
$float->{'nr'} = $float->{'absolute_nr'}; |
| |
} |
| |
} |
| |
|
| |
print STDERR "# do human-readable index entries id\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
if ($Texi2HTML::Config::NEW_CROSSREF_STYLE) |
| |
{ |
| |
foreach my $entry_region (sort(keys(%{$Texi2HTML::THISDOC{'index_entries_region_array'}}))) |
| |
{ |
| |
foreach my $index_entry (@{$Texi2HTML::THISDOC{'index_entries_region_array'}->{$entry_region}}) |
| |
{ |
| |
my $region = ''; |
| |
$region = "$index_entry->{'region'}-" if (defined($index_entry->{'region'}) and $index_entry->{'region'} ne ''); |
| |
my $index_id = "index-" . $region .$index_entry->{'cross'}; |
| |
my $index = 1; |
| |
# $index > 0 should prevent integer overflow, hopefully |
| |
while (exists($cross_reference_nodes{$index_id}) and $index > 0) |
| |
{ |
| |
$index_id = "index-" . $region . $index_entry->{'cross'} . "-" .$index; |
| |
$index++; |
| |
} |
| |
$index_entry->{'id'} = $index_id; |
| |
$index_entry->{'target'} = $index_id; |
| |
my $texi_entry = "index-".$region.$index_entry->{'texi'}; |
| |
$texi_entry .= "-".$index if ($index > 1); |
| |
push @{$cross_reference_nodes{$index_id}}, $texi_entry; |
| |
} |
| |
} |
| |
} |
| |
|
| |
|
| |
if ($Texi2HTML::Config::NEW_CROSSREF_STYLE) |
| |
{ |
| |
foreach my $key (keys(%nodes)) |
| |
{ |
| |
my $node = $nodes{$key}; |
| |
next if ($node->{'external_node'}); |
| |
$node->{'id'} = node_to_id($node->{'cross_manual_target'}); |
| |
# FIXME if NEW_CROSSREF_STYLE false is it done for anchors? |
| |
$node->{'target'} = $node->{'id'}; |
| |
} |
| |
} |
| |
|
| |
# use %sections and %headings to modify also the headings |
| |
foreach my $section (values(%sections), values(%headings)) |
| |
{ |
| |
if ($Texi2HTML::Config::NEW_CROSSREF_STYLE and ($section->{'cross'} =~ /\S/)) |
| |
{ |
| |
my $section_cross = $section->{'cross'}; |
| |
if (defined($section->{'region'})) |
| |
{ # for headings appearing in special regions like @copying... |
| |
$section_cross = "${target_prefix}-$section->{'region'}_$section_cross"; |
| |
} |
| |
$section->{'cross_manual_target'} = $section_cross; |
| |
|
| |
my $index = 1; |
| |
# $index > 0 should prevent integer overflow, hopefully |
| |
while (exists($cross_reference_nodes{$section->{'cross_manual_target'}}) and $index > 0) |
| |
{ |
| |
$section->{'cross_manual_target'} = $section_cross . "-" .$index; |
| |
$index++; |
| |
} |
| |
my $texi_entry = $section->{'texi'}; |
| |
$texi_entry .= "-".$index if ($index > 1); |
| |
push @{$cross_reference_nodes{$section->{'cross_manual_target'}}}, $texi_entry; |
| |
$section->{'id'} = node_to_id($section->{'cross_manual_target'}); |
| |
} |
| |
} |
| |
# use the associated @part as target if there is an associated part. |
| |
# do it separately to be sure that all the parts have an id. |
| |
foreach my $section (values(%sections), values(%headings)) |
| |
{ |
| |
my $target = $section; |
| |
$target = $section->{'with_part'} if ($section->{'with_part'}); |
| |
if ($Texi2HTML::Config::USE_NODE_TARGET and $target->{'with_node'}) |
| |
{ |
| |
$section->{'target'} = $target->{'with_node'}->{'target'}; |
| |
} |
| |
else |
| |
{ |
| |
$section->{'target'} = $target->{'id'}; |
| |
} |
| |
} |
| |
|
| |
# construct human readable tocid |
| |
foreach my $section (values(%sections)) |
| |
{ |
| |
if ($Texi2HTML::Config::NEW_CROSSREF_STYLE and ($section->{'cross'} =~ /\S/)) |
| |
{ |
| |
foreach my $toc_id (['tocid','toc'], ['stocid', 'stoc']) |
| |
{ |
| |
my $id_string = $toc_id->[0]; |
| |
my $prefix_string = $toc_id->[1]; |
| |
my $cross_string = '-' . $section->{'cross_manual_target'}; |
| |
$section->{$id_string} = $prefix_string . $cross_string; |
| |
my $index = 1; |
| |
# $index > 0 should prevent integer overflow, hopefully |
| |
while (exists($cross_reference_nodes{$section->{$id_string}}) and $index > 0) |
| |
{ |
| |
$section->{$id_string} = $prefix_string . "-" .$index .$cross_string; |
| |
$index++; |
| |
} |
| |
my $texi_entry = $prefix_string.'-'.$section->{'texi'}; |
| |
$texi_entry = $prefix_string .'-'.$index.'-'.$section->{'texi'} if ($index > 1); |
| |
push @{$cross_reference_nodes{$section->{$id_string}}}, $texi_entry; |
| |
} |
| |
} |
| |
} |
| |
if (!$Texi2HTML::Config::NEW_CROSSREF_STYLE) |
| |
{ |
| |
my $tocnr = 1; |
| |
foreach my $element (@elements_list) |
| |
{ |
| |
$element->{'tocid'} = 'TOC' . $tocnr; |
| |
$tocnr++; |
| |
} |
| |
} |
| |
|
| |
# Set file names |
| |
# Find node file names and file names for nodes considered as elements |
| |
my $node_as_top; |
| |
if ($node_top) |
| |
{ |
| |
$node_as_top = $node_top; |
| |
} |
| |
# following possibilities lead to some node being considered |
| |
# as top for the purpose of setting the file node, but not as node_top |
| |
elsif ($element_top->{'with_node'}) |
| |
{ |
| |
$node_as_top = $element_top->{'with_node'}; |
| |
} |
| |
else |
| |
{ |
| |
$node_as_top = $node_first; |
| |
} |
| |
if ($node_as_top) |
| |
{ |
| |
do_node_target_file($node_as_top, 'top'); |
| |
} |
| |
foreach my $key (keys(%nodes)) |
| |
{ |
| |
my $node = $nodes{$key}; |
| |
next if (defined($node_as_top) and ($node eq $node_as_top)); |
| |
do_node_target_file($node,''); |
| |
} |
| |
|
| |
print STDERR "# split(".Texi2HTML::Config::get_conf('SPLIT').") and set files\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
# find document nr and document file for sections and nodes. |
| |
# Split according to Texi2HTML::Config::SPLIT. |
| |
# find file and id for placed elements (anchors, index entries, headings) |
| |
if (Texi2HTML::Config::get_conf('SPLIT')) |
| |
{ |
| |
$Texi2HTML::THISDOC{'split_level'} = $toplevel; |
| |
my $doc_nr = -1; |
| |
if (Texi2HTML::Config::get_conf('SPLIT') eq 'section') |
| |
{ |
| |
$Texi2HTML::THISDOC{'split_level'} = 2 if ($toplevel <= 2); |
| |
} |
| |
my $previous_file; |
| |
my $previous_is_top = 0; |
| |
foreach my $element (@elements_list) |
| |
{ |
| |
print STDERR "# Splitting (".Texi2HTML::Config::get_conf('SPLIT').":$Texi2HTML::THISDOC{'split_level'}) $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
my $new_file = 0; |
| |
if ( |
| |
(!defined($previous_file)) or |
| |
(Texi2HTML::Config::get_conf('SPLIT') eq 'node') or |
| |
( |
| |
defined($element->{'level'}) and ($element->{'level'} <= $Texi2HTML::THISDOC{'split_level'}) |
| |
) or |
| |
( |
| |
!defined($element->{'level'}) and defined($element->{'with_section'}) and ($element->{'with_section'}->{'level'} <= $Texi2HTML::THISDOC{'split_level'}) |
| |
) or |
| |
( # top file after another file |
| |
(defined($previous_file) and ($element eq $element_top) |
| |
and ($previous_file ne $docu_top)) |
| |
) # element following top element is always considered to be |
| |
# in a different file. |
| |
or ($previous_is_top) |
| |
) |
| |
{ |
| |
$new_file = 1; |
| |
$doc_nr++; |
| |
} |
| |
$previous_is_top = 0 if ($previous_is_top); |
| |
|
| |
$element->{'doc_nr'} = $doc_nr; |
| |
$element->{'file'} = "${docu_name}_$doc_nr" |
| |
. (defined($Texi2HTML::THISDOC{'extension'}) ? ".$Texi2HTML::THISDOC{'extension'}" : ''); |
| |
my $use_node_file = 0; |
| |
if ($element eq $element_top) |
| |
{ # the top element |
| |
$element->{'file'} = $docu_top; |
| |
$previous_is_top = 1; |
| |
} |
| |
elsif ($Texi2HTML::Config::NODE_FILENAMES) |
| |
{ |
| |
$use_node_file = 1; |
| |
if ($new_file) |
| |
{ |
| |
my $node = get_node($element); |
| |
if ($node and defined($node->{'node_file'})) |
| |
{ |
| |
$element->{'file'} = $node->{'node_file'}; |
| |
} |
| |
elsif ($element->{'cross'} =~ /\S/) |
| |
{ # use the canonicalized/transliterated section file name. |
| |
$element->{'file'} = $element->{'cross'} |
| |
. (defined($Texi2HTML::THISDOC{'extension'}) ? ".$Texi2HTML::THISDOC{'extension'}" : ''); |
| |
} |
| |
# The remaining case is for sectioning elements with empty |
| |
# headings and no node associated. They will have a name |
| |
# with numbers, like "${docu_name}_$doc_nr", they may |
| |
# collide with split indices names |
| |
} |
| |
else |
| |
{ |
| |
$element->{'file'} = $previous_file; |
| |
} |
| |
} |
| |
$previous_file = $element->{'file'}; |
| |
do_element_targets($element, $use_node_file); |
| |
print STDERR "# [$doc_nr] add_file($use_node_file,$new_file,".var_to_str($previous_file).") $element->{'file'} for $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
add_file($element->{'file'}); |
| |
} |
| |
} |
| |
else |
| |
{ # not split |
| |
add_file($docu_doc); |
| |
foreach my $element(@elements_list) |
| |
{ |
| |
$element->{'file'} = $docu_doc; |
| |
$element->{'doc_nr'} = 0; |
| |
do_element_targets($element); |
| |
} |
| |
} |
| |
# 'pathological' cases. No texinfo sectioning element at all or no |
| |
# texi2html sectioning elements |
| |
if (!@elements_list) |
| |
{ |
| |
if (@all_elements) |
| |
{ |
| |
# in fact this happens only if there is no top element, but still |
| |
# sections, so only if USE_SECTIONS = 0 and there is no node. |
| |
#document_warn ("No elements available for splitting") if (Texi2HTML::Config::get_conf('SPLIT')); |
| |
foreach my $element (@all_elements) |
| |
{ |
| |
#print STDERR "# no \@elements_list. Processing $element->{'texi'}\n"; |
| |
$element->{'file'} = $docu_doc; |
| |
$element->{'doc_nr'} = 0; |
| |
push @{$element->{'place'}}, @{$element->{'current_place'}}; |
| |
do_element_targets($element,$Texi2HTML::Config::NODE_FILENAMES); |
| |
print STDERR "# no \@elements_list, setting $element->{'file'} for $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
} |
| |
add_file($docu_doc); |
| |
} |
| |
else |
| |
{ |
| |
#document_warn ("No elements at all") if (Texi2HTML::Config::get_conf('SPLIT')); |
| |
$element_before_anything->{'file'} = $docu_doc; |
| |
$element_before_anything->{'doc_nr'} = 0; |
| |
do_element_targets($element_before_anything,$Texi2HTML::Config::NODE_FILENAMES); |
| |
print STDERR "# no element at all, setting $element_before_anything->{'file'} for $element_before_anything->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
} |
| |
} |
| |
|
| |
# correct the id and file for the things placed in footnotes |
| |
foreach my $place(@{$footnote_element->{'place'}}) |
| |
{ |
| |
do_place_target_file ($place, $footnote_element, 'footnotes'); |
| |
} |
| |
# if setcontentsaftertitlepage is set, the contents should be associated |
| |
# with the titlepage. That's what is done there. |
| |
push @$no_element_associated_place, $content_element{'contents'} |
| |
if (Texi2HTML::Config::get_conf('contents') and $Texi2HTML::THISDOC{'setcontentsaftertitlepage'}); |
| |
push @$no_element_associated_place, $content_element{'shortcontents'} |
| |
if (Texi2HTML::Config::get_conf('shortcontents') and $Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'}); |
| |
# correct the id and file for the things placed in regions (copying...) |
| |
foreach my $place(@$no_element_associated_place) |
| |
{ |
| |
#print STDERR "entry $place->{'entry'} texi $place->{'texi'}\n"; |
| |
$place->{'element'} = $element_top if (exists($place->{'element'})); |
| |
do_place_target_file ($place, $element_top, 'no_associated_element'); |
| |
} |
| |
|
| |
# determine contents element and files |
| |
foreach my $content_type(keys(%content_element)) |
| |
{ |
| |
# with set*aftertitlepage, there will always be a href to Contents |
| |
# or Overview pointing to the top element, even if there is no |
| |
# titlepage outputed. |
| |
if (!scalar(@{$all_content_elements{$content_type}})) |
| |
{ |
| |
if ($Texi2HTML::Config::INLINE_CONTENTS) |
| |
{ |
| |
print STDERR "# No content $content_type\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
$content_element{$content_type} = undef; |
| |
} |
| |
} |
| |
elsif ($Texi2HTML::Config::INLINE_CONTENTS and !Texi2HTML::Config::get_conf('set' . $content_type .'aftertitlepage')) |
| |
{ # use the last element for references in case there is more than one |
| |
$content_element{$content_type} = $all_content_elements{$content_type}->[-1]; |
| |
} |
| |
} |
| |
my ($toc_file, $stoc_file); |
| |
$toc_file = $docu_toc; |
| |
$stoc_file = $docu_stoc; |
| |
if ($Texi2HTML::Config::INLINE_CONTENTS) |
| |
{ |
| |
$toc_file = $content_element{'contents'}->{'file'} if (defined($content_element{'contents'})); |
| |
$stoc_file = $content_element{'shortcontents'}->{'file'} if (defined($content_element{'shortcontents'})); |
| |
} |
| |
$Texi2HTML::THISDOC{'toc_file'} = $toc_file; |
| |
$Texi2HTML::THISDOC{'stoc_file'} = $stoc_file; |
| |
|
| |
print STDERR "# find NextFile and PrevFile\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
foreach my $element (@elements_list) |
| |
{ |
| |
my $current_element = $element; |
| |
my $file = $current_element->{'file'}; |
| |
my $previous_file; |
| |
while ($current_element->{'back'}) |
| |
{ |
| |
#print STDERR "Back $current_element->{'texi'}\n"; |
| |
$current_element = $current_element->{'back'}; |
| |
if ($current_element->{'file'} ne $file) |
| |
{ |
| |
$previous_file = $current_element->{'file'}; |
| |
last; |
| |
} |
| |
} |
| |
if (defined($previous_file)) |
| |
{ |
| |
while ($current_element->{'back'}) |
| |
{ |
| |
if ($current_element->{'back'}->{'file'} ne $previous_file) |
| |
{ |
| |
last; |
| |
} |
| |
$current_element = $current_element->{'back'}; |
| |
} |
| |
$element->{'prevfile'} = $current_element; |
| |
} |
| |
|
| |
$current_element = $element; |
| |
while ($current_element->{'forward'}) |
| |
{ |
| |
#print STDERR "Fwd $current_element->{'texi'}\n"; |
| |
$current_element = $current_element->{'forward'}; |
| |
if ($current_element->{'file'} ne $file) |
| |
{ |
| |
$element->{'nextfile'} = $current_element; |
| |
} |
| |
} |
| |
} |
| |
# convert directions in direction with first letter in all caps, to be |
| |
# consistent with the convention used in the .init file. |
| |
foreach my $element (@elements_list) |
| |
{ |
| |
foreach my $direction (@element_directions) |
| |
{ |
| |
my $direction_no_caps = $direction; |
| |
$direction_no_caps =~ tr/A-Z/a-z/; |
| |
$element->{$direction} = $element->{$direction_no_caps}; |
| |
} |
| |
} |
| |
|
| |
########################### debug prints |
| |
foreach my $file (keys(%files)) |
| |
{ |
| |
last unless ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
print STDERR "$file: counter $files{$file}->{'counter'}\n"; |
| |
} |
| |
my $output_elements = \@elements_list; |
| |
if (!scalar(@elements_list) and ($T2H_DEBUG & $DEBUG_ELEMENTS)) |
| |
{ |
| |
print STDERR "No elements_list, no texi2html elements\n"; |
| |
$output_elements = \@all_elements; |
| |
} |
| |
foreach my $element ((@$output_elements, $footnote_element)) |
| |
{ |
| |
last unless ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
my $is_toplevel = 'not toplevel'; |
| |
$is_toplevel = 'toplevel' if ($element->{'toplevel'}); |
| |
print STDERR "$element "; |
| |
if ($element->{'node'}) |
| |
{ |
| |
print STDERR "node($element->{'id'}, $is_toplevel, doc_nr $element->{'doc_nr'}($element->{'file'})) $element->{'texi'}:\n"; |
| |
print STDERR " section_ref: $element->{'section_ref'}->{'texi'}\n" if (defined($element->{'section_ref'})); |
| |
print STDERR " with_section: $element->{'with_section'}->{'texi'}\n" if (defined($element->{'with_section'})); |
| |
} |
| |
elsif ($element->{'footnote'}) |
| |
{ |
| |
print STDERR "footnotes($element->{'id'}, file $element->{'file'})\n"; |
| |
} |
| |
else |
| |
{ |
| |
my $number = "UNNUMBERED"; |
| |
$number = $element->{'number'} if ($element->{'number'}); |
| |
print STDERR "$number ($element->{'id'}, $is_toplevel, level $element->{'level'}-$element->{'toc_level'}, doc_nr $element->{'doc_nr'}($element->{'file'})) $element->{'texi'}:\n"; |
| |
print STDERR " with_node: $element->{'with_node'}->{'texi'}\n" if (defined($element->{'with_node'})); |
| |
print STDERR " node_ref: $element->{'node_ref'}->{'texi'}\n" if (defined($element->{'node_ref'})); |
| |
} |
| |
|
| |
if (!$element->{'footnote'}) |
| |
{ |
| |
if (!defined($files{$element->{'file'}})) |
| |
{ |
| |
die "Bug: files{\$element->{'file'}} undef element $element->{'texi'}, file $element->{'file'}."; |
| |
} |
| |
print STDERR " file: $element->{'file'} $files{$element->{'file'}}, counter $files{$element->{'file'}}->{'counter'}\n"; |
| |
} |
| |
print STDERR " level: $element->{'level'}\n" if (defined($element->{'level'})); |
| |
print STDERR " TOP($toplevel) " if ($element->{'top'}); |
| |
print STDERR " u: $element->{'up'}->{'texi'}\n" if (defined($element->{'up'})); |
| |
print STDERR " ch: $element->{'child'}->{'texi'}\n" if (defined($element->{'child'})); |
| |
print STDERR " fb: $element->{'fastback'}->{'texi'}\n" if (defined($element->{'fastback'})); |
| |
print STDERR " b: $element->{'back'}->{'texi'}\n" if (defined($element->{'back'})); |
| |
print STDERR " p: $element->{'prev'}->{'texi'}\n" if (defined($element->{'prev'})); |
| |
print STDERR " u: $element->{'sectionup'}->{'texi'}\n" if (defined($element->{'sectionup'})); |
| |
print STDERR " n: $element->{'sectionnext'}->{'texi'}\n" if (defined($element->{'sectionnext'})); |
| |
print STDERR " t_n: $element->{'toplevelnext'}->{'texi'}\n" if (defined($element->{'toplevelnext'})); |
| |
print STDERR " t_p: $element->{'toplevelprev'}->{'texi'}\n" if (defined($element->{'toplevelprev'})); |
| |
print STDERR " n_u: $element->{'nodeup'}->{'texi'}\n" if (defined($element->{'nodeup'})); |
| |
print STDERR " f: $element->{'forward'}->{'texi'}\n" if (defined($element->{'forward'})); |
| |
print STDERR " follow: $element->{'following'}->{'texi'}\n" if (defined($element->{'following'})); |
| |
print STDERR " m_p: $element->{'menu_prev'}->{'texi'}\n" if (defined($element->{'menu_prev'})); |
| |
print STDERR " m_n: $element->{'menu_next'}->{'texi'}\n" if (defined($element->{'menu_next'})); |
| |
print STDERR " m_u: $element->{'menu_up'}->{'texi'}\n" if (defined($element->{'menu_up'})); |
| |
print STDERR " m_ch: $element->{'menu_child'}->{'texi'}\n" if (defined($element->{'menu_child'})); |
| |
print STDERR " ff: $element->{'fastforward'}->{'texi'}\n" if (defined($element->{'fastforward'})); |
| |
print STDERR " n_f: $element->{'nextfile'}->{'texi'}\n" if (defined($element->{'nextfile'})); |
| |
print STDERR " p_f: $element->{'prevfile'}->{'texi'}\n" if (defined($element->{'prevfile'})); |
| |
my $section_childs = ''; |
| |
if (defined($element->{'section_childs'})) |
| |
{ |
| |
foreach my $child (@{$element->{'section_childs'}}) |
| |
{ |
| |
$section_childs .= "$child->{'texi'}|"; |
| |
} |
| |
} |
| |
print STDERR " s_chs: $section_childs\n" if ($section_childs ne ''); |
| |
my $node_childs = ''; |
| |
if (defined($element->{'node_childs'})) |
| |
{ |
| |
foreach my $child (@{$element->{'node_childs'}}) |
| |
{ |
| |
$node_childs .= "$child->{'texi'}|"; |
| |
} |
| |
} |
| |
print STDERR " n_chs: $node_childs\n" if ($node_childs ne ''); |
| |
|
| |
if (defined($element->{'menu_up_hash'})) |
| |
{ |
| |
print STDERR " parent nodes:\n"; |
| |
foreach my $menu_up (keys%{$element->{'menu_up_hash'}}) |
| |
{ |
| |
print STDERR " $menu_up ($element->{'menu_up_hash'}->{$menu_up})\n"; |
| |
} |
| |
} |
| |
print STDERR " places: $element->{'place'}\n"; |
| |
foreach my $place(@{$element->{'place'}}) |
| |
{ |
| |
if (!$place->{'entry'} and !$place->{'float'} and !$place->{'texi'} and !$place->{'contents'} and !$place->{'shortcontents'} and (!defined($place->{'command'} or $place->{'command'} ne 'printindex'))) |
| |
{ |
| |
print STDERR "BUG: unknown placed stuff ========\n"; |
| |
foreach my $key (keys(%$place)) |
| |
{ |
| |
print STDERR "$key: $place->{$key}\n"; |
| |
} |
| |
print STDERR "==================================\n"; |
| |
} |
| |
elsif ($place->{'entry'}) |
| |
{ |
| |
print STDERR " index($place): $place->{'entry'} ($place->{'id'}, $place->{'file'})\n"; |
| |
} |
| |
elsif ($place->{'anchor'}) |
| |
{ |
| |
print STDERR " anchor: $place->{'texi'} ($place->{'id'}, $place->{'file'})\n"; |
| |
} |
| |
elsif ($place->{'float'}) |
| |
{ |
| |
if (defined($place->{'texi'})) |
| |
{ |
| |
print STDERR " float($place): $place->{'texi'} ($place->{'id'}, $place->{'file'})\n"; |
| |
} |
| |
else |
| |
{ |
| |
print STDERR " float($place): NO LABEL ($place->{'id'}, $place->{'file'})\n"; |
| |
} |
| |
} |
| |
elsif ($place->{'contents'}) |
| |
{ |
| |
print STDERR " contents\n"; |
| |
} |
| |
elsif ($place->{'shortcontents'}) |
| |
{ |
| |
print STDERR " shortcontents\n"; |
| |
} |
| |
elsif (defined($place->{'command'}) and $place->{'command'} eq 'printindex') |
| |
{ |
| |
print STDERR " printindex $place->{'name'}\n"; |
| |
} |
| |
else |
| |
{ |
| |
print STDERR " heading: $place->{'texi'} ($place->{'id'}, $place->{'file'})\n"; |
| |
} |
| |
} |
| |
} |
| |
########################### end debug prints |
| |
} |
| |
|
| |
sub add_file($) |
| |
{ |
| |
my $file = shift; |
| |
if ($files{$file}) |
| |
{ |
| |
$files{$file}->{'counter'}++; |
| |
} |
| |
else |
| |
{ |
| |
$files{$file} = { |
| |
'counter' => 1, |
| |
'relative_foot_num' => 0, |
| |
'foot_lines' => [] |
| |
}; |
| |
} |
| |
} |
| |
|
| |
# find parent element which is a toplevel element |
| |
sub get_top($) |
| |
{ |
| |
my $element = shift; |
| |
if ($element->{'node'}) |
| |
{ |
| |
if (defined($element->{'section_ref'})) |
| |
{ |
| |
$element = $element->{'section_ref'}; |
| |
} |
| |
else |
| |
{ |
| |
return undef; |
| |
} |
| |
} |
| |
return undef if ($element eq $element_before_anything); |
| |
my $up = $element; |
| |
while (!$up->{'toplevel'} and $up->{'tag'} ne 'top') |
| |
{ |
| |
if (!defined($up->{'sectionup'})) |
| |
{ |
| |
# If there is no section, it is normal not to have toplevel element, |
| |
# and it is also the case if there is a low level element before |
| |
# a top level element |
| |
return undef; |
| |
} |
| |
$up = $up->{'sectionup'}; |
| |
} |
| |
return $up; |
| |
} |
| |
|
| |
sub get_node($) |
| |
{ |
| |
my $element = shift; |
| |
return undef if (!defined($element)); |
| |
return $element if ($element->{'node'}); |
| |
return $element->{'with_node'} if ($element->{'with_node'}); |
| |
} |
| |
|
| |
sub do_section_names($$) |
| |
{ |
| |
my $number = shift; |
| |
my $section = shift; |
| |
my $texi = &$Texi2HTML::Config::heading_texi($section->{'tag'}, $section->{'texi'}, $section->{'number'}); |
| |
$section->{'text'} = substitute_line($texi, "\@$section->{'tag'}", undef, $section->{'line_nr'}); |
| |
# no need for translation since there is no line number it should never |
| |
# appear in error messages. |
| |
$section->{'text_nonumber'} = substitute_line($section->{'texi'}, "\@$section->{'tag'} no number"); |
| |
# backward compatibility |
| |
# Removed from doc in nov 2009 |
| |
$section->{'name'} = $section->{'text_nonumber'}; |
| |
$section->{'no_texi'} = remove_texi($texi); |
| |
$section->{'simple_format'} = simple_format(undef,undef,"\@$section->{'tag'} simple_format", $texi); |
| |
$section->{'heading_texi'} = $texi; |
| |
} |
| |
|
| |
# get the html names from the texi for all elements |
| |
sub do_names() |
| |
{ |
| |
print STDERR "# Doing ". scalar(keys(%nodes)) . " nodes, ". |
| |
scalar(keys(%sections)) . " sections, " . |
| |
scalar(keys(%headings)) . " headings in ". $#elements_list . |
| |
" elements\n" if ($T2H_DEBUG); |
| |
# for nodes and anchors we haven't any state defined |
| |
# This seems right, however, as we don't want @refs or @footnotes |
| |
# or @anchors within nodes, section commands or anchors. |
| |
$global_pass = '2 node names'; |
| |
foreach my $node (keys(%nodes)) |
| |
{ |
| |
my $texi = &$Texi2HTML::Config::heading_texi($nodes{$node}->{'tag'}, |
| |
$nodes{$node}->{'texi'}, undef); |
| |
my $command = 'node'; |
| |
$command = $nodes{$node}->{'tag'} if ($nodes{$node}->{'tag'}); |
| |
$nodes{$node}->{'text'} = substitute_line ($texi, "\@$command", {'code_style' => 1}, $nodes{$node}->{'line_nr'}); |
| |
$nodes{$node}->{'text_nonumber'} = $nodes{$node}->{'text'}; |
| |
# backward compatibility -> maybe used to have the name without code_style ? |
| |
# Removed from doc in nov 2009 |
| |
$nodes{$node}->{'name'} = substitute_line($texi, "\@$command name"); |
| |
$nodes{$node}->{'no_texi'} = remove_texi($texi); |
| |
$nodes{$node}->{'simple_format'} = simple_format(undef, undef, "\@$command simple_format", $texi); |
| |
$nodes{$node}->{'heading_texi'} = $texi; |
| |
|
| |
################# debug |
| |
# if $nodes{$node}->{'external_node'} and $nodes{$node}->{'seen'} |
| |
# this is a bug, since there are checks that the node hasn't an |
| |
# external node syntax. |
| |
msg_debug ("$nodes{$node}->{'texi'} is external and was seen", $nodes{$node}->{'line_nr'}) if ($nodes{$node}->{'seen'} and $nodes{$node}->{'external_node'}); |
| |
################# end debug |
| |
} |
| |
$global_pass = '2 section names'; |
| |
foreach my $number (keys(%sections)) |
| |
{ |
| |
do_section_names($number, $sections{$number}); |
| |
} |
| |
$global_pass = '2 heading names'; |
| |
foreach my $number (keys(%headings)) |
| |
{ |
| |
do_section_names($number, $headings{$number}); |
| |
} |
| |
print STDERR "# Names done\n" if ($T2H_DEBUG); |
| |
} |
| |
|
| |
|
| #+++############################################################################ |
#+++############################################################################ |
| # # |
# # |
| |
# Stuff related to Index generation # |
| |
# # |
| |
#---############################################################################ |
| |
|
| |
# called during pass_structure |
| |
sub enter_index_entry($$$$$) |
| |
{ |
| |
my $prefix = shift; |
| |
my $line_nr = shift; |
| |
my $entry = shift; |
| |
my $command = shift; |
| |
my $state = shift; |
| |
|
| |
my $heading_element = $state->{'heading_element'}; |
| |
my $current_element = $state->{'current_element'}; |
| |
my $place = $state->{'place'}; |
| |
my $region = $state->{'region'}; |
| |
|
| |
my $index_name = $index_prefix_to_name{$prefix}; |
| |
if (!defined($index_name)) |
| |
{ |
| |
line_error (sprintf(__("Unknown index `%s'"), $prefix), $line_nr); |
| |
} |
| |
if ($current_element eq $element_before_anything) |
| |
{ |
| |
#line_warn ("Index entry before document: \@${prefix}index $entry", $line_nr); |
| |
line_error (sprintf(__("Entry for index `%s' outside of any node"), $index_name), $line_nr); |
| |
} |
| |
$entry = trim_comment_spaces ($entry, "index entry in \@$command", $line_nr); |
| |
# beware that the texinfo could be non empty, but the no_texi be empty. |
| |
# So the $no_texi should be used to determine whether the entry is |
| |
# empty or not. |
| |
my $no_texi = remove_texi($entry); |
| |
|
| |
my $id; |
| |
# don't add a specific index target if the index entry is in a special |
| |
# region like @copying or the like or the index is not defined |
| |
if (!defined($region)) |
| |
{ |
| |
$region = 'document'; |
| |
# No id if the index is unknown. |
| |
$id = 'IDX' . ++$document_idx_num if (defined($index_name)); |
| |
} |
| |
my $target = $id; |
| |
|
| |
# entry will later be in @code for code-like index entry. texi stays |
| |
# the same. |
| |
my $index_entry = { |
| |
'entry' => $entry, |
| |
'texi' => $entry, |
| |
'element' => $heading_element, |
| |
'real_element' => $current_element, |
| |
'prefix' => $prefix, |
| |
'id' => $id, |
| |
'target' => $target, |
| |
'command' => $command, |
| |
'region' => $state->{'region'}, |
| |
'line_nr' => $line_nr, |
| |
'index_name' => $index_name |
| |
}; |
| |
|
| |
my $id_text = $id; |
| |
$id_text = 'NO ID' if (!defined($id)); |
| |
print STDERR "# in $region enter \@$command ${prefix}index($no_texi) [$entry] with id $id_text ($index_entry)\n" |
| |
if ($T2H_DEBUG & $DEBUG_INDEX); |
| |
|
| |
$index_entry->{'entry'} = '@code{'.$index_entry->{'entry'}.'}' |
| |
if (defined($index_name) and |
| |
defined($index_names{$index_name}->{'prefixes'}) and |
| |
$index_names{$index_name}->{'prefixes'}->{$prefix} |
| |
and $no_texi =~ /\S/); |
| |
|
| |
push @$place, $index_entry; |
| |
|
| |
#msg_debug("enter_index_entry: region $region, index_entry $index_entry, \@$command, texi `$entry'", $line_nr); |
| |
|
| |
# don't add the index entry to the list of index entries used for index |
| |
# entry formatting, if the index entry appears in a region like copying |
| |
# currently this is only used for debugging purposes, since the |
| |
# index entries lists are broken by region now. |
| |
push @index_labels, $index_entry unless (defined($state->{'region'})); |
| |
|
| |
# these lists are used to retrieve index entries in pass 3 |
| |
push @{$Texi2HTML::THISDOC{'index_entries'}->{$region}->{$entry}->{'entries'}}, $index_entry; |
| |
if (defined($index_name)) |
| |
{ |
| |
# this is used for @printindex |
| |
push @{$Texi2HTML::THISDOC{'index_entries_array'}->{$index_name}}, $index_entry; |
| |
# this is used for targets |
| |
push @{$Texi2HTML::THISDOC{'index_entries_region_array'}->{$region}}, $index_entry; |
| |
} |
| |
else |
| |
{ |
| |
push @unknown_index_index_entries, $index_entry; |
| |
} |
| |
} |
| |
|
| |
# these variables are global, so great care should be taken with |
| |
# state->{'multiple_state'}, ->{'region'}, ->{'region_pass'} and |
| |
# {'outside_document'}. |
| |
my $global_head_num = 0; # heading index. it is global for the main doc, |
| |
# and taken from the state if in multiple_pass. |
| |
my $global_foot_num = 0; |
| |
my $global_relative_foot_num = 0; |
| |
my @foot_lines = (); # footnotes |
| |
my $copying_comment = ''; # comment constructed from text between |
| |
# @copying and @end copying with licence |
| |
my %acronyms_like = (); # acronyms or similar commands associated texts |
| |
# the key are the commands, the values are |
| |
# hash references associating shorthands to |
| |
# texts. |
| |
|
| |
# detailmenu number of opened detailed menus |
| |
sub fill_state($) |
| |
{ |
| |
my $state = shift; |
| |
foreach my $key ('preformatted', 'code_style', 'math_style', 'keep_texi', |
| |
'keep_nr', 'detailmenu', 'direntry', 'sec_num', 'menu', 'multiple_pass') |
| |
{ |
| |
$state->{$key} = 0 unless exists($state->{$key}); |
| |
} |
| |
|
| |
$state->{'paragraph_style'} = [ '' ] unless exists($state->{'paragraph_style'}); |
| |
$state->{'preformatted_stack'} = [ '' ] unless exists($state->{'preformatted_stack'}); |
| |
$state->{'command_stack'} = [] unless exists($state->{'command_stack'}); |
| |
$state->{'quotation_stack'} = [] unless exists($state->{'quotation_stack'}); |
| |
# if there is no $state->{'element'} the first element is used |
| |
if ((!$state->{'element'} or $state->{'element'}->{'before_anything'}) and (@elements_list)) |
| |
{ |
| |
$state->{'element'} = $elements_list[0]; |
| |
} |
| |
# this is consistent with what is done in rearrange_elements |
| |
$state->{'element'} = {'file' => $docu_doc, 'texi' => 'VIRTUAL ELEMENT'} if (!$state->{'element'}); |
| |
} |
| |
|
| |
sub do_element_directions ($) |
| |
{ |
| |
my $this_element = shift; |
| |
#print STDERR "Doing hrefs for $this_element->{'texi'} First "; |
| |
$Texi2HTML::HREF{'First'} = href($element_first, $this_element->{'file'}); |
| |
#print STDERR "Last "; |
| |
$Texi2HTML::HREF{'Last'} = href($element_last, $this_element->{'file'}); |
| |
#print STDERR "Index "; |
| |
$Texi2HTML::HREF{'Index'} = href($element_chapter_index, $this_element->{'file'}) if (defined($element_chapter_index)); |
| |
#print STDERR "Top "; |
| |
$Texi2HTML::HREF{'Top'} = href($element_top, $this_element->{'file'}); |
| |
if ($Texi2HTML::Config::INLINE_CONTENTS) |
| |
{ |
| |
$Texi2HTML::HREF{'Contents'} = href($content_element{'contents'}, $this_element->{'file'}); |
| |
$Texi2HTML::HREF{'Overview'} = href($content_element{'shortcontents'}, $this_element->{'file'}); |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::HREF{'Contents'} = file_target_href($Texi2HTML::THISDOC{'toc_file'}, $this_element->{'file'}, $content_element{'contents'}->{'target'}) if (@{$Texi2HTML::TOC_LINES} and defined($content_element{'contents'})); |
| |
$Texi2HTML::HREF{'Overview'} = file_target_href($Texi2HTML::THISDOC{'stoc_file'}, $this_element->{'file'}, $content_element{'shortcontents'}->{'target'}) if (@{$Texi2HTML::OVERVIEW} and defined($content_element{'shortcontents'})); |
| |
} |
| |
if ($Texi2HTML::THISDOC{'do_about'}) |
| |
{ |
| |
$Texi2HTML::HREF{'About'} = file_target_href($docu_about, $this_element->{'file'}, $Texi2HTML::Config::misc_pages_targets{'About'}); |
| |
} |
| |
$Texi2HTML::HREF{'Footnotes'} = file_target_href($docu_foot, $this_element->{'file'}, $Texi2HTML::Config::misc_pages_targets{'Footnotes'}); |
| |
foreach my $direction (@element_directions) |
| |
{ |
| |
my $elem = $this_element->{$direction}; |
| |
$Texi2HTML::NODE{$direction} = undef; |
| |
$Texi2HTML::HREF{$direction} = undef; |
| |
$Texi2HTML::NAME{$direction} = undef; |
| |
#print STDERR "$direction \n"; |
| |
next unless (defined($elem)); |
| |
if ($elem->{'node'} or $elem->{'external_node'} or !$elem->{'seen'}) |
| |
{ |
| |
$Texi2HTML::NODE{$direction} = $elem->{'text'}; |
| |
} |
| |
elsif ($elem->{'with_node'}) |
| |
{ |
| |
$Texi2HTML::NODE{$direction} = $elem->{'with_node'}->{'text'}; |
| |
} |
| |
if (!$elem->{'seen'}) |
| |
{ |
| |
$Texi2HTML::HREF{$direction} = do_external_href($elem->{'texi'}); |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::HREF{$direction} = href($elem, $this_element->{'file'}); |
| |
} |
| |
$Texi2HTML::NAME{$direction} = $elem->{'text'}; |
| |
$Texi2HTML::NO_TEXI{$direction} = $elem->{'no_texi'}; |
| |
$Texi2HTML::SIMPLE_TEXT{$direction} = $elem->{'simple_format'}; |
| |
#print STDERR "$direction ($this_element->{'texi'}): \n NO_TEXI: $Texi2HTML::NO_TEXI{$direction}\n NAME $Texi2HTML::NAME{$direction}\n NODE $Texi2HTML::NODE{$direction}\n HREF $Texi2HTML::HREF{$direction}\n\n"; |
| |
} |
| |
#print STDERR "\nDone hrefs for $this_element->{'texi'}\n"; |
| |
} |
| |
|
| |
sub open_out_file($) |
| |
{ |
| |
my $new_file = shift; |
| |
my $do_page_head = 0; |
| |
# if the filehandle is closed, with fileno undef, open_out |
| |
# is called with the second argument true, which leads to opening |
| |
# the file in append mode, to avoid overwriting the previous |
| |
# file. |
| |
if ($files{$new_file}->{'filehandle'} and defined(fileno($files{$new_file}->{'filehandle'}))) |
| |
{ |
| |
$Texi2HTML::THISDOC{'FH'} = $files{$new_file}->{'filehandle'}; |
| |
} |
| |
else |
| |
{ |
| |
my $known_file = 0; |
| |
if ($files{$new_file}->{'filehandle'}) |
| |
{ |
| |
$known_file = 1; |
| |
document_warn ("The file $new_file was already closed and is reopened"); |
| |
} |
| |
$Texi2HTML::THISDOC{'FH'} = open_out("$docu_rdir$new_file", $known_file); |
| |
#print STDERR "OPEN $docu_rdir$file, $Texi2HTML::THISDOC{'FH'}". scalar($Texi2HTML::THISDOC{'FH'})."\n"; |
| |
$files{$new_file}->{'filehandle'} = $Texi2HTML::THISDOC{'FH'}; |
| |
$do_page_head = !$known_file; |
| |
} |
| |
return $do_page_head; |
| |
} |
| |
|
| |
sub set_line_nr_in_stack($$$) |
| |
{ |
| |
my $state = shift; |
| |
my $stack = shift; |
| |
my $line_nr = shift; |
| |
|
| |
if ($state->{'keep_texi'} and defined($line_nr)) |
| |
{ |
| |
my $stack_index = $#$stack; |
| |
while ($stack_index >= 0 and defined($stack->[$stack_index]->{'keep_line_nr'})) |
| |
{ |
| |
push @{$stack->[$stack_index]->{'keep_line_nr'}}, $line_nr; |
| |
$stack_index --; |
| |
} |
| |
} |
| |
} |
| |
|
| |
sub unref_file($) |
| |
{ |
| |
my $file = shift; |
| |
$files{$file}->{'counter'}--; |
| |
print STDERR "# Unref file $file, remaining counter $files{$file}->{'counter'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
|
| |
} |
| |
|
| |
sub pass_text($$) |
| |
{ |
| |
my $doc_lines = shift; |
| |
my $doc_numbers = shift; |
| |
my %state; |
| |
fill_state(\%state); |
| |
my @stack; |
| |
my $text = ''; |
| |
my $doc_nr; |
| |
my $in_doc = 0; |
| |
my @text =(); |
| |
my $one_section = 1 if (@elements_list <= 1); |
| |
|
| |
push_state(\%state); |
| |
|
| |
$global_pass = '3 prepare names'; |
| |
set_special_names(); |
| |
$footnote_element->{'text'} = $Texi2HTML::NAME{'Footnotes'}; |
| |
# We set titlefont only if the titlefont appeared in the top element |
| |
if (defined($element_top->{'titlefont'})) |
| |
{ |
| |
$Texi2HTML::THISDOC{'titlefont_texi'} = $element_top->{'titlefont'}; |
| |
# backward compatibility nov 2009 |
| |
$value{'_titlefont'} = $element_top->{'titlefont'}; |
| |
} |
| |
|
| |
# prepare %Texi2HTML::THISDOC |
| |
$Texi2HTML::THISDOC{'command_stack'} = $state{'command_stack'}; |
| |
|
| |
#foreach my $texi_cmd (('shorttitlepage', 'settitle', 'author', 'title', |
| |
# 'subtitle')) |
| |
#{ |
| |
# $Texi2HTML::THISDOC{$texi_cmd . '_texi'} = $value{'_' . $texi_cmd}; |
| |
#} |
| |
$Texi2HTML::THISDOC{'top_texi'} = $section_top->{'texi'} if (defined($section_top)); |
| |
|
| |
$Texi2HTML::THISDOC{'fulltitle_texi'} = ''; |
| |
foreach my $possible_fulltitle('settitle', 'title', 'shorttitlepage', 'top', 'titlefont') |
| |
{ |
| |
if (defined($Texi2HTML::THISDOC{$possible_fulltitle . '_texi'}) and $Texi2HTML::THISDOC{$possible_fulltitle . '_texi'} =~ /\S/) |
| |
{ |
| |
$Texi2HTML::THISDOC{'fulltitle_texi'} = $Texi2HTML::THISDOC{$possible_fulltitle . '_texi'}; |
| |
last; |
| |
} |
| |
} |
| |
$Texi2HTML::THISDOC{'simpletitle_texi'} = ''; |
| |
foreach my $possible_simpletitle('settitle', 'shorttitlepage') |
| |
{ |
| |
if (defined($Texi2HTML::THISDOC{$possible_simpletitle . '_texi'}) and $Texi2HTML::THISDOC{$possible_simpletitle . '_texi'} =~ /\S/) |
| |
{ |
| |
$Texi2HTML::THISDOC{'simpletitle_texi'} = $Texi2HTML::THISDOC{$possible_simpletitle . '_texi'}; |
| |
last; |
| |
} |
| |
} |
| |
|
| |
foreach my $doc_thing (('shorttitlepage', 'settitle', 'author', |
| |
'titlefont', 'subtitle', 'title', 'fulltitle', 'simpletitle')) |
| |
{ |
| |
my $thing_texi = $Texi2HTML::THISDOC{$doc_thing . '_texi'}; |
| |
$Texi2HTML::THISDOC{$doc_thing} = substitute_line($thing_texi, "\@$doc_thing", undef, $Texi2HTML::THISDOC{$doc_thing . '_line_nr'}); |
| |
$Texi2HTML::THISDOC{$doc_thing . '_no_texi'} = |
| |
remove_texi($thing_texi); |
| |
$Texi2HTML::THISDOC{$doc_thing . '_simple_format'} = |
| |
simple_format(undef, undef, "simple_format \@$doc_thing", $thing_texi); |
| |
} |
| |
|
| |
|
| |
# find the triplet (Top name, Top with texi removed, Top simply formatted) |
| |
# the corresponding href is used a lot but these are only used because |
| |
# they are used in LINKS_BUTTONS... |
| |
|
| |
my $element_top_Top = [undef,undef,undef]; |
| |
my $node_top_Top = [undef,undef,undef]; |
| |
# Preferred Top name is the element_top name if it is not the @node Top |
| |
# the @node Top may also be used, but before fulltitle is tried |
| |
if (defined($element_top)) |
| |
{ |
| |
if ($element_top->{'node'} and $element_top->{'texi'} =~ /^Top$/i) |
| |
{ |
| |
$node_top_Top = [ $element_top->{'text'}, $element_top->{'no_texi'}, $element_top->{'simple_format'} ]; |
| |
} |
| |
else |
| |
{ |
| |
$element_top_Top = [ $element_top->{'text'}, $element_top->{'no_texi'}, $element_top->{'simple_format'} ]; |
| |
} |
| |
} |
| |
# FIXME remove fulltitle? |
| |
foreach my $possible_top ( |
| |
[substitute_line($Texi2HTML::Config::TOP_HEADING, '$TOP_HEADING'), |
| |
remove_texi($Texi2HTML::Config::TOP_HEADING), |
| |
simple_format(undef, undef, 'simple_format $TOP_HEADING', $Texi2HTML::Config::TOP_HEADING)], |
| |
$element_top_Top, |
| |
[$Texi2HTML::THISDOC{'fulltitle'}, |
| |
$Texi2HTML::THISDOC{'fulltitle_no_texi'}, |
| |
$Texi2HTML::THISDOC{'fulltitle_simple_format'}], |
| |
$node_top_Top |
| |
) |
| |
{ |
| |
if (defined($possible_top->[0]) and $possible_top->[0] =~ /\S/) |
| |
{ |
| |
($Texi2HTML::NAME{'Top'}, $Texi2HTML::NO_TEXI{'Top'}, $Texi2HTML::SIMPLE_TEXT{'Top'}) = @$possible_top; |
| |
last; |
| |
} |
| |
} |
| |
|
| |
$Texi2HTML::THISDOC{'program'} = $THISPROG; |
| |
$Texi2HTML::THISDOC{'program_homepage'} = $T2H_HOMEPAGE; |
| |
$Texi2HTML::THISDOC{'program_authors'} = $T2H_AUTHORS; |
| |
foreach my $command (('authors', 'subtitles', 'titles')) |
| |
{ |
| |
$Texi2HTML::THISDOC{$command} = []; |
| |
my $i; |
| |
for ($i = 0; $i < $#{$Texi2HTML::THISDOC{$command .'_texi'}} + 1; $i++) |
| |
{ |
| |
my $texi_line = $Texi2HTML::THISDOC{$command .'_texi'}->[$i]; |
| |
my $command_line_nr = $Texi2HTML::THISDOC{$command .'_line_nr'}->[$i]; |
| |
chomp ($texi_line); |
| |
$Texi2HTML::THISDOC{$command}->[$i] = substitute_line($texi_line, "\@$command", undef, $command_line_nr); |
| |
#print STDERR "$command:$i: $Texi2HTML::THISDOC{$command}->[$i]\n"; |
| |
} |
| |
} |
| |
|
| |
$Texi2HTML::THISDOC{'do_about'} = 1 unless (defined($Texi2HTML::THISDOC{'do_about'}) or $one_section or (not Texi2HTML::Config::get_conf('SPLIT') and not Texi2HTML::Config::get_conf('headers'))); |
| |
|
| |
$Texi2HTML::NAME{'First'} = $element_first->{'text'}; |
| |
$Texi2HTML::NAME{'Last'} = $element_last->{'text'}; |
| |
$Texi2HTML::NAME{'Index'} = $element_chapter_index->{'text'} if (defined($element_chapter_index)); |
| |
$Texi2HTML::NAME{'Index'} = $Texi2HTML::Config::INDEX_CHAPTER if ($Texi2HTML::Config::INDEX_CHAPTER ne ''); |
| |
|
| |
$Texi2HTML::NO_TEXI{'First'} = $element_first->{'no_texi'}; |
| |
$Texi2HTML::NO_TEXI{'Last'} = $element_last->{'no_texi'}; |
| |
$Texi2HTML::NO_TEXI{'Index'} = $element_chapter_index->{'no_texi'} if (defined($element_chapter_index)); |
| |
$Texi2HTML::SIMPLE_TEXT{'First'} = $element_first->{'simple_format'}; |
| |
$Texi2HTML::SIMPLE_TEXT{'Last'} = $element_last->{'simple_format'}; |
| |
$Texi2HTML::SIMPLE_TEXT{'Index'} = $element_chapter_index->{'simple_format'} if (defined($element_chapter_index)); |
| |
|
| |
# We do the regions formatting here, even if they never appear. |
| |
# so we should be very carefull to take into accout 'outside_document' to |
| |
# avoid messing with information that has to be set in the main document. |
| |
# FIXME also the error messages will appear even though the corresponding |
| |
# texinfo is never used. Since no state is passed to the do_special_region_lines |
| |
# 'outside_document' will be true. Also 'multiple_pass' is equal to -1 |
| |
# for this case. |
| |
$global_pass = '3 prepare regions'; |
| |
|
| |
my ($region_text, $region_no_texi, $region_simple_format); |
| |
($region_text, $region_no_texi, $region_simple_format) = do_special_region_lines('documentdescription'); |
| |
&$Texi2HTML::Config::documentdescription($region_lines{'documentdescription'}, $region_text, $region_no_texi, $region_simple_format); |
| |
|
| |
# do copyright notice inserted in comment at the beginning of the files |
| |
($region_text, $region_no_texi, $region_simple_format) = do_special_region_lines('copying'); |
| |
$copying_comment = &$Texi2HTML::Config::copying_comment($region_lines{'copying'}, $region_text, $region_no_texi, $region_simple_format); |
| |
|
| |
$Texi2HTML::THISDOC{'copying_comment'} = $copying_comment; |
| |
# must be after toc_body, but before titlepage |
| |
foreach my $command ('contents', 'shortcontents') |
| |
{ |
| |
next if (!defined($content_element{$command})); |
| |
my $toc_lines = &$Texi2HTML::Config::inline_contents(undef, $command, $content_element{$command}, \@sections_list); |
| |
@{$Texi2HTML::THISDOC{'inline_contents'}->{$command}} = @$toc_lines if (defined($toc_lines)); |
| |
} |
| |
|
| |
($region_text, $region_no_texi, $region_simple_format) = do_special_region_lines('titlepage'); |
| |
|
| |
&$Texi2HTML::Config::titlepage($region_lines{'titlepage'}, $region_text, $region_no_texi, $region_simple_format); |
| |
|
| |
$global_pass = '3'; |
| |
&$Texi2HTML::Config::init_out(); |
| |
|
| |
# FIXME It is not clear whether it should be here or before |
| |
# command_handler_output calls. After, it means that |
| |
# command_handler_output may modify the initializations. Before |
| |
# it allows to look at the values from the preceding pass. |
| |
texinfo_initialization(2); |
| |
|
| |
foreach my $handler(@Texi2HTML::Config::command_handler_output) |
| |
{ |
| |
&$handler; |
| |
} |
| |
|
| |
############################################################################ |
| |
# print frame and frame toc file |
| |
# |
| |
if ( $Texi2HTML::Config::FRAMES ) |
| |
{ |
| |
my $FH = open_out($docu_frame_file); |
| |
print STDERR "# Creating frame in $docu_frame_file ...\n" if $T2H_VERBOSE; |
| |
&$Texi2HTML::Config::print_frame($FH, $docu_toc_frame_file, $docu_top_file); |
| |
close_out($FH, $docu_frame_file); |
| |
|
| |
$FH = open_out($docu_toc_frame_file); |
| |
print STDERR "# Creating toc frame in $docu_frame_file ...\n" if $T2H_VERBOSE; |
| |
&$Texi2HTML::Config::print_toc_frame($FH, $Texi2HTML::OVERVIEW); |
| |
close_out($FH, $docu_toc_frame_file); |
| |
} |
| |
|
| |
|
| |
|
| |
############################################################################ |
| |
# Start processing the document |
| |
# |
| |
|
| |
#my $FH; |
| |
my $line_nr; |
| |
my $current_file; |
| |
my $first_section = 0; # 1 if it is the first section of a page |
| |
my $previous_is_top = 0; # 1 if it is the element following the top element |
| |
|
| |
my $cline; |
| |
# this is true for the state that goes through the document |
| |
$state{'inside_document'} = 1; |
| |
while (@$doc_lines) |
| |
{ |
| |
$cline = shift @$doc_lines; |
| |
my $chomped_line = $cline; |
| |
if (!chomp($chomped_line) and @$doc_lines) |
| |
{ # if the line has no end of line it is concatenated with the next |
| |
# this shouldn't happen anymore. And will certainly mess up |
| |
# line counting. Let it be a bug. |
| |
msg_debug ("no end of line line passed in doc_line",$line_nr); |
| |
$doc_lines->[0] = $cline . $doc_lines->[0]; |
| |
next; |
| |
} |
| |
$line_nr = shift (@$doc_numbers); |
| |
$Texi2HTML::THISDOC{'line_nr'} = $line_nr; |
| |
print STDERR "BUG: line_nr not defined in pass_text. cline: $cline" if (!defined($cline)); |
| |
#dump_stack(\$text, \@stack, \%state); |
| |
|
| |
# make sure the current state from here is $Texi2HTML::THIS_ELEMENT |
| |
# in case it was set by the user. |
| |
$state{'element'} = $Texi2HTML::THIS_ELEMENT if (defined($Texi2HTML::THIS_ELEMENT)); |
| |
#print STDERR "PASS_TEXT($line_nr->{'line_nr'})$cline"; |
| |
if (!$state{'raw'} and !$state{'verb'}) |
| |
{ |
| |
my $tag = ''; |
| |
$tag = $1 if ($cline =~ /^\@(\w+)/); |
| |
if ($tag eq 'setfilename' and $Texi2HTML::Config::IGNORE_BEFORE_SETFILENAME) |
| |
{ |
| |
if (defined($Texi2HTML::THIS_ELEMENT)) |
| |
{ |
| |
line_warn (sprintf(__("\@%s after the first element"), $tag), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
@{$Texi2HTML::THIS_SECTION} = (); |
| |
} |
| |
} |
| |
|
| |
if (($tag eq 'node') or (defined($sec2level{$tag}) and ($tag !~ /heading/))) |
| |
{ |
| |
# in pass text node and section shouldn't appear in formats |
| |
#print STDERR "close_stack before \@$tag\n"; |
| |
#print STDERR "text!$text%" if (! @stack); |
| |
close_stack(\$text, \@stack, \%state, $line_nr); |
| |
msg_debug ("text undef", $line_nr) if (!defined($text)); |
| |
push @{$Texi2HTML::THIS_SECTION}, $text if ($text ne ''); |
| |
$text = ''; |
| |
|
| |
$state{'sec_num'}++ if ($sec2level{$tag} and ($tag ne 'top')); |
| |
my $new_element; |
| |
my $current_element; |
| |
|
| |
# handle node and structuring elements |
| |
$current_element = shift (@all_elements); |
| |
########################## begin debug section |
| |
if (!defined($current_element)) |
| |
{ |
| |
msg_debug ("No element left for $cline", $line_nr); |
| |
} |
| |
if ($current_element->{'node'}) |
| |
{ |
| |
print STDERR 'NODE ' . "$current_element->{'texi'}($current_element->{'file'})" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
print STDERR "($current_element->{'section_ref'}->{'texi'})" if ($current_element->{'section_ref'} and ($T2H_DEBUG & $DEBUG_ELEMENTS)); |
| |
} |
| |
else |
| |
{ |
| |
print STDERR 'SECTION ' . $current_element->{'texi'} if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
} |
| |
print STDERR ": $cline" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
########################## end debug section |
| |
|
| |
# The element begins a new section if there is no previous |
| |
# or the reference element is not the same |
| |
if (defined($current_element->{'element_ref'}) and (!$Texi2HTML::THIS_ELEMENT or ($current_element->{'element_ref'} ne $Texi2HTML::THIS_ELEMENT))) |
| |
{ |
| |
$new_element = $current_element->{'element_ref'}; |
| |
|
| |
########################### debug |
| |
my $old = 'NO_OLD'; |
| |
$old = $Texi2HTML::THIS_ELEMENT->{'texi'} if (defined($Texi2HTML::THIS_ELEMENT)); |
| |
print STDERR "NEW: $new_element->{'texi'}, OLD: $old\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
########################### end debug |
| |
# print the element that just finished |
| |
if ($Texi2HTML::THIS_ELEMENT) |
| |
{ |
| |
finish_element($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT, $new_element, $first_section); |
| |
$first_section = 0; |
| |
$previous_is_top = 0 if (!$Texi2HTML::THIS_ELEMENT->{'top'}); |
| |
@{$Texi2HTML::THIS_SECTION} = (); |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "# Writing elements:" if ($T2H_VERBOSE); |
| |
if ($Texi2HTML::Config::IGNORE_PREAMBLE_TEXT) |
| |
{ |
| |
@{$Texi2HTML::THIS_SECTION} = (); |
| |
} |
| |
# remove empty for the first document lines |
| |
shift @{$Texi2HTML::THIS_SECTION} while (@{$Texi2HTML::THIS_SECTION} and ($Texi2HTML::THIS_SECTION->[0] =~ /^\s*$/)); |
| |
my $title = &$Texi2HTML::Config::print_title(); |
| |
unshift @{$Texi2HTML::THIS_SECTION}, $title if (defined($title) and $title ne ''); |
| |
} |
| |
# begin new element |
| |
$Texi2HTML::THIS_ELEMENT = $new_element; |
| |
$state{'element'} = $Texi2HTML::THIS_ELEMENT; |
| |
|
| |
do_element_directions($Texi2HTML::THIS_ELEMENT); |
| |
unref_file ($Texi2HTML::THIS_ELEMENT->{'file'}); |
| |
#if (!defined($previous_file) or ($Texi2HTML::THIS_ELEMENT->{'file'} ne $previous_file)) |
| |
if (!defined($current_file) or ($Texi2HTML::THIS_ELEMENT->{'file'} ne $current_file)) |
| |
{ |
| |
$current_file = $Texi2HTML::THIS_ELEMENT->{'file'}; |
| |
print STDERR "\n" if ($T2H_VERBOSE and !$T2H_DEBUG); |
| |
print STDERR "# Writing to $docu_rdir$current_file " if $T2H_VERBOSE; |
| |
my $do_page_head = open_out_file($current_file); |
| |
if ($Texi2HTML::THIS_ELEMENT->{'top'}) |
| |
{ |
| |
&$Texi2HTML::Config::print_Top_header($Texi2HTML::THISDOC{'FH'}, $do_page_head); |
| |
$previous_is_top = 1; |
| |
} |
| |
else |
| |
{ |
| |
&$Texi2HTML::Config::print_page_head($Texi2HTML::THISDOC{'FH'}) if ($do_page_head); |
| |
&$Texi2HTML::Config::print_chapter_header($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT) if Texi2HTML::Config::get_conf('SPLIT') eq 'chapter'; |
| |
&$Texi2HTML::Config::print_section_header($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT) if Texi2HTML::Config::get_conf('SPLIT') eq 'section'; |
| |
} |
| |
$first_section = 1; |
| |
} |
| |
print STDERR "." if ($T2H_VERBOSE); |
| |
print STDERR "\n" if ($T2H_DEBUG); |
| |
} |
| |
|
| |
my $cmd_line = $cline; |
| |
$cmd_line =~ s/\@$tag\s*//; |
| |
|
| |
######################## begin debug |
| |
msg_debug ("Element $current_element current_element->{'tag_level'} not defined", $line_nr) |
| |
if (!defined($current_element->{'tag_level'})); |
| |
msg_debug ("Element $current_element $tag ne ".var_to_str($current_element->{'tag'}), $line_nr) |
| |
if ($tag ne 'node' and (!defined($current_element->{'tag'}) or $tag ne $current_element->{'tag'})); |
| |
msg_debug ("Element $current_element ".var_to_str($current_element->{'tag'})." is not a node, but tag is a node", $line_nr) |
| |
if ($tag eq 'node' and !$current_element->{'node'}); |
| |
######################## end debug |
| |
|
| |
my $heading_formatted = &$Texi2HTML::Config::element_heading($current_element, $tag, $cmd_line, substitute_line($cmd_line, "\@$tag"), undef, $one_section, $current_element->{'this'}, $first_section, $current_element->{'top'}, $previous_is_top, $cline, $current_element->{'id'}, $new_element); |
| |
push @{$Texi2HTML::THIS_SECTION}, $heading_formatted if (defined($heading_formatted) and ($heading_formatted ne '')); |
| |
next; |
| |
} |
| |
} |
| |
|
| |
set_line_nr_in_stack(\%state, \@stack, $line_nr); |
| |
scan_line($cline, \$text, \@stack, \%state, $line_nr); |
| |
|
| |
#print STDERR "after scan_line: $cline"; |
| |
#dump_stack(\$text, \@stack, \%state); |
| |
next if (@stack); |
| |
if ($text ne '') |
| |
{ |
| |
push @{$Texi2HTML::THIS_SECTION}, $text; |
| |
$text = ''; |
| |
} |
| |
} |
| |
# close stack at the end of pass text |
| |
close_stack(\$text, \@stack, \%state, $line_nr); |
| |
if (defined($text)) |
| |
{ |
| |
push @{$Texi2HTML::THIS_SECTION}, $text; |
| |
} |
| |
print STDERR "\n" if ($T2H_VERBOSE); |
| |
|
| |
# if no sections, then simply print document as is |
| |
if ($one_section) |
| |
{ |
| |
# may happen if there are 0 sections |
| |
if (! defined($Texi2HTML::THISDOC{'FH'})) |
| |
{ |
| |
open_out_file($docu_doc); |
| |
&$Texi2HTML::Config::print_page_head($Texi2HTML::THISDOC{'FH'}); |
| |
shift @{$Texi2HTML::THIS_SECTION} while (@{$Texi2HTML::THIS_SECTION} and ($Texi2HTML::THIS_SECTION->[0] =~ /^\s*$/)); |
| |
my $title = &$Texi2HTML::Config::print_title(); |
| |
unshift @{$Texi2HTML::THIS_SECTION}, $title if (defined($title) and $title ne ''); |
| |
} |
| |
if (@foot_lines) |
| |
{ |
| |
&$Texi2HTML::Config::foot_section (\@foot_lines); |
| |
push @{$Texi2HTML::THIS_SECTION}, @foot_lines; |
| |
} |
| |
print STDERR "# Write the section $Texi2HTML::THIS_ELEMENT->{'texi'}\n" if ($T2H_VERBOSE); |
| |
&$Texi2HTML::Config::one_section($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT); |
| |
close_out($Texi2HTML::THISDOC{'FH'}, $docu_doc_file); |
| |
# no misc element is done |
| |
return; |
| |
} |
| |
|
| |
finish_element ($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT, undef, $first_section); |
| |
|
| |
############################################################################ |
| |
# Print ToC, Overview, Footnotes |
| |
# |
| |
foreach my $direction (@element_directions) |
| |
{ |
| |
$Texi2HTML::HREF{$direction} = undef; |
| |
delete $Texi2HTML::HREF{$direction}; |
| |
# it is better to undef in case the references to these hash entries |
| |
# are used, as if deleted, the |
| |
# references are still refering to the old, undeleted element |
| |
# (we could do both) |
| |
$Texi2HTML::NAME{$direction} = undef; |
| |
$Texi2HTML::NO_TEXI{$direction} = undef; |
| |
$Texi2HTML::SIMPLE_TEXT{$direction} = undef; |
| |
$Texi2HTML::NODE{$direction} = undef; |
| |
|
| |
$Texi2HTML::THIS_ELEMENT = undef; |
| |
} |
| |
my $about_body; |
| |
$about_body = &$Texi2HTML::Config::about_body() if (defined($Texi2HTML::Config::about_body)); |
| |
# @foot_lines is emptied in finish_element if footnotestyle separate |
| |
my %misc_page_infos = ( |
| |
'Footnotes' => { 'file' => $docu_foot_file, |
| |
'relative_file' => $docu_foot, |
| |
'process' => $Texi2HTML::Config::print_Footnotes, |
| |
'section' => \@foot_lines }, |
| |
'Contents' => { 'file' => $docu_toc_file, |
| |
'relative_file' => $docu_toc, |
| |
'process' => $Texi2HTML::Config::print_Toc, |
| |
'section' => $Texi2HTML::TOC_LINES }, |
| |
'Overview' => { 'file' => $docu_stoc_file, |
| |
'relative_file' => $docu_stoc, |
| |
'process' => $Texi2HTML::Config::print_Overview, |
| |
'section' => $Texi2HTML::OVERVIEW }, |
| |
'About' => { 'file' => $docu_about_file, |
| |
'relative_file' => $docu_about, |
| |
'process' => $Texi2HTML::Config::print_About, |
| |
'section' => [$about_body] } |
| |
); |
| |
$misc_page_infos{'Footnotes'}->{'do'} = 1 if (@foot_lines); |
| |
$misc_page_infos{'Contents'}->{'do'} = 1 if |
| |
(@{$Texi2HTML::TOC_LINES} and !$Texi2HTML::Config::INLINE_CONTENTS and (!Texi2HTML::Config::get_conf('setcontentsaftertitlepage') or !$Texi2HTML::Config::USE_TITLEPAGE_FOR_TITLE)); |
| |
$misc_page_infos{'Overview'}->{'do'} = 1 if |
| |
(@{$Texi2HTML::OVERVIEW} and !$Texi2HTML::Config::INLINE_CONTENTS and (!Texi2HTML::Config::get_conf('setshortcontentsaftertitlepage') or !$Texi2HTML::Config::USE_TITLEPAGE_FOR_TITLE)); |
| |
$misc_page_infos{'About'}->{'do'} = 1 if ($about_body and $Texi2HTML::THISDOC{'do_about'}); |
| |
|
| |
foreach my $misc_page('Footnotes', 'Contents', 'Overview', 'About') |
| |
{ |
| |
next unless ($misc_page_infos{$misc_page}->{'do'}); |
| |
my $file = $misc_page_infos{$misc_page}->{'file'}; |
| |
my $relative_file = $misc_page_infos{$misc_page}->{'relative_file'}; |
| |
print STDERR "# writing $misc_page in $file\n" if $T2H_VERBOSE; |
| |
my $saved_FH; |
| |
my $open_new = 0; |
| |
if ($relative_file ne $docu_doc) |
| |
{ |
| |
$saved_FH = $Texi2HTML::THISDOC{'FH'}; |
| |
# Use open_out_file not to overwrite a file that the user would have |
| |
# created |
| |
open_out_file ($relative_file); |
| |
print STDERR "# Opening $file for $misc_page\n" if $T2H_VERBOSE; |
| |
$open_new = 1; |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "# writing $misc_page in current file\n" if $T2H_VERBOSE; |
| |
} |
| |
foreach my $href_page (keys(%misc_page_infos)) |
| |
{ |
| |
$Texi2HTML::HREF{$href_page} = file_target_href( |
| |
$misc_page_infos{$href_page}->{'relative_file'}, $relative_file, |
| |
$Texi2HTML::Config::misc_pages_targets{$href_page}) |
| |
if ($misc_page_infos{$href_page}->{'do'}); |
| |
} |
| |
#print STDERR "Doing hrefs for $misc_page First "; |
| |
$Texi2HTML::HREF{'First'} = href($element_first, $relative_file); |
| |
#print STDERR "Last "; |
| |
$Texi2HTML::HREF{'Last'} = href($element_last, $relative_file); |
| |
#print STDERR "Index "; |
| |
$Texi2HTML::HREF{'Index'} = href($element_chapter_index, $relative_file) if (defined($element_chapter_index)); |
| |
#print STDERR "Top "; |
| |
$Texi2HTML::HREF{'Top'} = href($element_top, $relative_file); |
| |
if ($Texi2HTML::Config::INLINE_CONTENTS) |
| |
{ |
| |
$Texi2HTML::HREF{'Contents'} = href($content_element{'contents'}, $relative_file); |
| |
$Texi2HTML::HREF{'Overview'} = href($content_element{'shortcontents'}, $relative_file); |
| |
} |
| |
$Texi2HTML::HREF{$misc_page} = '#' . $Texi2HTML::Config::misc_pages_targets{$misc_page}; |
| |
$Texi2HTML::HREF{'This'} = $Texi2HTML::HREF{$misc_page}; |
| |
$Texi2HTML::NAME{'This'} = $Texi2HTML::NAME{$misc_page}; |
| |
$Texi2HTML::NO_TEXI{'This'} = $Texi2HTML::NO_TEXI{$misc_page}; |
| |
$Texi2HTML::SIMPLE_TEXT{'This'} = $Texi2HTML::SIMPLE_TEXT{$misc_page}; |
| |
$Texi2HTML::THIS_SECTION = $misc_page_infos{$misc_page}->{'section'} |
| |
if defined($misc_page_infos{$misc_page}->{'section'}); |
| |
&{$misc_page_infos{$misc_page}->{'process'}}($Texi2HTML::THISDOC{'FH'}, $open_new, $misc_page); |
| |
|
| |
if ($open_new) |
| |
{ |
| |
close_out($Texi2HTML::THISDOC{'FH'}, $file); |
| |
$Texi2HTML::THISDOC{'FH'} = $saved_FH; |
| |
} |
| |
} |
| |
|
| |
unless (Texi2HTML::Config::get_conf('SPLIT')) |
| |
{ |
| |
&$Texi2HTML::Config::print_page_foot($Texi2HTML::THISDOC{'FH'}); |
| |
# this leaves the possibility for external code to close the file |
| |
# without erroring out |
| |
close_out ($Texi2HTML::THISDOC{'FH'}, $docu_doc_file) if (fileno($Texi2HTML::THISDOC{'FH'})); |
| |
} |
| |
pop_state(); |
| |
} |
| |
|
| |
# print section, close file if needed. |
| |
sub finish_element($$$$) |
| |
{ |
| |
my $FH = shift; |
| |
my $element = shift; |
| |
my $new_element = shift; |
| |
my $first_section = shift; |
| |
#print STDERR "FINISH_ELEMENT($FH)($element->{'texi'})[$element->{'file'}] counter $files{$element->{'file'}}->{'counter'}\n"; |
| |
|
| |
# handle foot notes |
| |
if (Texi2HTML::Config::get_conf('SPLIT') and scalar(@foot_lines) |
| |
and (Texi2HTML::Config::get_conf('footnotestyle') eq 'end') |
| |
and (! $new_element or |
| |
($element and ($new_element->{'file'} ne $element->{'file'}))) |
| |
) |
| |
{ |
| |
if ($files{$element->{'file'}}->{'counter'}) |
| |
{# there are other elements in that page we are not on its foot |
| |
$files{$element->{'file'}}->{'relative_foot_num'} |
| |
= $global_relative_foot_num; |
| |
push @{$files{$element->{'file'}}->{'foot_lines'}}, |
| |
@foot_lines; |
| |
} |
| |
else |
| |
{# we output the footnotes as we are at the file end |
| |
unshift @foot_lines, @{$files{$element->{'file'}}->{'foot_lines'}}; |
| |
&$Texi2HTML::Config::foot_section (\@foot_lines); |
| |
push @{$Texi2HTML::THIS_SECTION}, @foot_lines; |
| |
} |
| |
if ($new_element) |
| |
{ |
| |
$global_relative_foot_num = |
| |
$files{$new_element->{'file'}}->{'relative_foot_num'}; |
| |
} |
| |
@foot_lines = (); |
| |
} |
| |
|
| |
if ($element->{'top'}) |
| |
{ |
| |
############### debug |
| |
#print STDERR "TOP $element->{'texi'}, @{$Texi2HTML::THIS_SECTION}\n"; |
| |
die "element->{'top'} $element ne element_top $element_top" if ($element ne $element_top); |
| |
print STDERR "# Doing element top\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
print STDERR "[Top]" if ($T2H_VERBOSE); |
| |
############### end debug |
| |
|
| |
&$Texi2HTML::Config::print_Top($FH, $element->{'titlefont'}, $element); |
| |
my $end_page = 0; |
| |
if (Texi2HTML::Config::get_conf('SPLIT')) |
| |
{ |
| |
if ($files{$element->{'file'}}->{'counter'} == 0) |
| |
{ |
| |
$end_page = 1; |
| |
} |
| |
} |
| |
&$Texi2HTML::Config::print_Top_footer($FH, $end_page, $element); |
| |
close_out($FH, $docu_top_file) if ($end_page); |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "# do element $element->{'texi'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
&$Texi2HTML::Config::print_section($FH, $first_section, 0, $element); |
| |
################# debug |
| |
my $new_elem_file = 'NO ELEM => no file'; |
| |
$new_elem_file = $new_element->{'file'} if (defined($new_element)); |
| |
print STDERR "# FILES new: $new_elem_file old(".fileno($FH)."): $element->{'file'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
################# end debug |
| |
if (defined($new_element) and ($new_element->{'file'} ne $element->{'file'})) |
| |
{ |
| |
print STDERR "# End of section with change in file(".fileno($FH).") $element->{'file'} -> $new_element->{'file'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
if (!$files{$element->{'file'}}->{'counter'}) |
| |
{ |
| |
&$Texi2HTML::Config::print_chapter_footer($FH, $element) if (Texi2HTML::Config::get_conf('SPLIT') eq 'chapter'); |
| |
&$Texi2HTML::Config::print_section_footer($FH, $element) if (Texi2HTML::Config::get_conf('SPLIT') eq 'section'); |
| |
print STDERR "# Close file(".fileno($FH).") after $element->{'texi'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
&$Texi2HTML::Config::print_page_foot($FH); |
| |
close_out($FH, "$docu_rdir$element->{'file'}"); |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "# Counter $files{$element->{'file'}}->{'counter'} ne 0, file(".fileno($FH).") $element->{'file'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
} |
| |
} |
| |
elsif (!defined($new_element)) |
| |
{ |
| |
print STDERR "# End of last section, file(".fileno($FH).") $element->{'file'}, counter $files{$element->{'file'}}->{'counter'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
if (Texi2HTML::Config::get_conf('SPLIT')) |
| |
{ # end of last splitted section |
| |
&$Texi2HTML::Config::print_chapter_footer($FH, $element) if (Texi2HTML::Config::get_conf('SPLIT') eq 'chapter'); |
| |
&$Texi2HTML::Config::print_section_footer($FH, $element) if (Texi2HTML::Config::get_conf('SPLIT') eq 'section'); |
| |
&$Texi2HTML::Config::print_page_foot($FH); |
| |
close_out($FH, "$docu_rdir$element->{'file'}"); |
| |
} |
| |
else |
| |
{ # end of last unsplit section |
| |
&$Texi2HTML::Config::end_section($FH, 1, $element); |
| |
} |
| |
} |
| |
elsif ($new_element->{'top'}) |
| |
{ |
| |
print STDERR "# Section followed by Top, file(".fileno($FH).") counter $files{$element->{'file'}}->{'counter'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
&$Texi2HTML::Config::end_section($FH, 1, $element); |
| |
} |
| |
else |
| |
{ # end of section followed by another one |
| |
print STDERR "# Section followed by another one, file(".fileno($FH).") counter $files{$element->{'file'}}->{'counter'}\n" |
| |
if ($T2H_DEBUG & $DEBUG_ELEMENTS); |
| |
&$Texi2HTML::Config::end_section($FH, 0, $element); |
| |
} |
| |
} |
| |
} |
| |
|
| |
# write to files with name the node name for cross manual references. |
| |
sub do_node_files() |
| |
{ |
| |
foreach my $key (keys(%nodes)) |
| |
{ |
| |
my $node = $nodes{$key}; |
| |
next unless ($node->{'node_file'}); |
| |
my $redirection_file = $docu_doc; |
| |
$redirection_file = $node->{'file'} if (Texi2HTML::Config::get_conf('SPLIT')); |
| |
if (!$redirection_file) |
| |
{ |
| |
print STDERR "Bug: file for redirection for `$node->{'texi'}' don't exist\n" unless (Texi2HTML::Config::get_conf('novalidate') or !$node->{'seen'}); |
| |
next; |
| |
} |
| |
next if ($redirection_file eq $node->{'node_file'}); |
| |
my $file = "${docu_rdir}$node->{'node_file'}"; |
| |
$Texi2HTML::NODE{'This'} = $node->{'text'}; |
| |
$Texi2HTML::NO_TEXI{'This'} = $node->{'no_texi'}; |
| |
$Texi2HTML::SIMPLE_TEXT{'This'} = $node->{'simple_format'}; |
| |
$Texi2HTML::NAME{'This'} = $node->{'text'}; |
| |
my $href_file = $node->{'file'}; |
| |
if (!defined($href_file)) |
| |
{ |
| |
if (Texi2HTML::Config::get_conf('novalidate')) |
| |
{ |
| |
$href_file = ''; |
| |
} |
| |
else |
| |
{ |
| |
msg_debug ("Undefined file for `$node->{'texi'}' in do_node_files"); |
| |
} |
| |
} |
| |
$Texi2HTML::HREF{'This'} = "$href_file#$node->{'id'}"; |
| |
my $redirect = &$Texi2HTML::Config::print_redirection_page (); |
| |
if (defined($redirect)) |
| |
{ |
| |
my $NODEFILE = open_out ($file); |
| |
print $NODEFILE "$redirect"; |
| |
close $NODEFILE || document_error ("Can't close $file: $!", 1); |
| |
} |
| |
} |
| |
} |
| |
|
| |
#+++############################################################################ |
| |
# # |
| # Low level functions # |
# Low level functions # |
| # # |
# # |
| #---############################################################################ |
#---############################################################################ |
| |
|
| sub update_sec_num { |
sub locate_include_file($) |
| local($name, $level) = @_; |
{ |
| my $ret; |
my $file = shift; |
| |
|
| $level--; # here we start at 0 |
# APA: Don't implicitely search ., to conform with the docs! |
| if ($name =~ /^appendix/) { |
|
| # appendix style |
# if file begins with /, ./ or ../ don't search in -I (Karl) |
| if (defined(@appendix_sec_num)) { |
if ($file =~ m,^(/|\./|\.\./),) |
| &incr_sec_num($level, @appendix_sec_num); |
{ |
| } else { |
return "$file" if (-e "$file" && -r "$file"); |
| @appendix_sec_num = ('A', 0, 0, 0); |
return undef; |
| } |
|
| $ret = join('.', @appendix_sec_num[0..$level]); |
|
| } else { |
|
| # normal style |
|
| if (defined(@normal_sec_num)) { |
|
| &incr_sec_num($level, @normal_sec_num); |
|
| } else { |
|
| @normal_sec_num = (1, 0, 0, 0); |
|
| } |
|
| $ret = join('.', @normal_sec_num[0..$level]); |
|
| } |
} |
| |
foreach my $dir (@Texi2HTML::Config::INCLUDE_DIRS) |
| |
{ |
| |
return "$dir/$file" if (-e "$dir/$file" && -r "$dir/$file"); |
| |
} |
| |
return undef; |
| |
} |
| |
|
| |
sub open_file($$$) |
| |
{ |
| |
my $name = shift; |
| |
# my $line_number = shift; |
| |
my $macro = shift; |
| |
my $files_stack = shift; |
| |
|
| |
my $line_number; |
| |
my $input_spool; |
| |
|
| $ret .= "." if $level == 0; |
local *FH; |
| return $ret; |
if (open(*FH, "<$name")) |
| |
{ |
| |
my $in_encoding = Texi2HTML::Config::get_conf('IN_ENCODING'); |
| |
if (defined($in_encoding) and $Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
binmode(*FH, ":encoding($in_encoding)"); |
| |
} |
| |
my $file = { 'fh' => *FH, |
| |
'input_spool' => { 'spool' => [], |
| |
'macro' => '' }, |
| |
'name' => $name, |
| |
'line_nr' => 0 }; |
| |
unshift(@$files_stack, $file); |
| |
$input_spool = $file->{'input_spool'}; |
| |
$line_number->{'file_name'} = $name; |
| |
$line_number->{'line_nr'} = 1; |
| |
$line_number->{'macro'} = $macro; |
| |
} |
| |
else |
| |
{ |
| |
document_error ("Can't read file $name: $!", 1); |
| |
} |
| |
return ($line_number, $input_spool); |
| } |
} |
| |
|
| sub incr_sec_num { |
my %filehandles = (); |
| local($level, $l); |
|
| $level = shift(@_); |
sub open_out($;$) |
| $_[$level]++; |
{ |
| foreach $l ($level+1 .. 3) { |
my $file = shift; |
| $_[$l] = 0; |
my $append = shift; |
| |
local *FILE; |
| |
#print STDERR "open_out $file $Texi2HTML::THISDOC{'OUT_ENCODING'}\n"; |
| |
if ($file eq '-') |
| |
{ |
| |
binmode(STDOUT, ":encoding($Texi2HTML::THISDOC{'OUT_ENCODING'})") if (defined($Texi2HTML::THISDOC{'OUT_ENCODING'}) and $Texi2HTML::Config::USE_UNICODE); |
| |
return \*STDOUT; |
| } |
} |
| |
|
| |
my $mode = '>'; |
| |
$mode = '>>' if ($append); |
| |
unless (open(FILE, $mode, $file)) |
| |
{ |
| |
document_error ("could not open $file for writing: $!", 1); |
| |
} |
| |
push @opened_files, $file; |
| |
if (defined($Texi2HTML::THISDOC{'OUT_ENCODING'}) and $Texi2HTML::Config::USE_UNICODE) |
| |
{ |
| |
if ($Texi2HTML::THISDOC{'OUT_ENCODING'} eq 'utf8' or $Texi2HTML::THISDOC{'OUT_ENCODING'} eq 'utf-8-strict') |
| |
{ |
| |
binmode(FILE, ':utf8'); |
| |
} |
| |
else |
| |
{ |
| |
binmode(FILE, ':bytes'); |
| |
#binmode(FILE, ":encoding($Texi2HTML::THISDOC{'OUT_ENCODING'})"); |
| |
} |
| |
# FIXME is it useful when in utf8? |
| |
binmode(FILE, ":encoding($Texi2HTML::THISDOC{'OUT_ENCODING'})"); |
| |
} |
| |
$file =~ s/^(\.[\/]+)*//; |
| |
$filehandles{fileno(*FILE)} = $file; |
| |
return *FILE; |
| } |
} |
| |
|
| sub check { |
sub close_out($$) |
| local($_, %seen, %context, $before, $match, $after); |
{ |
| |
my $FH = shift; |
| |
my $file = shift; |
| |
return if (defined($file) and $file eq '-'); |
| |
$file =~ s/^(\.[\/]+)*//; |
| |
my $fileno = fileno($FH); |
| |
#print STDERR "close_out $file $fileno\n"; |
| |
if (!defined($fileno)) |
| |
{ |
| |
msg_debug("fileno not defined for $file") |
| |
} |
| |
elsif (defined($filehandles{$fileno}) and $filehandles{$fileno} ne $file) |
| |
{ |
| |
#msg_debug("filehandles{$fileno} $filehandles{$fileno} and file $file different") |
| |
} |
| |
close ($FH) || document_error ("Error when closing $file: $!"); |
| |
} |
| |
|
| while (<>) { |
sub next_line($$) |
| if (/\@(\*|\.|\:|\@|\{|\})/) { |
{ |
| $seen{$&}++; |
my $line_number = shift; |
| $context{$&} .= "> $_" if $verbose; |
my $files_stack = shift; |
| $_ = "$`XX$'"; |
my $input_spool; |
| redo; |
while (@$files_stack) |
| } |
{ |
| if (/\@(\w+)/) { |
my $file = $files_stack->[0]; |
| ($before, $match, $after) = ($`, $&, $'); |
$line_number->{'file_name'} = $file->{'name'}; |
| if ($before =~ /\b[\w-]+$/ && $after =~ /^[\w-.]*\b/) { # e-mail address |
$input_spool = $file->{'input_spool'}; |
| $seen{'e-mail address'}++; |
if (@{$input_spool->{'spool'}}) |
| $context{'e-mail address'} .= "> $_" if $verbose; |
{ |
| } else { |
$line_number->{'macro'} = $file->{'input_spool'}->{'macro'}; |
| $seen{$match}++; |
$line_number->{'line_nr'} = $file->{'line_nr'}; |
| $context{$match} .= "> $_" if $verbose; |
my $line = shift(@{$input_spool->{'spool'}}); |
| } |
print STDERR "# unspooling $line" if ($T2H_DEBUG & $DEBUG_MACROS); |
| $match =~ s/^\@/X/; |
return($line, $input_spool); |
| $_ = "$before$match$after"; |
} |
| redo; |
else |
| } |
{ |
| |
$file->{'input_spool'}->{'macro'} = ''; |
| |
$line_number->{'macro'} = ''; |
| |
} |
| |
my $fh = $file->{'fh'}; |
| |
no strict "refs"; |
| |
my $line = <$fh>; |
| |
use strict "refs"; |
| |
my $chomped_line = $line; |
| |
$file->{'line_nr'}++ if (defined($line) and chomp($chomped_line)); |
| |
$line_number->{'line_nr'} = $file->{'line_nr'}; |
| |
# do that right now, before any other treatement |
| |
$line =~ s/\x{7F}.*\s*// if (defined($line)); |
| |
return($line, $input_spool) if (defined($line)); |
| |
no strict "refs"; |
| |
close($fh); |
| |
use strict "refs"; |
| |
shift(@$files_stack); |
| } |
} |
| |
return(undef, $input_spool); |
| |
} |
| |
|
| |
sub check_die(;$) |
| |
{ |
| |
my $always_die = shift; |
| |
|
| |
if (!$Texi2HTML::Config::FORCE) |
| |
{ |
| |
if (@opened_files == 1) |
| |
{ |
| |
warn sprintf(__("%s: Removing output file `%s' due to errors; use --force to preserve.\n"), $real_command_name, $opened_files[0]); |
| |
} |
| |
elsif (@opened_files > 1) |
| |
{ |
| |
warn sprintf(__("%s: Removing output files due to errors; use --force to preserve.\n"), $real_command_name); |
| |
} |
| |
foreach my $file (@opened_files) |
| |
{ |
| |
unlink ($file); |
| |
} |
| |
foreach my $dir (@created_directories) |
| |
{ |
| |
rmdir ($dir); |
| |
} |
| |
} |
| |
if ($always_die or !$Texi2HTML::Config::FORCE) |
| |
{ |
| |
exit (1); |
| |
} |
| |
} |
| |
|
| |
sub file_line_warn($$;$) |
| |
{ |
| |
return if ($Texi2HTML::Config::NO_WARN); |
| |
my $text = shift; |
| |
chomp($text); |
| |
my $file = shift; |
| |
my $line_nr = shift; |
| |
|
| |
if (!defined($line_nr)) |
| |
{ |
| |
warn "$file: $text\n"; |
| |
} |
| |
else |
| |
{ |
| |
warn "$file:$line_nr: $text\n"; |
| |
} |
| |
} |
| |
|
| |
sub document_warn ($) |
| |
{ |
| |
return if ($Texi2HTML::Config::NO_WARN); |
| |
my $text = shift; |
| |
chomp ($text); |
| |
warn sprintf(__p("warning: warning_message", "warning: %s\n"), $text); |
| |
} |
| |
|
| |
my $error_nrs = 0; |
| |
sub check_errors() |
| |
{ |
| |
$error_nrs ++; |
| |
die __("Too many errors! Gave up.\n") if ($error_nrs >= $Texi2HTML::Config::ERROR_LIMIT); |
| |
} |
| |
|
| |
sub msg_debug($;$) |
| |
{ |
| |
my $text = shift; |
| |
chomp ($text); |
| |
my $line_number = shift; |
| |
if (defined($line_number)) |
| |
{ |
| |
warn "!! $text " . format_line_number($line_number) . "\n"; |
| |
} |
| |
else |
| |
{ |
| |
warn "!! $text\n"; |
| |
} |
| |
} |
| |
|
| |
sub cmdline_warn ($) |
| |
{ |
| |
my $text = shift; |
| |
#chomp ($text); |
| |
warn sprintf(__p("command_name: warning_message", "%s: %s"), $real_command_name, $text); |
| |
} |
| |
|
| |
# seems not to be used |
| |
sub cmdline_error ($) |
| |
{ |
| |
my $text = shift; |
| |
#chomp ($text); |
| |
warn sprintf(__p("command_name: error_message", "%s: %s"), $real_command_name, $text); |
| |
} |
| |
|
| |
sub document_error($;$) |
| |
{ |
| |
my $text = shift; |
| |
chomp ($text); |
| |
my $die = shift; |
| |
warn ("$text\n"); |
| |
check_die ($die); |
| |
check_errors(); |
| |
} |
| |
|
| |
# echo an error |
| |
sub msg_error($;$) |
| |
{ |
| |
my $text = shift; |
| |
my $line_number = shift; |
| |
if (defined($line_number)) |
| |
{ |
| |
line_error ($text, $line_number); |
| |
} |
| |
else |
| |
{ |
| |
document_error ($text); |
| |
} |
| |
} |
| |
|
| |
# echo a warning |
| |
sub msg_warn($;$$) |
| |
{ |
| |
my $text = shift; |
| |
my $line_number = shift; |
| |
my $context_string = shift; |
| |
|
| |
if (defined($line_number)) |
| |
{ |
| |
line_warn ($text, $line_number); |
| |
} |
| |
elsif (defined($context_string)) |
| |
{ |
| |
document_warn ("$text (in $context_string)"); |
| |
} |
| |
else |
| |
{ |
| |
document_warn ($text); |
| |
} |
| |
} |
| |
|
| |
# echo a warning associated with a line in the document |
| |
sub line_warn($$) |
| |
{ |
| |
return if ($Texi2HTML::Config::NO_WARN); |
| |
my $text = shift; |
| |
chomp ($text); |
| |
my $line_number = shift; |
| |
return if (!defined($line_number)); |
| |
my $file = $line_number->{'file_name'}; |
| |
# otherwise out of source build fail since the file names are different |
| |
$file =~ s/^.*\/// if ($Texi2HTML::Config::TEST); |
| |
if ($line_number->{'macro'} ne '') |
| |
{ |
| |
warn sprintf(__("%s:%d: warning: %s (via \@%s)\n"), $file, $line_number->{'line_nr'}, $text, $line_number->{'macro'}); |
| |
} |
| |
else |
| |
{ |
| |
warn sprintf(__("%s:%d: warning: %s\n"), $file, $line_number->{'line_nr'}, $text); |
| |
} |
| |
} |
| |
|
| |
sub line_error($$) |
| |
{ |
| |
my $text = shift; |
| |
chomp ($text); |
| |
my $line_number = shift; |
| |
if (defined($line_number)) |
| |
{ |
| |
my $file = $line_number->{'file_name'}; |
| |
$file =~ s/^.*\/// if ($Texi2HTML::Config::TEST); |
| |
my $macro_text = ''; |
| |
$macro_text = " (via \@$line_number->{'macro'})" if ($line_number->{'macro'} ne ''); |
| |
warn "$file:$line_number->{'line_nr'}: $text$macro_text\n"; |
| |
check_die(); |
| |
} |
| |
check_errors(); |
| |
} |
| |
|
| |
sub format_line_number(;$) |
| |
{ |
| |
my $line_number = shift; |
| |
$line_number = $Texi2HTML::THISDOC{'line_nr'} if (!defined($line_number)); |
| |
my $macro_text = ''; |
| |
#$line_number = undef; |
| |
return '' unless (defined($line_number)); |
| |
my $print_filename = ($line_number->{'file_name'} ne $Texi2HTML::THISDOC{'input_file_name'}); |
| |
if ($line_number->{'macro'} ne '') |
| |
{ |
| |
if ($print_filename) |
| |
{ |
| |
return sprintf(__("(in %s l. %d via \@%s)"), $line_number->{'file_name'}, $line_number->{'line_nr'}, $line_number->{'macro'}); |
| |
} |
| |
else |
| |
{ |
| |
return sprintf(__("(l. %d via \@%s)"), $line_number->{'line_nr'}, $line_number->{'macro'}); |
| |
} |
| |
} |
| |
elsif ($print_filename) |
| |
{ |
| |
return sprintf(__("(in %s l. %d)"), $line_number->{'file_name'}, $line_number->{'line_nr'}); |
| |
} |
| |
else |
| |
{ |
| |
return sprintf(__("(l. %d)"), $line_number->{'line_nr'}); |
| |
} |
| |
} |
| |
|
| |
# to debug, dump the result of pass_texi and pass_structure in a file |
| |
sub dump_texi($$;$$) |
| |
{ |
| |
my $lines = shift; |
| |
my $pass = shift; |
| |
my $numbers = shift; |
| |
my $file = shift; |
| |
$file = "$docu_rdir$docu_name" . ".pass$pass" if (!defined($file)); |
| |
my $FH = open_out($file); |
| |
print STDERR "# Dump texi\n" if ($T2H_VERBOSE); |
| |
my $index = 0; |
| |
foreach my $line (@$lines) |
| |
{ |
| |
my $number_information = ''; |
| |
my $chomped_line = $line; |
| |
# if defined, it means that an output of the file is asked for |
| |
if (defined($numbers)) |
| |
{ |
| |
my $basefile = $numbers->[$index]->{'file_name'}; |
| |
$basefile = 'no file' if (!defined($basefile)); |
| |
$basefile =~ s|.*/||; |
| |
my $macro_name = $numbers->[$index]->{'macro'}; |
| |
$macro_name = '' if (!defined($macro_name)); |
| |
my $line_number = $numbers->[$index]->{'line_nr'}; |
| |
$line_number = '' if (!defined($line_number)); |
| |
$number_information = "${basefile}($macro_name,$line_number) "; |
| |
} |
| |
print $FH "${number_information}$line"; |
| |
$index++ if (chomp($chomped_line)); |
| |
} |
| |
close_out ($FH, $file); |
| |
} |
| |
|
| |
|
| |
# return next tag on the line |
| |
sub next_tag($) |
| |
{ |
| |
my $line = shift; |
| |
# macro_regexp |
| |
if ($line =~ /^\s*\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])/o or $line =~ /^\s*\@([a-zA-Z][\w-]*)/) |
| |
{ |
| |
return ($1); |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub next_end_tag($) |
| |
{ |
| |
my $line = shift; |
| |
if ($line =~ /^\s*\@end\s+([a-zA-Z][\w-]*)/) |
| |
{ |
| |
return $1; |
| |
} |
| |
return ''; |
| |
} |
| |
|
| |
sub next_tag_or_end_tag($) |
| |
{ |
| |
my $line = shift; |
| |
my $next_tag = next_tag($line); |
| |
return $next_tag if (defined($next_tag) and $next_tag ne ''); |
| |
return next_end_tag($line); |
| |
} |
| |
|
| |
sub top_stack($;$) |
| |
{ |
| |
my $stack = shift; |
| |
my $ignore_para = shift; |
| |
|
| |
my $index = scalar (@$stack); |
| |
return undef unless ($index); |
| |
|
| |
return $stack->[-1] unless ($ignore_para); |
| |
if ($ignore_para == 1) |
| |
{ |
| |
if (exists($stack->[-1]->{'format'}) and ($stack->[-1]->{'format'} eq 'paragraph' or $stack->[-1]->{'format'} eq 'preformatted')) |
| |
{ |
| |
if (exists($stack->[-2])) |
| |
{ |
| |
return $stack->[-2]; |
| |
} |
| |
else |
| |
{ |
| |
return undef; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
return $stack->[-1]; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
while ($index and |
| |
( |
| |
(exists($stack->[$index-1]->{'format'}) |
| |
and ($stack->[$index-1]->{'format'} eq 'paragraph' or $stack->[$index-1]->{'format'} eq 'preformatted')) |
| |
or (exists($stack->[$index-1]->{'style'})) |
| |
)) |
| |
{ |
| |
$index--; |
| |
} |
| |
} |
| |
return undef unless ($index); |
| |
return $stack->[$index-1]; |
| |
} |
| |
|
| |
# return the next element with balanced {} |
| |
sub next_bracketed($$$;$) |
| |
{ |
| |
my $line = shift; |
| |
my $command = shift; |
| |
my $line_nr = shift; |
| |
my $report = shift; |
| |
my $opened_braces = 0; |
| |
my $result = ''; |
| |
my $spaces; |
| |
#print STDERR "next_bracketed $line"; |
| |
if ($line =~ /^(\s*)$/) |
| |
{ |
| |
return ('','',$1); |
| |
} |
| |
while ($line !~ /^\s*$/) |
| |
{ |
| |
#print STDERR "next_bracketed($opened_braces): $result !!! $line"; |
| |
if (!$opened_braces) |
| |
{ # beginning of item |
| |
$line =~ s/^(\s*)//; |
| |
$spaces = $1; |
| |
#if ($line =~ s/^([^\{\}\s]+)//) |
| |
if ($line =~ s/^([^\{\}]+?)(\s+)/$2/ or $line =~ s/^([^\{\}]+?)$//) |
| |
{ |
| |
$result = $1; |
| |
$result = trim_around_spaces($result); |
| |
return ($result, $line, $spaces); |
| |
} |
| |
elsif ($line =~ s/^([^\{\}]+?)([\{\}])/$2/) |
| |
{ |
| |
$result = $1; |
| |
} |
| |
} |
| |
elsif($line =~ s/^([^\{\}]+)//) |
| |
{ |
| |
$result .= $1; |
| |
} |
| |
if ($line =~ s/^([\{\}])//) |
| |
{ |
| |
my $brace = $1; |
| |
$opened_braces++ if ($brace eq '{'); |
| |
$opened_braces-- if ($brace eq '}'); |
| |
|
| foreach (sort(keys(%seen))) { |
if ($opened_braces < 0) |
| if ($verbose) { |
{ |
| print "$_\n"; |
line_error(sprintf(__("Too much '}' in \@%s"), $command), $line_nr) if ($report); |
| print $context{$_}; |
$opened_braces = 0; |
| } else { |
#next; |
| print "$_ ($seen{$_})\n"; |
} |
| } |
$result .= $brace; |
| |
return ($result, $line, $spaces) if ($opened_braces == 0); |
| |
} |
| } |
} |
| |
if ($opened_braces) |
| |
{ |
| |
line_error(sprintf(__("Missing `}' on \@%s line"), $command), $line_nr) if ($report); |
| |
return ($result, '', $spaces); |
| |
#return ($result . ( '}' x $opened_braces), '', $spaces); |
| |
} |
| |
msg_debug ("BUG: at the end of next_bracketed", $line_nr); |
| |
return undef; |
| } |
} |
| |
|
| sub open { |
# def prams are also split at @-commands if not in brackets |
| local($name) = @_; |
sub next_def_param($$$;$) |
| |
{ |
| |
my $line = shift; |
| |
my $command = shift; |
| |
my $line_nr = shift; |
| |
my $report = shift; |
| |
my ($item, $spaces); |
| |
($item, $line, $spaces) = next_bracketed($line, $command, $line_nr, $report); |
| |
return ($item, $line, $spaces) if (!defined($item)); |
| |
if ($item =~ /^\{/) |
| |
{ |
| |
$item =~ s/^\{(.*)\}$/$1/; |
| |
} |
| |
else |
| |
{ |
| |
my $delimeter_quoted = quotemeta($Texi2HTML::Config::def_argument_separator_delimiters); |
| |
if ($item =~ s/^([^\@$delimeter_quoted]+)//) |
| |
{ |
| |
$line = $item . $line; |
| |
$item = $1; |
| |
} |
| |
elsif ($item =~ s/^([$delimeter_quoted])//) |
| |
{ |
| |
$line = $item . $line; |
| |
$item = $1; |
| |
} |
| |
elsif ($item =~ s/^(\@[^\@\{]+)(\@)/$2/) |
| |
{ |
| |
$line = $item . $line; |
| |
$item = $1; |
| |
} |
| |
} |
| |
return ($item, $line, $spaces); |
| |
} |
| |
|
| ++$fh_name; |
# do a href using file and id and taking care of ommitting file if it is |
| if (open($fh_name, $name)) { |
# the same |
| unshift(@fhs, $fh_name); |
# element: structuring element to point to |
| } else { |
# file: current file |
| warn "$ERROR Can't read file $name: $!\n"; |
sub href($$;$) |
| |
{ |
| |
my $element = shift; |
| |
my $file = shift; |
| |
my $line_nr = shift; |
| |
return '' unless defined($element); |
| |
my $href = ''; |
| |
msg_debug("Bug: $element->{'texi'}, target undef", $line_nr) if (!defined($element->{'target'})); |
| |
msg_debug("Bug: $element->{'texi'}, file undef", $line_nr) if (!defined($element->{'file'})); |
| |
msg_debug("Bug: file undef in href", $line_nr) if (!defined($file)); |
| |
$href .= $element->{'file'} if (defined($element->{'file'}) and $file ne $element->{'file'}); |
| |
$href .= "#$element->{'target'}" if (defined($element->{'target'})); |
| |
return $href; |
| |
} |
| |
|
| |
sub file_target_href($$$) |
| |
{ |
| |
my $dest_file = shift; |
| |
my $orig_file = shift; |
| |
my $target = shift; |
| |
my $href = ''; |
| |
$href .= $dest_file if (defined($dest_file) and ($dest_file ne $orig_file)); |
| |
$href .= "#$target" if (defined($target)); |
| |
return $href; |
| |
} |
| |
|
| |
sub trim_around_spaces($) |
| |
{ |
| |
my $text = shift; |
| |
$text =~ s/^\s*//; |
| |
$text =~ s/(\s)\s*$/$1/; |
| |
if ($text =~ /(\@+)\s$/) |
| |
{ |
| |
my $arobases = $1; |
| |
if ((length($arobases) % 2) == 0) |
| |
{ |
| |
$text =~ s/\s$//; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$text =~ s/\s$//; |
| |
} |
| |
return $text; |
| |
} |
| |
|
| |
sub normalise_space($) |
| |
{ |
| |
return undef unless (defined ($_[0])); |
| |
my $text = shift; |
| |
$text =~ s/\s+/ /go; |
| |
$text =~ s/ $//; |
| |
$text =~ s/^ //; |
| |
return $text; |
| |
} |
| |
|
| |
|
| |
sub normalise_texi_space($) |
| |
{ |
| |
return undef unless (defined ($_[0])); |
| |
my $text = shift; |
| |
$text = trim_around_spaces($text); |
| |
$text =~ s/\s+/ /go; |
| |
return $text; |
| |
} |
| |
|
| |
sub normalise_node($) |
| |
{ |
| |
return undef unless (defined ($_[0])); |
| |
my $text = shift; |
| |
$text = normalise_texi_space($text); |
| |
$text =~ s/^top$/Top/i; |
| |
return $text; |
| |
} |
| |
|
| |
sub normalise_node_array($) |
| |
{ |
| |
my $array = shift; |
| |
my @result; |
| |
foreach my $node (@$array) |
| |
{ |
| |
push @result, normalise_node($node); |
| } |
} |
| |
return @result; |
| } |
} |
| |
|
| sub init_input { |
sub do_anchor_label($$$$) |
| @fhs = (); # hold the file handles to read |
{ |
| @input_spool = (); # spooled lines to read |
my $command = shift; |
| $fh_name = 'FH000'; |
#my $anchor = shift; |
| &open($docu); |
my $args = shift; |
| |
my $anchor = $args->[0]; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
#msg_debug("do_anchor_label $state->{'region'} m_p $state->{'multiple_pass'} remove $state->{'remove_texi'} `$anchor'", $line_nr); |
| |
|
| |
$anchor = normalise_node($anchor); |
| |
if ((defined($state->{'multiple_pass'}) and $state->{'multiple_pass'} > 0) or $state->{'outside_document'}) |
| |
{ |
| |
# no warning when outside of document. |
| |
line_warn(sprintf(__("Anchor `%s' ignored in %s expanded more than once"),$anchor, $state->{'region'}), $line_nr) unless ($state->{'outside_document'} or defined($state->{'expansion'})); |
| |
return ''; |
| |
} |
| |
|
| |
if (!exists($nodes{$anchor}) or !defined($nodes{$anchor}->{'id'})) |
| |
{ |
| |
msg_debug("Unknown anchor `$anchor'", $line_nr); |
| |
} |
| |
return &$Texi2HTML::Config::anchor_label($nodes{$anchor}->{'id'}, $anchor, $nodes{$anchor}, $state->{'expansion'}); |
| } |
} |
| |
|
| sub next_line { |
sub get_format_command($) |
| local($fh, $line); |
{ |
| |
my $format = shift; |
| |
my $command = ''; |
| |
my $format_name = ''; |
| |
my $term = 0; |
| |
my $item_nr; |
| |
my $paragraph_number; |
| |
my $enumerate_type; |
| |
my $number; |
| |
|
| |
$command = $format->{'command'} if (defined($format->{'command'})); |
| |
$format_name = $format->{'format'} if (defined($format->{'format'})); |
| |
|
| if (@input_spool) { |
return ($format_name,$command,\$format->{'paragraph_number'},$term, |
| $line = shift(@input_spool); |
$format->{'item_nr'}, $format->{'spec'}, $format->{'number'}, |
| return($line); |
$format->{'stack_at_beginning'}); |
| |
} |
| |
|
| |
sub do_paragraph($$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $state = shift; |
| |
my $stack = shift; |
| |
|
| |
if (!defined ($state->{'paragraph_context'})) |
| |
{ |
| |
msg_debug ("paragraph_context undef", $Texi2HTML::THISDOC{'line_nr'}); |
| |
dump_stack (undef, $stack, $state); |
| } |
} |
| while (@fhs) { |
|
| $fh = $fhs[0]; |
my ($format, $paragraph_command, $paragraph_number, $term, $item_nr, |
| $line = <$fh>; |
$enumerate_type, $number, $stack_at_beginning) |
| return($line) if $line; |
= get_format_command ($state->{'paragraph_context'}); |
| close($fh); |
delete $state->{'paragraph_context'}; |
| shift(@fhs); |
|
| |
my $indent_style = ''; |
| |
if (exists($state->{'paragraph_indent'})) |
| |
{ |
| |
$indent_style = $state->{'paragraph_indent'}; |
| |
$state->{'paragraph_indent'} = undef; |
| |
delete $state->{'paragraph_indent'}; |
| } |
} |
| return(undef); |
my $paragraph_command_formatted; |
| |
$state->{'paragraph_nr'}--; |
| |
(print STDERR "Bug text undef in do_paragraph", return '') unless defined($text); |
| |
my $align = ''; |
| |
$align = $state->{'paragraph_style'}->[-1] if ($state->{'paragraph_style'}->[-1]); |
| |
|
| |
if ($paragraph_command and !exists($Texi2HTML::Config::special_list_commands{$format}->{$paragraph_command})) |
| |
{ |
| |
$paragraph_command_formatted = substitute_line("\@$paragraph_command\{\}", "paragraph \@$format \@$paragraph_command", duplicate_formatting_state($state)); |
| |
} |
| |
return &$Texi2HTML::Config::paragraph($text, $align, $indent_style, $paragraph_command, $paragraph_command_formatted, $paragraph_number, $format, $item_nr, $enumerate_type, $number,$state->{'command_stack'},$stack_at_beginning); |
| } |
} |
| |
|
| # used in pass 1, use &next_line |
sub do_preformatted($$;$) |
| sub skip_until { |
{ |
| local($tag) = @_; |
my $text = shift; |
| local($_); |
my $state = shift; |
| |
my $stack = shift; |
| |
|
| while ($_ = &next_line) { |
if (!defined ($state->{'preformatted_context'})) |
| return if /^\@end\s+$tag\s*$/; |
{ |
| |
msg_debug ("preformatted_context undef", $Texi2HTML::THISDOC{'line_nr'}); |
| |
dump_stack (undef, $stack, $state); |
| } |
} |
| die "* Failed to find '$tag' after: " . $lines[$#lines]; |
|
| |
my ($format, $leading_command, $preformatted_number, $term, $item_nr, |
| |
$enumerate_type, $number,$stack_at_beginning) |
| |
= get_format_command($state->{'preformatted_context'}); |
| |
delete ($state->{'preformatted_context'}); |
| |
my $leading_command_formatted; |
| |
my $pre_style = ''; |
| |
my $class = ''; |
| |
$pre_style = $state->{'preformatted_stack'}->[-1]->{'pre_style'} if ($state->{'preformatted_stack'}->[-1]->{'pre_style'}); |
| |
$class = $state->{'preformatted_stack'}->[-1]->{'class'}; |
| |
print STDERR "BUG: !state->{'preformatted_stack'}->[-1]->{'class'}\n" unless ($class); |
| |
if (defined($leading_command) and $leading_command ne '' and !exists($Texi2HTML::Config::special_list_commands{$format}->{$leading_command})) |
| |
{ |
| |
$leading_command_formatted = substitute_line("\@$leading_command\{\}", "preformatted \@$format \@$leading_command", duplicate_formatting_state($state)); |
| |
} |
| |
return &$Texi2HTML::Config::preformatted($text, $pre_style, $class, $leading_command, $leading_command_formatted, $preformatted_number, $format, $item_nr, $enumerate_type, $number,$state->{'command_stack'},$stack_at_beginning); |
| } |
} |
| |
|
| # |
sub do_external_href($) |
| # HTML stacking to have a better HTML output |
{ |
| # |
# node_id is a unique node identifier with only letters, digits, - and _ |
| |
# node_xhtml_id is almost the same, but xhtml id can only begin with |
| |
# letters, so a prefix has to be appended |
| |
my $texi_node = shift; |
| |
my $file = ''; |
| |
my $node_file = ''; |
| |
my $node_id = ''; |
| |
my $node_xhtml_id = ''; |
| |
|
| sub html_reset { |
#print STDERR "do_external_href $texi_node\n"; |
| @html_stack = ('html'); |
|
| $html_element = 'body'; |
if ($texi_node =~ s/^\((.+?)\)//) |
| |
{ |
| |
$file = $1; |
| |
} |
| |
$texi_node = normalise_node($texi_node); |
| |
if ($texi_node ne '') |
| |
{ |
| |
if (exists($nodes{$texi_node}) and ($nodes{$texi_node}->{'cross_manual_target'})) |
| |
{ |
| |
$node_id = $nodes{$texi_node}->{'cross_manual_target'}; |
| |
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES) |
| |
{ |
| |
$node_file = $nodes{$texi_node}->{'cross_manual_file'}; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES) |
| |
{ |
| |
($node_id, $node_file) = cross_manual_line($texi_node,1); |
| |
} |
| |
else |
| |
{ |
| |
$node_id = cross_manual_line($texi_node); |
| |
} |
| |
} |
| |
$node_xhtml_id = node_to_id($node_id); |
| |
$node_file = $node_id unless ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES); |
| |
} |
| |
return &$Texi2HTML::Config::external_href($texi_node, $node_file, |
| |
$node_xhtml_id, $file); |
| } |
} |
| |
|
| sub html_push { |
# transform node for cross ref name to id suitable for xhtml: an xhtml id |
| local($what) = @_; |
# must begin with a letter. |
| push(@html_stack, $html_element); |
sub node_to_id($) |
| $html_element = $what; |
{ |
| |
my $cross_ref_node_name = shift; |
| |
$cross_ref_node_name =~ s/^([0-9_])/g_t$1/; |
| |
return $cross_ref_node_name; |
| } |
} |
| |
|
| sub html_push_if { |
# return an empty string if the command is not a index command, the prefix |
| local($what) = @_; |
# if it is one |
| push(@html_stack, $html_element) |
sub index_command_prefix($) |
| if ($html_element && $html_element ne 'P'); |
{ |
| $html_element = $what; |
my $command = shift; |
| |
return $1 if ($command =~ /^(\w+?)index/ and ($1 ne 'print') and ($1 ne 'syncode') and ($1 ne 'syn') and ($1 ne 'def') and ($1 ne 'defcode')); |
| |
return ''; |
| } |
} |
| |
|
| sub html_pop { |
# return 1 if the following tag shouldn't begin a line |
| $html_element = pop(@html_stack); |
sub no_line($) |
| |
{ |
| |
my $line = shift; |
| |
my $next_tag = next_tag($line); |
| |
return 1 if (($line =~ /^\s*$/) or $Texi2HTML::Config::no_paragraph_commands{$next_tag} or |
| |
($Texi2HTML::Config::no_paragraph_commands{'cindex'} and (index_command_prefix($next_tag) ne '')) or |
| |
(($line =~ /^\@end\s+(\w+)/) and $Texi2HTML::Config::no_paragraph_commands{"end $1"}) or |
| |
($next_tag =~ /^special_(\w+)_(\d+)$/ and $Texi2HTML::Config::no_paragraph_commands{$1}) |
| |
); |
| |
return 0; |
| } |
} |
| |
|
| sub html_pop_if { |
sub no_paragraph($$) |
| local($elt); |
{ |
| |
my $state = shift; |
| |
my $line = shift; |
| |
return ($state->{'paragraph_context'} or $state->{'preformatted'} or $state->{'remove_texi'} or no_line($line) or $state->{'no_paragraph'}); |
| |
} |
| |
|
| if (@_) { |
# We restart the preformatted format which was stopped |
| foreach $elt (@_) { |
# by the format if in preformatted, and start a paragraph |
| if ($elt eq $html_element) { |
# for the text following the end of the format, if needed |
| $html_element = pop(@html_stack) if @html_stack; |
sub begin_paragraph_after_command($$$$) |
| last; |
{ |
| } |
my $state = shift; |
| } |
my $stack = shift; |
| } else { |
my $command = shift; |
| $html_element = pop(@html_stack) if @html_stack; |
my $text_following = shift; |
| |
|
| |
#if (($state->{'preformatted'} |
| |
# and !$Texi2HTML::Config::format_in_paragraph{$command}) |
| |
if ($state->{'preformatted'} |
| |
or (!no_paragraph($state,$text_following))) |
| |
{ |
| |
begin_paragraph($stack, $state); |
| } |
} |
| } |
} |
| |
|
| sub html_debug { |
# handle raw formatting, ignored regions... |
| local($what, $line) = @_; |
# called from scan_texi, so only in first pass. |
| return("<!-- $line @html_stack, $html_element -->$what") |
sub do_text_macro($$$$$) |
| if $debug & $DEBUG_HTML; |
{ |
| return($what); |
my $type = shift; |
| |
my $line = shift; |
| |
my $state = shift; |
| |
my $stack = shift; |
| |
my $line_nr = shift; |
| |
my $value; |
| |
#print STDERR "do_text_macro $type\n"; |
| |
|
| |
if ($Texi2HTML::Config::texi_formats_map{$type} eq 'raw') |
| |
{ |
| |
$state->{'raw'} = $type; |
| |
#print STDERR "RAW\n"; |
| |
if ($state->{'raw'}) |
| |
{ |
| |
push @$stack, { 'style' => $type, 'text' => '' }; |
| |
} |
| |
} |
| |
elsif ($Texi2HTML::Config::texi_formats_map{$type} eq 'value') |
| |
{ |
| |
if (($line =~ s/(\s+)($VARRE)$//) or ($line =~ s/(\s+)($VARRE)(\s)//)) |
| |
{ |
| |
$value = $1 . $2; |
| |
$value .= $3 if defined($3); |
| |
if ($state->{'ignored'}) |
| |
{ |
| |
if ($type eq $state->{'ignored'}) |
| |
{ |
| |
$state->{'ifvalue_inside'}++; |
| |
} |
| |
# if 'ignored' we don't care about the command as long as |
| |
# the nesting is correct |
| |
return ($line,''); |
| |
} |
| |
my $open_ignored_ifvalue = 0; |
| |
if ($type eq 'ifclear') |
| |
{ |
| |
if (defined($value{$2})) |
| |
{ |
| |
$open_ignored_ifvalue = 1; |
| |
} |
| |
else |
| |
{ |
| |
push @{$state->{'text_macro_stack'}}, $type; |
| |
} |
| |
} |
| |
elsif ($type eq 'ifset') |
| |
{ |
| |
unless (defined($value{$2})) |
| |
{ |
| |
$open_ignored_ifvalue = 1; |
| |
} |
| |
else |
| |
{ |
| |
push @{$state->{'text_macro_stack'}}, $type; |
| |
} |
| |
} |
| |
if ($open_ignored_ifvalue) |
| |
{ |
| |
$state->{'ignored'} = $type; |
| |
$state->{'ifvalue'} = $type; |
| |
$state->{'ifvalue_inside'} = 1; |
| |
# We add at the top of the stack to be able to close all |
| |
# opened comands when closing the ifset/ifclear (and ignore |
| |
# everything that is in those commands) |
| |
push @$stack, { 'style' => 'ifvalue', 'text' => '' }; |
| |
} |
| |
} |
| |
else |
| |
{ # we accept a lone @ifset or @ifclear if it is nested in an @if* |
| |
if ($state->{'ifvalue'} and $type eq $state->{'ifvalue'}) |
| |
{ |
| |
$state->{'ifvalue_inside'}++; |
| |
return ($line,''); |
| |
} |
| |
line_error (sprintf(__("%c%s requires a name"), ord('@'), $type), $line_nr) unless ($state->{'ignored'}); |
| |
} |
| |
} |
| |
elsif (not $Texi2HTML::Config::texi_formats_map{$type}) |
| |
{ # ignored text |
| |
$state->{'ignored'} = $type; |
| |
#print STDERR "IGNORED\n"; |
| |
} |
| |
else |
| |
{ |
| |
push @{$state->{'text_macro_stack'}}, $type unless($state->{'ignored'}) ; |
| |
} |
| |
my $text = "\@$type"; |
| |
$text .= $value if defined($value); |
| |
return ($line, $text); |
| } |
} |
| |
|
| # to debug the output... |
# do regions handled specially, for example tex or math going through latex2html |
| sub debug { |
sub init_special($$) |
| local($what, $line) = @_; |
{ |
| return("<!-- $line -->$what") |
my $style = shift; |
| if $debug & $DEBUG_HTML; |
my $text = shift; |
| return($what); |
if (defined($Texi2HTML::Config::command_handler{$style}) and |
| |
defined($Texi2HTML::Config::command_handler{$style}->{'init'})) |
| |
{ |
| |
$special_commands{$style}->{'count'} = 0 if (!defined($special_commands{$style})); |
| |
if ($Texi2HTML::Config::command_handler{$style}->{'init'}($style,$text, |
| |
$special_commands{$style}->{'count'} +1)) |
| |
{ |
| |
$special_commands{$style}->{'count'}++; |
| |
return "\@special_${style}_".$special_commands{$style}->{'count'}."{}"; |
| |
} |
| |
return ''; |
| |
} |
| } |
} |
| |
|
| sub normalise_node { |
sub reset_index_entries($) |
| $_[0] =~ s/\s+/ /g; |
{ |
| $_[0] =~ s/ $//; |
my $region = shift; |
| $_[0] =~ s/^ //; |
if (defined($Texi2HTML::THISDOC{'index_entries'}->{$region})) |
| |
{ |
| |
foreach my $entry (values(%{$Texi2HTML::THISDOC{'index_entries'}->{$region}})) |
| |
{ |
| |
if (scalar(@{$entry->{'entries'}}) > 1) |
| |
{ |
| |
$entry->{'index'} = 0; |
| |
} |
| |
} |
| |
} |
| |
if (defined($Texi2HTML::THISDOC{'indices_numbers'}->{$region})) |
| |
{ |
| |
foreach my $index_name (keys(%{$Texi2HTML::THISDOC{'indices_numbers'}->{$region}})) |
| |
{ |
| |
$Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name} = undef; |
| |
} |
| |
} |
| } |
} |
| |
|
| sub menu_entry { |
# FIXME we cannot go through the commands too 'often'. The error messages |
| local($entry, $node, $descr) = @_; |
# are duplicated and global stuff is changed. |
| local($href); |
# -> identify what is global |
| |
# -> use local state |
| |
sub do_special_region_lines($;$$) |
| |
{ |
| |
my $region = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| &normalise_node($node); |
# this case covers something like |
| $href = $node2href{$node}; |
# @copying |
| if ($href) { |
# @insertcopying |
| $descr =~ s/^\s+//; |
# @end copying |
| $descr = ": $descr" if $descr; |
if (defined($state) and exists($state->{'region'}) and ($region eq $state->{'region'})) |
| push(@lines2, "<LI>" . &anchor('', $href, $entry) . "$descr\n"); |
{ |
| } else { |
line_error(sprintf(__("Region %s inside region %s is not allowed"), $region, $state->{'region'}), $line_nr); |
| warn "$ERROR Undefined node ($node): $_"; |
return ('','', ''); |
| } |
} |
| |
|
| |
print STDERR "# do_special_region_lines for region $region ['multiple_pass','region_pass']: ($region_initial_state{$region}->{'multiple_pass'}, $region_initial_state{$region}->{'region_pass'})" if ($T2H_DEBUG); |
| |
if (!defined($state)) |
| |
{ |
| |
$state = {}; |
| |
fill_state($state); |
| |
$state->{'outside_document'} = 1; |
| |
print STDERR " outside document\n" if ($T2H_DEBUG); |
| |
} |
| |
elsif (!$state->{'outside_document'}) |
| |
{ |
| |
$region_initial_state{$region}->{'multiple_pass'}++; |
| |
print STDERR " multiple pass $region_initial_state{$region}->{'multiple_pass'}\n" if ($T2H_DEBUG); |
| |
} |
| |
else |
| |
{ |
| |
print STDERR " in $state->{'region'}, outside document\n" if ($T2H_DEBUG); |
| |
} |
| |
|
| |
return ('','','') unless @{$region_lines{$region}}; |
| |
|
| |
my @result; |
| |
|
| |
foreach my $context ('normal', 'remove_texi', 'simple_format') |
| |
{ |
| |
print STDERR "# $context\n" if ($T2H_DEBUG); |
| |
my $new_state = duplicate_formatting_state($state); |
| |
reset_index_entries($region); |
| |
foreach my $key (keys(%{$region_initial_state{$region}})) |
| |
{ |
| |
$new_state->{$key} = $region_initial_state{$region}->{$key}; |
| |
} |
| |
$new_state->{'remove_texi'} = 1 if ($context eq 'remove_texi'); |
| |
|
| |
&$Texi2HTML::Config::begin_special_region($region,$new_state,$region_lines{$region}) |
| |
if (defined($Texi2HTML::Config::begin_special_region)); |
| |
|
| |
|
| |
my $line_numbers; |
| |
my $context_string = "$region ($region_initial_state{$region}->{'multiple_pass'}, $region_initial_state{$region}->{'region_pass'})"; |
| |
if ($context eq 'normal') |
| |
{ # the line numbers are given only for the normal context, therefore |
| |
# there will be error messages only in that case |
| |
$line_numbers = [ @{$region_line_nrs{$region}} ]; |
| |
} |
| |
else |
| |
{ |
| |
$context_string = "$context $context_string"; |
| |
} |
| |
|
| |
my $result; |
| |
if ($context ne 'simple_format') |
| |
{ |
| |
$result = substitute_text($new_state, $line_numbers, |
| |
$context_string, @{$region_lines{$region}}); |
| |
} |
| |
else |
| |
{ |
| |
$result = simple_format($new_state, $line_numbers, |
| |
$context_string, @{$region_lines{$region}}); |
| |
} |
| |
$result = &$Texi2HTML::Config::end_special_region($region,$new_state,$result) |
| |
if (defined($Texi2HTML::Config::end_special_region)); |
| |
|
| |
push @result, $result; |
| |
$region_initial_state{$region}->{'region_pass'}++; |
| |
} |
| |
|
| |
return @result; |
| } |
} |
| |
|
| sub do_ctrl { "^$_[0]" } |
sub do_insertcopying($$) |
| |
{ |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my ($text, $comment, $simple_formatted) = do_special_region_lines('copying', $state, $line_nr); |
| |
return &$Texi2HTML::Config::insertcopying($text, $comment, $simple_formatted); |
| |
} |
| |
|
| sub do_email { |
sub get_deff_index($$$$) |
| local($addr, $text) = split(/,\s*/, $_[0]); |
{ |
| |
my $tag = shift; |
| |
my $line = shift; |
| |
my $line_nr = shift; |
| |
my $warn = shift; |
| |
|
| |
$tag =~ s/x$//; |
| |
my ($command, $style, $category, $name, $type, $class, $arguments, $args_array, $args_type_array); |
| |
($command, $style, $category, $name, $type, $class, $arguments, $args_array, $args_type_array) = parse_def($tag, $line, $line_nr, $warn); |
| |
$name = &$Texi2HTML::Config::definition_index_entry($name, $class, $style, $command); |
| |
return ($style, '') if (!defined($name) or ($name =~ /^\s*$/)); |
| |
return ($style, $name, $arguments); |
| |
} |
| |
|
| $text = $addr unless $text; |
sub parse_def($$$;$) |
| &anchor('', "mailto:$addr", $text); |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $line_nr = shift; |
| |
my $report = shift; |
| |
|
| |
my $format = $command; |
| |
|
| |
if (!ref ($Texi2HTML::Config::def_map{$command})) |
| |
{ |
| |
# substitute shortcuts for definition commands |
| |
my $substituted = $Texi2HTML::Config::def_map{$command}; |
| |
$substituted =~ s/(\w+)//; |
| |
$format = $1; |
| |
$line = $substituted . $line; |
| |
} |
| |
#print STDERR "PARSE_DEF($command,$format) $line"; |
| |
my ($category, $name, $type, $class, $arguments); |
| |
my @arguments = (); |
| |
my @args = @{$Texi2HTML::Config::def_map{$format}}; |
| |
my $style = shift @args; |
| |
my @arg_types = (); |
| |
while (@args and $args[0] ne 'arg' and $args[0] ne 'argtype') |
| |
{ |
| |
my $arg = shift @args; |
| |
# backward compatibility, it was possible to have a { in front. |
| |
$arg =~ s/^\{//; |
| |
my ($item, $spaces); |
| |
($item, $line, $spaces) = next_def_param($line, $command, $line_nr, $report); |
| |
last if (!defined($item)); |
| |
if ($arg eq 'category') |
| |
{ |
| |
$category = $item; |
| |
} |
| |
elsif ($arg eq 'name') |
| |
{ |
| |
$name = $item; |
| |
} |
| |
elsif ($arg eq 'type') |
| |
{ |
| |
$type = $item; |
| |
} |
| |
elsif ($arg eq 'class') |
| |
{ |
| |
$class = $item; |
| |
} |
| |
push @arg_types, $arg; |
| |
push @arguments, $item; |
| |
} |
| |
my $line_remaining = $line; |
| |
$line = ''; |
| |
my $arg_and_type = 1; |
| |
foreach my $arg (@args) |
| |
{ |
| |
if ($arg eq 'arg') |
| |
{ |
| |
$arg_and_type = 0; |
| |
last; |
| |
} |
| |
elsif ($arg eq 'argtype') |
| |
{ |
| |
last; |
| |
} |
| |
} |
| |
|
| |
my $always_delimiter_quoted = quotemeta($Texi2HTML::Config::def_always_delimiters); |
| |
my $in_type_delimiter_quoted = quotemeta($Texi2HTML::Config::def_in_type_delimiters); |
| |
my $after_type = 0; |
| |
while ($line_remaining !~ /^\s*$/) |
| |
{ |
| |
my ($item, $spaces); |
| |
($item, $line_remaining,$spaces) = next_def_param($line_remaining, $command, $line_nr); |
| |
if ($item =~ /^([$always_delimiter_quoted])/ or (!$arg_and_type and $item =~ /^([$in_type_delimiter_quoted].*)/)) |
| |
{ |
| |
$item = $1; |
| |
push @arg_types, 'delimiter'; |
| |
$after_type = 0; |
| |
} |
| |
elsif (!$arg_and_type or $item =~ /^\@/ or $after_type) |
| |
{ |
| |
push @arg_types, 'param'; |
| |
$after_type = 0; |
| |
} |
| |
elsif ($item =~ /^([$in_type_delimiter_quoted])/) |
| |
{ |
| |
push @arg_types, 'delimiter'; |
| |
} |
| |
else |
| |
{ |
| |
push @arg_types, 'paramtype'; |
| |
$after_type = 1; |
| |
} |
| |
$spaces = ' ' if ($spaces); |
| |
$line .= $spaces . $item; |
| |
push @arguments, $spaces .$item; |
| |
} |
| |
#print STDERR "PARSE_DEF (style $style, category $category, name $name, type $type, class $class, line $line)\n"; |
| |
return ($format, $style, $category, $name, $type, $class, $line, \@arguments, \@arg_types); |
| } |
} |
| |
|
| sub do_sc { "\U$_[0]\E" } |
sub begin_paragraph($$) |
| |
{ |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
|
| sub do_uref { |
my $command = { }; |
| local($url, $text) = split(/,\s*/, $_[0]); |
my $top_format = top_format($stack); |
| |
if (defined($top_format)) |
| |
{ |
| |
$command = $top_format; |
| |
} |
| |
$command->{'stack_at_beginning'} = [ @{$state->{'command_stack'}} ]; |
| |
my $paragraph_or_preformatted = 'paragraph'; |
| |
if ($state->{'preformatted'}) |
| |
{ |
| |
$paragraph_or_preformatted = 'preformatted'; |
| |
$state->{'preformatted_context'} = $command; |
| |
} |
| |
else |
| |
{ |
| |
$state->{'paragraph_context'} = $command; |
| |
$state->{'paragraph_nr'}++; |
| |
} |
| |
push @$stack, {'format' => $paragraph_or_preformatted, 'text' => '' }; |
| |
# FIXME give line, and modify line? |
| |
&$Texi2HTML::Config::begin_paragraph_texi($paragraph_or_preformatted, |
| |
$state->{'paragraph_macros'}, $command, $state, $stack) |
| |
if (defined($Texi2HTML::Config::begin_paragraph_texi)); |
| |
# if there are macros which weren't closed when the previous |
| |
# paragraph was closed we reopen them here |
| |
push @$stack, @{$state->{'paragraph_macros'}} if $state->{'paragraph_macros'}; |
| |
delete $state->{'paragraph_macros'}; |
| |
} |
| |
|
| $text = $url unless $text; |
sub parse_format_command($$) |
| &anchor('', $url, $text); |
{ |
| |
my $line = shift; |
| |
my $tag = shift; |
| |
my $command = ''; |
| |
|
| |
my $orig_line = $line; |
| |
# macro_regexp |
| |
if ($line =~ s/^\s*\@([A-Za-z][\w-]*)(\{\})?\s*$//) |
| |
{ |
| |
$command = $1; |
| |
$command = $alias{$command} if (exists($alias{$command})); |
| |
} |
| |
return ('', $command) if ($line =~ /^\s*$/); |
| |
chomp $line; |
| |
$line = substitute_text ({'keep_nr' => 1, 'keep_texi' => 1, 'check_item' => $tag}, undef, "parse_format_command", $line); |
| |
return ($line, $command); |
| } |
} |
| |
|
| sub do_url { &anchor('', $_[0], $_[0]) } |
sub parse_enumerate($) |
| |
{ |
| |
my $line = shift; |
| |
my $spec; |
| |
if ($line =~ /^\s*(\w)\b/ and ($1 ne '_')) |
| |
{ |
| |
$spec = $1; |
| |
$line =~ s/^\s*(\w)\s*//; |
| |
} |
| |
return ($line, $spec); |
| |
} |
| |
|
| sub apply_style { |
sub parse_multitable($$) |
| local($texi_style, $text) = @_; |
{ |
| local($style); |
my $line = shift; |
| |
my $line_nr = shift; |
| |
# first find the table width |
| |
my $table_width = 0; |
| |
my $fractions; |
| |
my $elements; |
| |
if ($line =~ s/^\s+\@columnfractions\s+//) |
| |
{ |
| |
@$fractions = split /\s+/, $line; |
| |
$table_width = scalar(@$fractions); |
| |
foreach my $fraction (@$fractions) |
| |
{ |
| |
unless ($fraction =~ /^(\d*\.\d+)|(\d+)\.?$/) |
| |
{ |
| |
line_error (sprintf(__("column fraction not a number: %s"), $fraction), $line_nr); |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
my $element; |
| |
my $line_orig = $line; |
| |
while ($line !~ /^\s*$/) |
| |
{ |
| |
my $spaces; |
| |
($element, $line, $spaces) = next_bracketed($line, 'multitable', $line_nr, 1); |
| |
if ($element =~ /^\{/) |
| |
{ |
| |
$table_width++; |
| |
$element =~ s/^\{//; |
| |
$element =~ s/\}\s*$//; |
| |
push @$elements, $element; |
| |
} |
| |
else |
| |
{ |
| |
line_warn (sprintf(__("ignoring stray text `%s' after \@multitable"), $element), $line_nr); |
| |
} |
| |
} |
| |
} |
| |
return ($table_width, $fractions, $elements); |
| |
} |
| |
|
| $style = $style_map{$texi_style}; |
sub end_format($$$$$) |
| if (defined($style)) { # known style |
{ |
| if ($style =~ /^\"/) { # add quotes |
my $text = shift; |
| $style = $'; |
my $stack = shift; |
| $text = "\`$text\'"; |
my $state = shift; |
| } |
my $format = shift; |
| if ($style =~ /^\&/) { # custom |
my $line_nr = shift; |
| $style = $'; |
#msg_debug ("END FORMAT $format", $line_nr); |
| $text = &$style($text); |
#dump_stack($text, $stack, $state); |
| } elsif ($style) { # good style |
#sleep 1; |
| $text = "<$style>$text</$style>"; |
if ($format_type{$format} eq 'menu') |
| } else { # no style |
{ |
| } |
$state->{$format}--; |
| } else { # unknown style |
if ($state->{$format} < 0) |
| $text = undef; |
{ # FIXME currently happens, see invalid/not_closed_in_menu.texi |
| |
line_error(sprintf(__("Too many %s closed"), $format), $line_nr); |
| |
#print STDERR "Bug, $format counter negative: $state->{$format}\n"; |
| |
#dump_stack($text, $stack, $state); |
| |
#exit 1; |
| |
$state->{$format} = 0; |
| |
} |
| |
close_menu_comment($text, $stack, $state, "\@end $format", $line_nr); |
| } |
} |
| return($text); |
|
| |
if ($format_type{$format} eq 'list') |
| |
{ # those functions return if they detect an inapropriate context |
| |
add_item($text, $stack, $state, $line_nr); # handle lists |
| |
} |
| |
elsif ($format eq 'multitable') |
| |
{ |
| |
add_row($text, $stack, $state, $line_nr); # handle multitable |
| |
} |
| |
elsif ($format_type{$format} eq 'table') |
| |
{ |
| |
add_term($text, $stack, $state, $line_nr); # handle table |
| |
add_line($text, $stack, $state, $line_nr); # handle table |
| |
} |
| |
|
| |
#print STDERR "END_FORMAT\n"; |
| |
#dump_stack($text, $stack, $state); |
| |
|
| |
# set to 1 if there is a mismatch between the closed format and format |
| |
# opened before |
| |
my $format_mismatch = 0; |
| |
# set to 1 in normal menu context after an end menu or detailmenu |
| |
my $begin_menu_comment_after_end_format = 0; |
| |
|
| |
my $format_ref = pop @$stack; |
| |
|
| |
######################### debug |
| |
if (!defined($format_ref->{'text'})) |
| |
{ |
| |
push @$stack, $format_ref; |
| |
print STDERR "Bug: text undef in end_format $format\n"; |
| |
dump_stack($text, $stack, $state); |
| |
pop @$stack; |
| |
} |
| |
######################### end debug |
| |
|
| |
if ($region_lines{$format}) |
| |
{ |
| |
######################### debug |
| |
if ($format ne $state->{'region_lines'}->{'format'}) |
| |
{ |
| |
msg_debug ("Bug: mismatched region `$format' ne `$state->{'region_lines'}->{'format'}'"); |
| |
} |
| |
######################### end debug |
| |
$state->{'region_lines'}->{'number'}--; |
| |
if ($state->{'region_lines'}->{'number'} == 0) |
| |
{ |
| |
close_region($state); |
| |
} |
| |
} |
| |
|
| |
if ($format_type{$format} eq 'table' or $format_type{$format} eq 'list' or $format eq 'multitable') |
| |
{ |
| |
if ($format_ref->{'format'} ne $format) |
| |
{ # for example vtable closing a table. Cannot be known |
| |
# before if in a cell |
| |
$format_mismatch = 1; |
| |
line_error (sprintf(__("`\@end' expected `%s', but saw `%s'"), $format_ref->{'format'}, $format), $line_nr); |
| |
|
| |
} |
| |
if (!$format_ref->{'empty_first'} and $format_ref->{'item_nr'} == 0) |
| |
{ |
| |
line_warn (sprintf(__("\@%s has text but no \@item"),$format_ref->{'format'}), $line_nr); |
| |
} |
| |
} |
| |
|
| |
if (defined($Texi2HTML::Config::def_map{$format})) |
| |
{ |
| |
close_stack($text, $stack, $state, $line_nr, 'deff_item') |
| |
unless ($format_ref->{'format'} eq 'deff_item'); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::def_item($format_ref->{'text'}, $format_ref->{'only_inter_commands'}, $format_ref->{'orig_command'})); |
| |
$format_ref = pop @$stack; # pop deff |
| |
######################################### debug |
| |
if (!defined($format_ref->{'format'}) or !defined($Texi2HTML::Config::def_map{$format_ref->{'format'}})) |
| |
{ |
| |
print STDERR "Bug: not a def* under deff_item\n"; |
| |
push (@$stack, $format_ref); |
| |
dump_stack($text, $stack, $state); |
| |
pop @$stack; |
| |
} |
| |
######################################### end debug |
| |
elsif ($format_ref->{'format'} ne $format) |
| |
{ |
| |
$format_mismatch = 1; |
| |
line_error (sprintf(__("`\@end' expected `%s', but saw `%s'"), $format_ref->{'format'}, $format), $line_nr); |
| |
} |
| |
add_prev($text, $stack, &$Texi2HTML::Config::def($format_ref->{'text'}, $format_ref->{'orig_format'})); |
| |
} |
| |
elsif ($format eq 'float') |
| |
{ |
| |
unless (defined($state->{'float'})) |
| |
{ |
| |
msg_debug("state->{'float'} not defined in float", $line_nr); |
| |
next; |
| |
} |
| |
my ($caption_lines, $shortcaption_lines) = &$Texi2HTML::Config::caption_shortcaption($state->{'float'}); |
| |
my ($caption_text, $shortcaption_text); |
| |
my $caption_state = duplicate_formatting_state($state); |
| |
push @{$caption_state->{'command_stack'}}, 'caption'; |
| |
$caption_text = substitute_text($caption_state, undef, '@caption in @end float', @$caption_lines) if (defined($caption_lines)); |
| |
|
| |
my $shortcaption_state = duplicate_formatting_state($state); |
| |
push @{$shortcaption_state->{'command_stack'}}, 'shortcaption'; |
| |
$shortcaption_text = substitute_text($shortcaption_state, undef, '@shortcaption in @end float', @$shortcaption_lines) if (defined($shortcaption_lines)); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::float($format_ref->{'text'}, $state->{'float'}, $caption_text, $shortcaption_text)); |
| |
delete $state->{'float'}; |
| |
} |
| |
# FIXME $complex_format_map obsoleted in nov 2009 |
| |
elsif ((exists ($Texi2HTML::Config::complex_format_map->{$format}) |
| |
or exists ($Texi2HTML::Config::complex_format_map{$format})) |
| |
and ($format_type{$format} ne 'menu' or $Texi2HTML::Config::SIMPLE_MENU)) |
| |
{ |
| |
$state->{'preformatted'}--; |
| |
pop @{$state->{'preformatted_stack'}}; |
| |
my $complex_format; |
| |
if (exists ($Texi2HTML::Config::complex_format_map->{$format})) |
| |
{ |
| |
$complex_format = $Texi2HTML::Config::complex_format_map->{$format}; |
| |
} |
| |
else |
| |
{ |
| |
$complex_format = $Texi2HTML::Config::complex_format_map{$format}; |
| |
} |
| |
# debug |
| |
if (!defined($complex_format->{'begin'})) |
| |
{ |
| |
msg_debug ("Bug undef $format_ref->{'format'}" . "->{'begin'} (for $format...)", $line_nr); |
| |
dump_stack ($text, $stack, $state); |
| |
} |
| |
if ($fake_format{$format_ref->{'format'}} and $format_ref->{'text'} =~ /^\s*$/) |
| |
{ |
| |
# discard empty fake formats |
| |
} |
| |
#print STDERR "before $format\n"; |
| |
#dump_stack ($text, $stack, $state); |
| |
else |
| |
{ |
| |
add_prev($text, $stack, &$Texi2HTML::Config::complex_format($format_ref->{'format'}, $format_ref->{'text'})); |
| |
} |
| |
#print STDERR "after $format\n"; |
| |
#dump_stack ($text, $stack, $state); |
| |
} |
| |
elsif ($format_type{$format} eq 'table' or $format_type{$format} eq 'list' or $format eq 'multitable') |
| |
{ |
| |
if (exists ($Texi2HTML::Config::format_map{$format})) |
| |
{ # table or list has a simple format |
| |
add_prev($text, $stack, end_simple_format($format_ref->{'format'}, $format_ref->{'text'}, $state)); |
| |
} |
| |
else |
| |
{ # table or list handler defined by the user |
| |
add_prev($text, $stack, &$Texi2HTML::Config::table_list($format_ref->{'format'}, $format_ref->{'text'}, $format_ref->{'command'}, $format_ref->{'formatted_command'}, $format_ref->{'item_nr'}, $format_ref->{'spec'}, $format_ref->{'prepended'}, $format_ref->{'prepended_formatted'}, $format_ref->{'columnfractions'}, $format_ref->{'prototype_row'}, $format_ref->{'prototype_lengths'}, $format_ref->{'max_columns'})); |
| |
} |
| |
} |
| |
elsif ($format_type{$format} eq 'quotation') |
| |
{ |
| |
my $quotation_args = pop @{$state->{'quotation_stack'}}; |
| |
#add_prev($text, $stack, &$Texi2HTML::Config::quotation($format, $format_ref->{'text'}, $quotation_args->{'text'}, $quotation_args->{'text_texi'})); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::quotation($format, $format_ref->{'text'}, $format_ref->{'argument_text'}, $format_ref->{'argument_texi'}, $format_ref->{'quote_authors'})); |
| |
} |
| |
elsif ($Texi2HTML::Config::paragraph_style{$format}) |
| |
{ |
| |
if ($state->{'paragraph_style'}->[-1] eq $format) |
| |
{ |
| |
pop @{$state->{'paragraph_style'}}; |
| |
} |
| |
if ($fake_format{$format_ref->{'format'}} and $format_ref->{'text'} =~ /^\s*$/) |
| |
{ |
| |
# discard empty fake formats |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, &$Texi2HTML::Config::paragraph_style_command($format_ref->{'format'},$format_ref->{'text'})); |
| |
} |
| |
} |
| |
elsif (exists($Texi2HTML::Config::format_map{$format})) |
| |
{ |
| |
if ($fake_format{$format_ref->{'format'}} and $format_ref->{'text'} =~ /^\s*$/) |
| |
{ |
| |
# discard empty fake formats |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, end_simple_format($format_ref->{'format'}, $format_ref->{'text'}, $state)); |
| |
} |
| |
} |
| |
elsif ($format_type{$format} eq 'cartouche') |
| |
{ |
| |
add_prev($text, $stack, &$Texi2HTML::Config::cartouche($format_ref->{'text'},$state->{'command_stack'})); |
| |
} |
| |
elsif ($format_type{$format} eq 'menu') |
| |
{ |
| |
# it should be short-circuited if $Texi2HTML::Config::SIMPLE_MENU |
| |
if ($state->{'preformatted'}) |
| |
{ |
| |
# remove the fake complex style |
| |
$state->{'preformatted'}--; |
| |
pop @{$state->{'preformatted_stack'}}; |
| |
} |
| |
|
| |
# backward compatibility with 1.78 jun 2007 |
| |
if (defined($Texi2HTML::Config::menu)) |
| |
{ |
| |
if ($format eq 'menu') |
| |
{ |
| |
add_prev($text, $stack, &$Texi2HTML::Config::menu($format_ref->{'text'})); |
| |
} |
| |
elsif ($format eq 'detailmenu') # detailmenu |
| |
{ |
| |
add_prev($text, $stack, $format_ref->{'text'}); |
| |
} |
| |
else # direntry |
| |
{ |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, &$Texi2HTML::Config::menu_command($format, $format_ref->{'text'}, $state->{'preformatted'})); |
| |
} |
| |
$begin_menu_comment_after_end_format = 1; |
| |
} |
| |
else |
| |
{ |
| |
line_warn(sprintf(__("Unknown format %s"), $format), $line_nr); |
| |
} |
| |
|
| |
# fake formats are not on the command_stack |
| |
return 1 if ($fake_format{$format_ref->{'format'}}); |
| |
# special case for center as it is at the bottom of the stack |
| |
my $removed_from_stack; |
| |
if ($format eq 'center') |
| |
{ |
| |
$removed_from_stack = shift @{$state->{'command_stack'}}; |
| |
} |
| |
else |
| |
{ |
| |
$removed_from_stack = pop @{$state->{'command_stack'}}; |
| |
} |
| |
if ($removed_from_stack ne $format and !$format_mismatch) |
| |
{ |
| |
#line_error ("Bug: removed_from_stack $removed_from_stack ne format $format", $line_nr); |
| |
# it may not be a bug. Consider, for example a @code{in code |
| |
# @end cartouche |
| |
# The @code is closed when the paragraph is closed by |
| |
# @end cartouche but not really closed since it might have been |
| |
# a multiple paragraph @code. So it is not removed from |
| |
# command_stack but still have disapeared from the stack! |
| |
line_error(sprintf(__("mismatched \@end %s with \@%s"), $format, $removed_from_stack), $line_nr); |
| |
} |
| |
if ($begin_menu_comment_after_end_format and $state->{'menu'}) |
| |
{ |
| |
begin_format($text, $stack, $state, 'menu_comment', '', $line_nr); |
| |
return 0; |
| |
} |
| |
return 1; |
| } |
} |
| |
|
| # remove Texinfo styles |
sub push_complex_format_style($$$$) |
| sub remove_style { |
{ |
| local($_) = @_; |
my $command = shift; |
| s/\@\w+{([^\{\}]+)}/$1/g; |
my $complex_format = shift; |
| return($_); |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $class = $command; |
| |
|
| |
if (!defined($state->{'preformatted_stack'})) |
| |
{ |
| |
msg_debug ("'preformatted_stack' not defined in push_complex_format_style", $line_nr); |
| |
} |
| |
|
| |
$class = $complex_format->{'class'} if (defined($complex_format->{'class'})); |
| |
my $format_style = {'pre_style' =>$complex_format->{'pre_style'}, 'class' => $class, 'command' => $command }; |
| |
if (defined($complex_format->{'style'})) |
| |
{ |
| |
$format_style->{'style'} = $complex_format->{'style'}; |
| |
} |
| |
else |
| |
{ |
| |
if ($state->{'preformatted'} and defined($state->{'preformatted_stack'}->[-1]->{'style'})) |
| |
{ |
| |
$format_style->{'style'} = $state->{'preformatted_stack'}->[-1]->{'style'}; |
| |
} |
| |
my $index = scalar(@{$state->{'preformatted_stack'}}) -1; |
| |
# since preformatted styles are not nested, the preformatted format |
| |
# of the first format with style has to be used |
| |
if ($index > 0) |
| |
{ |
| |
while ($index) |
| |
{ |
| |
if ($state->{'preformatted_stack'}->[$index]->{'style'}) |
| |
{ |
| |
$format_style->{'class'} = $state->{'preformatted_stack'}->[$index]->{'class'} if (defined($state->{'preformatted_stack'}->[$index]->{'class'})); |
| |
last; |
| |
} |
| |
$index--; |
| |
} |
| |
} |
| |
} |
| |
$state->{'preformatted'}++; |
| |
push @{$state->{'preformatted_stack'}}, $format_style; |
| } |
} |
| |
|
| sub substitute_style { |
sub prepare_state_multiple_pass($$) |
| local($_) = @_; |
{ |
| local($changed, $done, $style, $text); |
my $command = shift; |
| |
my $state = shift; |
| |
my $return_state = { |
| |
'multiple_pass' => 1, |
| |
'element' => $state->{'element'}, |
| |
'outside_document' => $state->{'outside_document'}, |
| |
'new_state' => 1 |
| |
}; |
| |
if (defined($command)) |
| |
{ |
| |
$return_state->{'expansion'} = $command; |
| |
$return_state->{'command_stack'} = ["$command"]; |
| |
} |
| |
else |
| |
{ |
| |
msg_debug("prepare_state_multiple_pass command not defined"); |
| |
} |
| |
return $return_state; |
| |
} |
| |
|
| $changed = 1; |
sub begin_format($$$$$$); |
| while ($changed) { |
|
| $changed = 0; |
sub begin_format($$$$$$) |
| $done = ''; |
{ |
| while (/\@(\w+){([^\{\}]+)}/) { |
my $text = shift; |
| $text = &apply_style($1, $2); |
my $stack = shift; |
| if ($text) { |
my $state = shift; |
| $_ = "$`$text$'"; |
my $macro = shift; |
| $changed = 1; |
my $line = shift; |
| } else { |
my $line_nr = shift; |
| $done .= "$`\@$1"; |
#msg_debug ("BEGIN FORMAT $macro",$line_nr); |
| $_ = "{$2}$'"; |
|
| } |
my $in_term; |
| } |
my $top_format = top_stack($stack, 2); |
| $_ = $done . $_; |
$in_term = 1 if (defined($top_format->{'format'}) and $top_format->{'format'} eq 'term'); |
| |
|
| |
if ($format_type{$macro} eq 'menu') |
| |
{ |
| |
if ($state->{'menu'}) |
| |
{ |
| |
# there should not be any paragraph/preformatted to close |
| |
# if the comment or the description were closed since they |
| |
# close it |
| |
if (! close_menu_comment($text, $stack, $state, "\@$macro", $line_nr) |
| |
and !close_menu_description($text, $stack, $state, "\@$macro", $line_nr)) |
| |
{ |
| |
close_paragraph($text, $stack, $state, "\@$macro", $line_nr); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
close_paragraph($text, $stack, $state, "\@$macro", $line_nr); |
| |
} |
| |
$state->{$macro}++; |
| } |
} |
| return($_); |
elsif (!$in_term) |
| |
{ |
| |
close_paragraph($text, $stack, $state, "\@$macro", $line_nr); |
| |
} |
| |
|
| |
# close def_item if this is a matching @def*x command |
| |
if (defined($Texi2HTML::Config::def_map{$macro})) |
| |
{ |
| |
my $top_format = top_format($stack); |
| |
if (defined($top_format) and ("$top_format->{'format'}x" eq $macro)) |
| |
{ |
| |
# this is a matching @DEFx command. |
| |
my $deff_item = pop @$stack; |
| |
add_prev($text, $stack, |
| |
&$Texi2HTML::Config::def_item($deff_item->{'text'}, $deff_item->{'only_inter_commands'}, $deff_item->{'orig_command'})); |
| |
#print STDERR "DEFx $macro\n"; |
| |
} |
| |
elsif ($macro =~ /x$/) |
| |
{ |
| |
my $base_def_command = $macro; |
| |
$base_def_command =~ s/x$//; |
| |
line_error(sprintf(__("Must be in `\@%s' environment to use `\@%s'"), $base_def_command, $macro), $line_nr); |
| |
} |
| |
} |
| |
|
| |
$line = &$Texi2HTML::Config::begin_format_texi($macro, $line, $state) |
| |
unless($fake_format{$macro}); |
| |
|
| |
push (@{$state->{'command_stack'}}, $macro) unless ($fake_format{$macro}); |
| |
if ($region_lines{$macro}) |
| |
{ |
| |
open_region($macro,$state); |
| |
} |
| |
# A deff like macro |
| |
if (defined($Texi2HTML::Config::def_map{$macro})) |
| |
{ |
| |
my $top_format = top_format($stack); |
| |
my $orig_command = $macro; |
| |
if (defined($top_format) and ("$top_format->{'format'}x" eq $macro)) |
| |
{ |
| |
# this is a matching @DEFx command. |
| |
# the @DEFx macro has been put at the top of the |
| |
# command_stack, although there is no real format opening |
| |
pop @{$state->{'command_stack'}}; |
| |
$macro =~ s/x$//o; |
| |
#print STDERR "DEFx $macro\n"; |
| |
} |
| |
else |
| |
{ |
| |
# a new @def. |
| |
$macro =~ s/x$//o; |
| |
# we remove what is on the stack and put it back, |
| |
# to make sure that it is the form without x. |
| |
pop @{$state->{'command_stack'}}; |
| |
push @{$state->{'command_stack'}}, $macro; |
| |
#print STDERR "DEF begin $macro\n"; |
| |
$top_format = { 'format' => $macro, 'text' => '', 'orig_format' =>$orig_command}; |
| |
push @$stack, $top_format; |
| |
} |
| |
#print STDERR "BEGIN_DEFF $macro\n"; |
| |
#dump_stack ($text, $stack, $state); |
| |
|
| |
my ($command, $style, $category, $name, $type, $class, $args_array, $args_type_array); |
| |
($command, $style, $category, $name, $type, $class, $line, $args_array, $args_type_array) = parse_def($macro, $line, $line_nr); |
| |
my $class_name_texi = &$Texi2HTML::Config::definition_index_entry($name, $class, $style, $command); |
| |
|
| |
#print STDERR "AFTER parse_def $line"; |
| |
my @formatted_args = (); |
| |
my $arguments = ''; |
| |
my %formatted_arguments = (); |
| |
my @types = @$args_type_array; |
| |
my $arg_nr = 0; |
| |
my $previous_type; |
| |
foreach my $arg (@$args_array) |
| |
{ |
| |
$arg_nr++; |
| |
my $type = shift @types; |
| |
my $substitution_state = duplicate_formatting_state($state); |
| |
# all @def* arguments are in code_style |
| |
$substitution_state->{'code_style'}++; |
| |
push @formatted_args, substitute_line($arg, sprintf(__("\@%s (argument nr %d)"), $macro, $arg_nr), $substitution_state, $line_nr); |
| |
if (grep {$_ eq $type} ('param', 'paramtype', 'delimiter')) |
| |
{ |
| |
$arguments .= $formatted_args[-1]; |
| |
} |
| |
else |
| |
{ |
| |
$formatted_arguments{$type} = $formatted_args[-1]; |
| |
} |
| |
|
| |
$previous_type = $type; |
| |
} |
| |
$name = $formatted_arguments{'name'}; |
| |
$category = $formatted_arguments{'category'}; |
| |
$type = $formatted_arguments{'type'}; |
| |
$class = $formatted_arguments{'class'}; |
| |
|
| |
$name = '' if (!defined($name)); |
| |
$category = '' if (!defined($category)); |
| |
|
| |
my $class_category = &$Texi2HTML::Config::definition_category($category, $class, $style, $command); |
| |
my $class_name = &$Texi2HTML::Config::definition_index_entry($name, $class, $style, $command); |
| |
my ($index_entry, $formatted_index_entry, $index_label) = do_index_entry_label($macro, $state, $line_nr, $class_name_texi, $line); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::def_line($class_category, $name, $type, $arguments, $index_label, \@formatted_args, $args_type_array, $args_array, $command, $class_name, $category, $class, $style, $orig_command)); |
| |
$line = ''; |
| |
push @$stack, { 'format' => 'deff_item', 'text' => '', 'only_inter_commands' => 1, 'format_ref' => $top_format, 'orig_command' => $orig_command}; |
| |
begin_paragraph_after_command($state, $stack, $macro, $line); |
| |
} |
| |
# FIXME $complex_format_map obsoleted in nov 2009 |
| |
elsif ((exists ($Texi2HTML::Config::complex_format_map->{$macro}) |
| |
or exists ($Texi2HTML::Config::complex_format_map{$macro})) |
| |
and ($format_type{$macro} ne 'menu' or $Texi2HTML::Config::SIMPLE_MENU)) |
| |
{ # handle menu if SIMPLE_MENU. see texi2html.init |
| |
my $complex_format; |
| |
if (exists ($Texi2HTML::Config::complex_format_map->{$macro})) |
| |
{ |
| |
$complex_format = $Texi2HTML::Config::complex_format_map->{$macro}; |
| |
} |
| |
else |
| |
{ |
| |
$complex_format = $Texi2HTML::Config::complex_format_map{$macro}; |
| |
} |
| |
my $format = { 'format' => $macro, 'text' => '', 'pre_style' => $complex_format->{'pre_style'} }; |
| |
push_complex_format_style($macro, $complex_format, $state, $line_nr); |
| |
push @$stack, $format; |
| |
|
| |
begin_paragraph($stack, $state); |
| |
} |
| |
elsif ($Texi2HTML::Config::paragraph_style{$macro}) |
| |
{ |
| |
|
| |
push (@$stack, { 'format' => $macro, 'text' => '' }); |
| |
begin_paragraph_after_command($state,$stack,$macro,$line) unless ($in_term); |
| |
push @{$state->{'paragraph_style'}}, $macro; |
| |
if ($macro eq 'center') |
| |
{ |
| |
# @center may be in a weird state with regard with |
| |
# nesting, so we put it on the bottom of the stack |
| |
pop @{$state->{'command_stack'}}; |
| |
unshift @{$state->{'command_stack'}}, $macro; |
| |
# for similar reasons, we may have a bad stack nesting |
| |
# which results in } after a closing. |
| |
# The following isn't really true anymore, I think: for example |
| |
# @center @samp{something @center end of samp} |
| |
# resulted to samp being kept in the 'command_stack' |
| |
|
| |
} |
| |
} |
| |
elsif ($format_type{$macro} eq 'list' or $format_type{$macro} eq 'table' or $macro eq 'multitable') |
| |
{ |
| |
my $format; |
| |
#print STDERR "LIST_TABLE $macro\n"; |
| |
#dump_stack($text, $stack, $state); |
| |
if ($macro eq 'itemize' or $format_type{$macro} eq 'table') |
| |
{ |
| |
my $command; |
| |
my $prepended; |
| |
($prepended, $command) = parse_format_command($line,$macro); |
| |
if (($command eq '') and ($macro ne 'itemize')) |
| |
{ |
| |
$command = 'asis'; |
| |
line_error(sprintf(__("%s requires an argument: the formatter for %citem"), $macro, ord('@')), $line_nr); |
| |
} |
| |
my $prepended_formatted; |
| |
$prepended_formatted = substitute_line($prepended, sprintf(__("prepended for \@%s"), $macro), prepare_state_multiple_pass('item', $state)) if (defined($prepended)); |
| |
$format = { 'format' => $macro, 'text' => '', 'command' => $command, 'prepended' => $prepended, 'prepended_formatted' => $prepended_formatted }; |
| |
$line = ''; |
| |
} |
| |
elsif ($macro eq 'enumerate') |
| |
{ |
| |
my $spec; |
| |
($line, $spec) = parse_enumerate ($line); |
| |
$spec = 1 if (!defined($spec)); |
| |
$format = { 'format' => $macro, 'text' => '', 'spec' => $spec }; |
| |
} |
| |
elsif ($macro eq 'multitable') |
| |
{ |
| |
my ($max_columns, $fractions, $prototype_row) = parse_multitable ($line, $line_nr); |
| |
if (!$max_columns) |
| |
{ |
| |
line_warn (__("empty multitable"), $line_nr); |
| |
$max_columns = 0; |
| |
} |
| |
my @prototype_lengths = (); |
| |
if (defined($prototype_row)) |
| |
{ |
| |
my $prototype_nr = 0; |
| |
foreach my $prototype (@$prototype_row) |
| |
{ |
| |
$prototype_nr++; |
| |
push @prototype_lengths, 2+Texi2HTML::Config::t2h_default_string_width(substitute_line($prototype, sprintf(__("\@columnfraction (argument nr %d)"), $prototype_nr), prepare_state_multiple_pass('columnfractions', $state))); |
| |
} |
| |
} |
| |
$format = { 'format' => $macro, 'text' => '', 'max_columns' => $max_columns, 'columnfractions' => $fractions, 'prototype_row' => $prototype_row, 'prototype_lengths' => \@prototype_lengths, 'cell' => 1 }; |
| |
} |
| |
$format->{'first'} = 1; |
| |
$format->{'item_nr'} = 0; |
| |
$format->{'paragraph_number'} = 0; |
| |
push @$stack, $format; |
| |
if ($format_type{$macro} eq 'table') |
| |
{ |
| |
push @$stack, { 'format' => 'line', 'text' => '', 'format_ref' => $format, 'only_inter_commands' => 1}; |
| |
} |
| |
elsif ($macro eq 'multitable') |
| |
{ |
| |
push @$stack, { 'format' => 'row', 'text' => '', 'format_ref' => $format, 'item_cmd' => $macro }; |
| |
push @$stack, { 'format' => 'cell', 'text' => '', 'format_ref' => $format, 'only_inter_commands' => 1}; |
| |
} |
| |
if ($format_type{$macro} eq 'list') |
| |
{ |
| |
push @$stack, { 'format' => 'item', 'text' => '', 'format_ref' => $format, 'only_inter_commands' => 1}; |
| |
} |
| |
begin_paragraph_after_command($state,$stack,$macro,$line) |
| |
if ($macro ne 'multitable'); |
| |
return '' unless ($macro eq 'enumerate'); |
| |
} |
| |
elsif ($macro eq 'float' or $format_type{$macro} eq 'quotation') |
| |
{ |
| |
push @$stack, {'format' => $macro, 'text' => '' }; |
| |
if ($macro eq 'float') |
| |
{ |
| |
|
| |
my @args = parse_line_arguments($line, 2, "\@$macro"); |
| |
do_float_line ($macro, \@args, $state->{'style_stack'}, $state, $line_nr); |
| |
} |
| |
elsif ($format_type{$macro} eq 'quotation') |
| |
{ |
| |
my @args = parse_line_arguments($line, 1, "\@$macro", $line_nr); |
| |
do_quotation_line ($macro, $stack->[-1], \@args, $state->{'style_stack'}, $state, $line_nr); |
| |
|
| |
} |
| |
|
| |
$line = ''; |
| |
if ($state->{'preformatted'}) |
| |
{ # inconditionally begin a preformatted section if needed |
| |
begin_paragraph($stack, $state); |
| |
} |
| |
#dump_stack($text, $stack, $state); |
| |
} |
| |
# keep this one at the end as there are some other formats |
| |
# which are also in format_map |
| |
elsif (defined($Texi2HTML::Config::format_map{$macro}) or ($format_type{$macro} eq 'cartouche')) |
| |
{ |
| |
push @$stack, { 'format' => $macro, 'text' => '' }; |
| |
$state->{'code_style'}++ if ($Texi2HTML::Config::format_code_style{$macro}); |
| |
begin_paragraph_after_command($state,$stack,$macro,$line); |
| |
} |
| |
elsif ($format_type{$macro} eq 'menu') |
| |
{ |
| |
# if $Texi2HTML::Config::SIMPLE_MENU we won't get there |
| |
# as the menu is a complex format in that case, so it |
| |
# is handled above |
| |
push @$stack, { 'format' => $macro, 'text' => '' }; |
| |
if ($state->{'preformatted'}) |
| |
{ |
| |
# add a fake complex style in order to have a given pre style |
| |
push_complex_format_style('menu', |
| |
$Texi2HTML::Config::MENU_PRE_COMPLEX_FORMAT, $state, $line_nr); |
| |
begin_paragraph_after_command($state,$stack,$macro,$line); |
| |
} |
| |
else |
| |
{ |
| |
begin_format($text, $stack, $state, 'menu_comment', $line, $line_nr); |
| |
} |
| |
} |
| |
# this is useful for @center, and also if there was something on the |
| |
# line after a format that isn't there anymore, like |
| |
# @format @c |
| |
# if @center line is empty we don't remove the end of line |
| |
$line =~ s/^\s*// unless ($macro eq 'center' and $line =~ /^\s*$/); |
| |
return $line; |
| } |
} |
| |
|
| sub anchor { |
sub do_text($;$) |
| local($name, $href, $text, $newline) = @_; |
{ |
| local($result); |
my $text = shift; |
| |
my $state = shift; |
| |
return $text if ($state->{'keep_texi'}); |
| |
my $remove_texi = 1 if ($state->{'remove_texi'} and !$state->{'simple_format'}); |
| |
my $preformatted_style = 0; |
| |
if ($state->{'preformatted'}) |
| |
{ |
| |
$preformatted_style = $state->{'preformatted_stack'}->[-1]->{'style'}; |
| |
} |
| |
return (&$Texi2HTML::Config::normal_text($text, $remove_texi, $preformatted_style, $state->{'code_style'}, $state->{'math_style'}, $state->{'simple_format'},$state->{'command_stack'}, $state)); |
| |
} |
| |
|
| $result = "<A"; |
sub end_simple_format($$$) |
| $result .= " NAME=\"$name\"" if $name; |
{ |
| $result .= " HREF=\"$href\"" if $href; |
my $command = shift; |
| $result .= ">$text</A>"; |
my $text = shift; |
| $result .= "\n" if $newline; |
my $state = shift; |
| return($result); |
|
| |
my $element = $Texi2HTML::Config::format_map{$command}; |
| |
|
| |
my $result = &$Texi2HTML::Config::format($command, $element, $text); |
| |
$state->{'code_style'}-- if ($Texi2HTML::Config::format_code_style{$command}); |
| |
return $result; |
| } |
} |
| |
|
| sub pretty_date { |
# only get there if not in SIMPLE_MENU and not in preformatted and |
| local(@MoY, $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst); |
# right in @menu |
| |
sub close_menu_comment($$$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $reason = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my $top_format = top_stack($stack,2); |
| |
if (defined($top_format->{'format'}) and $top_format->{'format'} eq 'menu_comment') |
| |
{ # this is needed to avoid empty menu-comments <tr>...<pre></pre> |
| |
abort_empty_preformatted($stack, $state); |
| |
|
| @MoY = ('January', 'February', 'March', 'April', 'May', 'June', |
close_paragraph($text, $stack, $state, $reason, $line_nr); |
| 'July', 'August', 'September', 'October', 'November', 'December'); |
end_format($text, $stack, $state, 'menu_comment', $line_nr); |
| ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); |
return 1; |
| $year += ($year < 70) ? 2000 : 1900; |
} |
| return("$mday $MoY[$mon] $year"); |
|
| } |
} |
| |
|
| sub doc_name { |
# never get there if in $SIMPLE_MENU |
| local($num) = @_; |
# the last arg is used only if in description and an empty line may |
| |
# stop it and begin a menu_comment |
| |
sub close_menu_description($$$$$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $reason = shift; |
| |
my $line_nr = shift; |
| |
my $line = shift; |
| |
|
| return("${docu_name}_$num.html"); |
my $top_format = top_stack($stack,1); |
| |
if (!$state->{'preformatted'}) |
| |
{ |
| |
$top_format = top_stack($stack); |
| |
} |
| |
|
| |
if (defined($top_format->{'format'}) and $top_format->{'format'} eq 'menu_description' and (!defined($line) or $line =~ /^\s*$/) ) |
| |
{ |
| |
close_paragraph($text, $stack, $state, $reason, $line_nr) if ($state->{'preformatted'}); |
| |
my $descr = pop(@$stack); |
| |
add_prev($text, $stack, do_menu_description($descr, $state)); |
| |
print STDERR "# close_menu: close description\n" if ($T2H_DEBUG & $DEBUG_MENU); |
| |
$state->{'code_style'}-- if ($Texi2HTML::Config::format_code_style{'menu_description'}); |
| |
return 1; |
| |
} |
| } |
} |
| |
|
| sub next_doc { |
# Format menu link |
| $docu_doc = &doc_name(++$doc_num); |
# FIXME also pass node and name? |
| |
sub do_menu_link($$$) |
| |
{ |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $menu_entry = shift; |
| |
|
| |
my $file = $state->{'element'}->{'file'}; |
| |
my $node_name = normalise_node($menu_entry->{'node'}); |
| |
# normalise_node is used in fact to determine if name is empty. |
| |
# It is not passed down to the function reference. |
| |
my $name = normalise_node($menu_entry->{'name'}); |
| |
|
| |
# there is one substitution with spaces kept, and one with spaces |
| |
# normalized. In every cases nodes are in code_style |
| |
my $node_substitution_state = duplicate_formatting_state($state); |
| |
my $name_substitution_state = duplicate_formatting_state($state); |
| |
my $node_normalized_substitution_state = duplicate_formatting_state($state); |
| |
$node_substitution_state->{'code_style'} = 1; |
| |
$node_normalized_substitution_state->{'code_style'} = 1; |
| |
$name_substitution_state->{'code_style'} = 1 if ($Texi2HTML::Config::format_code_style{'menu_name'}); |
| |
my $node_formatted = substitute_line($menu_entry->{'node'}, __("node name in menu"), $node_substitution_state, $line_nr); |
| |
my $node_normalized_formatted = substitute_line($node_name, __("normalized node name in menu"), $node_normalized_substitution_state); |
| |
|
| |
my $name_formatted; |
| |
my $has_name = 0; |
| |
if (defined($name) and $name ne '') |
| |
{ |
| |
$name_formatted = substitute_line($menu_entry->{'name'}, __("menu entry name"), $name_substitution_state, $line_nr); |
| |
$has_name = 1; |
| |
} |
| |
else |
| |
{ |
| |
my $node_as_name = $menu_entry->{'node'}; |
| |
$node_as_name =~ s/^\s*//; |
| |
$name_formatted = substitute_line($node_as_name, __("node name in menu"), $name_substitution_state); |
| |
} |
| |
|
| |
my $entry = ''; |
| |
my $href; |
| |
|
| |
my $element; |
| |
if ($state->{'direntry'}) |
| |
{ |
| |
$href = do_external_href($node_name); |
| |
} |
| |
else |
| |
{ |
| |
$element = $nodes{$node_name}; |
| |
} |
| |
|
| |
# menu points to an unknown node |
| |
if (defined($element) and !$element->{'seen'}) |
| |
{ |
| |
if ($menu_entry->{'node'} =~ /^\s*\(.*\)/o or Texi2HTML::Config::get_conf('novalidate')) |
| |
{ |
| |
# menu entry points to another info manual or invalid nodes |
| |
# and novalidate is set |
| |
#$href = $nodes{$node_name}->{'file'}; |
| |
$href = do_external_href($node_name); |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Menu reference to nonexistent node `%s'"), $node_name), $line_nr); |
| |
# try to find an equivalent node |
| |
my @equivalent_nodes = equivalent_nodes($node_name); |
| |
my $node_seen; |
| |
foreach my $equivalent_node (@equivalent_nodes) |
| |
{ |
| |
if ($nodes{$equivalent_node}->{'seen'}) |
| |
{ |
| |
$node_seen = $equivalent_node; |
| |
last; |
| |
} |
| |
} |
| |
if (defined($node_seen)) |
| |
{ |
| |
document_warn("---> but equivalent node `$node_seen' found"); |
| |
$element = $nodes{$node_seen}; |
| |
} |
| |
} |
| |
} |
| |
|
| |
# the original node or an equivalent node was seen |
| |
if (defined($element) and $element->{'seen'}) |
| |
{ |
| |
if ($element->{'reference_element'}) |
| |
{ |
| |
$element = $element->{'reference_element'}; |
| |
} |
| |
|
| |
#print STDERR "SUBHREF in menu for `$element->{'texi'}'\n"; |
| |
$href = href($element, $file, $line_nr); |
| |
if (! $element->{'node'}) |
| |
{ |
| |
$entry = $element->{'text'}; # this is the section/node name |
| |
$entry = "$Texi2HTML::Config::MENU_SYMBOL $entry" if (($entry ne '') and (!defined($element->{'number'}) or ($element->{'number'} =~ /^\s*$/)) and $Texi2HTML::Config::UNNUMBERED_SYMBOL_IN_MENU); |
| |
} |
| |
} |
| |
# save the element used for the href for the description |
| |
$menu_entry->{'menu_reference_element'} = $element; |
| |
|
| |
return &$Texi2HTML::Config::menu_link($entry, $state, $href, $node_formatted, $name_formatted, $menu_entry->{'ending'}, $has_name, $state->{'command_stack'}, $state->{'preformatted'}, $node_normalized_formatted); |
| } |
} |
| |
|
| sub print { |
sub do_menu_description($$) |
| local(*lines, $fh) = @_; |
{ |
| local($_); |
my $descr = shift; |
| |
my $state = shift; |
| |
my $text = $descr->{'text'}; |
| |
my $menu_entry = $descr->{'menu_entry'}; |
| |
|
| while (@lines) { |
my $element = $menu_entry->{'menu_reference_element'}; |
| $_ = shift(@lines); |
|
| if (/^$PROTECTTAG/o) { |
############# debug |
| $_ = $tag2pro{$_}; |
# this is not a bug if element is not defined in direntry |
| } else { |
print STDERR "Bug: !defined(element) in do_menu_description\n" if (!defined($element) and ($state->{'menu'} or $state->{'detailmenu'})); |
| &unprotect_texi; |
############# end debug |
| } |
my $element_text = ''; |
| print $fh $_; |
$element_text = $element->{'text_nonumber'} if (defined($element)); |
| |
|
| |
return &$Texi2HTML::Config::menu_description($text, duplicate_formatting_state($state),$element_text, $state->{'command_stack'}, $state->{'preformatted'}); |
| |
} |
| |
|
| |
sub do_xref($$$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $args = shift; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my $result = ''; |
| |
my @args = @$args; |
| |
|
| |
my $j; |
| |
for ($j = 0; $j <= $#$args; $j++) |
| |
{ |
| |
$args[$j] = normalise_texi_space($args[$j]); |
| |
# print STDERR " ($j)$args[$j]\n"; |
| } |
} |
| |
#print STDERR "DO_XREF: $macro\n"; |
| |
if ($macro eq 'inforef') |
| |
{ |
| |
if ((@args < 1) or $args[0] eq '') |
| |
{ |
| |
line_error (sprintf(__("First argument to \@%s may not be empty"), $macro), $line_nr); |
| |
return ''; |
| |
} |
| |
} |
| |
|
| |
my $node_texi = $args[0]; |
| |
$node_texi = normalise_node($node_texi); |
| |
|
| |
#print STDERR "XREF: (@args)\n"; |
| |
my $i; |
| |
my $new_state = duplicate_formatting_state($state); |
| |
$new_state->{'keep_texi'} = 0; |
| |
$new_state->{'keep_nr'} = 0; |
| |
|
| |
my $remove_texi = $new_state->{'remove_texi'}; |
| |
|
| |
my @formatted_args; |
| |
for ($i = 0; $i < 5; $i++) |
| |
{ |
| |
$args[$i] = '' if (!defined($args[$i])); |
| |
my $in_file_style; |
| |
$in_file_style = 1 if ($i == 2 and $macro eq 'inforef' or $i == 3 and $macro ne 'inforef'); |
| |
$new_state->{'code_style'}++ if ($in_file_style or $i == 0); |
| |
$new_state->{'remove_texi'} = 1 if ($in_file_style); |
| |
$formatted_args[$i] = substitute_line($args[$i], sprintf(__("\@%s (argument nr %d)"), $macro, $i), $new_state, $line_nr); |
| |
$new_state->{'code_style'}-- if ($in_file_style or $i == 0); |
| |
$new_state->{'remove_texi'} = $remove_texi if ($in_file_style); |
| |
} |
| |
|
| |
|
| |
my ($file_texi, $file); |
| |
if ($macro eq 'inforef') |
| |
{ |
| |
$file_texi = $args[2]; |
| |
$file = $formatted_args[2]; |
| |
} |
| |
else |
| |
{ |
| |
$file_texi = $args[3]; |
| |
$file = $formatted_args[3]; |
| |
} |
| |
# Remark: makeinfo has this odd error message if the file is empty: |
| |
# warning (_("Empty file name for HTML cross reference in `%s'") |
| |
# This seems to be spurious. |
| |
|
| |
# can be an argument or extracted from the node name |
| |
my $file_arg_or_node_texi = $file_texi; |
| |
my $file_arg_or_node = $file; |
| |
|
| |
my $node_name; |
| |
# the file in parenthesis is removed from node_without_file_texi if needed |
| |
my $node_without_file_texi = $node_texi; |
| |
# node with file, like (file)node |
| |
my $node_and_file_texi; |
| |
# the file in parenthesis present with the node |
| |
my ($file_of_node_texi, $file_of_node); |
| |
if ($node_without_file_texi =~ s/^\(([^\)]+)\)\s*//) |
| |
{ |
| |
$file_of_node_texi = $1; |
| |
$file_of_node = substitute_line($file_of_node_texi, sprintf(__p("\@*ref", "\@%s node file"), $macro), $new_state); |
| |
$node_name = substitute_line($node_without_file_texi, sprintf(__p("\@*ref", "\@%s node name"), $macro), $new_state); |
| |
$file_arg_or_node_texi = $file_of_node_texi if ($file_arg_or_node_texi eq ''); |
| |
$file_arg_or_node = $file_of_node if ($file_arg_or_node eq ''); |
| |
# the file argument takes precedence |
| |
$node_and_file_texi = "($file_arg_or_node_texi)$node_without_file_texi"; |
| |
} |
| |
else |
| |
{ |
| |
# normalized node name |
| |
$new_state->{'code_style'}++; |
| |
$node_name = substitute_line($node_without_file_texi, sprintf(__p("\@*ref", "\@%s node name"), $macro), $new_state); |
| |
$new_state->{'code_style'}--; |
| |
if (defined ($file_texi) and $file_texi ne '') |
| |
{ |
| |
$node_and_file_texi = "($file_texi)$node_texi"; |
| |
} |
| |
} |
| |
|
| |
my $node_and_file; |
| |
if (defined($node_and_file_texi)) |
| |
{ |
| |
$node_and_file = substitute_line($node_and_file_texi, sprintf(__p("\@*ref","\@%s node with file name"), $macro), $new_state); |
| |
} |
| |
else |
| |
{ |
| |
$node_and_file_texi = $node_texi; |
| |
$node_and_file = $node_name; |
| |
} |
| |
|
| |
my $cross_ref_texi = $args[1]; |
| |
my $cross_ref = $formatted_args[1]; |
| |
|
| |
my ($manual_texi, $section_texi, $manual, $section); |
| |
if ($macro ne 'inforef') |
| |
{ |
| |
$manual_texi = $args[4]; |
| |
$section_texi = $args[2]; |
| |
$manual = $formatted_args[4]; |
| |
$section = $formatted_args[2]; |
| |
} |
| |
else |
| |
{ |
| |
$manual = $section = ''; |
| |
} |
| |
|
| |
#print STDERR "XREF: (@args)\n"; |
| |
|
| |
if (($macro eq 'inforef') or ($file_arg_or_node_texi ne '') or ($manual_texi ne '')) |
| |
{# external ref |
| |
my $href = ''; |
| |
if ($file_arg_or_node_texi ne '') |
| |
{ |
| |
$href = do_external_href($node_and_file_texi); |
| |
} |
| |
else |
| |
{ |
| |
$node_and_file = ''; |
| |
} |
| |
#my $section_or_node = ''; |
| |
#if ($manual ne '') |
| |
#{ |
| |
# $section_or_node = $node_name; |
| |
# if ($section ne '') |
| |
# { |
| |
# $section_or_node = $section; |
| |
# } |
| |
#} |
| |
#$result = &$Texi2HTML::Config::external_ref($macro, $section_or_node, $manual, $node_and_file, $href, $cross_ref, \@args, \@formatted_args); |
| |
$result = &$Texi2HTML::Config::external_ref($macro, $section, $manual, $file_arg_or_node, $href, $cross_ref, \@args, \@formatted_args, $node_name); |
| |
} |
| |
else |
| |
{ |
| |
my $element = $nodes{$node_without_file_texi}; |
| |
if ($element and $element->{'seen'}) |
| |
{ |
| |
if ($element->{'reference_element'}) |
| |
{ |
| |
$element = $element->{'reference_element'}; |
| |
} |
| |
my $file = ''; |
| |
if (defined($state->{'element'})) |
| |
{ |
| |
$file = $state->{'element'}->{'file'}; |
| |
} |
| |
else |
| |
{ |
| |
line_warn (sprintf(__("\@%s not in text (in anchor, node, section...)"), $macro), $line_nr); |
| |
# if Texi2HTML::Config::SPLIT the file is '' which ensures |
| |
# a href with the file name. if ! Texi2HTML::Config::SPLIT |
| |
# the 2 file will be the same thus there won't be the file name |
| |
$file = $element->{'file'} unless (Texi2HTML::Config::get_conf('SPLIT')); |
| |
} |
| |
#print STDERR "SUBHREF in ref to node `$node_texi'"; |
| |
my $href = href($element, $file, $line_nr); |
| |
my $section_or_cross_ref = $section; |
| |
$section_or_cross_ref = $cross_ref if ($section eq ''); |
| |
if ($element->{'float'} and $section_or_cross_ref eq '') |
| |
{ |
| |
my $style = substitute_line(&$Texi2HTML::Config::listoffloats_float_style($element->{'style_texi'}, $element), __("\@listoffloats \@float type")); |
| |
$section_or_cross_ref = $style if (defined($style)); |
| |
} |
| |
my $name = $section_or_cross_ref; |
| |
my $short_name = $section_or_cross_ref; |
| |
if ($section_or_cross_ref eq '') |
| |
{ |
| |
# FIXME maybe one should use 'text' instead of 'text_nonumber' |
| |
# However the real fix would be to have an internal_ref call |
| |
# with more informations |
| |
$name = $element->{'text_nonumber'}; |
| |
$short_name = $node_name; |
| |
} |
| |
$result = &$Texi2HTML::Config::internal_ref ($macro, $href, $short_name, $name, $element->{'section'}, \@args, \@formatted_args, $element); |
| |
} |
| |
else |
| |
{ |
| |
if (($node_texi eq '') or (! Texi2HTML::Config::get_conf('novalidate'))) |
| |
{ |
| |
line_error (sprintf(__("\@%s reference to nonexistent node `%s'"), $macro, $node_texi), $line_nr); |
| |
my $text = ''; |
| |
for (my $i = 0; $i < @$args -1; $i++) |
| |
{ |
| |
$text .= $args->[$i] .','; |
| |
} |
| |
$text .= $args->[-1]; |
| |
$result = "\@$macro"."{${text}}"; |
| |
} |
| |
else |
| |
{ |
| |
#$result = &$Texi2HTML::Config::external_ref($macro, '', '', $node_name, do_external_href($node_texi), $cross_ref, \@args, \@formatted_args); |
| |
$result = &$Texi2HTML::Config::external_ref($macro, '', '', '', do_external_href($node_texi), $cross_ref, \@args, \@formatted_args, $node_name); |
| |
} |
| |
} |
| |
} |
| |
return $result; |
| } |
} |
| |
|
| sub print_ruler { |
sub do_acronym_like($$$$$) |
| print FILE "<P><HR><P>\n"; |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $acronym_texi = shift @$args; |
| |
my $explanation = shift @$args; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my $explanation_lines; |
| |
my $explanation_text; |
| |
my $explanation_simple_format; |
| |
|
| |
if (defined($explanation)) |
| |
{ |
| |
$explanation = trim_around_spaces($explanation); |
| |
$explanation = undef if ($explanation eq ''); |
| |
} |
| |
$acronym_texi = trim_around_spaces($acronym_texi); |
| |
|
| |
return '' if ($acronym_texi eq ''); |
| |
|
| |
my $with_explanation = 0; |
| |
my $normalized_text = cross_manual_line(normalise_node($acronym_texi)); |
| |
if (defined($explanation)) |
| |
{ |
| |
$with_explanation = 1; |
| |
$acronyms_like{$command}->{$normalized_text} = $explanation; |
| |
} |
| |
elsif (exists($acronyms_like{$command}->{$normalized_text})) |
| |
{ |
| |
$explanation = $acronyms_like{$command}->{$normalized_text}; |
| |
} |
| |
|
| |
if (defined($explanation)) |
| |
{ |
| |
@$explanation_lines = map {$_ = $_."\n"} split (/\n/, $explanation); |
| |
my $text = ''; |
| |
foreach my $line(@$explanation_lines) |
| |
{ |
| |
$line .= ' ' if (chomp ($line)); |
| |
$text .= $line |
| |
} |
| |
$text =~ s/ $//; |
| |
$explanation_simple_format = simple_format($state, [ $line_nr ], "simple_format \@$command explanation", $text); |
| |
$explanation_text = substitute_line($text, sprintf(__p("\@abbr or \@acronym", "\@%s explanation"), $command), duplicate_formatting_state($state), $line_nr); |
| |
} |
| |
return &$Texi2HTML::Config::acronym_like($command, $acronym_texi, substitute_line($acronym_texi, "\@$command", duplicate_formatting_state($state), $line_nr), |
| |
$with_explanation, $explanation_lines, $explanation_text, $explanation_simple_format); |
| } |
} |
| |
|
| sub print_header { |
sub do_caption_shortcaption($$$$$$) |
| local($_); |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $text_texi = $args->[0]; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $kept_line_nrs = shift; |
| |
|
| # clean the title |
if (!exists($state->{'float'})) |
| $_ = &remove_style($_[0]); |
{ |
| &unprotect_texi; |
line_error(sprintf(__("\@%s not meaningful outside `\@float' environment"), $command), $line_nr); |
| # print the header |
return ''; |
| if ($doctype eq 'html2') { |
|
| print FILE $html2_doctype; |
|
| } elsif ($doctype) { |
|
| print FILE $doctype; |
|
| } |
} |
| print FILE <<EOT; |
my $float = $state->{'float'}; |
| <HTML> |
my @texi_lines = map {$_ = $_."\n"} split (/\n/, $text_texi); |
| <meta http-equiv="Content-Type" content="text/html; charset=euc-jp"> |
$float->{"${command}_texi"} = \@texi_lines; |
| <HEAD> |
if (defined($kept_line_nrs)) |
| $header |
{ |
| <TITLE>$_</TITLE> |
$float->{"${command}_keep_line_nr"} = [ @$kept_line_nrs ]; |
| </HEAD> |
msg_debug ("Empty $kept_line_nrs", $line_nr) unless (@{$kept_line_nrs}); |
| <BODY> |
} |
| EOT |
else |
| |
{ |
| |
$float->{"${command}_keep_line_nr"} = [ $line_nr ]; |
| |
msg_debug("do_caption_shortcaption $command, $float, kept_line_nrs not defined", $line_nr); |
| |
} |
| |
#print STDERR "GGGGGGG @$kept_line_nrs\n"; |
| |
return &$Texi2HTML::Config::caption_shortcaption_command($command, |
| |
substitute_text(prepare_state_multiple_pass($command, $state), $kept_line_nrs, "\@$command in do_caption_shortcaption", @texi_lines), \@texi_lines, $float); |
| } |
} |
| |
|
| sub print_toplevel_header { |
# function called when a @float is encountered. Don't do any output |
| local($_); |
# but prepare $state->{'float'} |
| |
sub do_float_line($$$$$) |
| |
{ |
| |
my $command = shift; |
| |
my $args = shift; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| &print_header; # pass given arg... |
my @args = @$args; |
| print FILE $full_title; |
my $style_texi = shift @args; |
| if ($value{'_subtitle'}) { |
my $label_texi = shift @args; |
| $value{'_subtitle'} =~ s/\n+$//; |
|
| foreach (split(/\n/, $value{'_subtitle'})) { |
$style_texi = undef if (defined($style_texi) and $style_texi=~/^\s*$/); |
| $_ = &substitute_style($_); |
$label_texi = undef if (defined($label_texi) and $label_texi=~/^\s*$/); |
| &unprotect_texi; |
|
| print FILE "<H2>$_</H2>\n"; |
$style_texi = normalise_texi_space($style_texi) if (defined($style_texi)); |
| } |
|
| |
if (defined($label_texi)) |
| |
{ # the float is considered as a node as it may be a target for refs. |
| |
# it was entered as a node in the pass_structure and the float |
| |
# line was parsed at that time |
| |
$state->{'float'} = $nodes{normalise_node($label_texi)}; |
| |
#msg_debug("float: $state->{'float'}, $state->{'float'}->{'texi'}", $line_nr); |
| } |
} |
| if ($value{'_author'}) { |
else |
| $value{'_author'} =~ s/\n+$//; |
{ # a float without label. It can't be the target for refs. |
| foreach (split(/\n/, $value{'_author'})) { |
$state->{'float'} = { 'float' => 1 }; |
| $_ = &substitute_style($_); |
if (defined($style_texi)) |
| &unprotect_texi; |
{ |
| s/[\w.-]+\@[\w.-]+/<A HREF="mailto:$&">$&<\/A>/g; |
$state->{'float'}->{'style_texi'} = $style_texi; |
| print FILE "<ADDRESS>$_</ADDRESS>\n"; |
$state->{'float'}->{'style_id'} = |
| } |
cross_manual_line($state->{'float'}->{'style_texi'}); |
| |
} |
| |
#print STDERR "float: (no label) $state->{'float'}\n"; |
| } |
} |
| print FILE "<P>\n"; |
$state->{'float'}->{'style'} = substitute_line($state->{'float'}->{'style_texi'}, __("\@float style"), undef, $line_nr); |
| |
return ''; |
| } |
} |
| |
|
| sub print_footer { |
sub do_quotation_line($$$$$$) |
| print FILE <<EOT; |
{ |
| </BODY> |
my $command = shift; |
| </HTML> |
my $format_ref = shift; |
| EOT |
my $args = shift; |
| |
my @args = @$args; |
| |
my $text_texi = shift @args; |
| |
my $style_stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $text; |
| |
|
| |
$text_texi = undef if (defined($text_texi) and $text_texi=~ /^\s*$/); |
| |
if (defined($text_texi)) |
| |
{ |
| |
$text_texi = trim_around_spaces($text_texi); |
| |
$text = substitute_line($text_texi, sprintf(__p("\@*quotation", "\@%s argument"), $command), duplicate_formatting_state($state), $line_nr); |
| |
#$text =~ s/\s*$//; |
| |
} |
| |
my $quotation_args = { 'text' => $text, 'text_texi' => $text_texi }; |
| |
push @{$state->{'quotation_stack'}}, $quotation_args; |
| |
$format_ref->{'argument_text'} = $text; |
| |
$format_ref->{'argument_texi'} = $text_texi; |
| |
$state->{'prepend_text'} = &$Texi2HTML::Config::quotation_prepend_text($command, $text_texi); |
| |
return ''; |
| } |
} |
| |
|
| sub print_toplevel_footer { |
sub do_footnote($$$$$$) |
| &print_ruler; |
{ |
| print FILE <<EOT; |
my $command = shift; |
| This document was generated on $TODAY using |
my $args = shift; |
| <A HREF=\"$HOMEPAGE\">texi2html</A> $value{texi2html}. |
my $text = $args->[0]; |
| EOT |
my $style_stack = shift; |
| &print_footer; |
my $doc_state = shift; |
| |
my $line_nr = shift; |
| |
my $kept_line_nrs = shift; |
| |
|
| |
$text .= "\n"; |
| |
$text = &$Texi2HTML::Config::footnote_texi($text, $doc_state, $style_stack) |
| |
if (defined($Texi2HTML::Config::footnote_texi)); |
| |
|
| |
my $foot_state = duplicate_state($doc_state); |
| |
fill_state($foot_state); |
| |
push @{$foot_state->{'command_stack'}}, 'footnote'; |
| |
|
| |
push_state($foot_state); |
| |
|
| |
my ($foot_num, $relative_foot_num); |
| |
my $special_place; |
| |
if (!defined($foot_state->{'expansion'}) and !defined($foot_state->{'region'})) |
| |
{ |
| |
$foot_num = \$global_foot_num; |
| |
$relative_foot_num = \$global_relative_foot_num; |
| |
} |
| |
else |
| |
{ |
| |
$special_place = $foot_state->{'expansion'}; |
| |
$special_place = $foot_state->{'region'} if (!defined($special_place)); |
| |
$foot_num = \$doc_state->{'foot_num'}; |
| |
$relative_foot_num = \$doc_state->{'relative_foot_num'}; |
| |
} |
| |
$$foot_num++; |
| |
$$relative_foot_num++; |
| |
|
| |
my $docid = "DOCF$$foot_num"; |
| |
my $footid = "FOOT$$foot_num"; |
| |
if (defined($special_place)) |
| |
{ |
| |
$docid = $target_prefix . $special_place . "_$docid"; |
| |
$footid = $target_prefix . $special_place . "_$footid"; |
| |
} |
| |
my $from_file = $docu_doc; |
| |
if ($doc_state->{'element'}) |
| |
{ |
| |
$from_file = $doc_state->{'element'}->{'file'}; |
| |
} |
| |
|
| |
if (Texi2HTML::Config::get_conf('footnotestyle') eq 'separate') |
| |
{ |
| |
$foot_state->{'element'} = $footnote_element; |
| |
} |
| |
|
| |
$foot_state->{'footnote_number_in_doc'} = $$foot_num; |
| |
$foot_state->{'footnote_number_in_page'} = $$relative_foot_num; |
| |
$foot_state->{'footnote_footnote_id'} = $footid; |
| |
$foot_state->{'footnote_place_id'} = $docid; |
| |
$foot_state->{'footnote_document_file'} = $from_file; |
| |
$foot_state->{'footnote_footnote_file'} = $foot_state->{'element'}->{'file'}; |
| |
$foot_state->{'footnote_document_state'} = $doc_state; |
| |
|
| |
# FIXME use split_lines ? It seems to work like it is now ? |
| |
msg_debug ("No line nnumbers in footnote", $line_nr) if (!defined($kept_line_nrs) or !@$kept_line_nrs); |
| |
my @lines; |
| |
if (defined($text)) |
| |
{ |
| |
@lines = substitute_text($foot_state, $kept_line_nrs, '@footnote', map {$_ = $_."\n"} split (/\n/, $text)); |
| |
} |
| |
my ($foot_lines, $foot_label) = &$Texi2HTML::Config::foot_line_and_ref($$foot_num, |
| |
$$relative_foot_num, $footid, $docid, $from_file, $foot_state->{'element'}->{'file'}, \@lines, $doc_state); |
| |
if ($doc_state->{'outside_document'} or (defined($doc_state->{'multiple_pass'}) and $doc_state->{'multiple_pass'} > 0)) |
| |
{ |
| |
#print STDERR "multiple_pass $doc_state->{'multiple_pass'}, 'outside_document' $doc_state->{'outside_document'}\n"; |
| |
#print STDERR "REGION FOOTNOTE($$foot_num): $doc_state->{'region'} ($doc_state->{'region_pass'})\n"; |
| |
$region_initial_state{$doc_state->{'region'}}->{'footnotes'}->{$$foot_num}->{$doc_state->{'region_pass'}} = $foot_lines if (defined($doc_state->{'region'})); |
| |
} |
| |
else |
| |
{ |
| |
#print STDERR "GLOBAL FOOTNOTE($$foot_num)\n"; |
| |
push(@foot_lines, @{$foot_lines}); |
| |
} |
| |
pop_state(); |
| |
return $foot_label; |
| } |
} |
| |
|
| sub protect_texi { |
sub do_image($$$$$) |
| # protect @ { } ` ' |
{ |
| s/\@\@/$;0/go; |
# replace images |
| s/\@\{/$;1/go; |
my $command = shift; |
| s/\@\}/$;2/go; |
my $args = shift; |
| s/\@\`/$;3/go; |
my $style_stack = shift; |
| s/\@\'/$;4/go; |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my @args; |
| |
foreach my $arg (@$args) |
| |
{ |
| |
$arg = trim_around_spaces($arg) if (defined($arg)); |
| |
push @args, $arg; |
| |
} |
| |
my $base = substitute_line($args[0], __("\@image base name"),{'code_style' => 1, 'remove_texi' => 1}); |
| |
my $base_simple = substitute_line($args[0], __("\@image base name"), {'simple_format' => 1, 'code_style' => 1}); |
| |
if ($base eq '') |
| |
{ |
| |
line_error ("\@image missing filename argument", $line_nr); |
| |
return ''; |
| |
} |
| |
$args[4] = '' if (!defined($args[4])); |
| |
$args[3] = '' if (!defined($args[3])); |
| |
my $image; |
| |
my $extension = substitute_line($args[4], __("\@image extension"), {'code_style' => 1, 'remove_texi' => 1}); |
| |
my $extension_simple = substitute_line($args[4], __("\@image extension"), {'simple_format' => 1, 'code_style' => 1}); |
| |
my ($file_name, $image_name, $simple_file_name); |
| |
my @file_locations; |
| |
my @file_names = &$Texi2HTML::Config::image_files($base,$extension,$args[0],$args[4]); |
| |
# $image = locate_include_file("$base.$args[4]") if ($args[4] ne ''); |
| |
foreach my $file (@file_names) |
| |
{ |
| |
my $simple_file = substitute_line($file->[1], __("\@image file name"), {'simple_format' => 1, 'code_style' => 1}); |
| |
if ($image = locate_include_file($file->[0])) |
| |
{ |
| |
if (!defined($file_name)) |
| |
{ |
| |
$file_name = $file->[0]; |
| |
$image_name = $image; |
| |
$simple_file_name = $simple_file; |
| |
} |
| |
push @file_locations, [$file, $image, $simple_file]; |
| |
} |
| |
else |
| |
{ |
| |
push @file_locations, [$file, undef, $simple_file]; |
| |
} |
| |
} |
| |
$image_name = '' if (!defined($image_name)); |
| |
$simple_file_name = '' if (!defined($simple_file_name)); |
| |
|
| |
my $alt; |
| |
if ($args[3] =~ /\S/) |
| |
{ |
| |
$alt = substitute_line($args[3], __("\@image alt text"), {'simple_format' => 1}, $line_nr); |
| |
} |
| |
return &$Texi2HTML::Config::image($path_to_working_dir . $image_name, |
| |
$base, |
| |
$state->{'preformatted'}, $file_name, $alt, $args[1], $args[2], |
| |
$args[3], $extension, $path_to_working_dir, $image_name, |
| |
$state->{'paragraph_context'}, \@file_locations, $base_simple, |
| |
$extension_simple, $simple_file_name, $line_nr); |
| } |
} |
| |
|
| sub protect_html { |
# usefull if we want to duplicate only the global state, nothing related with |
| local($what) = @_; |
# formatting |
| # protect & < > |
sub duplicate_state($) |
| $what =~ s/\&/\&\#38;/g; |
{ |
| $what =~ s/\</\&\#60;/g; |
my $state = shift; |
| $what =~ s/\>/\&\#62;/g; |
my $new_state = { 'element' => $state->{'element'}, |
| # but recognize some HTML things |
'multiple_pass' => $state->{'multiple_pass'}, |
| $what =~ s/\&\#60;\/A\&\#62;/<\/A>/g; # </A> |
'region_pass' => $state->{'region_pass'}, |
| $what =~ s/\&\#60;A ([^\&]+)\&\#62;/<A $1>/g; # <A [^&]+> |
'region' => $state->{'region'}, |
| $what =~ s/\&\#60;IMG ([^\&]+)\&\#62;/<IMG $1>/g; # <IMG [^&]+> |
'expansion' => $state->{'expansion'}, |
| return($what); |
'sec_num' => $state->{'sec_num'}, |
| |
'outside_document' => $state->{'outside_document'}, |
| |
'inside_document' => $state->{'inside_document'}, |
| |
'duplicated' => 1 |
| |
}; |
| |
return $new_state; |
| } |
} |
| |
|
| sub unprotect_texi { |
# duplicate global and formatting state. |
| s/$;0/\@/go; |
sub duplicate_formatting_state($) |
| s/$;1/\{/go; |
{ |
| s/$;2/\}/go; |
my $state = shift; |
| s/$;3/\`/go; |
my $new_state = duplicate_state($state); |
| s/$;4/\'/go; |
|
| |
# Things passed here should be things that are not emptied/set to 0 by |
| |
# any command. Also they shouldn't need anything to be on the |
| |
# stack. This rules out paragraphs, for example. |
| |
foreach my $format_key ('preformatted', 'code_style', 'keep_texi', |
| |
'keep_nr', 'preformatted_stack') |
| |
{ |
| |
$new_state->{$format_key} = $state->{$format_key}; |
| |
} |
| |
# this is needed for preformatted |
| |
my $command_stack = $state->{'command_stack'}; |
| |
$command_stack = [] if (!defined($command_stack)); |
| |
$new_state->{'command_stack'} = [ @$command_stack ]; |
| |
$new_state->{'preformatted_context'} = {'stack_at_beginning' => [ @$command_stack ]}; |
| |
$new_state->{'code_style'} = 0 if (!defined($new_state->{'code_style'})); |
| |
return $new_state; |
| } |
} |
| |
|
| sub unprotect_html { |
sub expand_macro($$$$$) |
| local($what) = @_; |
{ |
| $what =~ s/\&\#38;/\&/g; |
my $name = shift; |
| $what =~ s/\&\#60;/\</g; |
my $args = shift; |
| $what =~ s/\&\#62;/\>/g; |
my $end_line = shift; |
| return($what); |
my $line_nr = shift; |
| |
my $state = shift; |
| |
|
| |
# we dont expand macros when in ignored environment. |
| |
return if ($state->{'ignored'}); |
| |
|
| |
die "Bug end_line not defined" if (!defined($end_line)); |
| |
|
| |
my $index = 0; |
| |
foreach my $arg (@$args) |
| |
{ # expand @macros in arguments. It is complicated because we must be |
| |
# carefull not to expand macros in @ignore section or the like, and |
| |
# still keep every single piece of text (including the @ignore macros). |
| |
$args->[$index] = substitute_text({'texi' => 1, 'arg_expansion' => 1}, undef, "expand_macro in $name", split_lines($arg)); |
| |
$index++; |
| |
} |
| |
# retrieve the macro definition |
| |
my $macrobody = $macros->{$name}->{'body'}; |
| |
my $formal_args = $macros->{$name}->{'args'}; |
| |
my $args_index = $macros->{$name}->{'args_index'}; |
| |
|
| |
my $i; |
| |
for ($i=0; $i<=$#$formal_args; $i++) |
| |
{ |
| |
$args->[$i] = "" unless (defined($args->[$i])); |
| |
print STDERR "# arg($i): $args->[$i]\n" if ($T2H_DEBUG & $DEBUG_MACROS); |
| |
} |
| |
line_error (sprintf(__("Macro `%s' called with too many args"), $name), $line_nr) if (defined($args->[$i + 1])); |
| |
my $result = ''; |
| |
while ($macrobody ne '') |
| |
{ |
| |
if ($macrobody =~ s/^([^\\]*)\\//o) |
| |
{ |
| |
$result .= $1 if defined($1); |
| |
if ($macrobody =~ s/^\\//) |
| |
{ |
| |
$result .= '\\'; |
| |
} |
| |
elsif ($macrobody =~ s/^(\@end\sr?macro)$// or $macrobody =~ s/^(\@end\sr?macro\s)// or $macrobody =~ s/^(\@r?macro\s+\w+\s*.*)//) |
| |
{ # \ protect @end macro |
| |
$result .= $1; |
| |
} |
| |
elsif ($macrobody =~ s/^([^\\]*)\\//) |
| |
{ |
| |
my $arg = $1; |
| |
if (defined($args_index->{$arg})) |
| |
{ |
| |
$result .= $args->[$args_index->{$arg}]; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\\ in macro expansion followed `%s' instead of parameter name or \\"), $arg), $macros->{$name}->{'line_nr'}); |
| |
$result .= '\\' . $arg; |
| |
} |
| |
} |
| |
next; |
| |
} |
| |
$result .= $macrobody; |
| |
last; |
| |
} |
| |
my @result = split(/^/m, $result); |
| |
# for a completly empty macro, $result = '', and the split leads |
| |
# to an empty array, so add back an empty string |
| |
@result = ('') if (!scalar(@result)); |
| |
# Add the result of the macro expansion back to the input_spool. |
| |
# Set the macro name if in the outer macro |
| |
if ($state->{'arg_expansion'}) |
| |
{ # in that case we are in substitute_text for an arg |
| |
unshift @{$state->{'spool'}}, (@result, $end_line); |
| |
} |
| |
else |
| |
{ |
| |
#$result[-1].=$end_line; |
| |
#foreach my $res (@result) |
| |
#{ |
| |
# print STDERR "RESULT:$res"; |
| |
#} |
| |
#print STDERR "#########end->$end_line"; |
| |
my $last_line = $result[-1]; |
| |
if (chomp($last_line)) |
| |
{ |
| |
push @result, $end_line; |
| |
} |
| |
else |
| |
{ |
| |
$result[-1] .= $end_line; |
| |
} |
| |
unshift @{$state->{'input_spool'}->{'spool'}}, (@result); #, $end_line); |
| |
$state->{'input_spool'}->{'macro'} = $name if ($state->{'input_spool'}->{'macro'} eq ''); |
| |
} |
| |
if ($T2H_DEBUG & $DEBUG_MACROS) |
| |
{ |
| |
print STDERR "# macro expansion result:\n"; |
| |
#print STDERR "$first_line"; |
| |
foreach my $line (@result) |
| |
{ |
| |
print STDERR "$line"; |
| |
} |
| |
print STDERR "# macro expansion result end\n"; |
| |
} |
| } |
} |
| |
|
| sub byalpha { |
sub do_index_summary_file($$) |
| $key2alpha{$a} cmp $key2alpha{$b}; |
{ |
| |
my $name = shift; |
| |
my $docu_name = shift; |
| |
&$Texi2HTML::Config::index_summary_file_begin ($name, $printed_indices{$name}, $docu_name); |
| |
print STDERR "# writing $name index summary for $docu_name\n" if $T2H_VERBOSE; |
| |
|
| |
foreach my $letter_entries (@{$Texi2HTML::THISDOC{'index_letters_array'}->{$name}}) |
| |
{ |
| |
foreach my $entry (@{$letter_entries->{'entries'}}) |
| |
{ |
| |
#my $entry = $entries->{$key}; |
| |
my $indexed_element = $entry->{'element'}; |
| |
my $entry_element = $indexed_element; |
| |
$entry_element = $entry_element->{'element_ref'} if (defined($entry_element->{'element_ref'})); |
| |
my $origin_href = $entry->{'file'}; |
| |
#print STDERR "$entry $entry->{'entry'}, real elem $indexed_element->{'texi'}, section $entry_element->{'texi'}, real $indexed_element->{'file'}, entry file $entry->{'file'}\n"; |
| |
if ($entry->{'target'}) |
| |
{ |
| |
$origin_href .= '#' . $entry->{'target'}; |
| |
} |
| |
else |
| |
{ |
| |
$origin_href .= '#' . $indexed_element->{'target'}; |
| |
} |
| |
&$Texi2HTML::Config::index_summary_file_entry ($name, |
| |
$entry->{'key'}, $origin_href, |
| |
substitute_line($entry->{'entry'}, "\@$entry->{'command'}"), $entry->{'entry'}, |
| |
href($entry_element, ''), |
| |
$entry_element->{'text'}, |
| |
$printed_indices{$name}, |
| |
$docu_name); |
| |
} |
| |
} |
| |
&$Texi2HTML::Config::index_summary_file_end ($name, $printed_indices{$name}, $docu_name); |
| } |
} |
| |
|
| |
sub get_index_entry_infos($$;$) |
| |
{ |
| |
my $entry = shift; |
| |
my $element = shift; |
| |
my $line_nr = shift; |
| |
my $index_heading_element = $entry->{'element'}; |
| |
my $entry_heading_element = $index_heading_element; |
| |
my $real_index_element = $entry->{'real_element'}; |
| |
|
| |
if (!defined($entry->{'real_element'})) |
| |
{ |
| |
print STDERR "BUG: entry->{'real_element'} not defined\n"; |
| |
} |
| |
# we always use the associated element_ref, instead of the original |
| |
# element |
| |
$entry_heading_element = $entry_heading_element->{'element_ref'} |
| |
if (defined($entry_heading_element->{'element_ref'})); |
| |
if ($entry->{'real_element'} eq $element_before_anything) |
| |
{ |
| |
$real_index_element = $element_top; |
| |
} |
| |
else |
| |
{ |
| |
$real_index_element = $entry->{'real_element'}->{'element_ref'}; |
| |
if (!defined($real_index_element)) |
| |
{ # happens when $USE_NODES = 0 and there are only sections, |
| |
# and vice-versa |
| |
$real_index_element = $entry->{'real_element'}; |
| |
} |
| |
} |
| |
|
| |
my $origin_href = ''; |
| |
print STDERR "BUG: entry->{'file'} not defined for `$entry->{'entry'}'\n" |
| |
if (!defined($entry->{'file'})); |
| |
print STDERR "BUG: element->{'file'} not defined for `$entry->{'entry'}', `$element->{'texi'}'\n" |
| |
if (!defined($element->{'file'})); |
| |
$origin_href = $entry->{'file'} if ($entry->{'file'} ne $element->{'file'}); |
| |
#print STDERR "$entry $entry->{'entry'}, real heading elem $index_heading_element->{'texi'}, section $entry_element->{'texi'}, real $index_heading_element->{'file'}, entry file $entry->{'file'}\n"; |
| |
if (defined($entry->{'target'})) |
| |
{ |
| |
$origin_href .= '#' . $entry->{'target'}; |
| |
} |
| |
else |
| |
{ # this means that the index entry is in a special region like @copying... |
| |
$origin_href .= '#' . $index_heading_element->{'target'}; |
| |
} |
| |
#print STDERR "SUBHREF in index entry `$entry->{'entry'}' for `$entry_element->{'texi'}'\n"; |
| |
return ($origin_href, |
| |
$entry->{'file'}, |
| |
$element->{'file'}, |
| |
$entry->{'target'}, |
| |
$index_heading_element->{'target'}, |
| |
substitute_line($entry->{'entry'}, "\@$entry->{'command'} index infos"), |
| |
href($entry_heading_element, $element->{'file'}, $line_nr), |
| |
$entry_heading_element->{'text'}, |
| |
(!$entry->{'seen_in_output'} and defined($entry->{'region'}))); |
| |
} |
| |
|
| |
# remove texi commands, replacing with what seems adequate. see simple_map_texi |
| |
# and texi_map. |
| |
# Doesn't protect html |
| |
sub remove_texi(@) |
| |
{ |
| |
return substitute_text ({ 'remove_texi' => 1}, undef, undef, @_); |
| |
} |
| |
|
| |
# Same as remove texi but protect text and use special maps for @-commands |
| |
sub simple_format($$$@) |
| |
{ |
| |
my $state = shift; |
| |
my $line_nrs = shift; |
| |
my $context = shift; |
| |
if (!defined($state)) |
| |
{ |
| |
$state = {}; |
| |
} |
| |
else |
| |
{ |
| |
$state = duplicate_formatting_state($state); |
| |
} |
| |
$state->{'remove_texi'} = 1; |
| |
$state->{'simple_format'} = 1; |
| |
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_format_simple_map_texi; |
| |
$::style_map_texi_ref = \%Texi2HTML::Config::simple_format_style_map_texi; |
| |
$::texi_map_ref = \%Texi2HTML::Config::simple_format_texi_map; |
| |
my $text = substitute_text($state, $line_nrs, $context, @_); |
| |
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi; |
| |
$::style_map_texi_ref = \%Texi2HTML::Config::style_map_texi; |
| |
$::texi_map_ref = \%Texi2HTML::Config::texi_map; |
| |
return $text; |
| |
} |
| |
|
| |
sub index_entry_command_prefix($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $line_nr = shift; |
| |
if ($command =~ /^(v|f)table$/) |
| |
{ |
| |
return $1; |
| |
} |
| |
elsif (defined($Texi2HTML::Config::def_map{$command})) |
| |
{ |
| |
my ($prefix, $entry, $argument) = get_deff_index($command, $line, undef, 0); |
| |
return $prefix; |
| |
} |
| |
my $prefix = index_command_prefix($command); |
| |
line_error(sprintf(__("No index prefix found for \@%s"),$command),$line_nr) if ($prefix eq ''); |
| |
return $prefix; |
| |
} |
| |
|
| |
sub enter_table_index_entry($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
if ($state->{'item'}) |
| |
{ |
| |
my $item_command = $state->{'item'}; |
| |
delete $state->{'item'}; |
| |
my $item = pop @$stack; |
| |
if ($state->{'table_stack'}->[-1] =~ /^(v|f)table$/) |
| |
{ |
| |
my $index = $1; |
| |
enter_index_entry($index, $line_nr, |
| |
$item->{'text'}, $state->{'table_stack'}->[-1], $state); |
| |
} |
| |
add_prev($text, $stack, "\@$item_command" . $item->{'text'}); |
| |
} |
| |
} |
| |
|
| |
sub end_macro($$$) |
| |
{ |
| |
my $state = shift; |
| |
my $end_string = shift; |
| |
my $remaining_on_the_line = shift; |
| |
|
| |
$state->{'macro_inside'}--; |
| |
return (0, undef) if ($state->{'ignored'}); |
| |
if ($state->{'macro_inside'}) |
| |
{ |
| |
$state->{'macro'}->{'body'} .= $end_string; |
| |
return (0, undef); |
| |
} |
| |
my $macro_text = $state->{'macro'}->{'header'} . $state->{'macro'}->{'body'}.$end_string; |
| |
chomp $state->{'macro'}->{'body'}; |
| |
print STDERR "# end macro def. Body:\n$state->{'macro'}->{'body'}" |
| |
if ($T2H_DEBUG & $DEBUG_MACROS); |
| |
$macros->{$state->{'macro'}->{'name'}} = $state->{'macro'} unless ($state->{'arg_expansion'}); |
| |
delete $state->{'macro'}; |
| |
return (1, $macro_text.$remaining_on_the_line) if ($remaining_on_the_line =~ /^\s*$/); |
| |
return (0, $macro_text); |
| |
} |
| |
|
| |
sub close_macro_arg($$$) |
| |
{ |
| |
my $state = shift; |
| |
my $current_line = shift; |
| |
my $line_nr = shift; |
| |
|
| |
# balanced } ends the macro call, otherwise it is in the arg |
| |
$state->{'macro_depth'}--; |
| |
if ($state->{'macro_depth'} == 0) |
| |
{ |
| |
#print STDERR "BEFORE: $current_line"; |
| |
print STDERR "# expanding macro $state->{'macro_name'}\n" if ($T2H_DEBUG & $DEBUG_MACROS); |
| |
#$current_line = |
| |
expand_macro($state->{'macro_name'}, $state->{'macro_args'}, $current_line, $line_nr, $state); |
| |
delete $state->{'macro_name'}; |
| |
delete $state->{'macro_depth'}; |
| |
delete $state->{'macro_args'}; |
| |
#print STDERR "AFTER: $current_line"; |
| |
#return $current_line; |
| |
return 1; |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "# macro call: closing }\n" if ($T2H_DEBUG & $DEBUG_MACROS); |
| |
add_text('}', \$state->{'macro_args'}->[-1]); |
| |
return undef; |
| |
} |
| |
} |
| |
|
| |
sub close_style_texi($$$$;$) |
| |
{ |
| |
my $style = shift; |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $no_close = shift; |
| |
|
| |
$no_close = 0 if (!defined($no_close)); |
| |
|
| |
my $result; |
| |
if (!defined($style->{'style'})) |
| |
{ |
| |
msg_debug("'style' not defined in close_style_texi ($no_close)"); |
| |
foreach my $key (keys(%$style)) |
| |
{ |
| |
print STDERR " --> $key: ".var_to_str($style->{$key})."\n"; |
| |
} |
| |
} |
| |
|
| |
if (($style->{'style'} ne '') and exists($info_enclose{$style->{'style'}}) and !$state->{'arg_expansion'}) |
| |
{ |
| |
$result = $info_enclose{$style->{'style'}}->[0] . $style->{'text'} . $info_enclose{$style->{'style'}}->[1]; |
| |
} |
| |
elsif ($style->{'style'} ne '') |
| |
{ |
| |
$result = '@' . $style->{'style'} . '{' . $style->{'text'}; |
| |
$result .= '}' unless ($no_close); |
| |
} |
| |
else |
| |
{ |
| |
$result = '{' . $style->{'text'}; |
| |
# don't close { if we are closing stack as we are not |
| |
# sure this is a { ... } construct. i.e. we are |
| |
# not sure that the user properly closed the matching |
| |
# brace, so we don't close it ourselves |
| |
$result .= '}' unless ($no_close or $state->{'arg_expansion'}); |
| |
} |
| |
if ($state->{'ignored'}) |
| |
{# ARG_EXPANSION |
| |
print STDERR "# Popped `$style->{'style'}' in ifset/ifclear\n" if ($T2H_DEBUG); |
| |
} |
| |
else |
| |
{ |
| |
add_prev ($text, $stack, $result); |
| |
} |
| |
} |
| |
|
| |
sub close_ignored ($$) |
| |
{ |
| |
my $state = shift; |
| |
my $stack = shift; |
| |
if (($state->{'ifvalue_inside'}) and $state->{'ignored'} eq $state->{'ifvalue'}) |
| |
{ |
| |
if ($state->{'ifvalue_inside'} == 1) |
| |
{# closing still opened @-commands with braces |
| |
pop (@$stack) while (@$stack and $stack->[-1]->{'style'} ne 'ifvalue') |
| |
} |
| |
pop (@$stack); |
| |
$state->{'ifvalue_inside'}--; |
| |
} |
| |
$state->{'ignored'} = undef; |
| |
delete $state->{'ignored'}; |
| |
# We are stil in the ignored ifset or ifclear section |
| |
$state->{'ignored'} = $state->{'ifvalue'} if ($state->{'ifvalue_inside'}); |
| |
#dump_stack($text, $stack, $state); |
| |
} |
| |
|
| |
|
| |
# Called in 2 contexts: |
| |
# * in main document |
| |
# * from substitute_text, called in turn from arg_expansion. In that case |
| |
# 'texi' is true, and so is 'arg_expansion'. In that case constructs are |
| |
# expanded but no action is performed. Therefore $line_nr is not of use. |
| |
sub scan_texi($$$$;$) |
| |
{ |
| |
my $scanned_line = shift; |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
die "stack not an array ref" unless (ref($stack) eq "ARRAY"); |
| |
my $cline = $scanned_line; |
| |
|
| |
while(1) |
| |
{ |
| |
# scan_texi |
| |
#print STDERR "WHILE(t):$cline"; |
| |
#print STDERR "ARG_EXPANSION: $state->{'arg_expansion'}\n" if ($state->{'arg_expansion'}); |
| |
#dump_stack($text, $stack, $state); |
| |
#print STDERR "ifvalue_inside $state->{'ifvalue_inside'}\n"; |
| |
|
| |
|
| |
# first we handle special cases: |
| |
# macro definition: $state->{'macro_inside'} |
| |
# macro arguments: $state->{'macro_name'} |
| |
# raw format: $state->{'raw'} |
| |
# @verb: $state->{'verb'} |
| |
# ignored: $state->{'ignored'} |
| |
# and then the remaining text/macros. |
| |
|
| |
# in macro definition |
| |
if ($state->{'macro_inside'}) |
| |
{ |
| |
if ($cline =~ s/^([^\\\@]*\\)//) |
| |
{# protected character or @end macro |
| |
$state->{'macro'}->{'body'} .= $1 unless ($state->{'ignored'}); |
| |
if ($cline =~ s/^\\//) |
| |
{ |
| |
$state->{'macro'}->{'body'} .= '\\' unless ($state->{'ignored'}); |
| |
next; |
| |
} |
| |
# I believe it is correct, although makeinfo don't do that. |
| |
elsif ($cline =~ s/^(\@end\sr?macro)$//o or $cline =~ s/^(\@end\sr?macro\s)//o |
| |
or $cline =~ s/^(\@r?macro\s+\w+\s*.*)//o) |
| |
{ |
| |
$state->{'macro'}->{'body'} .= $1 unless ($state->{'ignored'}); |
| |
next; |
| |
} |
| |
} |
| |
#if ($cline =~ s/^(.*?)\@end\sr?macro$//o or $cline =~ s/^(.*?)\@end\sr?macro\s+//o) |
| |
if ($cline =~ s/^(\@end\sr?macro)$//o or $cline =~ s/^(\@end\sr?macro\s+)//o) |
| |
{ |
| |
my ($no_remaining, $result) = end_macro($state, $1, $cline); |
| |
add_prev ($text, $stack, $result) if (defined($result)); |
| |
return 1 if ($no_remaining); |
| |
next; |
| |
} |
| |
|
| |
elsif($cline =~ /^(\@r?macro\s+\w+\s*.*)/) |
| |
{ |
| |
$state->{'macro'}->{'body'} .= $cline unless ($state->{'ignored'}); |
| |
$state->{'macro_inside'}++; |
| |
#return; |
| |
return 1; |
| |
} |
| |
elsif ($cline =~ s/^\@(.)//) |
| |
{ |
| |
$state->{'macro'}->{'body'} .= '@' . $1 unless ($state->{'ignored'}); |
| |
next; |
| |
} |
| |
elsif ($cline =~ s/^\@//) |
| |
{ |
| |
$state->{'macro'}->{'body'} .= '@' unless ($state->{'ignored'}); |
| |
next; |
| |
} |
| |
else |
| |
{ |
| |
$cline =~ s/([^\@\\]*)//; |
| |
if ($state->{'ignored'}) |
| |
{ |
| |
return if ($cline =~ /^$/); |
| |
next; |
| |
} |
| |
$state->{'macro'}->{'body'} .= $1 if (defined($1)); |
| |
if ($cline =~ /^$/) |
| |
{ |
| |
$state->{'macro'}->{'body'} .= $cline; |
| |
#return; |
| |
return 1; |
| |
} |
| |
next; |
| |
} |
| |
} |
| |
# in macro arguments parsing/expansion. Here \ { } and , if this is a |
| |
# multi args macro have a signification, the remaining is passed |
| |
# unmodified |
| |
if (defined($state->{'macro_name'})) |
| |
{ |
| |
my $special_chars = quotemeta ('\{}'); |
| |
my $multi_args = 0; |
| |
my $formal_args = $macros->{$state->{'macro_name'}}->{'args'}; |
| |
$multi_args = 1 if ($#$formal_args >= 1); |
| |
$special_chars .= quotemeta(',') if ($multi_args); |
| |
if ($state->{'macro_args'}->[-1] eq '') |
| |
{# remove space at the very beginning |
| |
$cline =~ s/^\s*//o; |
| |
} |
| |
if ($cline =~ s/^([^$special_chars]*)([$special_chars])//) |
| |
{ |
| |
$state->{'macro_args'}->[-1] .= $1 if defined($1); |
| |
# \ protects any character in macro arguments |
| |
if ($2 eq '\\') |
| |
{ |
| |
print STDERR "# macro call: protected char\n" if ($T2H_DEBUG & $DEBUG_MACROS); |
| |
if ($cline =~ s/^(.)//) |
| |
{ |
| |
$state->{'macro_args'}->[-1] .= $1; |
| |
} |
| |
else |
| |
{ |
| |
$state->{'macro_args'}->[-1] .= '\\'; |
| |
} |
| |
} |
| |
elsif ($2 eq ',') |
| |
{ # in texinfo 4.8.90 a comma in braces is protected |
| |
if ($state->{'macro_depth'} > 1) |
| |
{ |
| |
$state->{'macro_args'}->[-1] .= ','; |
| |
} |
| |
else |
| |
{ # separate args |
| |
print STDERR "# macro call: new arg\n" if ($T2H_DEBUG & $DEBUG_MACROS); |
| |
$cline =~ s/^\s*//o; |
| |
push @{$state->{'macro_args'}}, ''; |
| |
} |
| |
} |
| |
elsif ($2 eq '}') |
| |
{ |
| |
#my $macro_result_line = close_macro_arg($state, $cline); |
| |
return if (close_macro_arg($state, $cline, $line_nr)); |
| |
#if (defined($macro_result_line)) |
| |
#{ |
| |
# $cline = $macro_result_line; |
| |
# return; |
| |
#} |
| |
} |
| |
elsif ($2 eq '{') |
| |
{ |
| |
print STDERR "# macro call: opening {\n" if ($T2H_DEBUG & $DEBUG_MACROS); |
| |
$state->{'macro_depth'}++; |
| |
add_text('{', \$state->{'macro_args'}->[-1]); |
| |
} |
| |
next; |
| |
} |
| |
print STDERR "# macro call: end of line\n" if ($T2H_DEBUG & $DEBUG_MACROS); |
| |
$state->{'macro_args'}->[-1] .= $cline; |
| |
return; |
| |
} |
| |
# in a raw format, verbatim, tex or html |
| |
if ($state->{'raw'}) |
| |
{ |
| |
my $tag = $state->{'raw'}; |
| |
|
| |
# debugging |
| |
if (! @$stack or ($stack->[-1]->{'style'} ne $tag)) |
| |
{ |
| |
print STDERR "Bug: raw or special: $tag but not on top of stack\n"; |
| |
print STDERR "line: $cline"; |
| |
dump_stack($text, $stack, $state); |
| |
exit 1; |
| |
} |
| |
|
| |
# macro_regexp |
| |
if ($cline =~ /^(.*?)\@end\s([a-zA-Z][\w-]*)/o and ($2 eq $tag)) |
| |
{ |
| |
$cline =~ s/^(.*?)(\@end\s$tag)//; |
| |
# we add it even if 'ignored', it'll be discarded just below |
| |
# with the @end |
| |
add_prev ($text, $stack, $1); |
| |
my $end = $2; |
| |
my $style = pop @$stack; |
| |
# if 'arg_expansion' and 'ignored' are both true text |
| |
# is ignored. |
| |
add_prev ($text, $stack, $style->{'text'} . $end) unless ($state->{'ignored'}); |
| |
delete $state->{'raw'}; |
| |
next; |
| |
} |
| |
else |
| |
{# we add it even if 'ignored', it'll be discarded when there is |
| |
# the @end |
| |
add_prev ($text, $stack, $cline); |
| |
last; |
| |
} |
| |
} |
| |
|
| |
# in a @verb{ .. } macro |
| |
if (defined($state->{'verb'})) |
| |
{ |
| |
#dump_stack($text, $stack, $state); |
| |
my $char = quotemeta($state->{'verb'}); |
| |
#print STDERR "VERB $char\n"; |
| |
if ($cline =~ s/^(.*?)$char\}/\}/) |
| |
{# we add it even if 'ignored', it'll be discarded when closing |
| |
add_prev($text, $stack, $1 . $state->{'verb'}); |
| |
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'}; |
| |
delete $state->{'verb'}; |
| |
next; |
| |
} |
| |
else |
| |
{# we add it even if 'ignored', it'll be discarded when closing |
| |
add_prev($text, $stack, $cline); |
| |
last; |
| |
} |
| |
} |
| |
# In ignored region |
| |
if ($state->{'ignored'}) |
| |
{ |
| |
#print STDERR "IGNORED(ifvalue($state->{'ifvalue_inside'})): $state->{'ignored'}\n"; |
| |
if ($cline =~ /^.*?\@end(\s+)([a-zA-Z]\w+)/) |
| |
{ |
| |
if ($2 eq $state->{'ignored'}) |
| |
{ |
| |
$cline =~ s/^(.*?\@end)(\s+)([a-zA-Z]\w+)//; |
| |
my $end_ignore = $1.$2.$3; |
| |
close_ignored($state, $stack); |
| |
#dump_stack($text, $stack, $state); |
| |
# MACRO_ARG => keep ignored text |
| |
if ($state->{'arg_expansion'}) |
| |
{# this may not be very usefull as it'll be remove later |
| |
add_prev ($text, $stack, $end_ignore); |
| |
next; |
| |
} |
| |
return if ($cline =~ /^\s*$/o); |
| |
next; |
| |
} |
| |
} |
| |
add_prev ($text, $stack, $cline) if ($state->{'arg_expansion'}); |
| |
# we could theoretically continue for ignored commands other |
| |
# than ifset or ifclear, however it isn't usefull. |
| |
return unless ($state->{'ifvalue_inside'} and ($state->{'ignored'} eq $state->{'ifvalue'})); |
| |
} |
| |
|
| |
|
| |
# an @end tag |
| |
# macro_regexp |
| |
if ($cline =~ s/^([^{}@]*)\@end(\s+)([a-zA-Z][\w-]*)//) |
| |
{ |
| |
my $leading_text = $1; |
| |
my $space = $2; |
| |
my $end_tag = $3; |
| |
# when 'ignored' we don't open environments that aren't associated |
| |
# with ignored regions, so we don't need to close them. |
| |
next if ($state->{'ignored'});# ARG_EXPANSION |
| |
add_prev($text, $stack, $leading_text); |
| |
if (defined($state->{'text_macro_stack'}) |
| |
and @{$state->{'text_macro_stack'}} |
| |
and ($end_tag eq $state->{'text_macro_stack'}->[-1])) |
| |
{ |
| |
pop @{$state->{'text_macro_stack'}}; |
| |
# we keep menu and titlepage for the following pass |
| |
if (($Texi2HTML::Config::texi_formats_map{$end_tag} eq 'normal') or ($region_lines{$end_tag}) or $state->{'arg_expansion'}) |
| |
{ |
| |
add_prev($text, $stack, "\@end${space}$end_tag"); |
| |
} |
| |
else |
| |
{ |
| |
#print STDERR "End $end_tag\n"; |
| |
#dump_stack($text, $stack, $state); |
| |
return if ($cline =~ /^\s*$/); |
| |
} |
| |
} |
| |
elsif ($Texi2HTML::Config::texi_formats_map{$end_tag}) |
| |
{ |
| |
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr); |
| |
} |
| |
else # a format that is not handled during the first pass |
| |
{# ARG_EXPANSION |
| |
add_prev($text, $stack, "\@end${space}$end_tag"); |
| |
} |
| |
next; |
| |
} |
| |
# macro_regexp |
| |
elsif ($cline =~ s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])//o or $cline =~ s/^([^{}@]*)\@([a-zA-Z][\w-]*)//o) |
| |
{# ARG_EXPANSION |
| |
add_prev($text, $stack, $1) unless $state->{'ignored'}; |
| |
my $command = $2; |
| |
# FIXME: if it is an alias, it is substituted below, in the |
| |
# diverse add_prev and output of \@$command. Maybe it could be |
| |
# kept and only substituted in the last passes? |
| |
$command = $alias{$command} if (exists($alias{$command})); |
| |
#print STDERR "MACRO $command\n"; |
| |
# handle skipped @-commands |
| |
$state->{'bye'} = 1 if ($command eq 'bye' and !$state->{'ignored'} and !$state->{'arg_expansion'}); |
| |
# 'ignored' and 'arg_expansion' are handled in misc_command_texi |
| |
# these are the commands in which the @value and @macro |
| |
# and @-commands in general should not be expanded |
| |
if (defined($Texi2HTML::Config::misc_command{$command}) and |
| |
($command eq 'c' or $command eq 'comment' or $command eq 'set' |
| |
or $command eq 'clear' or $command eq 'bye' or $command eq 'alias')) |
| |
{ |
| |
my $cmd_arg; |
| |
($cline, $cmd_arg) = misc_command_texi($cline, $command, $state, |
| |
$line_nr); |
| |
add_prev ($text, $stack, "\@$command" . $cmd_arg) unless $state->{'ignored'}; |
| |
} |
| |
elsif ($command eq 'setfilename' or $command eq 'documentencoding' |
| |
or $command eq 'definfoenclose' or $command eq 'include') |
| |
{ # special commands whose arguments will have @macro and |
| |
# @value expanded, and that are processed in this pass |
| |
if ($state->{'ignored'} or ($line_nr->{'file_name'} ne $Texi2HTML::THISDOC{'input_file_name'} and $command eq 'setfilename')) |
| |
{ # @setfilename is ignored in @include file as said in the manual |
| |
$cline = ''; |
| |
} |
| |
elsif ($state->{'arg_expansion'}) |
| |
{ |
| |
add_prev($text, $stack, "\@$command" . $cline); |
| |
return; |
| |
} |
| |
else |
| |
{ |
| |
$cline =~ s/^(\s+)//; |
| |
my $space = $1; |
| |
# not sure if it happpens at end of line, or with |
| |
# special char following the @-command or only at end of file |
| |
$space = '' if (!defined($space)); |
| |
if (!$state->{'line_command'}) |
| |
{ |
| |
#print STDERR "LINE_COMMAND Start line_command $command, cline $cline"; |
| |
$state->{'line_command'} = $command; |
| |
push @$stack, { 'line_command' => $command, 'text' => $space }; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@%s not allowed in argument to \@%s"), $command, $state->{'line_command'}), $line_nr); |
| |
#add_prev($text, $stack, "\@$command" . $space); |
| |
add_prev($text, $stack, $space); |
| |
} |
| |
} |
| |
} |
| |
# pertusus: it seems that value substitution are performed after |
| |
# macro argument expansions: if we have |
| |
# @set comma , |
| |
# and a call to a macro @macro {arg1 @value{comma} arg2} |
| |
# the macro arg is arg1 , arg2 and the comma don't separate |
| |
# args. Likewise it seems that the @value are not expanded |
| |
# in macro definitions |
| |
|
| |
elsif ($command =~ /^r?macro$/) |
| |
{ # in 'arg_expansion' (ie within another macro call arguments) |
| |
# the macro is parsed as usual, but isn't registered in |
| |
# end_macro. |
| |
if ($cline =~ /^\s+(\w[\w-]*)\s*(.*)/) |
| |
{ |
| |
my $name = $1; |
| |
my $args_def = $2; |
| |
unless ($state->{'ignored'} or $state->{'arg_expansion'}) |
| |
{ |
| |
if (exists($macros->{$name})) |
| |
{ |
| |
#line_warn ("macro `$name' already defined " . |
| |
# format_line_number($macros->{$name}->{'line_nr'}) . " redefined", $line_nr); |
| |
line_warn (sprintf(__("macro `%s' previously defined"), $name), $line_nr); |
| |
line_warn (sprintf(__("here is the previous definition of `%s'"), $name), $macros->{$name}->{'line_nr'}); |
| |
} |
| |
} |
| |
$state->{'macro_inside'} = 1; |
| |
|
| |
next if ($state->{'ignored'}); |
| |
my @args = (); |
| |
if ($args_def =~ /^\s*{\s*(.*?)\s*}\s*/) |
| |
{ |
| |
@args = split(/\s*,\s*/ , $1) |
| |
} |
| |
# keep the context information of the definition |
| |
my $macro = { 'name' => $name }; |
| |
$macro->{'line_nr'} = { 'file_name' => $line_nr->{'file_name'}, |
| |
'line_nr' => $line_nr->{'line_nr'}, 'macro' => $line_nr->{'macro'} } if (defined($line_nr)); |
| |
$macro->{'args'} = \@args; |
| |
$macro->{'header'} = "\@$command" .$cline; |
| |
my $arg_index = 0; |
| |
my $debug_msg = ''; |
| |
foreach my $arg (@args) |
| |
{ # when expanding macros, the argument index is retrieved |
| |
# with args_index |
| |
$macro->{'args_index'}->{$arg} = $arg_index; |
| |
$debug_msg .= "$arg($arg_index) "; |
| |
$arg_index++; |
| |
} |
| |
$macro->{'body'} = ''; |
| |
$state->{'macro'} = $macro; |
| |
print STDERR "# macro def $name: $debug_msg\n" |
| |
if ($T2H_DEBUG & $DEBUG_MACROS); |
| |
} |
| |
else |
| |
{# it means we have a macro without a name |
| |
line_error (sprintf(__("Macro definition without macro name: %s"), $cline), $line_nr) |
| |
unless ($state->{'ignored'}); |
| |
} |
| |
return 1; |
| |
} |
| |
elsif (defined($Texi2HTML::Config::texi_formats_map{$command})) |
| |
{ |
| |
my $tag; |
| |
($cline, $tag) = do_text_macro($command, $cline, $state, $stack, $line_nr); |
| |
# if it is a raw formatting command or a menu command |
| |
# we must keep it for later, unless we are in an 'ignored'. |
| |
# if in 'arg_expansion' we keep everything. |
| |
my $command_kept; |
| |
if ((($state->{'raw'} or ($Texi2HTML::Config::texi_formats_map{$command} eq 'normal') or (exists($region_lines{$command}))) and !$state->{'ignored'}) or $state->{'arg_expansion'}) |
| |
{ |
| |
add_prev($text, $stack, $tag); |
| |
$command_kept = 1; |
| |
} |
| |
#dump_stack ($text, $stack, $state); |
| |
next if $command_kept; |
| |
return if ($cline =~ /^\s*$/); |
| |
} |
| |
elsif ($command eq 'value') |
| |
{ |
| |
if ($cline =~ s/^{($VARRE)}//) |
| |
{ |
| |
my $value = $1; |
| |
if ($state->{'arg_expansion'}) |
| |
{ |
| |
add_prev($text, $stack, "\@$command" .'{'. $value .'}'); |
| |
next; |
| |
} |
| |
next if ($state->{'ignored'}); |
| |
my $expansion; |
| |
if (defined($value{$value})) |
| |
{ |
| |
$expansion = $value{$value} |
| |
} |
| |
else |
| |
{ |
| |
$expansion = gdt('@{No value for `{value}\'@}', {'value' => $value}, {'keep_texi'=> 1}); |
| |
line_warn (sprintf(__("undefined flag: %s"), $value), $line_nr); |
| |
} |
| |
$cline = $expansion . $cline; |
| |
} |
| |
else |
| |
{ |
| |
if ($state->{'arg_expansion'}) |
| |
{ |
| |
add_prev($text, $stack, "\@$command"); |
| |
next; |
| |
} |
| |
next if ($state->{'ignored'}); |
| |
line_error (__("Bad syntax for \@value"), $line_nr); |
| |
} |
| |
} |
| |
elsif ($command eq 'unmacro') |
| |
{ #FIXME with 'arg_expansion' should it be passed unmodified ? |
| |
if ($state->{'ignored'}) |
| |
{ |
| |
$cline =~ s/^\s+(\w+)//; |
| |
} |
| |
else |
| |
{ |
| |
delete $macros->{$1} if ($cline =~ s/^\s+(\w+)//); |
| |
} |
| |
return if ($cline =~ /^\s*$/); |
| |
$cline =~ s/^\s*//; |
| |
} |
| |
elsif (exists($macros->{$command})) |
| |
{# it must be before the handling of {, otherwise it is considered |
| |
# to be regular texinfo @-command. Maybe it could be placed higher |
| |
# if we want user defined macros to override texinfo @-commands |
| |
|
| |
# in 'ignored' we parse macro defined args anyway as it removes |
| |
# some text, but we don't expand the macro |
| |
|
| |
my $ref = $macros->{$command}->{'args'}; |
| |
my $args_number = $#$ref +1; |
| |
# we remove any space/new line before the argument |
| |
if ($cline =~ s/^\s*{\s*//) |
| |
{ # the macro has args |
| |
$state->{'macro_args'} = [ "" ]; |
| |
$state->{'macro_name'} = $command; |
| |
$state->{'macro_depth'} = 1; |
| |
} |
| |
elsif (($args_number >= 2) or ($args_number <1)) |
| |
{ # no brace -> no arg |
| |
#$cline = |
| |
#line_warn("\@$command defined with $args_number arguments should be invoked with {}", $line_nr); |
| |
line_warn(sprintf(__("\@%s defined with zero or more than one argument should be invoked with {}"), $command), $line_nr); |
| |
expand_macro ($command, [], $cline, $line_nr, $state); |
| |
return; |
| |
} |
| |
else |
| |
{ # macro with one arg on the line |
| |
chomp $cline; |
| |
#$cline = |
| |
expand_macro ($command, [$cline], "\n", $line_nr, $state); |
| |
return; |
| |
} |
| |
} |
| |
elsif ($cline =~ s/^{//) |
| |
{# we add nested commands in a stack. verb is also on the stack |
| |
# but handled specifically. |
| |
# we add it the comands even in 'ignored' as their result is |
| |
# discarded when the closing brace appear, or the ifset or |
| |
# iclear is closed. |
| |
if ($command eq 'verb') |
| |
{ |
| |
if ($cline =~ /^$/) |
| |
{ |
| |
line_error (sprintf(__("\@%s without associated character"), $command), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
$cline =~ s/^(.)//; |
| |
$state->{'verb'} = $1; |
| |
} |
| |
} |
| |
if ($state->{'line_command'} and $command eq 'verb') |
| |
{ # have to close it now to catch if it is not |
| |
# closed at te end of the line. In subsequent passes this |
| |
# is done in scan_line_separator. |
| |
my $result; |
| |
if (defined($state->{'verb'})) |
| |
{ |
| |
$result = '@verb{'.$state->{'verb'}; |
| |
my $verb_char = quotemeta($state->{'verb'}); |
| |
if ($cline =~ s/^(.*?${verb_char}\})//) |
| |
{ |
| |
$result .= $1; |
| |
} |
| |
else |
| |
{ |
| |
$cline =~ s/^(.*)//; |
| |
$result .= $1; |
| |
} |
| |
delete $state->{'verb'}; |
| |
} |
| |
else |
| |
{ |
| |
$result = '@verb{' |
| |
} |
| |
add_prev($text, $stack, $result) unless($state->{'ignored'}); |
| |
} |
| |
else |
| |
{ |
| |
push (@$stack, { 'style' => $command, 'text' => '' }); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$cline = do_unknown(0, $command, $cline, $text, $stack, $state, $line_nr); |
| |
} |
| |
next; |
| |
} |
| |
#elsif(s/^([^{}@]*)\@(.)//o) |
| |
elsif($cline =~ s/^([^{}@]*)\@([^\s\}\{\@]*)//o) |
| |
{# ARG_EXPANSION |
| |
# No need to warn here for @ followed by a character that |
| |
# is not in any @-command and it is done later |
| |
add_prev($text, $stack, $1) unless($state->{'ignored'}); |
| |
$cline = do_unknown(0, $2, $cline, $text, $stack, $state, $line_nr); |
| |
next; |
| |
} |
| |
elsif ($cline =~ s/^([^{}]*)([{}])//o) |
| |
{ |
| |
# in ignored section we cannot be sure that there is an @-command |
| |
# already opened so we must discard the text. |
| |
# ARG_EXPANSION |
| |
add_prev($text, $stack, $1) unless($state->{'ignored'}); |
| |
if ($2 eq '{') |
| |
{ |
| |
# this empty style is for a lone brace. |
| |
# we add it even in 'ignored' as it is discarded when the closing |
| |
# brace appear, or the ifset or iclear is closed. |
| |
push @$stack, { 'style' => '', 'text' => '' }; |
| |
} |
| |
else |
| |
{ |
| |
if (@$stack) |
| |
{ |
| |
my $style = pop @$stack; |
| |
close_style_texi($style, $text, $stack, $state); |
| |
#print STDERR "MACRO end $style->{'style'} remaining: $cline"; |
| |
next; |
| |
} |
| |
else |
| |
{# ARG_EXPANSION |
| |
# we warn in the last pass that there is a } without open |
| |
add_prev ($text, $stack, '}') unless($state->{'ignored'}); |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{# ARG_EXPANSION |
| |
#print STDERR "END_LINE $cline"; |
| |
add_prev($text, $stack, $cline) unless($state->{'ignored'}); |
| |
if ($state->{'line_command'}) |
| |
{ |
| |
if (!scalar(@$stack)) |
| |
{ |
| |
print STDERR "BUG: empty state for $state->{'line_command'}\n"; |
| |
return; |
| |
delete $state->{'line_command'}; |
| |
} |
| |
while (!defined($stack->[-1]->{'line_command'})) |
| |
{ |
| |
my $top = pop @$stack; |
| |
# defer this to later? |
| |
#line_error ("unclosed command in \@$state->{'line_command'}: $top->{'style'}"); |
| |
add_prev($text, $stack, "\@$top->{'style'}".'{'.$top->{'text'}.'}'); |
| |
} |
| |
my $command = pop @$stack; |
| |
###################### debug |
| |
if (!defined($command) or !defined($command->{'text'}) or |
| |
!defined($command->{'line_command'}) or ($command->{'line_command'} ne $state->{'line_command'})) |
| |
{ |
| |
msg_debug ("BUG: messed $state->{'line_command'} stack", $line_nr); |
| |
delete $state->{'line_command'}; |
| |
return; |
| |
} |
| |
###################### end debug |
| |
else |
| |
{ |
| |
delete $state->{'line_command'}; |
| |
my $macro = $command->{'line_command'}; |
| |
# include are not kept |
| |
if ($macro eq 'include') |
| |
{ |
| |
#if (s/^\s+([\/\w.+-]+)//o) |
| |
if ($command->{'text'} =~ s/^(\s+)(.+)//o) |
| |
{ |
| |
my $file_name = $2; |
| |
# FIXME scan_line_separators |
| |
$file_name = trim_around_spaces($file_name); |
| |
$file_name = substitute_line($file_name, "\@$macro", {'code_style' => 1, 'remove_texi' => 1}); |
| |
my $file = locate_include_file($file_name); |
| |
if (defined($file)) |
| |
{ |
| |
my ($line_nr_file, $input_spool_file) = open_file($file, $line_nr->{'macro'}, $state->{'files_stack'}); |
| |
($line_nr, $state->{'input_spool'}) = ($line_nr_file, $input_spool_file) if (defined($line_nr_file)); |
| |
print STDERR "# including $file\n" if $T2H_VERBOSE; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("\@%s: Cannot find %s"), $macro, $file_name), $line_nr); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Bad argument to \@%s: %s"), $macro, $command->{'text'}), $line_nr); |
| |
} |
| |
return; |
| |
} |
| |
else |
| |
{ # these are kept (setfilename, documentencoding, definfoenclose) |
| |
if ($macro eq 'setfilename' and $Texi2HTML::Config::USE_SETFILENAME) |
| |
{ |
| |
if (defined(Texi2HTML::Config::get_conf ('setfilename'))) |
| |
{ |
| |
line_error (sprintf(__("\@%s already set"), $macro), $line_nr); |
| |
# the line is removed, because we don't want to reset |
| |
# get_conf('setfilename') between passes, and we don't want |
| |
# the last one to be picked up |
| |
$cline = "\n"; |
| |
next; |
| |
} |
| |
} |
| |
my $cmd_arg; |
| |
($cline, $cmd_arg) = misc_command_texi($command->{'text'}, |
| |
$macro, $state, $line_nr); |
| |
add_prev ($text, $stack, "\@$macro" . $cmd_arg); |
| |
next; |
| |
} |
| |
} |
| |
} |
| |
last; |
| |
} |
| |
} |
| |
return undef if ($state->{'ignored'}); |
| |
return 1; |
| |
} # end scan_texi |
| |
|
| |
sub close_structure_command($$$$) |
| |
{ |
| |
my $cmd_ref = shift; |
| |
my $state = shift; |
| |
my $unclosed_commands = shift; |
| |
my $line_nr = shift; |
| |
my $result; |
| |
|
| |
#print STDERR "close_structure_command $cmd_ref->{'style'}\n"; |
| |
# If the anchor is in @titlepage or @copying, it is nevertheless only |
| |
# expanded once in pass_structure, during the @copying or @titlepage |
| |
# expansion. |
| |
# It is not true, however if INLINE_INSERTCOPYING is true. |
| |
# See indices/index_special_region.texi tests. |
| |
if ($cmd_ref->{'style'} eq 'anchor') |
| |
{ |
| |
my $anchor = $cmd_ref->{'text'}; |
| |
$anchor = normalise_node($anchor); |
| |
#print STDERR "Anchor $anchor\n"; |
| |
if ($nodes{$anchor}) |
| |
{# makeinfo error message are the following: |
| |
# "Anchor `%s' and node `%s' map to the same file name" |
| |
# "This @anchor command ignored; references to it will not work" |
| |
# "Rename this anchor or use the `--no-split' option" |
| |
# |
| |
# "Anchors `%s' and `%s' map to the same file name" |
| |
# "Anchor `%s' and node `%s' map to the same file name" |
| |
# "@anchor command ignored; references to it will not work" |
| |
# "Rename this anchor or use the `--no-split' option" |
| |
line_error (sprintf(__("Anchor `%s' previously defined %s"), $anchor, format_line_number($nodes{$anchor}->{'line_nr'})), $line_nr); |
| |
return ''; |
| |
} |
| |
elsif ($anchor =~ /^\(.+\)/) |
| |
{ |
| |
line_error (sprintf(__("Syntax for an external node used for `%s'"), $anchor), $line_nr); |
| |
return ''; |
| |
} |
| |
$document_anchor_num++; |
| |
$nodes{$anchor} = { 'anchor' => 1, 'seen' => 1, 'texi' => $anchor, 'id' => 'ANC' . $document_anchor_num, 'line_nr' => $line_nr, 'tag' => 'anchor'}; |
| |
push @{$state->{'place'}}, $nodes{$anchor}; |
| |
} |
| |
elsif ($cmd_ref->{'style'} eq 'footnote') |
| |
{ |
| |
if (Texi2HTML::Config::get_conf('footnotestyle') eq 'separate') |
| |
{ |
| |
$state->{'heading_element'} = $state->{'footnote_heading_element'}; |
| |
$state->{'place'} = $state->{'footnote_place'}; |
| |
} |
| |
} |
| |
elsif ($cmd_ref->{'style'} eq 'caption' or $cmd_ref->{'style'} |
| |
eq 'shortcaption' and $state->{'float'}) |
| |
{ |
| |
my @texi_lines = map {$_ = $_."\n"} split (/\n/, $cmd_ref->{'text'}); |
| |
$state->{'float'}->{$cmd_ref->{'style'} . "_texi"} = \@texi_lines; |
| |
} |
| |
if (($cmd_ref->{'style'} eq 'titlefont') and ($cmd_ref->{'text'} =~ /\S/)) |
| |
{ |
| |
$state->{'heading_element'}->{'titlefont'} = $cmd_ref->{'text'} unless ((exists($state->{'region'}) and ($state->{'region'} eq 'titlepage')) or defined($state->{'heading_element'}->{'titlefont'})) ; |
| |
} |
| |
if (defined($Texi2HTML::Config::command_handler{$cmd_ref->{'style'}})) |
| |
{ |
| |
$result = init_special($cmd_ref->{'style'},$cmd_ref->{'text'}); |
| |
if ($unclosed_commands) |
| |
{ |
| |
$result .= "\n"; # the end of line is eaten by init_special |
| |
line_error(sprintf(__("No closing brace for specially handled command %s"), $cmd_ref->{'style'}),$line_nr); |
| |
} |
| |
} |
| |
elsif ($cmd_ref->{'style'}) |
| |
{ |
| |
$result = '@' . $cmd_ref->{'style'} . '{' . $cmd_ref->{'text'}; |
| |
$result .= '}' unless ($unclosed_commands); |
| |
} |
| |
else |
| |
{ |
| |
$result = '{' . $cmd_ref->{'text'}; |
| |
# don't close { if we are closing stack as we are not |
| |
# sure this is a licit { ... } construct. |
| |
$result .= '}' unless ($unclosed_commands); |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub end_format_structure($$$$$$) |
| |
{ |
| |
my $end_tag = shift; |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $remaining_on_line = shift; |
| |
|
| |
if (defined($state->{'text_macro_stack'}) |
| |
and @{$state->{'text_macro_stack'}} |
| |
and ($end_tag eq $state->{'text_macro_stack'}->[-1])) |
| |
{ |
| |
pop @{$state->{'text_macro_stack'}}; |
| |
if (exists($region_lines{$end_tag})) |
| |
{ # end a region_line macro, like documentdescription, copying |
| |
print STDERR "Bug: end_tag $end_tag ne $state->{'region_lines'}->{'format'}\n" |
| |
if ($end_tag ne $state->{'region_lines'}->{'format'}); |
| |
print STDERR "Bug: end_tag $end_tag ne $state->{'region'}\n" |
| |
if ($end_tag ne $state->{'region'}); |
| |
$state->{'region_lines'}->{'number'}--; |
| |
if ($state->{'region_lines'}->{'number'} == 0) |
| |
{ |
| |
close_region($state); |
| |
} |
| |
#dump_stack($text, $stack, $state); |
| |
} |
| |
if (($Texi2HTML::Config::texi_formats_map{$end_tag} eq 'normal') or $Texi2HTML::Config::region_formats_kept{$end_tag}) |
| |
{ |
| |
$state->{$end_tag}-- if ($Texi2HTML::Config::texi_formats_map{$end_tag} eq 'normal'); |
| |
add_prev($text, $stack, "\@end $end_tag"); |
| |
} |
| |
else |
| |
{ |
| |
#print STDERR "End $end_tag\n"; |
| |
#dump_stack($text, $stack, $state); |
| |
return 1 if ($remaining_on_line =~ /^\s*$/); |
| |
} |
| |
} |
| |
elsif ($Texi2HTML::Config::texi_formats_map{$end_tag}) |
| |
{ |
| |
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr); |
| |
#dump_stack($text, $stack, $state); |
| |
} |
| |
elsif ($end_tag eq 'detailmenu' or $end_tag eq 'direntry') |
| |
{ |
| |
$state->{$end_tag}-- if $state->{$end_tag}; |
| |
add_prev($text, $stack, "\@end $end_tag"); |
| |
} |
| |
else |
| |
{ |
| |
if ($end_tag eq 'float' and $state->{'float'}) |
| |
{ |
| |
delete $state->{'float'}; |
| |
} |
| |
elsif ($end_tag eq $state->{'table_stack'}->[-1]) |
| |
{ |
| |
enter_table_index_entry($text, $stack, $state, $line_nr); |
| |
pop @{$state->{'table_stack'}}; |
| |
} |
| |
#add end tag |
| |
add_prev($text, $stack, "\@end $end_tag"); |
| |
} |
| |
return 0; |
| |
} |
| |
|
| |
sub parse_menu_entry($) |
| |
{ |
| |
my $menu_line = shift; |
| |
my ($node, $name, $ending, $remaining); |
| |
|
| |
return ($node, $name, $ending, $remaining) unless $menu_line =~ s/^\*//; |
| |
|
| |
my ($before_colon, $separator); |
| |
($before_colon, $remaining, $separator) = scan_line_separators($menu_line, ':', 'menu entry'); |
| |
if (defined($before_colon) and defined($separator)) |
| |
{ |
| |
if ($remaining =~ s/^://) |
| |
{ |
| |
$node = $before_colon; |
| |
$ending = '::'; |
| |
} |
| |
elsif ($remaining =~ /\S/) |
| |
{ |
| |
my $after_colon; |
| |
$ending = ""; |
| |
($after_colon, $remaining, $separator) = scan_line_separators($remaining, '\t,\.', 'menu entry node'); |
| |
# this certainly corresponds with an error in the node. |
| |
# this is considered not to be a menu entry. |
| |
return (undef, $name, $ending, $remaining) if (!defined($after_colon)); |
| |
$node = $after_colon; |
| |
|
| |
while (1) |
| |
{ |
| |
if (!defined($separator) or (defined($separator) and $separator ne '.') or (defined($separator) and (!defined($remaining) or $remaining =~ /^\s/))) |
| |
{ |
| |
last; |
| |
} |
| |
$node .= $separator; |
| |
my $after_dot; |
| |
($after_dot, $remaining, $separator) = scan_line_separators($remaining, '\t,\.', 'menu entry node'); |
| |
$after_dot = '' if (!defined($after_dot)); |
| |
$node .= $after_dot; |
| |
} |
| |
$name = $before_colon; |
| |
$ending = $separator if (defined($separator)); |
| |
# only spaces after the :, this is not a menu entry: |
| |
$node = undef if ($node !~ /\S/); |
| |
} |
| |
} |
| |
# remaining may be defined even if $node isn't. |
| |
#print STDERR "\nLLLL $menu_line"; |
| |
#print STDERR " --> node:$node, name:$name, ending:$ending -> $remaining"; |
| |
return ($node, $name, $ending, $remaining); |
| |
} |
| |
|
| |
sub scan_structure($$$$;$) |
| |
{ |
| |
my $line = shift; |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
die "stack not an array ref" unless (ref($stack) eq "ARRAY"); |
| |
my $cline = $line; |
| |
#print STDERR "SCAN_STRUCTURE: $line"; |
| |
#dump_stack ($text, $stack, $state); |
| |
if (!$state->{'raw'} and (!exists($state->{'region_lines'}))) |
| |
{ |
| |
#if (!$state->{'verb'} and $state->{'menu'} and $cline =~ /^\*\s+/o) |
| |
if (!$state->{'verb'} and $state->{'menu'}) |
| |
{ |
| |
# new menu entry |
| |
my ($node, $name, $ending, $remaining) = parse_menu_entry($cline); |
| |
if (defined($node)) |
| |
{ |
| |
menu_entry_texi(normalise_node($node), $state, $line_nr); |
| |
} |
| |
} |
| |
} |
| |
|
| |
while(1) |
| |
{ |
| |
# scan structure |
| |
#dump_stack($text, $stack, $state); |
| |
#print STDERR "WHILE(s):$cline"; |
| |
|
| |
# as texinfo 4.5 |
| |
# verbatim might begin at another position than beginning |
| |
# of line, and end verbatim might too. To end a verbatim section |
| |
# @end verbatim must have exactly one space between end and verbatim |
| |
# things following end verbatim are not ignored. |
| |
# |
| |
# html might begin at another position than beginning |
| |
# of line, but @end html must begin the line, and have |
| |
# exactly one space. Things following end html are ignored. |
| |
# tex and ignore works like html |
| |
# |
| |
# ifnothtml might begin at another position than beginning |
| |
# of line, and @end ifnothtml might too, there might be more |
| |
# than one space between @end and ifnothtml but nothing more on |
| |
# the line. |
| |
# @end itemize, @end ftable works like @end ifnothtml. |
| |
# except that @item on the same line than @end vtable doesn't work |
| |
# |
| |
# text right after the itemize before an item is displayed. |
| |
# @item might be somewhere in a line. |
| |
# strangely @item on the same line than @end vtable doesn't work |
| |
# there should be nothing else than a command following @itemize... |
| |
# |
| |
# see more examples in formatting directory |
| |
|
| |
if ($state->{'raw'}) |
| |
{ |
| |
my $tag = $state->{'raw'}; |
| |
################# debug |
| |
if (! @$stack or ($stack->[-1]->{'style'} ne $tag)) |
| |
{ |
| |
print STDERR "Bug: raw or special: $tag but not on top of stack\n"; |
| |
print STDERR "line: $cline"; |
| |
dump_stack($text, $stack, $state); |
| |
exit 1; |
| |
} |
| |
################# end debug |
| |
if ($tag eq 'macro') |
| |
{ |
| |
if ($cline =~ /^\s*\@macro\s+(\w[\w-]*)\s*(.*)/) |
| |
{ |
| |
$state->{$tag}++; |
| |
} |
| |
} |
| |
# macro_regexp |
| |
if ($cline =~ /^(.*?)\@end\s([a-zA-Z][\w-]*)/o and ($2 eq $tag)) |
| |
{ |
| |
$cline =~ s/^(.*?)(\@end\s$tag)//; |
| |
add_prev ($text, $stack, $1); |
| |
my $end_text = $2; |
| |
if ($tag eq 'macro') |
| |
{ |
| |
$state->{$tag}--; |
| |
if ($state->{$tag}) |
| |
{ |
| |
add_prev ($text, $stack, $end_text); |
| |
next; |
| |
} |
| |
} |
| |
delete $state->{'raw'}; |
| |
my $style = pop @$stack; |
| |
if (defined($Texi2HTML::Config::command_handler{$tag})) |
| |
{ # replace the special region by what init_special give |
| |
if ($style->{'text'} !~ /^\s*$/) |
| |
{ |
| |
add_prev ($text, $stack, init_special($style->{'style'}, $style->{'text'})); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
add_prev ($text, $stack, $style->{'text'} . "\@end $tag"); |
| |
} |
| |
next; |
| |
} |
| |
else |
| |
{ |
| |
add_prev ($text, $stack, $cline); |
| |
return if (defined($Texi2HTML::Config::command_handler{$tag})); |
| |
last; |
| |
} |
| |
} |
| |
|
| |
if (defined($state->{'verb'})) |
| |
{ |
| |
my $char = quotemeta($state->{'verb'}); |
| |
if ($cline =~ s/^(.*?)$char\}/\}/) |
| |
{ |
| |
add_prev($text, $stack, $1 . $state->{'verb'}); |
| |
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'}; |
| |
delete $state->{'verb'}; |
| |
next; |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, $cline); |
| |
last; |
| |
} |
| |
} |
| |
|
| |
# macro_regexp |
| |
if ($cline =~ s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//) |
| |
{ |
| |
add_prev($text, $stack, $1); |
| |
my $end_tag = $2; |
| |
#print STDERR "END STRUCTURE $end_tag\n"; |
| |
return if (end_format_structure($end_tag, $text, $stack, $state, $line_nr, $cline)); |
| |
next; |
| |
} |
| |
# macro_regexp |
| |
elsif ($cline =~ s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])//o or $cline =~ s/^([^{}@]*)\@([a-zA-Z][\w-]*)//o) |
| |
{ |
| |
add_prev($text, $stack, $1); |
| |
my $macro = $2; |
| |
#print STDERR "MACRO $macro\n"; |
| |
$macro = $alias{$macro} if (exists($alias{$macro})); |
| |
if (defined($Texi2HTML::Config::deprecated_commands{$macro})) |
| |
{ |
| |
# makeinfo has |
| |
# "%c%s is obsolete; use %c%s instead" |
| |
if ($Texi2HTML::Config::deprecated_commands{$macro} eq '') |
| |
{ |
| |
line_warn(sprintf(__("%c%s is obsolete."), ord('@'), $macro), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
line_warn(sprintf(__("%c%s is obsolete; %s"),ord('@'), $macro, __($Texi2HTML::Config::deprecated_commands{$macro})), $line_nr); |
| |
} |
| |
} |
| |
if (defined($Texi2HTML::Config::misc_command{$macro})) |
| |
{ |
| |
my $line; |
| |
($cline, $line) = misc_command_structure($cline, $macro, $state, |
| |
$line_nr); |
| |
add_prev ($text, $stack, "\@$macro".$line); |
| |
next; |
| |
} |
| |
elsif ($macro eq 'printindex' and ($cline =~ /^\s+(\w+)/)) |
| |
{ |
| |
my $index_name = $1; |
| |
if (!exists($index_names{$index_name})) |
| |
{ |
| |
line_error (sprintf(__("Unknown index `%s' in \@printindex"),$index_name), $line_nr); |
| |
} |
| |
my $associated_element; |
| |
if ($state->{'current_element'} eq $element_before_anything) |
| |
{ |
| |
line_warn (sprintf(__("Printindex before document beginning: \@printindex %s"), $index_name), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
# $element_index is the first element with index |
| |
$element_index = $state->{'current_element'} unless (defined($element_index)); |
| |
$associated_element = $state->{'current_element'}; |
| |
} |
| |
my $region = $state->{'region'}; |
| |
$region = 'document' if (!defined($region)); |
| |
# FIXME use 'index_name' instead of 'name' |
| |
my $printindex = { 'associated_element' => $associated_element, 'name' => $index_name, 'region' => $region, 'command' => 'printindex' }; |
| |
# prepare association of the index to the element by |
| |
# putting it in the current place |
| |
push @{$state->{'place'}}, $printindex; |
| |
push @{$Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name}}, $printindex; |
| |
#print STDERR "PRINTINDEX add($printindex) region $region name $index_name, nr ".scalar(@{$Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name}})."\n"; |
| |
add_prev ($text, $stack, "\@$macro" . $cline); |
| |
last; |
| |
} |
| |
elsif ($macro eq 'listoffloats') |
| |
{ |
| |
add_prev ($text, $stack, "\@$macro" . $cline); |
| |
last; |
| |
} |
| |
elsif ($sec2level{$macro}) |
| |
{ |
| |
if ($cline =~ /^\s*(.*)$/) |
| |
{ |
| |
my $name = $1; |
| |
my $heading_ref = new_section_heading($macro, $name, $state, $line_nr); |
| |
if (exists($state->{'region_lines'}) and $state->{'region_lines'}->{'format'}) |
| |
{ |
| |
my $region = $state->{'region_lines'}->{'format'}; |
| |
$state->{'region_lines'}->{'head_num'}++; |
| |
my $num = $state->{'region_lines'}->{'head_num'}; |
| |
$heading_ref->{'id'} = "${target_prefix}${region}_HEAD$num"; |
| |
$heading_ref->{'sec_num'} = "${region}_$num"; |
| |
$heading_ref->{'region'} = $region; |
| |
$heading_ref->{'region_head_num'} = $num; |
| |
} |
| |
else |
| |
{ |
| |
$document_head_num++; |
| |
$heading_ref->{'id'} = "HEAD$document_head_num"; |
| |
$heading_ref->{'sec_num'} = $document_head_num; |
| |
} |
| |
# this is only used when there is a index entry after the |
| |
# heading |
| |
$heading_ref->{'target'} = $heading_ref->{'id'}; |
| |
$heading_ref->{'heading'} = 1; |
| |
$heading_ref->{'tag_level'} = $macro; |
| |
$heading_ref->{'number'} = ''; |
| |
|
| |
$state->{'heading_element'} = $heading_ref; |
| |
push @{$state->{'place'}}, $heading_ref; |
| |
$headings{$heading_ref->{'sec_num'}} = $heading_ref; |
| |
} |
| |
add_prev ($text, $stack, "\@$macro" . $cline); |
| |
last; |
| |
} |
| |
elsif (index_command_prefix($macro) ne '') |
| |
{ # if we are already in a (v|f)table the construct is quite |
| |
# wrong |
| |
# FIXME should it be discarded? |
| |
if ($state->{'item'}) |
| |
{ |
| |
line_error(sprintf(__("ignored \@%s already in an \@%s entry"), $macro, $state->{'item'}), $line_nr); |
| |
next; |
| |
} |
| |
my $index_prefix = index_command_prefix($macro); |
| |
enter_index_entry($index_prefix, $line_nr, $cline, $macro, $state); |
| |
add_prev ($text, $stack, "\@$macro" . $cline); |
| |
last; |
| |
} |
| |
elsif (defined($Texi2HTML::Config::texi_formats_map{$macro})) |
| |
{ |
| |
my $macro_kept; |
| |
#print STDERR "TEXT_MACRO: $macro\n"; |
| |
if ($Texi2HTML::Config::texi_formats_map{$macro} eq 'raw') |
| |
{ |
| |
$state->{'raw'} = $macro; |
| |
$state->{$macro}++ if ($macro eq 'macro'); |
| |
#print STDERR "RAW\n"; |
| |
} |
| |
elsif ($Texi2HTML::Config::texi_formats_map{$macro} eq 'normal') |
| |
{ |
| |
if ($macro eq 'menu') |
| |
{ |
| |
delete ($state->{'prev_menu_node'}); |
| |
if (!$state->{'node_ref'}) |
| |
{ |
| |
line_error (sprintf(__("\@%s seen before first \@node"), $macro), $line_nr); |
| |
line_error (__("perhaps your \@top node should be wrapped in \@ifnottex rather than \@ifinfo?"), $line_nr); |
| |
} |
| |
if ($state->{'menu_in_node'}) |
| |
{ |
| |
line_error (sprintf(__("Multiple \@%s"), $macro), $line_nr); |
| |
} |
| |
$state->{'menu_in_node'}++; |
| |
} |
| |
$state->{$macro}++; |
| |
push @{$state->{'text_macro_stack'}}, $macro; |
| |
#print STDERR "MENU (text_macro_stack: @{$state->{'text_macro_stack'}})\n"; |
| |
} |
| |
elsif (exists($region_lines{$macro})) |
| |
{ |
| |
if (exists($state->{'region_lines'}) and ($state->{'region_lines'}->{'format'} ne $macro)) |
| |
{ |
| |
line_error(sprintf(__("\@%s not allowed within %s"), $macro, $state->{'region_lines'}->{'format'}), $line_nr); |
| |
next; |
| |
} |
| |
open_region ($macro, $state); |
| |
if ($Texi2HTML::Config::region_formats_kept{$macro}) |
| |
{ |
| |
add_prev($text, $stack, "\@$macro"); |
| |
$macro_kept = 1; |
| |
$state->{'region_lines'}->{'first_line'} = 1; |
| |
} |
| |
push @{$state->{'text_macro_stack'}}, $macro; |
| |
} |
| |
# if it is a raw formatting command or a menu command |
| |
# we must keep it for later |
| |
if (($state->{'raw'} and (!defined($Texi2HTML::Config::command_handler{$macro}))) or ($Texi2HTML::Config::texi_formats_map{$macro} eq 'normal')) |
| |
{ |
| |
add_prev($text, $stack, "\@$macro"); |
| |
$macro_kept = 1; |
| |
} |
| |
if ($state->{'raw'}) |
| |
{ |
| |
push @$stack, { 'style' => $macro, 'text' => '' }; |
| |
} |
| |
next if $macro_kept; |
| |
#dump_stack ($text, $stack, $state); |
| |
return if ($cline =~ /^\s*$/); |
| |
} |
| |
elsif ($macro eq 'detailmenu' or $macro eq 'direntry') |
| |
{ |
| |
if ($macro eq 'detailmenu' and !$state->{'node_ref'}) |
| |
{ |
| |
line_error (sprintf(__("\@%s seen before first \@node"), $macro), $line_nr); |
| |
} |
| |
add_prev ($text, $stack, "\@$macro" . $cline); |
| |
$state->{$macro}++; |
| |
last; |
| |
} |
| |
elsif ($macro eq 'float') |
| |
{ |
| |
my ($style_texi, $label_texi) = parse_line_arguments($cline, 2, "\@$macro", $line_nr); |
| |
$style_texi = normalise_texi_space($style_texi); |
| |
$label_texi = undef if (defined($label_texi) and ($label_texi =~ /^\s*$/)); |
| |
if (defined($label_texi)) |
| |
{ # The float may be a target for refs if it has a label |
| |
my $error_with_label = 1; |
| |
$label_texi = normalise_node($label_texi); |
| |
if (exists($nodes{$label_texi}) and defined($nodes{$label_texi}) |
| |
and $nodes{$label_texi}->{'seen'}) |
| |
{ |
| |
line_error (sprintf(__("Float label `%s' previously defined %s"), $label_texi, format_line_number($nodes{$label_texi}->{'line_nr'})), $line_nr); |
| |
} |
| |
elsif ($label_texi =~ /^\(.+\)/) |
| |
{ |
| |
line_error (sprintf(__("Syntax for an external node used for `%s'"), $label_texi), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
$error_with_label = 0; |
| |
my $float = { }; |
| |
if (exists($nodes{$label_texi}) and defined($nodes{$label_texi})) |
| |
{ # float appeared in a menu |
| |
$float = $nodes{$label_texi}; |
| |
} |
| |
else |
| |
{ |
| |
$nodes{$label_texi} = $float; |
| |
} |
| |
$float->{'float'} = 1; |
| |
$float->{'tag'} = 'float'; |
| |
$float->{'texi'} = $label_texi; |
| |
$float->{'seen'} = 1; |
| |
$float->{'id'} = $label_texi; |
| |
$float->{'target'} = $label_texi; |
| |
#print STDERR "FLOAT: $float $float->{'texi'}, place $state->{'place'}\n"; |
| |
push @{$state->{'place'}}, $float; |
| |
$float->{'element'} = $state->{'current_element'}; |
| |
$state->{'float'} = $float; |
| |
$float->{'style_texi'} = $style_texi; |
| |
$float->{'line_nr'} = $line_nr; |
| |
push @floats, $float; |
| |
} |
| |
|
| |
if ($error_with_label) |
| |
{ |
| |
while ($cline =~ /,/) |
| |
{ |
| |
$cline =~ s/,.*$//; |
| |
} |
| |
} |
| |
} |
| |
add_prev($text, $stack, "\@$macro" . $cline); |
| |
last; |
| |
} |
| |
elsif (defined($Texi2HTML::Config::def_map{$macro})) |
| |
{ |
| |
# @ may protect end of line in @def. We reconstruct lines here. |
| |
# in the texinfo manual is said that spaces after @ collapse |
| |
if ($cline =~ /(\@+)\s*$/) |
| |
{ |
| |
my $at_at_end_of_line = $1; |
| |
if ((length($at_at_end_of_line) % 2) == 1) |
| |
{ |
| |
#print STDERR "Line continue $cline"; |
| |
my $def_line = $cline; |
| |
$def_line =~ s/\@\s*$//; |
| |
chomp($def_line); |
| |
$state->{'in_deff_line'} = "\@$macro" .$def_line; |
| |
return; |
| |
} |
| |
} |
| |
#We must enter the index entries |
| |
my ($prefix, $entry, $argument) = get_deff_index($macro, $cline, $line_nr,1); |
| |
# use deffn instead of deffnx for @-command record |
| |
# associated with index entry |
| |
my $idx_macro = $macro; |
| |
$idx_macro =~ s/x$//; |
| |
enter_index_entry($prefix, $line_nr, $entry, $idx_macro, $state) |
| |
if ($prefix); |
| |
$cline =~ s/(.*)//; |
| |
add_prev($text, $stack, "\@$macro" . $1); |
| |
} |
| |
elsif ($macro =~ /^itemx?$/) |
| |
{ |
| |
enter_table_index_entry($text, $stack, $state, $line_nr); |
| |
if ($state->{'table_stack'}->[-1] =~ /^(v|f)?table$/) |
| |
{ |
| |
$state->{'item'} = $macro; |
| |
push @$stack, { 'format' => 'index_item', 'text' => '', 'command' => $macro }; |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, "\@$macro"); |
| |
} |
| |
} |
| |
elsif ($format_type{$macro} and ($format_type{$macro} eq 'table' or $format_type{$macro} eq 'list' or $macro eq 'multitable')) |
| |
{ # We must enter the index entries of (v|f)table thus we track |
| |
# in which table we are |
| |
push @{$state->{'table_stack'}}, $macro; |
| |
add_prev($text, $stack, "\@$macro"); |
| |
} |
| |
elsif ($cline =~ s/^{//) |
| |
{ |
| |
if ($macro eq 'verb') |
| |
{ |
| |
if ($cline =~ /^$/) |
| |
{ |
| |
# We already warned in pass texi |
| |
} |
| |
else |
| |
{ |
| |
$cline =~ s/^(.)//; |
| |
$state->{'verb'} = $1; |
| |
} |
| |
} |
| |
elsif ($macro eq 'footnote' and (Texi2HTML::Config::get_conf('footnotestyle') eq 'separate')) |
| |
{ |
| |
$state->{'footnote_heading_element'} = $state->{'heading_element'}; |
| |
$state->{'footnote_place'} = $state->{'place'}; |
| |
$state->{'heading_element'} = $footnote_element; |
| |
$state->{'place'} = $footnote_element->{'place'}; |
| |
} |
| |
push (@$stack, { 'style' => $macro, 'text' => '' }); |
| |
} |
| |
else |
| |
{ |
| |
$cline = do_unknown (1, $macro, $cline, $text, $stack, $state, $line_nr); |
| |
} |
| |
next; |
| |
} |
| |
#elsif($cline =~ s/^([^{}@]*)\@(.)//o) |
| |
elsif($cline =~ s/^([^{}@]*)\@([^\s\}\{\@]*)//o) |
| |
{ |
| |
add_prev($text, $stack, $1); |
| |
$cline = do_unknown (1, $2, $cline, $text, $stack, $state, $line_nr); |
| |
next; |
| |
} |
| |
elsif ($cline =~ s/^([^{}]*)([{}])//o) |
| |
{ |
| |
add_prev($text, $stack, $1); |
| |
if ($2 eq '{') |
| |
{ |
| |
push @$stack, { 'style' => '', 'text' => '' }; |
| |
} |
| |
else |
| |
{ |
| |
if (@$stack) |
| |
{ |
| |
my $style = pop @$stack; |
| |
my $result; |
| |
add_prev ($text, $stack, |
| |
close_structure_command($style, $state, 0, $line_nr)); |
| |
next; |
| |
} |
| |
else |
| |
{ |
| |
# We warn in the last pass |
| |
add_prev ($text, $stack, '}'); |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, $cline); |
| |
# in case of user mistake, with an @-command not closed on an @item line |
| |
close_stack_structure($text, $stack, $state, $line_nr, 1) if ($state->{'item'}); |
| |
enter_table_index_entry($text, $stack, $state, $line_nr); |
| |
#print STDERR "END_LINE(s) $cline"; |
| |
#dump_stack($text, $stack, $state); |
| |
last; |
| |
} |
| |
} |
| |
return 1; |
| |
} # end scan_structure |
| |
|
| |
sub check_bad_end_argument ($$$) |
| |
{ |
| |
my $command = shift; |
| |
my $line = shift; |
| |
my $line_nr = shift; |
| |
|
| |
if ($line =~ /^(\S+)/) |
| |
{ |
| |
my $symbols = $1; |
| |
line_error (sprintf(__("Bad argument `%s' to `\@%s', using `%s'"), "${command}${symbols}", 'end', $command), $line_nr); |
| |
} |
| |
} |
| |
|
| |
sub close_style_command($$$$$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $line = shift; |
| |
# not the end of the style, but the paragraph the style is in is closed |
| |
my $no_close = shift; |
| |
|
| |
my $style = pop @$stack; |
| |
my $command = $style->{'style'}; |
| |
my $result; |
| |
if (!defined($command)) |
| |
{ |
| |
print STDERR "Bug: empty style in pass_text\n"; |
| |
return ($result, $command); |
| |
} |
| |
if (ref($::style_map_ref->{$command}) eq 'HASH') |
| |
{ |
| |
push (@{$style->{'args'}}, $style->{'text'}); |
| |
$style->{'fulltext'} .= $style->{'text'}; |
| |
if (!defined($style->{'arg_nr'})) |
| |
{ |
| |
msg_debug("Bug: undefined 'arg_nr' for $command", $line_nr); |
| |
} |
| |
#print STDERR "DEBUG $command ($style->{'arg_nr'})\n"; |
| |
#my $number = 0; |
| |
#foreach my $arg(@{$style->{'args'}}) |
| |
#{ |
| |
# print STDERR " $number: $arg\n"; |
| |
# $number++; |
| |
#} |
| |
#print STDERR "END DEBUG\n"; |
| |
$style->{'text'} = $style->{'fulltext'}; |
| |
$state->{'keep_texi'} = 0 if ( |
| |
($::style_map_ref->{$command}->{'args'}->[$style->{'arg_nr'}] eq 'keep') |
| |
and ($state->{'keep_nr'} == 1)); |
| |
} |
| |
if ($no_paragraph_macro{$command}) |
| |
{ |
| |
$state->{'no_paragraph'}--; |
| |
pop @{$state->{'no_paragraph_stack'}}; |
| |
} |
| |
if ($::style_map_ref->{$command} and (defined($style_type{$command})) and ((!$no_close and ($style_type{$command} eq 'style')) or ($style_type{$command} eq 'accent'))) |
| |
{ |
| |
my $style_command = pop @{$state->{'command_stack'}}; |
| |
if ($style_command ne $command) |
| |
{ |
| |
#line_warn ("Bug: $style_command on 'command_stack', not $command", $line_nr); |
| |
# This can be a bug in case of bad nesting, see bad_style_nesting.texi |
| |
line_warn("Bad nesting of \@$style_command and \@$command", $line_nr); |
| |
push @{$state->{'command_stack'}}, $style_command; |
| |
############################ debug |
| |
if ($T2H_DEBUG) |
| |
{ |
| |
push @$stack, $style; |
| |
print STDERR "Stacks before pop top:\n"; |
| |
dump_stack($text, $stack, $state); |
| |
pop @$stack; |
| |
############################ end debug |
| |
} |
| |
} |
| |
} |
| |
if ($state->{'keep_texi'}) |
| |
{ # don't expand @-commands in anchor, refs... |
| |
close_arg ($command, $style->{'arg_nr'}, $state); |
| |
$result = '@' . $command . '{' . $style->{'text'} . '}'; |
| |
} |
| |
elsif ($::things_map_ref->{$command}) |
| |
{ |
| |
$result = do_thing_command ($command, $style->{'text'}, $state, $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
$result = do_style_command($command, $style->{'text'}, $state, $style->{'args'}, $line_nr, $style->{'no_open'}, $no_close, $style->{'keep_line_nr'}); |
| |
if ($state->{'code_style'} < 0) |
| |
{ |
| |
msg_debug ("Bug: negative code_style: $state->{'code_style'}, line:$line", $line_nr); |
| |
} |
| |
if ($state->{'math_style'} < 0) |
| |
{ |
| |
msg_debug ("Bug: negative math_style: $state->{'math_style'}, line:$line", $line_nr); |
| |
} |
| |
} |
| |
return ($result, $command); |
| |
} |
| |
|
| |
sub top_stack_is_menu($) |
| |
{ |
| |
my $stack = shift; |
| |
my $top_stack = top_stack($stack, 1); |
| |
return 0 if (!$format_type{$top_stack->{'format'}} or $format_type{$top_stack->{'format'}} ne 'menu'); |
| |
return 1; |
| |
} |
| |
|
| |
|
| |
sub scan_line($$$$;$) |
| |
{ |
| |
my $original_line = shift; |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
die "stack not an array ref" unless (ref($stack) eq "ARRAY"); |
| |
my $cline = $original_line; |
| |
#msg_debug("SCAN_LINE (@{$state->{'command_stack'}}): $original_line", $line_nr); |
| |
#dump_stack($text, $stack, $state); |
| |
my $new_menu_entry; # true if there is a new menu entry |
| |
# my $menu_description_in_format; # true if we are in a menu description |
| |
# # but in another format section (@table....) |
| |
|
| |
# this can happen currently with quotations |
| |
if (defined($state->{'prepend_text'})) |
| |
{ |
| |
$cline = $state->{'prepend_text'} . $cline; |
| |
$state->{'prepend_text'} = undef; |
| |
delete $state->{'prepend_text'}; |
| |
} |
| |
|
| |
if (!$state->{'raw'} and !$state->{'verb'} and ($state->{'menu'} or $state->{'direntry'})) |
| |
{ # new menu entry |
| |
my ($node, $name, $ending, $remaining) = parse_menu_entry($cline); |
| |
if (defined($node)) |
| |
{ |
| |
$cline = $remaining; |
| |
print STDERR "# Potential menu entry: $node\n" if ($T2H_DEBUG & $DEBUG_MENU); |
| |
$new_menu_entry = 1; |
| |
my $menu_entry = { 'name' => $name, 'node' => $node, 'ending' => $ending }; |
| |
# in SIMPLE_MENU case we don't begin a description, description is |
| |
# just some normal (preformatted) text |
| |
if ($Texi2HTML::Config::SIMPLE_MENU) |
| |
{ |
| |
add_prev ($text, $stack, do_menu_link($state, $line_nr, $menu_entry)); |
| |
#dump_stack($text, $stack, $state); |
| |
} |
| |
else |
| |
{ |
| |
# close description and comment, if they are opened. |
| |
#dump_stack($text, $stack, $state); |
| |
if (!close_menu_comment($text, $stack, $state, __("new menu entry"), $line_nr) |
| |
and !close_menu_description($text, $stack, $state, __("new menu entry"), $line_nr) |
| |
and $state->{'preformatted'}) |
| |
{ |
| |
close_paragraph($text, $stack, $state, __("new menu entry"), $line_nr); |
| |
} |
| |
print STDERR "# New menu entry: $node\n" if ($T2H_DEBUG & $DEBUG_MENU); |
| |
#dump_stack($text, $stack, $state); |
| |
my $fusionned_description = 0; |
| |
# fusionned looks better in preformatted. But some formats |
| |
# want to always distinguish link and description |
| |
if ($Texi2HTML::Config::SEPARATE_DESCRIPTION or !$state->{'preformatted'}) |
| |
{ |
| |
add_prev ($text, $stack, do_menu_link($state, $line_nr, $menu_entry)); |
| |
} |
| |
else |
| |
{ |
| |
$fusionned_description = 1; |
| |
} |
| |
push @$stack, {'format' => 'menu_description', 'text' => '', 'menu_entry' => $menu_entry, 'fusionned_description' => $fusionned_description}; |
| |
$state->{'code_style'}++ if ($Texi2HTML::Config::format_code_style{'menu_description'}); |
| |
if ($fusionned_description) |
| |
{ |
| |
begin_paragraph($stack, $state) if $state->{'preformatted'}; |
| |
add_prev ($text, $stack, do_menu_link($state, $line_nr, $menu_entry)); |
| |
} |
| |
} |
| |
} |
| |
# we may be in a menu entry description, we close it |
| |
# if there is an empty line, so the last arg is $cline. |
| |
# also if right in menu we always open a menu_comment, it |
| |
# means that there was no menu entry seen since the menu beginning. |
| |
if (!$new_menu_entry and (close_menu_description($text, $stack, $state, "end menu description", $line_nr, $cline) or ($stack->[-1]->{'format'} and $format_type{$stack->[-1]->{'format'}} and $format_type{$stack->[-1]->{'format'}} eq 'menu'))) |
| |
{ |
| |
if ($state->{'preformatted'}) |
| |
{ |
| |
begin_paragraph($stack, $state); |
| |
} |
| |
else |
| |
{ |
| |
# only start a menu_comment if right in menu and not in |
| |
# a format below a menu because if not right |
| |
# in a menu we have no way to distinguish a menu_comment |
| |
# and some normal text in the format. |
| |
# also it is not started in preformatted environment |
| |
begin_format($text, $stack, $state, 'menu_comment', $cline, $line_nr) if ($stack->[-1]->{'format'} and $format_type{$stack->[-1]->{'format'}} and $format_type{$stack->[-1]->{'format'}} eq 'menu'); |
| |
} |
| |
} |
| |
} |
| |
|
| |
unless ($state->{'raw'} or $state->{'verb'} or $state->{'keep_texi'}) |
| |
{ |
| |
# first the line commands are taken into account |
| |
my $next_command = next_tag($cline); |
| |
if (defined($next_command) and defined($Texi2HTML::Config::line_command_map{$next_command})) |
| |
{ |
| |
close_paragraph($text, $stack, $state, "\@$next_command", $line_nr, 1) if (stop_paragraph_command($next_command)); |
| |
my $arg_texi = $cline; |
| |
$arg_texi =~ s/^\s*\@$next_command\s*//; |
| |
$arg_texi = trim_comment_spaces ($arg_texi, "\@$next_command", $line_nr); |
| |
my $arg_line = substitute_line($arg_texi, "\@$next_command", duplicate_formatting_state($state)); |
| |
add_prev ($text, $stack, &$Texi2HTML::Config::line_command($next_command, $arg_line, $arg_texi, $state)); |
| |
enter_author_command ($next_command, $arg_texi, $arg_line, $stack, $state, $line_nr); |
| |
return ''; |
| |
} |
| |
elsif (defined($next_command) and ($next_command eq 'contents') or ($next_command eq 'summarycontents') or ($next_command eq 'shortcontents')) |
| |
{ |
| |
my $element_tag = $next_command; |
| |
$element_tag = 'shortcontents' if ($element_tag ne 'contents'); |
| |
# at that point the content_element is defined for sure since |
| |
# we already saw the tag |
| |
if ($Texi2HTML::Config::INLINE_CONTENTS and !Texi2HTML::Config::get_conf('set' . $element_tag . 'aftertitlepage')) |
| |
{ |
| |
my $content_element = shift (@{$all_content_elements{$element_tag}}); |
| |
my $toc_lines = &$Texi2HTML::Config::inline_contents($Texi2HTML::THISDOC{'FH'}, $element_tag, $content_element, \@sections_list); |
| |
add_prev ($text, $stack, join('',@$toc_lines)) if (defined($toc_lines)); |
| |
} |
| |
return '' unless (exists($Texi2HTML::Config::misc_command{$next_command}) and $Texi2HTML::Config::misc_command{$next_command}->{'keep'}); |
| |
} |
| |
|
| |
# The commands to ignore are ignored now in case after ignoring them |
| |
# there is an empty line, to be able to stop the paragraph |
| |
#my $leading_spaces = ''; |
| |
|
| |
while (1) |
| |
{ |
| |
my $next_tag = next_tag($cline); |
| |
close_paragraph($text, $stack, $state, "\@$next_tag", $line_nr, 1) if (stop_paragraph_command($next_tag)); |
| |
if (defined($next_tag) and defined($Texi2HTML::Config::misc_command{$next_tag}) and !$Texi2HTML::Config::misc_command{$next_tag}->{'keep'}) |
| |
{ |
| |
$cline =~ s/^(\s*)\@$next_tag//; |
| |
#$leading_spaces .= $1; |
| |
add_prev ($text, $stack, do_text($1, $state)); |
| |
my $result; |
| |
($cline, $result) = misc_command_text($cline, $next_tag, $stack, $state, $text, $line_nr); |
| |
add_prev($text, $stack, $result) if (defined($result)); |
| |
} |
| |
else |
| |
{ |
| |
last; |
| |
} |
| |
} |
| |
#add_prev ($text, $stack, $leading_spaces); |
| |
return '' if (!defined($cline) or $cline eq ''); |
| |
} |
| |
my $top_stack = top_stack($stack); |
| |
if (($top_stack->{'format'} and $top_stack->{'format'} eq 'menu_description') or $state->{'raw'} or $state->{'preformatted'} or $state->{'no_paragraph'} or $state->{'keep_texi'} or $state->{'remove_texi'}) |
| |
{ # empty lines are left unmodified in these contexts. |
| |
# it is also possible to be in preformatted within a menu_description |
| |
if ($cline =~ /^\s*$/) |
| |
{ |
| |
if ($state->{'raw'}) |
| |
{ |
| |
print STDERR "#within raw $state->{'raw'}(empty line):$cline" if ($T2H_DEBUG & $DEBUG_FORMATS); |
| |
add_prev($text, $stack, $cline); |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, do_text($cline,$state)); |
| |
} |
| |
return; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
if ($cline =~ /^\s*$/) |
| |
{ |
| |
if ($state->{'paragraph_context'}) |
| |
{ # An empty line ends a paragraph |
| |
close_paragraph($text, $stack, $state, __("paragraph end"), $line_nr); |
| |
} |
| |
add_prev($text, $stack, &$Texi2HTML::Config::empty_line($cline,$state)); |
| |
return 1; |
| |
} |
| |
else |
| |
{ |
| |
if (!no_paragraph($state,$cline)) |
| |
{ # open a paragraph, unless the line begins with a macro that |
| |
# shouldn't trigger a paragraph opening |
| |
begin_paragraph($stack, $state); |
| |
} |
| |
} |
| |
} |
| |
# we flag specially deff_item and table line that contain only |
| |
# inter_item_command, which typically is be @c, @comment, @*index, such |
| |
# that the formatter can treat those specifically. |
| |
my $top_format = top_stack($stack,2); |
| |
if ($top_format->{'only_inter_commands'} and !$state->{'keep_texi'}) |
| |
{ |
| |
my $real_format = $top_format->{'format_ref'}->{'format'}; |
| |
my $next_tag = next_tag($cline); |
| |
$next_tag = '' if (!defined($next_tag)); |
| |
my $next_end_tag = next_end_tag($cline); |
| |
$next_end_tag = '' if (!defined($next_end_tag)); |
| |
#msg_debug("$top_format->{'format'} $next_tag, end $next_end_tag :::$cline"); |
| |
delete $top_format->{'only_inter_commands'} unless |
| |
( |
| |
$Texi2HTML::Config::inter_item_commands{$next_tag} or |
| |
(index_command_prefix($next_tag) ne '' and $Texi2HTML::Config::inter_item_commands{'cindex'}) or |
| |
($top_format->{'format'} eq 'deff_item' and "${real_format}x" eq $next_tag) or |
| |
($top_format->{'format'} ne 'deff_item' and $next_tag =~ /^itemx?$/) or |
| |
( $next_end_tag eq $real_format ) |
| |
); |
| |
#print STDERR "STILL $top_format->{'only_inter_commands'}\n" if ($top_format->{'only_inter_commands'}); |
| |
} |
| |
|
| |
while(1) |
| |
{ |
| |
# scan_line |
| |
#print STDERR "WHILE(l): $cline|"; |
| |
#msg_debug("Dump stack in scan_line", $line_nr); |
| |
#dump_stack($text, $stack, $state); |
| |
# we're in a raw format (html, tex if !L2H, verbatim) |
| |
if (defined($state->{'raw'})) |
| |
{ |
| |
(dump_stack($text, $stack, $state), die "Bug for raw ($state->{'raw'})") if (! @$stack or ! ($stack->[-1]->{'style'} eq $state->{'raw'})); |
| |
if ($state->{'raw'} eq 'macro') |
| |
{ |
| |
if ($cline =~ /^\s*\@macro\s+(\w[\w-]*)\s*(.*)/) |
| |
{ |
| |
$state->{$state->{'raw'}}++; |
| |
} |
| |
} |
| |
# macro_regexp |
| |
if ($cline =~ /^(.*?)\@end\s([a-zA-Z][\w-]*)/o and ($2 eq $state->{'raw'})) |
| |
# don't protect html, it is done by Texi2HTML::Config::raw if needed |
| |
{ |
| |
$cline =~ s/^(.*?)(\@end\s$state->{'raw'})//; |
| |
my $remaining = $1; |
| |
my $end_text = $2; |
| |
if ($state->{'raw'} eq 'macro') |
| |
{ |
| |
$state->{$state->{'raw'}}--; |
| |
if ($state->{$state->{'raw'}}) |
| |
{ |
| |
add_prev ($text, $stack, $remaining.$end_text); |
| |
last; |
| |
} |
| |
} |
| |
check_bad_end_argument ($state->{'raw'}, $cline, $line_nr); |
| |
add_prev ($text, $stack, $remaining); |
| |
my $style = pop @$stack; |
| |
if ($style->{'text'} !~ /^\s*$/) |
| |
{ |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
add_prev ($text, $stack, $style->{'text'} . "\@end $state->{'raw'}"); |
| |
} |
| |
elsif ($state->{'remove_texi'}) |
| |
{ |
| |
add_prev ($text, $stack, &$Texi2HTML::Config::raw_no_texi($style->{'style'}, $style->{'text'})); |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, &$Texi2HTML::Config::raw($style->{'style'}, $style->{'text'}, $line_nr)); |
| |
} |
| |
} |
| |
if (!$state->{'keep_texi'} and !$state->{'remove_texi'}) |
| |
{ |
| |
# reopen preformatted if it was interrupted by the raw format |
| |
# if raw format is html the preformatted wasn't interrupted |
| |
begin_paragraph($stack, $state) if ($state->{'preformatted'} and (!$Texi2HTML::Config::format_in_paragraph{$state->{'raw'}})); |
| |
delete $state->{'raw'}; |
| |
return if ($cline =~ /^\s*$/); |
| |
} |
| |
delete $state->{'raw'}; |
| |
return if (($cline =~ /^\s*$/) and $state->{'remove_texi'}); |
| |
next; |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "#within raw $state->{'raw'}:$cline" if ($T2H_DEBUG & $DEBUG_FORMATS); |
| |
add_prev ($text, $stack, $cline); |
| |
last; |
| |
} |
| |
} |
| |
|
| |
# we are within a @verb |
| |
if (defined($state->{'verb'})) |
| |
{ |
| |
my $char = quotemeta($state->{'verb'}); |
| |
if ($cline =~ s/^(.*?)$char\}/\}/) |
| |
{ |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
add_prev($text, $stack, $1 . $state->{'verb'}); |
| |
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'}; |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, do_text($1, $state)); |
| |
} |
| |
delete $state->{'verb'}; |
| |
next; |
| |
} |
| |
else |
| |
{ |
| |
add_prev($text, $stack, $cline); |
| |
last; |
| |
} |
| |
} |
| |
|
| |
# We handle now the end tags |
| |
# macro_regexp |
| |
if ($cline =~ s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//) |
| |
{ |
| |
my $end_tag = $2; |
| |
my $prev_text = $1; |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
add_prev($text, $stack, $prev_text . "\@end $end_tag"); |
| |
next; |
| |
} |
| |
elsif ($state->{'remove_texi'}) |
| |
{ |
| |
add_prev($text, $stack, $prev_text); |
| |
next; |
| |
} |
| |
|
| |
add_prev($text, $stack, do_text($prev_text, $state)); |
| |
#print STDERR "END_MACRO $end_tag\n"; |
| |
#dump_stack ($text, $stack, $state); |
| |
|
| |
# First we test if the stack is not empty. |
| |
# Then we test if the end tag is a format tag. |
| |
# We then close paragraphs and preformatted at top of the stack. |
| |
# We handle the end tag (even when it was not the tag which appears |
| |
# on the top of the stack; in that case we close anything |
| |
# until that element) |
| |
my $top_stack = top_stack($stack); |
| |
if (!$top_stack) |
| |
{ |
| |
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr); |
| |
add_prev($text, $stack, "\@end $end_tag"); |
| |
next; |
| |
} |
| |
|
| |
if (!$format_type{$end_tag}) |
| |
{ |
| |
line_warn ("Unknown \@end $end_tag", $line_nr); |
| |
add_prev($text, $stack, "\@end $end_tag"); |
| |
next; |
| |
} |
| |
check_bad_end_argument ($end_tag, $cline, $line_nr); |
| |
if (!close_menu_description($text, $stack, $state, "\@end $end_tag", $line_nr)) |
| |
{ |
| |
close_paragraph($text, $stack, $state, "\@end $end_tag", $line_nr); |
| |
} |
| |
|
| |
$top_stack = top_stack($stack); |
| |
if (!$top_stack or (!defined($top_stack->{'format'}))) |
| |
{ |
| |
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr); |
| |
add_prev($text, $stack, "\@end $end_tag"); |
| |
dump_stack ($text, $stack, $state) if ($T2H_DEBUG); |
| |
next; |
| |
} |
| |
# Warn if the format on top of stack is not compatible with the |
| |
# end tag, and find the end tag. |
| |
unless ( |
| |
($top_stack->{'format'} eq $end_tag) |
| |
or |
| |
( |
| |
$format_type{$end_tag} eq 'menu' and |
| |
$top_stack->{'format'} eq 'menu_comment' |
| |
) or |
| |
( |
| |
$end_tag eq 'multitable' and $top_stack->{'format'} eq 'cell' |
| |
) or |
| |
( |
| |
$format_type{$end_tag} eq 'list' and $top_stack->{'format'} eq 'item' |
| |
) or |
| |
( |
| |
$format_type{$end_tag} eq 'table' |
| |
and |
| |
($top_stack->{'format'} eq 'term' or $top_stack->{'format'} eq 'line') |
| |
) or |
| |
( |
| |
defined($Texi2HTML::Config::def_map{$end_tag}) and |
| |
$top_stack->{'format'} eq 'deff_item' |
| |
) |
| |
) |
| |
{ |
| |
# this is not the right format. We try to close other |
| |
# formats to find the format we are searching for. |
| |
# First we close paragraphs, as with a wrong $end_format |
| |
# they may not be closed properly. |
| |
|
| |
#print STDERR " MISMATCH got $top_stack->{'format'} waited \@end $end_tag($top_stack->{'format'})\n"; |
| |
#dump_stack ($text, $stack, $state); |
| |
close_paragraph($text, $stack, $state, "\@end $end_tag", $line_nr); |
| |
$top_stack = top_stack($stack); |
| |
if (!$top_stack or (!defined($top_stack->{'format'}))) |
| |
{ |
| |
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr); |
| |
add_prev($text, $stack, "\@end $end_tag"); |
| |
# at that point the dump_stack is not very useful, since |
| |
# close_paragraph above may hide interesting info |
| |
dump_stack ($text, $stack, $state) if ($T2H_DEBUG); |
| |
next; |
| |
} |
| |
my $waited_format = $top_stack->{'format'}; |
| |
$waited_format = $fake_format{$top_stack->{'format'}} if ($format_type{$top_stack->{'format'}} eq 'fake'); |
| |
if ($end_tag ne $waited_format) |
| |
{ |
| |
line_error (sprintf(__("`\@end' expected `%s', but saw `%s'"), $waited_format, $end_tag), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
msg_debug ("\@end is $end_tag, was waiting for $top_stack->{'format'}", $line_nr); |
| |
dump_stack ($text, $stack, $state); |
| |
} |
| |
close_stack($text, $stack, $state, $line_nr, $end_tag); |
| |
# FIXME this is too complex |
| |
# an empty preformatted may appear when closing things as |
| |
# when closed, formats reopen the preformatted environment |
| |
# in case there is some text following, but we know it isn't |
| |
# the case here, thus we can close paragraphs. |
| |
close_paragraph($text, $stack, $state, "\@end $end_tag"); |
| |
my $new_top_stack = top_stack($stack); |
| |
next unless ($new_top_stack and defined($new_top_stack->{'format'}) and (($new_top_stack->{'format'} eq $end_tag) |
| |
or (($format_type{$new_top_stack->{'format'}} eq 'fake') and ($fake_format{$new_top_stack->{'format'}} eq $format_type{$end_tag})))); |
| |
} |
| |
# We should now be able to handle the format |
| |
if (defined($format_type{$end_tag})) |
| |
{# remove the space or new line following the @end command |
| |
$cline =~ s/\s//; |
| |
if (end_format($text, $stack, $state, $end_tag, $line_nr)) |
| |
{ # if end_format is false, paragraph is already begun |
| |
begin_paragraph_after_command($state,$stack,$end_tag,$cline); |
| |
} |
| |
} |
| |
next; |
| |
} |
| |
# This is a macro |
| |
#elsif (s/^([^{}@]*)\@([a-zA-Z]\w*|["'~\@\}\{,\.!\?\s\*\-\^`=:\/])//o) |
| |
# macro_regexp |
| |
elsif ($cline =~ s/^([^{},@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])//o or $cline =~ s/^([^{}@,]*)\@([a-zA-Z][\w-]*)//o) |
| |
{ |
| |
my $before_macro = $1; |
| |
my $macro = $2; |
| |
$macro = $alias{$macro} if (exists($alias{$macro})); |
| |
my $punct; |
| |
if (!$state->{'keep_texi'} and $macro eq ':' and $before_macro =~ /(.)$/ and $Texi2HTML::Config::colon_command_punctuation_characters{$1}) |
| |
{ |
| |
$before_macro =~ s/(.)$//; |
| |
$punct = $1; |
| |
} |
| |
add_prev($text, $stack, do_text($before_macro, $state)); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::colon_command($punct)) if (defined($punct)); |
| |
#print STDERR "MACRO $macro\n"; |
| |
#print STDERR "LINE $cline"; |
| |
#dump_stack ($text, $stack, $state); |
| |
|
| |
close_paragraph($text, $stack, $state, "\@$macro", $line_nr, 1) if (stop_paragraph_command($macro) and !$state->{'keep_texi'}); |
| |
|
| |
if ($macro eq 'listoffloats' or $macro eq 'printindex') |
| |
{ |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
if ($cline =~ s/(.*)//o) |
| |
{ |
| |
add_prev($text, $stack, "\@$macro" . $1); |
| |
} |
| |
next; |
| |
} |
| |
close_paragraph($text, $stack, $state, "\@$macro", $line_nr); |
| |
return undef if ($state->{'remove_texi'}); |
| |
if ($macro eq 'listoffloats') |
| |
{ |
| |
# remove possible comments |
| |
my $arg = normalise_texi_space(trim_comment_spaces ($cline, "\@$macro", $line_nr)); |
| |
|
| |
my $style_id = cross_manual_line($arg); |
| |
my $style = substitute_line (&$Texi2HTML::Config::listoffloats_style($arg), __("\@listoffloats type"), undef, $line_nr); |
| |
my $style_no_texi = remove_texi (&$Texi2HTML::Config::listoffloats_style($arg)); |
| |
if (exists ($floats{$style_id})) |
| |
{ |
| |
my @listoffloats_entries = (); |
| |
foreach my $float (@{$floats{$style_id}->{'floats'}}) |
| |
{ |
| |
my $float_style = substitute_line(&$Texi2HTML::Config::listoffloats_float_style($arg, $float), __("\@listoffloats \@float type")); |
| |
my ($caption_lines, $caption_or_shortcaption) = &$Texi2HTML::Config::listoffloats_caption($float); |
| |
# we set 'multiple_pass', and 'expansion' |
| |
# such that index entries |
| |
# and anchors are not handled one more time; |
| |
# the caption has already been formatted, |
| |
# and these have been handled at the right place |
| |
# FIXME footnotes? |
| |
my $caption = ''; |
| |
$caption = substitute_text(prepare_state_multiple_pass($macro, $state), undef, "\@$caption_or_shortcaption in listoffloats", @$caption_lines) if (defined($caption_or_shortcaption)); |
| |
push @listoffloats_entries, &$Texi2HTML::Config::listoffloats_entry($arg, $float, $float_style, $caption, href($float, $state->{'element'}->{'file'}, $line_nr)); |
| |
} |
| |
add_prev($text, $stack, &$Texi2HTML::Config::listoffloats($arg, $style, \@listoffloats_entries)); |
| |
} |
| |
else |
| |
{ |
| |
line_warn (sprintf(__("Requested float type `%s' not previously used"), $arg), $line_nr); |
| |
} |
| |
} |
| |
elsif ($macro eq 'printindex' and $cline =~ s/\s+(\w+)\s*//) |
| |
{ |
| |
my $index_name = $1; |
| |
my $region = $state->{'region'}; |
| |
$region = 'document' if (!defined($region)); |
| |
|
| |
if (!defined($Texi2HTML::THISDOC{'indices'}->{$region})) |
| |
{ |
| |
msg_debug ("\@printindex $index_name THISDOC{'indices'}->{$region} not defined", $line_nr); |
| |
} |
| |
elsif (!defined($Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name})) |
| |
{ |
| |
msg_debug ("\@printindex $index_name THISDOC{'indices'}->{$region}->{$index_name} not defined", $line_nr); |
| |
} |
| |
|
| |
if (!defined($Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name})) |
| |
{ |
| |
$Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name} = -1; |
| |
} |
| |
$Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name}++; |
| |
my $printindex = $Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name}->[$Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name}]; |
| |
if (!defined($printindex)) |
| |
{ |
| |
# this printindex hasn't been seen in the previous pass. |
| |
# rint STDERR "Index $index_name not in sync, number $Texi2HTML::THISDOC{'indices_numbers'}->{$index_name} not defined\n"; |
| |
line_warn("\@printindex $index_name expanded more than once may lead to wrong references", $line_nr); |
| |
$printindex = $Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name}->[-1]; |
| |
} |
| |
elsif ($printindex->{'name'} ne $index_name) |
| |
{ |
| |
print STDERR "BUG: THISDOC{'indices'} $printindex->{'name'} ne $index_name\n"; |
| |
} |
| |
#print STDERR "PRINTINDEX use($printindex) region $region, name $index_name number $Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name}\n"; |
| |
add_prev($text, $stack, &$Texi2HTML::Config::printindex($index_name, $printindex)); |
| |
} |
| |
else |
| |
{ |
| |
$cline =~ s/^\s*//; |
| |
chomp ($cline); |
| |
line_error (sprintf(__("Bad argument to \@%s: %s"), $macro, $cline), $line_nr); |
| |
} |
| |
begin_paragraph ($stack, $state) if ($state->{'preformatted'}); |
| |
return undef; |
| |
} |
| |
if (defined($Texi2HTML::Config::misc_command{$macro})) |
| |
{ |
| |
# Handle the misc command |
| |
my $result; |
| |
($cline, $result) = misc_command_text($cline, $macro, $stack, $state, $text, $line_nr); |
| |
add_prev($text, $stack, $result) if (defined($result)); |
| |
return unless (defined($cline)); |
| |
unless ($Texi2HTML::Config::misc_command{$macro}->{'keep'}) |
| |
{ |
| |
begin_paragraph($stack, $state) if |
| |
(!no_paragraph($state,$cline)); |
| |
next; |
| |
} |
| |
} |
| |
# This is a @macroname{...} construct. We add it on top of stack |
| |
# It will be handled when we encounter the '}' |
| |
# There is a special case for def macros as @deffn{def} is licit |
| |
if (!$Texi2HTML::Config::def_map{$macro} and $cline =~ s/^{//) #} |
| |
{ |
| |
if ($macro eq 'verb') |
| |
{ |
| |
if ($cline =~ /^$/) |
| |
{ |
| |
# Allready warned |
| |
} |
| |
else |
| |
{ |
| |
$cline =~ s/^(.)//; |
| |
$state->{'verb'} = $1; |
| |
} |
| |
} |
| |
# currently if remove_texi and anchor/ref/footnote |
| |
# the text within the command is ignored |
| |
# see t2h_remove_command in texi2html.init |
| |
my $new_command_ref = { 'style' => $macro, 'text' => '', 'arg_nr' => 0, 'line_nr' => $line_nr }; |
| |
push (@$stack, $new_command_ref); |
| |
if ($no_paragraph_macro{$macro}) |
| |
{ |
| |
$state->{'no_paragraph'}++; |
| |
push @{$state->{'no_paragraph_stack'}}, "\@$macro"; |
| |
} |
| |
open_arg($macro, 0, $state); |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
$new_command_ref->{'keep_line_nr'} = [ $line_nr ]; |
| |
} |
| |
my $real_style_command = 0; |
| |
if (defined($style_type{$macro}) and (($style_type{$macro} eq 'style') or ($style_type{$macro} eq 'accent'))) |
| |
{ |
| |
push (@{$state->{'command_stack'}}, $macro); |
| |
$real_style_command = 1; |
| |
#print STDERR "# Stacked $macro (@{$state->{'command_stack'}})\n" if ($T2H_DEBUG); |
| |
} |
| |
# FIXME give line, and modify line? |
| |
&$Texi2HTML::Config::begin_style_texi($macro, $state, $stack, $real_style_command, $state->{'remove_texi'}) |
| |
if (defined($Texi2HTML::Config::begin_style_texi) |
| |
and !($state->{'keep_texi'})); |
| |
next; |
| |
} |
| |
|
| |
# special case if we are checking itemize line. In that case |
| |
# we want to make sure that there is no @item on the @itemize |
| |
# line, otherwise it will be added on the front of another @item, |
| |
# leading to an infinite loop... |
| |
|
| |
if ($state->{'check_item'} and ($macro =~ /^itemx?$/ or $macro eq 'headitem')) |
| |
{ |
| |
line_error(sprintf(__("\@%s not allowed in argument to \@%s"), $macro, $state->{'check_item'}), $line_nr); |
| |
next; |
| |
} |
| |
|
| |
# if we're keeping texi unmodified we can do it now |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
# We treat specially formats accepting {} on command line |
| |
if ($macro eq 'multitable' or defined($Texi2HTML::Config::def_map{$macro}) or defined($sec2level{$macro}) or $macro eq 'macro') |
| |
{ |
| |
add_prev($text, $stack, "\@$macro" . $cline); |
| |
$cline = ''; |
| |
next; |
| |
} |
| |
|
| |
add_prev($text, $stack, "\@$macro"); |
| |
if ($Texi2HTML::Config::texi_formats_map{$macro} and $Texi2HTML::Config::texi_formats_map{$macro} eq 'raw') |
| |
{ |
| |
$state->{'raw'} = $macro; |
| |
$state->{$macro}++ if ($macro eq 'macro'); |
| |
push (@$stack, {'style' => $macro, 'text' => ''}); |
| |
} |
| |
next; |
| |
} |
| |
|
| |
# If we are removing texi, the following macros are not removed |
| |
# as is but modified. So they are collected first, as if we were |
| |
# in normal text |
| |
|
| |
# a raw macro beginning |
| |
if ($Texi2HTML::Config::texi_formats_map{$macro} and $Texi2HTML::Config::texi_formats_map{$macro} eq 'raw') |
| |
{ |
| |
if (!$Texi2HTML::Config::format_in_paragraph{$macro}) |
| |
{ # close paragraph before verbatim (and tex if !L2H) |
| |
close_paragraph($text, $stack, $state, "\@$macro", $line_nr); |
| |
} |
| |
$state->{'raw'} = $macro; |
| |
push (@$stack, {'style' => $macro, 'text' => ''}); |
| |
$state->{$macro}++ if ($macro eq 'macro'); |
| |
return if ($cline =~ /^\s*$/ or ($macro eq 'macro')); |
| |
next; |
| |
} |
| |
my $simple_macro = 1; |
| |
# An accent macro |
| |
if (exists($Texi2HTML::Config::accent_map{$macro})) |
| |
{ |
| |
# the command itself is not in the command stack, since with |
| |
# braces, it is already popped when do_simple is called |
| |
#push (@{$state->{'command_stack'}}, $macro); |
| |
if ($macro =~ /^[a-zA-Z]/) |
| |
{ |
| |
$cline =~ s/^\s*//; |
| |
} |
| |
elsif ($cline =~ /^\s/) |
| |
{ |
| |
line_warn (sprintf(__("Accent command `\@%s' must not be followed by whitespace"), $macro), $line_nr); |
| |
} |
| |
if ($cline =~ /^\@/) |
| |
{ |
| |
line_error (sprintf(__("Use braces to give a command as an argument to \@%s"), $macro), $line_nr); |
| |
} |
| |
if ($cline =~ s/^(\S)//o) |
| |
{ |
| |
add_prev($text, $stack, do_style_command($macro, $1, $state, [ $1 ], $line_nr, undef, undef, undef)); |
| |
} |
| |
else |
| |
{ # The accent is at end of line |
| |
# FIXME warn? And test case? Maybe this is catched |
| |
# above, by "Accent command `@%s' must not be followed by whitespace" |
| |
# for commands with letter. |
| |
add_prev($text, $stack, do_text($macro, $state)); |
| |
} |
| |
#pop @{$state->{'command_stack'}}; |
| |
} |
| |
# an @-command which should be like @command{}. We handle it... |
| |
elsif ($::things_map_ref->{$macro}) |
| |
{ |
| |
line_error (sprintf(__("\@%s expected braces"), $macro), $line_nr); |
| |
add_prev($text, $stack, do_thing_command($macro, '', $state, $line_nr)); |
| |
} |
| |
# an @-command like @command |
| |
elsif (defined($::simple_map_ref->{$macro}) or ($state->{'math_style'} and defined($::simple_map_math_ref->{$macro}))) |
| |
{ |
| |
add_prev($text, $stack, do_simple_command($macro, $state, $line_nr)); |
| |
} |
| |
else |
| |
{ |
| |
$simple_macro = 0; |
| |
} |
| |
if ($simple_macro) |
| |
{# if the macro didn't triggered a paragraph start it might now |
| |
begin_paragraph($stack, $state) if |
| |
($Texi2HTML::Config::no_paragraph_commands{$macro} and !no_paragraph($state,$cline)); |
| |
next; |
| |
} |
| |
# the following macros are modified or ignored if we are |
| |
# removing texi, and they are not handled like macros in normal text |
| |
if ($state->{'remove_texi'}) |
| |
{ |
| |
# handle specially some macros |
| |
if ((index_command_prefix($macro) ne '') or |
| |
($macro eq 'itemize') or |
| |
($format_type{$macro} and ($format_type{$macro} eq 'table' or $format_type{$macro} eq 'quotation')) |
| |
or ($macro eq 'multitable')) |
| |
{ |
| |
return; |
| |
} |
| |
elsif ($macro eq 'enumerate') |
| |
{ |
| |
my $spec; |
| |
($cline, $spec) = parse_enumerate ($cline); |
| |
return if ($cline =~ /^\s*$/); |
| |
next; |
| |
} |
| |
elsif (defined($Texi2HTML::Config::def_map{$macro})) |
| |
{ |
| |
my ($command, $style, $category, $name, $type, $class, $arguments, $args_array); |
| |
($command, $style, $category, $name, $type, $class, $arguments, $args_array) = parse_def($macro, $cline, $line_nr); |
| |
# FIXME -- --- ''... lead to simple text in texi2html |
| |
# while they are kept as is in html coments by makeinfo |
| |
$category = remove_texi($category) if (defined($category)); |
| |
$name = remove_texi($name) if (defined($name)); |
| |
$type = remove_texi($type) if (defined($type)); |
| |
$class = remove_texi($class) if (defined($class)); |
| |
$arguments = remove_texi($arguments) if (defined($arguments)); |
| |
chomp($arguments); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::def_line_no_texi($category, $name, $type, $arguments)); |
| |
return; |
| |
} |
| |
elsif (defined($sec2level{$macro})) |
| |
{ #FIXME there is certainly more intelligent stuff to do |
| |
my $num; |
| |
if ($state->{'region'}) |
| |
{ |
| |
$state->{'head_num'}++; |
| |
$num = "$state->{'region'}_$state->{'head_num'}"; |
| |
} |
| |
else |
| |
{ |
| |
$num = $global_head_num; |
| |
} |
| |
my $heading_element = $headings{$num}; |
| |
$cline = trim_comment_spaces ($cline, "\@$macro"); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::heading_no_texi($heading_element, $macro, $cline)); |
| |
return; |
| |
} |
| |
|
| |
# ignore other macros |
| |
next; |
| |
} |
| |
|
| |
# handle the other macros, we are in the context of normal text |
| |
if (defined($sec2level{$macro})) |
| |
{ |
| |
#dump_stack($text, $stack, $state); |
| |
my $num; |
| |
if ($state->{'region'}) |
| |
{ |
| |
$state->{'head_num'}++; |
| |
$num = "$state->{'region'}_$state->{'head_num'}"; |
| |
} |
| |
else |
| |
{ |
| |
$global_head_num++; |
| |
$num = $global_head_num; |
| |
} |
| |
my $heading_element = $headings{$num}; |
| |
$cline = trim_comment_spaces($cline, "\@$macro", $line_nr); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::element_label($heading_element->{'id'}, $heading_element, $macro, $cline)); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::heading($heading_element, $macro, $cline, substitute_line($cline, "\@$macro"), $state->{'preformatted'})); |
| |
return; |
| |
} |
| |
|
| |
if (index_command_prefix($macro) ne '') |
| |
{ |
| |
my $index_name = index_command_prefix($macro); |
| |
my $entry_texi = trim_comment_spaces($cline, "\@$macro", $line_nr); |
| |
chomp($entry_texi); |
| |
# multiple_pass is not really necessary, since it may be the place |
| |
# where it is expanded once. However, this ensures that things |
| |
# that are ignored with multiple_pass are ignored. |
| |
my $entry_text = substitute_line($entry_texi, "\@$macro", prepare_state_multiple_pass($macro, $state)); |
| |
my ($index_entry, $formatted_index_entry, $index_label) = do_index_entry_label($macro,$state,$line_nr, $entry_texi); |
| |
|
| |
if (defined($index_entry)) |
| |
{ |
| |
msg_debug ("(bug?) Index out of sync `$index_entry->{'texi'}' ne `$entry_texi'", $line_nr) if ($index_entry->{'texi'} ne $entry_texi); |
| |
} |
| |
add_prev($text, $stack, &$Texi2HTML::Config::index_entry_command($macro, $index_name, $index_label, $entry_texi, $entry_text, $index_entry)); |
| |
# it eats the end of line and therefore don't start |
| |
# table entries nor close @center. These should be stopped |
| |
# on the next line, though. |
| |
return; |
| |
} |
| |
if ($macro eq 'insertcopying') |
| |
{ |
| |
#close_paragraph($text, $stack, $state, $line_nr); |
| |
add_prev($text, $stack, do_insertcopying($state, $line_nr)); |
| |
# reopen a preformatted format if it was interrupted by the macro |
| |
begin_paragraph ($stack, $state) if ($state->{'preformatted'}); |
| |
return; |
| |
} |
| |
if ($macro =~ /^itemx?$/o or ($macro eq 'headitem')) |
| |
{ |
| |
#print STDERR "ITEM: $cline"; |
| |
#dump_stack($text, $stack, $state); |
| |
abort_empty_preformatted($stack, $state); |
| |
# FIXME let the user be able not to close the paragraph |
| |
close_paragraph($text, $stack, $state, "\@$macro", $line_nr); |
| |
|
| |
#print STDERR "ITEM after close para: $cline"; |
| |
#dump_stack($text, $stack, $state); |
| |
# these functions return the format if in the right context |
| |
my $in_list_enumerate; |
| |
my $format; |
| |
if ($format = add_item($text, $stack, $state, $line_nr)) |
| |
{ # handle lists |
| |
$in_list_enumerate = 1; |
| |
if ($macro ne 'item') |
| |
{ |
| |
line_error (sprintf(__("\@%s not meaningful inside `\@%s' block"), $macro, $format->{'format'}), $line_nr); |
| |
} |
| |
} |
| |
elsif ($format = add_term($text, $stack, $state, $line_nr)) |
| |
{ # close table term |
| |
} |
| |
elsif ($format = add_line($text, $stack, $state, $line_nr)) |
| |
{ # close table definition |
| |
} |
| |
if ($format) |
| |
{ |
| |
if ($macro eq 'headitem') |
| |
{ |
| |
line_error (sprintf(__("\@%s not meaningful inside `\@%s' block"), $macro, $format->{'format'}), $line_nr); |
| |
} |
| |
if (defined($Texi2HTML::Config::tab_item_texi)) |
| |
{ |
| |
my $resline = &$Texi2HTML::Config::tab_item_texi($macro, $state->{'command_stack'}, $stack, $state, $cline, $line_nr); |
| |
$cline = $resline if (defined($resline)); |
| |
} |
| |
if ($in_list_enumerate) |
| |
{ |
| |
push (@$stack, { 'format' => 'item', 'text' => '', 'format_ref' => $format, 'item_cmd' => $macro }); |
| |
begin_paragraph($stack, $state) if ($state->{'preformatted'} or !no_line($cline)); |
| |
} |
| |
else |
| |
{# handle table @item term and restart another one |
| |
# or after table text restart a term |
| |
push (@$stack, { 'format' => 'term', 'text' => '', 'format_ref' => $format, 'item_cmd' => $macro }); |
| |
} |
| |
$format->{'texi_line'} = $cline; |
| |
my ($line, $open_command) = &$Texi2HTML::Config::format_list_item_texi($format->{'format'}, $cline, $format->{'prepended'}, $format->{'command'}, $format->{'number'}); |
| |
$cline = $line if (defined($line)); |
| |
#if ($open_command) |
| |
#{ |
| |
# open_arg($format->{'command'},0, $state); |
| |
# $format->{'command_opened'} = 1; |
| |
#} |
| |
$format->{'item_cmd'} = $macro; |
| |
$format->{'texi_line_texi_formatted'} = $cline; |
| |
next; |
| |
} |
| |
$format = add_row ($text, $stack, $state, $line_nr); # handle multitable |
| |
if (!$format) |
| |
{ # makeinfo has: |
| |
# "@%s not meaningful inside `@%s' block" for menu/quotation... |
| |
# and, if outside of any format |
| |
# "%c%s found outside of an insertion block" |
| |
# The following error message seems better. |
| |
line_error (sprintf(__("\@%s outside of table or list"), $macro), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
push @$stack, {'format' => 'row', 'text' => '', 'item_cmd' => $macro, 'format_ref' => $format }; |
| |
push @$stack, {'format' => 'cell', 'text' => '', 'format_ref' => $format}; |
| |
$format->{'cell'} = 1; |
| |
if ($format->{'max_columns'}) |
| |
{ |
| |
if (defined($Texi2HTML::Config::tab_item_texi)) |
| |
{ |
| |
my $resline = &$Texi2HTML::Config::tab_item_texi($macro, $state->{'command_stack'}, $stack, $state, $cline, $line_nr); |
| |
$cline = $resline if (defined($resline)); |
| |
} |
| |
begin_paragraph_after_command($state,$stack,$macro,$cline); |
| |
} |
| |
else |
| |
{ |
| |
line_warn (sprintf(__("\@%s in empty multitable"), $macro), $line_nr); |
| |
} |
| |
} |
| |
next; |
| |
} |
| |
|
| |
if ($macro eq 'tab') |
| |
{ |
| |
abort_empty_preformatted($stack, $state); |
| |
# FIXME let the user be able not to close the paragraph? |
| |
close_paragraph($text, $stack, $state, "\@$macro", $line_nr); |
| |
|
| |
my $format = add_cell ($text, $stack, $state, $line_nr); |
| |
if (!$format) |
| |
{ |
| |
line_error(__("ignoring \@tab outside of multitable"), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
push @$stack, {'format' => 'cell', 'text' => '', 'format_ref' => $format}; |
| |
if (!$format->{'max_columns'}) |
| |
{ |
| |
line_warn (__("ignoring \@tab in empty multitable"), $line_nr); |
| |
} |
| |
elsif ($format->{'cell'} > $format->{'max_columns'}) |
| |
{ |
| |
line_error (sprintf(__("Too many columns in multitable item (max %d)"), $format->{'max_columns'}), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
if (defined($Texi2HTML::Config::tab_item_texi)) |
| |
{ |
| |
my $resline = &$Texi2HTML::Config::tab_item_texi($macro, $state->{'command_stack'}, $stack, $state, $cline, $line_nr); |
| |
$cline = $resline if (defined($resline)); |
| |
} |
| |
} |
| |
} |
| |
begin_paragraph_after_command($state,$stack,$macro,$cline); |
| |
next; |
| |
} |
| |
# Macro opening a format (table, list, deff, example...) |
| |
if ($format_type{$macro} and ($format_type{$macro} ne 'fake')) |
| |
{ |
| |
my $ignore_center = 0; |
| |
# @center is forbidden in @-command with braces, @*table |
| |
# @item line, @multitable, or another @center |
| |
if ($macro eq 'center' and @$stack) |
| |
{ |
| |
my $top_stack = top_stack($stack, 1); |
| |
if (exists($top_stack->{'style'}) or (defined($top_stack->{'format'}) and ($top_stack->{'format'} eq 'term' or $top_stack->{'format'} eq 'cell')) or $state->{'preformatted'} or $state->{'paragraph_style'}->[-1] eq 'center') |
| |
{ |
| |
$ignore_center = 1; |
| |
} |
| |
#dump_stack ($text, $stack, $state); |
| |
} |
| |
if ($ignore_center) |
| |
{ |
| |
line_error(__("\@center should not appear in another format"), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
$cline = begin_format($text, $stack, $state, $macro, $cline, $line_nr); |
| |
} |
| |
# we keep the end of line for @center, and for formats |
| |
# that have cmd_line opened and need to see the end of line |
| |
next if (($macro eq 'center') or |
| |
(defined($Texi2HTML::Config::def_map{$macro})) |
| |
or ($macro eq 'float') or ($format_type{$macro} eq 'quotation')); |
| |
return if ($cline =~ /^\s*$/); |
| |
next; |
| |
} |
| |
$cline = do_unknown (2, $macro, $cline, $text, $stack, $state, $line_nr); |
| |
next; |
| |
} |
| |
elsif($cline =~ s/^([^{}@,]*)\@([^\s\}\{\@]*)//o) |
| |
{ # A macro with a character which shouldn't appear in macro name |
| |
add_prev($text, $stack, do_text($1, $state)); |
| |
$cline = do_unknown (2, $2, $cline, $text, $stack, $state, $line_nr); |
| |
next; |
| |
} |
| |
# a brace |
| |
elsif ($cline =~ s/^([^{},]*)([{}])//o) |
| |
{ |
| |
my $leading_text = $1; |
| |
my $brace = $2; |
| |
add_prev($text, $stack, do_text($leading_text, $state)); |
| |
if (defined($brace) and ($brace eq '{')) #'}' |
| |
{ |
| |
add_prev($text, $stack, do_text('{',$state)); #} |
| |
if ($state->{'math_style'}) |
| |
{ |
| |
$state->{'math_brace'}++; |
| |
} |
| |
else |
| |
{ |
| |
unless ($state->{'keep_texi'} or $state->{'remove_texi'}) |
| |
{ |
| |
line_error (sprintf(__("Misplaced %c"), ord('{')), $line_nr); |
| |
} |
| |
} |
| |
} |
| |
elsif (defined($brace) and ($brace eq '}') and |
| |
(!@$stack or (!defined($stack->[-1]->{'style'})) |
| |
# braces are allowed in math |
| |
or $state->{'math_brace'})) |
| |
{ |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
add_prev($text, $stack, '}'); |
| |
} |
| |
elsif($state->{'math_style'} and $state->{'math_brace'}) |
| |
{ |
| |
add_prev($text, $stack, do_text('}',$state)); |
| |
$state->{'math_brace'}--; |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Misplaced %c"), ord('}')), $line_nr); |
| |
#dump_stack($text, $stack, $state); |
| |
} |
| |
} |
| |
else |
| |
{ # A @-command{ ...} is closed |
| |
my ($result, $command) = close_style_command($text, $stack, $state, $line_nr, $cline); |
| |
add_prev($text, $stack, $result); |
| |
if ($Texi2HTML::Config::no_paragraph_commands{$command} |
| |
and !$state->{'keep_texi'} and !no_paragraph($state,$cline)) |
| |
{ |
| |
begin_paragraph($stack, $state); |
| |
} |
| |
} |
| |
} |
| |
elsif ($cline =~ s/^([^,]*)[,]//o) |
| |
{ |
| |
add_prev($text, $stack, do_text($1, $state)); |
| |
if (@$stack and defined($stack->[-1]->{'style'}) |
| |
and (ref($::style_map_ref->{$stack->[-1]->{'style'}}) eq 'HASH')) |
| |
{ |
| |
my $macro = $stack->[-1]->{'style'}; |
| |
my $style_args = $::style_map_ref->{$macro}->{'args'}; |
| |
if (defined($style_args->[$stack->[-1]->{'arg_nr'} + 1])) |
| |
{ |
| |
push (@{$stack->[-1]->{'args'}}, $stack->[-1]->{'text'}); |
| |
$stack->[-1]->{'fulltext'} .= $stack->[-1]->{'text'} . do_text(',', $state); |
| |
$stack->[-1]->{'text'} = ''; |
| |
close_arg ($macro, $stack->[-1]->{'arg_nr'}, $state); |
| |
$stack->[-1]->{'arg_nr'}++; |
| |
open_arg ($macro, $stack->[-1]->{'arg_nr'}, $state); |
| |
next; |
| |
} |
| |
} |
| |
add_prev($text, $stack, do_text(',', $state)); |
| |
} |
| |
else |
| |
{ # no macro nor '}', but normal text |
| |
add_prev($text, $stack, do_text($cline, $state)); |
| |
# @center/line term is closed at the end of line. When a |
| |
# @-command which |
| |
# keeps the texi as is happens on the @center line, the @center |
| |
# is closed at the end of line appearing after the @-command |
| |
# closing (for example @ref, @footnote). |
| |
last if ($state->{'keep_texi'}); |
| |
#print STDERR "END_LINE(l):$cline!!!\n"; |
| |
#dump_stack($text, $stack, $state); |
| |
my $maybe_format_to_close = 1; |
| |
my $in_table; |
| |
while ($maybe_format_to_close) |
| |
{ |
| |
$maybe_format_to_close = 0; |
| |
#my $top_format = top_stack($stack, 1); |
| |
my $top_format = top_stack($stack, 2); |
| |
# the stack cannot easily be used, because there may be |
| |
# opened commands in paragraphs if the center is in a |
| |
# style command, like |
| |
# @b{ |
| |
# bold |
| |
# |
| |
# @center centered bold |
| |
# |
| |
# } |
| |
# |
| |
# Therefore $state->{'paragraph_style'}->[-1] is used. |
| |
# |
| |
# The close_stack until 'center' is needed because |
| |
# of constructs like |
| |
# |
| |
# @center something @table |
| |
# |
| |
# In that case what would be removed from the stack after |
| |
# paragraph closing wold not be the @center. Such construct |
| |
# is certainly incorrect, though. |
| |
# |
| |
# when 'closing_center' is true we don't retry to close |
| |
# the @center line. |
| |
if ($state->{'paragraph_style'}->[-1] eq 'center' |
| |
and !$state->{'closing_center'} and !$state->{'keep_texi'}) |
| |
{ |
| |
$state->{'closing_center'} = 1; |
| |
close_paragraph($text, $stack, $state, "\@center", $line_nr); |
| |
close_stack($text, $stack, $state, $line_nr, 'center'); |
| |
delete $state->{'closing_center'}; |
| |
my $center = pop @$stack; |
| |
add_prev($text, $stack, &$Texi2HTML::Config::paragraph_style_command('center',$center->{'text'})); |
| |
my $top_paragraph_style = pop @{$state->{'paragraph_style'}}; |
| |
|
| |
# center is at the bottom of the comand_stack because it |
| |
# may be nested in many way |
| |
my $bottom_command_stack = shift @{$state->{'command_stack'}}; |
| |
print STDERR "Bug: closing center, top_paragraph_style: $top_paragraph_style, bottom_command_stack: $bottom_command_stack.\n" |
| |
if ($bottom_command_stack ne 'center' or $top_paragraph_style ne 'center'); |
| |
$maybe_format_to_close = 1; |
| |
next; |
| |
} |
| |
|
| |
# @item line is closed by end of line. In general there should |
| |
# not be a paragraph in a term. However it may currently |
| |
# happen in construct like |
| |
# |
| |
# @table @asis |
| |
# @item @cindex index entry |
| |
# some text still in term, and in paragraph |
| |
# Not in term anymore |
| |
# .... |
| |
# |
| |
if (defined($top_format->{'format'}) and $top_format->{'format'} eq 'term') |
| |
{ |
| |
#close_paragraph($text, $stack, $state, $line_nr) |
| |
# if ($state->{'paragraph_context'}); |
| |
close_stack($text, $stack, $state, $line_nr, 'term'); |
| |
$in_table = add_term($text, $stack, $state, $line_nr); |
| |
if ($in_table) |
| |
{ |
| |
$maybe_format_to_close = 1; |
| |
next; |
| |
} |
| |
} |
| |
} |
| |
if ($in_table) |
| |
{ |
| |
push (@$stack, { 'format' => 'line', 'text' => '', 'only_inter_commands' => 1, 'format_ref' => $in_table }); |
| |
begin_paragraph($stack, $state) if ($state->{'preformatted'}); |
| |
} |
| |
last; |
| |
} |
| |
} |
| |
return 1; |
| |
} # end scan_line |
| |
|
| |
sub open_arg($$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $arg_nr = shift; |
| |
my $state = shift; |
| |
if (ref($::style_map_ref->{$macro}) eq 'HASH') |
| |
{ |
| |
my $arg = $::style_map_ref->{$macro}->{'args'}->[$arg_nr]; |
| |
if ($arg eq 'keep') |
| |
{ |
| |
$state->{'keep_nr'}++; |
| |
$state->{'keep_texi'} = 1; |
| |
} |
| |
elsif (!$state->{'keep_texi'}) |
| |
{ |
| |
if ($arg eq 'code') |
| |
{ |
| |
$state->{'code_style'}++; |
| |
} |
| |
elsif ($arg eq 'math') |
| |
{ |
| |
$state->{'math_style'}++; |
| |
$state->{'code_style'}++; |
| |
if ($state->{'math_style'} == 1) |
| |
{ |
| |
$state->{'math_brace'} = 0; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
elsif ($code_style_map{$macro} and !$state->{'keep_texi'}) |
| |
{ |
| |
$state->{'code_style'}++; |
| |
} |
| |
} |
| |
|
| |
sub close_arg($$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $arg_nr = shift; |
| |
my $state = shift; |
| |
if (ref($::style_map_ref->{$macro}) eq 'HASH') |
| |
{ |
| |
my $arg = $::style_map_ref->{$macro}->{'args'}->[$arg_nr]; |
| |
if ($arg eq 'keep') |
| |
{ |
| |
$state->{'keep_nr'}--; |
| |
$state->{'keep_texi'} = 0 if ($state->{'keep_nr'} == 0); |
| |
} |
| |
elsif (!$state->{'keep_texi'}) |
| |
{ |
| |
if ($arg eq 'code') |
| |
{ |
| |
$state->{'code_style'}--; |
| |
} |
| |
elsif ($arg eq 'math') |
| |
{ |
| |
$state->{'math_style'}--; |
| |
$state->{'code_style'}--; |
| |
} |
| |
} |
| |
#print STDERR "c $arg_nr $macro $arg $state->{'code_style'}\n"; |
| |
} |
| |
elsif ($code_style_map{$macro} and !$state->{'keep_texi'}) |
| |
{ |
| |
$state->{'code_style'}--; |
| |
} |
| |
} |
| |
|
| |
# add a special style on the top of the stack. This is used for commands |
| |
# that extend until the end of the line. Also add an entry in the @-command |
| |
# hashes for this fakes style. |
| |
#sub open_cmd_line($$$$$) |
| |
#{ |
| |
# my $command = shift; |
| |
# my $stack = shift; |
| |
# my $state = shift; |
| |
# my $args = shift; |
| |
# my $function = shift; |
| |
# push @$stack, {'style' => 'cmd_line', 'text' => '', 'arg_nr' => 0}; |
| |
# foreach my $hash (\%Texi2HTML::Config::style_map, \%Texi2HTML::Config::style_map_pre, \%Texi2HTML::Config::style_map_texi, \%Texi2HTML::Config::simple_format_style_map_texi) |
| |
# { |
| |
# $hash->{'cmd_line'}->{'args'} = $args; |
| |
# $hash->{'cmd_line'}->{'function'} = $function; |
| |
# } |
| |
# $state->{'no_paragraph'}++; |
| |
# push @{$state->{'no_paragraph_stack'}}, "\@$command line"; |
| |
## $state->{'cmd_line'} = 1; |
| |
# open_arg ('cmd_line', 0, $state); |
| |
#} |
| |
|
| |
# finish @item line in @*table |
| |
sub add_term($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my $top_format = top_stack($stack,2); |
| |
|
| |
return unless (defined($top_format->{'format'}) and $top_format->{'format'} eq 'term'); |
| |
#print STDERR "ADD_TERM\n"; |
| |
|
| |
my $term = pop @$stack; |
| |
my $format = $stack->[-1]; |
| |
$format->{'paragraph_number'} = 0; |
| |
chomp ($term->{'text'}); |
| |
|
| |
my ($index_label, $formatted_index_entry); |
| |
if ($format->{'format'} =~ /^(f|v)/o) |
| |
{ |
| |
my $index_entry; |
| |
($index_entry, $formatted_index_entry, $index_label) = do_index_entry_label($format->{'format'}, $state,$line_nr, $format->{'texi_line'}); |
| |
print STDERR "Bug: no index entry for $term->{'text'}\n" unless defined($index_label); |
| |
} |
| |
|
| |
my $item_result = &$Texi2HTML::Config::table_item($term->{'text'}, $index_label,$format->{'format'},$format->{'command'}, $state->{'command_stack'}, $term->{'item_cmd'}, $formatted_index_entry); |
| |
add_prev($text, $stack, $item_result); |
| |
return $format; |
| |
} |
| |
|
| |
sub add_row($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my $top_format = top_stack($stack); |
| |
# @center a @item |
| |
# will lead to row not being closed since a close paragraph doesn't |
| |
# end the center. |
| |
return unless (defined($top_format->{'format'}) and $top_format->{'format'} eq 'cell'); |
| |
my $cell = $top_format; |
| |
my $format = $stack->[-3]; |
| |
print STDERR "Bug under row cell row not a multitable\n" if (!defined($format->{'format'}) or $format->{'format'} ne 'multitable'); |
| |
#print STDERR "ADD_ROW $format->{'item_nr'} first: $format->{'first'}\n"; |
| |
# dump_stack($text, $stack, $state); |
| |
|
| |
$format->{'item_nr'}++ unless ($format->{'first'}); |
| |
my $empty_first; |
| |
if ($format->{'first'} and $format->{'cell'} == 1 and $stack->[-1]->{'text'} =~ /^\s*$/) |
| |
{ |
| |
$empty_first = 1; |
| |
$format->{'empty_first'} = 1; |
| |
} |
| |
if ($format->{'cell'} > $format->{'max_columns'} or $empty_first) |
| |
{ |
| |
my $cell = pop @$stack; |
| |
print STDERR "Bug: not a cell ($cell->{'format'}) in multitable\n" if ($cell->{'format'} ne 'cell'); |
| |
} |
| |
else |
| |
{ |
| |
add_cell($text, $stack, $state); |
| |
} |
| |
my $row = pop @$stack; |
| |
print STDERR "Bug: not a row ($row->{'format'}) in multitable\n" if ($row->{'format'} ne 'row'); |
| |
if ($format->{'max_columns'} and !$empty_first) |
| |
{ |
| |
# FIXME have the cell count in row and not in table. table could have |
| |
# the whole structure, but cell count doesn't make much sense |
| |
add_prev($text, $stack, &$Texi2HTML::Config::row($row->{'text'}, $row->{'item_cmd'}, $format->{'columnfractions'}, $format->{'prototype_row'}, $format->{'prototype_lengths'}, $format->{'max_columns'}, $cell->{'only_inter_commands'}, $format->{'first'})); |
| |
} |
| |
|
| |
$format->{'first'} = 0 if ($format->{'first'}); |
| |
|
| |
return $format; |
| |
} |
| |
|
| |
# FIXME remove and merge, too much double checks and code |
| |
sub add_cell($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $top_format = top_stack($stack); |
| |
|
| |
#print STDERR "ADD_CELL\n"; |
| |
return unless (defined($top_format) and $top_format->{'format'} eq 'cell'); |
| |
# print STDERR "ADD_CELL, really\n"; |
| |
|
| |
my $cell = pop @$stack; |
| |
my $row = top_stack($stack); |
| |
print STDERR "Bug: top_stack of cell not a row\n" if (!defined($row->{'format'}) or ($row->{'format'} ne 'row')); |
| |
my $format = $stack->[-2]; |
| |
print STDERR "Bug under cell row not a multitable\n" if (!defined($format->{'format'}) or $format->{'format'} ne 'multitable'); |
| |
|
| |
if ($format->{'first'} and $format->{'cell'} == 1) |
| |
{ |
| |
line_warn(__("\@tab before \@item"), $line_nr); |
| |
} |
| |
|
| |
if ($format->{'cell'} <= $format->{'max_columns'}) |
| |
{ |
| |
#print STDERR "ADD_CELL, really, really\n"; |
| |
add_prev($text, $stack, &$Texi2HTML::Config::cell($cell->{'text'}, $row->{'item_cmd'}, $format->{'columnfractions'}, $format->{'prototype_row'}, $format->{'prototype_lengths'}, $format->{'max_columns'}, $cell->{'only_inter_commands'}, $format->{'first'})); |
| |
} |
| |
$format->{'cell'}++; |
| |
$format->{'first'} = 0 if ($format->{'first'}); |
| |
return $format; |
| |
} |
| |
|
| |
sub add_line($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $top_stack = top_stack($stack); |
| |
|
| |
# if there is something like |
| |
# @center centered @item new item |
| |
# the item isn't opened since it is in @center, and center isn't closed |
| |
# by an @item appearing here (unlike a paragraph). |
| |
# the error message is '@item outside of table or list'. |
| |
# texi2dvi also has issue, but makeinfo is happy, however it |
| |
# produces bad nesting. |
| |
return unless(defined($top_stack->{'format'}) and $top_stack->{'format'} eq 'line'); |
| |
#print STDERR "ADD_LINE\n"; |
| |
#dump_stack($text, $stack, $state); |
| |
|
| |
my $line = pop @$stack; |
| |
my $format = $stack->[-1]; |
| |
$format->{'paragraph_number'} = 0; |
| |
if ($format->{'first'}) |
| |
{ |
| |
$format->{'first'} = 0; |
| |
# we must have <dd> or <dt> following <dl> thus we do a |
| |
# &$Texi2HTML::Config::table_line here too, although it could have |
| |
# been a normal paragraph. |
| |
if ($line->{'text'} =~ /\S/o) |
| |
{ |
| |
add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'}, $line->{'only_inter_commands'}, 1)); |
| |
$format->{'empty_first'} = 1 if ($line->{'only_inter_commands'}); |
| |
} |
| |
else |
| |
{ |
| |
$format->{'empty_first'} = 1; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
$format->{'item_nr'}++; |
| |
add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'}, $line->{'only_inter_commands'}, 0)); |
| |
} |
| |
return $format; |
| |
} |
| |
|
| |
# finish @enumerate or @itemize @item |
| |
sub add_item($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
my $top_stack = top_stack($stack); |
| |
|
| |
return unless (defined($top_stack->{'format'}) and $top_stack->{'format'} eq 'item'); |
| |
#print STDERR "ADD_ITEM: \n"; |
| |
#dump_stack($text, $stack, $state); |
| |
# as in pre the end of line are kept, we must explicitely abort empty |
| |
# preformatted, close_stack doesn't do that. |
| |
my $item = pop @$stack; |
| |
my $format = $stack->[-1]; |
| |
#my $item_command = $item->{'format'}; |
| |
my $item_command = $item->{'item_cmd'}; |
| |
# first has no associated item, it is more like a 'title' |
| |
$item_command = '' if ($format->{'first'}); |
| |
|
| |
# debug message if it is the first item (much like a title) although |
| |
# there is an item command. |
| |
msg_debug("First in $format->{'format'} but item_cmd defined $item->{'item_cmd'}",$line_nr) if ($format->{'first'} and defined($item->{'item_cmd'})); |
| |
|
| |
$format->{'paragraph_number'} = 0; |
| |
|
| |
#dump_stack ($text, $stack, $state); |
| |
# the element following ol or ul must be li. Thus even though there |
| |
# is no @item we put a normal item. |
| |
# don't do an item if it is the first and it is empty |
| |
if (!$format->{'first'} or ($item->{'text'} =~ /\S/o)) |
| |
{ |
| |
my $formatted_command; |
| |
if (defined($format->{'command'}) and $format->{'command'} ne '')# and exists($::things_map_ref->{$format->{'command'}})) |
| |
{ |
| |
$formatted_command = substitute_line("\@$format->{'command'}\{\}", "\@item \@$format->{'command'}", duplicate_formatting_state($state)); |
| |
$format->{'formatted_command'} = $formatted_command; |
| |
} |
| |
#chomp($item->{'text'}); |
| |
add_prev($text, $stack, &$Texi2HTML::Config::list_item($item->{'text'},$format->{'format'},$format->{'command'}, $formatted_command, $format->{'item_nr'}, $format->{'spec'}, $format->{'number'}, $format->{'prepended'}, $format->{'prepended_formatted'}, $item->{'only_inter_commands'}, $format->{'first'},$item_command)); |
| |
} |
| |
else |
| |
{ |
| |
$format->{'empty_first'} = 1; |
| |
} |
| |
if ($format->{'first'}) |
| |
{ |
| |
$format->{'first'} = 0; |
| |
} |
| |
else |
| |
{ |
| |
$format->{'item_nr'}++; |
| |
} |
| |
|
| |
if ($format->{'format'} eq 'enumerate') |
| |
{ |
| |
$format->{'number'} = ''; |
| |
my $spec = $format->{'spec'}; |
| |
if ($spec =~ /^[0-9]$/) |
| |
{ |
| |
$format->{'number'} = $spec + $format->{'item_nr'}; |
| |
} |
| |
else |
| |
{ |
| |
my $base_letter = ord('a'); |
| |
$base_letter = ord('A') if (ucfirst($spec) eq $spec); |
| |
|
| |
my @letter_ords = decompose(ord($spec) - $base_letter + $format->{'item_nr'}, 26); |
| |
foreach my $ord (@letter_ords) |
| |
{# FIXME we go directly to 'ba' after 'z', and not 'aa' |
| |
#because 'ba' is 1,0 and 'aa' is 0,0. |
| |
$format->{'number'} = chr($base_letter + $ord) . $format->{'number'}; |
| |
} |
| |
} |
| |
} |
| |
|
| |
return $format; |
| |
} |
| |
|
| |
# format ``simple'' macros, that is macros without arg or style macros |
| |
sub do_simple_command($$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
#msg_debug ("DO_SIMPLE $macro $args $arg_nr (@$args)", $line_nr) if (defined($args)); |
| |
if ($state->{'remove_texi'}) |
| |
{ |
| |
#print STDERR "DO_SIMPLE remove_texi $macro\n"; |
| |
return $::simple_map_texi_ref->{$macro}; |
| |
} |
| |
else |
| |
{ |
| |
return &$Texi2HTML::Config::simple_command($macro, $state->{'preformatted'}, $state->{'math_style'}, $line_nr, $state); |
| |
} |
| |
} |
| |
|
| |
sub do_thing_command($$$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $text = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
if ($state->{'remove_texi'}) |
| |
{ |
| |
return $::texi_map_ref->{$macro}.$text; |
| |
#print STDERR "DO_SIMPLE remove_texi texi_map $macro\n"; |
| |
} |
| |
else |
| |
{ |
| |
return &$Texi2HTML::Config::thing_command($macro, $text, $state->{'preformatted'}, $state->{'math_style'}, $line_nr, $state); |
| |
} |
| |
} |
| |
|
| |
sub do_style_command($$$$$$$$) |
| |
{ |
| |
my $macro = shift; |
| |
my $text = shift; |
| |
my $state = shift; |
| |
my $args = shift; |
| |
my $line_nr = shift; |
| |
my $no_open = shift; |
| |
my $no_close = shift; |
| |
my $kept_line_nrs = shift; |
| |
|
| |
my $arg_nr = 0; |
| |
$arg_nr = @$args - 1 if (defined($args)); |
| |
|
| |
if (defined($::style_map_ref->{$macro})) |
| |
{ |
| |
my $style; |
| |
my $result; |
| |
if ($state->{'remove_texi'}) |
| |
{ |
| |
#print STDERR "REMOVE $macro, $style_map_texi_ref->{$macro}, fun $style_map_texi_ref->{$macro}->{'function'} remove cmd " . \&Texi2HTML::Config::t2h_remove_command . " ascii acc " . \&t2h_default_accent; |
| |
$style = $::style_map_texi_ref->{$macro}; |
| |
} |
| |
elsif ($state->{'math_style'} and defined($::style_map_math_ref->{$macro})) |
| |
{ # FIXME we are still in math when the @math is closed here, since |
| |
# close_arg that does 'math_style'-- is called below. |
| |
$style = $::style_map_math_ref->{$macro}; |
| |
} |
| |
elsif ($state->{'preformatted'}) |
| |
{ |
| |
if ($macro eq 'kbd' and (Texi2HTML::Config::get_conf('kbdinputstyle') ne 'distinct')) |
| |
{ |
| |
$style = $::style_map_pre_ref->{'code'}; |
| |
} |
| |
else |
| |
{ |
| |
$style = $::style_map_pre_ref->{$macro}; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
# kbd is in code_style, so it is 'code_style' > 1 |
| |
if ($macro eq 'kbd' and ((Texi2HTML::Config::get_conf('kbdinputstyle') eq 'code') or ($state->{'code_style'} > 1 and Texi2HTML::Config::get_conf('kbdinputstyle') eq 'example'))) |
| |
{ |
| |
$style = $::style_map_ref->{'code'}; |
| |
} |
| |
else |
| |
{ |
| |
$style = $::style_map_ref->{$macro}; |
| |
} |
| |
} |
| |
if ($macro eq 'dotless') |
| |
{ |
| |
if (scalar(@$args) ne 1) |
| |
{ |
| |
line_error(sprintf(__("%c%s expects a single character `i' or `j' as argument"), ord('@'), $macro), $line_nr); |
| |
} |
| |
elsif ($args->[0] ne 'i' and $args->[0] ne 'j') |
| |
{ # FIXME an unformatted arg would have been better. Not a big deal. |
| |
line_error (sprintf(__("%c%s expects `i' or `j' as argument, not `%s'"), ord('@'), $macro, $args->[0]), $line_nr); |
| |
} |
| |
} |
| |
if (defined($style)) |
| |
{ # known style |
| |
$result = &$Texi2HTML::Config::style($style, $macro, $text, $args, $no_close, $no_open, $line_nr, $state, $state->{'command_stack'}, $kept_line_nrs); |
| |
} |
| |
if (!$no_close) |
| |
{ |
| |
close_arg($macro,$arg_nr, $state); |
| |
} |
| |
return $result; |
| |
} |
| |
elsif ($macro =~ /^special_(\w+)_(\d+)$/o) |
| |
{ |
| |
my $style = $1; |
| |
my $count = $2; |
| |
|
| |
msg_debug ("Bug? text in \@$macro not empty", $line_nr) if ($text ne ''); |
| |
if (defined($Texi2HTML::Config::command_handler{$style}) and |
| |
defined($Texi2HTML::Config::command_handler{$style}->{'expand'})) |
| |
{ |
| |
my $struct_count = 1+ $special_commands{$style}->{'max'} - $special_commands{$style}->{'count'}; |
| |
# may happen for text expanded more than once, for example |
| |
# in invalid/tex_in_copying |
| |
if (($count != $struct_count) and $T2H_DEBUG) |
| |
{ |
| |
msg_debug ("count $count in \@special $style and structure $struct_count differ", $line_nr); |
| |
} |
| |
$special_commands{$style}->{'count'}--; |
| |
} |
| |
my $result = $Texi2HTML::Config::command_handler{$style}->{'expand'} |
| |
($style,$count,$state,$text); |
| |
$result = '' if (!defined($result)); |
| |
return $result; |
| |
} |
| |
# Unknown macro |
| |
my $result = ''; |
| |
my ($done, $result_text, $message) = &$Texi2HTML::Config::unknown_style($macro, $text,$state,$no_close, $no_open); |
| |
if ($done) |
| |
{ |
| |
line_warn($message, $line_nr) if (defined($message)); |
| |
if (defined($result_text)) |
| |
{ |
| |
$result = $result_text; |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
unless ($no_open) |
| |
{ # we warn only if no_open is true, i.e. it is the first time we |
| |
# close the macro for a multiline macro |
| |
line_error (sprintf(__("Unknown command with braces `\@%s'"), $macro), $line_nr); |
| |
$result = do_text("\@$macro") . "{"; |
| |
} |
| |
$result .= $text; |
| |
$result .= '}' unless ($no_close); |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub do_unknown($$$$$$$) |
| |
{ |
| |
my $pass = shift; |
| |
my $macro = shift; |
| |
my $line = shift; |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
#print STDERR "do_unknown[$pass]($macro) ::: $line"; |
| |
|
| |
my ($result_line, $result, $result_text, $message) = &$Texi2HTML::Config::unknown($macro, $line, $pass, $stack,$state); |
| |
if ($result) |
| |
{ |
| |
add_prev ($text, $stack, $result_text) if (defined($result_text)); |
| |
line_warn($message, $line_nr) if (defined($message)); |
| |
# if $state->{'preformatted'}, assume that the preformatted is |
| |
# already opened. Otherwise we may end up opening one each time |
| |
# there is an unknown command. |
| |
begin_paragraph_after_command($state, $stack, $macro, $result_line) |
| |
if (!$state->{'preformatted'}); |
| |
return $result_line; |
| |
} |
| |
elsif ($pass == 2) |
| |
{ |
| |
if ($Texi2HTML::Config::style_map{$macro}) |
| |
{ |
| |
line_error (sprintf(__("%c%s expected braces"), ord('@'), $macro), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
line_error (sprintf(__("Unknown command `%s'"), $macro), $line_nr); |
| |
} |
| |
add_prev ($text, $stack, do_text("\@$macro")); |
| |
return $line; |
| |
} |
| |
elsif ($pass == 1) |
| |
{ |
| |
add_prev ($text, $stack, "\@$macro"); |
| |
return $line; |
| |
} |
| |
elsif ($pass == 0) |
| |
{ |
| |
add_prev ($text, $stack, "\@$macro") unless($state->{'ignored'}); |
| |
return $line; |
| |
} |
| |
} |
| |
|
| |
# used only during @macro processing |
| |
sub add_text($@) |
| |
{ |
| |
my $string = shift; |
| |
|
| |
return if (!defined($string)); |
| |
foreach my $scalar_ref (@_) |
| |
{ |
| |
next unless defined($scalar_ref); |
| |
if (!defined($$scalar_ref)) |
| |
{ |
| |
$$scalar_ref = $string; |
| |
} |
| |
else |
| |
{ |
| |
$$scalar_ref .= $string; |
| |
} |
| |
return; |
| |
} |
| |
} |
| |
|
| |
sub add_prev ($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $string = shift; |
| |
|
| |
unless (defined($text) and ref($text) eq "SCALAR") |
| |
{ |
| |
die "text not a SCALAR ref: " . ref($text) . ""; |
| |
} |
| |
|
| |
return if (!defined($string)); |
| |
if (@$stack) |
| |
{ |
| |
$stack->[-1]->{'text'} .= $string; |
| |
return; |
| |
} |
| |
|
| |
if (!defined($$text)) |
| |
{ |
| |
$$text = $string; |
| |
} |
| |
else |
| |
{ |
| |
$$text .= $string; |
| |
} |
| |
} |
| |
|
| |
sub close_stack_texi($$$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
|
| |
|
| |
return undef unless (@$stack or $state->{'raw'} or $state->{'macro'} or $state->{'macro_name'} or $state->{'ignored'}); |
| |
|
| |
if ($state->{'ignored'}) |
| |
{ |
| |
line_error (sprintf(__("Reached eof before matching \@end %s"), $state->{'ignored'}), $line_nr); |
| |
close_ignored($state, $stack); |
| |
} |
| |
|
| |
if ($state->{'macro'}) |
| |
{ |
| |
my ($no_remaining, $result) = end_macro($state, '@end macro', "\n"); |
| |
add_prev ($text, $stack, $result) if (defined($result)); |
| |
line_error (sprintf(__("%cend macro not found"), ord('@')), $line_nr); |
| |
} |
| |
elsif ($state->{'macro_name'}) |
| |
{ |
| |
#line_warn ("closing $state->{'macro_name'} ($state->{'macro_depth'} braces missing)", $line_nr); |
| |
line_error (sprintf(__("\@%s missing close brace"), $state->{'macro_name'}), $line_nr); |
| |
while ($state->{'macro_name'}) |
| |
{ |
| |
close_macro_arg($state, '', $line_nr); |
| |
} |
| |
} |
| |
elsif ($state->{'verb'}) |
| |
{ |
| |
# warning in next pass |
| |
#line_warn ("closing \@verb", $line_nr); |
| |
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'}; |
| |
delete $state->{'verb'}; |
| |
} |
| |
elsif ($state->{'raw'}) |
| |
{ |
| |
line_error (sprintf(__("Expected \@end %s"), $state->{'raw'}), $line_nr); |
| |
my $style = pop @$stack; |
| |
add_prev ($text, $stack, $style->{'text'} . "\@end $state->{'raw'}"); |
| |
delete $state->{'raw'}; |
| |
} |
| |
|
| |
my $stack_level = $#$stack + 1; |
| |
|
| |
while ($stack_level--) |
| |
{ |
| |
my $style = pop(@$stack); |
| |
# would be better in close_stack_structure |
| |
#line_warn ("closing \@-command $style->{'style'}", $line_nr) if ($style->{'style'} ne ''); |
| |
close_style_texi($style, $text, $stack, $state, 1); |
| |
} |
| |
#$stack = [ ]; |
| |
} |
| |
|
| |
|
| |
sub close_stack_structure($$$$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $close_only_item = shift; |
| |
$close_only_item = 0 if (!defined($close_only_item)); |
| |
|
| |
return undef unless (@$stack or $state->{'raw'}); |
| |
|
| |
#print STDERR "close_stack_structure ($close_only_item)\n"; |
| |
#dump_stack ($text, $stack, $state); |
| |
my $stack_level = $#$stack + 1; |
| |
my $string = ''; |
| |
|
| |
if ($state->{'verb'}) |
| |
{ |
| |
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'}; |
| |
#$string .= $state->{'verb'}; |
| |
} |
| |
|
| |
while ($stack_level--) |
| |
{ |
| |
last if ($close_only_item and defined($stack->[-1]->{'format'})); |
| |
my $top_stack = pop @$stack; |
| |
if ($top_stack->{'format'}) |
| |
{ |
| |
my $format = $top_stack->{'format'}; |
| |
if ($format eq 'index_item') |
| |
{ |
| |
enter_table_index_entry($text, $stack, $state, $line_nr); |
| |
} |
| |
elsif (!defined($format_type{$format}) or ($format_type{$format} ne 'fake')) |
| |
{ |
| |
end_format_structure($format_type{$format}, $text, $stack, $state, $line_nr, "\n"); |
| |
} |
| |
} |
| |
elsif (defined($top_stack->{'style'})) |
| |
{ |
| |
add_prev($text, $stack, |
| |
close_structure_command($top_stack, $state, 1, $line_nr)); |
| |
} |
| |
} |
| |
#$stack = [ ]; |
| |
} |
| |
|
| |
# This is used in pass 2 and 3. |
| |
sub open_region($$) |
| |
{ |
| |
my $command = shift; |
| |
my $state = shift; |
| |
if (!exists($state->{'region_lines'})) |
| |
{ |
| |
# FIXME 'format' is badly choosen 'region_name' would be much better |
| |
$state->{'region_lines'}->{'format'} = $command; |
| |
$state->{'region_lines'}->{'number'} = 1; |
| |
$state->{'region_lines'}->{'kept_place'} = $state->{'place'}; |
| |
$state->{'place'} = $no_element_associated_place; |
| |
$state->{'region'} = $command; |
| |
$state->{'multiple_pass'}++; |
| |
$state->{'region_pass'} = 1; |
| |
} |
| |
else |
| |
{ |
| |
$state->{'region_lines'}->{'number'}++; |
| |
} |
| |
} |
| |
|
| |
# close region like @insertcopying, titlepage... |
| |
# restore $state and delete the structure |
| |
# This is used in pass 2 and 3. |
| |
sub close_region($) |
| |
{ |
| |
my $state = shift; |
| |
$state->{'place'} = $state->{'region_lines'}->{'kept_place'}; |
| |
$state->{'multiple_pass'}--; |
| |
delete $state->{'region_lines'}->{'number'}; |
| |
delete $state->{'region_lines'}->{'format'}; |
| |
delete $state->{'region_lines'}->{'kept_place'}; |
| |
delete $state->{'region_lines'}; |
| |
delete $state->{'region'}; |
| |
delete $state->{'region_pass'}; |
| |
} |
| |
|
| |
# close the stack, closing @-commands and formats left open. |
| |
# if a $format is given if $format is encountered the closing stops |
| |
sub close_stack($$$$;$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $format = shift; |
| |
|
| |
#print STDERR "sub_close_stack\n"; |
| |
if (@$stack) |
| |
{ |
| |
my $stack_level = $#$stack + 1; |
| |
|
| |
#debugging |
| |
#my $print_format = 'NO FORMAT'; |
| |
#$print_format = $format if ($format); |
| |
#msg_debug ("Close_stack: format $print_format", $line_nr); |
| |
|
| |
while ($stack_level--) |
| |
{ |
| |
if ($stack->[$stack_level]->{'format'}) |
| |
{ |
| |
my $stack_format = $stack->[$stack_level]->{'format'}; |
| |
last if (defined($format) and $stack_format eq $format); |
| |
# We silently close paragraphs, preformatted sections and fake formats |
| |
if ($stack_format eq 'paragraph') |
| |
{ |
| |
my $paragraph = pop @$stack; |
| |
add_prev ($text, $stack, do_paragraph($paragraph->{'text'}, $state, $stack)); |
| |
} |
| |
elsif ($stack_format eq 'preformatted') |
| |
{ |
| |
my $paragraph = pop @$stack; |
| |
add_prev ($text, $stack, do_preformatted($paragraph->{'text'}, $state, $stack)); |
| |
} |
| |
else |
| |
{ |
| |
if ($fake_format{$stack_format}) |
| |
{ |
| |
warn "# Closing a fake format `$stack_format'\n" if ($T2H_VERBOSE); |
| |
} |
| |
elsif ($stack_format ne 'center') |
| |
{ # we don't warn for center |
| |
line_error (sprintf(__("No matching `%cend %s'"), ord('@'), $stack_format), $line_nr); |
| |
#dump_stack ($text, $stack, $state); |
| |
} |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
add_prev($text, $stack, "\@end $stack_format"); |
| |
} |
| |
elsif (!$state->{'remove_texi'}) |
| |
{ |
| |
end_format($text, $stack, $state, $stack_format, $line_nr) |
| |
unless ($format_type{$stack_format} eq 'fake'); |
| |
} |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
my $style = $stack->[$stack_level]->{'style'}; |
| |
########################## debug |
| |
if (!defined($style)) |
| |
{ |
| |
print STDERR "Bug: style not defined, on stack\n"; |
| |
dump_stack ($text, $stack, $state); # bug |
| |
} |
| |
########################## end debug |
| |
my $located_line_nr = $line_nr; |
| |
# use the beginning of the @-command for the error message |
| |
# line number if available. |
| |
$located_line_nr = $stack->[$stack_level]->{'line_nr'} if (defined($stack->[$stack_level]->{'line_nr'})); |
| |
line_error (sprintf(__("%c%s missing close brace"), ord('@'), $style), $located_line_nr); |
| |
my ($result, $command) = close_style_command($text, $stack, $state, $line_nr, ''); |
| |
|
| |
add_prev($text, $stack, $result) if (defined($result)); |
| |
} |
| |
} |
| |
} |
| |
|
| |
# This tries to avoid cases where the command_stack is not empty |
| |
# for a good reason, for example when doing a @def formatting the |
| |
# outside command_stack is preserved. Also when expanding for |
| |
# example @titleplage or @copying. |
| |
# FIXME sort out which cases it is. |
| |
return if ($format or (defined($state->{'multiple_pass'}) and $state->{'multiple_pass'} > 0) or $state->{'no_paragraph'}); |
| |
|
| |
# The pending style commands are cleared here; And are closed next. |
| |
delete $state->{'paragraph_macros'}; |
| |
# go through the command_stack and warn for each opened style format |
| |
# and remove it. Those should be there because there is an opened style |
| |
# that was stopped by a paragraph |
| |
my @command_stack = @{$state->{'command_stack'}}; |
| |
@{$state->{'command_stack'}} = (); |
| |
while (@command_stack) |
| |
{ |
| |
my $latest_command = pop @command_stack; |
| |
if (defined($style_type{$latest_command}) and $style_type{$latest_command} ne 'special') |
| |
{ |
| |
line_error (sprintf(__("%c%s missing close brace"), ord('@'), $latest_command), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
unshift @{$state->{'command_stack'}}, $latest_command; |
| |
} |
| |
} |
| |
} |
| |
|
| |
# given a stack and a list of formats, return true if the stack contains |
| |
# these formats, first on top |
| |
sub stack_order($@) |
| |
{ |
| |
my $stack = shift; |
| |
my $stack_level = $#$stack + 1; |
| |
while (@_) |
| |
{ |
| |
my $format = shift; |
| |
while ($stack_level--) |
| |
{ |
| |
if ($stack->[$stack_level]->{'format'}) |
| |
{ |
| |
if ($stack->[$stack_level]->{'format'} eq $format) |
| |
{ |
| |
$format = undef; |
| |
last; |
| |
} |
| |
else |
| |
{ |
| |
return 0; |
| |
} |
| |
} |
| |
} |
| |
return 0 if ($format); |
| |
} |
| |
return 1; |
| |
} |
| |
|
| |
sub top_format($) |
| |
{ |
| |
my $stack = shift; |
| |
my $stack_level = $#$stack + 1; |
| |
while ($stack_level--) |
| |
{ |
| |
if ($stack->[$stack_level]->{'format'} and !$fake_format{$stack->[$stack_level]->{'format'}}) |
| |
{ |
| |
return $stack->[$stack_level]; |
| |
} |
| |
} |
| |
return undef; |
| |
} |
| |
|
| |
sub close_paragraph($$$$;$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
my $reason = shift; |
| |
my $line_nr = shift; |
| |
my $no_preformatted_closing = shift; |
| |
#print STDERR "CLOSE_PARAGRAPH\n"; |
| |
#dump_stack($text, $stack, $state); |
| |
|
| |
# close until the first format, |
| |
# duplicate stack of styles not closed |
| |
my $new_stack; |
| |
my $stack_level = $#$stack + 1; |
| |
|
| |
# In general close_paragraph is called because of a end of line, or |
| |
# a format is opened or closed, or there is a @tab or @item and other |
| |
# similar cases. In most cases there is a paragraph to be closed or |
| |
# there are no style opened since most @-commands cause paragraph |
| |
# opening and those that don't should not lead to a style opening. |
| |
# |
| |
# But in term or in @index (and maybe @node, @section, @ref), if |
| |
# there is a command opened it won't be closed, since it is in |
| |
# 'no_paragraph'. But @-commands that trigger close_paragraph should not |
| |
# be called when in those no_paragraph settings. |
| |
|
| |
if ($state->{'no_paragraph'}) |
| |
{ # This plays the role of "Multiline command %c%s used improperly" |
| |
line_error(sprintf(__("%s should not appear in %s"), $reason, $state->{'no_paragraph_stack'}->[-1]), $line_nr); |
| |
} |
| |
|
| |
while ($stack_level--) |
| |
{ |
| |
last if ($stack->[$stack_level]->{'format'}); |
| |
my $style = $stack->[$stack_level]->{'style'}; |
| |
|
| |
# the !exists($style_type{$style}) condition catches the unknown |
| |
# @-commands: by default they are considered as style commands |
| |
if (!$state->{'no_paragraph'}) |
| |
{ |
| |
if (!exists($style_type{$style}) or $style_type{$style} eq 'style') |
| |
{ |
| |
unshift @$new_stack, { 'style' => $style, 'text' => '', 'no_open' => 1, 'arg_nr' => 0 }; |
| |
} |
| |
elsif (($style_type{$style} eq 'simple_style') or ($style_type{$style} eq 'accent')) |
| |
{ |
| |
} |
| |
else |
| |
{ |
| |
# it shouldn't be possible to have 'special' styles, like |
| |
# images, footnotes, xrefs, anchors, as |
| |
# close_paragraph shouldn't be called with keep_texi |
| |
# and when the arguments are expanded, there is a |
| |
# substitute_line or similar with a new stack. |
| |
msg_debug("BUG: special $style while closing paragraph", $line_nr); |
| |
} |
| |
} |
| |
# if not in a paragraph, the command is simply closed, and not recorded |
| |
# in new_stack. |
| |
my ($result, $command) = close_style_command($text, $stack, $state, $line_nr, '', (!$state->{'no_paragraph'})); |
| |
add_prev($text, $stack, $result) if (defined($result)); |
| |
} |
| |
|
| |
if (!$state->{'paragraph_context'} and !$state->{'preformatted'} and defined($new_stack) and scalar(@$new_stack)) |
| |
{ # in that case the $new_stack isn't recorded in $state->{'paragraph_macros'} |
| |
# and therefore, it is lost |
| |
msg_debug ("closing paragraph, but not in paragraph/preformatted, and new_stack not empty", $line_nr); |
| |
dump_stack($text, $stack, $state); |
| |
} |
| |
my $top_stack = top_stack($stack); |
| |
if ($top_stack and !defined($top_stack->{'format'})) |
| |
{ #debug |
| |
msg_debug("Bug: no format on top stack", $line_nr); |
| |
dump_stack($text, $stack, $state); |
| |
} |
| |
if ($top_stack and ($top_stack->{'format'} eq 'paragraph')) |
| |
{ |
| |
my $paragraph = pop @$stack; |
| |
add_prev($text, $stack, do_paragraph($paragraph->{'text'}, $state, $stack)); |
| |
$state->{'paragraph_macros'} = $new_stack; |
| |
return 1; |
| |
} |
| |
elsif ($top_stack and ($top_stack->{'format'} eq 'preformatted') and !$no_preformatted_closing) |
| |
{ |
| |
my $paragraph = pop @$stack; |
| |
add_prev($text, $stack, do_preformatted($paragraph->{'text'}, $state, $stack)); |
| |
$state->{'paragraph_macros'} = $new_stack; |
| |
return 1; |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub abort_empty_preformatted($$) |
| |
{ |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
if (@$stack and $stack->[-1]->{'format'} |
| |
and ($stack->[-1]->{'format'} eq 'preformatted') |
| |
and ($stack->[-1]->{'text'} !~ /\S/)) |
| |
{ |
| |
if (defined($Texi2HTML::Config::empty_preformatted)) |
| |
{ |
| |
return if (&$Texi2HTML::Config::empty_preformatted($stack->[-1]->{'text'})); |
| |
} |
| |
pop @$stack; |
| |
} |
| |
} |
| |
|
| |
# for debugging |
| |
sub dump_stack($$$) |
| |
{ |
| |
my $text = shift; |
| |
my $stack = shift; |
| |
my $state = shift; |
| |
|
| |
if (defined($$text)) |
| |
{ |
| |
print STDERR "text: $$text\n"; |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "text: UNDEF\n"; |
| |
} |
| |
my $in_remove = 0; |
| |
my $in_simple_format = 0; |
| |
my $in_keep = 0; |
| |
$in_keep = 1 if ($state->{'keep_texi'}); |
| |
if (!$in_keep) |
| |
{ |
| |
$in_simple_format = 1 if ($state->{'simple_format'}); |
| |
$in_remove = 1 if ($state->{'remove_texi'} and !$in_simple_format); |
| |
} |
| |
print STDERR "state[$state](k${in_keep}s${in_simple_format}r${in_remove}): "; |
| |
foreach my $key (keys(%$state)) |
| |
{ |
| |
my $value = 'UNDEF'; |
| |
$value = $state->{$key} if (defined($state->{$key})); |
| |
print STDERR "$key: $value " if (!ref($value)); |
| |
} |
| |
print STDERR "\n"; |
| |
my $stack_level = $#$stack + 1; |
| |
while ($stack_level--) |
| |
{ |
| |
print STDERR " $stack_level-> "; |
| |
foreach my $key (keys(%{$stack->[$stack_level]})) |
| |
{ |
| |
my $value = 'UNDEF'; |
| |
$value = $stack->[$stack_level]->{$key} if |
| |
(defined($stack->[$stack_level]->{$key})); |
| |
print STDERR "$key: $value "; |
| |
} |
| |
print STDERR "\n"; |
| |
} |
| |
if (defined($state->{'command_stack'})) |
| |
{ |
| |
print STDERR "command_stack: "; |
| |
foreach my $style (@{$state->{'command_stack'}}) |
| |
{ |
| |
print STDERR "($style) "; |
| |
} |
| |
print STDERR "\n"; |
| |
} |
| |
if (defined($state->{'region_lines'})) |
| |
{ |
| |
print STDERR "region_lines($state->{'region_lines'}->{'number'}): $state->{'region_lines'}->{'format'}\n"; |
| |
} |
| |
if (defined($state->{'paragraph_macros'})) |
| |
{ |
| |
print STDERR "paragraph_macros: "; |
| |
foreach my $style (@{$state->{'paragraph_macros'}}) |
| |
{ |
| |
print STDERR "($style->{'style'})"; |
| |
} |
| |
print STDERR "\n"; |
| |
} |
| |
if (defined($state->{'preformatted_stack'})) |
| |
{ |
| |
print STDERR "preformatted_stack: "; |
| |
foreach my $preformatted_style (@{$state->{'preformatted_stack'}}) |
| |
{ |
| |
if ($preformatted_style eq '') |
| |
{ |
| |
print STDERR "."; |
| |
next; |
| |
} |
| |
my $pre_style = ''; |
| |
$pre_style = $preformatted_style->{'pre_style'} if (exists $preformatted_style->{'pre_style'}); |
| |
my $class = ''; |
| |
$class = $preformatted_style->{'class'} if (exists $preformatted_style->{'class'}); |
| |
my $style = ''; |
| |
$style = $preformatted_style->{'style'} if (exists $preformatted_style->{'style'}); |
| |
print STDERR "($pre_style, $class,$style)"; |
| |
} |
| |
print STDERR "\n"; |
| |
} |
| |
if (defined($state->{'text_macro_stack'}) and @{$state->{'text_macro_stack'}}) |
| |
{ |
| |
print STDERR "text_macro_stack: (@{$state->{'text_macro_stack'}})\n"; |
| |
} |
| |
} |
| |
|
| |
# for debugging |
| |
sub print_elements($) |
| |
{ |
| |
my $elements = shift; |
| |
foreach my $elem(@$elements) |
| |
{ |
| |
if ($elem->{'node'}) |
| |
{ |
| |
print STDERR "node-> $elem "; |
| |
} |
| |
else |
| |
{ |
| |
print STDERR "chap=> $elem "; |
| |
} |
| |
foreach my $key (keys(%$elem)) |
| |
{ |
| |
my $value = "UNDEF"; |
| |
$value = $elem->{$key} if (defined($elem->{$key})); |
| |
print STDERR "$key: $value "; |
| |
} |
| |
print STDERR "\n"; |
| |
} |
| |
} |
| |
|
| |
# for debugging |
| |
sub context_string(;$$$) |
| |
{ |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $message = shift; |
| |
|
| |
$state = $Texi2HTML::THISDOC{'state'} |
| |
if (!defined($state) and defined($Texi2HTML::THISDOC{'state'})); |
| |
$line_nr = $Texi2HTML::THISDOC{'line_nr'} |
| |
if (!defined($line_nr) and defined($Texi2HTML::THISDOC{'line_nr'})); |
| |
my $result = "Pass $global_pass"; |
| |
my $line_info = ', no line information'; |
| |
$line_info = ' ' .format_line_number($line_nr) if (defined($line_nr)); |
| |
$result .= $line_info; |
| |
if (!defined($state)) |
| |
{ |
| |
$result .= ', no state information'; |
| |
} |
| |
else |
| |
{ |
| |
$result .= ", context $state->{'context'}" if defined($state->{'context'}); |
| |
my $expand = ''; |
| |
if ($state->{'keep_texi'}) |
| |
{ |
| |
$expand .= ' no expansion'; |
| |
} |
| |
if ($state->{'remove_texi'}) |
| |
{ |
| |
$expand .= ' raw'; |
| |
} |
| |
if ($state->{'preformatted'}) |
| |
{ |
| |
$expand .= ' preformatted'; |
| |
} |
| |
if ($state->{'code_style'}) |
| |
{ |
| |
$expand .= " 'code'"; |
| |
} |
| |
if ($state->{'simple_format'}) |
| |
{ |
| |
$expand .= ' simple'; |
| |
} |
| |
$expand = ' normal' if (!$expand); |
| |
$result .= ',' . $expand; |
| |
if ($state->{'expansion'}) |
| |
{ |
| |
$result .= ", \@$state->{'expansion'}"; |
| |
} |
| |
if ($state->{'region'}) |
| |
{ |
| |
$result .= ", region $state->{'region'}"; |
| |
} |
| |
if ($state->{'outside_document'}) |
| |
{ |
| |
$result .= "; out"; |
| |
} |
| |
if ($state->{'inside_document'}) |
| |
{ |
| |
$result .= "; in"; |
| |
} |
| |
if ($state->{'multiple_pass'}) |
| |
{ |
| |
$result .= "; multiple $state->{'multiple_pass'}"; |
| |
} |
| |
if ($state->{'new_state'}) |
| |
{ |
| |
$result .= "; new"; |
| |
} |
| |
if ($state->{'duplicated'}) |
| |
{ |
| |
$result .= "; duplicated"; |
| |
} |
| |
} |
| |
$result .= "(in @{$Texi2HTML::THISDOC{'command_stack'}})" |
| |
if (defined ($Texi2HTML::THISDOC{'command_stack'}) and @{$Texi2HTML::THISDOC{'command_stack'}}); |
| |
$result .= ' ' .$message if ($message); |
| |
return $result; |
| |
} |
| |
|
| |
|
| |
my @states_stack = (); |
| |
|
| |
sub push_state($) |
| |
{ |
| |
my $new_state = shift; |
| |
push @states_stack, $new_state; |
| |
$Texi2HTML::THISDOC{'state'} = $new_state; |
| |
} |
| |
|
| |
sub pop_state() |
| |
{ |
| |
pop @states_stack; |
| |
if (@states_stack) |
| |
{ |
| |
$Texi2HTML::THISDOC{'state'} = $states_stack[-1]; |
| |
} |
| |
else |
| |
{ |
| |
$Texi2HTML::THISDOC{'state'} = undef; |
| |
} |
| |
} |
| |
|
| |
sub substitute_line($$;$$) |
| |
{ |
| |
my $line = shift; |
| |
my $context_string = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
$state = {} if (!defined($state)); |
| |
$state->{'no_paragraph'} = 1; |
| |
|
| |
if (($state->{'inside_document'} or $state->{'outside_document'}) and (!$state->{'duplicated'} and !$state->{'new_state'})) |
| |
{ |
| |
msg_debug("substitute_line with main state in: ".var_to_str($context_string), $line_nr); |
| |
} |
| |
push @{$state->{'no_paragraph_stack'}}, $context_string; |
| |
# this is usefull when called from &$I, and also for image files |
| |
return simple_format($state, [ $line_nr ], $context_string, $line) if ($state->{'simple_format'}); |
| |
return substitute_text($state, [ $line_nr ], $context_string, $line); |
| |
} |
| |
|
| |
sub substitute_text($$$@) |
| |
{ |
| |
my $state = shift; |
| |
my $line_nrs = shift; |
| |
my $context = shift; |
| |
my @stack = (); |
| |
my $text = ''; |
| |
my $result = ''; |
| |
my $line_nr; |
| |
if ($state->{'structure'}) |
| |
{ |
| |
initialise_state_structure($state); |
| |
} |
| |
elsif ($state->{'texi'}) |
| |
{ # only in arg_expansion |
| |
initialise_state_texi($state); |
| |
msg_bug("substitute_text, 'texi' true but not 'arg_expansion'") if (!$state->{'arg_expansion'}); |
| |
} |
| |
else |
| |
{ |
| |
#print STDERR "FILL_STATE substitute_text ($state->{'preformatted'}): @_\n"; |
| |
if (($state->{'inside_document'} or $state->{'outside_document'}) and (!$state->{'duplicated'} and !$state->{'new_state'})) |
| |
{ |
| |
msg_debug("substitute_text with main state in: ".var_to_str($context), $line_nr); |
| |
} |
| |
fill_state($state); |
| |
$state->{'context'} = $context; |
| |
} |
| |
$state->{'spool'} = []; |
| |
#print STDERR "SUBST_TEXT ".var_to_str($context)."\n"; |
| |
push_state($state); |
| |
|
| |
my $line_nrs_kept = $Texi2HTML::THISDOC{'line_nr'}; |
| |
$Texi2HTML::THISDOC{'line_nr'} = undef; |
| |
|
| |
while (@_ or @{$state->{'spool'}} or $state->{'in_deff_line'}) |
| |
{ |
| |
my $line; |
| |
if ($line_nrs and @{$line_nrs}) |
| |
{ |
| |
$line_nr = shift @{$line_nrs}; |
| |
$Texi2HTML::THISDOC{'line_nr'} = $line_nr; |
| |
} |
| |
if (@{$state->{'spool'}}) |
| |
{ |
| |
$line = shift @{$state->{'spool'}}; |
| |
} |
| |
else |
| |
{ |
| |
$line = shift @_; |
| |
} |
| |
# msg_debug ("SUBSTITUTE_TEXT $line", $line_nr) if (defined($line_nr)); |
| |
if ($state->{'in_deff_line'}) |
| |
{ |
| |
if (defined($line)) |
| |
{ |
| |
$line = $state->{'in_deff_line'} . $line; |
| |
} |
| |
else |
| |
{ |
| |
$line = $state->{'in_deff_line'}; |
| |
} |
| |
delete $state->{'in_deff_line'}; |
| |
} |
| |
else |
| |
{ |
| |
next unless (defined($line)); |
| |
} |
| |
#{ my $p_line = $line; chomp($p_line); print STDERR "SUBST_TEXT $p_line\n"; } |
| |
if ($state->{'structure'}) |
| |
{ |
| |
scan_structure ($line, \$text, \@stack, $state); |
| |
} |
| |
elsif ($state->{'texi'}) |
| |
{ |
| |
scan_texi ($line, \$text, \@stack, $state); |
| |
} |
| |
else |
| |
{ |
| |
set_line_nr_in_stack($state, \@stack, $line_nr); |
| |
scan_line($line, \$text, \@stack, $state, $line_nr); |
| |
} |
| |
next if (@stack); |
| |
$result .= $text; |
| |
$text = ''; |
| |
} |
| |
if ($line_nrs and @{$line_nrs}) |
| |
{ |
| |
$line_nr = shift @{$line_nrs}; |
| |
$Texi2HTML::THISDOC{'line_nr'} = $line_nr; |
| |
} |
| |
# close stack in substitute_text |
| |
if ($state->{'texi'}) |
| |
{ |
| |
close_stack_texi(\$text, \@stack, $state, $line_nr); |
| |
} |
| |
elsif ($state->{'structure'}) |
| |
{ |
| |
close_stack_structure(\$text, \@stack, $state, $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
close_stack(\$text, \@stack, $state, $line_nr); |
| |
} |
| |
#print STDERR "SUBST_TEXT end\n"; |
| |
pop_state(); |
| |
$Texi2HTML::THISDOC{'line_nr'} = $line_nrs_kept; |
| |
return $result . $text; |
| |
} |
| |
|
| |
sub print_lines($;$) |
| |
{ |
| |
my ($fh, $lines) = @_; |
| |
$lines = $Texi2HTML::THIS_SECTION unless $lines; |
| |
my @cnt; |
| |
my $cnt; |
| |
for my $line (@$lines) |
| |
{ |
| |
print $fh $line; |
| |
if (defined($Texi2HTML::Config::WORDS_IN_PAGE) and (Texi2HTML::Config::get_conf('SPLIT') eq 'node')) |
| |
{ |
| |
@cnt = split(/\W*\s+\W*/, $line); |
| |
$cnt += scalar(@cnt); |
| |
} |
| |
} |
| |
return $cnt; |
| |
} |
| |
|
| |
sub do_index_entry_label($$$$;$) |
| |
{ |
| |
my $command = shift; |
| |
my $state = shift; |
| |
my $line_nr = shift; |
| |
my $entry_texi = shift; |
| |
# this is only needed for definitions since the whole line is parsed to |
| |
# reuse get_deff_index. |
| |
my $line = shift; |
| |
|
| |
my $prefix = index_entry_command_prefix($command, $line, $line_nr); |
| |
my $index_name = $index_prefix_to_name{$prefix}; |
| |
|
| |
msg_debug("do_index_entry_label($command): Undefined entry_texi", $line_nr) |
| |
if (!defined($entry_texi)); |
| |
$entry_texi = trim_comment_spaces($entry_texi, "index label in \@$command", $line_nr); |
| |
|
| |
# index entries are not entered in special regions |
| |
my $region = 'document'; |
| |
$region = $state->{'region'} if (defined($state->{'region'})); |
| |
|
| |
my $entry; |
| |
# Can be within a @caption expanded within a listoffloat. In that |
| |
# case the 2 conditions on state are not set. |
| |
if (defined($state->{'region'}) or !defined($state->{'expansion'})) |
| |
{ |
| |
# index entry on a line that is not searched for index entries, like |
| |
# a @def* line |
| |
if (!defined($Texi2HTML::THISDOC{'index_entries'}->{$region}) or !defined($Texi2HTML::THISDOC{'index_entries'}->{$region}->{$entry_texi})) |
| |
{ |
| |
line_warn(sprintf(__("Index entry not caught: `%s' in %s"), $entry_texi, $region), $line_nr); |
| |
} |
| |
else |
| |
{ |
| |
my $entry_ref = $Texi2HTML::THISDOC{'index_entries'}->{$region}->{$entry_texi}; |
| |
# ============================ debug |
| |
if (!defined($entry_ref->{'entries'})) |
| |
{ |
| |
msg_debug("BUG, not defined: {'index_entries'}->{$region}->{$entry_texi}->{'entries'}", $line_nr); |
| |
} |
| |
# ============================ end debug |
| |
if (scalar(@{$entry_ref->{'entries'}}) > 1) |
| |
{ |
| |
if (!defined($entry_ref->{'index'})) |
| |
{ |
| |
$entry_ref->{'index'} = 0; |
| |
} |
| |
$entry = $entry_ref->{'entries'}->[$entry_ref->{'index'}]; |
| |
$entry_ref->{'index'}++; |
| |
} |
| |
else |
| |
{ |
| |
$entry = $entry_ref->{'entries'}->[0]; |
| |
} |
| |
$entry->{'seen_in_output'} = 1 if (!$state->{'outside_document'}); |
| |
############################################# debug |
| |
# verify that the old way of getting index entries (in an array) is |
| |
# synchronized with the document |
| |
if (!$state->{'region'}) |
| |
{ |
| |
my $entry_from_array = shift @index_labels; |
| |
if ($entry_from_array ne $entry) |
| |
{ |
| |
msg_debug ("entry `$entry->{'texi'}' ne entry_from_array `$entry_from_array->{'texi'}'", $line_nr); |
| |
} |
| |
if (!defined($entry_from_array)) |
| |
{ |
| |
mesg_debug ("Not enough index entries !", $line_nr); |
| |
} |
| |
} |
| |
############################################# end debug |
| |
} |
| |
} |
| |
|
| |
if (!defined($entry)) |
| |
{ |
| |
# this can happen for listoffloats and caption without being a user |
| |
# error. Well, in fact, it could be argued that it is indeed a user |
| |
# error, putting an index entry in a snippet that can be expanded |
| |
# more than once and is not strictly associated with a node/section. |
| |
|
| |
#print STDERR "Entry for index $index_name not gathered in usual places ($region)\n"; |
| |
$entry = { |
| |
'command' => $command, |
| |
'texi' => $entry_texi, |
| |
'entry' => $entry_texi, |
| |
'prefix' => $prefix, |
| |
'index_name' => $index_name, |
| |
}; |
| |
$entry->{'key'} = sorted_line($entry_texi); |
| |
$entry->{'entry'} = '@code{'.$entry->{'entry'}.'}' |
| |
if (defined($index_name) and |
| |
defined($index_names{$index_name}->{'prefixes'}) and |
| |
$index_names{$index_name}->{'prefixes'}->{$prefix} |
| |
and $entry->{'key'} =~ /\S/); |
| |
} |
| |
|
| |
###################################### debug |
| |
else |
| |
{ |
| |
if ($entry->{'prefix'} ne $prefix) |
| |
{ |
| |
msg_debug ("prefix in entry $entry->{'prefix'} ne $prefix from $command", $line_nr); |
| |
} |
| |
} |
| |
|
| |
if ($command ne $entry->{'command'}) |
| |
{ |
| |
# happened with bad texinfo with a line like |
| |
# @deffn func aaaa args @defvr c--ategory d--efvr_name |
| |
# now this case is caught above by "Index entry not caught: |
| |
msg_debug ("($region) Waiting for index cmd \@$entry->{'command'} got \@$command", $line_nr); |
| |
} |
| |
|
| |
if ($entry->{'texi'} ne $entry_texi) |
| |
{ |
| |
msg_debug ("Waiting for index `$entry->{'texi'}', got `$entry_texi'", $line_nr); |
| |
} |
| |
|
| |
my $id = 'no id'; |
| |
$id = $entry->{'id'} if (defined($entry->{'id'})); |
| |
print STDERR "(index($index_name) $command) [$entry->{'entry'}] $id\n" |
| |
if ($T2H_DEBUG & $DEBUG_INDEX); |
| |
###################################### end debug |
| |
|
| |
#return (undef,'','') if ($state->{'region'}); |
| |
if ($entry->{'key'} =~ /^\s*$/) |
| |
{ |
| |
line_warn(sprintf(__("Empty index entry for \@%s"), $command), $entry->{'line_nr'}); |
| |
} |
| |
my $formatted_entry = substitute_line($entry->{'entry'}, "\@$command", prepare_state_multiple_pass("${command}_index", $state),$entry->{'line_nr'}); |
| |
my $formatted_entry_reference = substitute_line($entry->{'texi'}, "\@$command", prepare_state_multiple_pass("${command}_index", $state)); |
| |
return ($entry, $formatted_entry, &$Texi2HTML::Config::index_entry_label ($entry->{'id'}, $state->{'preformatted'}, $formatted_entry, |
| |
$index_name, |
| |
$command, $entry->{'texi'}, $formatted_entry_reference, |
| |
(!$entry->{'seen_in_output'} and defined($entry->{'region'})),$entry)); |
| |
} |
| |
|
| |
# decompose a decimal number on a given base. The algorithm looks like |
| |
# the division with growing powers (division suivant les puissances |
| |
# croissantes) ? |
| |
sub decompose($$) |
| |
{ |
| |
my $number = shift; |
| |
my $base = shift; |
| |
my @result = (); |
| |
|
| |
return (0) if ($number == 0); |
| |
my $power = 1; |
| |
my $remaining = $number; |
| |
|
| |
while ($remaining) |
| |
{ |
| |
my $factor = $remaining % ($base ** $power); |
| |
$remaining -= $factor; |
| |
push (@result, $factor / ($base ** ($power - 1))); |
| |
$power++; |
| |
} |
| |
return @result; |
| |
} |
| |
|
| |
# process a css file |
| |
sub process_css_file ($$) |
| |
{ |
| |
my $fh =shift; |
| |
my $file = shift; |
| |
my $in_rules = 0; |
| |
my $in_comment = 0; |
| |
my $in_import = 0; |
| |
my $in_string = 0; |
| |
my $rules = []; |
| |
my $imports = []; |
| |
my $line_nr = 0; |
| |
while (my $line = <$fh>) |
| |
{ |
| |
$line_nr++; |
| |
#print STDERR "Line: $line"; |
| |
if ($in_rules) |
| |
{ |
| |
push @$rules, $line; |
| |
next; |
| |
} |
| |
my $text = ''; |
| |
while (1) |
| |
{ |
| |
#sleep 1; |
| |
#print STDERR "${text}!in_comment $in_comment in_rules $in_rules in_import $in_import in_string $in_string: $line"; |
| |
if ($in_comment) |
| |
{ |
| |
if ($line =~ s/^(.*?\*\/)//) |
| |
{ |
| |
$text .= $1; |
| |
$in_comment = 0; |
| |
} |
| |
else |
| |
{ |
| |
push @$imports, $text . $line; |
| |
last; |
| |
} |
| |
} |
| |
elsif (!$in_string and $line =~ s/^\///) |
| |
{ # what do '\' do here ? |
| |
if ($line =~ s/^\*//) |
| |
{ |
| |
$text .= '/*'; |
| |
$in_comment = 1; |
| |
} |
| |
else |
| |
{ |
| |
push (@$imports, $text. "\n") if ($text ne ''); |
| |
push (@$rules, '/' . $line); |
| |
$in_rules = 1; |
| |
last; |
| |
} |
| |
} |
| |
elsif (!$in_string and $in_import and $line =~ s/^([\"\'])//) |
| |
{ # strings outside of import start rules |
| |
$text .= "$1"; |
| |
$in_string = quotemeta("$1"); |
| |
} |
| |
elsif ($in_string and $line =~ s/^(\\$in_string)//) |
| |
{ |
| |
$text .= $1; |
| |
} |
| |
elsif ($in_string and $line =~ s/^($in_string)//) |
| |
{ |
| |
$text .= $1; |
| |
$in_string = 0; |
| |
} |
| |
elsif ((! $in_string and !$in_import) and ($line =~ s/^([\\]?\@import)$// or $line =~ s/^([\\]?\@import\s+)//)) |
| |
{ |
| |
$text .= $1; |
| |
$in_import = 1; |
| |
} |
| |
elsif (!$in_string and $in_import and $line =~ s/^\;//) |
| |
{ |
| |
$text .= ';'; |
| |
$in_import = 0; |
| |
} |
| |
elsif (($in_import or $in_string) and $line =~ s/^(.)//) |
| |
{ |
| |
$text .= $1; |
| |
} |
| |
elsif (!$in_import and $line =~ s/^([^\s])//) |
| |
{ |
| |
push (@$imports, $text. "\n") if ($text ne ''); |
| |
push (@$rules, $1 . $line); |
| |
$in_rules = 1; |
| |
last; |
| |
} |
| |
elsif ($line =~ s/^(\s)//) |
| |
{ |
| |
$text .= $1; |
| |
} |
| |
elsif ($line eq '') |
| |
{ |
| |
push (@$imports, $text); |
| |
last; |
| |
} |
| |
} |
| |
} |
| |
#file_line_warn (__("string not closed in css file"), $file) if ($in_string); |
| |
#file_line_warn (__("--css-file ended in comment"), $file) if ($in_comment); |
| |
#file_line_warn (__("\@import not finished in css file"), $file) if ($in_import and !$in_comment and !$in_string); |
| |
warn (sprintf(__("%s:%d: string not closed in css file"), $file, $line_nr)) if ($in_string); |
| |
warn (sprintf(__("%s:%d: --css-file ended in comment"), $file, $line_nr)) if ($in_comment); |
| |
warn (sprintf(__("%s:%d \@import not finished in css file"), $file, $line_nr)) if ($in_import and !$in_comment and !$in_string); |
| |
return ($imports, $rules); |
| |
} |
| |
|
| |
sub collect_all_css_files() |
| |
{ |
| |
my @css_import_lines; |
| |
my @css_rule_lines; |
| |
|
| |
# process css files |
| |
return ([],[]) if ($Texi2HTML::Config::NO_CSS); |
| |
foreach my $file (@Texi2HTML::Config::CSS_FILES) |
| |
{ |
| |
my $css_file_fh; |
| |
my $css_file; |
| |
if ($file eq '-') |
| |
{ |
| |
$css_file_fh = \*STDIN; |
| |
$css_file = '-'; |
| |
} |
| |
else |
| |
{ |
| |
$css_file = locate_include_file ($file); |
| |
unless (defined($css_file)) |
| |
{ |
| |
document_warn ("css file $file not found"); |
| |
next; |
| |
} |
| |
unless (open (CSSFILE, "$css_file")) |
| |
{ |
| |
warn (sprintf(__("%s: could not open --css-file %s: %s\n"), $real_command_name, $css_file, $!)); |
| |
next; |
| |
} |
| |
$css_file_fh = \*CSSFILE; |
| |
} |
| |
my ($import_lines, $rules_lines); |
| |
($import_lines, $rules_lines) = process_css_file ($css_file_fh, $css_file); |
| |
push @css_import_lines, @$import_lines; |
| |
push @css_rule_lines, @$rules_lines; |
| |
} |
| |
|
| |
|
| |
if ($T2H_DEBUG & $DEBUG_USER) |
| |
{ |
| |
if (@css_import_lines) |
| |
{ |
| |
print STDERR "# css import lines\n"; |
| |
foreach my $line (@css_import_lines) |
| |
{ |
| |
print STDERR "$line"; |
| |
} |
| |
} |
| |
if (@css_rule_lines) |
| |
{ |
| |
print STDERR "# css rule lines\n"; |
| |
foreach my $line (@css_rule_lines) |
| |
{ |
| |
print STDERR "$line"; |
| |
} |
| |
} |
| |
} |
| |
return (\@css_import_lines, \@css_rule_lines); |
| |
} |
| |
|
| |
sub init_with_file_name($) |
| |
{ |
| |
my $base_file = shift; |
| |
set_docu_names($base_file, $Texi2HTML::THISDOC{'input_file_number'}); |
| |
|
| |
foreach my $handler(@Texi2HTML::Config::command_handler_init) |
| |
{ |
| |
&$handler; |
| |
} |
| |
} |
| |
|
| |
|
| |
####################################################################### |
| |
# |
| |
# Main processing, process all the files given on the command line |
| |
# |
| |
####################################################################### |
| |
|
| |
my @input_files = @ARGV; |
| |
# use STDIN if not a tty, like makeinfo does |
| |
@input_files = ('-') if (!scalar(@input_files) and !-t STDIN); |
| |
die sprintf(__("%s: missing file argument.\n"), $real_command_name) .$T2H_FAILURE_TEXT unless (scalar(@input_files) >= 1); |
| |
|
| |
my $file_number = 0; |
| |
# main processing |
| |
while(@input_files) |
| |
{ |
| |
my $input_file_arg = shift(@input_files); |
| |
|
| |
%Texi2HTML::THISDOC = (); |
| |
$Texi2HTML::THIS_ELEMENT = undef; |
| |
|
| |
# Otherwise Texi2HTML::THISDOC wouldn't be set in case there was no call |
| |
# to set_conf. |
| |
foreach my $global_conf_vars('SPLIT', 'SPLIT_SIZE') |
| |
{ |
| |
$Texi2HTML::THISDOC{$global_conf_vars} = Texi2HTML::Config::get_conf($global_conf_vars); |
| |
} |
| |
|
| |
foreach my $global_key (keys(%Texi2HTML::GLOBAL)) |
| |
{ |
| |
$Texi2HTML::THISDOC{$global_key} = $Texi2HTML::GLOBAL{$global_key}; |
| |
} |
| |
|
| |
my $input_file_name; |
| |
# try to concatenate with different suffixes. The last suffix is '' |
| |
# such that the plain file name is checked. |
| |
foreach my $suffix (@Texi2HTML::Config::INPUT_FILE_SUFFIXES) |
| |
{ |
| |
$input_file_name = $input_file_arg.$suffix if (-e $input_file_arg.$suffix); |
| |
} |
| |
# in case no file was found, still set the file name |
| |
$input_file_name = $input_file_arg if (!defined($input_file_name)); |
| |
|
| |
$Texi2HTML::THISDOC{'input_file_name'} = $input_file_name; |
| |
$Texi2HTML::THISDOC{'input_file_number'} = $file_number; |
| |
$Texi2HTML::THISDOC{'input_directory'} = '.'; |
| |
if ($input_file_name =~ /(.*\/)/) |
| |
{ |
| |
$Texi2HTML::THISDOC{'input_directory'} = $1; |
| |
} |
| |
|
| |
my $input_file_base = $input_file_name; |
| |
$input_file_base =~ s/\.te?x(i|info)?$//; |
| |
|
| |
@{$Texi2HTML::TOC_LINES} = (); # table of contents |
| |
@{$Texi2HTML::OVERVIEW} = (); # short table of contents |
| |
# this could be done here, but perl warns that |
| |
# `"Texi2HTML::TITLEPAGE" used only once' and it is reset in |
| |
# &$Texi2HTML::Config::titlepage anyway |
| |
# $Texi2HTML::TITLEPAGE = undef; |
| |
@{$Texi2HTML::THIS_SECTION} = (); |
| |
|
| |
# the reference to these hashes may be used before this point (for example |
| |
# see makeinfo.init), so they should be kept as is and the values undef |
| |
# but the key should not be deleted because the ref is on the key. |
| |
foreach my $hash (\%Texi2HTML::HREF, \%Texi2HTML::NAME, \%Texi2HTML::NODE, |
| |
\%Texi2HTML::NO_TEXI, \%Texi2HTML::SIMPLE_TEXT) |
| |
{ |
| |
foreach my $key (keys(%$hash)) |
| |
{ |
| |
$hash->{$key} = undef; |
| |
} |
| |
} |
| |
|
| |
%region_lines = (); |
| |
%region_line_nrs = (); |
| |
foreach my $region (@special_regions) |
| |
{ |
| |
$region_lines{$region} = []; |
| |
$region_line_nrs{$region} = []; |
| |
} |
| |
|
| |
@created_directories = (); |
| |
|
| |
$docu_dir = undef; # directory of the document |
| |
$docu_name = undef; # basename of the document |
| |
$docu_rdir = undef; # directory for the output |
| |
$docu_toc = undef; # document's table of contents |
| |
$docu_stoc = undef; # document's short toc |
| |
$docu_foot = undef; # document's footnotes |
| |
$docu_about = undef; # about this document |
| |
$docu_top = undef; # document top |
| |
$docu_doc = undef; # document (or document top of split) |
| |
$docu_frame = undef; # main frame file |
| |
$docu_toc_frame = undef; # toc frame file |
| |
$path_to_working_dir = undef; # relative path leading to the working |
| |
# directory from the document directory |
| |
$docu_doc_file = undef; |
| |
$docu_toc_file = undef; |
| |
$docu_stoc_file = undef; |
| |
$docu_foot_file = undef; |
| |
$docu_about_file = undef; |
| |
$docu_top_file = undef; |
| |
$docu_frame_file = undef; |
| |
$docu_toc_frame_file = undef; |
| |
|
| |
$global_pass = '0'; |
| |
|
| |
# done before any processing, this is not necessarily |
| |
# the case with command_handler_init |
| |
foreach my $handler(@Texi2HTML::Config::command_handler_setup) |
| |
{ |
| |
&$handler; |
| |
} |
| |
|
| |
if (!$Texi2HTML::Config::USE_SETFILENAME) |
| |
{ |
| |
init_with_file_name ($input_file_base); |
| |
} |
| |
|
| |
# FIXME when to do that? |
| |
($Texi2HTML::THISDOC{'css_import_lines'}, $Texi2HTML::THISDOC{'css_rule_lines'}) |
| |
= collect_all_css_files(); |
| |
|
| |
texinfo_initialization(0); |
| |
|
| |
print STDERR "# reading from $input_file_name\n" if $T2H_VERBOSE; |
| |
|
| |
$macros = undef; # macros. reference on a hash |
| |
%info_enclose = (); # macros defined with definfoenclose |
| |
@floats = (); # floats list |
| |
%floats = (); # floats by style |
| |
%nodes = (); # nodes hash. The key is the texi node name |
| |
%cross_reference_nodes = (); # normalized node names arrays |
| |
|
| |
|
| |
$global_pass = '1'; |
| |
my ($texi_lines, $first_texi_lines, $lines_numbers) |
| |
= pass_texi($input_file_name); |
| |
|
| |
if ($Texi2HTML::Config::USE_SETFILENAME and !defined($docu_name)) |
| |
{ |
| |
init_with_file_name ($input_file_base); |
| |
} |
| |
|
| |
$global_pass = '1 expand macros'; |
| |
Texi2HTML::Config::t2h_default_set_out_encoding(); |
| |
dump_texi($texi_lines, 'texi', $lines_numbers) if ($T2H_DEBUG & $DEBUG_TEXI); |
| |
if (defined($Texi2HTML::Config::MACRO_EXPAND)) |
| |
{ |
| |
my @texi_lines = (@$first_texi_lines, @$texi_lines); |
| |
dump_texi(\@texi_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND); |
| |
} |
| |
|
| |
%content_element = (); |
| |
foreach my $command('contents', 'shortcontents') |
| |
{ |
| |
$all_content_elements{$command} = []; |
| |
foreach my $key (keys(%{$reference_content_element{$command}})) |
| |
{ |
| |
$content_element{$command}->{$key} = $reference_content_element{$command}->{$key}; |
| |
} |
| |
} |
| |
|
| |
%sec2level = %reference_sec2level; |
| |
|
| |
$element_before_anything = |
| |
{ |
| |
'before_anything' => 1, |
| |
'place' => [], |
| |
'texi' => 'VIRTUAL ELEMENT BEFORE ANYTHING', |
| |
}; |
| |
|
| |
|
| |
$footnote_element = |
| |
{ |
| |
'id' => $Texi2HTML::Config::misc_pages_targets{'Footnotes'}, |
| |
'target' => $Texi2HTML::Config::misc_pages_targets{'Footnotes'}, |
| |
'file' => $docu_foot, |
| |
'footnote' => 1, |
| |
'place' => [], |
| |
}; |
| |
|
| |
%region_initial_state = (); |
| |
foreach my $region (@special_regions) |
| |
{ |
| |
$region_initial_state{$region} = { }; |
| |
} |
| |
|
| |
# to determine if a command has to be processed the following are interesting |
| |
# (and can be faked): |
| |
# 'region': the name of the special region we are processing |
| |
# 'region_pass': the number of passes in that specific region (both outside |
| |
# of the main document, and in the main document) |
| |
# 'multiple_pass': the number of pass in the formatting of the region in the |
| |
# main document |
| |
# It is set to 0 the first time the region is seen, before |
| |
# it will be -1, for example when doing the |
| |
# copying_comment, the titlepage... before starting with |
| |
# the document itself. |
| |
# 'outside_document': set to 1 if outside of the main document formatting |
| |
|
| |
foreach my $key (keys(%region_initial_state)) |
| |
{ |
| |
$region_initial_state{$key}->{'multiple_pass'} = -1; |
| |
$region_initial_state{$key}->{'region_pass'} = 0; |
| |
$region_initial_state{$key}->{'num_head'} = 0; |
| |
$region_initial_state{$key}->{'foot_num'} = 0; |
| |
$region_initial_state{$key}->{'relative_foot_num'} = 0; |
| |
$region_initial_state{$key}->{'region'} = $key; |
| |
} |
| |
|
| |
@opened_files = (); # all the files opened by the program to remove |
| |
# them if FORCE is not set and an error occured |
| |
|
| |
texinfo_initialization(1); |
| |
|
| |
|
| |
$no_element_associated_place = []; |
| |
|
| |
$document_idx_num = 0; |
| |
$document_sec_num = 0; |
| |
$document_head_num = 0; |
| |
$document_anchor_num = 0; |
| |
|
| |
@nodes_list = (); # nodes in document reading order |
| |
# each member is a reference on a hash |
| |
@sections_list = (); # sections in reading order |
| |
# each member is a reference on a hash |
| |
@all_elements = (); # sectioning elements (nodes and sections) |
| |
# in reading order. Each member is a reference |
| |
# on a hash which also appears in %nodes, |
| |
# @sections_list @nodes_list, @elements_list |
| |
@elements_list = (); # all the resulting elements in document order |
| |
%sections = (); # sections hash. The key is the section number |
| |
%headings = (); # headings hash. The key is the heading number |
| |
$section_top = undef; # @top section |
| |
$element_top = undef; # Top element |
| |
$node_top = undef; # Top node |
| |
$node_first = undef; # First node |
| |
$element_index = undef; # element with first index |
| |
$element_chapter_index = undef; # chapter with first index |
| |
$element_first = undef; # first element |
| |
$element_last = undef; # last element |
| |
%special_commands = (); # hash for the commands specially handled |
| |
# by the user |
| |
|
| |
@index_labels = (); # array corresponding with @?index commands |
| |
# constructed during pass_texi, used to |
| |
# put labels in pass_text |
| |
# right now it is only used for debugging |
| |
# purposes. |
| |
@unknown_index_index_entries = (); # holds index entries not associated |
| |
# with any index |
| |
%{$Texi2HTML::THISDOC{'index_entries_array'}} = (); # holds the index |
| |
# entries in order of appearance in the document |
| |
# for each index name. |
| |
%{$Texi2HTML::THISDOC{'index_letters_array'}} = (); # holds the sorted |
| |
# index letters for each index name. The sorted |
| |
# letters hold the sorted index entries |
| |
|
| |
$global_pass = 2; |
| |
my ($doc_lines, $doc_numbers) = pass_structure($texi_lines, $lines_numbers); |
| |
|
| |
foreach my $handler(@Texi2HTML::Config::command_handler_names) |
| |
{ |
| |
&$handler; |
| |
} |
| |
|
| |
if ($T2H_DEBUG & $DEBUG_TEXI) |
| |
{ |
| |
dump_texi($doc_lines, 'first', $doc_numbers); |
| |
if (defined($Texi2HTML::Config::MACRO_EXPAND and $Texi2HTML::Config::DUMP_TEXI)) |
| |
{ |
| |
my @all_doc_lines = (@$first_texi_lines, @$doc_lines); |
| |
#push (@$doc_lines, "\@bye\n"); |
| |
dump_texi(\@all_doc_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND . ".first"); |
| |
} |
| |
} |
| |
next if ($Texi2HTML::Config::DUMP_TEXI); |
| |
|
| |
foreach my $style (keys(%special_commands)) |
| |
{ |
| |
$special_commands{$style}->{'max'} = $special_commands{$style}->{'count'}; |
| |
} |
| |
|
| |
%files = (); # keys are files. This is used to avoid reusing an already |
| |
# used file name |
| |
%printed_indices = (); # value is true for an index name not empty and |
| |
# printed |
| |
$global_pass = '2 prepare indices'; |
| |
prepare_indices(); |
| |
$global_pass = '2 element directions'; |
| |
rearrange_elements(); |
| |
do_names(); |
| |
|
| |
$global_pass = '2-3 user functions'; |
| |
#Texi2HTML::LaTeX2HTML::latex2html(); |
| |
foreach my $handler(@Texi2HTML::Config::command_handler_process) |
| |
{ |
| |
&$handler; |
| |
} |
| |
|
| |
# maybe do that later to have more elements ready? |
| |
&$Texi2HTML::Config::toc_body(\@sections_list); |
| |
|
| |
&$Texi2HTML::Config::css_lines($Texi2HTML::THISDOC{'css_import_lines'}, |
| |
$Texi2HTML::THISDOC{'css_rule_lines'}); |
| |
|
| |
|
| |
$global_head_num = 0; # heading index. it is global for the main doc, |
| |
# and taken from the state if in multiple_pass. |
| |
$global_foot_num = 0; |
| |
$global_relative_foot_num = 0; |
| |
@foot_lines = (); # footnotes |
| |
$copying_comment = ''; # comment constructed from text between |
| |
# @copying and @end copying with licence |
| |
%acronyms_like = (); # acronyms or similar commands associated texts |
| |
# the key are the commands, the values are |
| |
# hash references associating shorthands to |
| |
# texts. |
| |
@states_stack = (); |
| |
|
| |
pass_text($doc_lines, $doc_numbers); |
| |
print STDERR "BUG: " . scalar(@index_labels) . " index entries pending\n" |
| |
if (scalar(@index_labels)); |
| |
foreach my $special (keys(%special_commands)) |
| |
{ |
| |
my $count = $special_commands{$special}->{'count'}; |
| |
if (($count != 0) and $T2H_VERBOSE) |
| |
{ |
| |
document_warn ("$count special \@$special were not processed.\n"); |
| |
} |
| |
} |
| |
if ($Texi2HTML::Config::IDX_SUMMARY) |
| |
{ |
| |
foreach my $entry (keys(%index_names)) |
| |
{ |
| |
do_index_summary_file($entry, $docu_name); |
| |
} |
| |
} |
| |
if (defined($Texi2HTML::Config::INTERNAL_LINKS)) |
| |
{ |
| |
my $FH = open_out($Texi2HTML::Config::INTERNAL_LINKS); |
| |
&$Texi2HTML::Config::internal_links($FH, \@elements_list, $Texi2HTML::THISDOC{'index_letters_array'}); |
| |
close ($FH); |
| |
} |
| |
do_node_files() if ($Texi2HTML::Config::NODE_FILES); |
| |
#l2h_FinishFromHtml() if ($Texi2HTML::Config::L2H); |
| |
#l2h_Finish() if($Texi2HTML::Config::L2H); |
| |
#Texi2HTML::LaTeX2HTML::finish(); |
| |
foreach my $handler(@Texi2HTML::Config::command_handler_finish) |
| |
{ |
| |
&$handler; |
| |
} |
| |
&$Texi2HTML::Config::finish_out(); |
| |
|
| |
print STDERR "# File ($file_number) $input_file_name processed\n" if $T2H_VERBOSE; |
| |
$file_number++; |
| |
} |
| |
print STDERR "# that's all folks\n" if $T2H_VERBOSE; |
| |
exit(0); |
| |
|
| |
|
| ############################################################################## |
############################################################################## |
| |
|
| # These next few lines are legal in both Perl and nroff. |
# These next few lines are legal in both Perl and nroff. |
| |
|
| .00 ; # finish .ig |
.00 ; # finish .ig |
| |
|
| 'di \" finish diversion--previous line must be blank |
'di \" finish diversion--previous line must be blank |
| .nr nl 0-1 \" fake up transition to first page again |
.nr nl 0-1 \" fake up transition to first page again |
| .nr % 0 \" start at page 1 |
.nr % 0 \" start at page 1 |
| '; __END__ ############# From here on it's a standard manual page ############ |
'; __END__ ############# From here on it's a standard manual page ############ |
| .TH TEXI2HTML 1 "01/05/98" |
.so /usr/local/man/man1/texi2html.1 |
| .AT 3 |
|
| .SH NAME |
|
| texi2html \- a Texinfo to HTML converter |
|
| .SH SYNOPSIS |
|
| .B texi2html [options] file |
|
| .PP |
|
| .B texi2html -check [-verbose] files |
|
| .SH DESCRIPTION |
|
| .I Texi2html |
|
| converts the given Texinfo file to a set of HTML files. It tries to handle |
|
| most of the Texinfo commands. It creates hypertext links for cross-references, |
|
| footnotes... |
|
| .PP |
|
| It also tries to add links from a reference to its corresponding entry in the |
|
| bibliography (if any). It may also handle a glossary (see the |
|
| .B \-glossary |
|
| option). |
|
| .PP |
|
| .I Texi2html |
|
| creates several files depending on the contents of the Texinfo file and on |
|
| the chosen options (see FILES). |
|
| .PP |
|
| The HTML files created by |
|
| .I texi2html |
|
| are closer to TeX than to Info, that's why |
|
| .I texi2html |
|
| converts @iftex sections and not @ifinfo ones by default. You can reverse |
|
| this with the \-expandinfo option. |
|
| .SH OPTIONS |
|
| .TP 12 |
|
| .B \-check |
|
| Check the given file and give the list of all things that may be Texinfo commands. |
|
| This may be used to check the output of |
|
| .I texi2html |
|
| to find the Texinfo commands that have been left in the HTML file. |
|
| .TP |
|
| .B \-expandinfo |
|
| Expand @ifinfo sections, not @iftex ones. |
|
| .TP |
|
| .B \-glossary |
|
| Use the section named 'Glossary' to build a list of terms and put links in the HTML |
|
| document from each term toward its definition. |
|
| .TP |
|
| .B \-invisible \fIname\fP |
|
| Use \fIname\fP to create invisible destination anchors for index links |
|
| (you can for instance use the invisible.xbm file shipped with this program). |
|
| This is a workaround for a known bug of many WWW browsers, including netscape. |
|
| .TP |
|
| .B \-I \fIdir\fP |
|
| Look also in \fIdir\fP to find included files. |
|
| .TP |
|
| .B \-menu |
|
| Show the Texinfo menus; by default they are ignored. |
|
| .TP |
|
| .B \-monolithic |
|
| Output only one file, including the table of contents and footnotes. |
|
| .TP |
|
| .B \-number |
|
| Number the sections. |
|
| .TP |
|
| .B \-split_chapter |
|
| Split the output into several HTML files (one per main section: |
|
| chapter, appendix...). |
|
| .TP |
|
| .B \-split_node |
|
| Split the output into several HTML files (one per node). |
|
| .TP |
|
| .B \-usage |
|
| Print usage instructions, listing the current available command-line options. |
|
| .TP |
|
| .B \-verbose |
|
| Give a verbose output. Can be used with the |
|
| .B \-check |
|
| option. |
|
| .PP |
|
| .SH FILES |
|
| By default |
|
| .I texi2html |
|
| creates the following files (foo being the name of the Texinfo file): |
|
| .TP 16 |
|
| .B foo_toc.html |
|
| The table of contents. |
|
| .TP |
|
| .B foo.html |
|
| The document's contents. |
|
| .TP |
|
| .B foo_foot.html |
|
| The footnotes (if any). |
|
| .PP |
|
| When used with the |
|
| .B \-split |
|
| option, it creates several files (one per chapter or node), named |
|
| .B foo_n.html |
|
| (n being the indice of the chapter or node), instead of the single |
|
| .B foo.html |
|
| file. |
|
| .PP |
|
| When used with the |
|
| .B \-monolithic |
|
| option, it creates only one file: |
|
| .B foo.html |
|
| .SH VARIABLES |
|
| .I texi2html |
|
| predefines the following variables: \fBhtml\fP, \fBtexi2html\fP. |
|
| .SH ADDITIONAL COMMANDS |
|
| .I texi2html |
|
| implements the following non-Texinfo commands (maybe they are in Texinfo now...): |
|
| .TP 16 |
|
| .B @ifhtml |
|
| This indicates the start of an HTML section, this section will passed through |
|
| without any modification. |
|
| .TP |
|
| .B @end ifhtml |
|
| This indicates the end of an HTML section. |
|
| .SH VERSION |
|
| This is \fItexi2html\fP version 1.56k, 1999-02-20. |
|
| .PP |
|
| The latest version of \fItexi2html\fP can be found in WWW, cf. URLs |
|
| http://wwwinfo.cern.ch/dis/texi2html/ |
|
| .br |
|
| http://texinfo.org/texi2html/ |
|
| .SH AUTHOR |
|
| The main author is Lionel Cons, CERN IT/DIS/OSE, Lionel.Cons@cern.ch. |
|
| Many other people around the net contributed to this program. |
|
| .SH COPYRIGHT |
|
| This program is the intellectual property of the European |
|
| Laboratory for Particle Physics (known as CERN). No guarantee whatsoever is |
|
| provided by CERN. No liability whatsoever is accepted for any loss or damage |
|
| of any kind resulting from any defect or inaccuracy in this information or |
|
| code. |
|
| .PP |
|
| CERN, 1211 Geneva 23, Switzerland |
|
| .SH "SEE ALSO" |
|
| GNU Texinfo Documentation Format, |
|
| HyperText Markup Language (HTML), |
|
| World Wide Web (WWW). |
|
| .SH BUGS |
|
| This program does not understand all Texinfo commands (yet). |
|
| .PP |
|
| TeX specific commands (normally enclosed in @iftex) will be |
|
| passed unmodified. |
|
| .ex |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to texi2html CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / asir-doc