Warning: this is an htmlized version!
The original is here, and
the conversion rules are here.
% (find-LATEX "2020luatex-catcodes.tex")
% (defun c () (interactive) (find-LATEXsh "lualatex -record 2020luatex-catcodes.tex" :end))
% (defun d () (interactive) (find-pdf-page      "~/LATEX/2020luatex-catcodes.pdf"))
% (defun d () (interactive) (find-pdftools-page "~/LATEX/2020luatex-catcodes.pdf"))
% (defun e () (interactive) (find-LATEX "2020luatex-catcodes.tex"))
% (defun u () (interactive) (find-latex-upload-links "2020luatex-catcodes"))
% (defun v () (interactive) (find-2a '(e) '(d)) (g))
% (find-pdf-page   "~/LATEX/2020luatex-catcodes.pdf")
% (find-sh0 "cp -v  ~/LATEX/2020luatex-catcodes.pdf /tmp/")
% (find-sh0 "cp -v  ~/LATEX/2020luatex-catcodes.pdf /tmp/pen/")
%   file:///home/edrx/LATEX/2020luatex-catcodes.pdf
%               file:///tmp/2020luatex-catcodes.pdf
%           file:///tmp/pen/2020luatex-catcodes.pdf
% http://angg.twu.net/LATEX/2020luatex-catcodes.pdf
% (find-LATEX "2019.mk")

\documentclass[oneside,12pt]{article}
%
\usepackage{edrx15}               % (find-LATEX "edrx15.sty")
\input edrxaccents.tex            % (find-LATEX "edrxaccents.tex")
\input edrxchars.tex              % (find-LATEX "edrxchars.tex")
\input edrxheadfoot.tex           % (find-LATEX "edrxheadfoot.tex")
\input edrxgac2.tex               % (find-LATEX "edrxgac2.tex")
%
\begin{document}

% (find-dednat6 "demo-core.tex")

%\catcode`\^^J=10
\directlua{dofile "dednat6/minimalcore.lua"}  % (find-dednat6 "dednat6/minimalcore.lua")
\directlua{texfile0(status.filename)}
\def\pu{\directlua{pu()}}

%L tex.print([[
%L foo
%L   poo
%L     boo
%L ]])
\pu

foo poo boo

%L tex.print(99)
\pu

foo poo boo




\makeatletter
%\showthe\catcodetable@latex
catcodetable@initex is \the\catcodetable@initex

catcodetable@string is \the\catcodetable@string

catcodetable@latex  is \the\catcodetable@latex

catcodetable@atletter  is \the\catcodetable@atletter
\makeatother

% (find-es "luatex" "luatex-svn")
% (find-es "luatex" "spurious-omega")
% (find-es "luatex" "catcodetable@string")
% (find-luatexrefpage (+ 4 27) "\\initcatcodetable")
% (find-luatexreftext (+ 4 27) "\\initcatcodetable")
% (find-luatexrefpage (+ 4 187) "tex.catcodetable")
% (find-luatexreftext (+ 4 187) "tex.catcodetable")
% (find-luatexrefpage (+ 4 192) "tex.setcatcode")
% (find-luatexreftext (+ 4 192) "tex.setcatcode")

% (find-es "luatex" "catcodetable@string")

% (find-tlsh "find * | sort | grep catcode")

\makeatletter
\def\foo    {Foo}
\def\foo@bar{FooAtBar}
At 1: \foo@bar
\makeatother

At 2: \foo@bar


%L tex.print([[
%L \makeatletter
%L At 3: \foo@bar
%L \makeatother
%L At 4: \foo@bar
%L ]])
\pu

%L cacotable_string = 2
%L cacotable_latex  = 3
%L categ_letter = 11
%L categ_other  = 12

%L tex.print([[ At 5: \foo@bar ]])
\pu

%L tex.print([[ At 6: \foo@bar ]])
%L tex.setcatcode("global", 64, categ_letter)
%L tex.print([[ At 7: \foo@bar ]])
\pu

%L tex.print([[ At 8: \foo@bar ]])
%L tex.setcatcode("global", 64, categ_other)
%L tex.print([[ At 9: \foo@bar ]])
\pu

%L tex.print([[ At 10: \foo@bar ]])
%L tex.setcatcode("global", cacotable_string, 64, categ_letter)
%L tex.print([[ At 11: \foo@bar ]])
\pu

%L tex.print([[ At 12: \foo@bar ]])
%L tex.setcatcode("global", cacotable_string, 64, categ_other)
%L tex.print([[ At 13: \foo@bar ]])
\pu

%L tex.print([[ At 14: \foo@bar ]])
%L tex.setcatcode("global", cacotable_latex, 64, categ_letter)
%L tex.print([[ At 15: \foo@bar ]])
\pu

%L tex.print([[ At 16: \foo@bar ]])
%L tex.setcatcode("global", cacotable_latex, 64, categ_other)
%L tex.print([[ At 17: \foo@bar ]])
\pu



% tex.setcatcode (["global"], <number> cattable, <number> n, <number> c)








\end{document}

%  __  __       _        
% |  \/  | __ _| | _____ 
% | |\/| |/ _` | |/ / _ \
% | |  | | (_| |   <  __/
% |_|  |_|\__,_|_|\_\___|
%                        
% <make>

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
# (find-LATEXfile "2019planar-has-1.mk")
make -f 2019.mk STEM=2020luatex-catcodes veryclean
make -f 2019.mk STEM=2020luatex-catcodes pdf

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