17 lines
590 B
Bash
Executable File
17 lines
590 B
Bash
Executable File
#!/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/'
|