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/ptftopl.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/ptftopl.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptftopl.ch | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptftopl.ch b/Build/source/texk/web2c/ptexdir/ptftopl.ch index 6b384b8602b..4583d08a736 100644 --- a/Build/source/texk/web2c/ptexdir/ptftopl.ch +++ b/Build/source/texk/web2c/ptexdir/ptftopl.ch @@ -29,6 +29,13 @@ var @!k:integer; {all-purpose initiallization index} tfm_file_array := cast_to_byte_pointer (xmalloc (1003+4)); @z +@x + parse_arguments; +@y + init_default_kanji; + parse_arguments; +@z + @x [7] l.149 - pTeX: print_ln (version_string); @y @@ -343,7 +350,7 @@ else @x const n_options = 4; {Pascal won't count array lengths for us.} @y -const n_options = 5; {Pascal won't count array lengths for us.} +const n_options = 6; {Pascal won't count array lengths for us.} @z @x var @!long_options: array[0..n_options] of getopt_struct; @@ -390,7 +397,18 @@ begin @x @ An element with all zeros always ends the list. @y -@ kanji option +@ 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); + +@ Kanji option. +@.-kanji@> @<Define the option...@> = long_options[current_option].name := 'kanji'; |