summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/uptexdir/updvitype.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/updvitype.ch')
-rw-r--r--Build/source/texk/web2c/uptexdir/updvitype.ch39
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
+