Subversion Repositories Applications.papyrus

<?php

/*vim: set expandtab tabstop=4 shiftwidth=4: */

// +------------------------------------------------------------------------------------------------------+

// | PHP version 4.3                                                                                      |

// +------------------------------------------------------------------------------------------------------+

// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |

// +------------------------------------------------------------------------------------------------------+

// | This file is part of Papyrus.                                                                        |

// |                                                                                                      |

// | Foobar is free software; you can redistribute it 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.                                                                  |

// |                                                                                                      |

// | Foobar 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 more details.                                                         |

// |                                                                                                      |

// | You should have received a copy of the GNU General Public License                                    |

// | along with Foobar; if not, write to the Free Software                                                |

// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |

// +------------------------------------------------------------------------------------------------------+

// CVS : $Id: Papyrus.class.php,v 1.15 2006-12-13 17:14:00 jp_milcent Exp $

/**

* Classe configurant le formatage pour Papyrus.

*

* Ce fichier contient une classe configurant les règles de formatage de Papyrus.

* Nécessite que l'application appelant ce fichier est précédement inclu le fichier de Pear:

* 'Text/Wiki.php';

*

*@package Text_Wiki

*@subpackage Papyrus

//Auteur original :

*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>

//Autres auteurs :

*@author        Aucun

*@copyright     Tela-Botanica 2000-2004

*@version       $Revision: 1.15 $ $Date: 2006-12-13 17:14:00 $

// +------------------------------------------------------------------------------------------------------+

*/

// +------------------------------------------------------------------------------------------------------+

// |                                            ENTETE du PROGRAMME                                       |

// +------------------------------------------------------------------------------------------------------+

// +------------------------------------------------------------------------------------------------------+

// |                                            CORPS du PROGRAMME                                        |

// +------------------------------------------------------------------------------------------------------+

/**

*

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

*

* Cette classe fille permet de configurer les régles de formatage pour Papyrus.

* Généralement nous avons à faire à des actions.

*

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

* @package Text_Wiki

* @version 0.23.1

* @license LGPL

*/

class Text_Papyrus extends Text_Wiki {

    /**

    *

    * Liste de règles par défaut du format Papyrs dans leur ordre d'application au texte

    * à transformer.

    *

    * @access public

    *

    * @var array

    *

    */

    var $rules = array();

    /**

    *

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

    *

    * @access public

    *

    * @var array

    *

    */

    var $disable = array();

    /**

    *

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

    *

    * @access public

    *

    * @var string

    *

    */

    var $delim = 12;

    function Text_Papyrus($rules = null)

    {

        //Text_Wiki::Text_Wiki();

        if (is_array($rules)) {

            $this->rules = $rules;

        }

        // Nous devons sortir les fichiers de Text_Wiki du dépot Pear car la fonction file_exists de PHP utilisée dans

        // la méthode findfile de Text_Wiki renvoie false.

        $this->addPath('parse', $this->fixPath(dirname(__FILE__)) .'../../pear/Text/Wiki/Parse/');

        $this->addPath('render', $this->fixPath(dirname(__FILE__)) .'../../pear/Text/Wiki/Render/');

        // Pour les règles spécifiques à Papyrus:

        $this->addPath('parse', $this->fixPath(dirname(__FILE__)) . 'Parse/');

        $this->addPath('render', $this->fixPath(dirname(__FILE__)) . 'Render/');

    }

    /**

    *

    * 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 (isset($this->formatObj[$format]) && 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 == chr($this->delim)) {

                    // yes, get the replacement text for the delimited

                    // token number and unset the flag.

                    $key = (int)$key;

                    $rule = null;

                    if (isset($this->tokens[$key][0])) {

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

                    }

                    $opts = null;

                    if (isset($this->tokens[$key][1])) {

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

                    }

                    if (isset($this->renderObj[$rule]) && is_object($this->renderObj[$rule])) {

                        $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 == chr($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 (isset($this->formatObj[$format]) && is_object($this->formatObj[$format])) {

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

        }

        // return the rendered source text.

        return $output;

    }

    /**

    *

    * 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 ++;

        }

        // force the options to be an array

        settype($options, 'array');

        // add the token

        $this->tokens[$id] = array(

            1 => $options

        );

        // return a value

        if ($id_only) {

            // return the last token number

            return $id;

        } else {

            // return the token number with delimiters

            return chr($this->delim) . $id . chr($this->delim);

        }

    }

}

// +------------------------------------------------------------------------------------------------------+

// |                                            PIED du PROGRAMME                                         |

// +------------------------------------------------------------------------------------------------------+

/* +--Fin du code ----------------------------------------------------------------------------------------+

*

* $Log: not supported by cvs2svn $

* Revision 1.14  2006/12/13 10:53:09  jp_milcent

* Suppression de l'action Redirection transformée en Applette.

*

* Revision 1.13  2006/12/13 09:43:13  jp_milcent

* Suppression de l'action Plan transformée en Applette.

*

* Revision 1.12  2006/12/12 17:16:52  jp_milcent

* Suppression de l'action Nouveaute transformée en Applette.

*

* Revision 1.11  2006/12/12 13:33:57  jp_milcent

* Suppression de l'action MotCles transformée en Applette.

*

* Revision 1.10  2006/12/08 20:16:27  jp_milcent

* Suppression de l'action Lien remplacée par une applette.

*

* Revision 1.9  2006/12/08 15:29:33  jp_milcent

* Suppression des actions transformées en applette.

*

* Revision 1.8  2006/05/10 16:02:49  ddelon

* Finition multilinguise et schizo flo

*

* Revision 1.7  2005/09/23 13:58:07  ddelon

* Php5, Projet et Redirection

*

* Revision 1.6  2005/04/18 16:41:53  jpm

* Ajout des actions Plan et Syndication.

*

* Revision 1.5  2005/04/14 16:35:42  jpm

* Ajout de nouvelles actions pour Papyrus XHTML.

*

* Revision 1.4  2005/01/20 19:39:39  jpm

* Correction bogue du à la fonction file_exists qui renvoie false pour les fichiers présent dans le dossier Pear /usr/local/lib/php/.

*

* Revision 1.3  2004/12/07 12:17:37  jpm

* Correction message d'erreur.

*

* Revision 1.2  2004/11/26 12:13:03  jpm

* Correction de résidu...

*

* Revision 1.1  2004/11/26 12:11:49  jpm

* Ajout des action Papyrus à Text_Wiki.

*

* Revision 1.2  2004/11/25 15:36:41  jpm

* Suppression régle Delimiter car problème avec les délimitations de fin de ligne.

*

* Revision 1.1  2004/11/23 17:25:38  jpm

* Début classe PEAR WIKI pour la syntaxe Wikini.

*

*

* +-- Fin du code ----------------------------------------------------------------------------------------+

*/

?>