From 7c72e9b9b2d200a4ff7914c88cd6652211cd6133 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 12 Jul 2021 13:27:21 +0200
Subject: Remove each

I wasn't entirely happy with it.
---
 each   | 18 ------------------
 each.1 | 56 --------------------------------------------------------
 2 files changed, 74 deletions(-)
 delete mode 100755 each
 delete mode 100644 each.1

diff --git a/each b/each
deleted file mode 100755
index b1e5727..0000000
--- a/each
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/perl
-
-$i = 0;
-for (@ARGV) {
-	if (/^;$/) { $command .= '; '; next; }
-	if (/^&&$/) { $command .= '&& '; next; }
-	if (/^\|\|$/) { $command .= '|| '; next; }
-	if (/^\|$/) { $command .= '| '; next; }
-	s/"/"'"'"/g;
-	s/\$/\\\$/g;
-	s/\\\$\+/\$/g;
-	$command .= "\"$_\" "
-}
-
-while (<STDIN>) {
-	chomp($ENV{x} = $_);
-	system($command);
-}
diff --git a/each.1 b/each.1
deleted file mode 100644
index 00780be..0000000
--- a/each.1
+++ /dev/null
@@ -1,56 +0,0 @@
-.Dd $Mdocdate$
-.Dt each 1
-.Os
-.
-.Sh NAME
-.Nm each
-.Nd do with each line
-.
-.Sh SYNOPSIS
-.Nm each
-.Ar command
-.Op Ar separator command ...
-.
-.Sh DESCIPTION
-.Pp
-.Nm
-runs each given
-.Ar command
-for every line read on standard input.
-.Ar separator
-is one of
-.Ql \&; ,
-.Ql | ,
-.Ql &&
-and
-.Ql || .
-.Pp
-Within a command, the contents of the line is assigned to the variable
-.Ev x ,
-which can be accessed with the normal shell variable interpolation syntax,
-except you need to put a plus sign after the dollar sign:
-.Bd -literal -offset indent
-$+x
-$+{x}
-$+{x#/}
-$+{x%.mp3}
-$+{x%%.*}
-.Ed
-.Pp
-This syntax generally doesn't need to be quoted
-when entered in the Bourne or Korn shells
-(unless you need to put commas inside the curly braces
-or have files whose names begin with
-.Ql $+ ) .
-.Sh AUTHORS
-.Pp
-.Nm
-is written by John Ankarström
-.Aq Mt john (at) ankarstrom.se .
-.Sh BUGS
-.Pp
-It is not possible to insert a literal
-.Ql $+ .
-Quoting it with a backslash prevents the interpolation,
-but results in the literal string
-.Ql $ .
-- 
cgit v1.2.3