diff options
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/pdvitype.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/pdvitype.ch | 19 |
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@> |