Begin subtext.sh

1 files changed, 62 insertions, 33 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)