Fixup \write to expand argument; enhance testcase (Thanks adhilton)

seanpm2001 · Jun 25, 2019 · 41ff0d7 · 41ff0d7
1 parent 241ce2e
commit 41ff0d7
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 2 deletions.
diff --git a/lib/LaTeXML/Package/TeX.pool.ltxml b/lib/LaTeXML/Package/TeX.pool.ltxml
@@ -2231,7 +2231,7 @@ DefPrimitive('\write Number {}', sub {
     if (my $filename = LookupValue('output_file:' . $port)) {
       my $handle   = $filename . '_contents';
       my $contents = LookupValue($handle);
-      AssignValue($handle => $contents . UnTeX($tokens) . "\n", 'global'); }
+      AssignValue($handle => $contents . UnTeX(Expand($tokens)) . "\n", 'global'); }
     else {
       print STDERR UnTeX(Expand($tokens)) . "\n"; }
     return; });

diff --git a/t/digestion/io.pdf b/t/digestion/io.pdf
diff --git a/t/digestion/io.tex b/t/digestion/io.tex
@@ -71,12 +71,14 @@
 
 \paragraph{Writing a file}
 \findfile{generated.data}
-
+\def\timing{Before}
 \immediate\openout\file = generated.data
 \immediate\write\file {First line}
 \immediate\write\file {Second line}
+\immediate\write\file {Timing \timing.}
 \immediate\write\file {Last line}
 \immediate\closeout\file
+\def\timing{After}
 
 \findfile{generated.data}
 \readfile{generated.data}

diff --git a/t/digestion/io.xml b/t/digestion/io.xml
@@ -110,6 +110,9 @@ Line: “First line
 Line: “Second line
 ”<break/>
 
+Line: “Timing Before.
+”<break/>
+
 Line: “Last line
 ”<break/>