blob: 8402cb7d9259c8ac6f335a3e0f33efa5cb08e315 (
plain)
1
2
3
4
5
6
7
8
9
10
11
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)
|