*/
error_reporting (E_ALL);
/** Markdown management */
class markdown
{
/** debug variable */
public $debug = false;
/** Convert the markdown language to HTML
Return the HTML string
@param string $mark Message in markdown syntax to display */
public function html ($mark)
{
if ($this->debug && file_exists ("/tmp/debugMD"))
unlink ("/tmp/debugMD");
$res = "";
$mark = htmlentities ($mark, ENT_QUOTES);
// Here are the regexp on multilines
$search = array ();
$replace = array ();
// Titles with underline (SeText)
// Titre1
// ======
$search[] = "/^(.+)\\n==+$\\n/Um";
$replace[] = "\n\\1
\n";
// Titre2
// ------
$search[] = "/^(.+)\\n--+$\\n/Um";
$replace[] = "\n\\1
\n";
// SEPARATORS : *** --- ___ * * * - - - _ _ _
// Must be placed before EMPHASIS
$search[] = "/^[*_-] ?[*_-] ?[*_-]$/Um";
$replace[] = "\n
\n";
$mark = preg_replace ($search, $replace, $mark);
$res = $this->paragraph ($mark);
$res = str_replace ("\n", "", $res);
$res = str_replace ("", "", $res);
$res = str_replace ("\n
\n", "", $res);
return $res;
}
/** Translate the Markdown paragraph in HTML
return the html */
private function paragraph ($mark)
{
// Think thereis already htmlentities passed on $mark !!!
$timeStart = microtime (TRUE);
$timeregex = 0;
// Initialization of convertions
$search = array ();
$replace = array ();
// Titles short
// == TITRE1
$search[] = "/^==+ (.+)( ==+)?$/Um";
$replace[] = "\n\\1
\n";
// -- TITRE2
$search[] = "/^--+ (.+)( --+)?$/Um";
$replace[] = "
\n\\1
\n";
// EMPHASIS : _ or * for normal, __ or ** for strong
$search[] = "/__(.+)__/"; $replace[] = "\\1";
$search[] = "/_(.+)_/"; $replace[] = "\\1";
$search[] = "/\*\*(.+)\*\*/"; $replace[] = "\\1";
$search[] = "/\*(.+)\*/"; $replace[] = "\\1";
// CODE : `code` ->
$search[] = "/\\n?\`((\\n|.)+)\`/Um";
$replace[] = "\\1";
// LINKS
// [Google Site](http://google.fr/ "With help bubble")
$search[] = "(\[(.+)\]\((https?://.+) \"(.+)\"\))";
$replace[] = "\\1";
// [Google Site](http://google.fr/)
$search[] = "(\[(.+)\]\((http.+)\))"; $replace[] = "\\1";
// Automatics links :
//
//
$search[] = "#<(https?://.+)>#";
$replace[] = "\\1";
$search[] = "#<(.+@.+)>#";
$replace[] = "\\1";
// TODO : Links by reference :
// Voici un petit texte écrit par [Michel Fortin][mf].
// [mf]: http://michelf.ca/ "Mon site web"
// TITLES
// Titles ATX (Optionnal sharp at the end)
// ###### Title6
$search[] = "/^###### (.+)( +#*)$/Um";
$replace[] = "
\\1
";
// ##### Title5
$search[] = "/^##### (.+)( +#*)$/Um";
$replace[] = "
\\1
";
// #### Title4
$search[] = "/^#### (.+)( +#*)$/Um";
$replace[] = "
\\1
";
// ### Title3
$search[] = "/^### (.+)( +#*)$/Um";
$replace[] = "
\\1
";
// ## Title2
$search[] = "/^## (.+)( +#*)$/Um";
$replace[] = "
\\1
";
// # Title1
$search[] = "/^# (.+)( +#*)$/Um";
$replace[] = "
\\1
";
// End of line with double space :
$search[] = "/( )$/Um"; $replace[] = "
";
// End of line with continuous on second line : add blank
// $search[] = "/(.)\\n([A-Za-z0-9])/Um"; $replace[] = "\\1 \\2";
// Cleanning the markdown text
$mark = str_replace ("\t", " ", $mark);
if (trim ($mark) === "")
return "";
$spacer = " ";
$res = "";
// P, OL, UL (but not LI !)
// Use to found the changing of types
$typeStack = array ();
// Number of spaces
$indentStack = array (-1);
// All the HTML stack (with LI)
$htmlStack = array ();
$lines = explode ("\n", $mark);
$timeInit = microtime (TRUE) - $timeStart;
$blockLI = false;
foreach ($lines as $nb=>$line)
{
$this->debugMKD ("DEBUT:$line");
if (substr (ltrim ($line), 0, 1) === "<")
{
$this->debugMKD ("HTML : Skipped");
$res .= $line;
continue;
}
$type = $this->paragraphType ($line);
$this->debugMKD ("DEBUT: Type='$type'");
$matches = array ();
switch ($type)
{
case "ol" :
preg_match ("/^( *)[0-9]+\. +(.*)/", $line, $matches);
if (!isset ($matches[2]))
$lineTxt = $line;
else
$lineTxt = $matches[2];
break ;
case "ul" :
preg_match ("/^( *)[-+*] +(.*)/", $line, $matches);
if (!isset ($matches[2]))
$lineTxt = $line;
else
$lineTxt = $matches[2];
break ;
default:
$lineTxt = $line;
}
$indent = strspn ($line, " ");
$this->debugMKD ("DEBUT: Indent='$indent'");
$this->debugMKD ("DEBUT: indentStack=".print_r ($indentStack, TRUE));
$this->debugMKD ("DEBUT: typeStack=".print_r ($typeStack, TRUE));
// Spacing
if ($indent < end ($indentStack))
{
$this->debugMKD ("DEB1 : Ending of block");
if (end ($htmlStack) === "li")
{
$this->debugMKD ("Pending
: closing");
$this->debugMKD ("");
$res .= "\n";
array_pop ($htmlStack);
}
// Remove last \n to put closing tag at the end of line
$res = substr ($res, 0, -1);
$oldType = array_pop ($typeStack);
if ($oldType === "code")
{
$this->debugMKD ("");
$res .= "";
array_pop ($htmlStack);
array_pop ($indentStack);
}
else
{
$this->debugMKD (str_repeat (" ", end ($indentStack))."");
$res .= str_repeat (" ", end ($indentStack))."";
}
array_pop ($indentStack);
array_pop ($htmlStack);
if ($type === "ol" || $type === "ul")
{
$this->debugMKD ("DEB2 : Pending : closing");
$this->debugMKD ("");
$res .= "";
array_pop ($htmlStack);
}
if ($type === "")
{
$this->debugMKD ("DEB3 : End of block");
array_pop ($indentStack);
$res .= "\n";
continue;
}
}
if ($indent == end ($indentStack))
{
$this->debugMKD ("DEB1 : Continuous block $type/".end ($typeStack));
if (end ($htmlStack) === "li" && $type !== "p")
{
$this->debugMKD ("Pending : closing");
$this->debugMKD ("");
$res .= "";
array_pop ($htmlStack);
$blockLI = false;
}
elseif (end ($htmlStack) === "li" && $type === "p")
{
$this->debugMKD ("DEB2 : Continuous LI block");
// Suppress \n on last line
$res = substr ($res, 0, -1);
$type = prev ($htmlStack);
$blockLI = true;
$lineTxt = " ".$lineTxt;
}
if ($type !== end ($typeStack))
{
$this->debugMKD ("DEB2 : Continuous Block but type change");
if (end ($typeStack) !== FALSE)
{
// Remove last \n to put closing tag at the end of line
//$res = substr ($res, 0, -1);
$oldType = array_pop ($typeStack);
$this->debugMKD (str_repeat (" ", end ($indentStack))."");
$res .= str_repeat (" ", end ($indentStack))."";
array_pop ($indentStack);
array_pop ($htmlStack);
}
if ($type !== "")
{
$this->debugMKD (str_repeat (" ", end ($indentStack))."<$type>");
$res .= "".str_repeat (" ", end ($indentStack))."<$type>";
$htmlStack[] = $type;
array_push ($indentStack, $indent);
array_push ($typeStack, $type);
}
}
if (($type === "ol" || $type === "ul") && $blockLI === false)
{
$this->debugMKD ("DEB2 : Adding li");
$htmlStack[] = "li";
$this->debugMKD (str_repeat (" ", $indent)."");
$res .= "\n".str_repeat (" ", $indent)."";
}
}
if ($indent > end ($indentStack) && end ($typeStack) !== "code")
{
// The code indentation should not be parsed as a new code : the
//