Subversion Repositories Applications.papyrus

Rev

Rev 1372 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<?php
/*
wakka.php
Copyright (c) 2002, Hendrik Mans <hendrik@mans.de>
Copyright 2002, 2003 David DELON
Copyright 2002, 2003 Charles NEPOTE
Copyright 2002, 2003 Patrick PAUL
Copyright  2003  Eric DELORD
Copyright  2003  Eric FELDSTEIN
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions
are met:
1. Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
3. The name of the author may not be used to endorse or promote products
derived from this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
// This may look a bit strange, but all possible formatting tags have to be in a single regular expression for this to work correctly. Yup!

if (!function_exists("wakka2callback"))
{
        include("formatters/tableaux.php");     //EF => tableaux
        function wakka2callback($things)
        {
                $thing = $things[1];
        $result='';

                static $oldIndentLevel = 0;
                static $oldIndentLength= 0;
                static $indentClosers = array();
                static $newIndentSpace= array();
                static $br = 1;

                $brf=0;
                global $wiki;
        
                // convert HTML thingies
                if ($thing == "<")
                        return "&lt;";
                else if ($thing == ">")
                        return "&gt;";
                //EF=> tableaux
                else if (preg_match("/^\[\|(.*)\|\]/s", $thing))
                {
                        return parsetable($thing);
                }       //end tableaux
                // bold
                else if ($thing == "**")
                {
                        static $bold = 0;
                        return (++$bold % 2 ? "<b>" : "</b>");
                }
                // italic
                else if ($thing == "//")
                {
                        static $italic = 0;
                        return (++$italic % 2 ? "<i>" : "</i>");
                }
                // underlinue
                else if ($thing == "__")
                {
                        static $underline = 0;
                        return (++$underline % 2 ? "<u>" : "</u>");
                }
                // monospace
                else if ($thing == "##")
                {
                        static $monospace = 0;
                        return (++$monospace % 2 ? "<tt>" : "</tt>");
                }
                // Deleted 
                else if ($thing == "@@")
                {
                        static $deleted = 0;
                        return (++$deleted % 2 ? "<span class=\"del\">" : "</span>");
                }
                // Inserted
                else if ($thing == "££")
                {
                        static $inserted = 0;
                        return (++$inserted % 2 ? "<span class=\"add\">" : "</span>");
                }
                // urls
                else if (preg_match("/^([a-z]+:\/\/\S+?)([^[:alnum:]^\/])?$/", $thing, $matches)) {
                        $url = $matches[1];
                        if (!isset($matches[2])) $matches[2] = '';
                        return "<a href=\"$url\">$url</a>".$matches[2];
                }
                // header level 5
                else if ($thing == "==")
                {
                        static $l5 = 0;
                        $br = 0;
                        return (++$l5 % 2 ? "<h5>" : "</h5>");
                }
                // header level 4
                else if ($thing == "===")
                {
                        static $l4 = 0;
                        $br = 0;
                        return (++$l4 % 2 ? "<h4>" : "</h4>");
                }
                // header level 3
                else if ($thing == "====")
                {
                        static $l3 = 0;
                        $br = 0;
                        return (++$l3 % 2 ? "<h3>" : "</h3>");
                }
                // header level 2
                else if ($thing == "=====")
                {
                        static $l2 = 0;
                        $br = 0;
                        return (++$l2 % 2 ? "<h2>" : "</h2>");
                }
                // header level 1
                else if ($thing == "======")
                {
                        static $l1 = 0;
                        $br = 0;
                        return (++$l1 % 2 ? "<h1>" : "</h1>");
                }
                // forced line breaks
                else if ($thing == "---")
                {
                        return "<br />";
                }
                // escaped text
                else if (preg_match("/^\"\"(.*)\"\"$/s", $thing, $matches))
                {
                        return $matches[1];
                }
                // code text
                else if (preg_match("/^\%\%(.*)\%\%$/s", $thing, $matches))
                {
                        // check if a language has been specified
                        $code = $matches[1];
                        $language='';
                        if (preg_match("/^\((.+?)\)(.*)$/s", $code, $matches))
                        {
                                list(, $language, $code) = $matches;
                        }
                        //Select formatter for syntaxe hightlighting
                        if (file_exists("formatters/coloration_".$language.".php")){
                                $formatter = "coloration_".$language;
                        }else{
                                $formatter = "code";
                        }

                        $output = "<div class=\"code\">";
                        $output .= $wiki->Format(trim($code), $formatter);
                        $output .= "</div>";

                        return $output;
                }
                // raw inclusion from another wiki
                // (regexp documentation : see "forced link" below)
                else if (preg_match("/^\[\[\|(\S*)(\s+(.+))?\]\]$/", $thing, $matches))
                {
                        list (,$url,,$text) = $matches;
                        if (!$text) $text = "404";
                        if ($url)
                        {
                                $url.="/wakka.php?wiki=".$text."/raw";
                                return $wiki->Format($wiki->Format($url, "raw"),"wakka");
                        }
                        else
                        {
                                return "";
                        }
                }
                // forced links
                // \S : any character that is not a whitespace character
                // \s : any whitespace character
                else if (preg_match("/^\[\[(\S*)\s+(.+)?\]\]$/", $thing, $matches))
                {
                        list (, $url, $text) = $matches;
                        if ($url)
                        {
                                if ($url!=($url=(preg_replace("/@@|££|\[\[/","",$url))))$result="</span>";
                                if (!$text) $text = $url;
                                $text=preg_replace("/@@|££|\[\[/","",$text);
                                return $result.$wiki->Link($url, "", $text);
                        }
                        else
                        {
                                return "";
                        }
                }
                // indented text
                else if ((preg_match("/\n(\t+|([ ]{1})+)(-|([0-9,a-z,A-Z]+)\))?/s", $thing, $matches))
                 ||  (preg_match("/^(\t+|([ ]{1})+)(-|([0-9,a-z,A-Z]+)\))?/s", $thing, $matches) && $brf=1))
                {
                        // new line
                        if ($brf) $br=0;
                        $result .= ($br ? "<br />\n" : "");

                        // we definitely want no line break in this one.
                        $br = 0;

                        // find out which indent type we want
                        if (!isset($matches[3])) $matches[3] = '';
                        $newIndentType = $matches[3];
                        if (!$newIndentType) { $opener = "<div class=\"indent\">"; $closer = "</div>"; $br = 1; }
                        else if ($newIndentType == "-") { $opener = "<ul>\n"; $closer = "</li>\n</ul>"; $li = 1; }
                        else { $opener = "<ol type=\"".$matches[4]."\">\n"; $closer = "</li>\n</ol>"; $li = 1; }

                        // get new indent level
                        
                        if (strpos($matches[1],"\t")) $newIndentLevel = strlen($matches[1]);
                        else
                        {
                                $newIndentLevel=$oldIndentLevel;
                                $newIndentLength = strlen($matches[1]);
                                if ($newIndentLength>$oldIndentLength)
                                { 
                                        $newIndentLevel++;
                                        $newIndentSpace[$newIndentLength]=$newIndentLevel;
                                }
                                else if ($newIndentLength<$oldIndentLength)
                                                $newIndentLevel=$newIndentSpace[$newIndentLength];
                        }
                        $op=0;
                        if ($newIndentLevel > $oldIndentLevel)
                        {
                                for ($i = 0; $i < $newIndentLevel - $oldIndentLevel; $i++)
                                {
                                        $result .= $opener;
                                        $op=1;
                                        array_push($indentClosers, $closer);
                                }
                        }
                        else if ($newIndentLevel < $oldIndentLevel)
                        {
                                for ($i = 0; $i < $oldIndentLevel - $newIndentLevel; $i++)
                                {
                                        $op=1;
                                        $result .= array_pop($indentClosers);
                                        if ($oldIndentLevel && $li) $result .= "</li>";
                                }
                        }

                        if (isset($li) && $op) $result .= "<li>";
                        else if (isset($li))
                                $result .= "</li>\n<li>";

                        $oldIndentLevel = $newIndentLevel;
                        $oldIndentLength= $newIndentLength;

                        return $result;
                }
                // new lines
                else if ($thing == "\n")
                {
                        // if we got here, there was no tab in the next line; this means that we can close all open indents.
                        $c = count($indentClosers);
                        for ($i = 0; $i < $c; $i++)
                        {
                                $result .= array_pop($indentClosers);
                                $br = 0;
                        }
                        $oldIndentLevel = 0;
                        $oldIndentLength= 0;
                        $newIndentSpace=array();

                        $result .= ($br ? "<br />\n" : "\n");
                        $br = 1;
                        return $result;
                }
                // events
                else if (preg_match("/^\{\{(.*?)\}\}$/s", $thing, $matches))
                {
                        if ($matches[1])
                                return $wiki->Action($matches[1]);
                        else
                                return "{{}}";
                }
                // interwiki links!
                else if (preg_match("/^[A-Z][A-Z,a-z]+[:]([A-Z,a-z,0-9]*)$/s", $thing))

                {
                        return $wiki->Link($thing);
                }
                // wiki links!
                else if (preg_match("/^[A-Z][a-z]+[A-Z,0-9][A-Z,a-z,0-9]*$/s", $thing))
                {
                        return $wiki->Link($thing);
                }
                // separators
                else if (preg_match("/-{4,}/", $thing, $matches))
                {
                        // TODO: This could probably be improved for situations where someone puts text on the same line as a separator.
                        //       Which is a stupid thing to do anyway! HAW HAW! Ahem.
                        $br = 0;
                        return "<hr />";
                }
                // if we reach this point, it must have been an accident.
                return $thing;
        }
}


$text = str_replace("\r", "", $text);
$text = chop($text)."\n";
$text = preg_replace_callback(
        "/(\%\%.*?\%\%|".
        "^\[\|.*?\|\]|".        //EF => tableaux
        "\"\".*?\"\"|".
        "\[\[.*?\]\]|".
        "\b[a-z]+:\/\/\S+|".
        "\*\*|\#\#|@@|££|__|<|>|\/\/|".
        "======|=====|====|===|==|".
        "-{4,}|---|".
        "\n(\t+|([ ]{1})+)(-|[0-9,a-z,A-Z]+\))?|".
        "^(\t+|([ ]{1})+)(-|[0-9,a-z,A-Z]+\))?|".
        "\{\{.*?\}\}|".
        "\b[A-Z][A-Z,a-z]+[:]([A-Z,a-z,0-9]*)\b|".
        "\b([A-Z][a-z]+[A-Z,0-9][A-Z,a-z,0-9]*)\b|".
        "\n)/ms", "wakka2callback", $text);

// we're cutting the last <br />
$text = preg_replace("/<br \/>$/","", trim($text));
echo $text ;
?>