1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#!@@PERL@@ @@PERLOPTS@@
# genindex - make a POD index from (URL, text) pairs
# $Id: genindex.pl,v 1.7 2002/08/14 11:29:11 remstats Exp $
# from remstats @@VERSION@@
# Copyright 1999, 2000, 2001, 2002 (c) Thomas Erskine <@@AUTHOR@@>
# See the COPYRIGHT file with the distribution.
# - - - Configuration - - -
# What is this program called, for error-messages and file-names
$main::prog = 'genindex';
# What format of output to use
$main::index_format = 'pod';
# - - - Version History - - -
$main::version = (split(' ', '$Revision: 1.7 $'))[1];
# - - - Setup - - -
use Getopt::Std;
# Parse the command-line
&parse_command_line();
# - - - Mainline - - -
my ($url, $text, %urls, $key);
# Slurp in the index pairs
while (<>) {
chomp;
($url, $text) = split(' ', $_, 2);
$urls{$text} = $url;
}
for $key (sort keys %urls) {
if ($main::index_format eq 'html') {
print "<A HREF=\"$urls{$key}\">$key</A><BR>\n";
}
elsif ($main::index_format eq 'pod') {
print "=for html\n<A HREF=\"$urls{$key}\">$key</A><BR>\n\n" .
"=for text $key - $urls{$key}\n\n";
}
elsif ($main::index_format eq 'text') {
print "$key - $urls{$key}\n";
}
else {
&abort("unknown index format '$main::index_format')");
}
}
exit 0;
#----------------------------------------------------------------- usage ---
sub usage {
print STDERR <<"EOD_USAGE";
$main::prog version $main::version from remstats @@VERSION@@
usage: $main::prog [options] file ...
where options are:
-d enable debugging output
-f fff use 'fff' format for output (html, pod or text)[$main::index_format]
-h show this help
EOD_USAGE
exit 0;
}
#----------------------------------------------------------------- debug ---
sub debug {
print STDERR 'DEBUG: ', @_, "\n";
}
#------------------------------------------------------------------- abort ---
sub abort {
print STDERR 'ABORT: ', @_, "\n";
exit 6;
}
#------------------------------------------------------------------- error ---
sub error {
print STDERR 'ERROR: ', @_, "\n";
}
#------------------------------------------------------ parse_command_line ---
sub parse_command_line {
my %opt = ();
getopts('d:f:h', \%opt);
if (defined $opt{'h'}) { &usage(); } # no return
if (defined $opt{'d'}) { $main::debug = $opt{'d'}; }
else { $main::debug = 0; }
if (defined $opt{'f'}) { $main::index_format = $opt{'f'}; }
unless ($main::index_format eq 'html' or $main::index_format eq 'pod' or
$main::index_format eq 'text') {
&usage(); # no return
}
}
|
