diff options
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/updvitype.ch')
-rw-r--r-- | Build/source/texk/web2c/uptexdir/updvitype.ch | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/uptexdir/updvitype.ch b/Build/source/texk/web2c/uptexdir/updvitype.ch new file mode 100644 index 00000000000..41b0aae3936 --- /dev/null +++ b/Build/source/texk/web2c/uptexdir/updvitype.ch @@ -0,0 +1,39 @@ +@x +@d my_name=='pdvitype' +@d banner=='This is pDVItype, Version 3.6-p0.5' +@y +@d my_name=='updvitype' +@d banner=='This is upDVItype, Version 3.6-p0.5-u1.27' +@z + +@x procedure initialize + print (banner); + print_ln (version_string); +@y + print (banner); + print (' ('); + print (conststringcast(get_enc_string)); + print (')'); + print_ln (version_string); +@z + +@x procedure out_kanji + if text_ptr>=line_length-3 then flush_text; + c:=toBUFF(fromDVI(c)); + incr(text_ptr); text_buf[text_ptr]:= Hi(c); + incr(text_ptr); text_buf[text_ptr]:= Lo(c); +@y + if text_ptr>=line_length-5 then flush_text; + c:=toBUFF(fromDVI(c)); + if BYTE1(c)<>0 then begin incr(text_ptr); text_buf[text_ptr]:=BYTE1(c); end; + if BYTE2(c)<>0 then begin incr(text_ptr); text_buf[text_ptr]:=BYTE2(c); end; + if BYTE3(c)<>0 then begin incr(text_ptr); text_buf[text_ptr]:=BYTE3(c); end; + incr(text_ptr); text_buf[text_ptr]:=BYTE4(c); +@z + +@x + usage_help (PDVITYPE_HELP, 'issue@@texjp.org'); +@y + usage_help (UPDVITYPE_HELP, 'issue@@texjp.org'); +@z + |