texinfo TODO tp/TODO tp/Texinfo/Common.pm tp/Te...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/07/22 22:32:43

Modified files:
        .              : TODO 
        tp             : TODO 
        tp/Texinfo     : Common.pm 
        tp/Texinfo/Convert: HTML.pm 

Log message:
        Add a way to _pretend_ html is generated on a case-insensitive 
filesystem,
        with CASE_INSENSITIVE_FILENAMES.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/TODO?cvsroot=texinfo&r1=1.65&r2=1.66
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/TODO?cvsroot=texinfo&r1=1.279&r2=1.280
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Common.pm?cvsroot=texinfo&r1=1.143&r2=1.144
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Convert/HTML.pm?cvsroot=texinfo&r1=1.238&r2=1.239

Patches:
Index: TODO
===================================================================
RCS file: /sources/texinfo/texinfo/TODO,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -b -r1.65 -r1.66
--- TODO        21 Jul 2012 10:30:50 -0000      1.65
+++ TODO        22 Jul 2012 22:32:43 -0000      1.66
@@ -1,4 +1,4 @@
-$Id: TODO,v 1.65 2012/07/21 10:30:50 pertusus Exp $
+$Id: TODO,v 1.66 2012/07/22 22:32:43 pertusus Exp $
 This is the todo list for GNU Texinfo.
 If you are interested in working on any of these, email address@hidden
 
@@ -66,7 +66,6 @@
   - Add support for other Latin 9 (and Latin 2 and Latin 1) characters.
 
 * Makeinfo:
-  - add a switch to _pretend_ it's on a case-insensitive filesystem
   - Improve the HTML customization API.
   - HTML: support thumbnails.
   - HTML: have a library of different CSS styles.

Index: tp/TODO
===================================================================
RCS file: /sources/texinfo/texinfo/tp/TODO,v
retrieving revision 1.279
retrieving revision 1.280
diff -u -b -r1.279 -r1.280
--- tp/TODO     15 Jun 2012 00:37:21 -0000      1.279
+++ tp/TODO     22 Jul 2012 22:32:43 -0000      1.280
@@ -75,6 +75,8 @@
 in html test footnotestyle separate.  There are such tests in tp/tests,
 maybe they are sufficient, but they are only done for long checks.
 
+Test of CASE_INSENSITIVE_FILENAMES.
+
 
 Future features
 ===============
@@ -144,7 +146,7 @@
 =======
 
 * Instead of synopsis may use specialized synopsis, funcsynopsis/funcprototype
-  for deftype*, funcdef for defffn, ooclass for object oriented.
+  for deftype*, funcdef for deffn, ooclass for object oriented.
   deffn:
   <funcsynopsis><funcprototype><funcdef 
role=...><function>d--effn_name</function></funcdef><paramdef><parameter>args</parameter></paramdef></funcprototype></funcsynopsis>
   defvr, deftypevr: varname, and type and not returnvalue

Index: tp/Texinfo/Common.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Common.pm,v
retrieving revision 1.143
retrieving revision 1.144
diff -u -b -r1.143 -r1.144
--- tp/Texinfo/Common.pm        10 Jul 2012 22:32:31 -0000      1.143
+++ tp/Texinfo/Common.pm        22 Jul 2012 22:32:43 -0000      1.144
@@ -126,7 +126,7 @@
   'NO_WARN', 'VERBOSE',
   'TRANSLITERATE_FILE_NAMES', 'ERROR_LIMIT', 'ENABLE_ENCODING',
   'FORCE', 'INTERNAL_LINKS', 'OUTFILE', 'SUBDIR', 'OUT',
-  'SILENT'
+  'SILENT', 'CASE_INSENSITIVE_FILENAMES',
 );
 
 # documented in the Texinfo::Parser pod section

Index: tp/Texinfo/Convert/HTML.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Convert/HTML.pm,v
retrieving revision 1.238
retrieving revision 1.239
diff -u -b -r1.238 -r1.239
--- tp/Texinfo/Convert/HTML.pm  14 Jul 2012 11:41:55 -0000      1.238
+++ tp/Texinfo/Convert/HTML.pm  22 Jul 2012 22:32:43 -0000      1.239
@@ -5070,6 +5070,17 @@
   if (!defined($filename)) {
     cluck("_set_element_file: filename not defined\n");
   }
+  if ($self->get_conf('CASE_INSENSITIVE_FILENAMES')) {
+    if (exists($self->{'filenames'}->{lc($filename)})) {
+      if ($self->get_conf('DEBUG')) {
+        print STDERR "Reusing ".$self->{'filenames'}->{lc($filename)}
+                     ." for $filename\n";
+      }
+      $filename = $self->{'filenames'}->{lc($filename)};
+    } else {
+      $self->{'filenames'}->{lc($filename)} = $filename;
+    }
+  }
   $element->{'filename'} = $filename;
   if (defined($self->{'destination_directory'})) {
     $element->{'out_filename'} = $self->{'destination_directory'} . $filename;