summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir
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/alephdir
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/alephdir')
-rw-r--r--Build/source/texk/web2c/alephdir/ChangeLog6
-rw-r--r--Build/source/texk/web2c/alephdir/com16bit.ch9
-rw-r--r--Build/source/texk/web2c/alephdir/comsrcspec.ch10
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