1 files changed, 67 insertions, 0 deletions

@@ -0,0 +1,67 @@
+#!/bin/sh
+# SHIN v. 0/1
+# Copyright (C) Case Duckworth <acdw@acdw.net>
+# Licensed under the Fair License.  See COPYING for details.
+
+_shin() {
+        awk 'BEGIN {
+        if (ENVIRON["SHINPATH"]) split(ENVIRON["SHINPATH"], SHINPATH, ":")
+        else SHINPATH[1] = "."
+}
+FNR == 1 { outfile = FILENAME; sub(/in$/, "", outfile) }
+{ print($0) > outfile }
+/^#</ {
+        inclfile = shin_resolve(substr($0, 3))
+        while (getline l < inclfile) print(l) > outfile
+        close(inclfile)
+        sub(/</, ">", $0)
+        print > outfile
+}
+function shin_test(filename) {
+         if (! system("test -f \"" f "\"")) return filename
+        print("Cannot find \"" filename "\" in " sp) > (STDERR ? STDERR : "/dev/stderr")
+        exit 1
+}
+function shin_resolve(filename) {
+        if (match(filename, "^/")) return shin_test(filename)
+        if (match(filename, "^~")) return shin_test(ENVIRON["HOME"] "/" substr(filename, 2))
+        sub(/^[ \t]*/, "", filename)
+        sub(/[ \t]*$/, "", filename)
+        sp = ""
+        for (p in SHINPATH) {
+                sp = sp (sp ? ", " : "") "\"" SHINPATH[p] "\""
+                f = SHINPATH[p] "/" filename
+                gsub("//", "/", f)
+                return shin_test(f)
+        }
+}'
+}
+
+if [ "x$1" = -h ]; then
+        cat <<\EOF
+SHIN: include shell files in other shell files
+USAGE: shin [-h] FILE...
+
+FLAGS:
+ -h     Show this help and exit.
+
+PARAMETERS:
+ FILE...        Input files. FILEs named FILE.shin will be built to
+                FILE.sh in the same directory.  To include files in
+                shin files, use the following comment syntax:
+
+                #< INCLUDE
+
+                If INCLUDE begins with / or ~, it's taken as a literal
+                file name; otherwise SHINPATH will be searched for the
+                file.  SHINPATH is a colon-separated list of paths
+                like $PATH.  If SHINPATH is unset, it defaults to the
+                current directory.
+
+                If INCLUDE is not found, shin will error and quit.
+                Otherwise, shin will add INCLUDE below that comment,
+                as well as a comment denoting the end of the INCLUDE.
+EOF
+else
+        _shin "$@"
+fi