diff options
| -rw-r--r-- | Build/source/texk/web2c/xetexdir/xetex.ch | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/xetexdir/xetex.ch b/Build/source/texk/web2c/xetexdir/xetex.ch index 1c389489fc9..c0b1f9f0a04 100644 --- a/Build/source/texk/web2c/xetexdir/xetex.ch +++ b/Build/source/texk/web2c/xetexdir/xetex.ch @@ -400,6 +400,15 @@ for j:=1 to n do append_to_name(TEX_format_default[j]); @z @x [29.537] l.10338 - start_input +var temp_str: str_number; +begin scan_file_name; {set |cur_name| to desired file name} +@y +var temp_str: str_number; +@!k:0..file_name_size; {index into |name_of_file16|} +begin scan_file_name; {set |cur_name| to desired file name} +@z + +@x [29.537] l.10338 - start_input and a_open_in(cur_file, kpse_tex_format) then goto done; @y @@ -553,6 +562,15 @@ else begin n:=cur_chr; get_r_token; p:=cur_cs; define(p,relax,too_big_usv); @z @x [49.1275] l.23441 - Same stuff as for \input, this time for \openin. +var c:0..1; {1 for \.{\\openin}, 0 for \.{\\closein}} +@!n:0..15; {stream number} +@y +var c:0..1; {1 for \.{\\openin}, 0 for \.{\\closein}} +@!n:0..15; {stream number} +@!k:0..file_name_size; {index into |name_of_file16|} +@z + +@x [49.1275] l.23441 - Same stuff as for \input, this time for \openin. and a_open_in(read_file[n], kpse_tex_format) then read_open[n]:=just_open; @y |