Adding original md2html awk script by Jesus Galan and renaming former personal fork to avoid confusionmaster

1 files changed, 122 insertions, 0 deletions

diff --git a/mh.awk b/mh.awk
new file mode 100644
index 0000000..a961ca1
--- /dev/null
+++ b/mh.awk
@@ -0,0 +1,122 @@
+#!/bin/awk -f
+function eschtml(t) {
+gsub("<", "\\&lt;", t);
+gsub("%", "\\&#37;", t);
+ return t; }
+function oprint(t) { if(nr == 0) otext = otext t; else otext = otext t; }
+function nextil(t) {
+        if(!match(t, /[`<\[*_\\]|(\!\[)/)) return t
+        t1 = substr(t, 1, RSTART - 1)
+        tag = substr(t, RSTART, RLENGTH)
+        t2 = substr(t, RSTART + RLENGTH)
+        if(ilcode && tag != "`")
+                return eschtml(t1 tag) nextil(t2);
+        if(tag == "`"){
+                if(sub(/^`/, "", t2)){
+                        if(!match(t2, /``/))
+                                return t1 "&#8221;" nextil(t2);
+                        ilcode2 = !ilcode2;
+                }
+                else if(ilcode2)
+                        return t1 tag nextil(t2);
+                tag = "<pre>";
+                if(ilcode){
+#                       t1 = eschtml(t1);
+                        tag = "</pre>";
+                }
+                ilcode = !ilcode;
+                return t1 tag nextil(t2);
+        }
+        if(tag == "\\"){ if(match(t2, /^[\\*_{}\[\]()#+\-\.!]/)){ tag = substr(t2, 1, 1)
+        t2 = substr(t2, 2); }
+        return t1 tag nextil(t2); }
+        if(tag == "<"){
+                if(match(t2, /^[A-Za-z\/!][^>]*>/)){
+                        tag = tag substr(t2, RSTART, RLENGTH)
+                        t2 = substr(t2, RLENGTH + 1)
+                        return t1 tag nextil(t2);
+                }
+                return t1 "&lt;" nextil(t2);
+        }
+        if(tag == "["){
+                if(!match(t2, /(\[.*\])|(\(.*\))/)) return t1 tag nextil(t2); match(t2, /^[^\]]*(\[[^\]]*\][^\]]*)*/)
+                linktext = substr(t2, 1, RLENGTH)
+                t2 = substr(t2, RLENGTH + 2); if(match(t2, /^\(/)){ match(t2, /^[^\)]+(\([^\)]+\)[^\)]*)*/)
+                url = substr(t2, 2, RLENGTH - 1)
+                pt2 = substr(t2, RLENGTH + 2)
+                title = ""
+                if(match(url, /[ ]+\".*\"[ ]*$/)){ title = substr(url, RSTART, RLENGTH)
+                url = substr(url, 1, RSTART - 1)
+                match(title, /\".*\"/)
+                title = " title=\"" substr(title, RSTART + 1, RLENGTH - 2) "\""; } if(match(url, /^<.*>$/)) url = substr(url, 2, RLENGTH - 2)
+#               url = eschtml(url)
+                return t1 "<a href="url""title">"nextil(linktext)"</a>" nextil(pt2); }
+        }
+         if(match(tag, /[*_]/)){ ntag = tag; if(sub("^" tag, "", t2)){ if(stag[ns] == tag && match(t2, "^" tag)) t2 = tag t2; else ntag = tag tag; } n = length(ntag)
+        tag = (n == 2) ? "b" : "i"
+        if(match(t1, / $/) && match(t2, /^ /)) return t1 tag nextil(t2)
+        if(stag[ns] == ntag){ tag = "/" tag; ns--; } else stag[++ns] = ntag
+        tag = "<" tag ">"
+        return t1 tag nextil(t2); } }
+function inline(t){ ilcode = 0; ilcode2 = 0; ns = 0; return nextil(t); }
+function printp(tag){ if(!match(text, /^[ ]*$/)){ text = inline(text);if(tag != "") oprint("<" tag ">" text "</" tag ">"); else oprint(text); } text = ""; }
+# function printp(tag){if(match(text,/^[ ]*$/)){text="";return}text=inline(text);if(tag=="p"){oprint("<"tag">"text)}else{oprint("<"tag">"text"</"tag">")};text=""}
+# ELSE function printp(tag){if(!match(text,/^[ ]*$/)){text=inline(text);if(tag=="p"){oprint("<"tag">"text)}else{oprint("<"tag">"text"</"tag">")}}text=""}
+BEGIN{blank=0;hr=0;nl=0;nr=0;text="";par="p";}
+{
+        for(nnl = 0; nnl < nl; nnl++)
+        if((match(block[nnl + 1], /[ou]l/) && !sub(/^(    |     )/, "")) || \
+        (block[nnl + 1] == "blockquote" && !sub(/^> ?/, "")))
+            break;
+}
+nnl < nl && !blank && text && ! /^ ? ? ?([*+-]|([0-9]+\.)+)( +| )/ { nnl = nl; }
+{ hr = 0; }
+block[nl] ~ /[ou]l/ && /^$/ {
+        blank = 1;
+        next;
+}
+{ newli = 0; }
+!hr && (nnl != nl || !text || block[nl] ~ /[ou]l/) && /^ ? ? ?[*+-]( +| )/ {
+    sub(/^ ? ? ?[*+-]( +|       )/, "");
+    nnl++;
+    nblock[nnl] = "ul";
+    newli = 1;
+}
+newli {
+    if(blank && nnl == nl && !par)
+        par = "p";
+    blank = 0;
+    printp(par);
+    if(nnl == nl && block[nl] == nblock[nl])
+         oprint("<li>");
+}
+blank && ! /^$/ {
+    if(match(block[nnl], /[ou]l/) && !par)
+        par = "p";
+    printp(par);
+    par = "p";
+    blank = 0;
+}
+nnl != nl || nblock[nl] != block[nl] {
+    printp(par);
+    b = (nnl > nl) ? nblock[nnl] : block[nl];
+    par = (match(b, /[ou]l/)) ? "" : "p";
+}
+nnl < nl || (nnl == nl && nblock[nl] != block[nl]) {
+    for(; nl > nnl || (nnl == nl && pblock[nl] != block[nl]); nl--){
+        oprint("</" block[nl] ">");
+    }
+}
+nnl > nl {
+    for(; nl < nnl; nl++){
+        block[nl + 1] = nblock[nl + 1];
+        oprint("<" block[nl + 1] ">");
+        if(match(block[nl + 1], /[ou]l/))
+            oprint("<li>");
+    }
+}
+/^#+/ && (!newli || par=="p" || /^##/) { for(n = 0; n < 6 && sub(/^# */, ""); n++) sub(/#$/, ""); par = "h" n; }
+/^$/ { printp(par); par = "p"; next; }
+{ text = (text ? text " " : "") $0; }
+END{printp(par);printf(otext);printf("ENTER FOOTER HERE")}
+# maybe treat par as you do #h1 so to avoid closing tag