--- texi2html.orig Thu Jan 29 18:10:45 1998 +++ texi2html Thu Jan 29 18:33:27 1998 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/local/bin/jperl 'di '; 'ig 00 '; #+############################################################################## @@ -37,7 +37,7 @@ $XREFRE = '[^@{}]+'; # RE for a xref (should use NODERE) $ERROR = "***"; # prefix for errors and warnings -$THISPROG = "texi2html 1.52"; # program name and version +$THISPROG = "texi2html 1.52+jindex"; # program name and version $HOMEPAGE = "http://wwwinfo.cern.ch/dis/texi2html/"; # program home page $TODAY = &pretty_date; # like "20 September 1993" $SPLITTAG = "\n"; # tag to know where to split @@ -1116,6 +1116,9 @@ &unprotect_texi; tr/A-Z/a-z/; # lowercase $key2alpha{$key} = $_; + if (/\[(.).*\]/) { + $key2alpha{$key} = $1; + } print "# index $key sorted as $_\n" if $key ne $_ && $debug & $DEBUG_INDEX; } @@ -1122,7 +1125,8 @@ push(@lines2, "Jump to:\n"); $last_letter = undef; foreach $key (sort byalpha @keys) { - $letter = substr($key2alpha{$key}, 0, 1); + ## $letter = substr($key2alpha{$key}, 0, 1); + ($letter) = ($key2alpha{$key} =~ m,^(.),); $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;; if (!defined($last_letter) || $letter ne $last_letter) { push(@lines2, "-\n") if defined($last_letter); @@ -1133,7 +1137,8 @@ push(@lines2, "
\n"); $last_letter = undef; foreach $key (sort byalpha @keys) { - $letter = substr($key2alpha{$key}, 0, 1); + ($letter) = ($key2alpha{$key} =~ m,^(.),); + ## $letter = substr($key2alpha{$key}, 0, 1); $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;; if (!defined($last_letter) || $letter ne $last_letter) { push(@lines2, "\n") if defined($last_letter);