texlive[46060] Build/source/texk/web2c/alephdir: alephdir/om16bit.ch:

[commits+hironobu at tug.org]

Revision: 46060
          http://tug.org/svn/texlive?view=revision&revision=46060
Author:   hironobu
Date:     2017-12-13 15:11:27 +0100 (Wed, 13 Dec 2017)
Log Message:
-----------
alephdir/om16bit.ch: backport from eptex/fam256.ch

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/alephdir/ChangeLog
    trunk/Build/source/texk/web2c/alephdir/om16bit.ch

Modified: trunk/Build/source/texk/web2c/alephdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/alephdir/ChangeLog	2017-12-13 14:08:11 UTC (rev 46059)
+++ trunk/Build/source/texk/web2c/alephdir/ChangeLog	2017-12-13 14:11:27 UTC (rev 46060)
@@ -1,3 +1,8 @@
+2017-12-13  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* om16bit.ch: \show\odelimiter should be \odelimiter, etc.
+	This is a backport from eptexdir/fam256.ch.
+
 2017-01-28  Karl Berry  <karl at freefriends.org>
 
 	* com16bit.ch (texarray): don't mention pool files in error message.

Modified: trunk/Build/source/texk/web2c/alephdir/om16bit.ch
===================================================================
--- trunk/Build/source/texk/web2c/alephdir/om16bit.ch	2017-12-13 14:08:11 UTC (rev 46059)
+++ trunk/Build/source/texk/web2c/alephdir/om16bit.ch	2017-12-13 14:11:27 UTC (rev 46060)
@@ -945,6 +945,28 @@
 set_new_eqtb(frozen_relax,new_eqtb(cur_val));@/
 @z
 %---------------------------------------
+ at x
+delim_num: print_esc("delimiter");
+ at y
+delim_num: if chr_code=0 then print_esc("delimiter")
+  else print_esc("odelimiter");
+ at z
+ at x
+math_accent: print_esc("mathaccent");
+math_char_num: print_esc("mathchar");
+ at 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");
+ at z
+ at x
+radical: print_esc("radical");
+ at y
+radical: if chr_code=0 then print_esc("radical")
+  else print_esc("oradical");
+ at z
+%---------------------------------------
 @x [19] m.276 l.5951 - Omega
 else  begin save_stack[save_ptr]:=eqtb[p]; incr(save_ptr);
 @y
@@ -2305,6 +2327,23 @@
 @!@:math_char_def_}{\.{\\omathchardef} primitive@>
 @z
 %---------------------------------------
+ at x
+  math_char_def_code: print_esc("mathchardef");
+ at y
+  math_char_def_code: print_esc("mathchardef");
+  omath_char_def_code: print_esc("omathchardef");
+ at z
+%---------------------------------------
+ at x
+math_given: begin print_esc("mathchar"); print_hex(chr_code);
+  end;
+ at y
+math_given: begin print_esc("mathchar"); print_hex(chr_code);
+  end;
+omath_given: begin print_esc("omathchar"); print_hex(chr_code);
+  end;
+ at 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 @@
 @!@:del_code_}{\.{\\odelcode} primitive@>
 @z
 %---------------------------------------
+ at 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");
+ at 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");
+ at 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;