soelim: import from Plan9
Add entry in lib/moveplan9.files to trigger relocation during INSTALL.
This commit is contained in:
parent
5c06214952
commit
40685d24d8
3 changed files with 47 additions and 0 deletions
16
bin/soelim
Executable file
16
bin/soelim
Executable 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/'
|
||||
Loading…
Add table
Add a link
Reference in a new issue