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/ptexdir/pdvitype.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/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@> |