开源软件开发论坛 - 码库
首页 搜索 用户列表 FAQ 注册 登录
开源软件开发论坛 - 码库 » 开发语言 » XML/XSLT » 加强版XSL的UBB实现
  加强版XSL的UBB实现
帖子发起人: X3BLOG   发起时间: 2008-04-04 11:43   回复数: 0
楼主
  2008-04-04, 11:43
X3BLOG 离线，最后访问时间: 2008-10-28 11:43:39 X3BLOG

发帖数前10位

超级管理员
职务: 超级管理员
排长
等级: 排长
注册: 2008年3月30日
积分: 94
精华: 0
发贴: 71
加强版XSL的UBB实现
 
<?xml version="1.0" encoding="utf-8" ?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output method="html" doctype-system="http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd" doctype-public="-//W3C//DTD XHTML 1.1//EN" indent="yes" encoding="utf-8"/>
<xsl:template name="captureUBB">
    <xsl:param name="processText"/>
    <xsl:variable name="remainingContent" select="$processText"/>
    <xsl:variable name="remaining_after_end_ubb" select="substring-after($processText, '[/')"/>
    <xsl:variable name="remainingContent_after_ubb" select="substring-after($remaining_after_end_ubb, ']')"/>

    <xsl:choose>
        <xsl:when test="contains($processText, '[') and contains($processText, ']')">
            <xsl:choose>
                <xsl:when test="starts-with($processText, '[')">
                    <xsl:call-template name="processUBB">
                        <xsl:with-param name="ubbType" select="translate(substring-after(substring-before($processText, ']'), '['),'ABCDEFGHIJKLMNOPQRSTUVWXYZ','abcdefghijklmnopqrstuvwxyz')"/>
                        <xsl:with-param name="content" select="substring-after(substring-before($processText, '[/'), ']')"/>
                        <xsl:with-param name="backingContent" select="substring-after($processText, ']')"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent_after_ubb"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:otherwise>
                    <xsl:value-of select="substring-before($processText, '[')"/>
                    <xsl:call-template name="captureUBB">
                        <xsl:with-param name="processText" select="concat('[',substring-after($processText, '['))"/>
                    </xsl:call-template>
                </xsl:otherwise>
            </xsl:choose>
        </xsl:when>
        <xsl:otherwise>
            <xsl:value-of select="$remainingContent"/>
        </xsl:otherwise>
    </xsl:choose>
</xsl:template>

<xsl:template name="processUBB">
    <xsl:param name="ubbType"/>
    <xsl:param name="content"/>
    <xsl:param name="backingContent"/>
    <xsl:param name="remainingContent"/>
    
    <xsl:choose>
        <xsl:when test="starts-with(translate(substring-before(substring-after($backingContent, '['),']'),'ABCDEFGHIJKLMNOPQRSTUVWXYZ','abcdefghijklmnopqrstuvwxyz'), concat('/',$ubbType))">
            <xsl:choose>
                <xsl:when test="$ubbType = 'b'">
                    <xsl:call-template name="b">
                        <xsl:with-param name="content" select="$content"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:when test="$ubbType = 'email'">
                    <xsl:call-template name="email">
                        <xsl:with-param name="content" select="$content"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:when test="$ubbType = 'fly'">
                    <xsl:call-template name="fly">
                        <xsl:with-param name="content" select="$content"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:when test="$ubbType = 'i'">
                    <xsl:call-template name="i">
                        <xsl:with-param name="content" select="$content"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:when test="$ubbType = 'img'">
                    <xsl:call-template name="img">
                        <xsl:with-param name="content" select="$content"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:when test="$ubbType = 'move'">
                    <xsl:call-template name="move">
                        <xsl:with-param name="content" select="$content"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:when test="$ubbType = 'quote'">
                    <xsl:call-template name="quote">
                        <xsl:with-param name="content" select="$content"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:when test="$ubbType = 'u'">
                    <xsl:call-template name="u">
                        <xsl:with-param name="content" select="$content"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:when test="$ubbType = 'url'">
                    <xsl:call-template name="url">
                        <xsl:with-param name="content" select="$content"/>
                        <xsl:with-param name="remainingContent" select="$remainingContent"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:otherwise>
                    <xsl:text>[</xsl:text><xsl:value-of select="$ubbType"/><xsl:text>]</xsl:text>
                    <xsl:call-template name="captureUBB">
                        <xsl:with-param name="processText" select="$backingContent"/>
                    </xsl:call-template>
                </xsl:otherwise>
            </xsl:choose>
        </xsl:when>
        <xsl:when test="contains($ubbType, '=') and starts-with(translate(substring-before(substring-after($backingContent, '['),']'),'ABCDEFGHIJKLMNOPQRSTUVWXYZ','abcdefghijklmnopqrstuvwxyz'), concat('/',substring-before($ubbType, '=')))">
            <xsl:call-template name="processUBB2">
                <xsl:with-param name="ubbType" select="substring-before($ubbType, '=')"/>
                <xsl:with-param name="ubbParam" select="substring-after($ubbType, '=')"/>
                <xsl:with-param name="content" select="$content"/>
                <xsl:with-param name="backingContent" select="$backingContent"/>
                <xsl:with-param name="remainingContent" select="$remainingContent"/>
            </xsl:call-template>
        </xsl:when>
        <xsl:otherwise>
            <xsl:text>[</xsl:text><xsl:value-of select="$ubbType"/><xsl:text>]</xsl:text>
            <xsl:call-template name="captureUBB">
                <xsl:with-param name="processText" select="$backingContent"/>
            </xsl:call-template>
        </xsl:otherwise>
    </xsl:choose>
</xsl:template>

<xsl:template name="processUBB2">
    <xsl:param name="ubbType"/>
    <xsl:param name="ubbParam"/>
    <xsl:param name="content"/>
    <xsl:param name="backingContent"/>
    <xsl:param name="remainingContent"/>
    
    <xsl:choose>
        <xsl:when test="$ubbType = 'align'">
            <xsl:call-template name="align">
                <xsl:with-param name="param" select="$ubbParam"/>
                <xsl:with-param name="content" select="$content"/>
                <xsl:with-param name="remainingContent" select="$remainingContent"/>
            </xsl:call-template>
        </xsl:when>
        <xsl:when test="$ubbType = 'color'">
            <xsl:call-template name="color">
                <xsl:with-param name="param" select="$ubbParam"/>
                <xsl:with-param name="content" select="$content"/>
                <xsl:with-param name="remainingContent" select="$remainingContent"/>
            </xsl:call-template>
        </xsl:when>
        <xsl:when test="$ubbType = 'email'">
            <xsl:call-template name="email2">
                <xsl:with-param name="param" select="$ubbParam"/>
                <xsl:with-param name="content" select="$content"/>
                <xsl:with-param name="remainingContent" select="$remainingContent"/>
            </xsl:call-template>
        </xsl:when>
        <xsl:when test="$ubbType = 'face'">
            <xsl:call-template name="face">
                <xsl:with-param name="param" select="$ubbParam"/>
                <xsl:with-param name="content" select="$content"/>
                <xsl:with-param name="remainingContent" select="$remainingContent"/>
            </xsl:call-template>
        </xsl:when>
        <xsl:when test="$ubbType = 'size'">
            <xsl:call-template name="size">
                <xsl:with-param name="param" select="$ubbParam"/>
                <xsl:with-param name="content" select="$content"/>
                <xsl:with-param name="remainingContent" select="$remainingContent"/>
            </xsl:call-template>
        </xsl:when>
        <xsl:when test="$ubbType = 'url'">
            <xsl:call-template name="url2">
                <xsl:with-param name="param" select="$ubbParam"/>
                <xsl:with-param name="content" select="$content"/>
                <xsl:with-param name="remainingContent" select="$remainingContent"/>
            </xsl:call-template>
        </xsl:when>
        <xsl:otherwise>
            <xsl:text>[</xsl:text><xsl:value-of select="$ubbType"/><xsl:text>=</xsl:text><xsl:value-of select="$ubbParam"/><xsl:text>]</xsl:text>
            <xsl:call-template name="captureUBB">
                <xsl:with-param name="processText" select="$backingContent"/>
            </xsl:call-template>
        </xsl:otherwise>
    </xsl:choose>
</xsl:template>

<xsl:template name="b">
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <b><xsl:value-of select="$content"/></b>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="email">
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <a href="mailto:{$content}"><xsl:value-of select="$content"/></a>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="fly">
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <marquee behavior="alternate"><xsl:value-of select="$content"/></marquee>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="i">
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <i><xsl:value-of select="$content"/></i>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="img">
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <img _src="{$content}"/>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="move">
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <marquee><xsl:value-of select="$content"/></marquee>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="quote">
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <blockquote><i><xsl:value-of select="$content"/></i></blockquote>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="u">
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <u><xsl:value-of select="$content"/></u>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="url">
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <a href="{$content}" target="_blank"><xsl:value-of select="$content"/></a>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="align">
    <xsl:param name="param"/>
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <p align="{$param}"><xsl:value-of select="$content"/></p>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="color">
    <xsl:param name="param"/>
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <font color="{$param}"><xsl:value-of select="$content"/></font>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="email2">
    <xsl:param name="param"/>
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <a href="mailto:{$param}"><xsl:value-of select="$content"/></a>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="face">
    <xsl:param name="param"/>
    <xsl:param name="content"/>
    <xsl:param name="remainingContent"/>
    <font face="{$param}"><xsl:value-of select="$content"/></font>
    <xsl:call-template name="captureUBB">
        <xsl:with-param name="processText" select="$remainingContent"/>
    </xsl:call-template>
</xsl:template>

<xsl:template name="size">
    <xsl:param name="param"/>