Begin subtext.sh

3 files changed, 121 insertions, 35 deletions

@@ -2,17 +2,13 @@
 # (C) C Duckworth <acdw@acdw.net>
 
 BEGIN {
+        true = 1; false = 0
         ## Tuneables
-        postproc = get_value(postproc, "ST_POSTPROC", "shexpand")
-        bodyfunc = get_value(bodyfunc, "ST_BODYFUNC", "sub_text")
-        sopath = get_value(sopath, "ST_SOPATH", ".:"ENVIRON["HOME"]"/.subtext")
-        split(sopath, asopath, ":")
-        # postproc = postproc ? postproc : "shexpand"
-        # bodyfunc = bodyfunc ? bodyfunc : "sub_text"
+        runbody = bool(runbody ? runbody : true)
+        postproc = postproc ? postproc : "shexpand"
+        bodyfunc = bodyfunc ? bodyfunc : "body"
+        sopath = get_value(sopath, ".:"ENVIRON["HOME"]"/.subtext")
         ## Globals
-        # Booleans
-        true = 1
-        false = 0
         ## Wrap the text in a function
         pretext = "### begin text\n"bodyfunc"(){\n"
         posttext = "}\n### end text"
@@ -47,7 +43,7 @@ BEGIN {
 ### End a block
 
 end[endn] && $0 == end[endn] {
-        par = par "\n" end[endn--] "\n)"
+        pushpar(end[endn--] "\n)", true)
         printpar()
         subdocp = false
         next
@@ -64,27 +60,31 @@ end[endn] && $0 == end[endn] {
 ### Special commands
 ## These call subtext-internal functions
 
-/^\.so/ {                       # Insert $2 verbatim (if in sopath), else error
+/^#so/ {                        # Insert $2 verbatim (if in sopath), else error
+        pushpar($0)
         source($2)
         next
 }
 
-### Escape sequences
-
-/^\.\.\./ {                     # Delimit document (end is optional)
+/^###$/ {                       # Delimit document
         printpar()
         docp = !docp
-        if (docp) print pretext "unpreface ':'<<'_'|eval \"$ST_POSTPROC\""
-        else end_text()
+        if (docp) {
+                print pretext "unpreface ':'<<'_'|eval \"$ST_POSTPROC\""
+        } else {
+                end_text()
+        }
         next
 }
 
+### Escape sequences
+
 /^\.\./ && docp {               # Begin a heredoc
         # ..[<command>] [<options>] [<<delim]
         ## ends with DELIM or '..'
         subdocp = true
-        end[++endn] = (match($0,"<<") ? substr($0,RSTART+RLENGTH) : "..")
-        command = substr($0, 3, RSTART ? RSTART - 2 : length)
+        end[++endn] = (match($0, "<<") ? substr($0, RSTART + RLENGTH) : "..")
+        command = substr($0, 3, RSTART ? RSTART - 2 : length($0))
         $0 = "$$(" (command ? command : "cat") "<<" end[endn]
 }
 
@@ -92,9 +92,11 @@ end[endn] && $0 == end[endn] {
         # .<command> [<parameters>]
         ## wraps the line in $( ... ), basically (also quotes)
         specialp = 2
-        gsub(/"/,"\\\\&")
+        gsub(/"/, "\\\\&", $0)
         ln = "$$(" substr($1, 2)
-        for (f=2;f<=NF;f++) ln = ln " \"" $f "\""
+        for (f=2; f<=NF; f++) {
+                ln = ln " \"" $f "\""
+        }
         ln = ln ")"
         $0 = ln
 }
@@ -106,53 +108,80 @@ end[endn] && $0 == end[endn] {
 ### Book-keeping
 
 /^$/ {
-        if (!par) next
+        if (!par)
+                next
         printpar()
 }
 
-{ par = par (par?"\n":"") $0 }
-{ if (--specialp < 0) specialp = 0 }
+{
+        pushpar($0)
+        if (--specialp < 0)
+                specialp = 0
+}
 
 END {
-        if (dead) exit dead
-        if (par) printpar()
+        if (dead)
+                exit dead
+        if (par)
+                printpar()
         while (endn > 0)
                 print "\n" end[endn--] "\n)"
-        if (docp) end_text()
+        if (docp)
+                end_text()
+        if (runbody)
+                print bodyfunc
 }
 
 function end_text() {
         print "_\n" posttext
 }
 
+function pushpar(text, force_newline) {
+        par = par ((par || force_newline) ? "\n" : "") text
+}
+
 function printpar() {
         specialp = specialp || (match(par, /^[  ]*</))
         if (docp) {
-                if (!subdocp && !specialp) par = "<p>" par "</p>"
+                if (!subdocp && !specialp)
+                        par = "<p>" par "</p>"
                 shx = shellfix shxwrap
                 print par | shx
                 close(shx)
-        } else print par
+        } else
+                print par
         par = ""
 }
 
 function get_value(var, env_var, default) {
-        if (var) return var
-        else if (ENVIRON[env_var]) return ENVIRON[env_var]
-        else return default
+        if (var)
+                return var
+        else
+                return default
+}
+
+function bool(var, default) {
+        if (var=="false" || var=="no" || var=="0")
+                return false
+        else if (var=="true" || var=="yes" || var=="1")
+                return true
+        else
+                return var || default
 }
 
 function source(name) {
         found = false
         sp = ""
+        split(sopath, asopath, ":")
         for (dir in asopath) {
                 fn = asopath[dir] "/" name
                 sp = asopath[dir] "\n\t" sp
                 while ((getline ln < fn) > 0) {
                         found = true
-                        par = par (par?"\n":"") ln
+                        pushpar(ln)
                 }
-                if (found) break
+                if (found)
+                        break
         }
         if (!found)
                 die("Couldn't source " name "; looked in:\n\t" sp, 9)
@@ -0,0 +1,57 @@
+#!/bin/sh
+
+stawk() {
+        awk -f subtext.awk "$@" # SUBTEXT AWK SCRIPT HERE
+}
+
+usage() {
+        cat>&2 <<EOF
+SUBTEXT v.meowmers (C) Case Duckworth
+Usage:  subtext [OPTIONS] FILE...
+        subtext < FILE
+Options:
+ -h             Show this help and exit.
+ -n             Don't run the resulting script; just print it.
+ -m FILE        Use macrofile FILE.
+ -I DIRECTORY   Add DIRECTORY to the search path.
+EOF
+        exit $1
+}
+
+configure() {
+        ## Initialize state variables
+        : "${ST_MACROFILE:=}"
+        : "${ST_SOPATH:=.:$HOME/.subtext}"
+        : "${ST_PIPE_SH:=true}"
+        ## Process options
+        while getopts :hm:I:n  OPT
+        do
+                case "$OPT" in
+                        (h) usage ;;
+                        (m) ST_MACROFILE="$OPTARG" ;;
+                        (I) ST_SOPATH="$ST_SOPATH:$OPTARG" ;;
+                        (n) ST_PIPE_SH=false ;;
+                        (:) printf >&2 'Unknown option -%s\n' "$OPTARG";
+                            usage 1 ;;
+                        (*) usage 1 ;;
+                esac
+        done
+}
+
+main() {
+        configure "$@"
+        shift $((OPTIND-1))
+        stawk -vsopath="$ST_SOPATH" "$@" |
+                if "$ST_PIPE_SH"
+                then sh
+                else cat
+                fi
+}
+
+die() {
+        ec="$1"; shift
+        printf >&2 '!! %s\n' "$*"
+        exit "$ec"
+}
+
+main  "$@"
@@ -1,7 +1,7 @@
-.so etlib.sh
+#so etlib.sh
 alias verse=cat
 title="test file"
-...
+###
 here's a test file
 .a href="https://example.com" a link or something!!