summaryrefslogtreecommitdiff
path: root/systems/unix/tex-fpc/ch.ch/mkuntrap
diff options
context:
space:
mode:
Diffstat (limited to 'systems/unix/tex-fpc/ch.ch/mkuntrap')
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkuntrap17
1 files changed, 17 insertions, 0 deletions
diff --git a/systems/unix/tex-fpc/ch.ch/mkuntrap b/systems/unix/tex-fpc/ch.ch/mkuntrap
new file mode 100755
index 0000000000..926b9663c2
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mkuntrap
@@ -0,0 +1,17 @@
+# undo some changes made for the trap test
+# deactivate trap blocks
+ed mf.ch <<'END'
+g/^@x trap/.,/^@z/s/^/ /\
+?^ @x?,.p
+w
+q
+END
+# activate part blocks
+test $? = 0 \
+&& ed mf.ch <<'END'
+g/^ @x part/.,/^ @z/s/^ //\
+?^@x?,.p
+w
+q
+END
+test $? = 0 || (echo $0 failed ; exit 1)