texlive[62964] Build/source/texk/dvipsk: dvips: warn if interpreting

[commits+takuji at tug.org]

Revision: 62964
          http://tug.org/svn/texlive?view=revision&revision=62964
Author:   takuji
Date:     2022-04-06 13:55:47 +0200 (Wed, 06 Apr 2022)
Log Message:
-----------
dvips: warn if interpreting OFM FONTDIR as pTeX vertical writing

Modified Paths:
--------------
    trunk/Build/source/texk/dvipsk/ChangeLog
    trunk/Build/source/texk/dvipsk/tfmload.c

Modified: trunk/Build/source/texk/dvipsk/ChangeLog
===================================================================
--- trunk/Build/source/texk/dvipsk/ChangeLog	2022-04-06 11:55:42 UTC (rev 62963)
+++ trunk/Build/source/texk/dvipsk/ChangeLog	2022-04-06 11:55:47 UTC (rev 62964)
@@ -1,3 +1,9 @@
+2022-02-27  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
+
+	* tfmload.c:
+	Warn if interpreting OFM FONTDIR as pTeX vertical writing
+	with option -d 4.
+
 2022-03-21  Karl Berry  <karl at tug.org>
 
 	* TL'22 release.

Modified: trunk/Build/source/texk/dvipsk/tfmload.c
===================================================================
--- trunk/Build/source/texk/dvipsk/tfmload.c	2022-04-06 11:55:42 UTC (rev 62963)
+++ trunk/Build/source/texk/dvipsk/tfmload.c	2022-04-06 11:55:47 UTC (rev 62964)
@@ -160,8 +160,15 @@
       for (i=0; i<8; i++) li=tfm32();
       if (!noptex && font_level==1 && ec>=0x2E00) {
          curfnt->iswide = 1;
-         if (li==5)    /* interpret FONTDIR RT as pTeX vertical writing */
+         if (li==5) {  /* interpret FONTDIR RT as pTeX vertical writing */
             curfnt->dir = 9;
+#ifdef DEBUG
+            if (dd(D_FONTS))
+               fprintf_str(stderr,
+                  "We will interpret font (%s.ofm) direction as pTeX vertical writing.\n",
+                  curfnt->name);
+#endif /* DEBUG */
+         }
       }
       if (font_level>1 || hd<2 || bc<0 || ec<0 || nw<0
                        || bc>ec+1 || ec>65535 || nw>65536)