Revert "Add git-import"

This reverts commit 90fefcaa0b70af49061d648ae3566d65abfc2ab0.

Moved to jorts.

5 files changed, 1 insertions, 167 deletions

diff --git a/bin/.gitignore b/bin/.gitignore
index d1e9cb1d..42269bac 100644
--- a/bin/.gitignore
+++ b/bin/.gitignore
@@ -12,7 +12,6 @@ enc
 ever
 freecell
 git-comment
-git-import
 glitch
 hilex
 htagml
diff --git a/bin/Makefile b/bin/Makefile
index 428ce7ee..bb1535d6 100644
--- a/bin/Makefile
+++ b/bin/Makefile
@@ -15,7 +15,6 @@ BINS += dehtml
 BINS += dtch
 BINS += enc
 BINS += git-comment
-BINS += git-import
 BINS += glitch
 BINS += hilex
 BINS += htagml
diff --git a/bin/README.7 b/bin/README.7
index 9987a0da..100e183e 100644
--- a/bin/README.7
+++ b/bin/README.7
@@ -1,4 +1,4 @@
-.Dd September 11, 2023
+.Dd June  2, 2022
 .Dt BIN 7
 .Os "Causal Agency"
 .
@@ -36,8 +36,6 @@ watch files
 patience game
 .It Xr git-comment 1
 add commit comments
-.It Xr git-import 1
-import tarballs into git
 .It Xr glitch 1
 PNG glitcher
 .It Xr hilex 1
diff --git a/bin/git-import.sh b/bin/git-import.sh
deleted file mode 100644
index 0bec2c25..00000000
--- a/bin/git-import.sh
+++ /dev/null
@@ -1,113 +0,0 @@
-#!/bin/sh
-set -eu
-
-: ${CURL:=curl}
-
-die() {
-	echo "$0: $*" >&2
-	exit 1
-}
-
-strip=1
-message=
-
-OPTS_SPEC="\
-git import [<options>] <branch> <file>
---
-m,message=! create a commit with the specified message
-p,strip= remove the specified number of leading path elements
-"
-eval "$(echo "$OPTS_SPEC" | git rev-parse --parseopt -- "$@")"
-
-while [ $# -gt 0 ]; do
-	opt=$1
-	shift
-	case "$opt" in
-		(-m) message=$1; shift;;
-		(-p) strip=$1; shift;;
-		(--no-strip) strip=0;;
-		(--) break;;
-	esac
-done
-[ $# -gt 0 ] || die "branch name required"
-[ $# -gt 1 ] || die "file or url required"
-branch=$1
-tarball=$2
-: ${message:="Import ${tarball##*/}"}
-
-check_index() {
-	if ! git diff-index --quiet HEAD; then
-		die "working tree has modifications"
-	fi
-}
-
-check_head() {
-	local head full
-	head=$(git rev-parse --symbolic-full-name HEAD)
-	full=$(git rev-parse --verify --quiet --symbolic-full-name "$1") || return 0
-	if [ "$full" = "$head" ]; then
-		die "branch (${full}) cannot be HEAD (${head})"
-	fi
-}
-
-extract_tarball() {
-	local url strip tarball tmpdir
-	url=$1
-	strip=$2
-	if test -f "$url"; then
-		tarball=$url
-	else
-		tarball=$(mktemp)
-		trap 'rm -f "$tarball"' EXIT
-		$CURL -L -o "$tarball" "$url"
-	fi
-	tmpdir=$(mktemp -d)
-	tar -x -f "$tarball" -C "$tmpdir" --strip-components "$strip"
-	echo "$tmpdir"
-}
-
-create_tree() {
-	local root fullpath path blob mode tree
-	root=$1
-	git read-tree --empty
-	find "$root" -type f | while read -r fullpath; do
-		path=${fullpath#${root}/}
-		blob=$(git hash-object -w --path "$path" "$fullpath")
-		mode=100644
-		if test -L "$fullpath"; then
-			mode=120000
-		elif test -x "$fullpath"; then
-			mode=100755
-		fi
-		git update-index --add --cacheinfo "$mode,$blob,$path"
-	done
-	tree=$(git write-tree)
-	git read-tree HEAD
-	echo "$tree"
-}
-
-create_commit() {
-	local parent tree message
-	parent=$1
-	tree=$2
-	message=$3
-	git commit-tree ${parent:+-p ${parent}} -m "$message" "$tree"
-}
-
-update_branch() {
-	local branch parent commit
-	branch=$1
-	parent=$2
-	commit=$3
-	git update-ref "refs/heads/$branch" "$commit" "$parent"
-}
-
-check_index
-check_head "$branch"
-root=$(extract_tarball "$tarball" "$strip")
-tree=$(create_tree "$root")
-rm -fr "$root"
-parent=$(git rev-parse --verify --quiet "$branch" || :)
-commit=$(create_commit "$parent" "$tree" "$message")
-update_branch "$branch" "$parent" "$commit"
-git --no-pager show --stat "$commit"
diff --git a/bin/man1/git-import.1 b/bin/man1/git-import.1
deleted file mode 100644
index 31d224e1..00000000
--- a/bin/man1/git-import.1
+++ /dev/null
@@ -1,49 +0,0 @@
-.Dd September 11, 2023
-.Dt GIT-IMPORT 1
-.Os
-.
-.Sh NAME
-.Nm git-import
-.Nd import a tarball into git
-.
-.Sh SYNOPSIS
-.Nm
-.Op Fl m Ar message
-.Op Fl p Ar count
-.Ar branch
-.Ar file
-.
-.Sh DESCRIPTION
-.Nm
-imports a tarball
-as a new commit on
-a git branch.
-If
-.Ar branch
-does not exist,
-it will be created.
-If
-.Ar file
-is a URL,
-it will be fetched with
-.Xr curl 1 .
-.
-.Pp
-The options are as follows:
-.Bl -tag -width Ds
-.It Fl m Ar message , Fl \-message Ar message
-Set the commit message.
-.It Fl p Ar count , Fl \-strip Ar count
-Remove the specified number
-of leading path elements.
-The default is 1.
-.El
-.
-.Sh ENVIRONMENT
-.Bl -tag -width Ds
-.It Ev CURL
-The path to
-.Xr curl 1 ,
-used to fetch the tarball
-from a URL.
-.El