summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/mf.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2014-01-15 12:18:44 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2014-01-15 12:18:44 +0000
commit205e53722caf0f606776b6de7af029028b19eb6a (patch)
treead3c7025419741e41cc3712fd9ff4f00313c17d2 /Build/source/texk/web2c/mf.ch
parent0dfb79caaa6d6305dc126dedf5d4aef091298030 (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.ch8
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);