xetex.ch: sync with changes in tex.ch to support \input {...}

git-svn-id: svn://tug.org/texlive/trunk@53745 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 17 insertions, 0 deletions

diff --git a/Build/source/texk/web2c/xetexdir/ChangeLog b/Build/source/texk/web2c/xetexdir/ChangeLog
index 3abdbaa489b..30c4500897a 100644
--- a/Build/source/texk/web2c/xetexdir/ChangeLog
+++ b/Build/source/texk/web2c/xetexdir/ChangeLog
@@ -1,3 +1,8 @@
+2020-02-10  Akira Kakuto  <kakuto@w32tex.org>
+
+	* xetex.ch: Sync with tex.ch for changes by Phelype Oleinik
+	to support \input {...}.
+
 2019-12-31  Akira Kakuto  <kakuto@w32tex.org>
 
 	* XeTeX_ext.c: Support system poppler version 0.84.0.
diff --git a/Build/source/texk/web2c/xetexdir/xetex.ch b/Build/source/texk/web2c/xetexdir/xetex.ch
index e7e1ff2f2e4..d718f798602 100644
--- a/Build/source/texk/web2c/xetexdir/xetex.ch
+++ b/Build/source/texk/web2c/xetexdir/xetex.ch
@@ -415,6 +415,18 @@ for j:=1 to n do append_to_name(TEX_format_default[j]);
 @y
 @z
 
+@x [29.526] - scan a bgroup/egroup-delimited file name
+  stop_at_space := false; {set |stop_at_space| to false to allow spaces in file names}
+  begin_name;
+  for i:=str_start[s] to str_start[s+1]-1 do
+    dummy := more_name(str_pool[i]); {add each read character to the current file name}
+@y
+  stop_at_space := false; {set |stop_at_space| to false to allow spaces in file names}
+  begin_name;
+  for i:=str_start_macro(s) to str_start_macro(s+1)-1 do
+    dummy := more_name(str_pool[i]); {add each read character to the current file name}
+@z
+
 @x [29.536] l.10331
   wlog(' (');
   fputs(translate_filename, log_file);