summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/pdvitype.ch
diff options
context:
space:
mode:
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@>