texlive[50652] Build/source/texk/web2c/pdftexdir: allow spaces in

[commits+kakuto at tug.org]

Revision: 50652
          http://tug.org/svn/texlive?view=revision&revision=50652
Author:   kakuto
Date:     2019-03-30 05:04:58 +0100 (Sat, 30 Mar 2019)
Log Message:
-----------
allow spaces in "CharSet". reported by Robert.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
    trunk/Build/source/texk/web2c/pdftexdir/epdf.c

Modified: trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/ChangeLog	2019-03-30 03:42:07 UTC (rev 50651)
+++ trunk/Build/source/texk/web2c/pdftexdir/ChangeLog	2019-03-30 04:04:58 UTC (rev 50652)
@@ -1,3 +1,9 @@
+2019-03-30  Akira Kakuto  <kakuto at w32tex.org>
+
+	* epdf.c: Allow spaces in CharSet.
+	Reported by Robert:
+	https://tug.org/pipermail/pdftex/2019-March/009146.html
+
 2019-03-21  Akira Kakuto  <kakuto at w32tex.org>
 
 	* pdftoepdf-poppler0.75.0.cc: Support poppler-0.75.0.

Modified: trunk/Build/source/texk/web2c/pdftexdir/epdf.c
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/epdf.c	2019-03-30 03:42:07 UTC (rev 50651)
+++ trunk/Build/source/texk/web2c/pdftexdir/epdf.c	2019-03-30 04:04:58 UTC (rev 50652)
@@ -77,8 +77,16 @@
     if (charset == NULL)
         return;
     assert(fd != NULL);
+    while (*charset == ' ' || *charset == '\t')
+        charset++;
     for (s = charset + 1, q = charset + strlen(charset); s < q; s = p + 1) {
-        for (p = s; *p != '\0' && *p != '/'; p++);
+        for (p = s; *p != '\0' && *p != '/' && *p != ' ' && *p != '\t'; p++);
+        if (*p == ' ' || *p == '\t') {
+            *p = '\0';
+            p++;
+            while (*p == ' ' || *p == '\t')
+                p++;
+        }
         *p = '\0';
         if ((char *) avl_find(fd->gl_tree, s) == NULL) {
             glyph = xstrdup(s);