Subversion Repositories planix.SVN

#!/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/'