<?php
/*
* Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between
* Copyright (C) 2006-2009 Dan Fuhry
*
* This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
* warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for details.
*/
/**
* Framework for parsing and rendering various formats. In Enano by default, this is MediaWiki-style wikitext being
* rendered to XHTML, but this framework allows other formats to be supported as well.
*
* @package Enano
* @subpackage Content
* @author Dan Fuhry <dan@enanocms.org>
* @copyright (C) 2009 Enano CMS Project
* @license GNU General Public License, version 2 or later <http://www.gnu.org/licenses/gpl-2.0.html>
*/
class Carpenter
{
/**
* Parser token
* @const string
*/
const PARSER_TOKEN = "\xFF";
/**
* Parsing engine
* @var string
*/
private $parser = 'mediawiki';
/**
* Rendering engine
* @var string
*/
private $renderer = 'xhtml';
/**
* Rendering flags
*/
public $flags = RENDER_WIKI_DEFAULT;
/**
* List of rendering rules
* @var array
*/
private $rules = array(
'lang',
'templates',
'blockquote',
'code',
'tables',
'heading',
'hr',
// note: can't be named list ("list" is a PHP language construct)
'multilist',
'bold',
'italic',
'underline',
'externalwithtext',
'externalnotext',
'mailtowithtext',
'mailtonotext',
'image',
'internallink',
'paragraph',
'blockquotepost'
);
/**
* List of render hooks
* @var array
*/
private $hooks = array();
/* private $rules = array('prefilter', 'delimiter', 'code', 'function', 'html', 'raw', 'include', 'embed', 'anchor',
'heading', 'toc', 'horiz', 'break', 'blockquote', 'list', 'deflist', 'table', 'image',
'phplookup', 'center', 'newline', 'paragraph', 'url', 'freelink', 'interwiki',
'wikilink', 'colortext', 'strong', 'bold', 'emphasis', 'italic', 'underline', 'tt',
'superscript', 'subscript', 'revise', 'tighten'); */
/**
* Render the text!
* @param string Text to render
* @return string
*/
public function render($text)
{
$parser_class = "Carpenter_Parse_" . ucwords($this->parser);
$renderer_class = "Carpenter_Render_" . ucwords($this->renderer);
// empty? (don't remove this. the parser will shit bricks later about rules returning empty strings)
if ( trim($text) === '' )
return $text;
// include files, if we haven't already
if ( !class_exists($parser_class) )
{
require_once( ENANO_ROOT . "/includes/wikiengine/parse_{$this->parser}.php");
}
if ( !class_exists($renderer_class) )
{
require_once( ENANO_ROOT . "/includes/wikiengine/render_{$this->renderer}.php");
}
$parser = new $parser_class;
$renderer = new $renderer_class;
// run prehooks
foreach ( $this->hooks as $hook )
{
if ( $hook['when'] === PO_FIRST )
{
$text = call_user_func($hook['callback'], $text);
if ( !is_string($text) || empty($text) )
{
trigger_error("Hook returned empty/invalid text: " . print_r($hook['callback'], true), E_USER_WARNING);
// *sigh*
$text = '';
}
}
}
// perform render
foreach ( $this->rules as $rule )
{
// run prehooks
foreach ( $this->hooks as $hook )
{
if ( $hook['when'] === PO_BEFORE && $hook['rule'] === $rule )
{
$text = call_user_func($hook['callback'], $text);
if ( !is_string($text) || empty($text) )
{
trigger_error("Hook returned empty/invalid text: " . print_r($hook['callback'], true), E_USER_WARNING);
// *sigh*
$text = '';
}
}
}
// execute rule
$text_before = $text;
$text = $this->perform_render_step($text, $rule, $parser, $renderer);
if ( empty($text) )
{
trigger_error("Wikitext was completely empty after rule \"$rule\"; restoring backup", E_USER_WARNING);
$text = $text_before;
}
unset($text_before);
// run posthooks
foreach ( $this->hooks as $hook )
{
if ( $hook['when'] === PO_AFTER && $hook['rule'] === $rule )
{
$text = call_user_func($hook['callback'], $text);
if ( !is_string($text) || empty($text) )
{
trigger_error("Hook returned empty/invalid text: " . print_r($hook['callback'], true), E_USER_WARNING);
// *sigh*
$text = '';
}
}
}
RenderMan::tag_strip_push('final', $text, $final_stripdata);
}
RenderMan::tag_unstrip('final', $text, $final_stripdata);
// run posthooks
foreach ( $this->hooks as $hook )
{
if ( $hook['when'] === PO_LAST )
{
$text = call_user_func($hook['callback'], $text);
if ( !is_string($text) || empty($text) )
{
trigger_error("Hook returned empty/invalid text: " . print_r($hook['callback'], true), E_USER_WARNING);
// *sigh*
$text = '';
}
}
}
return (( defined('ENANO_DEBUG') && isset($_GET['parserdebug']) ) ? '<pre>' . htmlspecialchars($text) . '</pre>' : $text) . "\n\n";
}
/**
* Performs a step in the rendering process.
* @param string Text to render
* @param string Rule to execute
* @param object Parser instance
* @param object Renderer instance
* @return string
* @access private
*/
private function perform_render_step($text, $rule, $parser, $renderer)
{
// First look for a direct function
if ( function_exists("parser_{$this->parser}_{$this->renderer}_{$rule}") )
{
return call_user_func("parser_{$this->parser}_{$this->renderer}_{$rule}", $text, $this->flags);
}
// We don't have that, so start looking for other ways or means of doing this
if ( method_exists($parser, $rule) && method_exists($renderer, $rule) )
{
// Both the parser and render have callbacks they want to use.
$pieces = $parser->$rule($text);
$text = call_user_func(array($renderer, $rule), $text, $pieces);
}
else if ( method_exists($parser, $rule) && !method_exists($renderer, $rule) && isset($renderer->rules[$rule]) )
{
// The parser has a callback, but the renderer does not
$pieces = $parser->$rule($text);
$text = $this->generic_render($text, $pieces, $renderer->rules[$rule]);
}
else if ( !method_exists($parser, $rule) && isset($parser->rules[$rule]) && method_exists($renderer, $rule) )
{
// The parser has no callback, but the renderer does
$text = preg_replace_callback($parser->rules[$rule], array($renderer, $rule), $text);
}
else if ( isset($parser->rules[$rule]) && isset($renderer->rules[$rule]) )
{
// This is a straight-up regex only rule
$text = preg_replace($parser->rules[$rule], $renderer->rules[$rule], $text);
}
else
{
// Either the renderer or parser does not support this rule, ignore it
}
return $text;
}
/**
* Generic renderer
* @access protected
*/
protected function generic_render($text, $pieces, $rule)
{
foreach ( $pieces as $i => $piece )
{
$replacement = $rule;
// if the piece is an array, replace $1, $2, etc. in the rule with each value in the piece
if ( is_array($piece) )
{
$j = 0;
foreach ( $piece as $part )
{
$j++;
$replacement = str_replace(array("\\$j", "\${$j}"), $part, $replacement);
}
}
// else, just replace \\1 or $1 in the rule with the piece
else
{
$replacement = str_replace(array("\\1", "\$1"), $piece, $replacement);
}
$text = str_replace(self::generate_token($i), $replacement, $text);
}
return $text;
}
/**
* Add a hook into the parser.
* @param callback Function to call
* @param int PO_* constant
* @param string If PO_{BEFORE,AFTER} used, rule
*/
public function hook($callback, $when, $rule = false)
{
if ( !is_int($when) )
return null;
if ( ($when == PO_BEFORE || $when == PO_AFTER) && !is_string($rule) )
return null;
if ( ( is_string($callback) && !function_exists($callback) ) || ( is_array($callback) && !method_exists($callback[0], $callback[1]) ) || ( !is_string($callback) && !is_array($callback) ) )
{
trigger_error("Attempt to hook with undefined function/method " . print_r($callback, true), E_USER_ERROR);
return null;
}
$this->hooks[] = array(
'callback' => $callback,
'when' => $when,
'rule' => $rule
);
}
/**
* Disable a render stage
* @param string stage
* @return null
*/
public function disable_rule($rule)
{
foreach ( $this->rules as $i => $current_rule )
{
if ( $current_rule === $rule )
{
unset($this->rules[$i]);
return null;
}
}
return null;
}
/**
* Disables all rules.
* @return null
*/
public function disable_all_rules()
{
$this->rules = array();
return null;
}
/**
* Enables a rule
* @param string rule
* @return null
*/
public function enable_rule($rule)
{
$this->rules[] = $rule;
return null;
}
/**
* Make a rule exclusive (the only one called)
* @param string stage
* @return null
*/
public function exclusive_rule($rule)
{
if ( is_string($rule) )
$this->rules = array($rule);
return null;
}
/**
* Generate a token
* @param int Token index
* @return string
* @static
*/
public static function generate_token($i)
{
return self::PARSER_TOKEN . $i . self::PARSER_TOKEN;
}
/**
* Tokenize string
* @param string
* @param array Matches
* @return string
* @static
*/
public static function tokenize($text, $matches)
{
$matches = array_values($matches);
foreach ( $matches as $i => $match )
{
$text = str_replace_once($match, self::generate_token($i), $text);
}
return $text;
}
}