michael@0: use File::Spec;
michael@0: 
michael@0: my(@chunks, @list, $entry, $main_cats, $spacing);
michael@0: @list = ('conf', 'perf');
michael@0: foreach $entry (@list) {
michael@0:     $main_cats .= "     <rdf:li><rdf:Description about=\"urn:x-buster:$entry\" nc:dir=\"$entry\" /></rdf:li>\n";
michael@0:     go_in($entry, '', $entry);
michael@0: }
michael@0: if ($ARGV[0]) {
michael@0:     open OUTPUT, ">$ARGV[0]";
michael@0: }
michael@0: else {
michael@0:     open OUTPUT, ">xalan.rdf";
michael@0: };
michael@0: select(OUTPUT);
michael@0: print '<?xml version="1.0"?>
michael@0: 
michael@0: <rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
michael@0:          xmlns:nc="http://home.netscape.com/NC-rdf#">
michael@0:   <rdf:Seq about="urn:root">
michael@0: ' . $main_cats . '  </rdf:Seq>
michael@0: ';
michael@0: print join('',@chunks);
michael@0: print '</rdf:RDF>
michael@0: ';
michael@0: exit 0;
michael@0: 
michael@0: sub go_in {
michael@0:     my($current, $about, $cat) = @_;
michael@0:     my (@list, $entry, @subdirs, @files, @purps, $rdf);
michael@0:     chdir $current;
michael@0:     @list = <*>;
michael@0:     
michael@0:     LOOP: foreach $entry (@list) {
michael@0:         next LOOP if $entry=~/^CVS$/;
michael@0:         if (! -d $entry) {
michael@0:             if ($entry=~/^($current.*)\.xsl$/) {
michael@0: 		local $source = $entry;
michael@0: 		$source=~s/xsl$/xml/;
michael@0: 		next LOOP if ! -f $source;
michael@0: 		$entry=~/^($current.*)\.xsl$/;
michael@0:                 push(@files, $1);
michael@0:                 local ($purp, $purp_open);
michael@0:                 open STYLE, $entry;
michael@0:                 $purp_open = 0;
michael@0:                 while (<STYLE>) {
michael@0:                     if (/<!--\s+purpose: (.+)\s*-->/i) {
michael@0:                         $purp .= $1;
michael@0:                     }
michael@0:                     elsif (/<!--\s+purpose: (.+)\s*$/i) {
michael@0:                         $purp_open = 1;
michael@0:                         $purp .= $1;
michael@0:                     }
michael@0:                     elsif ($purp_open) {
michael@0:                         if (/\s*(\s.+)\s*-->/) {
michael@0:                             $purp_open = 0;
michael@0:                             $purp .= $1;
michael@0:                         }
michael@0:                         elsif (/\s*(\s.+)\s*$/) {
michael@0:                             $purp .= $1;
michael@0:                         }
michael@0:                     }
michael@0:                 }
michael@0:                 $purp=~s/"/'/g; $purp=~s/&/&amp;/g; $purp=~s/</&lt;/g;
michael@0:                 $purp=~s/\r/ /g; $purp=~s/\s\s/ /g; $purp=~s/\s$//g;
michael@0:                 push(@purps, $purp);
michael@0:             }
michael@0:         }
michael@0:         else {
michael@0:             push(@subdirs, $entry);
michael@0:         }
michael@0:     }
michael@0: 
michael@0:     if (@subdirs > 0 || @files > 0) {
michael@0:         my $topic = $about.$current; $topic=~s/\///g;
michael@0:         $rdf = '  <rdf:Seq about="urn:x-buster:'.$topic."\">\n";
michael@0:         foreach $entry (@subdirs) {
michael@0:             if (go_in($entry, $about.$current.'/', $cat)) {
michael@0:                 my $id = 'urn:x-buster:'.$about.$current.$entry; $id=~s/\///g;
michael@0:                 $rdf .= "    <rdf:li><rdf:Description about=\"$id\" nc:dir=\"$entry\" /></rdf:li>\n";
michael@0:             }
michael@0:         }
michael@0:         for (my $i=0; $i < @files; $i++) {
michael@0:             my $uri = $about.$current.'/'.$files[$i];
michael@0:             $uri=~s/[^\/]+\///;
michael@0:             my $id = $uri; $id=~s/\///g;
michael@0:             $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";
michael@0:         }
michael@0:         $rdf .= "  </rdf:Seq>\n";
michael@0:         push(@chunks, $rdf);
michael@0:     }
michael@0: 
michael@0:     chdir File::Spec->updir;
michael@0:     return (@subdirs > 0 || @files > 0);
michael@0: }