Process SMIL directives in XML data: Difference between revisions

The task is to create an utility that given the first Smiled XML file, would return the following ones:

 

<smil>

<X3D>

</Scene>

</X3D>

 

At t = 0 second here is the expected output:

 

<X3D>

<Scene>

</Shape>

</Scene>

 

At t = 2 second here is the expected output:

 

<X3D>

<Scene>

</Shape>

</Scene>

 

=={{header|Go}}==

{{libheader|etree}}

 

import (

fmt.Println()

}

 

{{out}}

 

=={{header|Nim}}==

 

type

echo xmlHeader, newRoot.buildXml(0)

echo "\nAt time 2 seconds:\n"

 

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

 

use 5.014; # for s///r;

print "when t = $t\n";

print $clone->sprint,"\n";

{{out}}

<pre>when t = 0

 

=={{header|Phix}}==

{{out}}

<pre>

(formerly Perl 6)

A crude attempt that only works with task data.

 

my $smil = q:to<DATA>; # cramped verison, modified from task data

say "when t = ", $t;

say $clone.find("/");

{{out}}

<pre>when t = 0

{{works with|Tcl|8.6}}

{{libheader|tDOM}}

package require tdom

 

set result [applySMILtransform [dom parse [read stdin]] $t]

puts {<?xml version="1.0" ?>}

{{out|Demonstration}}

Note that <tt>input.smil</tt> contains the source document from the task description.

{{libheader|Wren-pattern}}

As Wren lacks any kind of XML support (let alone SMIL), I've had to resort to string parsing to complete this task.

 

var xml = """

System.print(xml2)

System.print()

 

{{out}}