ptex-base.ch: get kansujichar (#93)

source/texk/web2c/ptexdir/ptex-base.ch

@@ -2060,6 +2060,7 @@ begin m:=cur_chr;
 case cur_cmd of
 assign_kinsoku: @<Fetch breaking penalty from some table@>;
 assign_inhibit_xsp_code: @<Fetch inhibit type from some table@>;
+set_kansuji_char: @<Fetch kansuji char code from some table@>;
 def_code: @<Fetch a character code from some table@>;
 toks_register,assign_toks,def_family,set_font,def_font,def_jfont,def_tfont:
   @<Fetch a token list or font identifier, provided that |level=tok_val|@>;
@@ -6405,6 +6406,17 @@ else
   define(kansuji_base+n,n,tokanji(toDVI(cur_val)));
 end;
 
+@ @<Fetch kansuji char code from some table@>=
+begin scan_int;
+  if (cur_val<0)or(cur_val>9) then
+    begin print_err("Invalid KANSUJI number ("); print_int(cur_val); print_char(")");
+    help1("I'm skipping this control sequences.");@/
+    error; return;
+    end
+  else
+    cur_val:=fromDVI(kansuji_char(cur_val));
+end
+
 @ |print_kansuji| procedure converts a number to KANJI number.
 
 @ @<Declare procedures needed in |scan_something_internal|@>=