diff options
Diffstat (limited to 'Build/source/texk/web2c/xetexdir')
-rw-r--r-- | Build/source/texk/web2c/xetexdir/ChangeLog | 5 | ||||
-rw-r--r-- | Build/source/texk/web2c/xetexdir/char-warning-xetex.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/xetexdir/xetex.ch | 24 |
3 files changed, 18 insertions, 13 deletions
diff --git a/Build/source/texk/web2c/xetexdir/ChangeLog b/Build/source/texk/web2c/xetexdir/ChangeLog index 279ddbbbffe..4400966472e 100644 --- a/Build/source/texk/web2c/xetexdir/ChangeLog +++ b/Build/source/texk/web2c/xetexdir/ChangeLog @@ -1,3 +1,8 @@ +2020-07-20 Andreas Scherer <https://ascherer.github.io> + + * char-warning-xetex.ch: WEBify variable in comment. + * xetex.ch: Place Web2c changes together. + 2020-07-19 Karl Berry <karl@freefriends.org> * char-warning-xetex.ch: new file; see ../pdftexdir/ChangeLog. diff --git a/Build/source/texk/web2c/xetexdir/char-warning-xetex.ch b/Build/source/texk/web2c/xetexdir/char-warning-xetex.ch index 246c0489ce5..55f0d8ff1bf 100644 --- a/Build/source/texk/web2c/xetexdir/char-warning-xetex.ch +++ b/Build/source/texk/web2c/xetexdir/char-warning-xetex.ch @@ -34,7 +34,7 @@ begin if tracing_lost_chars>0 then end; end; @y -procedure print_ucs_code(@!n: UnicodeScalar); { cf. print_hex } +procedure print_ucs_code(@!n: UnicodeScalar); { cf.~|print_hex| } var k: 0..22; {index to current digit; we assume that $0\L n<16^{22}$} begin k := 0; diff --git a/Build/source/texk/web2c/xetexdir/xetex.ch b/Build/source/texk/web2c/xetexdir/xetex.ch index c9c57f3c395..c7fe814adbf 100644 --- a/Build/source/texk/web2c/xetexdir/xetex.ch +++ b/Build/source/texk/web2c/xetexdir/xetex.ch @@ -891,6 +891,18 @@ end; while s>65535 do {first 64K strings don't really exist in the pool!} @z +@x [54/web2c.1407] - 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 @!mltex_enabled_p:boolean; {enable character substitution} @y @@ -940,15 +952,3 @@ exit:end; @# @<Declare subroutines for |new_character|@>@; @z - -@x [54/web2c.1407] - 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 |