From 40685d24d894a0948ead2693c12636a967c24d2e Mon Sep 17 00:00:00 2001
From: sean <phonologus@gmail.com>
Date: Wed, 15 Jan 2020 08:28:14 +0000
Subject: soelim: import from Plan9

Add entry in lib/moveplan9.files to trigger
relocation during INSTALL.
---
 bin/soelim | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 bin/soelim

(limited to 'bin/soelim')

diff --git a/bin/soelim b/bin/soelim
new file mode 100755
index 00000000..2ba3de99
--- /dev/null
+++ b/bin/soelim
@@ -0,0 +1,16 @@
+#!/usr/local/plan9/bin/rc
+# joyless reimplementation of soelim
+# the $0 recursion is a bit ugly
+
+# canonicalise troff commands first with sed into ". so file" form.
+# but the space after the dot has to come out; tbl can't cope with it.
+# friggin' html macros can be longer than two characters; grrr.
+sed '/^[.'']/{
+	s/([^\\])\\".*$/\1/
+#	s/^(.)[	 ]*([^	 \\][^	 \\])[	 ]*/\1 \2 /
+	s/^(.)[	 ]*([^	 \\][^	 \\])/\1 \2/
+}' $* | awk '	BEGIN { me = "'$0'" }
+		$1 !~ /^[.'']$/	{ print; next }
+		$2 == "so" { system(me " " $3) ; next }
+		$2 == "nx" { system(me " " $3) ; exit }
+		{ print }' | sed 's/^([.'']) /\1/'
-- 
cgit v1.2.3