texlive[65747] Master/texmf-dist/scripts/texlive/fmtutil.pl:

[commits+preining at tug.org]

Revision: 65747
          http://tug.org/svn/texlive?view=revision&revision=65747
Author:   preining
Date:     2023-02-07 13:20:53 +0100 (Tue, 07 Feb 2023)
Log Message:
-----------
[fmtutil] add kanji-internal argument for (e-)upTeX

Change-by: Yukimasa Morimi @h20y6m
This change does not affect current formats, but with TL2023 the
platex formats will be based on euptex, and need this change.

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/fmtutil.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/fmtutil.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/fmtutil.pl	2023-02-07 00:49:16 UTC (rev 65746)
+++ trunk/Master/texmf-dist/scripts/texlive/fmtutil.pl	2023-02-07 12:20:53 UTC (rev 65747)
@@ -3,7 +3,7 @@
 # fmtutil - utility to maintain format files.
 # (Maintained in TeX Live:Master/texmf-dist/scripts/texlive.)
 # 
-# Copyright 2014-2021 Norbert Preining
+# Copyright 2014-2022 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 #
@@ -709,6 +709,13 @@
   # get rid of leading * in inifiles
   $inifile =~ s/^\*//;
 
+  # Add -kanji-internal option for create (e-)p(La)TeX format
+  # with (e-)upTeX's pTeX compatible mode.
+  if ($eng =~ /^e?uptex$/ && $fmt =~ /^e?p/ && $addargs !~ /-kanji-internal=/) {
+    my $kanji = win32() ? "sjis" : "euc";
+    $addargs = "-kanji-internal=$kanji " . $addargs;
+  }
+
   if ($fmt eq "metafun")       { $prgswitch .= "mpost"; }
   elsif ($fmt eq "mptopdf")    { $prgswitch .= "context"; }
   elsif ($fmt =~ m/^cont-..$/) { $prgswitch .= "context"; }