diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2014-01-15 12:18:44 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2014-01-15 12:18:44 +0000 |
commit | 205e53722caf0f606776b6de7af029028b19eb6a (patch) | |
tree | ad3c7025419741e41cc3712fd9ff4f00313c17d2 /Build/source/texk/web2c/alephdir | |
parent | 0dfb79caaa6d6305dc126dedf5d4aef091298030 (diff) |
TeX & Co: Announce dumpname on the terminal
git-svn-id: svn://tug.org/texlive/trunk@32682 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/alephdir')
-rw-r--r-- | Build/source/texk/web2c/alephdir/ChangeLog | 6 | ||||
-rw-r--r-- | Build/source/texk/web2c/alephdir/com16bit.ch | 9 | ||||
-rw-r--r-- | Build/source/texk/web2c/alephdir/comsrcspec.ch | 10 |
3 files changed, 17 insertions, 8 deletions
diff --git a/Build/source/texk/web2c/alephdir/ChangeLog b/Build/source/texk/web2c/alephdir/ChangeLog index 5e25c322ef2..5088881389c 100644 --- a/Build/source/texk/web2c/alephdir/ChangeLog +++ b/Build/source/texk/web2c/alephdir/ChangeLog @@ -1,6 +1,10 @@ +2014-01-14 Peter Breitenlohner <peb@mppmu.mpg.de> + + * com16bit.ch, comsrcspec.ch: Write dump_name to the terminal. + 2014-01-13 Peter Breitenlohner <peb@mppmu.mpg.de> - * com16bit.ch.ch: Restore the word `preloaded' from + * com16bit.ch.ch: Restore the word `preloaded' for format_idents (as in ../tex.ch). 2013-06-28 Peter Breitenlohner <peb@mppmu.mpg.de> diff --git a/Build/source/texk/web2c/alephdir/com16bit.ch b/Build/source/texk/web2c/alephdir/com16bit.ch index 28df09da530..3c76a59f7bd 100644 --- a/Build/source/texk/web2c/alephdir/com16bit.ch +++ b/Build/source/texk/web2c/alephdir/com16bit.ch @@ -419,6 +419,8 @@ We define |input_ln| in C, for efficiency. @!dump_line:boolean; {was a \.{\%\AM format} line seen?} tini@/ @# +@!dump_name:const_cstring; {format name for terminal display} +@# @!bound_default:integer; {temporary for setup} @!bound_name:const_cstring; {temporary for setup} @# @@ -664,7 +666,7 @@ end @!trick_buf:array[0..ssup_error_line] of ASCII_code; {circular buffer for @z -@x [5.61] l.1556 - Print rest of banner, eliminate misleading `(no format preloaded)'. +@x [5.61] l.1556 - Print rest of banner. wterm(eTeX_banner); if format_ident=0 then wterm_ln(' (no format preloaded)') else begin slow_print(format_ident); print_ln; @@ -672,8 +674,9 @@ else begin slow_print(format_ident); print_ln; @y wterm(eTeX_banner); wterm(version_string); -if format_ident>0 then slow_print(format_ident); -print_ln; +if format_ident=0 then wterm_ln(' (preloaded format=',dump_name,')') +else begin slow_print(format_ident); print_ln; + end; @z @x [6.73] l.1732 - Add unspecified_mode. diff --git a/Build/source/texk/web2c/alephdir/comsrcspec.ch b/Build/source/texk/web2c/alephdir/comsrcspec.ch index e68b92977c1..41ec7007f47 100644 --- a/Build/source/texk/web2c/alephdir/comsrcspec.ch +++ b/Build/source/texk/web2c/alephdir/comsrcspec.ch @@ -25,16 +25,18 @@ @x wterm(eTeX_banner); wterm(version_string); -if format_ident>0 then slow_print(format_ident); -print_ln; +if format_ident=0 then wterm_ln(' (preloaded format=',dump_name,')') +else begin slow_print(format_ident); print_ln; + end; @y if src_specials_p or file_line_error_style_p or parse_first_line_p then wterm(banner_k) else wterm(eTeX_banner); wterm(version_string); -if format_ident>0 then slow_print(format_ident); -print_ln; +if format_ident=0 then wterm_ln(' (preloaded format=',dump_name,')') +else begin slow_print(format_ident); print_ln; + end; if shellenabledp then begin wterm(' '); if restrictedshell then begin |