summaryrefslogtreecommitdiff
path: root/systems/unix/tex-fpc/ch.ch
diff options
context:
space:
mode:
Diffstat (limited to 'systems/unix/tex-fpc/ch.ch')
-rw-r--r--systems/unix/tex-fpc/ch.ch/README19
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkchatty12
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkdebug12
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkini12
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkprod12
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkstats12
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mktrap19
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mktrip11
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkunchatty12
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkundebug12
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkunstats12
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkuntrap17
-rwxr-xr-xsystems/unix/tex-fpc/ch.ch/mkuntrip8
13 files changed, 170 insertions, 0 deletions
diff --git a/systems/unix/tex-fpc/ch.ch/README b/systems/unix/tex-fpc/ch.ch/README
new file mode 100644
index 0000000000..9128823308
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/README
@@ -0,0 +1,19 @@
+These shell scripts invoke ed on .ch files to change change files.
+
+The first line of a change block must start with @x <theme>. All
+lines of a deactivated change block must start with a tab, i.e.
+"shifted right."
+
+Under these preconditions, e.g. the script mkinitex deactivates the block
+marked by @x initex and the script mkprodtex activates the same
+block.
+
+The mk* scripts print the changed lines.
+
+Some ch.ch files, like mkchatty, take one optional parameter.
+"mkchatty" or "mkchatty tex" change tex.ch and "mkchatty mf" changes mf.ch.
+
+These commands are idempotent. Applying twice a change script has
+the same effect as applying it once.
+
+Cf. section 11 of webman.tex for the format of change files.
diff --git a/systems/unix/tex-fpc/ch.ch/mkchatty b/systems/unix/tex-fpc/ch.ch/mkchatty
new file mode 100755
index 0000000000..177baf83e9
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mkchatty
@@ -0,0 +1,12 @@
+# deactivate chatty blocks. These blocks make tex/mf less chatty.
+case $# in
+1) tm=$1 ;;
+*) tm=tex ;;
+esac
+ed $tm.ch <<'END'
+g/^@x chatty/.,/^@z/s/^/ /\
+?^ @x?,.p
+w
+q
+END
+test $? = 0 || (echo $0 $1 failed ; exit 1)
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)
diff --git a/systems/unix/tex-fpc/ch.ch/mkini b/systems/unix/tex-fpc/ch.ch/mkini
new file mode 100755
index 0000000000..91f7862502
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mkini
@@ -0,0 +1,12 @@
+# deactivate initex block to make initex or inimf to make inimf
+case $# in
+1) tm=$1 ;;
+*) tm=tex ;;
+esac
+ed $tm.ch <<'END'
+g/^@x ini/.,/^@z/s/^/ /\
+?^ @x?,.p
+w
+q
+END
+test $? = 0 || (echo $0 failed; exit 1)
diff --git a/systems/unix/tex-fpc/ch.ch/mkprod b/systems/unix/tex-fpc/ch.ch/mkprod
new file mode 100755
index 0000000000..79a4180be4
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mkprod
@@ -0,0 +1,12 @@
+# activate ini block to make prod
+case $# in
+1) tm=$1 ;;
+*) tm=tex ;;
+esac
+ed $tm.ch <<'END'
+g/^ @x ini/.,/^ @z/s/^ //\
+?^@x?,.p
+w
+q
+END
+test $? = 0 || (echo $0 failed; exit 1)
diff --git a/systems/unix/tex-fpc/ch.ch/mkstats b/systems/unix/tex-fpc/ch.ch/mkstats
new file mode 100755
index 0000000000..f2a81c00a3
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mkstats
@@ -0,0 +1,12 @@
+# activate stats blocks to turn statistics on
+case $# in
+1) tm=$1 ;;
+*) tm=tex ;;
+esac
+ed $tm.ch <<'END'
+g/^ @x stat/.,/^ @z/s/^ //\
+?^@x?,.p
+w
+q
+END
+test $? = 0 || (echo $0 $1 failed ; exit 1)
diff --git a/systems/unix/tex-fpc/ch.ch/mktrap b/systems/unix/tex-fpc/ch.ch/mktrap
new file mode 100755
index 0000000000..dc3b8e7a72
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mktrap
@@ -0,0 +1,19 @@
+# change change blocks to prepare the trap test
+mkini mf \
+&& mkstats mf\
+&& mkdebug mf\
+&& mkchatty mf\
+&& ed mf.ch <<'END'
+g/^ @x trap/.,/^@z/s/^ //\
+?^@x?,.p
+w
+q
+END
+test $? = 0 \
+&& ed mf.ch <<'END'
+g/^@x part/.,/^@z/s/^/ /\
+?^ @x?,.p
+w
+q
+END
+test $? = 0 || (echo $0 failed ; exit 1)
diff --git a/systems/unix/tex-fpc/ch.ch/mktrip b/systems/unix/tex-fpc/ch.ch/mktrip
new file mode 100755
index 0000000000..b8a8e46d5a
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mktrip
@@ -0,0 +1,11 @@
+# change change blocks to prepare the trip test
+mkini\
+&& mkstats\
+&& mkchatty\
+&& ed tex.ch <<'END'
+g/^ @x trip/.,/^@z/s/^ //\
+?^@x?,.p
+w
+q
+END
+test $? = 0 || (echo $0 failed; exit 1)
diff --git a/systems/unix/tex-fpc/ch.ch/mkunchatty b/systems/unix/tex-fpc/ch.ch/mkunchatty
new file mode 100755
index 0000000000..64025dacda
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mkunchatty
@@ -0,0 +1,12 @@
+# activate chatty blocks
+case $# in
+1) tm=$1 ;;
+*) tm=tex ;;
+esac
+ed $tm.ch <<'END'
+g/^ @x chatty/.,/^ @z/s/^ //\
+?^@x?,.p
+w
+q
+END
+test $? = 0 || (echo failed; exit 1)
diff --git a/systems/unix/tex-fpc/ch.ch/mkundebug b/systems/unix/tex-fpc/ch.ch/mkundebug
new file mode 100755
index 0000000000..f0f6c7655e
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mkundebug
@@ -0,0 +1,12 @@
+# deactivate debug block to turn debugging off.
+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)
diff --git a/systems/unix/tex-fpc/ch.ch/mkunstats b/systems/unix/tex-fpc/ch.ch/mkunstats
new file mode 100755
index 0000000000..6021be7bef
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mkunstats
@@ -0,0 +1,12 @@
+# deactivate stats blocks in tex.ch or in mf.ch to turn statistic off.
+case $# in
+1) tm=$1 ;;
+*) tm=tex ;;
+esac
+ed $tm.ch <<'END'
+g/^@x stat/.,/^@z/s/^/ /\
+?^ @x?,.p
+w
+q
+END
+test $? = 0 || (echo $0 $1 failed ; exit 1)
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)
diff --git a/systems/unix/tex-fpc/ch.ch/mkuntrip b/systems/unix/tex-fpc/ch.ch/mkuntrip
new file mode 100755
index 0000000000..3e849c9b1c
--- /dev/null
+++ b/systems/unix/tex-fpc/ch.ch/mkuntrip
@@ -0,0 +1,8 @@
+# undo the changes made for trip
+ed tex.ch <<'END'
+g/^@x trip/.,/^@z/s/^/ /\
+?^ @x?,.p
+w
+q
+END
+test $? = 0 || (echo $0 failed; exit 1)