#!/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 "; 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') { $line =~ s/[^<>]*>//; $printing = 'true'; } if( $printing eq 'false' ) { if( $line =~ /OperatorScript/ ) { #if($line =~ />$/) if($line =~ />/) { $printing = 'true'; } else { $printing = 'notyet'; } } } elsif( $printing eq 'true' ) { if( $line =~ /<\/[^>]*OperatorScript>/ ) { #print "Printing Status: $printing, Line: $line\n"; return; } $line =~ s//

/; $line =~ s/<\/Paragraph>/<\/p>/; print TEST $line; #print "Printing Status: $printing, Line: $line\n"; #$_ = ; } } 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 "Tiny 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/$thisTest.html"; $header=$htmlToTitle; $svggenRef=" \n"; printHtml(); } sub generateHtmlObjectTest { print "Processing: $thisTest\n"; $filename="../htmlObjectHarness/$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 tiny harness\n"; $height="360"; $width="480"; # $indexName="tiny-index"; $indexName="index"; $pfx = $tinyPFX; @data = @tinyData; generateHarness(); } mkdir '../htmlEmbedHarness', 0777; mkdir '../htmlObjectHarness', 0777; mkdir '../svgHarness', 0777; createListings(); generate(); makeIndexes();