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}}==

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">include</span> <span style="color: #000000;">builtins</span><span style="color: #0000FF;">\</span><span style="color: #000000;">xml</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\nAt time = 2:\n\n"</span><span style="color: #0000FF;">)</span>

<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">xml_sprint</span><span style="color: #0000FF;">(</span><span style="color: #000000;">animate</span><span style="color: #0000FF;">(</span><span style="color: #000000;">doc</span><span style="color: #0000FF;">,</span><span style="color: #000000;">2</span><span style="color: #0000FF;">)))</span>

{{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}}