Begin subtext.sh

1 files changed, 57 insertions, 0 deletions

@@ -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  "$@"