soelim: import from Plan9

Add entry in lib/moveplan9.files to trigger
relocation during INSTALL.
This commit is contained in:
sean 2020-01-15 08:28:14 +00:00 committed by Dan Cross
parent 5c06214952
commit 40685d24d8
3 changed files with 47 additions and 0 deletions

16
bin/soelim Executable file
View file

@ -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/'