diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2019-12-17 20:59:25 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2019-12-17 20:59:25 +0000 |
commit | aadef58436c6abaac26f000a863d666b72e6bc7b (patch) | |
tree | 52fe499475eacf226d1e2e530bbd99dda0c678e8 /Build | |
parent | 4c124f70e22deecce385bd0164cabbc6e1946fe0 (diff) |
com16bit.ch: Sync with tex.ch for out_what [1374].
git-svn-id: svn://tug.org/texlive/trunk@53156 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r-- | Build/source/texk/web2c/alephdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/alephdir/com16bit.ch | 11 |
2 files changed, 14 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/alephdir/ChangeLog b/Build/source/texk/web2c/alephdir/ChangeLog index 0aed9ac6213..f3814547fc1 100644 --- a/Build/source/texk/web2c/alephdir/ChangeLog +++ b/Build/source/texk/web2c/alephdir/ChangeLog @@ -1,3 +1,7 @@ +2019-12-18 Akira Kakuto <kakuto@w32tex.org> + + * com16bit.ch: Sync with tex.ch for out_what [1374]. + 2019-08-10 Akira Kakuto <kakuto@w32tex.org> * com16bit.ch: Sync with tex.ch for texmf_yesno('log_openout'). diff --git a/Build/source/texk/web2c/alephdir/com16bit.ch b/Build/source/texk/web2c/alephdir/com16bit.ch index 76f9f5261da..ac970f1b782 100644 --- a/Build/source/texk/web2c/alephdir/com16bit.ch +++ b/Build/source/texk/web2c/alephdir/com16bit.ch @@ -2695,7 +2695,16 @@ var j:small_number; {write stream number} @!old_setting:0..max_selector; @z -@x [53.1374] Disallow certain \openout filenames, and log results. +@x [53.1374] + else begin if write_open[j] then a_close(write_file[j]); + if subtype(p)=close_node then write_open[j]:=false +@y + else begin if write_open[j] then begin a_close(write_file[j]); + write_open[j]:=false; end; + if subtype(p)=close_node then do_nothing {already closed} +@z + +@x [still 53.1374] Disallow certain \openout filenames, and log results. while not a_open_out(write_file[j]) do prompt_file_name("output file name",".tex"); write_open[j]:=true; |