[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[5955] parsetexi update
|
From: |
Gavin D. Smith |
|
Subject: |
[5955] parsetexi update |
|
Date: |
Thu, 11 Dec 2014 16:56:29 +0000 |
Revision: 5955
http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=5955
Author: gavin
Date: 2014-12-11 16:56:28 +0000 (Thu, 11 Dec 2014)
Log Message:
-----------
parsetexi update
Modified Paths:
--------------
trunk/parsetexi/Parsetexi/lib/Parsetexi.pm
trunk/parsetexi/README
Added Paths:
-----------
trunk/parsetexi/TODO
trunk/parsetexi/makeinfo
trunk/parsetexi/texi2any-C.pl
Modified: trunk/parsetexi/Parsetexi/lib/Parsetexi.pm
===================================================================
--- trunk/parsetexi/Parsetexi/lib/Parsetexi.pm 2014-12-10 22:27:36 UTC (rev
5954)
+++ trunk/parsetexi/Parsetexi/lib/Parsetexi.pm 2014-12-11 16:56:28 UTC (rev
5955)
@@ -18,7 +18,17 @@
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
-
+ parser
+ parse_texi_text
+ parse_texi_line
+ parse_texi_file
+ indices_information
+ floats_information
+ internal_references_information
+ labels_information
+ global_commands_information
+ global_informations
+ errors
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
@@ -55,6 +65,124 @@
require XSLoader;
XSLoader::load('Parsetexi', $VERSION);
+# Stub for Texinfo::Parser::parser (line 574)
+sub parser (;$$)
+{
+ # None of these are implemented yet.
+ my $parser = {
+ 'labels' => {},
+ 'floats' => {},
+ 'internal_references' => [],
+ 'extra' => {},
+ 'info' => {},
+ 'index_names' => {},
+ 'merged_indices' => {},
+ };
+
+ bless $parser;
+
+ return $parser;
+}
+
+use Data::Dumper;
+
+sub _add_parents ($);
+
+sub _add_parents ($) {
+ my $elt = shift;
+
+ if (exists $elt->{'contents'}) {
+ foreach my $child (@{$elt->{'contents'}}) {
+ $child->{'parent'} = $elt;
+ _add_parents ($child);
+ }
+ }
+
+ if (exists $elt->{'args'}) {
+ foreach my $child (@{$elt->{'args'}}) {
+ $child->{'parent'} = $elt;
+ _add_parents ($child);
+ }
+ }
+}
+
+# Stub for Texinfo::Parser::parse_texi_file (line 835)
+sub parse_texi_file ($$)
+{
+ my $self = shift;
+ my $file_name = shift;
+ my $tree_stream;
+
+ #print "Getting tree...\n";
+
+ # Note we are calling a separate executable instead of using the code
+ # compliled into Parsetexi.pm as a library. We should add functions
+ # to Parsetexi.pm to get the tree without doing this.
+ $tree_stream = qx(./parsetexi $file_name 2>/dev/null);
+
+ my $VAR1;
+ #print "Reading tree...\n";
+ eval $tree_stream;
+ #print "Read tree.\n";
+
+ #print "Adjusting tree...\n";
+ _add_parents ($VAR1);
+ #print "Adjusted tree.\n";
+
+ #$Data::Dumper::Purity = 1;
+ #$Data::Dumper::Indent = 1;
+ #my $bar = Data::Dumper->Dump([$VAR1], ['$VAR1']);
+ #print $bar;
+
+ return $VAR1;
+}
+
+# Public interfaces of Texinfo::Parser (starting line 942)
+sub indices_information($)
+{
+ my $self = shift;
+ return ($self->{'index_names'}, $self->{'merged_indices'});
+}
+
+sub floats_information($)
+{
+ my $self = shift;
+ return $self->{'floats'};
+}
+
+sub internal_references_information($)
+{
+ my $self = shift;
+ return $self->{'internal_references'};
+}
+
+sub global_commands_information($)
+{
+ my $self = shift;
+ return $self->{'extra'};
+}
+
+sub global_informations($)
+{
+ my $self = shift;
+ return $self->{'info'};
+}
+
+sub labels_information($)
+{
+ my $self = shift;
+ return $self->{'labels'};
+}
+
+################ Stubs for Texinfo::Report ########################
+#
+
+# Report.pm:54
+sub errors ($)
+{
+ return ([], 0);
+}
+
# Preloaded methods go here.
# Autoload methods go after =cut, and are processed by the autosplit program.
Modified: trunk/parsetexi/README
===================================================================
--- trunk/parsetexi/README 2014-12-10 22:27:36 UTC (rev 5954)
+++ trunk/parsetexi/README 2014-12-11 16:56:28 UTC (rev 5955)
@@ -1,3 +1,8 @@
This is an experimental program intended to replicate the functionality
in tp/Parser.pm. How it will be integrated into makeinfo is still
unknown.
+
+makeinfo in this directory wraps texi2any-C.pl, which is tp/texi2any.pl
+changed to use the module in the Parsetexi subdirectory instead of
+Texinfo::Parser. At the current state of development it has not
+successfully processed any Texinfo input file.
Added: trunk/parsetexi/TODO
===================================================================
--- trunk/parsetexi/TODO (rev 0)
+++ trunk/parsetexi/TODO 2014-12-11 16:56:28 UTC (rev 5955)
@@ -0,0 +1,9 @@
+* Add a way to serialize extra keys, indices_information, etc. This will
+allow integration with makeinfo, "hello world", which will then greatly
+ease testing that the produced parse tree is what the backends require.
+
+* Convert makeinfo backends to use a Perl stub for the C API. The C parser
+will not be used at this point.
+
+* Substitute the XS API implementation for the Perl API when the C parser is
+good enough.
Added: trunk/parsetexi/makeinfo
===================================================================
--- trunk/parsetexi/makeinfo (rev 0)
+++ trunk/parsetexi/makeinfo 2014-12-11 16:56:28 UTC (rev 5955)
@@ -0,0 +1,3 @@
+#! /usr/bin/env bash
+
+PERL5LIB=../tp:../tp/maintain/lib/libintl-perl/lib:../tp/maintain/lib/Text-Unidecode/lib/:../tp/maintain/lib/Unicode-EastAsianWidth/lib:./Parsetexi/lib:./Parsetexi/blib/lib:./Parsetexi/blib/arch/auto/Parsetexi
./texi2any-C.pl "$@"
Property changes on: trunk/parsetexi/makeinfo
___________________________________________________________________
Added: svn:executable
+ *
Added: trunk/parsetexi/texi2any-C.pl
===================================================================
--- trunk/parsetexi/texi2any-C.pl (rev 0)
+++ trunk/parsetexi/texi2any-C.pl 2014-12-11 16:56:28 UTC (rev 5955)
@@ -0,0 +1,1431 @@
+#! /usr/bin/env perl
+
+# texi2any: Texinfo converter.
+#
+# Copyright 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
+#
+# 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 3 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, see <http://www.gnu.org/licenses/>.
+#
+# Original author: Patrice Dumas <address@hidden>
+# Parts (also from Patrice Dumas) come from texi2html.pl or texi2html.init.
+
+# for POSIX::setlocale and File::Spec
+require 5.00405;
+
+use strict;
+
+# for file names portability
+use File::Spec;
+# to determine the path separator and null file
+use Config;
+# for dirname and fileparse
+use File::Basename;
+#use Cwd;
+use Getopt::Long qw(GetOptions);
+# for carp
+#use Carp;
+
+Getopt::Long::Configure("gnu_getopt");
+
+# This big BEGIN block deals with finding modules and
+# some dependencies that we ship
+# * in source or
+# * installed or
+# * installed relative to the script
+BEGIN
+{
+ # emulate -w
+ $^W = 1;
+ my ($real_command_name, $command_directory, $command_suffix)
+ = fileparse($0, '.pl');
+
+ my $datadir = '@datadir@';
+ my $package = '@PACKAGE@';
+ my $updir = File::Spec->updir();
+
+ my $texinfolibdir;
+ my $lib_dir;
+
+ # in-source run
+ if (($command_suffix eq '.pl' and !(defined($ENV{'TEXINFO_DEV_SOURCE'})
+ and $ENV{'TEXINFO_DEV_SOURCE'} eq 0)) or $ENV{'TEXINFO_DEV_SOURCE'}) {
+ if (defined($ENV{'top_srcdir'})) {
+ $texinfolibdir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+ } else {
+ $texinfolibdir = $command_directory;
+ }
+ $lib_dir = File::Spec->catdir($texinfolibdir, 'maintain');
+ unshift @INC, $texinfolibdir;
+ } elsif ($datadir ne '@' .'datadir@' and $package ne '@' . 'PACKAGE@'
+ and $datadir ne '') {
+ $texinfolibdir = File::Spec->catdir($datadir, $package);
+ # try to make package relocatable, will only work if standard relative
paths
+ # are used
+ if (! -f File::Spec->catfile($texinfolibdir, 'Texinfo', 'Parser.pm')
+ and -f File::Spec->catfile($command_directory, $updir, 'share',
+ 'texinfo', 'Texinfo', 'Parser.pm')) {
+ $texinfolibdir = File::Spec->catdir($command_directory, $updir,
+ 'share', 'texinfo');
+ }
+ $lib_dir = $texinfolibdir;
+ #unshift @INC, $texinfolibdir;
+ # the directory where modules are searched for is placed last
+ # in @INC, as we do not want to take precedence over perl -I
+ # arguments. It unfortunatly means that system directories are
+ # searched for before the installation directories. This could
+ # cause trouble if the modules are separately installed.
+ push @INC, $texinfolibdir;
+ }
+
+ # '@USE_EXTERNAL_LIBINTL @ and similar are substituted in the
+ # makefile using values from configure
+ if (defined($texinfolibdir)) {
+ if ('@USE_EXTERNAL_LIBINTL@' ne 'yes') {
+ unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl',
'lib'));
+ }
+ if ('@USE_EXTERNAL_EASTASIANWIDTH@' ne 'yes') {
+ unshift @INC, (File::Spec->catdir($lib_dir, 'lib',
'Unicode-EastAsianWidth', 'lib'));
+ }
+ if ('@USE_EXTERNAL_UNIDECODE@' ne 'yes') {
+ unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode',
'lib'));
+ }
+ }
+}
+
+use Texinfo::Convert::Texinfo;
+use Texinfo::Parser;
+use Texinfo::Structuring;
+use Texinfo::Convert::Info;
+use Texinfo::Convert::HTML;
+use Texinfo::Convert::TexinfoXML;
+use Texinfo::Convert::TexinfoSXML;
+use Texinfo::Convert::DocBook;
+use Texinfo::Convert::TextContent;
+use Texinfo::Convert::PlainTexinfo;
+use Texinfo::Convert::IXINSXML;
+use DebugTexinfo::DebugCount;
+use DebugTexinfo::DebugTree;
+
+use Parsetexi;
+
+my ($real_command_name, $command_directory, $command_suffix)
+ = fileparse($0, '.pl');
+
+# this associates the command line options to the arrays set during
+# command line parsing.
+my @css_files = ();
+my @css_refs = ();
+my $cmdline_options = { 'CSS_FILES' => address@hidden,
+ 'CSS_REFS' => address@hidden };
+
+# determine the path separators
+my $path_separator = $Config{'path_sep'};
+$path_separator = ':' if (!defined($path_separator));
+my $quoted_path_separator = quotemeta($path_separator);
+
+# Paths and file names
+my $curdir = File::Spec->curdir();
+my $updir = File::Spec->updir();
+
+# set by configure, prefix for the sysconfdir and so on
+# This could be used in the eval
+my $prefix = '@prefix@';
+my $datarootdir;
+my $sysconfdir;
+my $pkgdatadir;
+my $datadir;
+
+my $fallback_prefix = File::Spec->catdir(File::Spec->rootdir(), 'usr',
'local');
+
+# 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 ('@sysconfdir@' ne '@' . 'sysconfdir@') {
+ $sysconfdir = eval '"@sysconfdir@"';
+} else {
+ $sysconfdir = File::Spec->catdir($fallback_prefix, 'etc');
+}
+
+if ('@datarootdir@' ne '@' . 'datarootdir@') {
+ $datarootdir = eval '"@datarootdir@"';
+} else {
+ $datarootdir = File::Spec->catdir($fallback_prefix, 'share');
+}
+
+if ('@datadir@' ne '@' . 'datadir@' and '@PACKAGE@' ne '@' . 'PACKAGE@') {
+ $datadir = eval '"@datadir@"';
+ my $package = '@PACKAGE@';
+ $pkgdatadir = File::Spec->catdir($datadir, $package);
+} else {
+ $datadir = File::Spec->catdir($fallback_prefix, 'share');
+ $pkgdatadir = File::Spec->catdir($datadir, 'texinfo');
+}
+
+# work-around in case libintl-perl do not do it itself
+# see
http://www.gnu.org/software/gettext/manual/html_node/The-LANGUAGE-variable.html#The-LANGUAGE-variable
+
+if ((defined($ENV{"LC_ALL"}) and $ENV{"LC_ALL"} =~ /^(C|POSIX)$/)
+ or (defined($ENV{"LANG"}) and $ENV{"LANG"} =~ /^(C|POSIX)$/)) {
+ delete $ENV{"LANGUAGE"} if defined($ENV{"LANGUAGE"});
+}
+
+
+#my $messages_textdomain = 'texinfo';
+my $messages_textdomain = '@PACKAGE@';
+$messages_textdomain = 'texinfo' if ($messages_textdomain eq '@'.'PACKAGE@');
+my $strings_textdomain = '@PACKAGE@' . '_document';
+$strings_textdomain = 'texinfo_document'
+ if ($strings_textdomain eq '@'.'PACKAGE@' . '_document');
+
+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);
+}
+
+my $srcdir;
+if (defined($ENV{'top_srcdir'})) {
+ $srcdir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+} else {
+ $srcdir = $command_directory;
+}
+
+my $libsrcdir = File::Spec->catdir($srcdir, 'maintain');
+
+
+# we want a reliable way to switch locale, so we don't use the system
+# gettext.
+Locale::Messages->select_package('gettext_pp');
+
+#my @search_locale_dirs = ("$datadir/locale", (map $_ . '/LocaleData', @INC),
+# qw (/usr/share/locale /usr/local/share/locale));
+
+if (($command_suffix eq '.pl' and !(defined($ENV{'TEXINFO_DEV_SOURCE'})
+ and $ENV{'TEXINFO_DEV_SOURCE'} eq 0)) or $ENV{'TEXINFO_DEV_SOURCE'}) {
+ # in case of build from the source directory, out of source build,
+ # this helps to locate the locales.
+ my $locales_dir_found = 0;
+ foreach my $locales_dir (
+ File::Spec->catdir($libsrcdir, $updir, 'LocaleData'),
+ File::Spec->catdir($curdir, 'LocaleData'),
+ File::Spec->catdir($updir, $updir, $updir, 'tp', 'LocaleData'),
+ File::Spec->catdir($updir, $updir, 'tp', 'LocaleData')) {
+ if (-d $locales_dir) {
+ Locale::Messages::bindtextdomain ($strings_textdomain, $locales_dir);
+ # the messages in this domain are not regenerated automatically,
+ # only when calling ./maintain/regenerate_perl_module_files.sh
+ Locale::Messages::bindtextdomain ($messages_textdomain, $locales_dir);
+ $locales_dir_found = 1;
+ last;
+ }
+ }
+ if (!$locales_dir_found) {
+ warn "Locales dir for document strings not found\n";
+ }
+} else {
+ Locale::Messages::bindtextdomain ($strings_textdomain,
+ File::Spec->catdir($datadir, 'locale'));
+ Locale::Messages::bindtextdomain ($messages_textdomain,
+ File::Spec->catdir($datadir, 'locale'));
+}
+
+#Locale::Messages::bindtextdomain ($messages_textdomain,
+# File::Spec->catdir($datadir, 'locale'));
+
+
+# Version setting is complicated, because we cope with
+# * script with configure values substituted or not
+# * script shipped as part of texinfo or as a standalone perl module
+
+# When shipped as a perl modules, $hardcoded_version is set to undef here
+# by a sed one liner. The consequence is that configure.ac is not used
+# to retrieve the version number.
+# Otherwise this is only used as a safety value, and should never be used
+# in practice as a regexp extracts the version from configure.ac.
+my $hardcoded_version = "0.00-hardcoded";
+# Version set in configure.ac
+my $configured_version = '@PACKAGE_VERSION@';
+if ($configured_version eq '@' . 'PACKAGE_VERSION@') {
+ # if not configured, and $hardcoded_version is set search for the version
+ # in configure.ac
+ if (defined($hardcoded_version)) {
+ if (open (CONFIGURE,
+ "< ".File::Spec->catfile($srcdir, $updir, 'configure.ac'))) {
+ while (<CONFIGURE>) {
+ if (/^AC_INIT\(\[[^\]]+\]\s*,\s*\[([^\]]+)\]\s*,/) {
+ $configured_version = "$1+dev"; # +dev to distinguish from installed
+ last;
+ }
+ }
+ close (CONFIGURE);
+ }
+ # This should never be used, but is a safety value
+ $configured_version = $hardcoded_version if
(!defined($configured_version));
+ } else {
+ # used in the standalone perl module, as $hardcoded_version is undef
+ # and it should never be configured in that setup
+ $configured_version = $Texinfo::Parser::VERSION;
+ }
+}
+my $configured_package = '@PACKAGE@';
+$configured_package = 'Texinfo' if ($configured_package eq '@' . 'PACKAGE@');
+my $configured_name = '@PACKAGE_NAME@';
+$configured_name = $configured_package
+ if ($configured_name eq '@' .'PACKAGE_NAME@');
+my $configured_name_version = "$configured_name $configured_version";
+my $configured_url = '@PACKAGE_URL@';
+$configured_url = 'http://www.gnu.org/software/texinfo/'
+ if ($configured_url eq '@' .'PACKAGE_URL@');
+
+my $texinfo_dtd_version = '@TEXINFO_DTD_VERSION@';
+# $hardcoded_version is undef for a standalone perl module
+if ($texinfo_dtd_version eq '@' . 'TEXINFO_DTD_VERSION@') {
+ $texinfo_dtd_version = undef;
+ if (defined($hardcoded_version)) {
+ if (open (CONFIGURE,
+ "< ".File::Spec->catfile($srcdir, $updir, 'configure.ac'))) {
+ while (<CONFIGURE>) {
+ if (/^TEXINFO_DTD_VERSION=([0-9]\S*)/) {
+ $texinfo_dtd_version = "$1";
+ last;
+ }
+ }
+ close (CONFIGURE);
+ }
+ }
+}
+# Used in case it is not hardcoded in configure and for standalone perl module
+$texinfo_dtd_version = $configured_version
+ if (!defined($texinfo_dtd_version));
+
+# defaults for options relevant in the main program, not undef, and also
+# defaults for all the converters.
+# Other relevant options (undef) are NO_WARN FORCE OUTFILE
+# Others are set in the converters (SHOW_MENU).
+my $converter_default_options = {
+ 'ERROR_LIMIT' => 100,
+ 'TEXI2DVI' => 'texi2dvi',
+ 'PACKAGE_VERSION' => $configured_version,
+ 'PACKAGE' => $configured_package,
+ 'PACKAGE_NAME' => $configured_name,
+ 'PACKAGE_AND_VERSION' => $configured_name_version,
+ 'PACKAGE_URL' => $configured_url,
+ 'PROGRAM' => $real_command_name,
+ 'TEXINFO_DTD_VERSION' => $texinfo_dtd_version,
+};
+
+# determine configuration directories.
+
+my $conf_file_name = 'Config' ;
+my $texinfo_htmlxref = 'htmlxref.cnf';
+
+# directories for texinfo configuration files
+my @language_config_dirs = File::Spec->catdir($curdir, '.texinfo');
+push @language_config_dirs, File::Spec->catdir($ENV{'HOME'}, '.texinfo')
+ if (defined($ENV{'HOME'}));
+push @language_config_dirs, File::Spec->catdir($sysconfdir, 'texinfo')
+ if (defined($sysconfdir));
+push @language_config_dirs, File::Spec->catdir($datadir, 'texinfo')
+ if (defined($datadir));
+my @texinfo_config_dirs = ($curdir, @language_config_dirs);
+
+my @program_config_dirs;
+my @program_init_dirs;
+
+my $program_name = 'texi2any';
address@hidden = ($curdir, File::Spec->catdir($curdir, ".$program_name"));
+push @program_config_dirs, File::Spec->catdir($ENV{'HOME'}, ".$program_name")
+ if (defined($ENV{'HOME'}));
+push @program_config_dirs, File::Spec->catdir($sysconfdir, $program_name)
+ if (defined($sysconfdir));
+push @program_config_dirs, File::Spec->catdir($datadir, $program_name)
+ if (defined($datadir));
+
address@hidden = @program_config_dirs;
+foreach my $texinfo_config_dir (@language_config_dirs) {
+ push @program_init_dirs, File::Spec->catdir($texinfo_config_dir, 'init');
+}
+
+# Namespace for configuration
+{
+package Texinfo::Config;
+
+#use Carp;
+
+# passed from main program
+my $cmdline_options;
+my $default_options;
+# used in main program
+our $options = {};
+
+sub _load_config($$) {
+ $default_options = shift;
+ $cmdline_options = shift;
+ #print STDERR "cmdline_options: ".join('|',keys(%$cmdline_options))."\n";
+}
+
+sub _load_init_file($) {
+ my $file = shift;
+ eval { require($file) ;};
+ my $e = $@;
+ if ($e ne '') {
+ main::document_warn(sprintf(main::__("error loading %s: %s\n"),
+ $file, $e));
+ }
+}
+
+# FIXME: maybe use an opaque return status that can be used to retrieve
+# an error message?
+sub set_from_init_file($$) {
+ my $var = shift;
+ my $value = shift;
+ if (!Texinfo::Common::valid_option($var)) {
+ # carp may be better, but infortunately, it points to the routine that
+ # loads the file, and not to the init file.
+ main::document_warn(sprintf(main::__("%s: unknown variable %s"),
+ 'set_from_init_file', $var));
+ return 0;
+ } elsif (Texinfo::Common::obsolete_option($var)) {
+ main::document_warn(sprintf(main::__("%s: obsolete variable %s\n"),
+ 'set_from_init_file', $var));
+ }
+ return 0 if (defined($cmdline_options->{$var}));
+ delete $default_options->{$var};
+ $options->{$var} = $value;
+ return 1;
+}
+
+sub set_from_cmdline($$) {
+ my $var = shift;
+ my $value = shift;
+ delete $options->{$var};
+ delete $default_options->{$var};
+ if (!Texinfo::Common::valid_option($var)) {
+ main::document_warn(sprintf(main::__("%s: unknown variable %s\n"),
+ 'set_from_cmdline', $var));
+ return 0;
+ } elsif (Texinfo::Common::obsolete_option($var)) {
+ main::document_warn(sprintf(main::__("obsolete variable %s\n"),
+ 'set_from_cmdline', $var));
+ }
+ $cmdline_options->{$var} = $value;
+ return 1;
+}
+
+# This also could get and set some @-command results.
+# FIXME But it does not take into account what happens during conversion,
+# for that something like $converter->get_conf(...) has to be used.
+sub get_conf($) {
+ my $var = shift;
+ if (exists($cmdline_options->{$var})) {
+ return $cmdline_options->{$var};
+ } elsif (exists($options->{$var})) {
+ return $options->{$var};
+ } elsif (exists($default_options->{$var})) {
+ return $default_options->{$var};
+ } else {
+ return undef;
+ }
+}
+
+}
+# back in main program namespace
+
+# file: file name to locate. It can be a file path.
+# directories: a reference on a array containing a list of directories to
+# search the file in.
+# all_files: if true collect all the files with that name, otherwise stop
+# at first match.
+sub locate_init_file($$$)
+{
+ my $file = shift;
+ my $directories = shift;
+ my $all_files = shift;
+
+ if (File::Spec->file_name_is_absolute($file)) {
+ return $file if (-e $file and -r $file);
+ } else {
+ my @files;
+ foreach my $dir (@$directories) {
+ next unless (-d $dir);
+ my $possible_file = File::Spec->catfile($dir, $file);
+ if ($all_files) {
+ push (@files, $possible_file)
+ if (-e $possible_file and -r $possible_file);
+ } else {
+ return $possible_file if (-e $possible_file and -r $possible_file);
+ }
+ }
+ return @files if ($all_files);
+ }
+ return undef;
+}
+
+sub locate_and_load_init_file($$)
+{
+ my $filename = shift;
+ my $directories = shift;
+
+ my $file = locate_init_file($filename, $directories, 0);
+ if (defined($file)) {
+ Texinfo::Config::_load_init_file($file);
+ } else {
+ document_warn(sprintf(__("could not read init file %s"), $filename));
+ }
+}
+
+# read initialization files
+foreach my $file (locate_init_file($conf_file_name,
+ [ reverse(@program_config_dirs) ], 1)) {
+ Texinfo::Config::_load_init_file($file);
+}
+
+sub set_from_cmdline($$) {
+ return &Texinfo::Config::set_from_cmdline(@_);
+}
+
+sub set_from_init_file($$) {
+ return &Texinfo::Config::set_from_init_file(@_);
+}
+
+sub get_conf($) {
+ return &Texinfo::Config::get_conf(@_);
+}
+
+my @input_file_suffixes = ('.txi','.texinfo','.texi','.txinfo','');
+
+my @texi2dvi_args = ();
+
+my $format = 'info';
+# this is the format associated with the output format, which is replaced
+# when the output format changes. It may also be removed if there is the
+# corresponding --no-ifformat.
+my $default_expanded_format = [ $format ];
+my @conf_dirs = ();
+my @include_dirs = ();
+my @prepend_dirs = ();
+
+# options for all the files
+my $parser_default_options = {'expanded_formats' => [],
+ 'values' => {'txicommandconditionals' => 1},
+ 'gettext' => \&__,
+ 'pgettext' => \&__p,};
+
+Texinfo::Config::_load_config($converter_default_options, $cmdline_options);
+
+sub set_expansion($$) {
+ my $region = shift;
+ my $set = shift;
+ $set = 1 if (!defined($set));
+ if ($set) {
+ push @{$parser_default_options->{'expanded_formats'}}, $region
+ unless (grep {$_ eq $region}
@{$parser_default_options->{'expanded_formats'}});
+ } else {
+ @{$parser_default_options->{'expanded_formats'}} =
+ grep {$_ ne $region} @{$parser_default_options->{'expanded_formats'}};
+ @{$default_expanded_format}
+ = grep {$_ ne $region} @{$default_expanded_format};
+ }
+}
+
+my $format_from_command_line = 0;
+
+my %format_command_line_names = (
+ 'xml' => 'texinfoxml',
+);
+
+my %formats_table = (
+ 'info' => {
+ 'nodes_tree' => 1,
+ 'floats' => 1,
+ 'converter' => sub{Texinfo::Convert::Info->converter(@_)},
+ },
+ 'plaintext' => {
+ 'nodes_tree' => 1,
+ 'floats' => 1,
+ 'split' => 1,
+ 'converter' => sub{Texinfo::Convert::Plaintext->converter(@_)},
+ },
+ 'html' => {
+ 'nodes_tree' => 1,
+ 'floats' => 1,
+ 'split' => 1,
+ 'internal_links' => 1,
+ 'simple_menu' => 1,
+ 'move_index_entries_after_items' => 1,
+ 'no_warn_non_empty_parts' => 1,
+ 'converter' => sub{Texinfo::Convert::HTML->converter(@_)},
+ },
+ 'texinfoxml' => {
+ 'nodes_tree' => 1,
+ 'converter' => sub{Texinfo::Convert::TexinfoXML->converter(@_)},
+ 'floats' => 1,
+ },
+ 'texinfosxml' => {
+ 'nodes_tree' => 1,
+ 'converter' => sub{Texinfo::Convert::TexinfoSXML->converter(@_)},
+ 'floats' => 1,
+ },
+ 'ixinsxml' => {
+ 'nodes_tree' => 1,
+ 'converter' => sub{Texinfo::Convert::IXINSXML->converter(@_)},
+ },
+ 'docbook' => {
+ 'move_index_entries_after_items' => 1,
+ 'no_warn_non_empty_parts' => 1,
+ 'converter' => sub{Texinfo::Convert::DocBook->converter(@_)},
+ },
+ 'pdf' => {
+ 'texi2dvi_format' => 1,
+ },
+ 'ps' => {
+ 'texi2dvi_format' => 1,
+ },
+ 'dvi' => {
+ 'texi2dvi_format' => 1,
+ },
+ 'dvipdf' => {
+ 'texi2dvi_format' => 1,
+ },
+ 'debugcount' => {
+ 'nodes_tree' => 1,
+ 'floats' => 1,
+ 'converter' => sub{DebugTexinfo::DebugCount->converter(@_)},
+ },
+ 'debugtree' => {
+ 'split' => 1,
+ 'converter' => sub{DebugTexinfo::DebugTree->converter(@_)},
+ },
+ 'textcontent' => {
+ 'converter' => sub{Texinfo::Convert::TextContent->converter(@_)},
+ },
+ 'rawtext' => {
+ 'converter' => sub{Texinfo::Convert::Text->converter(@_)},
+ },
+ 'plaintexinfo' => {
+ 'converter' => sub{Texinfo::Convert::PlainTexinfo->converter(@_)},
+ },
+ 'parse' => {
+ },
+ 'structure' => {
+ 'nodes_tree' => 1,
+ 'floats' => 1,
+ 'split' => 1,
+ },
+);
+
+my $call_texi2dvi = 0;
+
+# previous_format should be in argument if there is a possibility of error.
+# as a fallback, the $format global variable is used.
+sub set_format($;$$)
+{
+ my $set_format = shift;
+ my $previous_format = shift;
+ $previous_format = $format if (!defined($previous_format));
+ my $do_not_override_command_line = shift;
+
+ my $new_format;
+ if ($format_command_line_names{$set_format}) {
+ $new_format = $format_command_line_names{$set_format};
+ } else {
+ $new_format = $set_format;
+ }
+ my $expanded_format = $set_format;
+ if (!$formats_table{$new_format}) {
+ document_warn(sprintf(__("ignoring unrecognized TEXINFO_OUTPUT_FORMAT
value `%s'\n"),
+ $new_format));
+ $new_format = $previous_format;
+ } else {
+ if ($format_from_command_line and $do_not_override_command_line) {
+ $new_format = $previous_format;
+ } else {
+ if ($formats_table{$new_format}->{'texi2dvi_format'}) {
+ $call_texi2dvi = 1;
+ push @texi2dvi_args, '--'.$new_format;
+ $expanded_format = 'tex';
+ }
+ if ($Texinfo::Common::texinfo_output_formats{$expanded_format}) {
+ if ($expanded_format eq 'plaintext') {
+ $default_expanded_format = [$expanded_format, 'info']
+ } else {
+ $default_expanded_format = [$expanded_format]
+ }
+ }
+ $format_from_command_line = 1
+ unless ($do_not_override_command_line);
+ }
+ }
+ return $new_format;
+}
+
+sub set_global_format($)
+{
+ my $set_format = shift;
+ $format = set_format($set_format);
+}
+
+sub document_warn($) {
+ return if (get_conf('NO_WARN'));
+ my $text = shift;
+ chomp ($text);
+ warn(sprintf(__p("program name: warning: warning_message",
+ "%s: warning: %s\n"), $real_command_name, $text));
+}
+
+sub _exit($$)
+{
+ my $error_count = shift;
+ my $opened_files = shift;
+
+ if ($error_count and $opened_files and !get_conf('FORCE')) {
+ while (@$opened_files) {
+ my $opened_file = shift (@$opened_files);
+ unlink ($opened_file);
+ }
+ }
+ exit (1) if ($error_count and (!get_conf('FORCE')
+ or $error_count > get_conf('ERROR_LIMIT')));
+}
+
+sub handle_errors($$$)
+{
+ my $self = shift;
+ my $error_count = shift;
+ my $opened_files = shift;
+ my ($errors, $new_error_count) = $self->errors();
+ $error_count += $new_error_count if ($new_error_count);
+ foreach my $error_message (@$errors) {
+ warn $error_message->{'error_line'} if ($error_message->{'type'} eq 'error'
+ or !get_conf('NO_WARN'));
+ }
+
+ _exit($error_count, $opened_files);
+ return $error_count;
+}
+
+
+sub _get_converter_default($)
+{
+ my $option = shift;
+ return $Texinfo::Convert::Converter::all_converters_defaults{$option}
+ if
(defined($Texinfo::Convert::Converter::all_converters_defaults{$option}));
+ return undef;
+}
+
+sub makeinfo_help()
+{
+ my $makeinfo_help =
+ __("Usage: makeinfo [OPTION]... TEXINFO-FILE...\n")
+ . __(" or: texi2any [OPTION]... TEXINFO-FILE...\n")
+."\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:
+ --document-language=STR locale to use in translating Texinfo keywords
+ for the output document (default C).
+ --error-limit=NUM quit after NUM errors (default %d).
+ --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).
+ --conf-dir=DIR search also for initialization files in DIR.
+ --init-file=FILE load FILE to modify the default behavior.
+ -c, --set-customization-variable VAR=VAL set customization variable VAR
+ to value VAL.
+ -v, --verbose explain what is being done.
+ --version display version information and exit.\n"),
get_conf('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.
+ --plaintext output plain text rather than Info.
+ --xml output Texinfo XML rather than Info.
+ --dvi, --dvipdf, --ps, --pdf call texi2dvi to generate given output,
+ after checking validity of TEXINFO-FILE.\n")
+
+."\n";
+ $makeinfo_help .= __("General output options:
+ -E, --macro-expand=FILE output macro-expanded source to FILE,
+ ignoring any address@hidden
+ --no-headers suppress node separators, Node: lines, and menus
+ from Info output (thus producing plain text)
+ or from HTML (thus producing shorter output).
+ Also, if producing Info, write to
+ standard output by default.
+ --no-split suppress any splitting of the output;
+ generate only one output file.
+ --[no-]number-sections output chapter and sectioning numbers;
+ default is on.
+ -o, --output=DEST output to DEST.
+ With split output, create DEST as a directory
+ and put the output files there.
+ With non-split output, if DEST is already
+ a directory or ends with a /,
+ put the output file there.
+ Otherwise, DEST names the output file.\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 address@hidden
+ --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"),
+ _get_converter_default('fillcolumn'),
+ _get_converter_default('paragraphindent'),
+ _get_converter_default('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 CSS reference to URL.
+ --internal-links=FILE produce list of internal links in FILE.
+ --split=SPLIT split at SPLIT, where SPLIT may be `chapter',
+ `section' or `node'.
+ --transliterate-file-names use file names in ASCII transliteration.
+ --node-files produce redirection files for nodes and
+ anchors; default is set only if split.\n")
+."\n";
+ $makeinfo_help .= __("Options for XML and Docbook:
+ --output-indent=VAL does nothing, retained for compatibility.\n")
+."\n";
+ $makeinfo_help .= __("Options for DVI/PS/PDF:
+ --Xopt=OPT pass OPT to texi2dvi; can be repeated.\n")
+."\n";
+ $makeinfo_help .= __("Input file options:
+ --commands-in-node-names does nothing, retained for compatibility.
+ -D VAR define the variable VAR, as with address@hidden
+ -D 'VAR VAL' define VAR to VAL (one shell argument).
+ -I DIR append DIR to the address@hidden search path.
+ -P DIR prepend DIR to the address@hidden search path.
+ -U VAR undefine the variable VAR, as with
address@hidden")
+."\n";
+ $makeinfo_help .= __("Conditional processing in input:
+ --ifdocbook process address@hidden and address@hidden even if
+ not generating Docbook.
+ --ifhtml process address@hidden and address@hidden even if not
generating HTML.
+ --ifinfo process address@hidden even if not generating Info.
+ --ifplaintext process address@hidden even if not generating plain text.
+ --iftex process address@hidden and address@hidden
+ --ifxml process address@hidden and address@hidden
+ --no-ifdocbook do not process address@hidden and address@hidden text.
+ --no-ifhtml do not process address@hidden and address@hidden text.
+ --no-ifinfo do not process address@hidden text.
+ --no-ifplaintext do not process address@hidden text.
+ --no-iftex do not process address@hidden and address@hidden text.
+ --no-ifxml do not process address@hidden and address@hidden text.
+
+ Also, for the --no-ifFORMAT options, do process address@hidden text.\n")
+."\n";
+ $makeinfo_help .= __(" The defaults for the address@hidden conditionals
depend on the output format:
+ if generating Docbook, --ifdocbook is on and the others are off;
+ 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 address@hidden
+ makeinfo --html foo.texi write HTML to address@hidden
+ makeinfo --xml foo.texi write Texinfo XML to address@hidden
+ makeinfo --docbook foo.texi write Docbook XML to address@hidden
+ makeinfo --plaintext foo.texi write plain text to standard output
+ makeinfo --pdf foo.texi write PDF using texi2dvi
+
+ 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 address@hidden,
+general questions and discussion to address@hidden
+Texinfo home page: http://www.gnu.org/software/texinfo/";) ."\n";
+ return $makeinfo_help;
+}
+
+my $Xopt_arg_nr = 0;
+my $latex2html_file = 'latex2html.pm';
+
+my $result_options = Getopt::Long::GetOptions (
+ 'help|h' => sub { print makeinfo_help(); exit 0; },
+ 'version|V' => sub {print "$real_command_name (GNU texinfo)
$configured_version\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"), "2014";
+ exit 0;},
+ 'macro-expand|E=s' => sub { set_from_cmdline('MACRO_EXPAND', $_[1]); },
+ 'ifhtml!' => sub { set_expansion('html', $_[1]); },
+ 'ifinfo!' => sub { set_expansion('info', $_[1]); },
+ 'ifxml!' => sub { set_expansion('xml', $_[1]); },
+ 'ifdocbook!' => sub { set_expansion('docbook', $_[1]); },
+ 'iftex!' => sub { set_expansion('tex', $_[1]); },
+ 'ifplaintext!' => sub { set_expansion('plaintext', $_[1]); },
+ 'I=s' => sub { push @texi2dvi_args, ('-'.$_[0], $_[1]);
+ push @include_dirs, split(/$quoted_path_separator/, $_[1]); },
+ 'conf-dir=s' => sub { push @conf_dirs, split(/$quoted_path_separator/,
$_[1]); },
+ 'P=s' => sub { unshift @prepend_dirs, split(/$quoted_path_separator/, $_[1]);
},
+ 'number-sections!' => sub { set_from_cmdline('NUMBER_SECTIONS', $_[1]); },
+ 'number-footnotes!' => sub { set_from_cmdline('NUMBER_FOOTNOTES', $_[1]); },
+ 'node-files!' => sub { set_from_cmdline('NODE_FILES', $_[1]); },
+ 'footnote-style=s' => sub {
+ if ($_[1] eq 'end' or $_[1] eq 'separate') {
+ set_from_cmdline('footnotestyle', $_[1]);
+ } else {
+ die sprintf(__("%s: --footnote-style arg must be `separate' or `end',
not `%s'.\n"), $real_command_name, $_[1]);
+ }
+ },
+ 'split=s' => sub { my $split = $_[1];
+ my @messages
+ = Texinfo::Common::warn_unknown_split($_[1], \&__);
+ if (@messages) {
+ foreach my $message (@messages) {
+ document_warn($message);
+ }
+ $split = 'node';
+ }
+ set_from_cmdline('SPLIT', $split); },
+ 'no-split' => sub { set_from_cmdline('SPLIT', '');
+ set_from_cmdline('SPLIT_SIZE', undef);},
+ 'headers!' => sub { set_from_cmdline('HEADERS', $_[1]);
+ set_from_cmdline('SHOW_MENU', $_[1]);
+ $format = 'plaintext' if (!$_[1] and $format eq 'info');
},
+ 'output|out|o=s' => sub {
+ my $var = 'OUTFILE';
+ if ($_[1] =~ m:/$: or -d $_[1]) {
+ set_from_cmdline($var, undef);
+ $var = 'SUBDIR';
+ }
+ set_from_cmdline($var, $_[1]);
+ set_from_cmdline('OUT', $_[1]);
+ push @texi2dvi_args, '-o', $_[1];
+ },
+ 'no-validate|no-pointer-validate' => sub {
+ set_from_cmdline('novalidate',$_[1]);
+ $parser_default_options->{'novalidate'} = $_[1];
+ },
+ 'no-warn' => sub { set_from_cmdline('NO_WARN', $_[1]); },
+ 'verbose|v!' => sub {set_from_cmdline('VERBOSE', $_[1]);
+ push @texi2dvi_args, '--verbose'; },
+ 'document-language=s' => sub {
+ set_from_cmdline('documentlanguage', $_[1]);
+ $parser_default_options->{'documentlanguage'} = $_[1];
+ my @messages
+ = Texinfo::Common::warn_unknown_language($_[1], \&__);
+ foreach my $message (@messages) {
+ document_warn($message);
+ }
+ },
+ 'D=s' => sub {
+ my $var = $_[1];
+ my @field = split (/\s+/, $var, 2);
+ if (@field == 1) {
+ $parser_default_options->{'values'}->{$var} = 1;
+ } else {
+ $parser_default_options->{'values'}->{$field[0]} = $field[1];
+ }
+ },
+ 'U=s' => sub {delete $parser_default_options->{'values'}->{$_[1]};},
+ 'init-file=s' => sub {
+ locate_and_load_init_file($_[1], [ @conf_dirs, @program_init_dirs ]);
+ },
+ 'set-customization-variable|c=s' => sub {
+ my $var_val = $_[1];
+ if ($var_val =~ s/^(\w+)\s*=?\s*//) {
+ my $var = $1;
+ my $value = $var_val;
+ if ($value =~ /^undef$/i) {
+ $value = undef;
+ }
+ # special format
+ if ($var eq 'TEXINFO_OUTPUT_FORMAT') {
+ $format = set_format($value, $format, 1);
+ } elsif ($var eq 'TEXI2HTML') {
+ $format = set_format('html');
+ $parser_default_options->{'values'}->{'texi2html'} = 1;
+ }
+ set_from_cmdline($var, $value);
+ # FIXME do that here or when all command line options are processed?
+ if ($var eq 'L2H' and get_conf('L2H')) {
+ locate_and_load_init_file($latex2html_file,
+ [ @conf_dirs, @program_init_dirs ]);
+ }
+ }
+ },
+ 'css-include=s' => address@hidden,
+ 'css-ref=s' => address@hidden,
+ 'transliterate-file-names!' =>
+ sub {set_from_cmdline('TRANSLITERATE_FILE_NAMES', $_[1]);},
+ 'error-limit|e=i' => sub { set_from_cmdline('ERROR_LIMIT', $_[1]); },
+ 'split-size=s' => sub {set_from_cmdline('SPLIT_SIZE', $_[1])},
+ 'paragraph-indent|p=s' => sub {
+ my $value = $_[1];
+ if ($value =~ /^([0-9]+)$/ or $value eq 'none' or $value eq 'asis') {
+ set_from_cmdline('paragraphindent', $_[1]);
+ } else {
+ die sprintf(__("%s: --paragraph-indent arg must be
numeric/`none'/`asis', not `%s'.\n"),
+ $real_command_name, $value);
+ }
+ },
+ 'fill-column|f=i' => sub {set_from_cmdline('FILLCOLUMN',$_[1]);},
+ 'enable-encoding' => sub {set_from_cmdline('ENABLE_ENCODING',$_[1]);
+ $parser_default_options->{'ENABLE_ENCODING'} = $_[1];},
+ 'disable-encoding' => sub {set_from_cmdline('ENABLE_ENCODING', 0);
+ $parser_default_options->{'ENABLE_ENCODING'} = 0;},
+ 'internal-links=s' => sub {set_from_cmdline('INTERNAL_LINKS', $_[1]);},
+ 'force|F' => sub {set_from_cmdline('FORCE', $_[1]);},
+ 'commands-in-node-names' => sub { ;},
+ 'output-indent=i' => sub { ;},
+ 'reference-limit=i' => sub { ;},
+ 'Xopt=s' => sub {push @texi2dvi_args, $_[1]; $Xopt_arg_nr++},
+ 'silent|quiet' => sub {set_from_cmdline('SILENT', $_[1]);
+ push @texi2dvi_args, '--'.$_[0];},
+
+ 'plaintext' => sub {$format = set_format($_[0]);},
+ 'html' => sub {$format = set_format($_[0]);},
+ 'info' => sub {$format = set_format($_[0]);},
+ 'docbook' => sub {$format = set_format($_[0]);},
+ 'xml' => sub {$format = set_format($_[0]);},
+ 'dvi' => sub {$format = set_format($_[0]);},
+ 'dvipdf' => sub {$format = set_format($_[0]);},
+ 'ps' => sub {$format = set_format($_[0]);},
+ 'pdf' => sub {$format = set_format($_[0]);},
+ 'debug=i' => sub {set_from_cmdline('DEBUG', $_[1]);
+ $parser_default_options->{'DEBUG'} = $_[1];
+ push @texi2dvi_args, '--'.$_[0]; },
+);
+
+exit 1 if (!$result_options);
+
+# For tests, set some strings to values not changing with releases
+my %test_conf = (
+ 'PACKAGE_VERSION' => '',
+ 'PACKAGE' => 'texinfo',
+ 'PACKAGE_NAME' => 'texinfo',
+ 'PACKAGE_AND_VERSION' => 'texinfo',
+ 'PACKAGE_URL' => 'http://www.gnu.org/software/texinfo/',
+# maybe don't set this?
+ 'PROGRAM' => 'texi2any',
+);
+if (get_conf('TEST')) {
+ foreach my $conf (keys (%test_conf)) {
+ $converter_default_options->{$conf} = $test_conf{$conf};
+ }
+}
+
+
+my %format_names = (
+ 'info' => 'Info',
+ 'html' => 'HTML',
+ 'docbook' => 'DocBook',
+ 'texinfoxml' => 'Texinfo XML',
+ 'plaintext' => 'Plain Text',
+);
+
+sub format_name($)
+{
+ my $format = shift;
+ if ($format_names{$format}) {
+ return $format_names{$format};
+ } else {
+ return $format;
+ }
+}
+
+
+if (defined($ENV{'TEXINFO_OUTPUT_FORMAT'})
+ and $ENV{'TEXINFO_OUTPUT_FORMAT'} ne '') {
+ $format = set_format($ENV{'TEXINFO_OUTPUT_FORMAT'}, $format, 1);
+}
+
+if ($call_texi2dvi) {
+ if (defined(get_conf('OUT')) and @ARGV > 1) {
+ die sprintf(__('%s: when generating %s, only one input FILE may be
specified with -o'."\n"),
+ $real_command_name, format_name($format));
+ }
+} elsif($Xopt_arg_nr) {
+ document_warn(__('--Xopt option without printed output'));
+}
+
+my %tree_transformations;
+if (get_conf('TREE_TRANSFORMATIONS')) {
+ my @transformations = split /,/, get_conf('TREE_TRANSFORMATIONS');
+ foreach my $transformation (@transformations) {
+ if (Texinfo::Common::valid_tree_transformation($transformation)) {
+ $tree_transformations{$transformation} = 1;
+ } else {
+ document_warn(sprintf(__('unknown tree transformation %s'),
+ $transformation));
+ }
+ }
+}
+
+if (get_conf('SPLIT') and !$formats_table{$format}->{'split'}) {
+ document_warn(sprintf(__('ignoring splitting for format %s'),
+ format_name($format)));
+ set_from_cmdline('SPLIT', '');
+}
+
+foreach my $expanded_format (@{$default_expanded_format}) {
+ push @{$parser_default_options->{'expanded_formats'}}, $expanded_format
+ unless (grep {$_ eq $expanded_format}
@{$parser_default_options->{'expanded_formats'}});
+}
+
+my $converter_class;
+my %converter_defaults;
+# This gets the class right, even though there is a sub...
+if (defined($formats_table{$format}->{'converter'})) {
+ $converter_class = ref(&{$formats_table{$format}->{'converter'}});
+ %converter_defaults = $converter_class->converter_defaults();
+}
+
+# FIXME should this be set when the --set is set too? The corresponding
+# code is ready above, but commented out.
+# using no warnings is wrong, but a way to avoid a spurious warning.
+no warnings 'once';
+foreach my $parser_settable_option (
+ keys(%Texinfo::Parser::default_customization_values)) {
+ if (defined(get_conf($parser_settable_option))) {
+ $parser_default_options->{$parser_settable_option}
+ = get_conf($parser_settable_option);
+ } elsif (defined($converter_class)
+ and defined($converter_defaults{$parser_settable_option})) {
+ $parser_default_options->{$parser_settable_option}
+ = $converter_defaults{$parser_settable_option};
+ }
+}
+
+## using no warnings is wrong, but a way to avoid a spurious warning.
+#no warnings 'once';
+# The configuration options are upper-cased when considered as
+# customization variables, and lower-cased when passed to the Parser
+foreach my $parser_option (map {uc($_)}
+ (keys
(%Texinfo::Common::default_parser_state_configuration))) {
+ $parser_default_options->{lc($parser_option)} = get_conf($parser_option)
+ if (defined(get_conf($parser_option)));
+}
+
+
+# Main processing, process all the files given on the command line
+
+my @input_files = @ARGV;
+# use STDIN if not a tty, like makeinfo does
address@hidden = ('-') if (!scalar(@input_files) and !-t STDIN);
+die sprintf(__("%s: missing file argument.\n"), $real_command_name)
+ .sprintf(__("Try `%s --help' for more information.\n"), $real_command_name)
+ unless (scalar(@input_files) >= 1);
+
+my $file_number = -1;
+my @opened_files = ();
+my %unclosed_files;
+my $error_count = 0;
+# main processing
+while(@input_files) {
+ $file_number++;
+ my $input_file_arg = shift(@input_files);
+ 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 (@input_file_suffixes) {
+ if (-e $input_file_arg.$suffix) {
+ $input_file_name = $input_file_arg.$suffix;
+ last;
+ }
+ }
+ # in case no file was found, still set the file name
+ $input_file_name = $input_file_arg if (!defined($input_file_name));
+
+ my ($input_filename, $input_directory, $suffix) =
fileparse($input_file_name);
+ if (!defined($input_directory) or $input_directory eq '') {
+ $input_directory = $curdir;
+ }
+
+ my $input_file_base = $input_file_name;
+ $input_file_base =~ s/\.te?x(i|info)?$//;
+
+ my @htmlxref_dirs;
+ if (get_conf('TEST')) {
+ # to have reproducible tests, do not use system or user
+ # directories if TEST is set.
+ @htmlxref_dirs = File::Spec->catdir($curdir, '.texinfo');
+ } else {
+ @htmlxref_dirs = @language_config_dirs;
+ }
+ if ($input_directory ne '.' and $input_directory ne '') {
+ unshift @htmlxref_dirs, $input_directory;
+ }
+ unshift @htmlxref_dirs, '.';
+ my @texinfo_htmlxref_files
+ = locate_init_file ($texinfo_htmlxref, address@hidden, 1);
+
+ my $parser_options = { %$parser_default_options };
+
+ $parser_options->{'include_directories'} = address@hidden;
+ my @prependended_include_directories = ('.');
+ push @prependended_include_directories, $input_directory
+ if ($input_directory ne '.');
+ unshift @{$parser_options->{'include_directories'}},
+ @prependended_include_directories;
+ unshift @{$parser_options->{'include_directories'}}, @prepend_dirs;
+
+ #my $parser = Texinfo::Parser::parser($parser_options);
+ my $parser = Parsetexi::parser($parser_options);
+ my $tree = $parser->parse_texi_file($input_file_name);
+
+ if (!defined($tree) or $format eq 'parse') {
+ handle_errors($parser, $error_count, address@hidden);
+ next;
+ }
+
+ if (defined(get_conf('DUMP_TREE'))
+ or (get_conf('DEBUG') and get_conf('DEBUG') >= 10)) {
+ # this is very wrong, but a way to avoid a spurious warning.
+ no warnings 'once';
+ local $Data::Dumper::Purity = 1;
+ no warnings 'once';
+ local $Data::Dumper::Indent = 1;
+ print STDERR Data::Dumper->Dump([$tree]);
+ }
+
+ if ($tree_transformations{'fill_gaps_in_sectioning'}) {
+ my ($filled_contents, $added_sections)
+ = Texinfo::Structuring::fill_gaps_in_sectioning($tree);
+ if (!defined($filled_contents)) {
+ document_warn(__("fill_gaps_in_sectioning transformation return no
result. No section?"));
+ } else {
+ $tree->{'contents'} = $filled_contents;
+ }
+ }
+ if ((get_conf('SIMPLE_MENU')
+ and $formats_table{$format}->{'simple_menu'})
+ or $tree_transformations{'simple_menus'}) {
+ $parser->Texinfo::Structuring::set_menus_to_simple_menu();
+ }
+
+ if (defined(get_conf('MACRO_EXPAND')) and $file_number == 0) {
+ my $texinfo_text = Texinfo::Convert::Texinfo::convert($tree, 1);
+ #print STDERR "$texinfo_text\n";
+ my $macro_expand_file = get_conf('MACRO_EXPAND');
+ my $macro_expand_fh = Texinfo::Common::open_out($parser,
+ $macro_expand_file, $parser->{'INPUT_PERL_ENCODING'});
+
+ my $error_macro_expand_file;
+ if (defined($macro_expand_fh)) {
+ print $macro_expand_fh $texinfo_text;
+ if (!close($macro_expand_fh)) {
+ document_warn(sprintf(__("error on closing macro expand file %s:
%s\n"),
+ $macro_expand_file, $!));
+ $error_macro_expand_file = 1;
+ }
+
$parser->Texinfo::Convert::Converter::register_close_file($macro_expand_file);
+ } else {
+ document_warn(sprintf(__("could not open %s for writing: %s\n"),
+ $macro_expand_file, $!));
+ $error_macro_expand_file = 1;
+ }
+
+ if ($error_macro_expand_file) {
+ $error_count++;
+ _exit($error_count, address@hidden);
+ }
+ }
+ if (get_conf('DUMP_TEXI') or $formats_table{$format}->{'texi2dvi_format'}) {
+ handle_errors($parser, $error_count, address@hidden);
+ next;
+ }
+
+ if ($formats_table{$format}->{'move_index_entries_after_items'}
+ or $tree_transformations{'move_index_entries_after_items'}) {
+ Texinfo::Common::move_index_entries_after_items_in_tree($tree);
+ }
+
+ if ($tree_transformations{'insert_nodes_for_sectioning_commands'}) {
+ my ($modified_contents, $added_nodes)
+ = Texinfo::Structuring::insert_nodes_for_sectioning_commands($parser,
$tree);
+ if (!defined($modified_contents)) {
+ document_warn(__(
+ "insert_nodes_for_sectioning_commands transformation return no result.
No section?"));
+ } else {
+ $tree->{'contents'} = $modified_contents;
+ }
+ }
+
+ Texinfo::Structuring::associate_internal_references($parser);
+ # every format needs the sectioning structure
+ # FIXME this adjusts the level of sectioning commands. Maybe should be
+ # done before dumping the tree?
+ my $structure = Texinfo::Structuring::sectioning_structure($parser, $tree);
+
+ if ($structure
+ and !$formats_table{$format}->{'no_warn_non_empty_parts'}) {
+ Texinfo::Structuring::warn_non_empty_parts($parser);
+ }
+
+ if ($tree_transformations{'complete_tree_nodes_menus'}) {
+ Texinfo::Structuring::complete_tree_nodes_menus($parser, $tree);
+ }
+ if ($tree_transformations{'indent_menu_descriptions'}) {
+ Texinfo::Convert::Plaintext::indent_menu_descriptions(undef, $parser);
+ }
+
+ if ($tree_transformations{'regenerate_master_menu'}) {
+ Texinfo::Structuring::regenerate_master_menu($parser);
+ }
+
+ # this can be done for every format, since information is already gathered
+ my $floats = $parser->floats_information();
+
+ my $top_node;
+ if ($formats_table{$format}->{'nodes_tree'}) {
+ $top_node = Texinfo::Structuring::nodes_tree($parser);
+ }
+ if ($formats_table{$format}->{'floats'}) {
+ Texinfo::Structuring::number_floats($floats);
+ }
+ $error_count = handle_errors($parser, $error_count, address@hidden);
+
+ if ($format eq 'structure') {
+ next;
+ }
+
+ if ($file_number != 0) {
+ delete $cmdline_options->{'OUTFILE'} if
exists($cmdline_options->{'OUTFILE'});
+ delete $cmdline_options->{'OUT'} if exists($cmdline_options->{'OUT'});
+ delete $cmdline_options->{'PREFIX'} if
exists($cmdline_options->{'PREFIX'});
+ delete $cmdline_options->{'SUBDIR'}
+ if (exists($cmdline_options->{'SUBDIR'}) and get_conf('SPLIT'));
+ }
+ my $converter_options = { %$converter_default_options,
+ %$cmdline_options,
+ %$Texinfo::Config::options };
+
+ $converter_options->{'parser'} = $parser;
+ $converter_options->{'output_format'} = $format;
+ $converter_options->{'htmlxref_files'} = address@hidden;
+ my $converter =
&{$formats_table{$format}->{'converter'}}($converter_options);
+ $converter->output($tree);
+ push @opened_files, $converter->converter_opened_files();
+ handle_errors($converter, $error_count, address@hidden);
+ my $converter_unclosed_files = $converter->converter_unclosed_files();
+ if ($converter_unclosed_files) {
+ foreach my $unclosed_file (keys(%$converter_unclosed_files)) {
+ if ($unclosed_file eq '-') {
+ $unclosed_files{$unclosed_file}
+ = $converter_unclosed_files->{$unclosed_file};
+ } else {
+ if (!close($converter_unclosed_files->{$unclosed_file})) {
+ warn(sprintf(__("%s: error on closing %s: %s\n"),
+ $real_command_name, $unclosed_file, $!));
+ $error_count++;
+ _exit($error_count, address@hidden);
+ }
+ }
+ }
+ }
+
+ if (defined(get_conf('INTERNAL_LINKS')) and $file_number == 0
+ and $formats_table{$format}->{'internal_links'}) {
+ my $internal_links_text
+ = $converter->output_internal_links();
+ # always create a file, even if empty.
+ $internal_links_text = '' if (!defined($internal_links_text));
+ my $internal_links_file = get_conf('INTERNAL_LINKS');
+ my $internal_links_fh = Texinfo::Common::open_out($converter,
+ $internal_links_file);
+ my $error_internal_links_file;
+ if (defined ($internal_links_fh)) {
+ print $internal_links_fh $internal_links_text;
+
+ if (!close ($internal_links_fh)) {
+ warn(sprintf(__("%s: error on closing internal links file %s: %s\n"),
+ $real_command_name, $internal_links_file, $!));
+ $error_internal_links_file = 1;
+ }
+ $converter->register_close_file($internal_links_file);
+ } else {
+ warn(sprintf(__("%s: could not open %s for writing: %s\n"),
+ $real_command_name, $internal_links_file, $!));
+ $error_internal_links_file = 1;
+ }
+ if ($error_internal_links_file) {
+ $error_count++;
+ _exit($error_count, address@hidden);
+ }
+ }
+ if (defined(get_conf('SORT_ELEMENT_COUNT')) and $file_number == 0) {
+ my $converter_element_count_file
+ = Texinfo::Convert::TextContent->converter($converter_options);
+ my $use_sections = (! $formats_table{$format}->{'nodes_tree'}
+ or (defined($converter->get_conf('USE_NODES'))
+ and !$converter->get_conf('USE_NODES')));
+ my ($sorted_name_counts_array, $sort_element_count_text)
+ = Texinfo::Convert::Converter::sort_element_counts(
+ $converter_element_count_file, $tree, $use_sections,
+ get_conf('SORT_ELEMENT_COUNT_WORDS'));
+
+ my $sort_element_count_file = get_conf('SORT_ELEMENT_COUNT');
+ my $sort_element_count_fh = Texinfo::Common::open_out($converter,
+ $sort_element_count_file);
+ my $error_sort_element_count_file;
+ if (defined ($sort_element_count_fh)) {
+ print $sort_element_count_fh $sort_element_count_text;
+
+ if (!close ($sort_element_count_fh)) {
+ warn(sprintf(__("%s: error on closing internal links file %s: %s\n"),
+ $real_command_name, $sort_element_count_file, $!));
+ $error_sort_element_count_file = 1;
+ }
+ $converter->register_close_file($sort_element_count_file);
+ } else {
+ warn(sprintf(__("%s: could not open %s for writing: %s\n"),
+ $real_command_name, $sort_element_count_file, $!));
+ $error_sort_element_count_file = 1;
+ }
+ if ($error_sort_element_count_file) {
+ $error_count++;
+ _exit($error_count, address@hidden);
+ }
+ }
+}
+
+foreach my $unclosed_file (keys(%unclosed_files)) {
+ if (!close($unclosed_files{$unclosed_file})) {
+ warn(sprintf(__("%s: error on closing %s: %s\n"),
+ $real_command_name, $unclosed_file, $!));
+ $error_count++;
+ _exit($error_count, address@hidden);
+ }
+}
+
+if ($call_texi2dvi) {
+ if (get_conf('DEBUG') or get_conf('VERBOSE')) {
+ print STDERR "EXEC ".join('|', (get_conf('TEXI2DVI'), @texi2dvi_args,
@ARGV))
+ ."\n";
+ }
+ exec { get_conf('TEXI2DVI') } (get_conf('TEXI2DVI'), @texi2dvi_args, @ARGV);
+}
+
+1;
Property changes on: trunk/parsetexi/texi2any-C.pl
___________________________________________________________________
Added: svn:executable
+ *
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [5955] parsetexi update,
Gavin D. Smith <=