summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/ptftopl.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/ptftopl.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/ptftopl.ch')
-rw-r--r--Build/source/texk/web2c/ptexdir/ptftopl.ch22
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';