Add shin.sh (sh library; acts a little differently to shin.awk/shin)

1 files changed, 119 insertions, 0 deletions

@@ -0,0 +1,119 @@
+#!/bin/sh
+# SHIN --- include files in shell scripts
+# Copyright (C) Case Duckworth <acdw@acdw.net>
+
+_shin_check_SHINPATH{) {
+        printf "%s\n" "${SHINPATH:-.}" |
+                tr : '\n' |
+                while read -r path
+                do
+                        if test -f "$path/$1"
+                        then
+                                printf '%s\n' "$path/$1"
+                                return 0
+                        fi
+                done
+        return 1
+}
+
+_shin_resolve_file(} {
+        f=
+        case "$1" in
+                ~/*) f="$HOME/${1#~/}" ;;
+                /*) f="/${1#/}" ;;
+                *) f="$(_shin_check_SHINPATH "$1")" ;;
+        esac
+
+        if test -f "$f"
+        then
+                printf '%s\n' "$f"
+                return 0
+        else
+                return 1
+        fi
+}
+
+_shin_include() { # _shin_include FILE ...
+        for lib
+        do
+                lib="$(_shin_resolve_file "$lib")"
+                test -f "$lib" && . "$lib"
+        done
+}
+
+_shin_build() ( # _shin_build FILE ...
+        temp=/tmp/shinf; trap 'rm "$temp"' INT EXIT QUIT
+        for file
+        do
+                file="$(_shin_resolve_file "$file")"
+
+                # Determine output file
+                if test -z "$outfile"
+                then
+                        case "$file" in
+                                # file.shin -> file.sh
+                                *.shin) outfile="${file%in}" ;;
+                                # file.sh -> file
+                                *.sh) outfile="${file%.sh}" ;;
+                                # file.ext -> file.ext.sh
+                                *) outfile="$file.sh" ;;
+                        esac
+                fi
+
+                while read -r line
+                do
+                        case "$line" in
+                                # skip lines where the user sources the library
+                                .*shin) ;;
+                                .*shin.sh) ;;
+                                # where the user invokes shin, replace with file
+                                shin*) # cursed
+                                        eval \
+                                                for file in ${line#shin}\; \
+                                                do \
+                                                test -f \"\$file\" \&\& \
+                                                cat \"\$file\"\; \
+                                                done
+                                        ;;
+                                # else, print the line
+                                *) printf '%s\n' "$line" ;;
+                        esac
+                done < "$file" > "$temp"
+
+                if test "x$outfile" = x-
+                then # already output to standard out
+                        cat "$temp"
+                        continue
+                elif test $? -ne 0
+                then # uh oh we messed up
+                        echo >&2 "shin: errors building."
+                        echo >&2 "shin: part-built file: $temp"
+                elif test -f "$outfile"
+                then # can't overwrite sumthin
+                        echo >&2 "shin: file already exists: $outfile"
+                        echo >&2 "shin: part-built file: $temp"
+                else # move the temp file to the output
+                        mv "$temp" "$outfile"
+                fi
+        done
+)
+
+shin() {
+        func=_shin_include
+        while getopts fio: OPT
+        do
+                case "$OPT" in
+                        f) func=_shin_build ;;
+                        i) func=_shin_include ;;
+                        o) # output file implies build.
+                                func=_shin_build
+                                outputfile="$OPTARG"
+                                ;;
+                        *) exit 1 ;;
+                esac
+        done
+        shift $((OPTIND - 1))
+        OPTIND=0
+
+        "$func" "$@"
+}