Rewrite with sh HEAD main

1 files changed, 0 insertions, 119 deletions

@@ -1,119 +0,0 @@
-#!/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" "$@"
-}