.
        if ($tag == 'pre')
            $text = TransformInline($text);

        $this->_pushContent($text);
        return true;
    }
}

class Block_plugin extends Block
{
    var $_tag = 'div';
    var $_attr = array('class' => 'plugin');
    var $_re = '<\?plugin(?:-form)?.*?(?:\n^.*?)*?(?\s*?\n';

    function _parse (&$input, $m) {
        global $request;
        $loader = new WikiPluginLoader;
        $input->accept($m);
        $this->_pushContent($loader->expandPI($m->getMatch(), $request));
        return true;
    }
}

class Block_hr extends Block
{
    var $_tag = 'hr';
    var $_re = '-{4,}\s*?\n';

    function _parse (&$input, $m) {
        $input->accept($m);
        return true;
    }
}

class Block_heading extends Block
{
    var $_re = '(!{1,3})(.*)\n';
    
    function _parse (&$input, $m) {
        $input->accept($m);
        $this->_tag = "h" . (5 - strlen($m->getMatch(1)));
        $this->_pushContent(TransformInline(trim($m->getMatch(2))));
        return true;
    }
}

class Block_p extends Block
{
    var $_tag = 'p';
    var $_re = '\S.*\n';

    function _parse (&$input, $m) {
        $this->_text = $m->getMatch();
        $input->accept($m);
        return true;
    }
    
    function merge ($nextBlock) {
        if ($this->_preceedsBreak || get_class($nextBlock) != 'block_p')
            return false;

        $this->_text .= $nextBlock->_text;
        $this->_preceedsBreak = $nextBlock->_preceedsBreak;
        return true;
    }
            
    function finish ($tighten) {
        $this->_pushContent(TransformInline(trim($this->_text)));
        
        if ($this->_followsBreak && ($tighten & BLOCK_NOTIGHTEN_AFTER) != 0)
            $tighten = 0;
        elseif ($this->_preceedsBreak && ($tighten & BLOCK_NOTIGHTEN_BEFORE) != 0)
            $tighten = 0;

        return $tighten ? $this->_content : parent::finish();
    }
}

class Block_email_blockquote extends CompoundBlock
{
    // FIXME: move CSS to CSS.
    var $_tag ='blockquote';
    var $_attr = array('style' => 'border-left-width: medium; border-left-color: #0f0; border-left-style: ridge; padding-left: 1em; margin-left: 0em; margin-right: 0em;');
    var $_depth;
    var $_re = '>\ ?';
    
    function _parse (&$input, $m) {
        $prefix = $m->getMatch();
        $indent = "(?:$prefix|>(?=\s*?\n))";
        $this->_content[] = BlockParser::parse($input->subBlock($indent),
                                               BLOCK_NOTIGHTEN_EITHER);
        return true;
    }
}

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



$GLOBALS['Block_BlockTypes'] = array(new Block_oldlists,
                                     new Block_list,
                                     new Block_dl,
                                     new Block_table_dl,
                                     new Block_blockquote,
                                     new Block_heading,
                                     new Block_hr,
                                     new Block_pre,
                                     new Block_email_blockquote,
                                     new Block_plugin,
                                     new Block_p);

// FIXME: This is temporary, too...
function NewTransform ($text) {

    //set_time_limit(2);
    
    // Expand leading tabs.
    // FIXME: do this better. also move  it...
    $text = preg_replace('/^\ *[^\ \S\n][^\S\n]*/me', "str_repeat(' ', strlen('\\0'))", $text);
    assert(!preg_match('/^\ *\t/', $text));

    $input = new BlockParser_Input($text);
    return BlockParser::parse($input);
}


// FIXME: bad name
function TransformRevision ($revision) {
    if ($revision->get('markup') == 'new') {
        return NewTransform($revision->getPackedContent());
    }
    else {
        return do_transform($revision->getContent());
    }
}


// (c-file-style: "gnu")
// Local Variables:
// mode: php
// tab-width: 8
// c-basic-offset: 4
// c-hanging-comment-ender-p: nil
// indent-tabs-mode: nil
// End:   
?>