First quasi-fonctionnal markdown version

git-svn-id: https://svn.fournier38.fr/svn/ProgSVN/trunk@1284 bf3deb0d-5f1a-0410-827f-c0cc1f45334c

markdown.php

@@ -5,7 +5,7 @@
 
 function debugMKD ($msg)
 {
-  //return;
+  return;
   $trace = debug_backtrace();
   $back = reset ($trace);
   file_put_contents ("/tmp/debug", "[".$back["line"]."] $msg\n", FILE_APPEND);
@@ -23,6 +23,8 @@ class markdown
     $search = array ();
     $replace = array ();
 
+    $mark = htmlentities ($mark, ENT_QUOTES);
+
     // SEPARATORS : *** --- ___ * * * - - - _ _ _
     // Must be placed before EMPHASIS
     $search[] = "/\\n^[*_-] ?[*_-] ?[*_-]$/Um";
@@ -80,15 +82,17 @@ class markdown
     $replace[] = "</p>\n<h1>\\1</h1>\n<p>";
     // Titre2
     // ------
-    $search[] = "/\\n^(.+)\\n--+$\\n/Um";
+    $search[] = "/^(.+)\\n--+$\\n/Um";
-    $replace[] = "</p>\n<h2>\\1</h2>\n<p>";
+    $replace[] = "\n<h2>\\1</h2>\n";
 
     // End of line with double space : <br/>
     $search[] = "/(  )$/Um";               $replace[] = "<br/>";
 
+    // End of line with continuous on second line : add blank
+//    $search[] = "/(.)\\n([A-Za-z0-9])/Um"; $replace[] = "\\1 \\2";
     $res = preg_replace ($search, $replace, $mark);
-
     $res = $this->paragraph ($res);
+
     return $res;
   }
 
@@ -100,6 +104,7 @@ class markdown
     $mark = trim ($mark);
     if ($mark === "")
       return "";
+
     $spacer = "    ";
     $res = "";
     // P, OL, UL (but not LI !)
@@ -110,9 +115,15 @@ class markdown
     // All the HTML stack (with LI)
     $htmlStack = array ();
     $lines = explode ("\n", $mark);
-    foreach ($lines as $line)
+    foreach ($lines as $nb=>$line)
     {
       debugMKD ("DEBUT:$line");
+      if (substr (ltrim ($line), 0, 1) === "<")
+      {
+        debugMKD ("HTML : Skipped");
+        $res .= $line;
+        continue;
+      }
       $type = $this->paragraphType ($line);
       debugMKD ("DEBUT:  Type='$type'");
       $matches = array ();
@@ -120,15 +131,22 @@ class markdown
       {
       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, " ");
       debugMKD ("DEBUT:  Indent='$indent'");
 
@@ -143,9 +161,19 @@ class markdown
           $res .= "</li>";
           array_pop ($htmlStack);
         }
+
         $oldType = array_pop ($typeStack);
+        if ($oldType === "code")
+        {
+          debugMKD (str_repeat (" ", end ($indentStack))."</code></pre>");
+          $res .= str_repeat (" ", end ($indentStack))."</code></pre>\n";
+          array_pop ($htmlStack);
+        }
+        else
+        {
           debugMKD (str_repeat (" ", end ($indentStack))."</$oldType>");
-        $res .= "\n".str_repeat (" ", end ($indentStack))."</$oldType>";
+          $res .= str_repeat (" ", end ($indentStack))."</$oldType>\n";
+        }
         array_pop ($htmlStack);
         array_pop ($indentStack);
         if ($type === "ol" || $type === "ul")
@@ -155,6 +183,7 @@ class markdown
           $res .= "\n</li>";
           array_pop ($htmlStack);
         }
+
         if ($type === "")
         {
           debugMKD ("DEB3 : End of block");
@@ -164,7 +193,7 @@ class markdown
         }
       }
 
-      if ($indent == end ($indentStack))
+      if ($indent == end ($indentStack) && $type !== "" && end ($typeStack))
       {
         debugMKD ("DEB1 : Continuous block $type/".end ($typeStack));
         if (end ($htmlStack) === "li")
@@ -174,7 +203,7 @@ class markdown
           $res .= "</li>";
           array_pop ($htmlStack);
         }
-        debugMKD ( "DEB1 : Continuous block $type/".end ($typeStack)." SECOND");
+
         if ($type !== end ($typeStack))
         {
           debugMKD ("DEB2 : Continuous Block but type change");
@@ -200,16 +229,43 @@ class markdown
 
       }
 
-      if ($indent > end ($indentStack))
+      if ($indent > end ($indentStack) && end ($typeStack) !== "code")
       {
+        // The code indentation should not be parsed as a new code : the
+        // <code></code> continue until the end of paragraph
         debugMKD ("DEB1 :  Starting a new block");
+        if ($type === "")
+        {
+          debugMKD ("No type : skipped");
+          continue;
+        }
+
         if (end ($indentStack))
           array_pop ($indentStack);
-        array_push ($indentStack, $indent);
+        if ($type === "code")
+        {
+          // Code need a pre before code
+          if (end ($typeStack))
+          {
+            debugMKD ("DEB2 : CODE : Close older HTML");
+            $oldType = array_pop ($typeStack);
+            debugMKD (str_repeat (" ", end ($indentStack))."</$oldType>");
+            $res .= str_repeat (" ", end ($indentStack))."</$oldType>";
+            array_pop ($htmlStack);
+          }
+          $type = "pre><code";
+          $htmlStack[] = "pre";
+          $htmlStack[] = "code";
+          array_push ($typeStack, "code");
+        }
+        else
+        {
+          $htmlStack[] = $type;
           array_push ($typeStack, $type);
+        }
+        array_push ($indentStack, $indent);
         debugMKD (str_repeat (" ", $indent)."<$type>");
         $res .= "\n".str_repeat (" ", $indent)."<$type>";
-        $htmlStack[] = $type;
         if ($type === "ol" || $type === "ul")
         {
           debugMKD ("DEB2 : Adding li");
@@ -219,9 +275,17 @@ class markdown
         }
       }
 
-      debugMKD ("$lineTxt");
+      if ($type === "" &&  end ($indentStack))
-      $res .= "$lineTxt";
+      {
+        debugMKD ("DEB2 : Empty type");
+        $oldType = array_pop ($typeStack);
+        debugMKD (str_repeat (" ", end ($indentStack))."</$oldType>");
+        $res .= "\n".str_repeat (" ", end ($indentStack))."</$oldType>";
+        array_pop ($htmlStack);
+      }
 
+      debugMKD ("$lineTxt");
+      $res .= "$lineTxt\n";
     }
 
     debugMKD ("DEB1 : End of loop");
@@ -240,13 +304,14 @@ class markdown
       p, ul, ol, code */
   private function paragraphType ($line)
   {
-    $line = ltrim ($line);
     if (! isset ($line{0}))
       return "";
-    if ($line{0} === "*" || $line{0} === "-" || $line{0} === "+")
+    if (preg_match ("/^[ \t]*[+*-] /", $line) === 1)
       return "ul";
-    if (preg_match ("/^[0-9]+\. /", $line) === 1)
+    if (preg_match ("/^[ \t]*[0-9]+\. /", $line) === 1)
       return "ol";
+    if (preg_match ("/^(    |\t)+/", $line) === 1)
+      return "code";
     return "p";
   }
 }