# 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