texlive[44923] Build/source/texk/web2c/pmpostdir: pmpostdir: input a

commits+kakuto at tug.org commits+kakuto at tug.org
Sun Jul 30 23:12:21 CEST 2017


Revision: 44923
          http://tug.org/svn/texlive?view=revision&revision=44923
Author:   kakuto
Date:     2017-07-30 23:12:21 +0200 (Sun, 30 Jul 2017)
Log Message:
-----------
pmpostdir: input a space between two "s

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/pmpostdir/ChangeLog
    trunk/Build/source/texk/web2c/pmpostdir/pmpost.ch
    trunk/Build/source/texk/web2c/pmpostdir/ppsout.ch

Modified: trunk/Build/source/texk/web2c/pmpostdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/ChangeLog	2017-07-30 13:45:42 UTC (rev 44922)
+++ trunk/Build/source/texk/web2c/pmpostdir/ChangeLog	2017-07-30 21:12:21 UTC (rev 44923)
@@ -1,3 +1,7 @@
+2017-07-30  Akira Kakuto  <kakuto at fuk.kindai.ac.jp>
+
+	* ppsout.ch, pmpost.ch: Force a space between " and ".
+
 2017-04-24  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* pmpxout.ch: p\TeX -> \pTeX.

Modified: trunk/Build/source/texk/web2c/pmpostdir/pmpost.ch
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/pmpost.ch	2017-07-30 13:45:42 UTC (rev 44922)
+++ trunk/Build/source/texk/web2c/pmpostdir/pmpost.ch	2017-07-30 21:12:21 UTC (rev 44923)
@@ -9,13 +9,13 @@
 @x
 @d TEX     "tex"
 @y
- at d TEX "e" P_UP "tex"
+ at d TEX "e"@= @>P_UP@= @>"tex"
 @z
 
 @x
 #define MPXCOMMAND "makempx"
 @y
-#define MPXCOMMAND P_UP "makempx"
+#define MPXCOMMAND P_UP@= @>"makempx"
 @z
 
 @x
@@ -78,13 +78,13 @@
 @x
         const char *banner = "% Written by metapost version ";
 @y
-        const char *banner = "% Written by " P_UP "mpost version ";
+        const char *banner = "% Written by "@= @>P_UP@= @>"mpost version ";
 @z
 
 @x
       const char *banner = "% Written by dvitomp version ";
 @y
-      const char *banner = "% Written by " P_UP "dvitomp version ";
+      const char *banner = "% Written by "@= @>P_UP@= @>"dvitomp version ";
 @z
 
 @x
@@ -131,9 +131,9 @@
 else
   fprintf(stdout, "This is MetaPost %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
 @y
-  fprintf(stdout, "This is " P_UP "dvitomp %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
+  fprintf(stdout, "This is "@= @>P_UP@= @>"dvitomp %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
 else
-  fprintf(stdout, "This is " P_UP "MetaPost %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
+  fprintf(stdout, "This is "@= @>P_UP@= @>"MetaPost %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
 @z
 
 @x
@@ -149,17 +149,17 @@
 fprintf(stdout,
 "  -ini                      be inimpost, for dumping mem files\n"
 @y
-"Usage: " P_UP "mpost [OPTION] [&MEMNAME] [MPNAME[.mp]] [COMMANDS]\n"
-"       " P_UP "mpost --dvitomp DVINAME[.dvi] [MPXNAME[.mpx]]\n"
+"Usage: "@= @>P_UP@= @>"mpost [OPTION] [&MEMNAME] [MPNAME[.mp]] [COMMANDS]\n"
+"       "@= @>P_UP@= @>"mpost --dvitomp DVINAME[.dvi] [MPXNAME[.mpx]]\n"
 "\n"
-"  Run " P_UP "MetaPost on MPNAME, usually creating MPNAME.NNN (and perhaps\n"
+"  Run "@= @>P_UP@= @>"MetaPost on MPNAME, usually creating MPNAME.NNN (and perhaps\n"
 "  MPNAME.tfm), where NNN are the character numbers generated.\n"
-"  Any remaining COMMANDS are processed as " P_UP "MetaPost input,\n"
+"  Any remaining COMMANDS are processed as "@= @>P_UP@= @>"MetaPost input,\n"
 "  after MPNAME is read.\n\n"
-"  With a --dvitomp argument, " P_UP "MetaPost acts as DVI-to-MPX converter only.\n"
-"  Call " P_UP "MetaPost with --dvitomp --help for option explanations.\n\n");
+"  With a --dvitomp argument, "@= @>P_UP@= @>"MetaPost acts as DVI-to-MPX converter only.\n"
+"  Call "@= @>P_UP@= @>"MetaPost with --dvitomp --help for option explanations.\n\n");
 fprintf(stdout,
-"  -ini                      be ini" P_UP "mpost, for dumping mem files\n"
+"  -ini                      be ini"@= @>P_UP@= @>"mpost, for dumping mem files\n"
 @z
 
 @x
@@ -182,9 +182,9 @@
 else
   fprintf(stdout, "This is MetaPost %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
 @y
-  fprintf(stdout, "This is " P_UP "dvitomp %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
+  fprintf(stdout, "This is "@= @>P_UP@= @>"dvitomp %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
 else
-  fprintf(stdout, "This is " P_UP "MetaPost %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
+  fprintf(stdout, "This is "@= @>P_UP@= @>"MetaPost %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
 @z
 
 @x
@@ -191,8 +191,8 @@
 "Usage: dvitomp DVINAME[.dvi] [MPXNAME[.mpx]]\n"
 "       mpost --dvitomp DVINAME[.dvi] [MPXNAME[.mpx]]\n"
 @y
-"Usage: " P_UP "dvitomp DVINAME[.dvi] [MPXNAME[.mpx]]\n"
-"       " P_UP "mpost --dvitomp DVINAME[.dvi] [MPXNAME[.mpx]]\n"
+"Usage: "@= @>P_UP@= @>"dvitomp DVINAME[.dvi] [MPXNAME[.mpx]]\n"
+"       "@= @>P_UP@= @>"mpost --dvitomp DVINAME[.dvi] [MPXNAME[.mpx]]\n"
 @z
 
 @x
@@ -211,9 +211,9 @@
 else
   fprintf(stdout, "MetaPost %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
 @y
-  fprintf(stdout, P_UP "dvitomp (" P_UP "MetaPost) %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
+  fprintf(stdout, P_UP@= @>"dvitomp ("@= @>P_UP@= @>"MetaPost) %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
 else
-  fprintf(stdout, P_UP "MetaPost %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
+  fprintf(stdout, P_UP@= @>"MetaPost %s" WEB2CVERSION " (%s)\n", s, kpathsea_version_string);
 @z
 
 @x
@@ -230,7 +230,7 @@
 @x
   const char * banner = "This is MetaPost, version ";
 @y
-  const char * banner = "This is " P_UP "MetaPost, version ";
+  const char * banner = "This is "@= @>P_UP@= @>"MetaPost, version ";
 @z
 
 @x
@@ -246,13 +246,13 @@
 @x
     if (FILESTRCASEEQ(base, "rmpost")){
 @y
-    if (FILESTRCASEEQ(base, "r" P_UP "mpost")){
+    if (FILESTRCASEEQ(base, "r"@= @>P_UP@= @>"mpost")){
 @z
 
 @x
     if (FILESTRCASEEQ(base, "dvitomp"))
 @y
-    if (FILESTRCASEEQ(base, P_UP "dvitomp"))
+    if (FILESTRCASEEQ(base, P_UP@= @>"dvitomp"))
 @z
 
 @x
@@ -281,11 +281,11 @@
 @x
     if (FILESTRCASEEQ(kpse_program_name, "rmpost"))
 @y
-    if (FILESTRCASEEQ(kpse_program_name, "r" P_UP "mpost"))
+    if (FILESTRCASEEQ(kpse_program_name, "r"@= @>P_UP@= @>"mpost"))
 @z
 
 @x
   if(putenv(xstrdup("engine=metapost")))
 @y
-  if(putenv(xstrdup("engine=" P_UP "mpost")))
+  if(putenv(xstrdup("engine="@= @>P_UP@= @>"mpost")))
 @z

Modified: trunk/Build/source/texk/web2c/pmpostdir/ppsout.ch
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/ppsout.ch	2017-07-30 13:45:42 UTC (rev 44922)
+++ trunk/Build/source/texk/web2c/pmpostdir/ppsout.ch	2017-07-30 21:12:21 UTC (rev 44923)
@@ -71,7 +71,7 @@
 @x
   mp_ps_print_nl(mp, "%%Creator: MetaPost ");
 @y
-  mp_ps_print_nl(mp, "%%Creator: MetaPost (" P_UP "MetaPost) ");
+  mp_ps_print_nl(mp, "%%Creator: MetaPost ("@= @>P_UP@= @>"MetaPost) ");
 @z
 
 %



More information about the tex-live-commits mailing list