diff options
| author | Mark Wielaard <mwielaard@redhat.com> | 2008-08-08 15:59:54 +0200 |
|---|---|---|
| committer | Mark Wielaard <mwielaard@redhat.com> | 2008-08-08 15:59:54 +0200 |
| commit | 6bba5be0972dae052f8ad7623e21ecc0425350d0 (patch) | |
| tree | 5444b6348a1fe86d92f1b34a4858a0c0c668333f /testsuite/systemtap.examples/examples-index-gen.pl | |
| parent | 03e73903d46c54ed0a1e1a06ed4c21b6570fda9e (diff) | |
| download | systemtap-steved-6bba5be0972dae052f8ad7623e21ecc0425350d0.tar.gz systemtap-steved-6bba5be0972dae052f8ad7623e21ecc0425350d0.tar.xz systemtap-steved-6bba5be0972dae052f8ad7623e21ecc0425350d0.zip | |
Add index of subsystem and keywords at top of HTML indexes.
Diffstat (limited to 'testsuite/systemtap.examples/examples-index-gen.pl')
| -rw-r--r-- | testsuite/systemtap.examples/examples-index-gen.pl | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/testsuite/systemtap.examples/examples-index-gen.pl b/testsuite/systemtap.examples/examples-index-gen.pl index e105f3fc..9bdc1174 100644 --- a/testsuite/systemtap.examples/examples-index-gen.pl +++ b/testsuite/systemtap.examples/examples-index-gen.pl @@ -155,9 +155,18 @@ print "Creating $subhtml...\n"; print SUBHTML $HTMLHEADER; print SUBHTML "<h2>Examples by Subsystem</h2>\n"; +# On top link list +print SUBHTML "<p><tt>"; +foreach $subsystem (sort keys %subsystems) { + print SUBHTML '<a href="#' . (uc $subsystem) . '">' + . (uc $subsystem) . "</a> "; +} +print SUBHTML "</tt></p>\n"; + foreach $subsystem (sort keys %subsystems) { print SUBINDEX "= " . (uc $subsystem) . " =\n\n"; - print SUBHTML "<h3>" . (uc $subsystem) . "</h3>\n"; + print SUBHTML "<h3>" . '<a name="' . (uc $subsystem) . '">' + . (uc $subsystem) . "</a></h3>\n"; print SUBHTML "<ul>\n"; foreach $meta (sort @{$subsystems{$subsystem}}) { @@ -187,9 +196,18 @@ print "Creating $keyhtml...\n"; print KEYHTML $HTMLHEADER; print KEYHTML "<h2>Examples by Keyword</h2>\n"; +# On top link list +print KEYHTML "<p><tt>"; +foreach $keyword (sort keys %keywords) { + print KEYHTML '<a href="#' . (uc $keyword) . '">' + . (uc $keyword) . "</a> "; +} +print KEYHTML "</tt></p>\n"; + foreach $keyword (sort keys %keywords) { print KEYINDEX "= " . (uc $keyword) . " =\n\n"; - print KEYHTML "<h3>" . (uc $keyword) . "</h3>\n"; + print KEYHTML "<h3>" . '<a name="' . (uc $keyword) . '">' + . (uc $keyword) . "</a></h3>\n"; print KEYHTML "<ul>\n"; foreach $meta (sort @{$keywords{$keyword}}) { |