Support a new pointer-type attribute abbreviation on containers.

splintermind · Jul 21, 2012 · ea74f68 · ea74f68
1 parent 28bafd2
commit ea74f68
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 3 deletions.
diff --git a/df.world.xml b/df.world.xml
@@ -431,9 +431,7 @@
         --  Entities
 
         <compound name='entities'>
-            <stl-vector name='all'>
-                <pointer type-name='historical_entity'/>
-            </stl-vector>
+            <stl-vector name='all' pointer-type='historical_entity'/>
 
             <stl-vector name='bad' has-bad-pointers='true'>
                 <pointer type-name='historical_entity'/>

diff --git a/lower-1.xslt b/lower-1.xslt
@@ -206,6 +206,19 @@
         <xsl:param name='level' select='-1'/>
         <xsl:attribute name='ld:is-container'>true</xsl:attribute>
         <xsl:choose>
+            <xsl:when test='@pointer-type'>
+                <ld:field ld:meta='pointer' ld:is-container='true'>
+                    <xsl:attribute name='ld:level'><xsl:value-of select='$level'/></xsl:attribute>
+                    <xsl:attribute name='type-name'><xsl:value-of select='@pointer-type'/></xsl:attribute>
+                    <ld:field>
+                        <xsl:call-template name='lookup-type-ref'>
+                            <xsl:with-param name='name' select="@pointer-type"/>
+                            <xsl:with-param name="level" select="$level+1"/>
+                        </xsl:call-template>
+                    </ld:field>
+                </ld:field>
+                <xsl:apply-templates select='node()'/>
+            </xsl:when>
             <xsl:when test='@type-name'>
                 <ld:field>
                     <xsl:call-template name='lookup-type-ref'>