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/mf.ch | |
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/mf.ch')
-rw-r--r-- | Build/source/texk/web2c/mf.ch | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/mf.ch b/Build/source/texk/web2c/mf.ch index 435561e7450..30432668995 100644 --- a/Build/source/texk/web2c/mf.ch +++ b/Build/source/texk/web2c/mf.ch @@ -171,6 +171,8 @@ @!dump_line:boolean; {was a \.{\%\AM base} line seen?} tini@/ @# +@!dump_name:const_cstring; {base name for terminal display} +@# @!bound_default:integer; {temporary for setup} @!bound_name:const_cstring; {temporary for setup} @# @@ -564,7 +566,7 @@ if (s<256)and(selector>pseudo) then print_char(s) if (s<256)and((selector>pseudo) or xprn[s])then print_char(s) @z -@x [5.61] Print rest of banner, eliminate misleading `(no base preloaded)'. +@x [5.61] Print rest of banner. wterm(banner); if base_ident=0 then wterm_ln(' (no base preloaded)') else begin slow_print(base_ident); print_ln; @@ -572,7 +574,9 @@ else begin slow_print(base_ident); print_ln; @y wterm (banner); wterm (version_string); -if base_ident>0 then slow_print(base_ident); print_ln; +if base_ident=0 then wterm_ln(' (preloaded base=',dump_name,')') +else begin slow_print(base_ident); print_ln; + end; if translate_filename then begin wterm('('); fputs(translate_filename, stdout); |