diff options
Diffstat (limited to 'systems/unix/tex-fpc/ch.ch')
-rw-r--r-- | systems/unix/tex-fpc/ch.ch/README | 19 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkchatty | 12 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkdebug | 12 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkini | 12 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkprod | 12 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkstats | 12 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mktrap | 19 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mktrip | 11 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkunchatty | 12 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkundebug | 12 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkunstats | 12 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkuntrap | 17 | ||||
-rwxr-xr-x | systems/unix/tex-fpc/ch.ch/mkuntrip | 8 |
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) |