[Python-checkins] python/dist/src/Doc/perl l2hinit.perl,1.74,1.74.6.1 python.perl,1.137,1.137.4.1
fdrake@users.sourceforge.net
fdrake@users.sourceforge.net
Mon, 21 Jul 2003 23:44:36 -0700
Update of /cvsroot/python/python/dist/src/Doc/perl
In directory sc8-pr-cvs1:/tmp/cvs-serv28811/perl
Modified Files:
Tag: indexing-cleanup-branch
l2hinit.perl python.perl
Log Message:
First step in trying to clean up some of the support for index generation:
Make the data files slightly less irregular.
Start removing some of the formating from the data as well.
(There is a loong way to go!)
Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.74
retrieving revision 1.74.6.1
diff -C2 -d -r1.74 -r1.74.6.1
*** l2hinit.perl 27 Jun 2003 18:26:01 -0000 1.74
--- l2hinit.perl 22 Jul 2003 06:44:33 -0000 1.74.6.1
***************
*** 348,362 ****
open(MODIDXFILE, '>modindex.dat') || die "\n$!\n";
foreach $key (keys %Modules) {
! # dump the line in the data file; just use a dummy seqno field
! my $nkey = $1;
! my $moditem = "$Modules{$key}";
my $plat = '';
- $key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/$1/;
if ($ModulePlatforms{$key} && !$allthesame) {
$plat = (" <em>(<span class=\"platform\">$ModulePlatforms{$key}"
. '</span>)</em>');
}
! print MODIDXFILE $moditem . $IDXFILE_FIELD_SEP
! . "<tt class=\"module\">$key</tt>$plat###\n";
}
close(MODIDXFILE);
--- 348,362 ----
open(MODIDXFILE, '>modindex.dat') || die "\n$!\n";
foreach $key (keys %Modules) {
! # dump the line in the data file; just use an empty seqno field
my $plat = '';
if ($ModulePlatforms{$key} && !$allthesame) {
$plat = (" <em>(<span class=\"platform\">$ModulePlatforms{$key}"
. '</span>)</em>');
}
! my $s = "$Modules{$key}$IDXFILE_FIELD_SEP$key";
! $s =~ s/<a href="([^\"]+)">/$1/;
! print MODIDXFILE ("$s$plat"
! . $IDXFILE_FIELD_SEP
! . "\n");
}
close(MODIDXFILE);
Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.137
retrieving revision 1.137.4.1
diff -C2 -d -r1.137 -r1.137.4.1
*** python.perl 16 Jul 2003 14:01:56 -0000 1.137
--- python.perl 22 Jul 2003 06:44:34 -0000 1.137.4.1
***************
*** 493,497 ****
sub write_idxfile($$){
my($ahref, $str) = @_;
! print IDXFILE $ahref, $IDXFILE_FIELD_SEP, $str, "\n";
}
--- 493,500 ----
sub write_idxfile($$){
my($ahref, $str) = @_;
! my $info = "$ahref$IDXFILE_FIELD_SEP$str\n";
! $info =~ s/<a href=['"]([^'"]+)['"]>/$1/;
! $info =~ s/###/$IDXFILE_FIELD_SEP/;
! print IDXFILE $info;
}