From 205e53722caf0f606776b6de7af029028b19eb6a Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Wed, 15 Jan 2014 12:18:44 +0000 Subject: TeX & Co: Announce dumpname on the terminal git-svn-id: svn://tug.org/texlive/trunk@32682 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/tex.ch | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'Build/source/texk/web2c/tex.ch') diff --git a/Build/source/texk/web2c/tex.ch b/Build/source/texk/web2c/tex.ch index 53549255cb4..a76721e9164 100644 --- a/Build/source/texk/web2c/tex.ch +++ b/Build/source/texk/web2c/tex.ch @@ -516,6 +516,8 @@ We define |input_ln| in C, for efficiency. Nevertheless we quote the module @!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} @# @@ -757,14 +759,15 @@ else wterm(banner); @z -@x [5.61] l.1556 - Print rest of banner, eliminate misleading `(no format preloaded)'. +@x [5.61] l.1556 - Print rest of banner. if format_ident=0 then wterm_ln(' (no format preloaded)') else begin slow_print(format_ident); print_ln; end; @y 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 -- cgit v1.2.3