summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2017-12-13 14:11:27 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2017-12-13 14:11:27 +0000
commit1a4e06974be1999505dc8d29f395190411acd856 (patch)
tree1217606426724b8e815e2f7fa450baa844829993 /Build/source/texk/web2c/alephdir
parentbdd2e8087a7a1d9fa07ea288951727fffc768ac2 (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/alephdir')
-rw-r--r--Build/source/texk/web2c/alephdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/alephdir/om16bit.ch53
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;