From 1cfd2143ecabdf664b2d61f6d46bfab6fdd77816 Mon Sep 17 00:00:00 2001
From: Mark Wielaard <mwielaard@redhat.com>
Date: Thu, 7 Aug 2008 15:18:14 +0200
Subject: Add new examples-index-gen.pl script and support files.

---
 testsuite/systemtap.examples/examples-index-gen.pl | 290 +++++++++++++++++++++
 1 file changed, 290 insertions(+)
 create mode 100644 testsuite/systemtap.examples/examples-index-gen.pl

(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
new file mode 100644
index 00000000..bc12577e
--- /dev/null
+++ b/testsuite/systemtap.examples/examples-index-gen.pl
@@ -0,0 +1,290 @@
+# Generates index files from examples .meta file info.
+# Copyright (C) 2008 Red Hat Inc.
+#
+# This file is part of systemtap, and is free software.  You can
+# redistribute it and/or modify it under the terms of the GNU General
+# Public License (GPL); either version 2, or (at your option) any
+# later version.
+
+use strict;
+use warnings;
+
+use File::Copy;
+use File::Find;
+use File::Path;
+use Text::Wrap;
+
+my $inputdir;
+if ($#ARGV >= 0) {
+    $inputdir = $ARGV[0];
+} else {
+    $inputdir = ".";
+}
+
+my $outputdir;
+if ($#ARGV >= 1) {
+    $outputdir = $ARGV[1];
+} else {
+    $outputdir = $inputdir;
+}
+
+my %scripts = ();
+print "Parsing .meta files in $inputdir...\n";
+find(\&parse_meta_files, $inputdir);
+
+my $meta;
+my $subsystem;
+my %subsystems;
+my $keyword;
+my %keywords;
+
+# Adds a formatted meta entry to a given file handle as text.
+sub add_meta_txt(*;$) {
+    my($file,$meta) = @_;
+
+    print $file "$scripts{$meta}{name} - $scripts{$meta}{title}\n";
+
+    print $file "output: $scripts{$meta}{output}, ";
+    print $file "exits: $scripts{$meta}{exit}, ";
+    print $file "status: $scripts{$meta}{status}\n";
+
+    print $file "subsystem: $scripts{$meta}{subsystem}, ";
+    print $file "keywords: $scripts{$meta}{keywords}\n\n";
+
+    $Text::Wrap::columns = 72;
+    my $description = wrap('  ', '  ', $scripts{$meta}{description});
+    print $file "$description\n\n\n";
+}
+
+# Adds a formatted meta entry to a given file handle as text.
+sub add_meta_html(*;$) {
+    my($file,$meta) = @_;
+
+    my $name = $scripts{$meta}{name};
+    print $file "<li><a href=\"$name\">$name</a> ";
+    print $file "- $scripts{$meta}{title}<br>\n";
+
+    print $file "output: $scripts{$meta}{output}, ";
+    print $file "exits: $scripts{$meta}{exit}, ";
+    print $file "status: $scripts{$meta}{status}<br>\n";
+
+    print $file "subsystem: $scripts{$meta}{subsystem}, ";
+    print $file "keywords: $scripts{$meta}{keywords}<br>\n";
+
+    print $file "<p>$scripts{$meta}{description}";
+    print $file "</p></li>\n";
+}
+
+my $HEADER = "SYSTEMTAP EXAMPLES INDEX\n"
+    . "(see also subsystem-index.txt, keyword-index.txt)\n\n";
+
+my $header_tmpl = "$inputdir/html_header.tmpl";
+open(TEMPLATE, "<$header_tmpl")
+    || die "couldn't open $header_tmpl, $!";
+my $HTMLHEADER = do { local $/;  <TEMPLATE> };
+close(TEMPLATE);
+my $footer_tmpl = "$inputdir/html_footer.tmpl";
+open(TEMPLATE, "<$footer_tmpl")
+    || die "couldn't open $footer_tmpl, $!";
+my $HTMLFOOTER = do { local $/;  <TEMPLATE> };
+close(TEMPLATE);
+
+# Output full index and collect subsystems and keywords
+my $fullindex = "$outputdir/index.txt";
+open (FULLINDEX, ">$fullindex")
+    || die "couldn't open $fullindex: $!";
+print "Creating $fullindex...\n";
+print FULLINDEX $HEADER;
+
+my $fullhtml = "$outputdir/index.html";
+open (FULLHTML, ">$fullhtml")
+    || die "couldn't open $fullhtml: $!";
+print "Creating $fullhtml...\n";
+print FULLHTML $HTMLHEADER;
+print FULLHTML "<h2>All Examples</h2>\n";
+print FULLHTML "<ul>\n";
+
+foreach $meta (sort keys %scripts) {
+
+    add_meta_txt(\*FULLINDEX, $meta);
+    add_meta_html(\*FULLHTML, $meta);
+
+    # Collect subsystems
+    foreach $subsystem (split(/ /, $scripts{$meta}{subsystem})) {
+	if (defined $subsystems{$subsystem}) {
+	    push(@{$subsystems{$subsystem}}, $meta);
+	} else {
+	    $subsystems{$subsystem} = [ $meta ];
+	}
+    }
+
+    # Collect keywords
+    foreach $keyword (split(/ /, $scripts{$meta}{keywords})) {
+	if (defined $keywords{$keyword}) {
+	    push(@{$keywords{$keyword}}, $meta);
+	} else {
+	    $keywords{$keyword} = [ $meta ];
+	}
+    }
+}
+print FULLHTML "</ul>\n";
+print FULLHTML $HTMLFOOTER;
+close (FULLINDEX);
+close (FULLHTML);
+
+my $SUBHEADER = "SYSTEMTAP EXAMPLES INDEX BY SUBSYSTEM\n"
+    . "(see also index.txt, keyword-index.txt)\n\n";
+
+# Output subsystem index
+my $subindex = "$outputdir/subsystem-index.txt";
+open (SUBINDEX, ">$subindex")
+    || die "couldn't open $subindex: $!";
+print "Creating $subindex...\n";
+print SUBINDEX $SUBHEADER;
+
+my $subhtml = "$outputdir/subsystem-index.html";
+open (SUBHTML, ">$subhtml")
+    || die "couldn't open $subhtml: $!";
+print "Creating $subhtml...\n";
+print SUBHTML $HTMLHEADER;
+print SUBHTML "<h2>Examples by Subsystem</h2>\n";
+
+foreach $subsystem (sort keys %subsystems) {
+    print SUBINDEX "= " . (uc $subsystem) . " =\n\n";
+    print SUBHTML "<h3>" . (uc $subsystem) . "</h3>\n";
+    print SUBHTML "<ul>\n";
+
+    foreach $meta (sort @{$subsystems{$subsystem}}) {
+	add_meta_txt(\*SUBINDEX,$meta);
+	add_meta_html(\*SUBHTML,$meta);
+    }
+    print SUBHTML "</ul>\n";
+}
+print SUBHTML $HTMLFOOTER;
+close (SUBINDEX);
+close (SUBHTML);
+
+my $KEYHEADER = "SYSTEMTAP EXAMPLES INDEX BY KEYWORD\n"
+    . "(see also index.txt, subsystem-index.txt)\n\n";
+
+# Output subsystem index
+my $keyindex = "$outputdir/keyword-index.txt";
+open (KEYINDEX, ">$keyindex")
+    || die "couldn't open $keyindex: $!";
+print "Creating $keyindex...\n";
+print KEYINDEX $KEYHEADER;
+
+my $keyhtml = "$outputdir/keyword-index.html";
+open (KEYHTML, ">$keyhtml")
+    || die "couldn't open $keyhtml: $!";
+print "Creating $keyhtml...\n";
+print KEYHTML $HTMLHEADER;
+print KEYHTML "<h2>Examples by Keyword</h2>\n";
+
+foreach $keyword (sort keys %keywords) {
+    print KEYINDEX "= " . (uc $keyword) . " =\n\n";
+    print KEYHTML "<h3>" . (uc $keyword) . "</h3>\n";
+    print KEYHTML "<ul>\n";
+
+    foreach $meta (sort @{$keywords{$keyword}}) {
+	add_meta_txt(\*KEYINDEX,$meta);
+	add_meta_html(\*KEYHTML,$meta);
+    }
+    print KEYHTML "</ul>\n";
+}
+print KEYHTML $HTMLFOOTER;
+close (KEYINDEX);
+close (KEYHTML);
+
+my @supportfiles
+    = ("systemtapcorner.gif",
+       "systemtap.css",
+       "systemtaplogo.png");
+if ($inputdir ne $outputdir) {
+    my $file;
+    print "Copying support files...\n";
+    foreach $file (@supportfiles) {
+	my $orig = "$inputdir/$file";
+	my $dest = "$outputdir/$file";
+	print "Copying $file to $dest...\n";
+	copy("$orig", $dest) or die "$file cannot be copied to $dest, $!";
+    }
+}
+
+sub parse_meta_files {
+    my $file = $_;
+    my $filename = $File::Find::name;
+
+    if (-f $file && $file =~ /\.meta$/) {
+	open FILE, $file or die "couldn't open '$file': $!\n";
+
+	print "Parsing $filename...\n";
+	
+	my $title;
+	my $name;
+	my $keywords;
+	my $subsystem;
+	my $status;
+	my $exit;
+	my $output;
+	my $description;
+	while (<FILE>) {
+	    if (/^title: (.*)/) { $title = $1; }
+	    if (/^name: (.*)/) { $name = $1; }
+	    if (/^keywords: (.*)/) { $keywords = $1; }
+	    if (/^subsystem: (.*)/) { $subsystem = $1; }
+	    if (/^status: (.*)/) { $status = $1; }
+	    if (/^exit: (.*)/) { $exit = $1; }
+	    if (/^output: (.*)/) { $output = $1; }
+	    if (/^description: (.*)/) { $description = $1; }
+	}
+	close FILE;
+
+	# Remove extra whitespace
+	$keywords =~ s/^\s*//;
+	$keywords =~ s/\s*$//;
+	$subsystem =~ s/^\s*//;
+	$subsystem =~ s/\s*$//;
+
+	# The subdir without the inputdir prefix, nor any slashes.
+	my $subdir = substr $File::Find::dir, (length $inputdir);
+	$subdir =~ s/^\///;
+	if ($subdir ne "") {
+	    $name = "$subdir/$name";
+	}
+
+	my $script = {
+	    name => $name,
+	    title => $title,
+	    keywords => $keywords,
+	    subsystem => $subsystem,
+	    status => $status,
+	    exit => $exit,
+	    output => $output,
+	    description => $description
+	};
+
+	# chop off the search dir prefix.
+	$inputdir =~ s/\/$//;
+	$meta = substr $filename, (length $inputdir) + 1;
+	$scripts{$meta} = $script;
+
+	# Put .stp script in output dir if necessary and create
+	# subdirs if they don't exist yet.
+	if ($inputdir ne $outputdir) {
+	    # The subdir without the inputdir prefix, nor any slashes.
+	    my $destdir = substr $File::Find::dir, (length $inputdir);
+	    $destdir =~ s/^\///;
+	    if ($subdir ne "") {
+		if (! -d "$outputdir/$subdir") {
+		    mkpath("$outputdir/$subdir", 1, 0711);
+		}
+	    }
+	    my $orig = substr $name, (length $subdir);
+	    $orig =~ s/^\///;
+	    my $dest = "$outputdir/$name";
+	    print "Copying $orig to $dest...\n";
+	    copy($orig, $dest) or die "$orig cannot be copied to $dest, $!";
+	}
+    }
+}
-- 
cgit 


From 210ff7bf228943abcc0399e6239d67462875d0db Mon Sep 17 00:00:00 2001
From: "Frank Ch. Eigler" <fche@elastic.org>
Date: Thu, 7 Aug 2008 16:58:42 -0400
Subject: PR6823: store generated sample index files

---
 testsuite/systemtap.examples/examples-index-gen.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 testsuite/systemtap.examples/examples-index-gen.pl

(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
old mode 100644
new mode 100755
index bc12577e..8e968159
--- a/testsuite/systemtap.examples/examples-index-gen.pl
+++ b/testsuite/systemtap.examples/examples-index-gen.pl
@@ -1,3 +1,4 @@
+#! /usr/bin/perl
 # Generates index files from examples .meta file info.
 # Copyright (C) 2008 Red Hat Inc.
 #
@@ -78,12 +79,12 @@ sub add_meta_html(*;$) {
 my $HEADER = "SYSTEMTAP EXAMPLES INDEX\n"
     . "(see also subsystem-index.txt, keyword-index.txt)\n\n";
 
-my $header_tmpl = "$inputdir/html_header.tmpl";
+my $header_tmpl = "$inputdir/html/html_header.tmpl";
 open(TEMPLATE, "<$header_tmpl")
     || die "couldn't open $header_tmpl, $!";
 my $HTMLHEADER = do { local $/;  <TEMPLATE> };
 close(TEMPLATE);
-my $footer_tmpl = "$inputdir/html_footer.tmpl";
+my $footer_tmpl = "$inputdir/html/html_footer.tmpl";
 open(TEMPLATE, "<$footer_tmpl")
     || die "couldn't open $footer_tmpl, $!";
 my $HTMLFOOTER = do { local $/;  <TEMPLATE> };
-- 
cgit 


From d6ff6e8c48f1d6bd1304fb5d23bcb8f6e35db6cd Mon Sep 17 00:00:00 2001
From: "Frank Ch. Eigler" <fche@elastic.org>
Date: Thu, 7 Aug 2008 17:04:16 -0400
Subject: remove chmod +x from perl script to avoid spurious build-time
 rpm-found prereq

---
 testsuite/systemtap.examples/examples-index-gen.pl | 0
 1 file changed, 0 insertions(+), 0 deletions(-)
 mode change 100755 => 100644 testsuite/systemtap.examples/examples-index-gen.pl

(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
old mode 100755
new mode 100644
-- 
cgit 


From 551a4f58263d6ce961658ba3b3d461c2f5046cb0 Mon Sep 17 00:00:00 2001
From: Mark Wielaard <mwielaard@redhat.com>
Date: Fri, 8 Aug 2008 13:29:55 +0200
Subject: Make sure examples indexes are always generated in builddir.

---
 testsuite/systemtap.examples/examples-index-gen.pl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 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 8e968159..726df973 100644
--- a/testsuite/systemtap.examples/examples-index-gen.pl
+++ b/testsuite/systemtap.examples/examples-index-gen.pl
@@ -10,6 +10,7 @@
 use strict;
 use warnings;
 
+use Cwd 'abs_path';
 use File::Copy;
 use File::Find;
 use File::Path;
@@ -21,6 +22,7 @@ if ($#ARGV >= 0) {
 } else {
     $inputdir = ".";
 }
+$inputdir = abs_path($inputdir);
 
 my $outputdir;
 if ($#ARGV >= 1) {
@@ -28,6 +30,7 @@ if ($#ARGV >= 1) {
 } else {
     $outputdir = $inputdir;
 }
+$outputdir = abs_path($outputdir);
 
 my %scripts = ();
 print "Parsing .meta files in $inputdir...\n";
@@ -198,17 +201,21 @@ close (KEYINDEX);
 close (KEYHTML);
 
 my @supportfiles
-    = ("systemtapcorner.gif",
-       "systemtap.css",
-       "systemtaplogo.png");
+    = ("html/systemtapcorner.gif",
+       "html/systemtap.css",
+       "html/systemtaplogo.png",
+       "README");
 if ($inputdir ne $outputdir) {
     my $file;
     print "Copying support files...\n";
+    if (! -d "$outputdir/html") {
+	mkpath("$outputdir/html", 1, 0711);
+    }
     foreach $file (@supportfiles) {
 	my $orig = "$inputdir/$file";
 	my $dest = "$outputdir/$file";
 	print "Copying $file to $dest...\n";
-	copy("$orig", $dest) or die "$file cannot be copied to $dest, $!";
+	copy($orig, $dest) or die "$file cannot be copied to $dest, $!";
     }
 }
 
-- 
cgit 


From 03e73903d46c54ed0a1e1a06ed4c21b6570fda9e Mon Sep 17 00:00:00 2001
From: Mark Wielaard <mwielaard@redhat.com>
Date: Fri, 8 Aug 2008 15:30:08 +0200
Subject: Don't output output, exits, status line in indexes (mentioned in
 descriptions).

---
 testsuite/systemtap.examples/examples-index-gen.pl | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 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 726df973..e105f3fc 100644
--- a/testsuite/systemtap.examples/examples-index-gen.pl
+++ b/testsuite/systemtap.examples/examples-index-gen.pl
@@ -48,11 +48,12 @@ sub add_meta_txt(*;$) {
 
     print $file "$scripts{$meta}{name} - $scripts{$meta}{title}\n";
 
-    print $file "output: $scripts{$meta}{output}, ";
-    print $file "exits: $scripts{$meta}{exit}, ";
-    print $file "status: $scripts{$meta}{status}\n";
+    # Don't output these, the description mentions all these in general.
+    #print $file "output: $scripts{$meta}{output}, ";
+    #print $file "exits: $scripts{$meta}{exit}, ";
+    #print $file "status: $scripts{$meta}{status}\n";
 
-    print $file "subsystem: $scripts{$meta}{subsystem}, ";
+    print $file "subsystems: $scripts{$meta}{subsystem}, ";
     print $file "keywords: $scripts{$meta}{keywords}\n\n";
 
     $Text::Wrap::columns = 72;
@@ -68,11 +69,12 @@ sub add_meta_html(*;$) {
     print $file "<li><a href=\"$name\">$name</a> ";
     print $file "- $scripts{$meta}{title}<br>\n";
 
-    print $file "output: $scripts{$meta}{output}, ";
-    print $file "exits: $scripts{$meta}{exit}, ";
-    print $file "status: $scripts{$meta}{status}<br>\n";
+    # Don't output these, the description mentions all these in general.
+    #print $file "output: $scripts{$meta}{output}, ";
+    #print $file "exits: $scripts{$meta}{exit}, ";
+    #print $file "status: $scripts{$meta}{status}<br>\n";
 
-    print $file "subsystem: $scripts{$meta}{subsystem}, ";
+    print $file "subsystems: $scripts{$meta}{subsystem}, ";
     print $file "keywords: $scripts{$meta}{keywords}<br>\n";
 
     print $file "<p>$scripts{$meta}{description}";
-- 
cgit 


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