summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/uptexdir/updvitype.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2011-08-18 13:52:11 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2011-08-18 13:52:11 +0000
commit8ec7e9e16594cda561fc22fc6607f7cbb95d4aed (patch)
treecdfe448fee20c35d425ae90826f35ff55810f1e8 /Build/source/texk/web2c/uptexdir/updvitype.ch
parentd078252edb11572f39d434c7c97b107fdd5b8e49 (diff)
more upTeX and e-upTeX
git-svn-id: svn://tug.org/texlive/trunk@23592 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/updvitype.ch')
-rw-r--r--Build/source/texk/web2c/uptexdir/updvitype.ch40
1 files changed, 40 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..84f56f1d2d9
--- /dev/null
+++ b/Build/source/texk/web2c/uptexdir/updvitype.ch
@@ -0,0 +1,40 @@
+@x
+@d banner=='This is PDVItype, Version 3.6-p0.4'
+@y
+@d banner=='This is upDVItype, Version 3.6-p0.4-u0.28'
+@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 ('pdvitype');
+@y
+ usage ('updvitype');
+@z
+
+@x
+ usage_help (PDVITYPE_HELP, nil);
+@y
+ usage_help (UPDVITYPE_HELP, nil);
+@z
+
+@x
+ write_ln (stderr, 'pdvitype: Need exactly one file argument.');
+ usage ('pdvitype');
+@y
+ write_ln (stderr, 'updvitype: Need exactly one file argument.');
+ usage ('updvitype');
+@z
+