about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-08-02 09:25:42 -0500
committerCase Duckworth2022-08-02 09:26:59 -0500
commit0d81f5100640c7f961fe6d6e79a6b0d801b3289b (patch)
treed5edcc746b7612e8ebebf2ea7407c6eabd53b9f7
downloaddocawk-0d81f5100640c7f961fe6d6e79a6b0d801b3289b.tar.gz
docawk-0d81f5100640c7f961fe6d6e79a6b0d801b3289b.zip
Initial commit HEAD main
Diffstat
-rw-r--r--README.html203


-rwxr-xr-xdoc.awk213


-rw-r--r--footer.html2


-rw-r--r--header.html4


-rwxr-xr-xhtmlsafe.awk8


-rwxr-xr-xmdown.awk903


-rw-r--r--style.css31


7 files changed, 1364 insertions, 0 deletions
diff --git a/README.html b/README.html
new file mode 100644
index 0000000..94c9c2d
--- /dev/null
+++ b/README.html

@@ -0,0 +1,203 @@


1<!DOCTYPE html>


2<title>doc.awk</title>


3<link type="text/css" rel="stylesheet" href="style.css" />


4<body>


5<h1 id="doc-awk"><a href="#doc-awk" class="header">DOC AWK&nbsp;<svg width="16" height="16" xmlns="http://www.w3.org/2000/svg"><g transform="rotate(-30, 8, 8)" stroke="#000000" opacity="0.25"><rect fill="none" height="6" width="8" x="2" y="6" rx="1.5"/><rect fill="none" height="6" width="8" x="6" y="4" rx="1.5"/></g></svg></a></h1>


6<p>A quick-and-dirty literate-programming-style documentation generator


7inspired by <a class="normal" href="https://ashkenas.com/docco/" title="">docco</a>.</p>


8<p>by Case Duckworth <a class="normal" href="&#x6D;a&#105;&#108;&#x74;&#x6F;&#58;a&#x63;&#x64;&#x77;&#x40;&#97;&#x63;&#x64;&#x77;&#x2E;&#x6E;&#x65;&#x74;">&#97;&#x63;&#x64;w&#x40;&#97;&#x63;&#100;&#119;&#x2E;&#110;&#101;t</a></p>


9<p>Source available under the <a class="normal" href="https://acdw.casa/gcl" title="">Good Choices License</a>.</p>


10<p>There's a lot of quick-and-dirty "literate programming tools" out there, many


11of which were inspired by, and also borrowed from, docco.  I was particularly


12interested in <a class="normal" href="https://rtomayko.github.io/shocco/" title="">shocco</a>, written in POSIX shell (of which I am a fan).</p>


13<p>Notably missing, however, was a converter of some kind written in AWK.  Thus,


14DOC AWK was born.</p>


15<p>This page is the result of DOC AWK working on itself.  Not bad for &lt; 250 lines


16including commentary!  You can pick up the raw source code of doc.awk <a class="normal" href="https://git.acdw.net/doc.awk" title="">in its


17git repository</a> to use it yourself.</p>


18<h2 id="code"><a href="#code" class="header">Code&nbsp;<svg width="16" height="16" xmlns="http://www.w3.org/2000/svg"><g transform="rotate(-30, 8, 8)" stroke="#000000" opacity="0.25"><rect fill="none" height="6" width="8" x="2" y="6" rx="1.5"/><rect fill="none" height="6" width="8" x="6" y="4" rx="1.5"/></g></svg></a></h2>


19<pre><code>BEGIN {


20</code></pre>


21<p>All the best awk scripts start with a <code>BEGIN</code> block.  In this one, we


22set a few variables from the environment, with defaults.  I use the


23convenience function <code>getenv</code>, further down this script, to make it


24easier.</p>


25<p>First, the comment regex.  This regex detects a comment <em>line</em>, not an


26inline comment.  By default, it's set up for awk, shell, and other


27languages that use <code>#</code> as a comment delimiter, but you can make it


28whatever you want.</p>


29<pre><code>     COMMENT = getenv("DOCAWK_COMMENT", COMMENT, "^[ \t]*#+[ \t]*")


30</code></pre>


31<p>You can set <code>DOCAWK_TEXTPROC</code> to any text processor you want, but the


32default is the vendored <code>mdown.awk</code> script in this repo.  It's from


33<a class="normal" href="https://github.com/wernsey/d.awk" title="">d.awk</a>.</p>


34<pre><code>     TEXTPROC = getenv("DOCAWK_TEXTPROC", TEXTPROC, "./mdown.awk")


35</code></pre>


36<p>You can also set the processor for code sections of the source file;


37the included <code>htmlsafe.awk</code> simply escapes &lt;, &amp;, and &gt;.</p>


38<pre><code>     CODEPROC = getenv("DOCAWK_CODEPROC", CODEPROC, "./htmlsafe.awk")


39</code></pre>


40<p>Usually, a file header and footer are enough for most documents.  The


41defaults here are the included header.html and footer.html, since the


42default output type is html.</p>


43<p>Each of these documents are actually <em>templates</em>, with keys that can


44expand to variables inside of <code>@@VARIABLE@@</code>.  This is mostly


45for title expansion.</p>


46<pre><code>     HEADER = getenv("DOCAWK_HEADER", HEADER, "./header.html")


47        FOOTER = getenv("DOCAWK_FOOTER", FOOTER, "./footer.html")


48}


49</code></pre>


50<p>Because <code>FILENAME</code> is unset during <code>BEGIN</code>, template expansion that attempts


51to view the filename doesn't work.  Thus, I need a state variable to track


52whether we've started or not (so that I don't print a header with every new


53file).</p>


54<pre><code>! begun {


55</code></pre>


56<p>The template array is initialized with the document's title.</p>


57<pre><code>     TV["TITLE"] = get_title()


58</code></pre>


59<p>Print the header here, since if multiple files are passed to DOC AWK


60they'll all be concatenated anyway.</p>


61<pre><code>     file_print(HEADER)


62}


63</code></pre>


64<p><code>doc.awk</code> is multi-file aware.  It also removes the shebang line from the


65script if it exists, because you probably don't want that in the output.</p>


66<p>It wouldn't be a <em>bad</em> idea to make a heuristic for determining the type of


67source file we're converting here.</p>


68<pre><code>FNR == 1 {


69        begun = 1


70        if ($0 ~ COMMENT) {


71                lt = "text"


72        } else {


73                lt = "code"


74        }


75        if ($0 !~ /^#!/) {


76                bufadd(lt)


77        }


78        next


79}


80</code></pre>


81<p>The main logic is quite simple: if a given line is a comment as defined by


82<code>DOCAWK_COMMENT</code>, it's in a text block and should be treated as such;


83otherwise, it's in a code block.  Accumulate each part in a dedicated buffer,


84and on a switch-over between code and text, print the buffer and reset.</p>


85<pre><code>$0 !~ COMMENT {


86        lt = "code"


87        bufprint("text")


88}


89


90$0 ~ COMMENT {


91        lt = "text"


92        bufprint("code")


93        sub(COMMENT, "", $0)


94}


95


96{


97        bufadd(lt)


98}


99</code></pre>


100<p>Of course, at the end there might be something in either buffer, so print that


101out too.  I've decided to put text last for the possibility of ending commentary.</p>


102<pre><code>END {


103        bufprint("code")


104        bufprint("text")


105        file_print(FOOTER)


106}


107</code></pre>


108<h2 id="functions"><a href="#functions" class="header">Functions&nbsp;<svg width="16" height="16" xmlns="http://www.w3.org/2000/svg"><g transform="rotate(-30, 8, 8)" stroke="#000000" opacity="0.25"><rect fill="none" height="6" width="8" x="2" y="6" rx="1.5"/><rect fill="none" height="6" width="8" x="6" y="4" rx="1.5"/></g></svg></a></h2>


109<p><em>bufadd</em>: Add a STR to buffer TYPE.  STR defaults to $0, the input record.</p>


110<pre><code>function bufadd(type, str)


111{


112        buf[type] = buf[type] (str ? str : $0) "\n"


113}


114</code></pre>


115<p><em>bufprint</em>: Print a buffer of TYPE.  Automatically wrap the code blocks in a


116little HTML code block.  I could maybe have a DOCAWK_CODE_PRE/POST and maybe


117even one for text too, to make it more extensible (to other markup languages,


118for example).</p>


119<pre><code>function bufprint(type)


120{


121        buf[type] = trim(buf[type])


122        if (buf[type]) {


123                if (type == "code") {


124                        printf "&lt;pre&gt;&lt;code&gt;"


125                        printf(buf[type]) | CODEPROC


126                        close(CODEPROC)


127                        print "&lt;/code&gt;&lt;/pre&gt;"


128                } else if (type == "text") {


129                        print(buf[type]) | TEXTPROC


130                        close(TEXTPROC)


131                }


132                buf[type] = ""


133        }


134}


135</code></pre>


136<p><em>file_print</em>: Print FILE line-by-line.  The <code>&gt; 0</code> check here ensures that it


137bails on error (-1).</p>


138<pre><code>function file_print(file)


139{


140        if (file) {


141                while ((getline l &lt; file) &gt; 0) {


142                        print template_expand(l)


143                }


144                close(file)


145        }


146}


147</code></pre>


148<p><em>get_title</em>: get the title of the current script, for the expanded document.


149If variables are set, use those; otherwise try to figure out the title from


150the document's basename.</p>


151<pre><code>function get_title()


152{


153        title = getenv("DOCAWK_TITLE", TITLE)


154        if (! title) {


155                title = FILENAME


156                sub(/.*\//, "", title)


157        }


158        return title


159}


160</code></pre>


161<p><em>getenv</em>: a convenience function for pulling values out of the environment.


162If an environment variable ENV isn't found, test if VAR is set (i.e., <code>doc.awk


163-v var=foo</code>.) and return it if it's set.  Otherwise, return the default value


164DEF.</p>


165<pre><code>function getenv(env, var, def)


166{


167        if (ENVIRON[env]) {


168                return ENVIRON[env]


169        } else if (var) {


170                return var


171        } else {


172                return def


173        }


174}


175</code></pre>


176<p><em>template_expand</em>: expand templates of the form <code>@@template@@</code> in the text.


177Currently it only does variables, and works by line.</p>


178<p>Due to the way awk works, template variables need to live in their own special


179array, <code>TV</code>.  I'd love it if awk had some kind of <code>eval</code> functionality, but at


180least POSIX awk doesn't.</p>


181<pre><code>function template_expand(text)


182{


183        if (match(text, /@@[^@]*@@/)) {


184                var = substr(text, RSTART + 2, RLENGTH - 4)


185                new = substr(text, 1, RSTART - 1)


186                new = new TV[var]


187                new = new substr(text, RSTART + RLENGTH)


188        } else {


189                new = text


190        }


191        return new


192}


193</code></pre>


194<p><em>trim</em>: remove whitespace from either end of a string.</p>


195<pre><code>function trim(str)


196{


197        sub(/^[ \n]*/, "", str)


198        sub(/[ \n]*$/, "", str)


199        return str


200}


201</code></pre>


202</body>


203</html>
diff --git a/doc.awk b/doc.awk
new file mode 100755
index 0000000..4735f9d
--- /dev/null
+++ b/doc.awk

@@ -0,0 +1,213 @@


1#!/bin/awk -f


2# DOC AWK


3# ======


4#


5# A quick-and-dirty literate-programming-style documentation generator


6# inspired by [docco][].


7#


8# by Case Duckworth <acdw@acdw.net>


9#


10# Source available under the [Good Choices License][gcl].


11#


12# [gcl]: https://acdw.casa/gcl Good Choices License


13#


14# There's a lot of quick-and-dirty "literate programming tools" out there, many


15# of which were inspired by, and also borrowed from, docco.  I was particularly


16# interested in [shocco][], written in POSIX shell (of which I am a fan).


17#


18# Notably missing, however, was a converter of some kind written in AWK.  Thus,


19# DOC AWK was born.


20#


21# This page is the result of DOC AWK working on itself.  Not bad for < 250 lines


22# including commentary!  You can pick up the raw source code of doc.awk [in its


23# git repository][git] to use it yourself.


24#


25# [docco]: https://ashkenas.com/docco/


26# [shocco]: https://rtomayko.github.io/shocco/


27# [git]: https://git.acdw.net/docawk


28#


29# Code


30# ----


31BEGIN {


32        # All the best awk scripts start with a `BEGIN` block.  In this one, we


33        # set a few variables from the environment, with defaults.  I use the


34        # convenience function `getenv`, further down this script, to make it


35        # easier.


36        #


37        # First, the comment regex.  This regex detects a comment *line*, not an


38        # inline comment.  By default, it's set up for awk, shell, and other


39        # languages that use `#` as a comment delimiter, but you can make it


40        # whatever you want.


41        COMMENT = getenv("DOCAWK_COMMENT", COMMENT, "^[ \t]*#+[ \t]*")


42        # You can set `DOCAWK_TEXTPROC` to any text processor you want, but the


43        # default is the vendored `mdown.awk` script in this repo.  It's from


44        # [d.awk](https://github.com/wernsey/d.awk).


45        TEXTPROC = getenv("DOCAWK_TEXTPROC", TEXTPROC, "./mdown.awk")


46        # You can also set the processor for code sections of the source file;


47        # the included `htmlsafe.awk` simply escapes <, &, and >.


48        CODEPROC = getenv("DOCAWK_CODEPROC", CODEPROC, "./htmlsafe.awk")


49        # Usually, a file header and footer are enough for most documents.  The


50        # defaults here are the included header.html and footer.html, since the


51        # default output type is html.


52        #


53        # Each of these documents are actually *templates*, with keys that can


54        # expand to variables inside of `@@VARIABLE@@`.  This is mostly


55        # for title expansion.


56        HEADER = getenv("DOCAWK_HEADER", HEADER, "./header.html")


57        FOOTER = getenv("DOCAWK_FOOTER", FOOTER, "./footer.html")


58}


59


60# Because `FILENAME` is unset during `BEGIN`, template expansion that attempts


61# to view the filename doesn't work.  Thus, I need a state variable to track


62# whether we've started or not (so that I don't print a header with every new


63# file).


64! begun {


65        # The template array is initialized with the document's title.


66        TV["TITLE"] = get_title()


67        # Print the header here, since if multiple files are passed to DOC AWK


68        # they'll all be concatenated anyway.


69        file_print(HEADER)


70}


71


72# `doc.awk` is multi-file aware.  It also removes the shebang line from the


73# script if it exists, because you probably don't want that in the output.


74#


75# It wouldn't be a *bad* idea to make a heuristic for determining the type of


76# source file we're converting here.


77FNR == 1 {


78        begun = 1


79        if ($0 ~ COMMENT) {


80                lt = "text"


81        } else {


82                lt = "code"


83        }


84        if ($0 !~ /^#!/) {


85                bufadd(lt)


86        }


87        next


88}


89


90# The main logic is quite simple: if a given line is a comment as defined by


91# `DOCAWK_COMMENT`, it's in a text block and should be treated as such;


92# otherwise, it's in a code block.  Accumulate each part in a dedicated buffer,


93# and on a switch-over between code and text, print the buffer and reset.


94$0 !~ COMMENT {


95        lt = "code"


96        bufprint("text")


97}


98


99$0 ~ COMMENT {


100        lt = "text"


101        bufprint("code")


102        sub(COMMENT, "", $0)


103}


104


105{


106        bufadd(lt)


107}


108


109# Of course, at the end there might be something in either buffer, so print that


110# out too.  I've decided to put text last for the possibility of ending commentary.


111END {


112        bufprint("code")


113        bufprint("text")


114        file_print(FOOTER)


115}


116


117


118# Functions


119# ---------


120#


121# *bufadd*: Add a STR to buffer TYPE.  STR defaults to $0, the input record.


122function bufadd(type, str)


123{


124        buf[type] = buf[type] (str ? str : $0) "\n"


125}


126


127# *bufprint*: Print a buffer of TYPE.  Automatically wrap the code blocks in a


128# little HTML code block.  I could maybe have a DOCAWK_CODE_PRE/POST and maybe


129# even one for text too, to make it more extensible (to other markup languages,


130# for example).


131function bufprint(type)


132{


133        buf[type] = trim(buf[type])


134        if (buf[type]) {


135                if (type == "code") {


136                        printf "<pre><code>"


137                        printf(buf[type]) | CODEPROC


138                        close(CODEPROC)


139                        print "</code></pre>"


140                } else if (type == "text") {


141                        print(buf[type]) | TEXTPROC


142                        close(TEXTPROC)


143                }


144                buf[type] = ""


145        }


146}


147


148# *file_print*: Print FILE line-by-line.  The `> 0` check here ensures that it


149# bails on error (-1).


150function file_print(file)


151{


152        if (file) {


153                while ((getline l < file) > 0) {


154                        print template_expand(l)


155                }


156                close(file)


157        }


158}


159


160# *get_title*: get the title of the current script, for the expanded document.


161# If variables are set, use those; otherwise try to figure out the title from


162# the document's basename.


163function get_title()


164{


165        title = getenv("DOCAWK_TITLE", TITLE)


166        if (! title) {


167                title = FILENAME


168                sub(/.*\//, "", title)


169        }


170        return title


171}


172


173# *getenv*: a convenience function for pulling values out of the environment.


174# If an environment variable ENV isn't found, test if VAR is set (i.e., `doc.awk


175# -v var=foo`.) and return it if it's set.  Otherwise, return the default value


176# DEF.


177function getenv(env, var, def)


178{


179        if (ENVIRON[env]) {


180                return ENVIRON[env]


181        } else if (var) {


182                return var


183        } else {


184                return def


185        }


186}


187


188# *template_expand*: expand templates of the form `@@template@@` in the text.


189# Currently it only does variables, and works by line.


190#


191# Due to the way awk works, template variables need to live in their own special


192# array, `TV`.  I'd love it if awk had some kind of `eval` functionality, but at


193# least POSIX awk doesn't.


194function template_expand(text)


195{


196        if (match(text, /@@[^@]*@@/)) {


197                var = substr(text, RSTART + 2, RLENGTH - 4)


198                new = substr(text, 1, RSTART - 1)


199                new = new TV[var]


200                new = new substr(text, RSTART + RLENGTH)


201        } else {


202                new = text


203        }


204        return new


205}


206


207# *trim*: remove whitespace from either end of a string.


208function trim(str)


209{


210        sub(/^[ \n]*/, "", str)


211        sub(/[ \n]*$/, "", str)


212        return str


213}
diff --git a/footer.html b/footer.html
new file mode 100644
index 0000000..308b1d0
--- /dev/null
+++ b/footer.html

@@ -0,0 +1,2 @@


1</body>


2</html>
diff --git a/header.html b/header.html
new file mode 100644
index 0000000..38cba73
--- /dev/null
+++ b/header.html

@@ -0,0 +1,4 @@


1<!DOCTYPE html>


2<title>@@TITLE@@</title>


3<link type="text/css" rel="stylesheet" href="style.css" />


4<body>
diff --git a/htmlsafe.awk b/htmlsafe.awk
new file mode 100755
index 0000000..a49fe21
--- /dev/null
+++ b/htmlsafe.awk

@@ -0,0 +1,8 @@


1#!/bin/awk -f


2{


3        gsub(/&/, "\\&amp;", $0)


4        gsub(/</, "\\&lt;", $0)


5        gsub(/>/, "\\&gt;", $0)


6        print


7}


8
diff --git a/mdown.awk b/mdown.awk
new file mode 100755
index 0000000..ca39b09
--- /dev/null
+++ b/mdown.awk

@@ -0,0 +1,903 @@


1#! /usr/bin/awk -f


2#


3# Markdown processor in AWK. It is simplified from d.awk


4# https://github.com/wernsey/d.awk


5#


6# (c) 2016 Werner Stoop


7# Slight modifications (c) 2022 Case Duckworth


8# Copying and distribution of this file, with or without modification,


9# are permitted in any medium without royalty provided the copyright


10# notice and this notice are preserved. This file is offered as-is,


11# without any warranty.


12BEGIN {


13        # Configuration options


14        if (Title == "") {


15                Title = "Documentation"


16        }


17        if (Theme == "") {


18                Theme = 1


19        }


20        if (HideToCLevel == "") {


21                HideToCLevel = 3


22        }


23        if (Lang == "") {


24                Lang = "en"


25        }


26        if (Tables == "") {


27                Tables = 1


28                #TopLinks = 1;


29                #classic_underscore = 1;


30        }


31        if (MaxWidth == "") {


32                MaxWidth = "1080px"


33        }


34        if (NumberHeadings == "") {


35                NumberHeadings = 1


36        }


37        if (NumberH1s == "") {


38                NumberH1s = 0


39        }


40        Mode = "p"


41        ToC = ""


42        ToCLevel = 1


43        CSS = init_css(Theme)


44        for (i = 0; i < 128; i++) {


45                _ord[sprintf("%c", i)] = i


46        }


47        srand()


48}


49


50{


51        gsub(/\r/, "", $0)


52}


53


54{


55        Out = Out filter($0)


56}


57


58END {


59        if (Mode == "ul" || Mode == "ol") {


60                while (ListLevel > 1) {


61                        Buf = Buf "\n</" Open[ListLevel--] ">"


62                }


63                Out = Out tag(Mode, Buf "\n")


64        } else if (Mode == "pre") {


65                while (ListLevel > 1) {


66                        Buf = Buf "\n</" Open[ListLevel--] ">"


67                }


68                Out = Out tag(Mode, Buf "\n")


69        } else if (Mode == "table") {


70                Out = Out end_table()


71        } else {


72                Buf = trim(scrub(Buf))


73                if (Buf) {


74                        Out = Out tag(Mode, Buf)


75                }


76        }


77        if (ToC && match(Out, /!\[toc[-+]?\]/)) {


78                print "<script><!--\n" "function toggle_toc(n) {\n" "    var toc=document.getElementById('table-of-contents-' + n);\n" "    var btn=document.getElementById('btn-text-' + n);\n" "    toc.style.display=(toc.style.display=='none')?'block':'none';\n" "    btn.innerHTML=(toc.style.display=='none')?'&#x25BA;':'&#x25BC;';\n" "}\n" "function toggle_toc_ul(n) {   \n" "    var toc=document.getElementById('toc-ul-' + n);   \n" "    var btn=document.getElementById('toc-btn-' + n);   \n" "    if(toc) {\n" "        toc.style.display=(toc.style.display=='none')?'block':'none';   \n" "        btn.innerHTML=(toc.style.display=='none')?'&#x25BA;':'&#x25BC;';\n" "    }\n" "}\n" "//-->\n</script>"


79        }


80        if (Out) {


81                Out = fix_footnotes(Out)


82                Out = fix_links(Out)


83                Out = fix_abbrs(Out)


84                Out = make_toc(Out)


85                print trim(Out)


86                if (footnotes) {


87                        footnotes = fix_links(footnotes)


88                        print "<hr><ol class=\"footnotes\">\n" footnotes "</ol>"


89                }


90        }


91}


92


93


94function end_table(r, c, t, a, s)


95{


96        for (r = 1; r < Row; r++) {


97                t = IsHeaders[r] ? "th" : "td"


98                s = s "<tr>"


99                for (c = 1; c <= NCols[r]; c++) {


100                        a = Align[c]


101                        if (a) {


102                                s = s "<" t " align=\"" a "\">" scrub(Table[r, c]) "</" t ">"


103                        } else {


104                                s = s "<" t ">" scrub(Table[r, c]) "</" t ">"


105                        }


106                }


107                s = s "</tr>\n"


108        }


109        return tag("table", s, "class=\"da\"")


110}


111


112function escape(st)


113{


114        gsub(/&/, "\\&amp;", st)


115        gsub(/</, "\\&lt;", st)


116        gsub(/>/, "\\&gt;", st)


117        return st


118}


119


120function filter(st, res, tmp, linkdesc, url, delim, edelim, name, def, plang, mmaid, cols, i)


121{


122        if (Mode == "p") {


123                if (match(st, /^[[:space:]]*\[[-._[:alnum:][:space:]]+\]:/)) {


124                        linkdesc = ""


125                        LastLink = 0


126                        match(st, /\[.*\]/)


127                        LinkRef = tolower(substr(st, RSTART + 1, RLENGTH - 2))


128                        st = substr(st, RSTART + RLENGTH + 2)


129                        match(st, /[^[:space:]]+/)


130                        url = substr(st, RSTART, RLENGTH)


131                        st = substr(st, RSTART + RLENGTH + 1)


132                        if (match(url, /^<.*>/)) {


133                                url = substr(url, RSTART + 1, RLENGTH - 2)


134                        }


135                        if (match(st, /["'(]/)) {


136                                delim = substr(st, RSTART, 1)


137                                edelim = (delim == "(") ? ")" : delim


138                                if (match(st, delim ".*" edelim)) {


139                                        linkdesc = substr(st, RSTART + 1, RLENGTH - 2)


140                                }


141                        }


142                        LinkUrls[LinkRef] = escape(url)


143                        if (! linkdesc) {


144                                LastLink = 1


145                        }


146                        LinkDescs[LinkRef] = escape(linkdesc)


147                        return


148                } else if (LastLink && match(st, /^[[:space:]]*["'(]/)) {


149                        match(st, /["'(]/)


150                        delim = substr(st, RSTART, 1)


151                        edelim = (delim == "(") ? ")" : delim


152                        st = substr(st, RSTART)


153                        if (match(st, delim ".*" edelim)) {


154                                LinkDescs[LinkRef] = escape(substr(st, RSTART + 1, RLENGTH - 2))


155                        }


156                        LastLink = 0


157                        return


158                } else if (match(st, /^[[:space:]]*\[\^[-._[:alnum:][:space:]]+\]:[[:space:]]*/)) {


159                        match(st, /\[\^[[:alnum:]]+\]:/)


160                        name = substr(st, RSTART + 2, RLENGTH - 4)


161                        def = substr(st, RSTART + RLENGTH + 1)


162                        Footnote[tolower(name)] = scrub(def)


163                        return


164                } else if (match(st, /^[[:space:]]*\*\[[[:alnum:]]+\]:[[:space:]]*/)) {


165                        match(st, /\[[[:alnum:]]+\]/)


166                        name = substr(st, RSTART + 1, RLENGTH - 2)


167                        def = substr(st, RSTART + RLENGTH + 2)


168                        Abbrs[toupper(name)] = def


169                        return


170                } else if (match(st, /^((    )| *\t)/) || match(st, /^[[:space:]]*```+[[:alnum:]]*/)) {


171                        Preterm = trim(substr(st, RSTART, RLENGTH))


172                        st = substr(st, RSTART + RLENGTH)


173                        if (Buf) {


174                                res = tag("p", scrub(Buf))


175                        }


176                        Buf = st


177                        push("pre")


178                } else if (! trim(Prev) && match(st, /^[[:space:]]*[*-][[:space:]]*[*-][[:space:]]*[*-][-*[:space:]]*$/)) {


179                        if (Buf) {


180                                res = tag("p", scrub(Buf))


181                        }


182                        Buf = ""


183                        res = res "<hr>\n"


184                } else if (match(st, /^[[:space:]]*===+[[:space:]]*$/)) {


185                        Buf = trim(substr(Buf, 1, length(Buf) - length(Prev) - 1))


186                        if (Buf) {


187                                res = tag("p", scrub(Buf))


188                        }


189                        if (Prev) {


190                                res = res heading(1, scrub(Prev))


191                        }


192                        Buf = ""


193                } else if (match(st, /^[[:space:]]*---+[[:space:]]*$/)) {


194                        Buf = trim(substr(Buf, 1, length(Buf) - length(Prev) - 1))


195                        if (Buf) {


196                                res = tag("p", scrub(Buf))


197                        }


198                        if (Prev) {


199                                res = res heading(2, scrub(Prev))


200                        }


201                        Buf = ""


202                } else if (match(st, /^[[:space:]]*#+/)) {


203                        sub(/#+[[:space:]]*$/, "", st)


204                        match(st, /#+/)


205                        ListLevel = RLENGTH


206                        tmp = substr(st, RSTART + RLENGTH)


207                        if (Buf) {


208                                res = tag("p", scrub(Buf))


209                        }


210                        res = res heading(ListLevel, scrub(trim(tmp)))


211                        Buf = ""


212                } else if (match(st, /^[[:space:]]*>/)) {


213                        if (Buf) {


214                                res = tag("p", scrub(Buf))


215                        }


216                        Buf = scrub(trim(substr(st, RSTART + RLENGTH)))


217                        push("blockquote")


218                } else if (Tables && match(st, /.*\|(.*\|)+/)) {


219                        if (Buf) {


220                                res = tag("p", scrub(Buf))


221                        }


222                        Row = 1


223                        for (i = 1; i <= MaxCols; i++) {


224                                Align[i] = ""


225                        }


226                        process_table_row(st)


227                        push("table")


228                } else if (match(st, /^[[:space:]]*([*+-]|[[:digit:]]+\.)[[:space:]]/)) {


229                        if (Buf) {


230                                res = tag("p", scrub(Buf))


231                        }


232                        Buf = ""


233                        match(st, /^[[:space:]]*/)


234                        ListLevel = 1


235                        indent[ListLevel] = RLENGTH


236                        Open[ListLevel] = match(st, /^[[:space:]]*[*+-][[:space:]]*/) ? "ul" : "ol"


237                        push(Open[ListLevel])


238                        res = res filter(st)


239                } else if (match(st, /^[[:space:]]*$/)) {


240                        if (trim(Buf)) {


241                                res = tag("p", scrub(trim(Buf)))


242                                Buf = ""


243                        }


244                } else {


245                        Buf = Buf st "\n"


246                }


247                LastLink = 0


248        } else if (Mode == "blockquote") {


249                if (match(st, /^[[:space:]]*>[[:space:]]*$/)) {


250                        Buf = Buf "\n</p><p>"


251                } else if (match(st, /^[[:space:]]*>/)) {


252                        Buf = Buf "\n" scrub(trim(substr(st, RSTART + RLENGTH)))


253                } else if (match(st, /^[[:space:]]*$/)) {


254                        res = tag("blockquote", tag("p", trim(Buf)))


255                        pop()


256                        res = res filter(st)


257                } else {


258                        Buf = Buf st


259                }


260        } else if (Mode == "table") {


261                if (match(st, /.*\|(.*\|)+/)) {


262                        process_table_row(st)


263                } else {


264                        res = end_table()


265                        pop()


266                        res = res filter(st)


267                }


268        } else if (Mode == "pre") {


269                if (! Preterm && match(st, /^((    )| *\t)/) || Preterm && ! match(st, /^[[:space:]]*```+/)) {


270                        Buf = Buf ((Buf) ? "\n" : "") substr(st, RSTART + RLENGTH)


271                } else {


272                        gsub(/\t/, "    ", Buf)


273                        if (length(trim(Buf)) > 0) {


274                                plang = ""


275                                mmaid = 0


276                                if (match(Preterm, /^[[:space:]]*```+/)) {


277                                        plang = trim(substr(Preterm, RSTART + RLENGTH))


278                                        if (plang) {


279                                                HasPretty = 1


280                                                if (plang == "auto") {


281                                                        plang = "class=\"prettyprint\""


282                                                } else {


283                                                        plang = "class=\"prettyprint lang-" plang "\""


284                                                }


285                                        }


286                                }


287                                if (mmaid && Mermaid) {


288                                        res = tag("div", Buf, "class=\"mermaid\"")


289                                } else {


290                                        res = tag("pre", tag("code", escape(Buf), plang))


291                                }


292                        }


293                        pop()


294                        if (Preterm) {


295                                sub(/^[[:space:]]*```+[[:alnum:]]*/, "", st)


296                        }


297                        res = res filter(st)


298                }


299        } else if (Mode == "ul" || Mode == "ol") {


300                if (ListLevel == 0 || match(st, /^[[:space:]]*$/) && (RLENGTH <= indent[1])) {


301                        while (ListLevel > 1) {


302                                Buf = Buf "\n</" Open[ListLevel--] ">"


303                        }


304                        res = tag(Mode, "\n" Buf "\n")


305                        pop()


306                } else if (match(st, /^[[:space:]]*([*+-]|[[:digit:]]+\.)/)) {


307                        tmp = substr(st, RLENGTH + 1)


308                        match(st, /^[[:space:]]*/)


309                        if (RLENGTH > indent[ListLevel]) {


310                                indent[++ListLevel] = RLENGTH


311                                if (match(st, /^[[:space:]]*[*+-]/)) {


312                                        Open[ListLevel] = "ul"


313                                } else {


314                                        Open[ListLevel] = "ol"


315                                }


316                                Buf = Buf "\n<" Open[ListLevel] ">"


317                        } else {


318                                while (RLENGTH < indent[ListLevel]) {


319                                        Buf = Buf "\n</" Open[ListLevel--] ">"


320                                }


321                        }


322                        if (match(tmp, /^[[:space:]]*\[[xX[:space:]]\]/)) {


323                                st = substr(tmp, RLENGTH + 1)


324                                tmp = tolower(substr(tmp, RSTART, RLENGTH))


325                                Buf = Buf "<li><input type=\"checkbox\" " (index(tmp, "x") ? "checked" : "") " disabled>" scrub(st)


326                        } else {


327                                Buf = Buf "<li>" scrub(tmp)


328                        }


329                } else if (match(st, /^[[:space:]]*$/)) {


330                        Buf = Buf "<br>\n"


331                } else {


332                        sub(/^[[:space:]]+/, "", st)


333                        Buf = Buf "\n" scrub(st)


334                }


335        }


336        Prev = st


337        return res


338}


339


340function fix_abbrs(str, st, k, r, p)


341{


342        for (k in Abbrs) {


343                r = ""


344                st = str


345                t = escape(Abbrs[toupper(k)])


346                gsub(/&/, "\\&", t)


347                p = match(st, "[^[:alnum:]]" k "[^[:alnum:]]")


348                while (p) {


349                        r = r substr(st, 1, RSTART)


350                        r = r "<abbr title=\"" t "\">" k "</abbr>"


351                        st = substr(st, RSTART + RLENGTH - 1)


352                        p = match(st, "[^[:alnum:]]" k "[^[:alnum:]]")


353                }


354                str = r st


355        }


356        return str


357}


358


359function fix_footnotes(st, r, p, n, i, d, fn, fc)


360{


361        p = match(st, /\[\^[^\]]+\]/)


362        while (p) {


363                if (substr(st, RSTART - 2, 1) == "\\") {


364                        r = r substr(st, 1, RSTART - 3) substr(st, RSTART, RLENGTH)


365                        st = substr(st, RSTART + RLENGTH)


366                        p = match(st, /\[\^[^\]]+\]/)


367                        continue


368                }


369                r = r substr(st, 1, RSTART - 1)


370                d = substr(st, RSTART + 2, RLENGTH - 3)


371                n = tolower(d)


372                st = substr(st, RSTART + RLENGTH)


373                if (Footnote[tolower(n)]) {


374                        if (! fn[n]) {


375                                fn[n] = ++fc


376                        }


377                        d = Footnote[n]


378                } else {


379                        Footnote[n] = scrub(d)


380                        if (! fn[n]) {


381                                fn[n] = ++fc


382                        }


383                }


384                footname[fc] = n


385                d = strip_tags(d)


386                if (length(d) > 20) {


387                        d = substr(d, 1, 20) "&hellip;"


388                }


389                r = r "<sup title=\"" d "\"><a href=\"#footnote-" fn[n] "\" id=\"footnote-pos-" fn[n] "\" class=\"footnote\">[" fn[n] "]</a></sup>"


390                p = match(st, /\[\^[^\]]+\]/)


391        }


392        for (i = 1; i <= fc; i++) {


393                footnotes = footnotes "<li id=\"footnote-" i "\">" Footnote[footname[i]] "<a title=\"Return to Document\" class=\"footnote-back\" href=\"#footnote-pos-" i "\">&nbsp;&nbsp;&#8630;&nbsp;Back</a></li>\n"


394        }


395        return (r st)


396}


397


398function fix_links(st, lt, ld, lr, url, img, res, rx, pos, pre)


399{


400        do {


401                pre = match(st, /<(pre|code)>/) # Don't substitute in <pre> or <code> blocks


402                pos = match(st, /\[[^\]]+\]/)


403                if (! pos) {


404                        break


405                }


406                if (pre && pre < pos) {


407                        match(st, /<\/(pre|code)>/)


408                        res = res substr(st, 1, RSTART + RLENGTH)


409                        st = substr(st, RSTART + RLENGTH + 1)


410                        continue


411                }


412                img = substr(st, RSTART - 1, 1) == "!"


413                if (substr(st, RSTART - (img ? 2 : 1), 1) == "\\") {


414                        res = res substr(st, 1, RSTART - (img ? 3 : 2))


415                        if (img && substr(st, RSTART, RLENGTH) == "[toc]") {


416                                res = res "\\"


417                        }


418                        res = res substr(st, RSTART - (img ? 1 : 0), RLENGTH + (img ? 1 : 0))


419                        st = substr(st, RSTART + RLENGTH)


420                        continue


421                }


422                res = res substr(st, 1, RSTART - (img ? 2 : 1))


423                rx = substr(st, RSTART, RLENGTH)


424                st = substr(st, RSTART + RLENGTH)


425                if (match(st, /^[[:space:]]*\([^)]+\)/)) {


426                        lt = substr(rx, 2, length(rx) - 2)


427                        match(st, /\([^)]+\)/)


428                        url = substr(st, RSTART + 1, RLENGTH - 2)


429                        st = substr(st, RSTART + RLENGTH)


430                        ld = ""


431                        if (match(url, /[[:space:]]+["']/)) {


432                                ld = url


433                                url = substr(url, 1, RSTART - 1)


434                                match(ld, /["']/)


435                                delim = substr(ld, RSTART, 1)


436                                if (match(ld, delim ".*" delim)) {


437                                        ld = substr(ld, RSTART + 1, RLENGTH - 2)


438                                }


439                        } else {


440                                ld = ""


441                        }


442                        if (img) {


443                                res = res "<img src=\"" url "\" title=\"" ld "\" alt=\"" lt "\">"


444                        } else {


445                                res = res "<a class=\"normal\" href=\"" url "\" title=\"" ld "\">" lt "</a>"


446                        }


447                } else if (match(st, /^[[:space:]]*\[[^\]]*\]/)) {


448                        lt = substr(rx, 2, length(rx) - 2)


449                        match(st, /\[[^\]]*\]/)


450                        lr = trim(tolower(substr(st, RSTART + 1, RLENGTH - 2)))


451                        if (! lr) {


452                                lr = tolower(trim(lt))


453                                if (LinkDescs[lr]) {


454                                        lt = LinkDescs[lr]


455                                }


456                        }


457                        st = substr(st, RSTART + RLENGTH)


458                        url = LinkUrls[lr]


459                        ld = LinkDescs[lr]


460                        if (img) {


461                                res = res "<img src=\"" url "\" title=\"" ld "\" alt=\"" lt "\">"


462                        } else if (url) {


463                                res = res "<a class=\"normal\" href=\"" url "\" title=\"" ld "\">" lt "</a>"


464                        } else {


465                                res = res "[" lt "][" lr "]"


466                        }


467                } else {


468                        res = res (img ? "!" : "") rx


469                }


470        } while (pos > 0)


471        return (res st)


472}


473


474function heading(level, st, res, href, u, text, svg)


475{


476        if (level > 6) {


477                level = 6


478        }


479        st = trim(st)


480        href = tolower(st)


481        href = strip_tags(href)


482        gsub(/[^-_ [:alnum:]]+/, "", href)


483        gsub(/[[:space:]]/, "-", href)


484        if (TitleUrls[href]) {


485                for (u = 1; TitleUrls[href "-" u]; u++) {


486                }


487                href = href "-" u


488        }


489        TitleUrls[href] = "#" href


490        svg = "<svg width=\"16\" height=\"16\" xmlns=\"http://www.w3.org/2000/svg\"><g transform=\"rotate(-30, 8, 8)\" stroke=\"#000000\" opacity=\"0.25\"><rect fill=\"none\" height=\"6\" width=\"8\" x=\"2\" y=\"6\" rx=\"1.5\"/><rect fill=\"none\" height=\"6\" width=\"8\" x=\"6\" y=\"4\" rx=\"1.5\"/></g></svg>"


491        text = "<a href=\"#" href "\" class=\"header\">" st "&nbsp;" svg "</a>" (TopLinks ? "&nbsp;&nbsp;<a class=\"top\" title=\"Return to top\" href=\"#\">&#8593;&nbsp;Top</a>" : "")


492        res = tag("h" level, text, "id=\"" href "\"")


493        for (; ToCLevel < level; ToCLevel++) {


494                ToC_ID++


495                if (ToCLevel < HideToCLevel) {


496                        ToC = ToC "<a class=\"toc-button\" id=\"toc-btn-" ToC_ID "\" onclick=\"toggle_toc_ul('" ToC_ID "')\">&#x25BC;</a>"


497                        ToC = ToC "<ul class=\"toc toc-" ToCLevel "\" id=\"toc-ul-" ToC_ID "\">"


498                } else {


499                        ToC = ToC "<a class=\"toc toc-button\" id=\"toc-btn-" ToC_ID "\" onclick=\"toggle_toc_ul('" ToC_ID "')\">&#x25BA;</a>"


500                        ToC = ToC "<ul style=\"display:none;\" class=\"toc toc-" ToCLevel "\" id=\"toc-ul-" ToC_ID "\">"


501                }


502        }


503        for (; ToCLevel > level; ToCLevel--) {


504                ToC = ToC "</ul>"


505        }


506        ToC = ToC "<li class=\"toc-" level "\"><a class=\"toc toc-" level "\" href=\"#" href "\">" st "</a>\n"


507        ToCLevel = level


508        return res


509}


510


511function init_css(Theme, css, ss, hr, c1, c2, c3, c4, c5, bg1, bg2, bg3, bg4, ff, fs, i)


512{


513        if (Theme == "0") {


514                return ""


515        }


516        css["body"] = "color:%color1%;font-family:%font-family%;font-size:%font-size%;line-height:1.5em;" "padding:1em 2em;width:80%;max-width:%maxwidth%;margin:0 auto;min-height:100%;float:none;"


517        css["h1"] = "border-bottom:1px solid %color1%;padding:0.3em 0.1em;"


518        css["h1 a"] = "color:%color1%;"


519        css["h2"] = "color:%color2%;border-bottom:1px solid %color2%;padding:0.2em 0.1em;"


520        css["h2 a"] = "color:%color2%;"


521        css["h3"] = "color:%color3%;border-bottom:1px solid %color3%;padding:0.1em 0.1em;"


522        css["h3 a"] = "color:%color3%;"


523        css["h4,h5,h6"] = "padding:0.1em 0.1em;"


524        css["h4 a,h5 a,h6 a"] = "color:%color4%;"


525        css["h1,h2,h3,h4,h5,h6"] = "font-weight:bolder;line-height:1.2em;"


526        css["h4"] = "border-bottom:1px solid %color4%"


527        css["p"] = "margin:0.5em 0.1em;"


528        css["hr"] = "background:%color1%;height:1px;border:0;"


529        css["a.normal, a.toc"] = "color:%color2%;"


530        #css["a.normal:visited"] = "color:%color2%;";


531        #css["a.normal:active"] = "color:%color4%;";


532        css["a.normal:hover, a.toc:hover"] = "color:%color4%;"


533        css["a.top"] = "font-size:x-small;text-decoration:initial;float:right;"


534        css["a.header svg"] = "opacity:0;"


535        css["a.header:hover svg"] = "opacity:1;"


536        css["a.header"] = "text-decoration: none;"


537        css["strong,b"] = "color:%color1%"


538        css["code"] = "color:%color2%;font-weight:bold;"


539        css["blockquote"] = "margin-left:1em;color:%color2%;border-left:0.2em solid %color3%;padding:0.25em 0.5em;overflow-x:auto;"


540        css["pre"] = "color:%color2%;background:%color5%;border:1px solid;border-radius:2px;line-height:1.25em;margin:0.25em 0.5em;padding:0.75em;overflow-x:auto;"


541        css["table.dawk-ex"] = "border-collapse:collapse;margin:0.5em;"


542        css["th.dawk-ex,td.dawk-ex"] = "padding:0.5em 0.75em;border:1px solid %color4%;"


543        css["th.dawk-ex"] = "color:%color2%;border:1px solid %color3%;border-bottom:2px solid %color3%;"


544        css["tr.dawk-ex:nth-child(odd)"] = "background-color:%color5%;"


545        css["table.da"] = "border-collapse:collapse;margin:0.5em;"


546        css["table.da th,td"] = "padding:0.5em 0.75em;border:1px solid %color4%;"


547        css["table.da th"] = "color:%color2%;border:1px solid %color3%;border-bottom:2px solid %color3%;"


548        css["table.da tr:nth-child(odd)"] = "background-color:%color5%;"


549        css["div.dawk-ex"] = "padding:0.5em;"


550        css["caption.dawk-ex"] = "padding:0.5em;font-style:italic;"


551        css["dl.dawk-ex"] = "margin:0.5em;"


552        css["dt.dawk-ex"] = "font-weight:bold;"


553        css["dd.dawk-ex"] = "padding:0.3em;"


554        css["mark.dawk-ex"] = "color:%color5%;background-color:%color4%;"


555        css["del.dawk-ex,s.dawk-ex"] = "color:%color4%;"


556        css["a.toc-button"] = "color:%color2%;cursor:pointer;font-size:small;padding: 0.3em 0.5em 0.5em 0.5em;font-family:monospace;border-radius:3px;"


557        css["a.toc-button:hover"] = "color:%color4%;background:%color5%;"


558        css["div#table-of-contents"] = "padding:0;font-size:smaller;"


559        css["abbr"] = "cursor:help;"


560        css["ol.footnotes"] = "font-size:small;color:%color4%"


561        css["a.footnote"] = "font-size:smaller;text-decoration:initial;"


562        css["a.footnote-back"] = "text-decoration:initial;font-size:x-small;"


563        css[".fade"] = "color:%color5%;"


564        css[".highlight"] = "color:%color2%;background-color:%color5%;"


565        css["summary"] = "cursor:pointer;"


566        css["ul.toc"] = "list-style-type:none;"


567        if (NumberHeadings) {


568                if (NumberH1s) {


569                        css["body"] = css["body"] "counter-reset: h1 toc1;"


570                        css["h1"] = css["h1"] "counter-reset: h2 h3 h4;"


571                        css["h2"] = css["h2"] "counter-reset: h3 h4;"


572                        css["h3"] = css["h3"] "counter-reset: h4;"


573                        css["h1::before"] = "content: counter(h1) \" \"; counter-increment: h1; margin-right: 10px;"


574                        css["h2::before"] = "content: counter(h1) \".\"counter(h2) \" \";counter-increment: h2; margin-right: 10px;"


575                        css["h3::before"] = "content: counter(h1) \".\"counter(h2) \".\"counter(h3) \" \";counter-increment: h3; margin-right: 10px;"


576                        css["h4::before"] = "content: counter(h1) \".\"counter(h2) \".\"counter(h3)\".\"counter(h4) \" \";counter-increment: h4; margin-right: 10px;"


577                        css["li.toc-1"] = "counter-reset: toc2 toc3 toc4;"


578                        css["li.toc-2"] = "counter-reset: toc3 toc4;"


579                        css["li.toc-3"] = "counter-reset: toc4;"


580                        css["a.toc-1::before"] = "content: counter(h1) \"  \";counter-increment: toc1;"


581                        css["a.toc-2::before"] = "content: counter(h1) \".\" counter(toc2) \"  \";counter-increment: toc2;"


582                        css["a.toc-3::before"] = "content: counter(h1) \".\" counter(toc2) \".\" counter(toc3) \"  \";counter-increment: toc3;"


583                        css["a.toc-4::before"] = "content: counter(h1) \".\" counter(toc2) \".\" counter(toc3) \".\" counter(toc4) \"  \";counter-increment: toc4;"


584                } else {


585                        css["h1"] = css["h1"] "counter-reset: h2 h3 h4;"


586                        css["h2"] = css["h2"] "counter-reset: h3 h4;"


587                        css["h3"] = css["h3"] "counter-reset: h4;"


588                        css["h2::before"] = "content: counter(h2) \" \";counter-increment: h2; margin-right: 10px;"


589                        css["h3::before"] = "content: counter(h2) \".\"counter(h3) \" \";counter-increment: h3; margin-right: 10px;"


590                        css["h4::before"] = "content: counter(h2) \".\"counter(h3)\".\"counter(h4) \" \";counter-increment: h4; margin-right: 10px;"


591                        css["li.toc-1"] = "counter-reset: toc2 toc3 toc4;"


592                        css["li.toc-2"] = "counter-reset: toc3 toc4;"


593                        css["li.toc-3"] = "counter-reset: toc4;"


594                        css["a.toc-2::before"] = "content: counter(toc2) \"  \";counter-increment: toc2;"


595                        css["a.toc-3::before"] = "content: counter(toc2) \".\" counter(toc3) \"  \";counter-increment: toc3;"


596                        css["a.toc-4::before"] = "content: counter(toc2) \".\" counter(toc3) \".\" counter(toc4) \"  \";counter-increment: toc4;"


597                }


598        }


599        # Colors:


600        #c1="#314070";c2="#465DA6";c3="#6676A8";c4="#A88C3F";c5="#E8E4D9";


601        c1 = "#314070"


602        c2 = "#384877"


603        c3 = "#6676A8"


604        c4 = "#738FD0"


605        c5 = "#FBFCFF"


606        # Font Family:


607        ff = "sans-serif"


608        fs = "11pt"


609        # Alternative color scheme suggestions:


610        #c1="#303F9F";c2="#0449CC";c3="#2162FA";c4="#4B80FB";c5="#EDF2FF";


611        #ff="\"Trebuchet MS\", Helvetica, sans-serif";


612        #c1="#430005";c2="#740009";c3="#A6373F";c4="#c55158";c5="#fbf2f2";


613        #ff="Verdana, Geneva, sans-serif";


614        #c1="#083900";c2="#0D6300";c3="#3C8D2F";c4="#50be3f";c5="#f2faf1";


615        #ff="Georgia, serif";


616        #c1="#35305D";c2="#646379";c3="#7A74A5";c4="#646392";c5="#fafafa";


617        for (i = 0; i <= 255; i++) {


618                _hex[sprintf("%02X", i)] = i


619        }


620        for (k in css) {


621                ss = ss "\n" k "{" css[k] "}"


622        }


623        gsub(/%maxwidth%/, MaxWidth, ss)


624        gsub(/%color1%/, c1, ss)


625        gsub(/%color2%/, c2, ss)


626        gsub(/%color3%/, c3, ss)


627        gsub(/%color4%/, c4, ss)


628        gsub(/%color5%/, c5, ss)


629        gsub(/%font-family%/, ff, ss)


630        gsub(/%font-size%/, fs, ss)


631        gsub(/%hr%/, hr, ss)


632        return ss


633}


634


635function itag(t, body)


636{


637        return ("<" t ">" body "</" t ">")


638}


639


640function make_toc(st, r, p, dis, t, n)


641{


642        if (! ToC) {


643                return st


644        }


645        for (; ToCLevel > 1; ToCLevel--) {


646                ToC = ToC "</ul>"


647        }


648        p = match(st, /!\[toc[-+]?\]/)


649        while (p) {


650                if (substr(st, RSTART - 1, 1) == "\\") {


651                        r = r substr(st, 1, RSTART - 2) substr(st, RSTART, RLENGTH)


652                        st = substr(st, RSTART + RLENGTH)


653                        p = match(st, /!\[toc[-+]?\]/)


654                        continue


655                }


656                ++n


657                dis = index(substr(st, RSTART, RLENGTH), "+")


658                t = "<div>\n<a id=\"toc-button-" n "\" class=\"toc-button\" onclick=\"toggle_toc(" n ")\"><span id=\"btn-text-" n "\">" (dis ? "&#x25BC;" : "&#x25BA;") "</span>&nbsp;Contents</a>\n" "<div id=\"table-of-contents-" n "\" style=\"display:" (dis ? "block" : "none") ";\">\n<ul class=\"toc toc-1\">" ToC "</ul>\n</div>\n</div>"


659                r = r substr(st, 1, RSTART - 1)


660                r = r t


661                st = substr(st, RSTART + RLENGTH)


662                p = match(st, /!\[toc[-+]?\]/)


663        }


664        return (r st)


665}


666


667function obfuscate(e, r, i, t, o)


668{


669        for (i = 1; i <= length(e); i++) {


670                t = substr(e, i, 1)


671                r = int(rand() * 100)


672                if (r > 50) {


673                        o = o sprintf("&#x%02X;", _ord[t])


674                } else if (r > 10) {


675                        o = o sprintf("&#%d;", _ord[t])


676                } else {


677                        o = o t


678                }


679        }


680        return o


681}


682


683function pop()


684{


685        Mode = Stack[--StackTop]


686        Buf = ""


687        return Mode


688}


689


690function process_table_row(st, cols, i)


691{


692        if (match(st, /^[[:space:]]*\|/)) {


693                st = substr(st, RSTART + RLENGTH)


694        }


695        if (match(st, /\|[[:space:]]*$/)) {


696                st = substr(st, 1, RSTART - 1)


697        }


698        st = trim(st)


699        if (match(st, /^([[:space:]:|]|---+)*$/)) {


700                IsHeaders[Row - 1] = 1


701                cols = split(st, A, /[[:space:]]*\|[[:space:]]*/)


702                for (i = 1; i <= cols; i++) {


703                        if (match(A[i], /^:-*:$/)) {


704                                Align[i] = "center"


705                        } else if (match(A[i], /^-*:$/)) {


706                                Align[i] = "right"


707                        } else if (match(A[i], /^:-*$/)) {


708                                Align[i] = "left"


709                        }


710                }


711                return


712        }


713        cols = split(st, A, /[[:space:]]*\|[[:space:]]*/)


714        for (i = 1; i <= cols; i++) {


715                Table[Row, i] = A[i]


716        }


717        NCols[Row] = cols


718        if (cols > MaxCols) {


719                MaxCols = cols


720        }


721        IsHeaders[Row] = 0


722        Row++


723}


724


725function push(newmode)


726{


727        Stack[StackTop++] = Mode


728        Mode = newmode


729}


730


731function scrub(st, mp, ms, me, r, p, tg, a)


732{


733        sub(/  $/, "<br>\n", st)


734        gsub(/(  |[[:space:]]+\\)\n/, "<br>\n", st)


735        gsub(/(  |[[:space:]]+\\)$/, "<br>\n", st)


736        while (match(st, /(__?|\*\*?|~~|`+|[&><\\])/)) {


737                a = substr(st, 1, RSTART - 1)


738                mp = substr(st, RSTART, RLENGTH)


739                ms = substr(st, RSTART - 1, 1)


740                me = substr(st, RSTART + RLENGTH, 1)


741                p = RSTART + RLENGTH


742                if (! classic_underscore && match(mp, /_+/)) {


743                        if (match(ms, /[[:alnum:]]/) && match(me, /[[:alnum:]]/)) {


744                                tg = substr(st, 1, index(st, mp))


745                                r = r tg


746                                st = substr(st, index(st, mp) + 1)


747                                continue


748                        }


749                }


750                st = substr(st, p)


751                r = r a


752                ms = ""


753                if (mp == "\\") {


754                        if (match(st, /^!?\[/)) {


755                                r = r "\\" substr(st, RSTART, RLENGTH)


756                                st = substr(st, 2)


757                        } else if (match(st, /^(\*\*|__|~~|`+)/)) {


758                                r = r substr(st, 1, RLENGTH)


759                                st = substr(st, RLENGTH + 1)


760                        } else {


761                                r = r substr(st, 1, 1)


762                                st = substr(st, 2)


763                        }


764                        continue


765                } else if (mp == "_" || mp == "*") {


766                        if (match(me, /[[:space:]]/)) {


767                                r = r mp


768                                continue


769                        }


770                        p = index(st, mp)


771                        while (p && match(substr(st, p - 1, 1), /[\\[:space:]]/)) {


772                                ms = ms substr(st, 1, p - 1) mp


773                                st = substr(st, p + length(mp))


774                                p = index(st, mp)


775                        }


776                        if (! p) {


777                                r = r mp ms


778                                continue


779                        }


780                        ms = ms substr(st, 1, p - 1)


781                        r = r itag("em", scrub(ms))


782                        st = substr(st, p + length(mp))


783                } else if (mp == "__" || mp == "**") {


784                        if (match(me, /[[:space:]]/)) {


785                                r = r mp


786                                continue


787                        }


788                        p = index(st, mp)


789                        while (p && match(substr(st, p - 1, 1), /[\\[:space:]]/)) {


790                                ms = ms substr(st, 1, p - 1) mp


791                                st = substr(st, p + length(mp))


792                                p = index(st, mp)


793                        }


794                        if (! p) {


795                                r = r mp ms


796                                continue


797                        }


798                        ms = ms substr(st, 1, p - 1)


799                        r = r itag("strong", scrub(ms))


800                        st = substr(st, p + length(mp))


801                } else if (mp == "~~") {


802                        p = index(st, mp)


803                        if (! p) {


804                                r = r mp


805                                continue


806                        }


807                        while (p && substr(st, p - 1, 1) == "\\") {


808                                ms = ms substr(st, 1, p - 1) mp


809                                st = substr(st, p + length(mp))


810                                p = index(st, mp)


811                        }


812                        ms = ms substr(st, 1, p - 1)


813                        r = r itag("del", scrub(ms))


814                        st = substr(st, p + length(mp))


815                } else if (match(mp, /`+/)) {


816                        p = index(st, mp)


817                        if (! p) {


818                                r = r mp


819                                continue


820                        }


821                        ms = substr(st, 1, p - 1)


822                        r = r itag("code", escape(ms))


823                        st = substr(st, p + length(mp))


824                } else if (mp == ">") {


825                        r = r "&gt;"


826                } else if (mp == "<") {


827                        p = index(st, ">")


828                        if (! p) {


829                                r = r "&lt;"


830                                continue


831                        }


832                        tg = substr(st, 1, p - 1)


833                        if (match(tg, /^[[:alpha:]]+[[:space:]]/)) {


834                                a = trim(substr(tg, RSTART + RLENGTH - 1))


835                                tg = substr(tg, 1, RLENGTH - 1)


836                        } else {


837                                a = ""


838                        }


839                        if (match(tolower(tg), "^/?(a|abbr|div|span|blockquote|pre|img|code|p|em|strong|sup|sub|del|ins|s|u|b|i|br|hr|ul|ol|li|table|thead|tfoot|tbody|tr|th|td|caption|column|col|colgroup|figure|figcaption|dl|dd|dt|mark|cite|q|var|samp|small|details|summary)$")) {


840                                if (! match(tg, /\//)) {


841                                        if (match(a, /class="/)) {


842                                                sub(/class="/, "class=\"dawk-ex ", a)


843                                        } else if (a) {


844                                                a = a " class=\"dawk-ex\""


845                                        } else {


846                                                a = "class=\"dawk-ex\""


847                                        }


848                                        r = r "<" tg " " a ">"


849                                } else {


850                                        r = r "<" tg ">"


851                                }


852                        } else if (match(tg, "^[[:alpha:]]+://[[:graph:]]+$")) {


853                                if (! a) {


854                                        a = tg


855                                }


856                                r = r "<a class=\"normal\" href=\"" tg "\">" a "</a>"


857                        } else if (match(tg, "^[[:graph:]]+@[[:graph:]]+$")) {


858                                if (! a) {


859                                        a = tg


860                                }


861                                r = r "<a class=\"normal\" href=\"" obfuscate("mailto:" tg) "\">" obfuscate(a) "</a>"


862                        } else {


863                                r = r "&lt;"


864                                continue


865                        }


866                        st = substr(st, p + 1)


867                } else if (mp == "&") {


868                        if (match(st, /^[#[:alnum:]]+;/)) {


869                                r = r "&" substr(st, 1, RLENGTH)


870                                st = substr(st, RLENGTH + 1)


871                        } else {


872                                r = r "&amp;"


873                        }


874                }


875        }


876        return (r st)


877}


878


879function strip_tags(st)


880{


881        gsub(/<\/?[^>]+>/, "", st)


882        return st


883}


884


885function tag(t, body, attr)


886{


887        if (attr) {


888                attr = " " trim(attr)


889                # https://www.w3.org/TR/html5/grouping-content.html#the-p-element


890        }


891        if (t == "p" && (match(body, /<\/?(div|table|blockquote|dl|ol|ul|h[[:digit:]]|hr|pre)[>[:space:]]/)) || (match(body, /!\[toc\]/) && substr(body, RSTART - 1, 1) != "\\")) {


892                return ("<" t attr ">" body "\n")


893        } else {


894                return ("<" t attr ">" body "</" t ">\n")


895        }


896}


897


898function trim(st)


899{


900        sub(/^[[:space:]]+/, "", st)


901        sub(/[[:space:]]+$/, "", st)


902        return st


903}
diff --git a/style.css b/style.css
new file mode 100644
index 0000000..eb059d9
--- /dev/null
+++ b/style.css

@@ -0,0 +1,31 @@


1body {


2        margin: auto;


3        font: 18px/1.4 serif;


4        max-width: 70ch;


5        background-color: papayawhip;


6        color: navy;


7}


8code {


9        background-color: #ffe;


10        color: black;


11}


12pre > code {


13        display: block;


14}


15img {


16        max-width: 100%;


17}


18a:link {


19        text-decoration: none;


20        background: #eef;


21        color: inherit;


22}


23a:visted {


24        color: inherit;


25}


26a:active {


27        border-bottom: 1px solid;


28}


29a:hover {


30        border-bottom: 1px solid;


31}
 


© 2022 C. Duckworth.
generated by
cgit.
comments, issues, and patches welcome at
<
git at acdw dot net
>.