Subversion Repositories Applications.papyrus

<?php

/**

* The baseline abstract parser class.

*/

require_once 'Text/Wiki/Parse.php';

/**

* The baseline abstract render class.

*/

require_once 'Text/Wiki/Render.php';

/**

*

* Parse structured wiki text and render into arbitrary formats such as XHTML.

*

* This is the "master" class for handling the management and convenience

* functions to transform Wiki-formatted text.

*

* $Id: Wiki.php,v 1.1 2005-01-20 19:43:20 jpm Exp $

*

* @author Paul M. Jones <pmjones@ciaweb.net>

*

* @package Text_Wiki

*

* @version 0.23.1

*

* @license LGPL

*

*/

class Text_Wiki {

    /**

    *

    * The default list of rules, in order, to apply to the source text.

    *

    * @access public

    *

    * @var array

    *

    */

    var $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',

        'Tt',

        'Superscript',

        'Revise',

        'Tighten'

    );

    /**

    *

    * The list of rules to not-apply to the source text.

    *

    * @access public

    *

    * @var array

    *

    */

    var $disable = array(

        'Html',

        'Include',

        'Embed'

    );

    /**

    *

    * Custom configuration for rules at the parsing stage.

    *

    * In this array, the key is the parsing rule name, and the value is

    * an array of key-value configuration pairs corresponding to the $conf

    * property in the target parsing rule.

    *

    * For example:

    *

    * <code>

    * $parseConf = array(

    *     'Include' => array(

    *         'base' => '/path/to/scripts/'

    *     )

    * );

    * </code>

    *

    * Note that most default rules do not need any parsing configuration.

    *

    * @access public

    *

    * @var array

    *

    */

    var $parseConf = array();

    /**

    *

    * Custom configuration for rules at the rendering stage.

    *

    * Because rendering may be different for each target format, the

    * first-level element in this array is always a format name (e.g.,

    * 'Xhtml').

    *

    * Within that first level element, the subsequent elements match the

    * $parseConf format. That is, the sub-key is the rendering rule name,

    * and the sub-value is an array of key-value configuration pairs

    * corresponding to the $conf property in the target rendering rule.

    *

    * @access public

    *

    * @var array

    *

    */

    var $renderConf = array(

        'Docbook' => array(),

        'Latex' => array(),

        'Pdf' => array(),

        'Plain' => array(),

        'Rtf' => array(),

        'Xhtml' => array()

    );

    /**

    *

    * Custom configuration for the output format itself.

    *

    * Even though Text_Wiki will render the tokens from parsed text,

    * the format itself may require some configuration.  For example,

    * RTF needs to know font names and sizes, PDF requires page layout

    * information, and DocBook needs a section hierarchy.  This array

    * matches the $conf property of the the format-level renderer

    * (e.g., Text_Wiki_Render_Xhtml).

    *

    * In this array, the key is the rendering format name, and the value is

    * an array of key-value configuration pairs corresponding to the $conf

    * property in the rendering format rule.

    *

    * @access public

    *

    * @var array

    *

    */

    var $formatConf = array(

        'Docbook' => array(),

        'Latex' => array(),

        'Pdf' => array(),

        'Plain' => array(),

        'Rtf' => array(),

        'Xhtml' => array()

    );

    /**

    *

    * The delimiter for token numbers of parsed elements in source text.

    *

    * @access public

    *

    * @var string

    *

    */

    var $delim = "\xFF";

    /**

    *

    * The tokens generated by rules as the source text is parsed.

    *

    * As Text_Wiki applies rule classes to the source text, it will

    * replace portions of the text with a delimited token number.  This

    * is the array of those tokens, representing the replaced text and

    * any options set by the parser for that replaced text.

    *

    * The tokens array is sequential; each element is itself a sequential

    * array where element 0 is the name of the rule that generated the

    * token, and element 1 is an associative array where the key is an

    * option name and the value is an option value.

    *

    * @access private

    *

    * @var array

    *

    */

    var $tokens = array();

    /**

    *

    * The source text to which rules will be applied.

    *

    * This text will be transformed in-place, which means that it will

    * change as the rules are applied.

    *

    * @access private

    *

    * @var string

    *

    */

    var $source = '';

    /**

    *

    * Array of rule parsers.

    *

    * Text_Wiki creates one instance of every rule that is applied to

    * the source text; this array holds those instances.  The array key

    * is the rule name, and the array value is an instance of the rule

    * class.

    *

    * @access private

    *

    * @var array

    *

    */

    var $parseObj = array();

    /**

    *

    * Array of rule renderers.

    *

    * Text_Wiki creates one instance of every rule that is applied to

    * the source text; this array holds those instances.  The array key

    * is the rule name, and the array value is an instance of the rule

    * class.

    *

    * @access private

    *

    * @var array

    *

    */

    var $renderObj = array();

    /**

    *

    * Array of format renderers.

    *

    * @access private

    *

    * @var array

    *

    */

    var $formatObj = array();

    /**

    *

    * Array of paths to search, in order, for parsing and rendering rules.

    *

    * @access private

    *

    * @var array

    *

    */

    var $path = array(

        'parse' => array(),

        'render' => array()

    );

    /**

    *

    * The directory separator character.

    *

    * @access private

    *

    * @var string

    *

    */

    var $_dirSep = DIRECTORY_SEPARATOR;

    /**

    *

    * Constructor.

    *

    * @access public

    *

    * @param array $rules The set of rules to load for this object.

    *

    */

    function Text_Wiki($rules = null)

    {

        if (is_array($rules)) {

            $this->rules = $rules;

        }

        $this->addPath(

            'parse',

            $this->fixPath(dirname(__FILE__)) . 'Wiki/Parse/'

        );

        $this->addPath(

            'render',

            $this->fixPath(dirname(__FILE__)) . 'Wiki/Render/'

        );

    }

    /**

    *

    * Set parser configuration for a specific rule and key.

    *

    * @access public

    *

    * @param string $rule The parse rule to set config for.

    *

    * @param array|string $arg1 The full config array to use for the

    * parse rule, or a conf key in that array.

    *

    * @param string $arg2 The config value for the key.

    *

    * @return void

    *

    */

    function setParseConf($rule, $arg1, $arg2 = null)

    {

        $rule = ucwords(strtolower($rule));

        if (! isset($this->parseConf[$rule])) {

            $this->parseConf[$rule] = array();

        }

        // if first arg is an array, use it as the entire

        // conf array for the rule.  otherwise, treat arg1

        // as a key and arg2 as a value for the rule conf.

        if (is_array($arg1)) {

            $this->parseConf[$rule] = $arg1;

        } else {

            $this->parseConf[$rule][$arg1] = $arg2;

        }

    }

    /**

    *

    * Get parser configuration for a specific rule and key.

    *

    * @access public

    *

    * @param string $rule The parse rule to get config for.

    *

    * @param string $key A key in the conf array; if null,

    * returns the entire conf array.

    *

    * @return mixed The whole conf array if no key is specified,

    * or the specific conf key value.

    *

    */

    function getParseConf($rule, $key = null)

    {

        $rule = ucwords(strtolower($rule));

        // the rule does not exist

        if (! isset($this->parseConf[$rule])) {

            return null;

        }

        // no key requested, return the whole array

        if (is_null($key)) {

            return $this->parseConf[$rule];

        }

        // does the requested key exist?

        if (isset($this->parseConf[$rule][$key])) {

            // yes, return that value

            return $this->parseConf[$rule][$key];

        } else {

            // no

            return null;

        }

    }

    /**

    *

    * Set renderer configuration for a specific format, rule, and key.

    *

    * @access public

    *

    * @param string $format The render format to set config for.

    *

    * @param string $rule The render rule to set config for in the format.

    *

    * @param array|string $arg1 The config array, or the config key

    * within the render rule.

    *

    * @param string $arg2 The config value for the key.

    *

    * @return void

    *

    */

    function setRenderConf($format, $rule, $arg1, $arg2 = null)

    {

        $format = ucwords(strtolower($format));

        $rule = ucwords(strtolower($rule));

        if (! isset($this->renderConf[$format])) {

            $this->renderConf[$format] = array();

        }

        if (! isset($this->renderConf[$format][$rule])) {

            $this->renderConf[$format][$rule] = array();

        }

        // if first arg is an array, use it as the entire

        // conf array for the render rule.  otherwise, treat arg1

        // as a key and arg2 as a value for the render rule conf.

        if (is_array($arg1)) {

            $this->renderConf[$format][$rule] = $arg1;

        } else {

            $this->renderConf[$format][$rule][$arg1] = $arg2;

        }

    }

    /**

    *

    * Get renderer configuration for a specific format, rule, and key.

    *

    * @access public

    *

    * @param string $format The render format to get config for.

    *

    * @param string $rule The render format rule to get config for.

    *

    * @param string $key A key in the conf array; if null,

    * returns the entire conf array.

    *

    * @return mixed The whole conf array if no key is specified,

    * or the specific conf key value.

    *

    */

    function getRenderConf($format, $rule, $key = null)

    {

        $format = ucwords(strtolower($format));

        $rule = ucwords(strtolower($rule));

        if (! isset($this->renderConf[$format]) ||

            ! isset($this->renderConf[$format][$rule])) {

            return null;

        }

        // no key requested, return the whole array

        if (is_null($key)) {

            return $this->renderConf[$format][$rule];

        }

        // does the requested key exist?

        if (isset($this->renderConf[$format][$rule][$key])) {

            // yes, return that value

            return $this->renderConf[$format][$rule][$key];

        } else {

            // no

            return null;

        }

    }

    /**

    *

    * Set format configuration for a specific rule and key.

    *

    * @access public

    *

    * @param string $format The format to set config for.

    *

    * @param string $key The config key within the format.

    *

    * @param string $val The config value for the key.

    *

    * @return void

    *

    */

    function setFormatConf($format, $arg1, $arg2 = null)

    {

        if (! is_array($this->formatConf[$format])) {

            $this->formatConf[$format] = array();

        }

        // if first arg is an array, use it as the entire

        // conf array for the format.  otherwise, treat arg1

        // as a key and arg2 as a value for the format conf.

        if (is_array($arg1)) {

            $this->formatConf[$format] = $arg1;

        } else {

            $this->formatConf[$format][$arg1] = $arg2;

        }

    }

    /**

    *

    * Get configuration for a specific format and key.

    *

    * @access public

    *

    * @param string $format The format to get config for.

    *

    * @param mixed $key A key in the conf array; if null,

    * returns the entire conf array.

    *

    * @return mixed The whole conf array if no key is specified,

    * or the specific conf key value.

    *

    */

    function getFormatConf($format, $key = null)

    {

        // the format does not exist

        if (! isset($this->formatConf[$format])) {

            return null;

        }

        // no key requested, return the whole array

        if (is_null($key)) {

            return $this->formatConf[$format];

        }

        // does the requested key exist?

        if (isset($this->formatConf[$format][$key])) {

            // yes, return that value

            return $this->formatConf[$format][$key];

        } else {

            // no

            return null;

        }

    }

    /**

    *

    * Inserts a rule into to the rule set.

    *

    * @access public

    *

    * @param string $name The name of the rule.  Should be different from

    * all other keys in the rule set.

    *

    * @param string $tgt The rule after which to insert this new rule.  By

    * default (null) the rule is inserted at the end; if set to '', inserts

    * at the beginning.

    *

    * @return void

    *

    */

    function insertRule($name, $tgt = null)

    {

        $name = ucwords(strtolower($name));

        if (! is_null($tgt)) {

            $tgt = ucwords(strtolower($tgt));

        }

        // does the rule name to be inserted already exist?

        if (in_array($name, $this->rules)) {

            // yes, return

            return null;

        }

        // the target name is not null, and not '', but does not exist

        // in the list of rules. this means we're trying to insert after

        // a target key, but the target key isn't there.

        if (! is_null($tgt) && $tgt != '' &&

            ! in_array($tgt, $this->rules)) {

            return false;

        }

        // if $tgt is null, insert at the end.  We know this is at the

        // end (instead of resetting an existing rule) becuase we exited

        // at the top of this method if the rule was already in place.

        if (is_null($tgt)) {

            $this->rules[] = $name;

            return true;

        }

        // save a copy of the current rules, then reset the rule set

        // so we can insert in the proper place later.

        // where to insert the rule?

        if ($tgt == '') {

            // insert at the beginning

            array_unshift($this->rules, $name);

            return true;

        }

        // insert after the named rule

        $tmp = $this->rules;

        $this->rules = array();

        foreach ($tmp as $val) {

            $this->rules[] = $val;

            if ($val == $tgt) {

                $this->rules[] = $name;

            }

        }

        return true;

    }

    /**

    *

    * Delete (remove or unset) a rule from the $rules property.

    *

    * @access public

    *

    * @param string $rule The name of the rule to remove.

    *

    * @return void

    *

    */

    function deleteRule($name)

    {

        $name = ucwords(strtolower($name));

        $key = array_search($name, $this->rules);

        if ($key !== false) {

            unset($this->rules[$key]);

        }

    }

    /**

    *

    * Change from one rule to another in-place.

    *

    * @access public

    *

    * @param string $old The name of the rule to change from.

    *

    * @param string $new The name of the rule to change to.

    *

    * @return void

    *

    */

    function changeRule($old, $new)

    {

        $old = ucwords(strtolower($old));

        $new = ucwords(strtolower($new));

        $key = array_search($old, $this->rules);

        if ($key !== false) {

            $this->rules[$old] = $new;

        }

    }

    /**

    *

    * Enables a rule so that it is applied when parsing.

    *

    * @access public

    *

    * @param string $rule The name of the rule to enable.

    *

    * @return void

    *

    */

    function enableRule($name)

    {

        $name = ucwords(strtolower($name));

        $key = array_search($name, $this->disable);

        if ($key !== false) {

            unset($this->disable[$key]);

        }

    }

    /**

    *

    * Disables a rule so that it is not applied when parsing.

    *

    * @access public

    *

    * @param string $rule The name of the rule to disable.

    *

    * @return void

    *

    */

    function disableRule($name)

    {

        $name = ucwords(strtolower($name));

        $key = array_search($name, $this->disable);

        if ($key === false) {

            $this->disable[] = $name;

        }

    }

    /**

    *

    * Parses and renders the text passed to it, and returns the results.

    *

    * First, the method parses the source text, applying rules to the

    * text as it goes.  These rules will modify the source text

    * in-place, replacing some text with delimited tokens (and

    * populating the $this->tokens array as it goes).

    *

    * Next, the method renders the in-place tokens into the requested

    * output format.

    *

    * Finally, the method returns the transformed text.  Note that the

    * source text is transformed in place; once it is transformed, it is

    * no longer the same as the original source text.

    *

    * @access public

    *

    * @param string $text The source text to which wiki rules should be

    * applied, both for parsing and for rendering.

    *

    * @param string $format The target output format, typically 'xhtml'.

    *  If a rule does not support a given format, the output from that

    * rule is rule-specific.

    *

    * @return string The transformed wiki text.

    *

    */

    function transform($text, $format = 'Xhtml')

    {

        $this->parse($text);

        return $this->render($format);

    }

    /**

    *

    * Sets the $_source text property, then parses it in place and

    * retains tokens in the $_tokens array property.

    *

    * @access public

    *

    * @param string $text The source text to which wiki rules should be

    * applied, both for parsing and for rendering.

    *

    * @return void

    *

    */

    function parse($text)

    {

        // set the object property for the source text

        $this->source = $text;

        // reset the tokens.

        $this->tokens = array();

        // apply the parse() method of each requested rule to the source

        // text.

        foreach ($this->rules as $name) {

            // do not parse the rules listed in $disable

            if (! in_array($name, $this->disable)) {

                // load the parsing object

                $this->loadParseObj($name);

                // load may have failed; only parse if

                // an object is in the array now

                if (is_object($this->parseObj[$name])) {

                    $this->parseObj[$name]->parse();

                }

            }

        }

    }

    /**

    *

    * Renders tokens back into the source text, based on the requested format.

    *

    * @access public

    *

    * @param string $format The target output format, typically 'xhtml'.

    * If a rule does not support a given format, the output from that

    * rule is rule-specific.

    *

    * @return string The transformed wiki text.

    *

    */

    function render($format = 'Xhtml')

    {

        // the rendering method we're going to use from each rule

        $format = ucwords(strtolower($format));

        // the eventual output text

        $output = '';

        // when passing through the parsed source text, keep track of when

        // we are in a delimited section

        $in_delim = false;

        // when in a delimited section, capture the token key number

        $key = '';

        // load the format object

        $this->loadFormatObj($format);

        // pre-rendering activity

        if (is_object($this->formatObj[$format])) {

            $output .= $this->formatObj[$format]->pre();

        }

        // load the render objects

        foreach (array_keys($this->parseObj) as $rule) {

            $this->loadRenderObj($format, $rule);

        }

        // pass through the parsed source text character by character

        $k = strlen($this->source);

        for ($i = 0; $i < $k; $i++) {

            // the current character

            $char = $this->source{$i};

            // are alredy in a delimited section?

            if ($in_delim) {

                // yes; are we ending the section?

                if ($char == $this->delim) {

                    // yes, get the replacement text for the delimited

                    // token number and unset the flag.

                    $key = (int)$key;

                    $rule = $this->tokens[$key][0];

                    $opts = $this->tokens[$key][1];

                    $output .= $this->renderObj[$rule]->token($opts);

                    $in_delim = false;

                } else {

                    // no, add to the dlimited token key number

                    $key .= $char;

                }

            } else {

                // not currently in a delimited section.

                // are we starting into a delimited section?

                if ($char == $this->delim) {

                    // yes, reset the previous key and

                    // set the flag.

                    $key = '';

                    $in_delim = true;

                } else {

                    // no, add to the output as-is

                    $output .= $char;

                }

            }

        }

        // post-rendering activity

        if (is_object($this->formatObj[$format])) {

            $output .= $this->formatObj[$format]->post();

        }

        // return the rendered source text.

        return $output;

    }

    /**

    *

    * Returns the parsed source text with delimited token placeholders.

    *

    * @access public

    *

    * @return string The parsed source text.

    *

    */

    function getSource()

    {

        return $this->source;

    }

    /**

    *

    * Returns tokens that have been parsed out of the source text.

    *

    * @access public

    *

    * @param array $rules If an array of rule names is passed, only return

    * tokens matching these rule names.  If no array is passed, return all

    * tokens.

    *

    * @return array An array of tokens.

    *

    */

    function getTokens($rules = null)

    {

        if (is_null($rules)) {

            return $this->tokens;

        } else {

            settype($rules, 'array');

            $result = array();

            foreach ($this->tokens as $key => $val) {

                if (in_array($val[0], $rules)) {

                    $result[] = $val;

                }

            }

            return $result;

        }

    }

    /**

    *

    * Add a token to the Text_Wiki tokens array, and return a delimited

    * token number.

    *

    * @access public

    *

    * @param array $options An associative array of options for the new

    * token array element.  The keys and values are specific to the

    * rule, and may or may not be common to other rule options.  Typical

    * options keys are 'text' and 'type' but may include others.

    *

    * @param boolean $id_only If true, return only the token number, not

    * a delimited token string.

    *

    * @return string|int By default, return the number of the

    * newly-created token array element with a delimiter prefix and

    * suffix; however, if $id_only is set to true, return only the token

    * number (no delimiters).

    *

    */

    function addToken($rule, $options = array(), $id_only = false)

    {

        // increment the token ID number.  note that if you parse

        // multiple times with the same Text_Wiki object, the ID number

        // will not reset to zero.

        static $id;

        if (! isset($id)) {

            $id = 0;

        } else {

            $id ++;

        }