From 6bba5be0972dae052f8ad7623e21ecc0425350d0 Mon Sep 17 00:00:00 2001
From: Mark Wielaard <mwielaard@redhat.com>
Date: Fri, 8 Aug 2008 15:59:54 +0200
Subject: Add index of subsystem and keywords at top of HTML indexes.

---
 testsuite/systemtap.examples/examples-index-gen.pl | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'testsuite/systemtap.examples/examples-index-gen.pl')

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}}) {
-- 
cgit