You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
276 lines
8.1 KiB
276 lines
8.1 KiB
<?xml version="1.0"?>
|
|
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
|
|
<xsl:output method="text"/>
|
|
|
|
<xsl:template match="/">
|
|
<xsl:text><![CDATA[
|
|
#include <libxml/parser.h>
|
|
#include <libxml/tree.h>
|
|
#include <libxml/xpath.h>
|
|
#include <libxml/xpathInternals.h>
|
|
]]>
|
|
</xsl:text>
|
|
<xsl:call-template name="serializer"/>
|
|
<xsl:apply-templates select="tests/test"/>
|
|
<xsl:text>
|
|
|
|
int main(int argc, char **argv) {
</xsl:text>
|
|
<xsl:apply-templates select="tests/test" mode="call"/>
|
|
<xsl:text>
|
|
/* printf("finished.\n"); */
|
|
return (0);
|
|
}
|
|
</xsl:text>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="tests/test" mode="call">
|
|
<xsl:text> nsTest_</xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text>();
</xsl:text>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="xml-text">
|
|
<xsl:param name="text"/>
|
|
<xsl:call-template name="replace-string">
|
|
<!-- Substitute #10 for " -->
|
|
<xsl:with-param name="from" select="' '"/>
|
|
<xsl:with-param name="to" select="'" "'"/>
|
|
<xsl:with-param name="text">
|
|
<xsl:call-template name="replace-string">
|
|
<!-- Substitute " for \" -->
|
|
<xsl:with-param name="from" select="'"'"/>
|
|
<xsl:with-param name="to" select="'\"'"/>
|
|
<xsl:with-param name="text">
|
|
<xsl:call-template name="replace-string">
|
|
<!-- Remove tabs. -->
|
|
<xsl:with-param name="from" select="'	'"/>
|
|
<xsl:with-param name="to" select="''"/>
|
|
<xsl:with-param name="text" select="$text"/>
|
|
</xsl:call-template>
|
|
</xsl:with-param>
|
|
</xsl:call-template>
|
|
</xsl:with-param>
|
|
</xsl:call-template>
|
|
|
|
</xsl:template>
|
|
|
|
<xsl:template match="doc" mode="define">
|
|
<xsl:text> xmlDocPtr </xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text>;
</xsl:text>
|
|
<xsl:text> const char * </xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text>_str = "</xsl:text>
|
|
<xsl:call-template name="xml-text">
|
|
<xsl:with-param name="text" select="."/>
|
|
</xsl:call-template>
|
|
<xsl:text>";
</xsl:text>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="expected" mode="define">
|
|
<xsl:text> const char * </xsl:text>
|
|
<xsl:text>exp_str = "</xsl:text>
|
|
<xsl:call-template name="xml-text">
|
|
<xsl:with-param name="text" select="."/>
|
|
</xsl:call-template>
|
|
<xsl:text>";
</xsl:text>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="doc">
|
|
<xsl:text> </xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text> = xmlReadDoc(BAD_CAST </xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text>_str, NULL, NULL, 0);
</xsl:text>
|
|
|
|
<xsl:apply-templates select="following-sibling::*[1]"/>
|
|
|
|
<xsl:text> xmlFreeDoc(</xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text>);
</xsl:text>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="xpath">
|
|
</xsl:template>
|
|
|
|
<xsl:template match="var" mode="define">
|
|
<xsl:text> xmlNodePtr </xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text>;
</xsl:text>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="var">
|
|
<xsl:if test="xpath">
|
|
<!-- Create XPath context. -->
|
|
<xsl:text> /* Selecting node "</xsl:text><xsl:value-of select="@name"/><xsl:text>". */
</xsl:text>
|
|
<xsl:text> xp = xmlXPathNewContext(</xsl:text>
|
|
<xsl:value-of select="xpath/@doc"/>
|
|
<xsl:text>);
</xsl:text>
|
|
<!-- Register namespaces. -->
|
|
<xsl:for-each select="xpath/reg-ns">
|
|
<xsl:text> xmlXPathRegisterNs(xp, BAD_CAST "</xsl:text>
|
|
<xsl:value-of select="@prefix"/>
|
|
<xsl:text>", BAD_CAST "</xsl:text>
|
|
<xsl:value-of select="@ns"/>
|
|
<xsl:text>");
</xsl:text>
|
|
</xsl:for-each>
|
|
<!-- Evaluate. -->
|
|
<xsl:text> </xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text> = nsSelectNode(xp, "</xsl:text>
|
|
<xsl:value-of select="xpath/@select-node"/>
|
|
<xsl:text>");
</xsl:text>
|
|
<xsl:text> xmlXPathFreeContext(xp);
</xsl:text>
|
|
</xsl:if>
|
|
<xsl:apply-templates select="following-sibling::*[1]"/>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="reconcile-ns">
|
|
<xsl:text> /* Reconcile node "</xsl:text><xsl:value-of select="@ref"/><xsl:text>". */
</xsl:text>
|
|
<xsl:text> xmlDOMWrapReconcileNamespaces(NULL, </xsl:text>
|
|
<xsl:value-of select="@node"/>
|
|
<xsl:text>, 0);
</xsl:text>
|
|
<xsl:apply-templates select="following-sibling::*[1]"/>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="remove">
|
|
<xsl:text> xmlDOMWrapRemoveNode(NULL, </xsl:text>
|
|
<xsl:value-of select="@node"/>
|
|
<xsl:text>->doc, </xsl:text>
|
|
<xsl:value-of select="@node"/>
|
|
<xsl:text>, 0);
</xsl:text>
|
|
<xsl:apply-templates select="following-sibling::*[1]"/>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="adopt">
|
|
<xsl:text> /* Adopt "</xsl:text><xsl:value-of select="@node"/><xsl:text>". */
</xsl:text>
|
|
<xsl:text> xmlDOMWrapAdoptNode(NULL, </xsl:text>
|
|
<xsl:value-of select="@node"/>
|
|
<xsl:text>->doc, </xsl:text>
|
|
<xsl:value-of select="@node"/>
|
|
<xsl:text>, </xsl:text>
|
|
<xsl:value-of select="@dest-doc"/>
|
|
<xsl:text>, </xsl:text>
|
|
<xsl:choose>
|
|
<xsl:when test="@dest-parent">
|
|
<xsl:value-of select="@dest-parent"/>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:text>NULL</xsl:text>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
<xsl:text>, 0);
</xsl:text>
|
|
<xsl:apply-templates select="following-sibling::*[1]"/>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="append-child">
|
|
<xsl:text> xmlAddChild(</xsl:text>
|
|
<xsl:value-of select="@parent"/>
|
|
<xsl:text>, </xsl:text>
|
|
<xsl:value-of select="@child"/>
|
|
<xsl:text>);
</xsl:text>
|
|
<xsl:apply-templates select="following-sibling::*[1]"/>
|
|
</xsl:template>
|
|
|
|
<xsl:template match="expected">
|
|
<xsl:text> /* Serialize "</xsl:text><xsl:value-of select="@doc"/><xsl:text>". */
</xsl:text>
|
|
<xsl:text> result_str = nsSerializeNode(xmlDocGetRootElement(</xsl:text>
|
|
<xsl:value-of select="@doc"/>
|
|
<xsl:text>));
</xsl:text>
|
|
<xsl:text> /* Compare result. */
|
|
if (! xmlStrEqual(BAD_CAST result_str, BAD_CAST exp_str)) {
|
|
printf("FAILED\n");
|
|
printf("%s\n", (const char *) result_str);
|
|
printf("- - -\n");
|
|
printf("Expected:\n%s\n", exp_str);
|
|
printf("= = =\n");
|
|
}
|
|
xmlFree(result_str);
</xsl:text>
|
|
</xsl:template>
|
|
|
|
<!--********
|
|
* TEST *
|
|
********-->
|
|
<xsl:template match="test">
|
|
<xsl:text>void nsTest_</xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text>(void) {
|
|
xmlChar * result_str;
|
|
xmlXPathContextPtr xp;
|
|
int memory;
</xsl:text>
|
|
<xsl:apply-templates select="*" mode="define"/>
|
|
<xsl:text>
|
|
memory = xmlMemUsed();
|
|
xmlInitParser();

</xsl:text>
|
|
<xsl:apply-templates select="child::*[1]"/>
|
|
<xsl:text>
|
|
xmlCleanupParser();
|
|
memory = xmlMemUsed() - memory;
|
|
|
|
if (memory != 0) {
|
|
printf("## '%s' MEMORY leak: %d\n", "</xsl:text>
|
|
<xsl:value-of select="@name"/>
|
|
<xsl:text>", memory);
|
|
}
|
|
}
|
|
</xsl:text>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="serializer">
|
|
<xsl:text>
|
|
|
|
xmlChar * nsSerializeNode(xmlNodePtr node) {
|
|
xmlChar * ret;
|
|
|
|
xmlOutputBufferPtr buf;
|
|
buf = xmlAllocOutputBuffer(NULL);
|
|
xmlNodeDumpOutput(buf, node->doc, node, 0, 0, NULL);
|
|
xmlOutputBufferFlush(buf);
|
|
ret = (xmlChar *) buf->buffer->content;
|
|
buf->buffer->content = NULL;
|
|
(void) xmlOutputBufferClose(buf);
|
|
return (ret);
|
|
}
|
|
|
|
xmlNodePtr nsSelectNode(xmlXPathContextPtr xp, const char * xpath) {
|
|
xmlXPathObjectPtr xpres;
|
|
xmlNodePtr ret;
|
|
|
|
xpres = xmlXPathEval(BAD_CAST xpath, xp);
|
|
ret = xpres->nodesetval->nodeTab[0];
|
|
xmlXPathFreeObject(xpres);
|
|
return (ret);
|
|
}
|
|
|
|
</xsl:text>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="replace-string">
|
|
<xsl:param name="text"/>
|
|
<xsl:param name="from"/>
|
|
<xsl:param name="to"/>
|
|
|
|
<xsl:choose>
|
|
<xsl:when test="contains($text, $from)">
|
|
|
|
<xsl:variable name="before" select="substring-before($text, $from)"/>
|
|
<xsl:variable name="after" select="substring-after($text, $from)"/>
|
|
<xsl:variable name="prefix" select="concat($before, $to)"/>
|
|
|
|
<xsl:value-of select="$before"/>
|
|
<xsl:value-of select="$to"/>
|
|
<xsl:call-template name="replace-string">
|
|
<xsl:with-param name="text" select="$after"/>
|
|
<xsl:with-param name="from" select="$from"/>
|
|
<xsl:with-param name="to" select="$to"/>
|
|
</xsl:call-template>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="$text"/>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
|
|
</xsl:stylesheet>
|