#!/usr/bin/perl # # $Revision: 1.4 $ # $SVGToFilename="\n\n\n\n\n\n\n\n\n\n\n\n \n\n"; print TEST "\n"; print TEST "\n"; print TEST "\n"; print TEST "\n "; print TEST "\n "; print TEST "\n "; print TEST "\n "; print TEST "\n $thisTest"; print TEST "\n "; print TEST "\n SVG Image"; print TEST "\n "; print TEST "\n PNG Image"; print TEST "\n "; #print TEST "\n "; #print TEST "\n "; print TEST "\n "; print TEST "\n "; print TEST "\n Previous"; print TEST "\n "; print TEST "\n "; print TEST "\n No Nav"; print TEST "\n "; print TEST "\n "; print TEST "\n Next"; print TEST "\n "; if( $thisProfile eq 't' ) { if( $pfx eq "full-" ) { print TEST "\n Full"; print TEST "\n "; print TEST "\n Basic"; print TEST "\n "; print TEST "\n "; print TEST "\n Tiny"; print TEST "\n "; } if( $pfx eq "basic-" ) { print TEST "\n "; print TEST "\n Full"; print TEST "\n "; print TEST "\n Basic"; print TEST "\n "; print TEST "\n Tiny"; print TEST "\n "; } if( $pfx eq "tiny-" ) { print TEST "\n "; print TEST "\n Full"; print TEST "\n "; print TEST "\n "; print TEST "\n Basic"; print TEST "\n "; } } if( $thisProfile eq 'b' ) { if( $pfx eq "full-" ) { print TEST "\n Full"; print TEST "\n "; print TEST "\n Basic"; print TEST "\n "; print TEST "\n Tiny"; } if( $pfx eq "basic-" ) { print TEST "\n "; print TEST "\n Full"; print TEST "\n "; print TEST "\n Basic"; print TEST "\n Tiny"; } } if( $thisProfile eq 'f' ) { print TEST "\n Full"; print TEST "\n Basic"; print TEST "\n Tiny"; } print TEST "\n "; print TEST "\n "; #print TEST "\n "; print TEST "\n"; } sub printOperatorScript { my @lines = `cat ../svg/$thisTest.svg`; my $printing = 'false'; foreach $line ( @lines ) { if( $printing eq 'notyet') { #print "\nBefore trim: $line"; $line =~ s/[^<>]*>//; #print "\nTrimmed line: $line"; $printing = 'true'; } if( $printing eq 'false' ) { if( $line =~ /OperatorScript/ ) { #print "\nFound: $line"; if($line =~ />$/) { $printing = 'true'; } else { $printing = 'notyet'; } } } elsif( $printing eq 'true' ) { if( $line =~ /<\/[^>]*OperatorScript>/ ) { return; } $line =~ s//

/; $line =~ s/<\/Paragraph>/<\/p>/; print TEST $line; } } print "\nERROR transcribing operator script in file $thisTest.svg\n"; } sub printHtml { open TEST, ">$filename"; print TEST $header; print TEST "SVG 1.2 Tiny test:$thisTest"; print TEST $htmlToBody; print TEST "\n

\n"; if( $thisProfile eq 't' ) { print TEST "

\n"; #print TEST "Full version, "; #print TEST "Basic version, "; print TEST "Tiny version"; print TEST "

\n"; } #if( $thisProfile eq 'b' ) #{ #print TEST "

\n"; #print TEST "Full version, "; #print TEST "Basic version"; #print TEST "

\n"; #} print TEST "

Specification link: $thisSection $thisComment

\n"; print TEST "

\n"; print TEST " $lastTest ← \n"; print TEST " index\n"; print TEST " → $nextTest\n"; print TEST "

\n"; print TEST "\n \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST "
\n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST " \n"; print TEST "
\n"; print TEST "

$thisTest

\n"; print TEST "
\n"; print TEST " SVG Image\n"; print TEST " \n"; print TEST " PNG Image\n"; print TEST "
\n"; print TEST $svggenRef; print TEST " \n"; print TEST " \"raster\n"; print TEST "
\n"; print TEST "
\n"; print TEST "\n \n
\n"; printOperatorScript; print TEST $content; print TEST "\n
\n"; print TEST "

\n"; print TEST " $lastTest ←\n"; print TEST " index\n"; print TEST " → $nextTest\n"; print TEST "

\n"; print TEST "\n\n"; close TEST; } sub generateHtmlEmbedTest { $filename="../htmlEmbedHarness/$pfx$thisTest.html"; $header=$htmlToTitle; $svggenRef=" \n"; printHtml(); } sub generateHtmlObjectTest { $filename="../htmlObjectHarness/$pfx$thisTest.html"; $header=$htmlObjectToTitle; $svggenRef="

FAIL

\n"; printHtml(); } sub generateHarness { $index = '0'; while( $index <= $#data ) { if( $index == 0 ) { setLast $data[$#data]; setNext $data[$index+1]; } elsif( $index == $#data ) { setLast $data[$index-1]; setNext $data[0]; } else { setLast $data[$index-1]; setNext $data[$index+1]; } $line = $data[$index]; splitManifestLine; generateHtmlEmbedTest; generateHtmlObjectTest; generateSVGTest; ++$index; } } sub generate { #print "generating full harness\n"; #$height="360"; #$width="480"; #$indexName="full-index"; #$pfx = $fullPFX; #@data = @fullData; #generateHarness(); #print "generating basic harness\n"; #$height="120"; #$width="160"; #$indexName="basic-index"; #$pfx = $basicPFX; #@data = @basicData; #generateHarness(); print "generating tiny harness\n"; $height="360"; $width="480"; $indexName="tiny-index"; $pfx = $tinyPFX; @data = @tinyData; generateHarness(); } mkdir '../htmlEmbedHarness', 0777; mkdir '../htmlObjectHarness', 0777; mkdir '../svgHarness', 0777; #copyFiles(); createListings(); generate(); makeIndexes();