ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/doc/doc2haskell.xsl
(Generate patch)

Comparing kgsueme/doc/doc2haskell.xsl (file contents):
Revision 1.14 by elmex, Tue Jul 29 09:58:16 2003 UTC vs.
Revision 1.15 by pcg, Tue Jul 29 12:16:30 2003 UTC

… …
348<xsl:template match="member" mode="enc"> 348<xsl:template match="member" mode="enc">
349 <xsl:text> enc_</xsl:text><xsl:value-of select="@type"/> $ <xsl:value-of select="@name"/> s 349 <xsl:text> enc_</xsl:text><xsl:value-of select="@type"/> $ <xsl:value-of select="@name"/> s
350</xsl:template> 350</xsl:template>
351 351
352<xsl:template match="member" mode="decl"> 352<xsl:template match="member" mode="decl">
353 <xsl:text> </xsl:text><xsl:value-of select="@name"/>: !<xsl:value-of select="@type"/> 353 <xsl:text> !</xsl:text><xsl:value-of select="@name"/> :: <xsl:value-of select="@type"/>
354<xsl:text> 354<xsl:text>
355</xsl:text> 355</xsl:text>
356</xsl:template> 356</xsl:template>
357 357
358<xsl:template match="struct"> 358<xsl:template match="struct">
… …
361<xsl:apply-templates select="member" mode="decl"/> 361<xsl:apply-templates select="member" mode="decl"/>
362 } 362 }
363 363
364dec_<xsl:value-of select="@name"/> = do 364dec_<xsl:value-of select="@name"/> = do
365<xsl:apply-templates select="member" mode="dec"/> 365<xsl:apply-templates select="member" mode="dec"/>
366 return KGS_<xsl:value-of select="@name"/><xsl:for-each select="member"><xsl:text> </xsl:text><xsl:value-of select="@name"/></xsl:for-each> 366 return $ KGS_<xsl:value-of select="@name"/><xsl:for-each select="member"><xsl:text> </xsl:text><xsl:value-of select="@name"/></xsl:for-each>
367 367
368enc_<xsl:value-of select="@name"/> s = 368enc_<xsl:value-of select="@name"/> s =
369<xsl:apply-templates select="member" mode="enc"/> 369<xsl:apply-templates select="member" mode="enc"/>
370<xsl:text> 370<xsl:text>
371</xsl:text> 371</xsl:text>
… …
373 373
374<xsl:template match="message"> 374<xsl:template match="message">
375-- <xsl:value-of select="@name"/> 375-- <xsl:value-of select="@name"/>
376dec_<xsl:value-of select="@src"/>_<xsl:value-of select="@type"/> = do 376dec_<xsl:value-of select="@src"/>_<xsl:value-of select="@type"/> = do
377<xsl:apply-templates select="member" mode="dec"/> 377<xsl:apply-templates select="member" mode="dec"/>
378 return KGS_<xsl:value-of select="@name"/><xsl:for-each select="member"><xsl:text> </xsl:text><xsl:value-of select="@name"/></xsl:for-each> 378 return $ KGS_<xsl:value-of select="@name"/><xsl:for-each select="member"><xsl:text> </xsl:text><xsl:value-of select="@name"/></xsl:for-each>
379 379
380enc_<xsl:value-of select="@src"/>_<xsl:value-of select="@name"/> = 380enc_<xsl:value-of select="@src"/>_<xsl:value-of select="@name"/> =
381 enc_U16 0x<xsl:value-of select="@type"/> 381 enc_U16 0x<xsl:value-of select="@type"/>
382<xsl:apply-templates select="member" mode="enc"/> 382<xsl:apply-templates select="member" mode="enc"/>
383 383

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines