working turtle

tortue.xsl

@@ -1,8 +1,117 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<xsl:transform version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-  xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.w3.org/1999/xhtml">
+<xsl:transform version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
   <xsl:output indent="yes" />
 
-  <!-- TODO : Anri -->
+  <xsl:param name="nom" />
+  <xsl:param name="n" />
+
+  <!-- Pour le Lsystem -->
+  <xsl:template match="lsystem">
+    <tortue>
+      <xsl:call-template name="substitution">
+        <xsl:with-param name="actuel" select="axiom" />
+        <xsl:with-param name="n" select="$n" />
+      </xsl:call-template>
+    </tortue>
+  </xsl:template>
+
+  <!-- Substitution -->
+  <xsl:template name="substitution">
+    <xsl:param name="actuel" />
+    <xsl:param name="n" />
+    <!-- Si on doit encore substituer -->
+    <xsl:choose>
+      <xsl:when test="$n > 0">
+        <!-- Applique la substitution -->
+        <xsl:variable name="data">
+          <xsl:call-template name="Application">
+            <xsl:with-param name="data" select="$actuel" />
+          </xsl:call-template>
+        </xsl:variable>
+
+        <!-- Appel récursif -->
+      <xsl:call-template
+          name="substitution">
+          <xsl:with-param name="actuel" select="$data" />
+          <xsl:with-param name="n" select="$n - 1" />
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <!-- Interprétation -->
+        <xsl:call-template name="Interpretation">
+          <xsl:with-param name="data" select="$actuel" />
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- Applique la substitution -->
+  <xsl:template name="Application">
+    <xsl:param name="data" />
+    <xsl:variable name="substitution" select="substitutions/substitution" />
+    <xsl:analyze-string
+      select="$data" regex=".">
+      <xsl:matching-substring>
+        <xsl:value-of select="$substitution[@member = current()]" />
+      </xsl:matching-substring>
+    </xsl:analyze-string>
+  </xsl:template>
+
+  <!-- Interprète la séquence -->
+  <xsl:template name="Interpretation">
+    <xsl:param name="data" />
+    <xsl:variable name="interpretation"
+      select="interpretations/interpretation" />
+    <xsl:analyze-string
+      select="$data" regex=".">
+      <xsl:matching-substring>
+        <xsl:variable name="action"
+          select="$interpretation[@member = current()]" />
+        <xsl:choose>
+          <!-- Déplacer -->
+          <xsl:when test="matches($action, '^LINE \d+$')">
+            <move>
+              <xsl:value-of select="substring-after($action, 'LINE ')" />
+            </move>
+          </xsl:when>
+
+          <!-- Tourner -->
+          <xsl:when test="matches($action, '^TURN -?\d+$')">
+            <turn>
+              <xsl:value-of select="substring-after($action, 'TURN ')" />
+            </turn>
+          </xsl:when>
+
+          <!-- Store -->
+          <xsl:when test="$action = 'STORE'">
+            <store />
+          </xsl:when>
+
+          <!-- Restore -->
+          <xsl:when test="$action = 'RESTORE'">
+            <restore />
+          </xsl:when>
+
+          <!-- Debug -->
+          <!-- <xsl:otherwise>
+            <action>
+              <xsl:value-of select="$interpretation[@member = current()]" />
+            </action>
+          </xsl:otherwise> -->
+        </xsl:choose>
+      </xsl:matching-substring>
+    </xsl:analyze-string>
+  </xsl:template>
+
+
+  <!-- On récupère le Lsystem qui nous intéresse -->
+  <xsl:template match="/">
+    <xsl:processing-instruction name="xml-model">
+      href="tortue.xsd"
+    </xsl:processing-instruction>
+
+    <xsl:apply-templates
+      select="lsystems/lsystem[name=$nom]" />
+  </xsl:template>
 
 </xsl:transform>