Imprimir archivo en el registro

Imprimir archivo en el registro

Tengo un archivo y me gustaría imprimirlo en el archivo de registro. El problema es que si agrego una nueva línea con ^^J, muchas veces se agregan dos nuevas líneas cuando el tamaño de la línea a imprimir es exactamente el ancho máximo de la línea en la consola (lo cual ocurre… siempre desde que imprimo el log de un archivo latex 90% de las veces).

MWE: demo.txt

(/nix/store/6z1x24dwqp88qh769isg4y769w47d1x2-texlive-combined-2022/share/texmf/
tex/latex/epstopdf-pkg/epstopdf-base.sty
(/nix/store/6z1x24dwqp88qh769isg4y769w47d1x2-texlive-combined-2022/share/texmf/
tex/latex/latexconfig/epstopdf-sys.cfg))

! Package tikz Error: Giving up on this path. Did you forget a semicolon?.

See the tikz package documentation for explanation.

foo.tex:

\documentclass{article}

\begin{document}
Look at the log.

\ExplSyntaxOn
\ior_new:N \g__my_read_ior

\cs_new:Nn \robExt_write_file_in_log:n {
  \ior_open:Nn \g__my_read_ior {#1}%
  \ior_str_map_inline:Nn \g__my_read_ior {%
    \message{\tl_to_str:n{##1}^^J}%
  }%
}
\message{--------------}
\robExt_write_file_in_log:n {demo.txt}
\message{--------------}
\ExplSyntaxOff

\end{document}

información relacionada