diff options
Diffstat (limited to 'systems/unix/tex-fpc/ch.ch/mkdebug')
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkdebug | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/systems/unix/tex-fpc/ch.ch/mkdebug b/systems/unix/tex-fpc/ch.ch/mkdebug new file mode 100755 index 0000000000..8402cb7d92 --- /dev/null +++ b/systems/unix/tex-fpc/ch.ch/mkdebug @@ -0,0 +1,12 @@ +# activate debug block to turn debugging on. Takes mf parameter. +case $# in +1) tm=$1 ;; +*) tm=tex ;; +esac +ed $tm.ch <<'END' +g/^ @x debug/.,/^ @z/s/^ //\ +?^@x?,.p +w +q +END +test $? = 0 || (echo $0 $1 failed ; exit 1) |