commit 40685d24d894a0948ead2693c12636a967c24d2e from: sean via: Dan Cross date: Wed Jan 15 13:27:57 2020 UTC soelim: import from Plan9 Add entry in lib/moveplan9.files to trigger relocation during INSTALL. commit - 5c06214952017d03f5e36bd1fbf25c1969922d80 commit + 40685d24d894a0948ead2693c12636a967c24d2e blob - /dev/null blob + 2ba3de996ae89eabc2e25d904fee01e7b01189a7 (mode 755) --- /dev/null +++ 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/' blob - 3ce2d59606324c7766cd12a982cc97a02f758e87 blob + 165351033a046121615a0ef4d81340b3ee447963 --- lib/moveplan9.files +++ lib/moveplan9.files @@ -17,6 +17,7 @@ bin/netfilestat bin/quote1 bin/quote2 bin/sig +bin/soelim bin/spell bin/src bin/ssam blob - /dev/null blob + 78b4e2ebdd6c5821114888ebb90492b3e6ca394e (mode 755) --- /dev/null +++ man/man1/soelim.1 @@ -0,0 +1,30 @@ +.TH SOELIM 1 +.\" .so in the NAME line confuses the ptx machinery; sorry +.SH NAME +soelim \- preprocess so inclusion commands in troff input +.SH SYNOPSIS +.B soelim +[ +.I files ... +] +.SH DESCRIPTION +.I Soelim +reads the specified files or the standard input and performs +the textual inclusion implied by +.IR troff (1) +directives of the form +.sp +.ti +2m +.B "\&.so some_file +.sp +when they appear at the beginning of input lines. This is useful when +using programs such as +.IR tbl (1) +that do not normally do this, allowing +placement of individual tables or other text objects in separate files +to be run as a part of a large document. +.SH SOURCE +.B /rc/bin/soelim +.SH "SEE ALSO" +.IR deroff (1), +.IR troff (1)