1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
# @configure_input@
#
# Add directories to @INC, Perl's module search path, to find modules,
# either in the source or build directories.
package Texinfo::ModulePath;
use vars qw($VERSION);
$VERSION = '6.3dev';
use File::Basename;
use File::Spec;
# Used as a flag to say whether to look for data files in uninstalled
# locations.
our $texinfo_uninstalled = 0;
# Pathname of the tp/ build directory. Used to find the locale
# data.
our $builddir = '';
our $top_builddir;
our $top_srcdir;
our $lib_dir;
our $libexec_dir;
# If $LIB_DIR and $LIBEXEC_DIR are given,
# (likely the installation directories)
# use them to add directories
# to @INC.
#
# LIB_DIR is for bundled libraries.
# LIBEXEC_DIR is for XS modules.
#
# otherwise use 'top_srcdir'
# and 'top_builddir' environment variables.
sub init {
$lib_dir = shift;
$libexec_dir = shift;
my %named_args = @_;
if (!$named_args{'installed'}) {
$texinfo_uninstalled = 1;
if ($ENV{'top_srcdir'}) {
$top_srcdir = $ENV{'top_srcdir'};
} elsif (defined $named_args{'updirs'}) {
my ($real_command_name, $command_directory, $command_suffix)
= fileparse($0, '.pl');
my $updir = File::Spec->updir();
# e.g. tp/t -> tp/t/../.. for 'updirs' = 2.
my $count = $named_args{'updirs'};
$top_srcdir = $command_directory;
while ($count-- > 0) {
$top_srcdir = File::Spec->catdir($top_srcdir, $updir);
}
}
if (defined($top_srcdir)) {
# For Texinfo::Parser and the rest.
unshift @INC, File::Spec->catdir($top_srcdir, 'tp');
$lib_dir = File::Spec->catdir($top_srcdir, 'tp', 'maintain');
}
# Find XS modules in the build directory
if (defined($ENV{'top_builddir'})) {
$top_builddir = $ENV{'top_builddir'};
} else {
$top_builddir = $top_srcdir;
}
if (defined($top_builddir)) {
unshift @INC, File::Spec->catdir($top_builddir, 'tp',
'Texinfo', 'XS');
unshift @INC, File::Spec->catdir($top_builddir, 'tp',
'Texinfo', 'XS', 'parsetexi');
}
$builddir = File::Spec->catdir($top_builddir, 'tp');
}
if (defined($lib_dir)) {
unshift @INC, $lib_dir;
# '@USE_EXTERNAL_LIBINTL @' and similar are substituted
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'));
}
}
if (defined($libexec_dir)) {
unshift @INC, $libexec_dir;
}
}
sub import {
my $class = shift;
goto &init;
}
1;
|