<?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;

  }

}