texlive[49959] Build/source/texk/web2c: fputs2 (ptex and friends 5 of

[commits+hironobu at tug.org]

Revision: 49959
          http://tug.org/svn/texlive?view=revision&revision=49959
Author:   hironobu
Date:     2019-02-06 12:01:31 +0100 (Wed, 06 Feb 2019)
Log Message:
-----------
fputs2 (ptex and friends 5 of 5)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/eptexdir/eptex.defines
    trunk/Build/source/texk/web2c/eptexdir/eptex.ech
    trunk/Build/source/texk/web2c/euptexdir/euptex.defines
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/kanji.h
    trunk/Build/source/texk/web2c/ptexdir/ptex.defines
    trunk/Build/source/texk/web2c/uptexdir/ChangeLog
    trunk/Build/source/texk/web2c/uptexdir/kanji.h
    trunk/Build/source/texk/web2c/uptexdir/uptex.defines

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.defines
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.defines	2019-02-06 11:00:54 UTC (rev 49958)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.defines	2019-02-06 11:01:31 UTC (rev 49959)
@@ -17,6 +17,7 @@
 @define function fromDVI ();
 @define function toDVI ();
 @define function putc2 ();
+ at define function fputs2 ();
 @define function inputline2 ();
 
 @define function setinfileenc ();

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2019-02-06 11:00:54 UTC (rev 49958)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2019-02-06 11:01:31 UTC (rev 49959)
@@ -454,7 +454,7 @@
       print_nl("Unknown encoding `");
       case selector of
       term_and_log: begin wterm(stringcast(name_of_file + 1));
-	wlog(stringcast(name_of_file + 1)); end;
+        wlog(stringcast(name_of_file + 1)); end;
       log_only:  wlog(stringcast(name_of_file + 1));
       term_only: wterm(stringcast(name_of_file + 1));
       endcases;

Modified: trunk/Build/source/texk/web2c/euptexdir/euptex.defines
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/euptex.defines	2019-02-06 11:00:54 UTC (rev 49958)
+++ trunk/Build/source/texk/web2c/euptexdir/euptex.defines	2019-02-06 11:01:31 UTC (rev 49959)
@@ -22,6 +22,7 @@
 @define function fromDVI ();
 @define function toDVI ();
 @define function putc2 ();
+ at define function fputs2 ();
 @define function inputline2 ();
 
 @define function setinfileenc ();

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2019-02-06 11:00:54 UTC (rev 49958)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2019-02-06 11:01:31 UTC (rev 49959)
@@ -19,6 +19,11 @@
 	    flag explicitly.
 	* tests/inhibitglue.tex: Added.
 
+2019-02-03  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* kanji.h: Use fputs2() to benefit from kanji encoding conversion.
+	https://github.com/texjporg/tex-jp-build/issues/34
+
 2019-01-23  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* ptex-base.ch: Add dump_kanji and undump_kanji.

Modified: trunk/Build/source/texk/web2c/ptexdir/kanji.h
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/kanji.h	2019-02-06 11:00:54 UTC (rev 49958)
+++ trunk/Build/source/texk/web2c/ptexdir/kanji.h	2019-02-06 11:01:31 UTC (rev 49959)
@@ -58,6 +58,11 @@
 #define putc(c,fp) putc2(c,fp)
 #endif /* !PRESERVE_PUTC */
 
+#ifndef PRESERVE_FPUTS
+#undef fputs
+#define fputs(c,fp) fputs2(c,fp)
+#endif /* !PRESERVE_FPUTS */
+
 #ifdef PBIBTEX
 #define inputline2(fp,buff,pos,size,ptr) input_line2(fp,buff,pos,size,ptr)
 #else

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex.defines
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex.defines	2019-02-06 11:00:54 UTC (rev 49958)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex.defines	2019-02-06 11:01:31 UTC (rev 49959)
@@ -13,6 +13,7 @@
 @define function fromDVI ();
 @define function toDVI ();
 @define function putc2 ();
+ at define function fputs2 ();
 @define function inputline2 ();
 
 @define function fromJIS ();

Modified: trunk/Build/source/texk/web2c/uptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2019-02-06 11:00:54 UTC (rev 49958)
+++ trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2019-02-06 11:01:31 UTC (rev 49959)
@@ -1,3 +1,8 @@
+2019-02-03  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* kanji.h: Use fputs2() to benefit from kanji encoding conversion.
+	https://github.com/texjporg/tex-jp-build/issues/34
+
 2019-01-23  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* kanji_dump.c: Throw a warning when kanji internal encoding

Modified: trunk/Build/source/texk/web2c/uptexdir/kanji.h
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/kanji.h	2019-02-06 11:00:54 UTC (rev 49958)
+++ trunk/Build/source/texk/web2c/uptexdir/kanji.h	2019-02-06 11:01:31 UTC (rev 49959)
@@ -51,6 +51,11 @@
 #define putc(c,fp) putc2(c,fp)
 #endif /* !PRESERVE_PUTC */
 
+#ifndef PRESERVE_FPUTS
+#undef fputs
+#define fputs(c,fp) fputs2(c,fp)
+#endif /* !PRESERVE_FPUTS */
+
 #ifdef UPBIBTEX
 #define inputline2(fp,buff,pos,size,ptr) input_line2(fp,buff,pos,size,ptr)
 #else

Modified: trunk/Build/source/texk/web2c/uptexdir/uptex.defines
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/uptex.defines	2019-02-06 11:00:54 UTC (rev 49958)
+++ trunk/Build/source/texk/web2c/uptexdir/uptex.defines	2019-02-06 11:01:31 UTC (rev 49959)
@@ -24,6 +24,7 @@
 @define function fromDVI ();
 @define function toDVI ();
 @define function putc2 ();
+ at define function fputs2 ();
 @define function inputline2 ();
 
 @define function fromJIS ();