1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677 |
- # 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
|