diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-03-29 16:04:29 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-03-29 16:04:29 +0000 |
commit | 2c5a772c871ee51297bea7fc6dcea9c80abe387e (patch) | |
tree | 13029490fb1460f7649c336cf9e640ac8a3a087d /Build/source/texk/web2c/eptexdir | |
parent | 4f0e2599e6819a91ce36143e1f4b272025400949 (diff) |
e-TeX, pTeX, and e-pTeX: redefine box_lr and box_dir
to also work for min_quarterword<0
git-svn-id: svn://tug.org/texlive/trunk@21877 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/eptexdir')
-rw-r--r-- | Build/source/texk/web2c/eptexdir/ChangeLog.TL | 5 | ||||
-rw-r--r-- | Build/source/texk/web2c/eptexdir/eptex.ech | 23 | ||||
-rw-r--r-- | Build/source/texk/web2c/eptexdir/etex.ch0 | 6 | ||||
-rw-r--r-- | Build/source/texk/web2c/eptexdir/fam256.ch | 4 |
4 files changed, 27 insertions, 11 deletions
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog.TL b/Build/source/texk/web2c/eptexdir/ChangeLog.TL index 4e8fa9fdfc4..0ac11892964 100644 --- a/Build/source/texk/web2c/eptexdir/ChangeLog.TL +++ b/Build/source/texk/web2c/eptexdir/ChangeLog.TL @@ -1,6 +1,11 @@ ChangeLog.TL: TeX Live (TL) changes for e-pTeX ============================================== +2011-03-29 Peter Breitenlohner <peb@mppmu.mpg.de> + + * eptex.ech, etex.ch0: Redefine box_dir and box_lr to also work + for min_quarterword<0. + 2011-03-28 Peter Breitenlohner <peb@mppmu.mpg.de> * am/eptex.am: Use AM_CFLAGS instead of eptex_CFLAGS. diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech index 49d80ac2d75..3e381fae846 100644 --- a/Build/source/texk/web2c/eptexdir/eptex.ech +++ b/Build/source/texk/web2c/eptexdir/eptex.ech @@ -31,12 +31,19 @@ @d max_quarterword=@"FFFF {largest allowable value in a |quarterword|} @z +@x [10.135] l.2895 - e-pTeX: box_lr and box_dir +In \eTeX\ the |subtype| field records the box direction mode |box_lr|. +@y +In \eTeX\ the |subtype| field records the box direction mode |box_lr|. +In \epTeX\ the |subtype| field is |qi(8*box_lr+box_dir)|. +@z + @x -@d box_dir(#) == subtype(#) {direction mode of a box} +@d box_dir(#) == (qo(subtype(#))) {direction of a box} @d set_box_dir(#) == subtype(#):=set_box_dir_end @y -@d box_dir(#) == (subtype(#)mod 8) {direction mode of a box} -@d set_box_dir(#) == subtype(#):=(subtype(#)div 8)*8+set_box_dir_end +@d box_dir(#) == ((qo(subtype(#)))mod 8) {direction of a box} +@d set_box_dir(#) == subtype(#):=box_lr(#)*8+set_box_dir_end @z @x [26.413] l.8343 - e-pTeX: scan_something_internal @@ -93,13 +100,11 @@ if not is_char_node(tx) then @z @x -@d box_lrstat(#) == subtype(#) {direction mode of a box} -@d set_box_lrstat(#) == subtype(#):=set_box_lrstat_end -@d set_box_lrstat_end(#) == # +@d box_lr(#) == (qo(subtype(#))) {direction mode of a box} +@d set_box_lr(#) == subtype(#):=set_box_lr_end @y -@d box_lrstat(#) == (subtype(#)div 8) {direction mode of a box} -@d set_box_lrstat(#) == subtype(#):=(subtype(#)mod 8)+8*set_box_lrstat_end -@d set_box_lrstat_end(#) == (#) +@d box_lr(#) == ((qo(subtype(#)))div 8) {direction mode of a box} +@d set_box_lr(#) == subtype(#):=box_dir(#)+8*set_box_lr_end @z @x [45.996] l.19420 diff --git a/Build/source/texk/web2c/eptexdir/etex.ch0 b/Build/source/texk/web2c/eptexdir/etex.ch0 index cb2f8795e87..1fb7c8c68ee 100644 --- a/Build/source/texk/web2c/eptexdir/etex.ch0 +++ b/Build/source/texk/web2c/eptexdir/etex.ch0 @@ -1,6 +1,12 @@ % eptexdir/etex.ch0: changefile used to build e-pTeX, see eptexdir/eptex-base.ch for details. % Public domain. Originally written by Peter Breitenlohner <tex-live@tug.org>. +@x [10] m.135 l.2895 - e-TeX TeXXeT +|fil|, |fill|, or |filll|). The |subtype| field is not used in \TeX. +@y +|fil|, |fill|, or |filll|). The |subtype| field is not used. +@z + @x [17.236] l.4960 - first web2c, then e-TeX additional integer parameters @d int_pars=web2c_int_pars {total number of integer parameters} @# diff --git a/Build/source/texk/web2c/eptexdir/fam256.ch b/Build/source/texk/web2c/eptexdir/fam256.ch index e4d988d236f..dc759b93812 100644 --- a/Build/source/texk/web2c/eptexdir/fam256.ch +++ b/Build/source/texk/web2c/eptexdir/fam256.ch @@ -25,10 +25,10 @@ %----------------------------------------------- @x specifies the order of infinity to which glue setting applies (|normal|, -|fil|, |fill|, or |filll|). The |subtype| field is not used. +|fil|, |fill|, or |filll|). The |subtype| field is not used in \TeX. @y specifies the order of infinity to which glue setting applies (|normal|, -|sfi|, |fil|, |fill|, or |filll|). The |subtype| field is not used. +|sfi|, |fil|, |fill|, or |filll|). The |subtype| field is not used in \TeX. @z %----------------------------------------------- @x |