texlive[49433] Build/source/texk/web2c/lib: default preloaded guess

[commits+karl at tug.org]

Revision: 49433
          http://tug.org/svn/texlive?view=revision&revision=49433
Author:   karl
Date:     2018-12-17 19:27:08 +0100 (Mon, 17 Dec 2018)
Log Message:
-----------
default preloaded guess to explicit &dumpname if given (from IgorL)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/lib/ChangeLog
    trunk/Build/source/texk/web2c/lib/texmfmp.c

Modified: trunk/Build/source/texk/web2c/lib/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/lib/ChangeLog	2018-12-17 17:45:10 UTC (rev 49432)
+++ trunk/Build/source/texk/web2c/lib/ChangeLog	2018-12-17 18:27:08 UTC (rev 49433)
@@ -1,3 +1,10 @@
+2018-12-17  Igor Liferenko  <igor.liferenko at gmail.com>
+
+	* texmfmp.c (maininit): default to guessing an explicit &dumpname
+	as the "preloaded" (not really) format, if one was specified.
+	tex-k msgs of 23 Sep 2018 12:13:06, 23 Sep 2018 18:36:52.
+	(With comment and formatting tinkering from karl.)
+
 2018-12-17  Andreas Scherer  <https://ascherer.github.io>
 
 	* printversion.c (printversionandexit): Search for PROGNAME

Modified: trunk/Build/source/texk/web2c/lib/texmfmp.c
===================================================================
--- trunk/Build/source/texk/web2c/lib/texmfmp.c	2018-12-17 17:45:10 UTC (rev 49432)
+++ trunk/Build/source/texk/web2c/lib/texmfmp.c	2018-12-17 18:27:08 UTC (rev 49433)
@@ -783,7 +783,7 @@
   xputenv ("engine", TEXMFENGINENAME);
   
   /* Were we given a simple filename? */
-  main_input_file = get_input_file_name();
+  main_input_file = get_input_file_name ();
 
 #ifdef WIN32
   if (main_input_file == NULL) {
@@ -853,7 +853,9 @@
     translate_filename = default_translate_filename;
   }
   /* If we're preloaded, I guess everything is set up.  I don't really
-     know any more, it's been so long since anyone preloaded.  */
+     know any more, it's been so long since anyone truly preloaded.  We
+     still use the word "preloaded" in the messages through (via the
+     original .web sources), at Knuth's request.  */
   if (readyalready != 314159) {
     /* The `ini_version' variable is declared/used in the change files.  */
     boolean virversion = false;
@@ -873,9 +875,16 @@
 #endif /* TeX */
     }
 
+    /* If run like `tex \&foo', reasonable to guess "foo" as the fmt name.  */
+    if (!main_input_file) {
+      if (argv[1] && *argv[1] == '&') {
+        dump_name = argv[1] + 1;
+      }
+    }
+
     if (!dump_name) {
       /* If called as *vir{mf,tex,mpost} use `plain'.  Otherwise, use the
-         name we were invoked under.  */
+         name we were invoked under as our best guess.  */
       dump_name = (virversion ? "plain" : kpse_program_name);
     }
   }