1 files changed, 137 insertions, 0 deletions
diff --git a/src/current/compiler/fragments.xsl b/src/current/compiler/fragments.xsl
new file mode 100644
index 0000000..8ea6024
--- /dev/null
+++ b/src/current/compiler/fragments.xsl
@@ -0,0 +1,137 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<!--
+  Compiles rater XML into JavaScript
+
+  This stylesheet should be included by whatever is doing the processing and is
+  responsible for outputting the generated code in whatever manner is
+  appropriate (inline JS, a file, etc).
+-->
+
+<xsl:stylesheet version="2.0"
+  xmlns="http://www.w3.org/1999/xhtml"
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  xmlns:lv="http://www.lovullo.com/rater"
+  xmlns:c="http://www.lovullo.com/calc"
+  xmlns:preproc="http://www.lovullo.com/rater/preproc">
+
+
+<xsl:template match="lv:package" mode="preproc:compile-fragments">
+  <xsl:copy>
+    <xsl:sequence select="@*, *" />
+
+    <!-- compile each fragment in the symbol table -->
+    <preproc:fragments>
+      <xsl:for-each select="preproc:symtable/preproc:sym">
+        <xsl:variable name="result">
+          <xsl:apply-templates select="." mode="preproc:compile-fragments" />
+        </xsl:variable>
+
+        <xsl:if test="$result != ''">
+          <preproc:fragment id="{@name}">
+            <xsl:value-of select="$result" />
+          </preproc:fragment>
+        </xsl:if>
+      </xsl:for-each>
+    </preproc:fragments>
+  </xsl:copy>
+</xsl:template>
+
+
+<xsl:template match="preproc:sym[ @src ]" mode="preproc:compile-fragments" priority="9">
+  <!-- do not compile external symbols -->
+</xsl:template>
+
+<xsl:template match="preproc:sym" mode="preproc:compile-fragments" priority="1">
+  <xsl:message terminate="yes">
+    <xsl:text>[jsc] fatal: unknown symbol type for `</xsl:text>
+      <xsl:value-of select="@name" />
+    <xsl:text>': </xsl:text>
+    <xsl:value-of select="@type" />
+  </xsl:message>
+</xsl:template>
+
+
+<xsl:template match="preproc:sym[ @type='rate' ]" mode="preproc:compile-fragments" priority="5">
+  <xsl:variable name="name" select="@name" />
+  <xsl:variable name="pkg" as="element( lv:package )"
+                select="root(.)" />
+
+  <!-- could be one of two places -->
+  <xsl:apply-templates mode="compile" select="
+    $pkg/lv:rate[ @yields=$name ]
+    , $pkg/lv:rate-group/lv:rate[ @yields=$name ]
+   " />
+</xsl:template>
+<xsl:template match="preproc:sym[ @type='gen' ]" mode="preproc:compile-fragments" priority="5">
+  <!-- compiled by above -->
+</xsl:template>
+
+<xsl:template match="preproc:sym[ @type='class' ]" mode="preproc:compile-fragments" priority="5">
+  <!-- name is prefixed with :class: -->
+  <xsl:variable name="as" select="substring-after( @name, ':class:' )" />
+  <xsl:variable name="pkg" as="element( lv:package )"
+                select="root(.)" />
+
+  <xsl:apply-templates select="$pkg/lv:classify[ @as=$as ]" mode="compile" />
+</xsl:template>
+<xsl:template match="preproc:sym[ @type='cgen' ]" mode="preproc:compile-fragments" priority="5">
+  <!-- compiled by above -->
+</xsl:template>
+
+<xsl:template match="preproc:sym[ @type='func' ]" mode="preproc:compile-fragments" priority="5">
+  <xsl:variable name="name" select="@name" />
+  <xsl:variable name="pkg" as="element( lv:package )"
+                select="root(.)" />
+
+  <xsl:apply-templates select="$pkg/lv:function[ @name=$name ]" mode="compile" />
+</xsl:template>
+
+<xsl:template match="preproc:sym[ @type='param' ]" mode="preproc:compile-fragments" priority="5">
+  <xsl:variable name="name" select="@name" />
+  <xsl:variable name="pkg" as="element( lv:package )"
+                select="root(.)" />
+
+  <xsl:apply-templates select="$pkg/lv:param[ @name=$name ]" mode="compile" />
+</xsl:template>
+
+<xsl:template match="preproc:sym[ @type='type' ]" mode="preproc:compile-fragments" priority="5">
+  <xsl:variable name="name" select="@name" />
+  <xsl:variable name="pkg" as="element( lv:package )"
+                select="root(.)" />
+
+  <!-- a typedef can stand on its own or exist within another typedef -->
+  <xsl:apply-templates mode="compile" select="
+      $pkg/lv:typedef[ @name=$name ]
+      , $pkg//lv:typedef//lv:typedef[ @name=$name ]
+    " />
+</xsl:template>
+
+<xsl:template match="preproc:sym[ @type='const' ]" mode="preproc:compile-fragments" priority="5">
+  <xsl:variable name="name" select="@name" />
+  <xsl:variable name="pkg" as="element( lv:package )"
+                select="root(.)" />
+
+  <xsl:apply-templates select="$pkg/lv:const[ @name=$name ]" mode="compile" />
+</xsl:template>
+
+<xsl:template match="preproc:sym[ @type='tpl' ]" mode="preproc:compile-fragments" priority="5">
+  <!-- templates are for the preprocessor only -->
+</xsl:template>
+
+<xsl:template match="preproc:sym[ @type='lparam' ]" mode="preproc:compile-fragments" priority="5">
+  <!-- they're local and therefore compiled as part of the containing block -->
+</xsl:template>
+
+<xsl:template match="preproc:sym[ @type='meta' ]"
+              mode="preproc:compile-fragments" priority="5">
+  <xsl:variable name="name" select="substring-after( @name, ':meta:' )" />
+  <xsl:variable name="pkg" as="element( lv:package )"
+                select="root(.)" />
+
+  <xsl:variable name="node" as="element( lv:prop )"
+                select="$pkg/lv:meta/lv:prop[ @name=$name ]" />
+  <xsl:apply-templates mode="compile"
+                       select="$node" />
+</xsl:template>
+
+</xsl:stylesheet>