1 files changed, 95 insertions, 0 deletions
diff --git a/dom/xslt/tests/buster/helper/generate-rdf.pl b/dom/xslt/tests/buster/helper/generate-rdf.pl
new file mode 100644
index 000000000..c2bdc7b92
--- /dev/null
+++ b/dom/xslt/tests/buster/helper/generate-rdf.pl
@@ -0,0 +1,95 @@
+use File::Spec;
+
+my(@chunks, @list, $entry, $main_cats, $spacing);
+@list = ('conf', 'perf');
+foreach $entry (@list) {
+    $main_cats .= "     <rdf:li><rdf:Description about=\"urn:x-buster:$entry\" nc:dir=\"$entry\" /></rdf:li>\n";
+    go_in($entry, '', $entry);
+}
+if ($ARGV[0]) {
+    open OUTPUT, ">$ARGV[0]";
+}
+else {
+    open OUTPUT, ">xalan.rdf";
+};
+select(OUTPUT);
+print '<?xml version="1.0"?>
+
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+         xmlns:nc="http://home.netscape.com/NC-rdf#">
+  <rdf:Seq about="urn:root">
+' . $main_cats . '  </rdf:Seq>
+';
+print join('',@chunks);
+print '</rdf:RDF>
+';
+exit 0;
+
+sub go_in {
+    my($current, $about, $cat) = @_;
+    my (@list, $entry, @subdirs, @files, @purps, $rdf);
+    chdir $current;
+    @list = <*>;
+    
+    LOOP: foreach $entry (@list) {
+        next LOOP if $entry=~/^CVS$/;
+        if (! -d $entry) {
+            if ($entry=~/^($current.*)\.xsl$/) {
+		local $source = $entry;
+		$source=~s/xsl$/xml/;
+		next LOOP if ! -f $source;
+		$entry=~/^($current.*)\.xsl$/;
+                push(@files, $1);
+                local ($purp, $purp_open);
+                open STYLE, $entry;
+                $purp_open = 0;
+                while (<STYLE>) {
+                    if (/<!--\s+purpose: (.+)\s*-->/i) {
+                        $purp .= $1;
+                    }
+                    elsif (/<!--\s+purpose: (.+)\s*$/i) {
+                        $purp_open = 1;
+                        $purp .= $1;
+                    }
+                    elsif ($purp_open) {
+                        if (/\s*(\s.+)\s*-->/) {
+                            $purp_open = 0;
+                            $purp .= $1;
+                        }
+                        elsif (/\s*(\s.+)\s*$/) {
+                            $purp .= $1;
+                        }
+                    }
+                }
+                $purp=~s/"/'/g; $purp=~s/&/&amp;/g; $purp=~s/</&lt;/g;
+                $purp=~s/\r/ /g; $purp=~s/\s\s/ /g; $purp=~s/\s$//g;
+                push(@purps, $purp);
+            }
+        }
+        else {
+            push(@subdirs, $entry);
+        }
+    }
+
+    if (@subdirs > 0 || @files > 0) {
+        my $topic = $about.$current; $topic=~s/\///g;
+        $rdf = '  <rdf:Seq about="urn:x-buster:'.$topic."\">\n";
+        foreach $entry (@subdirs) {
+            if (go_in($entry, $about.$current.'/', $cat)) {
+                my $id = 'urn:x-buster:'.$about.$current.$entry; $id=~s/\///g;
+                $rdf .= "    <rdf:li><rdf:Description about=\"$id\" nc:dir=\"$entry\" /></rdf:li>\n";
+            }
+        }
+        for (my $i=0; $i < @files; $i++) {
+            my $uri = $about.$current.'/'.$files[$i];
+            $uri=~s/[^\/]+\///;
+            my $id = $uri; $id=~s/\///g;
+            $rdf .= "    <rdf:li><rdf:Description about=\"urn:x-buster:$files[$i]\" nc:name=\"$files[$i]\" nc:purp=\"$purps[$i]\" nc:path=\"$uri\" nc:category=\"$cat\" /></rdf:li>\n";
+        }
+        $rdf .= "  </rdf:Seq>\n";
+        push(@chunks, $rdf);
+    }
+
+    chdir File::Spec->updir;
+    return (@subdirs > 0 || @files > 0);
+}