2
0
mirror of https://github.com/boostorg/graph.git synced 2026-01-20 16:42:13 +00:00
Files
graph/doc/jwebfrob.pl
Jeremy Siek 80d971a7ab new file
[SVN r11900]
2001-12-04 01:29:42 +00:00

73 lines
1.8 KiB
Perl

$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