% (find-LATEX "2022tikz-repl.tex")
% (defun c () (interactive) (find-LATEXsh "lualatex -record 2022tikz-repl.tex" :end))
% (defun C () (interactive) (find-LATEXSH "lualatex 2022tikz-repl.tex" "Success!!!"))
% (defun D () (interactive) (find-pdf-page      "~/LATEX/2022tikz-repl.pdf"))
% (defun d () (interactive) (find-pdftools-page "~/LATEX/2022tikz-repl.pdf"))
% (defun e () (interactive) (find-LATEX "2022tikz-repl.tex"))
% (defun u () (interactive) (find-latex-upload-links "2022tikz-repl"))
% (defun v () (interactive) (find-2a '(e) '(d)))
% (defun cv () (interactive) (C) (ee-kill-this-buffer) (v) (g))
% (defun d0 () (interactive) (find-ebuffer "2022tikz-repl.pdf"))
%          (code-eec-LATEX "2022tikz-repl")
% (find-pdf-page   "~/LATEX/2022tikz-repl.pdf")
% (find-sh0 "cp -v  ~/LATEX/2022tikz-repl.pdf /tmp/")
% (find-sh0 "cp -v  ~/LATEX/2022tikz-repl.pdf /tmp/pen/")
%   file:///home/edrx/LATEX/2022tikz-repl.pdf
%               file:///tmp/2022tikz-repl.pdf
%           file:///tmp/pen/2022tikz-repl.pdf
% http://angg.twu.net/LATEX/2022tikz-repl.pdf
% (find-LATEX "2019.mk")
% (find-lualatex-links "2022tikz-repl" "tir")
%
% «.tests»	(to "tests")

\documentclass[oneside,12pt]{article}
\usepackage[colorlinks,citecolor=DarkRed,urlcolor=DarkRed]{hyperref} % (find-es "tex" "hyperref")
\usepackage[x11names,svgnames]{xcolor} % (find-es "tex" "xcolor")
\usepackage{tikz}
\begin{document}

%\catcode`\^^J=10
%\directlua{dofile "dednat6load.lua"}   % (find-LATEX "dednat6load.lua")
%\directlua{quiet()}                    % (find-dn6 "output.lua" "output")
\directlua{ dofile(os.getenv("LUA_INIT"):sub(2)) }
\def\repl{\directlua{ print(); run_repl2_now()  }}
\nonstopmode
\def\luaprintmeaning#1{\directlua{ print(token.get_meaning("#1")) }}
\def\luaprintpgfkey #1{%
  \pgfkeysgetvalue {#1}{\luatmp}%
  \luaprintmeaning      {luatmp}%
  }
\repl


% (find-LATEX "edrx21.sty" "sa-and-ga")
\def\sa#1#2{\expandafter\def\csname myarg#1\endcsname{#2}}
\def\ga#1{\csname myarg#1\endcsname}

\sa{foo}{FOOO}
\sa{foo 2_3@}{FOOO!}
\sa{foo 2_{3}@}{FOOO!!}

% \def\luagetmeaning#1{\directlua{ print(token.get_meaning("#1")) }}


\def\foo{FOO}
\def\bletch#1{BL#1ETCH}

\luaprintmeaning{foo}


\GenericWarning{Success:}{Success!!!}  % Used by `M-x cv'

\end{document}

% «tests»  (to ".tests")
% (find-es "tikz" "repl")
% (find-angg "LUA/lua50init.lua" "Repl2.lua")
% (find-angg "LUA/lua50init.lua" "Repl2.lua" "run_repl2_now =")
% (find-angg "LUA/lua50init.lua" "Repl2.lua" "texrun =")
%
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
lualatex 2022tikz-repl.tex
print(token.get_meaning("myargfoo"))
print(token.get_meaning("myargfoo 2_3@"))
print(token.get_meaning("myargfoo 2_{3}@"))
print(token.get_meaning("pgfkeysgetvalue"))

texrun = function (str) tex.print(str.."\\repl"); stop_repl2_now() end

texrun [=[ \pgfkeyssetvalue{/my family/blop}{Blop blop}  ]=]
texrun [=[ \luaprintpgfkey {/my family/blop}             ]=]
texrun [=[ \luaprintpgfkey {/tikz/rounded corners}       ]=]
texrun [=[ \luaprintpgfkey {/tikz/rounded corners/.@cmd} ]=]

texrun [=[ \message{foo} ]=]
texrun [=[ \message{bar} ]=]
texrun [=[ \def\A{AAA}   ]=]
texrun [=[ \message{\A}  ]=]
texrun [=[ \show\A       ]=]
texrun [=[ \luagetmeaning{foo} ]=]
texrun [=[ \luagetmeaning{ foo } ]=]
texrun [=[ \luagetmeaning{myargfoo 2_{3}@} ]=]
texrun [=[ \luagetmeaning{pgfkeysgetvalue} ]=]

texrun [=[ \luagetmeaning{mypgfvalue} ]=]
texrun [=[ \luagetmeaning{pgfk@mypgfvalue} ]=]
stop_repl2_now()

% Local Variables:
% coding: utf-8-unix
% ee-tla: "tir"
% End: