texinfo/tp TODO texi2any.pl

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/02/20 23:30:44

Modified files:
        tp             : TODO texi2any.pl 

Log message:
        If TEXINFO_DEV_SOURCE is set in the environment, do as if the script
        ended with .pl, that is, consider that it is in the source directory
        and search for LocalData and modules shipped with texinfo in the source.
        Idea from Karl.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/TODO?cvsroot=texinfo&r1=1.267&r2=1.268
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/texi2any.pl?cvsroot=texinfo&r1=1.117&r2=1.118

Patches:
Index: TODO
===================================================================
RCS file: /sources/texinfo/texinfo/tp/TODO,v
retrieving revision 1.267
retrieving revision 1.268
diff -u -b -r1.267 -r1.268
--- TODO        19 Feb 2012 23:20:33 -0000      1.267
+++ TODO        20 Feb 2012 23:30:43 -0000      1.268
@@ -118,7 +118,9 @@
 * In @ref
   commas
 
-In generated info:
+In Info
+
+Nodes:
 * in every case 
   ( at the beginning
 * in Node line 
@@ -129,6 +131,11 @@
   * if there is no label
     :
 
+Labels in Info (which also means index entries)
+  :
+
+* at the beginning of a line in a @menu
+
 
 DocBook
 =======

Index: texi2any.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/texi2any.pl,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -b -r1.117 -r1.118
--- texi2any.pl 19 Feb 2012 23:13:16 -0000      1.117
+++ texi2any.pl 20 Feb 2012 23:30:44 -0000      1.118
@@ -113,7 +113,7 @@
 
 my $srcdir = defined $ENV{'srcdir'} ? $ENV{'srcdir'} : dirname $0;
 my $libsrcdir = "$srcdir/maintain";
-if ($0 =~ /\.pl$/) {
+if ($0 =~ /\.pl$/ or $ENV{'TEXINFO_DEV_SOURCE'}) {
   unshift @INC, "$libsrcdir/lib/libintl-perl/lib";
 } elsif ('@USE_EXTERNAL_LIBINTL@' ne 'yes'
          and -d "$pkgdatadir/lib/libintl-perl/lib") {
@@ -133,7 +133,7 @@
 #my @search_locale_dirs = ("$datadir/locale", (map $_ . '/LocaleData', @INC),
 #  qw (/usr/share/locale /usr/local/share/locale));
 
-if ($0 =~ /\.pl$/) {
+if ($0 =~ /\.pl$/ 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;
@@ -154,7 +154,7 @@
 
 Locale::Messages::bindtextdomain ($messages_textdomain, "$datadir/locale");
 
-if ($0 =~ /\.pl$/) {
+if ($0 =~ /\.pl$/ or $ENV{'TEXINFO_DEV_SOURCE'}) {
   unshift @INC, "$libsrcdir/lib/Unicode-EastAsianWidth/lib";
 } elsif ('@USE_EXTERNAL_EASTASIANWIDTH@' ne 'yes'
          and -d "$pkgdatadir/lib/Unicode-EastAsianWidth/lib") {
@@ -167,7 +167,7 @@
 }
 require Unicode::EastAsianWidth;
 
-if ($0 =~ /\.pl$/) {
+if ($0 =~ /\.pl$/ or $ENV{'TEXINFO_DEV_SOURCE'}) {
   unshift @INC, "$libsrcdir/lib/Text-Unidecode/lib";
 } elsif ('@USE_EXTERNAL_UNIDECODE@' ne 'yes'
           and "$pkgdatadir/lib/Text-Unidecode/lib") {