EOL); /** * Replaces markups things like __underlined__ to underlined. * @param $instruction the characters to replace, ex. _ * @param $markup the markup to replace to, ex. "u" to get … * @param &$text where to replace. */ function markupPreg($instruction, $markup, &$text) { $output = $text; # Replaces couples "__word__" into "word". $output = mb_ereg_replace("${instruction}(.+?)${instruction}", "<{$markup}>\\1", $output); # Replaces a remaining __ into "…" to the end of the line. $output = mb_ereg_replace("${instruction}(.+)?", "<{$markup}>\\1", $output); $text = $output; } /** * Adds text attributes sucj as underline, bold, … to $line * @param $line the line to process */ function addTextAttributes(&$line) { markupPreg("__", "u", $line); markupPreg("\*\*", "strong", $line); markupPreg("//", "em", $line); markupPreg("~~", "del", $line); } /** * Escapes the HTML entities yet contained in the Gemtext, keeps multiple spaces. * @param $text1, $text2 texts to process */ function htmlEscape(&$text) { $text = htmlspecialchars($text, ENT_HTML5|ENT_NOQUOTES, "UTF-8", false); $text = mb_ereg_replace("\ ([?!:;»€$])", " \\1", $text); # Espace fine insécable $text = mb_ereg_replace("([«])\ ", "\\1 ", $text); # Espace fine insécable } $mode = null; $mode_textAttributes = true; foreach ($fileLines as $line) { $reDoCount = 0; while (true) { if ($reDoCount>1) die("Too many loops"); $reDoCount += 1; $line1 = substr($line, 0, 1); // $line can be modified $line2 = substr($line, 0, 2); // in the meantime. $line3 = substr($line, 0, 3); if (is_null($mode)) { if (empty($line)) { print("

\n"); } elseif (b"\xEF\xBB\xBF" == $line3) { # Removes the Byte Order Mark $line = substr($line, 3); continue; } elseif ("#" == $line1) { preg_match("/^(#{1,3})\s*(.*)/", $line, $sharps); $h_level = strlen($sharps[1]); $text = $sharps[2]; htmlEscape($text); switch ($h_level) { case 1: print("

".$text."

\n"); break; case 2: print("

".$text."

\n"); break; case 3: print("

".$text."

\n"); break; } } elseif ("=>" == $line2) { preg_match("/^=>\s*([^\s]+)(\s+(.*))?$/", $line, $linkParts); $url_link = $linkParts[1]; $url_label = $linkParts[2]; if (empty(trim($url_label))) { $url_label = $url_link; } else { // the label is humain-made, apply formatting htmlEscape($url_label); } print("

".$url_label."

\n"); } elseif ('"""' == $line3) { $mode_textAttributes = !$mode_textAttributes; } elseif ("```" == $line3) { $mode="pre"; print("

\n");
            } elseif (">" == $line1) {
                $mode = "quote";
                preg_match("/^>\s*(.*)$/", $line, $quoteParts);
                $quote = $quoteParts[1];
                print("\n");
                if (empty($quote))
                    print(" \n");
                else
                    htmlEscape($quote);
                    if ($mode_textAttributes) addTextAttributes($line);
                    print("".$quote."\n");
            } elseif ("*" == $line1 && "**" != $line2) {
                $mode = "ul";
                print("\n");
                continue;
            } else {
                htmlEscape($line);
                if ($mode_textAttributes) addTextAttributes($line);
                print("$line\n");
            }
        } elseif ("pre"==$mode) {
            if ("```" == $line3) {
                $mode=null;
                print("

\n"); } else { htmlEscape($line); print($line."\n"); } } elseif ("quote"==$mode) { if (">" == $line1) { preg_match("/^>\s*(.*)$/", $line, $quoteParts); $quote = $quoteParts[1]; if (empty($quote)) print("

\n"); else htmlEscape($quote); print("

".$quote."

\n"); } else { $mode=null; print("\n"); continue; } } elseif ("ul"==$mode) { if ("*" == $line1 && "**" != $line2) { preg_match("/^\*\s*(.*)$/", $line, $ulParts); $li = $ulParts[1]; if (empty($li)) print("

\n"); else htmlEscape($li); addTextAttributes($li); print("

".$li."\n"); } else { $mode = null; print("\n"); continue; } } break; // Do one loop, except if required } } echo "\n\n"; ob_end_flush(); ?>