78 lines
2.0 KiB
Perl
78 lines
2.0 KiB
Perl
# Copyright (c) 2002 Trustees of Indiana University
|
|
#
|
|
# Distributed under the Boost Software License, Version 1.0.
|
|
# (See accompanying file LICENSE_1_0.txt or copy at
|
|
# http://www.boost.org/LICENSE_1_0.txt)
|
|
|
|
|
|
$lastpage = 0;
|
|
$thispage = 1;
|
|
$counter = 1;
|
|
$alphabet = "\@abcdefghijklmnopqrstuvwxyz";
|
|
$Alphabet = "\@ABCDEFGHIJKLMNOPQRSTUVWXYZ";
|
|
$out = "";
|
|
$saved_full = "";
|
|
$saved_empty = "";
|
|
|
|
while(<>) {
|
|
|
|
# These changes are so that it works when we aren't using hyperref
|
|
|
|
# if (/(\\newlabel.*\{\{)([0-9]+)(\}\{)([0-9ivx]+)(\}.*JWebCtr\.)([0-9]+)(.*)/) {
|
|
if (/\\newlabel\{sec:.*/) {
|
|
# make sure not to munge normal (non jweb part) section labels
|
|
print ;
|
|
} elsif (/\\newlabel\{class:.*/) {
|
|
# make sure not to munge normal (non jweb part) class labels
|
|
print ;
|
|
} elsif (/\\newlabel\{tab:.*/) {
|
|
# make sure not to munge normal (non jweb part) table labels
|
|
print ;
|
|
} elsif (/\\newlabel\{concept:.*/) {
|
|
# make sure not to munge normal (non jweb part) concept labels
|
|
print ;
|
|
} elsif (/\\newlabel\{fig:.*/) {
|
|
# make sure not to munge normal (non jweb part) class labels
|
|
print ;
|
|
} elsif (/(\\newlabel.*\{\{)([0-9\.]+)(\}\{)([0-9ivx]+)(\}.*)(.*)/) {
|
|
$thispage = $4;
|
|
|
|
if ($thispage ne $lastpage) {
|
|
|
|
$counter = 1;
|
|
|
|
print $saved_empty;
|
|
|
|
# $saved_full = "$1".substr($alphabet,$counter,1)."$3$4$5$6$7\n";
|
|
# $saved_empty = "$1"."$3$4$5$6$7\n";
|
|
$saved_full = "$1".substr($alphabet,$counter,1)."$3$4$5\n";
|
|
$saved_empty = "$1"."$3$4$5\n";
|
|
|
|
} else {
|
|
print $saved_full;
|
|
# print "$1".substr($alphabet,$counter,1)."$3$4$5$counter$7\n";
|
|
print "$1".substr($alphabet,$counter,1)."$3$4$5\n";
|
|
$saved_full = "";
|
|
$saved_empty = "";
|
|
}
|
|
|
|
$lastpage = $thispage;
|
|
$counter++;
|
|
|
|
} else {
|
|
print ;
|
|
}
|
|
}
|
|
print $saved_empty;
|
|
|
|
|
|
|
|
# get a line
|
|
# cases
|
|
# - ref
|
|
# - if it is first, save off someplace
|
|
# - if there is a first saved, dump the empty version
|
|
# - else
|
|
# - if there is a first saved, dump the non empty version
|
|
# - not a ref
|