summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/pdvitype.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/ptexdir/pdvitype.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/ptexdir/pdvitype.ch')
-rw-r--r--Build/source/texk/web2c/ptexdir/pdvitype.ch19
1 files changed, 18 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/ptexdir/pdvitype.ch b/Build/source/texk/web2c/ptexdir/pdvitype.ch
index 02b245a63b4..143377709a6 100644
--- a/Build/source/texk/web2c/ptexdir/pdvitype.ch
+++ b/Build/source/texk/web2c/ptexdir/pdvitype.ch
@@ -10,6 +10,13 @@
@z
@x
+ parse_arguments;
+@y
+ init_default_kanji;
+ parse_arguments;
+@z
+
+@x
for i:=@'177 to 255 do xchr[i]:='?';
@y
for i:=@'177 to 255 do xchr[i]:=i;
@@ -478,7 +485,7 @@ if (m<>id_byte) and (m<>ptex_id_byte) then
@x
const n_options = 8; {Pascal won't count array lengths for us.}
@y
-const n_options = 9; {Pascal won't count array lengths for us.}
+const n_options = 10; {Pascal won't count array lengths for us.}
@z
@x
@@ -515,6 +522,16 @@ const n_options = 9; {Pascal won't count array lengths for us.}
@x
@ An element with all zeros always ends the list.
@y
+@ Shift-JIS terminal (the flag is ignored except for WIN32).
+@.-sjis-terminal@>
+
+@<Define the option...@> =
+long_options[current_option].name := 'sjis-terminal';
+long_options[current_option].has_arg := 0;
+long_options[current_option].flag := address_of (sjis_terminal);
+long_options[current_option].val := 1;
+incr (current_option);
+
@ Decide kanji encode
@.-kanji@>