summaryrefslogtreecommitdiff
path: root/Build/source
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source')
-rw-r--r--Build/source/texk/web2c/luatexdir/tex/texfileio.w13
1 files changed, 12 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/luatexdir/tex/texfileio.w b/Build/source/texk/web2c/luatexdir/tex/texfileio.w
index 4d50504386c..76ae365f735 100644
--- a/Build/source/texk/web2c/luatexdir/tex/texfileio.w
+++ b/Build/source/texk/web2c/luatexdir/tex/texfileio.w
@@ -326,6 +326,7 @@ boolean lua_a_open_in(alpha_file * f, char *fn, int n)
return ret;
}
+
@ @c
boolean lua_a_open_out(alpha_file * f, char *fn, int n)
{
@@ -338,16 +339,26 @@ boolean lua_a_open_out(alpha_file * f, char *fn, int n)
fnam = 0;
test = run_callback(callback_id, "dS->s", n, fn, &fnam);
if ((test) && (fnam != 0) && (str_length(fnam) > 0)) {
+ /* There is no message here because if that is needed the macro package */
+ /* should do that in the callback code. As elsewhere, messaging is left */
+ /* to lua then. */
ret = open_outfile(f, fn, FOPEN_W_MODE);
}
} else {
if (openoutnameok(fn)) {
- ret = open_out_or_pipe(f, fn, FOPEN_W_MODE);
+ if (n > 0 && selector != term_only) {
+ /* This message to the log is for downward compatibility with other tex's */
+ /* as there are scripts out there that act on this message. An alternative */
+ /* is to let a macro package write an explicit message. */
+ fprintf(log_file,"\n\\openout%i = %s\n",n-1,fn);
+ }
+ ret = open_out_or_pipe(f, fn, FOPEN_W_MODE);
}
}
return ret;
}
+
@ @c
boolean lua_b_open_out(alpha_file * f, char *fn)
{