diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-08-18 13:52:11 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-08-18 13:52:11 +0000 |
commit | 8ec7e9e16594cda561fc22fc6607f7cbb95d4aed (patch) | |
tree | cdfe448fee20c35d425ae90826f35ff55810f1e8 /Build/source/texk/web2c/uptexdir/updvitype.ch | |
parent | d078252edb11572f39d434c7c97b107fdd5b8e49 (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.ch | 40 |
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 + |