Subversion Repositories Applications.papyrus

<?php

// 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"))
{
    function wakka2callback($things)
    {
        $thing = $things[1];
        $result='';

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

        global $wiki;
    
        // convert HTML thingies
        if ($thing == "<")
            return "&lt;";
        else if ($thing == ">")
            return "&gt;";
        // 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];
                
            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>");
                }
        // 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 noshade=\"noshade\" size=\"1\" />";
        }
        // 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];
            if (preg_match("/^\((.+?)\)(.*)$/s", $code, $matches))
            {
                list(, $language, $code) = $matches;
            }
            switch ($language)
            {
            case "php":
                $formatter = "php";
                break;
            default:
                $formatter = "code";
            }

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

            return $output;
        }
        // raw inclusion from another wiki
        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
        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))
        {
            // new line
            $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] = false;//ATTENTION : ajout de cette ligne
            $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 { 
                if ( ! isset( $matches[4]) ) $matches[4] = '';//ATTENTION : ajout de cette ligne
                $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)
                        if ( ! isset( $newIndentSpace[$newIndentLength] ) ) $newIndentSpace[$newIndentLength] = 0;//ATTENTION : ajout de cette ligne
                        $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 && isset($li)) $result .= "</li>";//ATTENTION : ajout de isset($li) à la place de$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);
        }
        // if we reach this point, it must have been an accident.
        return $thing;
    }
}


$text = str_replace("\r", "", $text);
$text = trim($text)."\n";
$text = preg_replace_callback(
    "/(\%\%.*?\%\%|".
    "\"\".*?\"\"|".
    "\[\[.*?\]\]|".
    "\b[a-z]+:\/\/\S+|".
    "\*\*|\#\#|@@|££|__|<|>|\/\/|".
    "======|=====|====|===|==|".
    "-{4,}|---|".
    "\n(\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));
print($text);
?>