diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2017-12-13 14:11:27 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2017-12-13 14:11:27 +0000 |
commit | 1a4e06974be1999505dc8d29f395190411acd856 (patch) | |
tree | 1217606426724b8e815e2f7fa450baa844829993 /Build/source/texk/web2c | |
parent | bdd2e8087a7a1d9fa07ea288951727fffc768ac2 (diff) |
alephdir/om16bit.ch: backport from eptex/fam256.ch
git-svn-id: svn://tug.org/texlive/trunk@46060 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r-- | Build/source/texk/web2c/alephdir/ChangeLog | 5 | ||||
-rw-r--r-- | Build/source/texk/web2c/alephdir/om16bit.ch | 53 |
2 files changed, 58 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/alephdir/ChangeLog b/Build/source/texk/web2c/alephdir/ChangeLog index 5e288afcc11..151aa1d1dc6 100644 --- a/Build/source/texk/web2c/alephdir/ChangeLog +++ b/Build/source/texk/web2c/alephdir/ChangeLog @@ -1,3 +1,8 @@ +2017-12-13 Hironobu Yamashita <h.y.acetaminophen@gmail.com> + + * om16bit.ch: \show\odelimiter should be \odelimiter, etc. + This is a backport from eptexdir/fam256.ch. + 2017-01-28 Karl Berry <karl@freefriends.org> * com16bit.ch (texarray): don't mention pool files in error message. diff --git a/Build/source/texk/web2c/alephdir/om16bit.ch b/Build/source/texk/web2c/alephdir/om16bit.ch index 311b97f0c82..41f711372e5 100644 --- a/Build/source/texk/web2c/alephdir/om16bit.ch +++ b/Build/source/texk/web2c/alephdir/om16bit.ch @@ -945,6 +945,28 @@ settext(frozen_relax,"relax"); set_new_eqtb(frozen_relax,new_eqtb(cur_val));@/ @z %--------------------------------------- +@x +delim_num: print_esc("delimiter"); +@y +delim_num: if chr_code=0 then print_esc("delimiter") + else print_esc("odelimiter"); +@z +@x +math_accent: print_esc("mathaccent"); +math_char_num: print_esc("mathchar"); +@y +math_accent: if chr_code=0 then print_esc("mathaccent") + else print_esc("omathaccent"); +math_char_num: if chr_code=0 then print_esc("mathchar") + else print_esc("omathchar"); +@z +@x +radical: print_esc("radical"); +@y +radical: if chr_code=0 then print_esc("radical") + else print_esc("oradical"); +@z +%--------------------------------------- @x [19] m.276 l.5951 - Omega else begin save_stack[save_ptr]:=eqtb[p]; incr(save_ptr); @y @@ -2305,6 +2327,23 @@ primitive("omathchardef",shorthand_def,omath_char_def_code);@/ @!@:math_char_def_}{\.{\\omathchardef} primitive@> @z %--------------------------------------- +@x + math_char_def_code: print_esc("mathchardef"); +@y + math_char_def_code: print_esc("mathchardef"); + omath_char_def_code: print_esc("omathchardef"); +@z +%--------------------------------------- +@x +math_given: begin print_esc("mathchar"); print_hex(chr_code); + end; +@y +math_given: begin print_esc("mathchar"); print_hex(chr_code); + end; +omath_given: begin print_esc("omathchar"); print_hex(chr_code); + end; +@z +%--------------------------------------- @x [49] m.1224 l.22833 - Omega shorthand_def: begin n:=cur_chr; get_r_token; p:=cur_cs; define(p,relax,256); scan_optional_equals; @@ -2355,6 +2394,20 @@ primitive("odelcode",def_code,del_code_base+256); @!@:del_code_}{\.{\\odelcode} primitive@> @z %--------------------------------------- +@x + else if chr_code=lc_code_base then print_esc("lccode") + else if chr_code=uc_code_base then print_esc("uccode") + else if chr_code=sf_code_base then print_esc("sfcode") + else print_esc("delcode"); +@y + else if chr_code=math_code_base+256 then print_esc("omathcode") + else if chr_code=lc_code_base then print_esc("lccode") + else if chr_code=uc_code_base then print_esc("uccode") + else if chr_code=sf_code_base then print_esc("sfcode") + else if chr_code=del_code_base then print_esc("delcode") + else print_esc("odelcode"); +@z +%--------------------------------------- @x [49] m.1232 l.22990 - Omega def_code: begin @<Let |n| be the largest legal code value, based on |cur_chr|@>; p:=cur_chr; scan_char_num; p:=p+cur_val; scan_optional_equals; |