.
        if ($m->match == '
') {
            $text = TransformInline($text);
        }
        if ($m->match == '') {
            $text = TransformText($text);
            $this->_element = new Block_HtmlElement('div', false, $text);
        } elseif ($m->match == '') {
            $text = TransformInlineNowiki($text);
            $this->_element = new Block_HtmlElement('p', false, $text);
        } else {
            $this->_element = new Block_HtmlElement('pre', false, $text);
        }
        return true;
    }
}

// Wikicreole placeholder
// <<>>
class Block_placeholder extends BlockMarkup
{
    public $_re = '<<<';

    function _match(&$input, $m)
    {
        $endtag = '>>>';
        $text = array();
        $pos = $input->getPos();

        $line = $m->postmatch;
        while (ltrim($line) != $endtag) {
            $text[] = $line;
            if (($line = $input->nextLine()) === false) {
                $input->setPos($pos);
                return false;
            }
        }
        $input->advance();

        $text = join("\n", $text);
        $text = '<<<' . $text . '>>>';
        $this->_element = new Block_HtmlElement('div', false, $text);
        return true;
    }
}

class Block_nowiki_wikicreole extends BlockMarkup
{
    public $_re = '{{{';

    function _match(&$input, $m)
    {
        $endtag = '}}}';
        $text = array();
        $pos = $input->getPos();

        $line = $m->postmatch;
        while (ltrim($line) != $endtag) {
            $text[] = $line;
            if (($line = $input->nextLine()) === false) {
                $input->setPos($pos);
                return false;
            }
        }
        $input->advance();

        $text = join("\n", $text);
        $this->_element = new Block_HtmlElement('pre', false, $text);
        return true;
    }
}

class Block_plugin extends Block_pre
{
    public $_re = '<\?plugin(?:-form)?(?!\S)';

    // FIXME:
    /* 
    /* 
     *                    exclude= ?>
     *
     * should all work.
     */
    function _match(&$input, $m)
    {
        $pos = $input->getPos();
        $pi = $m->match . $m->postmatch;
        while (!preg_match('/(?\s*$/', $pi)) {
            if (($line = $input->nextLine()) === false) {
                $input->setPos($pos);
                return false;
            }
            $pi .= "\n$line";
        }
        $input->advance();

        $this->_element = new Cached_PluginInvocation($pi);
        return true;
    }
}

class Block_plugin_wikicreole extends Block_pre
{
    // public $_re = '<<(?!\S)';
    public $_re = '<<';

    function _match(&$input, $m)
    {
        $pos = $input->getPos();
        $pi = $m->postmatch;
        if ($pi[0] == '<') {
            return false;
        }
        $pi = ">\s*$/', $pi)) {
            if (($line = $input->nextLine()) === false) {
                $input->setPos($pos);
                return false;
            }
            $pi .= "\n$line";
        }
        $input->advance();

        $pi = str_replace(">>", "?>", $pi);

        $this->_element = new Cached_PluginInvocation($pi);
        return true;
    }
}

class Block_table_wikicreole extends Block_pre
{
    public $_re = '\s*\|';

    function _match(&$input, $m)
    {
        $pos = $input->getPos();
        $pi = "|" . $m->postmatch;

        $intable = true;
        while ($intable) {
            if ((($line = $input->nextLine()) === false) && !$intable) {
                $input->setPos($pos);
                return false;
            }
            if (!$line) {
                $intable = false;
                $trimline = $line;
            } else {
                $trimline = trim($line);
                if ($trimline[0] != "|") {
                    $intable = false;
                }
            }
            $pi .= "\n$trimline";
        }

        $pi = '<' . '?plugin WikicreoleTable ' . $pi . '?' . '>';

        $this->_element = new Cached_PluginInvocation($pi);
        return true;
    }
}

/**
 *  Table syntax similar to Mediawiki
 *  {|
 * =>  ?>
 */
class Block_table_mediawiki extends Block_pre
{
    public $_re = '{\|';

    function _match(&$input, $m)
    {
        $pos = $input->getPos();
        $pi = $m->postmatch;
        while (!preg_match('/(?nextLine()) === false) {
                $input->setPos($pos);
                return false;
            }
            $pi .= "\n$line";
        }
        $input->advance();

        $pi = str_replace("\|}", "", $pi);
        $pi = '<' . '?plugin MediawikiTable ' . $pi . '?' . '>';
        $this->_element = new Cached_PluginInvocation($pi);
        return true;
    }
}

/**
 *  Template syntax similar to Mediawiki
 *  {{template}}
 * => < ? plugin Template page=template ? >
 *  {{template|var1=value1|var2=value|...}}
 * => < ? plugin Template page=template var=value ... ? >
 *
 * The {{...}} syntax is also used for:
 *  - Wikicreole images
 *  - videos
 */
class Block_template_plugin extends Block_pre
{
    public $_re = '{{';

    function _match(&$input, $m)
    {
        // If we find "}}", this is an inline template.
        if (strpos($m->postmatch, "}}") !== false) {
            return false;
        }
        $pos = $input->getPos();
        $pi = $m->postmatch;
        if ($pi[0] == '{') {
            return false;
        }
        while (!preg_match('/(?nextLine()) === false) {
                $input->setPos($pos);
                return false;
            }
            $pi .= "\n$line";
        }
        $input->advance();

        $pi = trim($pi);
        $pi = trim($pi, "}}");

        if (strpos($pi, "|") === false) {
            $imagename = $pi;
            $alt = "";
        } else {
            $imagename = substr($pi, 0, strpos($pi, "|"));
            $alt = ltrim(strstr($pi, "|"), "|");
        }

        // It's not a Mediawiki template, it's a Wikicreole image
        if (is_image($imagename)) {
            $this->_element = LinkImage(getUploadDataPath() . $imagename, $alt);
            return true;
        }

        // It's a video
        if (is_video($imagename)) {
            $pi = '<' . '?plugin Video file="' . $pi . '" ?>';
            $this->_element = new Cached_PluginInvocation($pi);
            return true;
        }

        $pi = str_replace("\n", "", $pi);

        // The argument value might contain a double quote (")
        // We have to encode that.
        $pi = htmlspecialchars($pi);

        $vars = '';

        if (preg_match('/^(\S+?)\|(.*)$/', $pi, $_m)) {
            $pi = $_m[1];
            $vars = '"' . preg_replace('/\|/', '" "', $_m[2]) . '"';
            $vars = preg_replace('/"(\S+)=([^"]*)"/', '\\1="\\2"', $vars);
        }

        // pi may contain a version number
        // {{foo?version=5}}
        // in that case, output is "page=foo rev=5"
        if (strstr($pi, "?")) {
            $pi = str_replace("?version=", "\" rev=\"", $pi);
        }

        if ($vars)
            $pi = '<' . '?plugin Template page="' . $pi . '" ' . $vars . ' ?>';
        else
            $pi = '<' . '?plugin Template page="' . $pi . '" ?>';
        $this->_element = new Cached_PluginInvocation($pi);
        return true;
    }
}

class Block_email_blockquote extends BlockMarkup
{
    public $_attr = array('class' => 'mail-style-quote');
    public $_re = '>\ ?';

    function _match(&$input, $m)
    {
        //$indent = str_replace(' ', '\\ ', $m->match) . '|>$';
        $indent = $this->_re;
        $this->_element = new SubBlock($input, $indent, $m->match,
            'blockquote', $this->_attr);
        return true;
    }
}

class Block_wikicreole_indented extends BlockMarkup
{
    public $_attr = array('style' => 'margin-left:2em');
    public $_re = ':\ ?';

    function _match(&$input, $m)
    {
        $indent = $this->_re;
        $this->_element = new SubBlock($input, $indent, $m->match,
            'div', $this->_attr);
        return true;
    }
}

class Block_hr extends BlockMarkup
{
    public $_re = '-{4,}\s*$';

    function _match(&$input, $m)
    {
        $input->advance();
        $this->_element = new Block_HtmlElement('hr');
        return true;
    }
}

class Block_heading extends BlockMarkup
{
    public $_re = '!{1,3}';

    function _match(&$input, $m)
    {
        $tag = "h" . (5 - strlen($m->match));
        $text = TransformInline(trim($m->postmatch));
        $input->advance();

        $this->_element = new Block_HtmlElement($tag, false, $text);

        return true;
    }
}

class Block_heading_wikicreole extends BlockMarkup
{
    public $_re = '={2,6}';

    function _match(&$input, $m)
    {
        $tag = "h" . strlen($m->match);
        // Remove spaces
        $header = trim($m->postmatch);
        // Remove '='s at the end so that Mediawiki syntax is recognized
        $header = trim($header, "=");
        $text = TransformInline(trim($header));
        $input->advance();

        $this->_element = new Block_HtmlElement($tag, false, $text);

        return true;
    }
}

class Block_p extends BlockMarkup
{
    public $_tag = 'p';
    public $_re = '\S.*';
    public $_text = '';

    function _match(&$input, $m)
    {
        $this->_text = $m->match;
        $input->advance();
        return true;
    }

    function _setTightness($top, $bot)
    {
        $this->_tight_top = $top;
        $this->_tight_bot = $bot;
    }

    function merge($nextBlock)
    {
        $class = get_class($nextBlock);
        if (strtolower($class) == 'block_p' and $this->_tight_bot) {
            $this->_text .= "\n" . $nextBlock->_text;
            $this->_tight_bot = $nextBlock->_tight_bot;
            return $this;
        }
        return false;
    }

    function finish()
    {
        $content = TransformInline(trim($this->_text));
        $p = new Block_HtmlElement('p', false, $content);
        $p->setTightness($this->_tight_top, $this->_tight_bot);
        return $p;
    }
}

class Block_divspan extends BlockMarkup
{
    public $_re = '<(?im)(?: div|span)(?:[^>]*)?>';

    function _match(&$input, $m)
    {
        if (substr($m->match, 1, 4) == 'span') {
            $tag = 'span';
        } else {
            $tag = 'div';
        }
        // without last >
        $argstr = substr(trim(substr($m->match, strlen($tag) + 1)), 0, -1);
        $pos = $input->getPos();
        $pi = $content = $m->postmatch;
        while (!preg_match('/^(.*)\<\/' . $tag . '\>(.*)$/i', $pi, $me)) {
            if ($pi != $content)
                $content .= "\n$pi";
            if (($pi = $input->nextLine()) === false) {
                $input->setPos($pos);
                return false;
            }
        }
        if ($pi != $content)
            $content .= $me[1]; // prematch
        else
            $content = $me[1];
        $input->advance();
        if (strstr($content, "\n"))
            $content = TransformText($content);
        else
            $content = TransformInline($content);
        if (!$argstr)
            $args = false;
        else {
            $args = array();
            while (preg_match("/(\w+)=(.+)/", $argstr, $m)) {
                $k = $m[1];
                $v = $m[2];
                if (preg_match("/^\"(.+?)\"(.*)$/", $v, $m)) {
                    $v = $m[1];
                    $argstr = $m[2];
                } else {
                    preg_match("/^(\s+)(.*)$/", $v, $m);
                    $v = $m[1];
                    $argstr = $m[2];
                }
                if (trim($k) and trim($v)) $args[$k] = $v;
            }
        }
        $this->_element = new Block_HtmlElement($tag, $args, $content);
        return true;
    }
}

////////////////////////////////////////////////////////////////
//

/**
 * Transform the text of a page, and return a parse tree.
 */
function TransformTextPre($text, $basepage = false)
{
    if (isa($text, 'WikiDB_PageRevision')) {
        $rev = $text;
        $text = $rev->getPackedContent();
    }
    // Expand leading tabs.
    $text = expand_tabs($text);
    $output = new WikiText($text);

    return $output;
}

/**
 * Transform the text of a page, and return an XmlContent,
 * suitable for printXml()-ing.
 */
function TransformText($text, $basepage = false)
{
    $output = TransformTextPre($text, $basepage);
    if ($basepage) {
        // This is for immediate consumption.
        // We must bind the contents to a base pagename so that
        // relative page links can be properly linkified...
        return new CacheableMarkup($output->getContent(), $basepage);
    }
    return new XmlContent($output->getContent());
}

// Local Variables:
// mode: php
// tab-width: 8
// c-basic-offset: 4
// c-hanging-comment-ender-p: nil
// indent-tabs-mode: nil
// End: