texlive[49178] Build/source/texk/web2c/lib: make necessary changes

[commits+kakuto at tug.org]

Revision: 49178
          http://tug.org/svn/texlive?view=revision&revision=49178
Author:   kakuto
Date:     2018-11-17 23:04:46 +0100 (Sat, 17 Nov 2018)
Log Message:
-----------
make necessary changes for XeTeX in texmfmp.c

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/lib/ChangeLog
    trunk/Build/source/texk/web2c/lib/texmfmp.c

Modified: trunk/Build/source/texk/web2c/lib/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/lib/ChangeLog	2018-11-17 20:57:01 UTC (rev 49177)
+++ trunk/Build/source/texk/web2c/lib/ChangeLog	2018-11-17 22:04:46 UTC (rev 49178)
@@ -1,3 +1,9 @@
+2018-11-18  Akira Kakuto  <kakuto at fuk.kindai.ac.jp>
+
+	* texmfmp.c: Make necessary changes for XeTeX in
+	getcreationdate(), getfilemoddate(), getfilesize(),
+	and getfiledump(). getfiledump() is still incomplete.
+
 2018-11-17  Joseph Wright  <joseph.wright at morningstar2.co.uk>
 
 	* texmfmp.c: Support some primitives from pdfTeX in XeTeX.

Modified: trunk/Build/source/texk/web2c/lib/texmfmp.c
===================================================================
--- trunk/Build/source/texk/web2c/lib/texmfmp.c	2018-11-17 20:57:01 UTC (rev 49177)
+++ trunk/Build/source/texk/web2c/lib/texmfmp.c	2018-11-17 22:04:46 UTC (rev 49178)
@@ -3129,6 +3129,9 @@
 void getcreationdate(void)
 {
     size_t len;
+#if defined(XeTeX)
+    int i;
+#endif
     initstarttime();
     /* put creation date on top of string pool and update poolptr */
     len = strlen(start_time_str);
@@ -3142,7 +3145,12 @@
         return;
     }
 
+#if defined(XeTeX)
+    for (i = 0; i < len; i++)
+        strpool[poolptr++] = (uint16_t)start_time_str[i];
+#else
     memcpy(&strpool[poolptr], start_time_str, len);
+#endif
     poolptr += len;
 }
 
@@ -3149,8 +3157,12 @@
 void getfilemoddate(integer s)
 {
     struct stat file_data;
-
+#if defined(XeTeX)
+    int i;
+    const_string orig_name = gettexstring(s);
+#else
     const_string orig_name = makecfilename(s);
+#endif
     char *file_name = kpse_find_tex(orig_name);
     if (file_name == NULL) {
         return;                 /* empty string */
@@ -3174,8 +3186,13 @@
             poolptr = poolsize;
             /* error by str_toks that calls str_room(1) */
         } else {
+#if defined(XeTeX)
+            for (i = 0; i < len; i++)
+                strpool[poolptr++] = time_str[i];
+#else
             memcpy(&strpool[poolptr], time_str, len);
             poolptr += len;
+#endif
         }
     }
     /* else { errno contains error code } */
@@ -3188,7 +3205,11 @@
     struct stat file_data;
     int i;
 
+#if defined(XeTeX)
+    char *file_name = kpse_find_tex(gettexstring(s));
+#else
     char *file_name = kpse_find_tex(makecfilename(s));
+#endif
     if (file_name == NULL) {
         return;                 /* empty string */
     }
@@ -3212,8 +3233,13 @@
             poolptr = poolsize;
             /* error by str_toks that calls str_room(1) */
         } else {
+#if defined(XeTeX)
+            for (i = 0; i < len; i++)
+                strpool[poolptr++] = (uint16_t)buf[i];
+#else
             memcpy(&strpool[poolptr], buf, len);
             poolptr += len;
+#endif
         }
     }
     /* else { errno contains error code } */
@@ -3241,7 +3267,11 @@
         return;
     }
 
+#if defined(XeTeX)
+    file_name = kpse_find_tex(gettexstring(s));
+#else
     file_name = kpse_find_tex(makecfilename(s));
+#endif
     if (file_name == NULL) {
         return;                 /* empty string */
     }