tests-to-c.xsl
1 <?xml version="1.0"?> 2 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> 3 <xsl:output method="text"/> 4 5 <xsl:template match="/"> 6 <xsl:text><![CDATA[ 7 #include <libxml/parser.h> 8 #include <libxml/tree.h> 9 #include <libxml/xpath.h> 10 #include <libxml/xpathInternals.h> 11 ]]> 12 </xsl:text> 13 <xsl:call-template name="serializer"/> 14 <xsl:apply-templates select="tests/test"/> 15 <xsl:text> 16 17 int main(int argc, char **argv) {
</xsl:text> 18 <xsl:apply-templates select="tests/test" mode="call"/> 19 <xsl:text> 20 /* printf("finished.\n"); */ 21 return (0); 22 } 23 </xsl:text> 24 </xsl:template> 25 26 <xsl:template match="tests/test" mode="call"> 27 <xsl:text> nsTest_</xsl:text> 28 <xsl:value-of select="@name"/> 29 <xsl:text>();
</xsl:text> 30 </xsl:template> 31 32 <xsl:template name="xml-text"> 33 <xsl:param name="text"/> 34 <xsl:call-template name="replace-string"> 35 <!-- Substitute #10 for " --> 36 <xsl:with-param name="from" select="' '"/> 37 <xsl:with-param name="to" select="'" "'"/> 38 <xsl:with-param name="text"> 39 <xsl:call-template name="replace-string"> 40 <!-- Substitute " for \" --> 41 <xsl:with-param name="from" select="'"'"/> 42 <xsl:with-param name="to" select="'\"'"/> 43 <xsl:with-param name="text"> 44 <xsl:call-template name="replace-string"> 45 <!-- Remove tabs. --> 46 <xsl:with-param name="from" select="'	'"/> 47 <xsl:with-param name="to" select="''"/> 48 <xsl:with-param name="text" select="$text"/> 49 </xsl:call-template> 50 </xsl:with-param> 51 </xsl:call-template> 52 </xsl:with-param> 53 </xsl:call-template> 54 55 </xsl:template> 56 57 <xsl:template match="doc" mode="define"> 58 <xsl:text> xmlDocPtr </xsl:text> 59 <xsl:value-of select="@name"/> 60 <xsl:text>;
</xsl:text> 61 <xsl:text> const char * </xsl:text> 62 <xsl:value-of select="@name"/> 63 <xsl:text>_str = "</xsl:text> 64 <xsl:call-template name="xml-text"> 65 <xsl:with-param name="text" select="."/> 66 </xsl:call-template> 67 <xsl:text>";
</xsl:text> 68 </xsl:template> 69 70 <xsl:template match="expected" mode="define"> 71 <xsl:text> const char * </xsl:text> 72 <xsl:text>exp_str = "</xsl:text> 73 <xsl:call-template name="xml-text"> 74 <xsl:with-param name="text" select="."/> 75 </xsl:call-template> 76 <xsl:text>";
</xsl:text> 77 </xsl:template> 78 79 <xsl:template match="doc"> 80 <xsl:text> </xsl:text> 81 <xsl:value-of select="@name"/> 82 <xsl:text> = xmlReadDoc(BAD_CAST </xsl:text> 83 <xsl:value-of select="@name"/> 84 <xsl:text>_str, NULL, NULL, 0);
</xsl:text> 85 86 <xsl:apply-templates select="following-sibling::*[1]"/> 87 88 <xsl:text> xmlFreeDoc(</xsl:text> 89 <xsl:value-of select="@name"/> 90 <xsl:text>);
</xsl:text> 91 </xsl:template> 92 93 <xsl:template match="xpath"> 94 </xsl:template> 95 96 <xsl:template match="var" mode="define"> 97 <xsl:text> xmlNodePtr </xsl:text> 98 <xsl:value-of select="@name"/> 99 <xsl:text>;
</xsl:text> 100 </xsl:template> 101 102 <xsl:template match="var"> 103 <xsl:if test="xpath"> 104 <!-- Create XPath context. --> 105 <xsl:text> /* Selecting node "</xsl:text><xsl:value-of select="@name"/><xsl:text>". */
</xsl:text> 106 <xsl:text> xp = xmlXPathNewContext(</xsl:text> 107 <xsl:value-of select="xpath/@doc"/> 108 <xsl:text>);
</xsl:text> 109 <!-- Register namespaces. --> 110 <xsl:for-each select="xpath/reg-ns"> 111 <xsl:text> xmlXPathRegisterNs(xp, BAD_CAST "</xsl:text> 112 <xsl:value-of select="@prefix"/> 113 <xsl:text>", BAD_CAST "</xsl:text> 114 <xsl:value-of select="@ns"/> 115 <xsl:text>");
</xsl:text> 116 </xsl:for-each> 117 <!-- Evaluate. --> 118 <xsl:text> </xsl:text> 119 <xsl:value-of select="@name"/> 120 <xsl:text> = nsSelectNode(xp, "</xsl:text> 121 <xsl:value-of select="xpath/@select-node"/> 122 <xsl:text>");
</xsl:text> 123 <xsl:text> xmlXPathFreeContext(xp);
</xsl:text> 124 </xsl:if> 125 <xsl:apply-templates select="following-sibling::*[1]"/> 126 </xsl:template> 127 128 <xsl:template match="reconcile-ns"> 129 <xsl:text> /* Reconcile node "</xsl:text><xsl:value-of select="@ref"/><xsl:text>". */
</xsl:text> 130 <xsl:text> xmlDOMWrapReconcileNamespaces(NULL, </xsl:text> 131 <xsl:value-of select="@node"/> 132 <xsl:text>, 0);
</xsl:text> 133 <xsl:apply-templates select="following-sibling::*[1]"/> 134 </xsl:template> 135 136 <xsl:template match="remove"> 137 <xsl:text> xmlDOMWrapRemoveNode(NULL, </xsl:text> 138 <xsl:value-of select="@node"/> 139 <xsl:text>->doc, </xsl:text> 140 <xsl:value-of select="@node"/> 141 <xsl:text>, 0);
</xsl:text> 142 <xsl:apply-templates select="following-sibling::*[1]"/> 143 </xsl:template> 144 145 <xsl:template match="adopt"> 146 <xsl:text> /* Adopt "</xsl:text><xsl:value-of select="@node"/><xsl:text>". */
</xsl:text> 147 <xsl:text> xmlDOMWrapAdoptNode(NULL, </xsl:text> 148 <xsl:value-of select="@node"/> 149 <xsl:text>->doc, </xsl:text> 150 <xsl:value-of select="@node"/> 151 <xsl:text>, </xsl:text> 152 <xsl:value-of select="@dest-doc"/> 153 <xsl:text>, </xsl:text> 154 <xsl:choose> 155 <xsl:when test="@dest-parent"> 156 <xsl:value-of select="@dest-parent"/> 157 </xsl:when> 158 <xsl:otherwise> 159 <xsl:text>NULL</xsl:text> 160 </xsl:otherwise> 161 </xsl:choose> 162 <xsl:text>, 0);
</xsl:text> 163 <xsl:apply-templates select="following-sibling::*[1]"/> 164 </xsl:template> 165 166 <xsl:template match="append-child"> 167 <xsl:text> xmlAddChild(</xsl:text> 168 <xsl:value-of select="@parent"/> 169 <xsl:text>, </xsl:text> 170 <xsl:value-of select="@child"/> 171 <xsl:text>);
</xsl:text> 172 <xsl:apply-templates select="following-sibling::*[1]"/> 173 </xsl:template> 174 175 <xsl:template match="expected"> 176 <xsl:text> /* Serialize "</xsl:text><xsl:value-of select="@doc"/><xsl:text>". */
</xsl:text> 177 <xsl:text> result_str = nsSerializeNode(xmlDocGetRootElement(</xsl:text> 178 <xsl:value-of select="@doc"/> 179 <xsl:text>));
</xsl:text> 180 <xsl:text> /* Compare result. */ 181 if (! xmlStrEqual(BAD_CAST result_str, BAD_CAST exp_str)) { 182 printf("FAILED\n"); 183 printf("%s\n", (const char *) result_str); 184 printf("- - -\n"); 185 printf("Expected:\n%s\n", exp_str); 186 printf("= = =\n"); 187 } 188 xmlFree(result_str);
</xsl:text> 189 </xsl:template> 190 191 <!--******** 192 * TEST * 193 ********--> 194 <xsl:template match="test"> 195 <xsl:text>void nsTest_</xsl:text> 196 <xsl:value-of select="@name"/> 197 <xsl:text>(void) { 198 xmlChar * result_str; 199 xmlXPathContextPtr xp; 200 int memory;
</xsl:text> 201 <xsl:apply-templates select="*" mode="define"/> 202 <xsl:text> 203 memory = xmlMemUsed(); 204 xmlInitParser();

</xsl:text> 205 <xsl:apply-templates select="child::*[1]"/> 206 <xsl:text> 207 xmlCleanupParser(); 208 memory = xmlMemUsed() - memory; 209 210 if (memory != 0) { 211 printf("## '%s' MEMORY leak: %d\n", "</xsl:text> 212 <xsl:value-of select="@name"/> 213 <xsl:text>", memory); 214 } 215 } 216 </xsl:text> 217 </xsl:template> 218 219 <xsl:template name="serializer"> 220 <xsl:text> 221 222 xmlChar * nsSerializeNode(xmlNodePtr node) { 223 xmlChar * ret; 224 225 xmlOutputBufferPtr buf; 226 buf = xmlAllocOutputBuffer(NULL); 227 xmlNodeDumpOutput(buf, node->doc, node, 0, 0, NULL); 228 xmlOutputBufferFlush(buf); 229 ret = (xmlChar *) buf->buffer->content; 230 buf->buffer->content = NULL; 231 (void) xmlOutputBufferClose(buf); 232 return (ret); 233 } 234 235 xmlNodePtr nsSelectNode(xmlXPathContextPtr xp, const char * xpath) { 236 xmlXPathObjectPtr xpres; 237 xmlNodePtr ret; 238 239 xpres = xmlXPathEval(BAD_CAST xpath, xp); 240 ret = xpres->nodesetval->nodeTab[0]; 241 xmlXPathFreeObject(xpres); 242 return (ret); 243 } 244 245 </xsl:text> 246 </xsl:template> 247 248 <xsl:template name="replace-string"> 249 <xsl:param name="text"/> 250 <xsl:param name="from"/> 251 <xsl:param name="to"/> 252 253 <xsl:choose> 254 <xsl:when test="contains($text, $from)"> 255 256 <xsl:variable name="before" select="substring-before($text, $from)"/> 257 <xsl:variable name="after" select="substring-after($text, $from)"/> 258 <xsl:variable name="prefix" select="concat($before, $to)"/> 259 260 <xsl:value-of select="$before"/> 261 <xsl:value-of select="$to"/> 262 <xsl:call-template name="replace-string"> 263 <xsl:with-param name="text" select="$after"/> 264 <xsl:with-param name="from" select="$from"/> 265 <xsl:with-param name="to" select="$to"/> 266 </xsl:call-template> 267 </xsl:when> 268 <xsl:otherwise> 269 <xsl:value-of select="$text"/> 270 </xsl:otherwise> 271 </xsl:choose> 272 </xsl:template> 273 274 275 </xsl:stylesheet>