Initial commit

3 files changed, 147 insertions, 0 deletions

@@ -0,0 +1,82 @@
+#!/bin/sh
+{ excitable="text" "exec" "awk" "-f" "$0" "$@"; } # -*- awk -*-
+# usage: et <file> | sh
+
+BEGIN {
+        xend = xend ? xend : "...xend..."
+        dend = dend ? dend : "...dend..."
+        # We shell out to sed for this because awk doesn't do capture groups ;-;
+        shellfix = "sed -E -e 's/`/\\\\`/g' " \
+                "-e 's/(^|[^\\$])\\$([^\\$]|$)/\\1\\\\$\\2/g' " \
+                "-e 's/(^|[^\\$])\\$(\\$+)([^\\$]|$)/\\1\\2\\3/g'"
+        true = 1 ; false = 0
+        print "shellexpand()(eval \"$(echo \"cat<<'"xend"'\";cat;echo "xend")\")"
+        print "shellfix()(" shellfix ")"
+}
+
+end[endn] && $0 == end[endn] {
+        par = par "\n" end[endn--] "\n)"
+        printpar()
+        subdocp = false
+        next
+}
+
+/\\$/ {
+        getline nl
+        sub(/\\$/,"")
+        $0 = $0 " " nl
+}
+
+/^\.\.\./ {
+        printpar()
+        docp = !docp
+        docend = $2 ? $2 : dend
+        if (docp)
+                print "shellexpand<<" docend
+        else
+                print docend "\n"
+        next
+}
+
+/^\.\./ && docp {
+        subdocp = true
+        end[++endn] = (match($0,"<<") ? substr($0,RSTART+RLENGTH) : "..")
+        command = substr($0, 3, RSTART ? RSTART - 2 : length)
+        $0 = "$$(" (command ? command : "cat") "<<" end[endn]
+}
+
+/^\./ && docp {
+        specialp = 2
+        gsub(/"/,"\\\\&")
+        ln = "$$(" substr($1, 2)
+        for (f=2;f<=NF;f++)
+                ln = ln " \"" $f "\""
+        ln = ln ")"
+        $0 = ln
+}
+
+/^$/ {
+        if (!par) next
+        printpar()
+}
+
+{ par = par (par?"\n":"") $0 }
+{ if (--specialp < 0) specialp = 0 }
+
+END {
+        if (par) printpar()
+        if (docp) print docend
+}
+
+function printpar() {
+        specialp = specialp || (match(par, /^[  ]*</))
+        if (docp) {
+                if (!subdocp && !specialp)
+                        par = "<p>" par "</p>"
+                print par | shellfix
+                print ""
+                close(shellfix)
+        } else
+                print par
+        par = ""
+}
@@ -0,0 +1,34 @@
+# etlib
+
+echo()(printf '%s\n' "$*")
+
+attr(){ # attr [NAME|VALUE] ATTR_STRING
+        case "$1" in
+                (name) echo "${2%%=*}" ;;
+                (value) echo "${2#*=}" ;;
+        esac
+}
+
+html_el(){ # el TAG [ATTRS...] [TEXT...] [< INPUT]
+        tag="$1"; attrs= ; text=
+        shift
+        for arg
+        do
+                case "$arg" in
+                        (*=*) attrs="$attrs ${arg%%=*}=\"${arg#*=}\""; shift ;;
+                        (*) break ;;
+                esac
+        done
+
+        printf '<%s%s>%s' "$tag" "$attrs"
+        test -n "$1" && printf '%s' "$*"
+        if read -r fl
+        then echo "$fl"; cat
+        else echo
+        fi |sed '$s,$,</'"$tag"'>,'
+}
+
+alias p='html_el p'
+alias h1='html_el h1'
+alias blockquote='html_el blockquote'
+alias bq=blockquote
@@ -0,0 +1,31 @@
+. ./etlib.sh
+alias verse=cat
+...
+here's a test file
+
+.h1 it has "headers" or whatever
+
+..blockquote title=foo
+it has paragraphs of quotes
+..
+
+$$(echo it has shell $scripty-stuff)
+
+..
+escaped par!
+omg wow
+..
+
+..p
+another one :O
+
+holy crap
+this is great
+..
+
+i should have more paragraphs
+
+they are wonderful
+i love them
+
+very much