summaryrefslogtreecommitdiffstats
path: root/dom/xslt/tests/buster/helper
diff options
context:
space:
mode:
authorMatt A. Tobin <mattatobin@localhost.localdomain>2018-02-02 04:16:08 -0500
committerMatt A. Tobin <mattatobin@localhost.localdomain>2018-02-02 04:16:08 -0500
commit5f8de423f190bbb79a62f804151bc24824fa32d8 (patch)
tree10027f336435511475e392454359edea8e25895d /dom/xslt/tests/buster/helper
parent49ee0794b5d912db1f95dce6eb52d781dc210db5 (diff)
downloadUXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar
UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar.gz
UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar.lz
UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar.xz
UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.zip
Add m-esr52 at 52.6.0
Diffstat (limited to 'dom/xslt/tests/buster/helper')
-rw-r--r--dom/xslt/tests/buster/helper/generate-rdf.pl95
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);
+}