% (find-angg "LATEX/2017repl-test-1.tex")
% (defun c () (interactive) (find-LATEXsh "lualatex -record 2017repl-test-1.tex"))
% (defun d () (interactive) (find-xpdfpage "~/LATEX/2017repl-test-1.pdf"))
% (defun e () (interactive) (find-LATEX "2017repl-test-1.tex"))
% (defun u () (interactive) (find-latex-upload-links "2017repl-test-1"))
% (find-xpdfpage "~/LATEX/2017repl-test-1.pdf")
% (find-sh0 "cp -v  ~/LATEX/2017repl-test-1.pdf /tmp/")
% (find-sh0 "cp -v  ~/LATEX/2017repl-test-1.pdf /tmp/pen/")
%   file:///home/edrx/LATEX/2017repl-test-1.pdf
%               file:///tmp/2017repl-test-1.pdf
%           file:///tmp/pen/2017repl-test-1.pdf
% http://angg.twu.net/LATEX/2017repl-test-1.pdf
\documentclass[oneside]{book}
% \usepackage[colorlinks]{hyperref} % (find-es "tex" "hyperref")
% %\usepackage[latin1]{inputenc}
% \usepackage{amsmath}
% \usepackage{amsfonts}
% \usepackage{amssymb}
% \usepackage{pict2e}
% \usepackage{color}                % (find-LATEX "edrx15.sty" "colors")
% \usepackage{colorweb}             % (find-es "tex" "colorweb")
%\usepackage{tikz}
%
% (find-dn6 "preamble6.lua" "preamble0")
%\usepackage{proof}   % For derivation trees ("%:" lines)
%\input diagxy        % For 2D diagrams ("%D" lines)
%\xyoption{curve}     % For the ".curve=" feature in 2D diagrams
%
\usepackage{edrx15}               % (find-angg "LATEX/edrx15.sty")
% \input edrxaccents.tex            % (find-angg "LATEX/edrxaccents.tex")
% \input edrxchars.tex              % (find-LATEX "edrxchars.tex")
% \input edrxheadfoot.tex           % (find-dn4ex "edrxheadfoot.tex")
% \input edrxgac2.tex               % (find-LATEX "edrxgac2.tex")
%
\begin{document}

\catcode`\^^J=10
\directlua{dednat6dir = "dednat6/"}
\directlua{dofile(dednat6dir.."dednat6.lua")}
\directlua{texfile(tex.jobname)}
\directlua{verbose()}
%\directlua{output(preamble1)}
\def\expr#1{\directlua{output(tostring(#1))}}
\def\eval#1{\directlua{#1}}
\def\pu{\directlua{pu()}}

% \directlua{dofile "edrxtikz.lua"} % (find-LATEX "edrxtikz.lua")
% \directlua{dofile "edrxpict.lua"} % (find-LATEX "edrxpict.lua")
% %L V.__tostring = function (v) return format("(%.3f,%.3f)", v[1], v[2]) end

% (find-es "lua5" "luarepl-2017-latex")
\def\repl{\eval{if os.getenv("REPL")=="1" then print(); sync:run() end}}
%\repl


Hello

\setbox1=\hbox{$abc^d_e$}
\setbox1=\hbox{abcd}
Box 1: \copy1


\repl



\end{document}





% (find-angg ".emacs" "luatex")
% (find-luatexrefpage (+ 4  99)   "tex.box[0].head.next")
% (find-luatexreftext (+ 4  99)   "tex.box[0].head.next")
% (find-luatexrefpage (+ 4 120) "4.14.6 Box registers")
% (find-luatexreftext (+ 4 120) "4.14.6 Box registers")
% (find-es "luatex" "traversing-a-paragraph")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
REPL=1 lualatex 2017repl-test-1.tex
  box = tex.getbox(1)
  box = tex.box[0]
  print(box)
  print(box.head)
  print(box.next)
  output("Hello from Lua\\repl")

  output("\\par ".."Hello again")


* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
# Test the .tgz.
# The e-script below downloads, unpacks and compiles the .tgz in /tmp/edrx-latex/
#
rm -rfv /tmp/2017repl-test-1.tgz
rm -rfv /tmp/edrx-latex/
cd /tmp/
rm -v 2017repl-test-1.tgz
wget http://angg.twu.net/LATEX/2017repl-test-1.tgz

export HOME=/home/music
cd /tmp/
mkdir  /tmp/edrx-latex/
tar -C /tmp/edrx-latex/ -xvzf /tmp/2017repl-test-1.tgz
cd     /tmp/edrx-latex/
       lualatex 2017repl-test-1.tex
REPL=1 lualatex 2017repl-test-1.tex
  output("Hello from Lua")

xpdf 2017repl-test-1.pdf




% Local Variables:
% coding: utf-8-unix
% ee-anchor-format: "«%s»"
% End: