From 3319d70e4e8fd89fe6140e95504a718717bd4e80 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 15 Mar 2023 14:24:10 -0500
Subject: Rewrite with sh

---
 shin.sh | 119 ----------------------------------------------------------------
 1 file changed, 119 deletions(-)
 delete mode 100755 shin.sh

(limited to 'shin.sh')

diff --git a/shin.sh b/shin.sh
deleted file mode 100755
index 97f79e5..0000000
--- a/shin.sh
+++ /dev/null
@@ -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" "$@"
-}
-- 
cgit 1.4.1-21-gabe81