diff options
Diffstat (limited to 'tex/context/base/mkiv/luat-ini.mkiv')
-rw-r--r-- | tex/context/base/mkiv/luat-ini.mkiv | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/tex/context/base/mkiv/luat-ini.mkiv b/tex/context/base/mkiv/luat-ini.mkiv index f059d2b85..d1b02ec7e 100644 --- a/tex/context/base/mkiv/luat-ini.mkiv +++ b/tex/context/base/mkiv/luat-ini.mkiv @@ -34,7 +34,7 @@ % the \type {\normalexpanded} around \type {\directlua}. Something to discuss % in the team. -\normalprotected\def\startlua % \stoplua +\protected\def\startlua % \stoplua {\begingroup \obeylualines \luat_start_lua_indeed} @@ -42,7 +42,7 @@ \def\luat_start_lua_indeed#1\stoplua {\normalexpanded{\endgroup\noexpand\directlua{#1}}} % \zerocount is default -\normalprotected\def\startluacode % \stopluacode +\protected\def\startluacode % \stopluacode {\begingroup \obeylualines \obeyluatokens @@ -94,7 +94,7 @@ \let\9\lua_letter_nine \let\0\lua_letter_zero } % \to \everyluacode -\normalprotected\def\obeyluatokens +\protected\def\obeyluatokens {\setcatcodetable\luacatcodes \the\everyluacode} @@ -121,13 +121,13 @@ %D \edef\luaescapestring#1{\!!bs#1\!!es} %D \stoptyping -\normalprotected\def\setdocumentfilename #1#2{\clf_setdocumentfilename\numexpr#1\relax{#2}} -\normalprotected\def\setdocumentargument #1#2{\clf_setdocumentargument{#1}{#2}} -\normalprotected\def\setdocumentargumentdefault#1#2{\clf_setdocumentdefaultargument{#1}{#2}} - \def\getdocumentfilename #1{\clf_getdocumentfilename\numexpr#1\relax} - \def\getdocumentargument #1{\clf_getdocumentargument{#1}{}} -\normalprotected\def\setdocumentargument #1#2{\clf_setdocumentargument{#1}{#2}} - \def\getdocumentargumentdefault#1#2{\clf_getdocumentargument{#1}{#2}} +\protected\def\setdocumentfilename #1#2{\clf_setdocumentfilename\numexpr#1\relax{#2}} +\protected\def\setdocumentargument #1#2{\clf_setdocumentargument{#1}{#2}} +\protected\def\setdocumentargumentdefault#1#2{\clf_setdocumentdefaultargument{#1}{#2}} + \def\getdocumentfilename #1{\clf_getdocumentfilename\numexpr#1\relax} + \def\getdocumentargument #1{\clf_getdocumentargument{#1}{}} +\protected\def\setdocumentargument #1#2{\clf_setdocumentargument{#1}{#2}} + \def\getdocumentargumentdefault#1#2{\clf_getdocumentargument{#1}{#2}} % seldom used so no need for speedy variants: @@ -147,7 +147,7 @@ %D Experimental: -\normalprotected\def\startluaparameterset[#1]% +\protected\def\startluaparameterset[#1]% {\begingroup \obeylualines \obeyluatokens @@ -186,7 +186,7 @@ %D \ctxluacode{context("%0.5f",1/3)} %D \stoptyping -\normalprotected\def\ctxluacode +\protected\def\ctxluacode {\begingroup \obeylualines \obeyluatokens @@ -217,7 +217,7 @@ \installsystemnamespace{ctxfunction} -\normalprotected\def\startctxfunctiondefinition #1 % +\protected\def\startctxfunctiondefinition #1 % {\begingroup \obeylualines \obeyluatokens \luat_start_lua_function_definition_indeed{#1}} \installsystemnamespace{luafunction} @@ -227,13 +227,13 @@ \expandafter\chardef\csname\??luafunction#1\endcsname\ctxcommand{ctxfunction(\!!bs#2\!!es)}\relax \expandafter\edef\csname#1\endcsname{\noexpand\luafunction\csname\??luafunction#1\endcsname}} -\normalprotected\def\setctxluafunction#1#2% experiment +\protected\def\setctxluafunction#1#2% experiment {\expandafter\chardef\csname\??luafunction#1\endcsname#2\relax \expandafter\edef\csname#1\endcsname{\noexpand\luafunction\csname\??luafunction#1\endcsname}} \let\stopctxfunctiondefinition\relax -\normalprotected\def\startctxfunction #1 % +\protected\def\startctxfunction #1 % {\begingroup \obeylualines \obeyluatokens \luat_start_lua_function_indeed{#1}} \def\luat_start_lua_function_indeed#1#2\stopctxfunction @@ -267,23 +267,23 @@ % \ifdefined\normalluadef - \normalprotected\def\installctxfunction#1#2% expandable + \protected\def\installctxfunction#1#2% expandable {\edef\m_syst_name{\csstring#1}% \global\expandafter\normalluadef\csname\m_syst_name\endcsname\ctxcommand{ctxfunction(\!!bs#2\!!es,true)}\relax} - \normalprotected\def\installctxscanner#1#2% expandable + \protected\def\installctxscanner#1#2% expandable {\edef\m_syst_name{\csstring#1}% \global\expandafter\normalluadef\csname\m_syst_name\endcsname\ctxcommand{ctxscanner("\m_syst_name",\!!bs#2\!!es,true)}\relax} - \normalprotected\def\installprotectedctxfunction#1#2% protected + \protected\def\installprotectedctxfunction#1#2% protected {\edef\m_syst_name{\csstring#1}% - \global\normalprotected\expandafter\normalluadef\csname\m_syst_name\endcsname\ctxcommand{ctxfunction(\!!bs#2\!!es,true)}\relax} + \global\protected\expandafter\normalluadef\csname\m_syst_name\endcsname\ctxcommand{ctxfunction(\!!bs#2\!!es,true)}\relax} - \normalprotected\def\installprotectedctxscanner#1#2% protected + \protected\def\installprotectedctxscanner#1#2% protected {\edef\m_syst_name{\csstring#1}% - \global\normalprotected\expandafter\normalluadef\csname\m_syst_name\endcsname\ctxcommand{ctxscanner("\m_syst_name",\!!bs#2\!!es,true)}\relax} + \global\protected\expandafter\normalluadef\csname\m_syst_name\endcsname\ctxcommand{ctxscanner("\m_syst_name",\!!bs#2\!!es,true)}\relax} - \normalprotected\def\resetctxscanner#1% + \protected\def\resetctxscanner#1% {\edef\m_syst_name{\csstring#1}% \expandafter\glet\csname\m_syst_name\endcsname\relax} @@ -295,53 +295,53 @@ % \else % % \ifdefined\luafunctioncall \else -% \normalprotected\def\luafunctioncall{\luafunction} +% \protected\def\luafunctioncall{\luafunction} % \fi % -% \normalprotected\def\installctxfunction#1#2% expandable +% \protected\def\installctxfunction#1#2% expandable % {\edef\m_syst_name{\csstring#1}% % \global\expandafter\chardef\csname\??luafunction\m_syst_name\endcsname\ctxcommand{ctxfunction("#2",true)}\relax % \expandafter\xdef\csname\m_syst_name\endcsname{\noexpand\luafunction\csname\??luafunction\m_syst_name\endcsname}} % -% \normalprotected\def\installctxscanner#1#2% expandable +% \protected\def\installctxscanner#1#2% expandable % {\edef\m_syst_name{\csstring#1}% % \global\expandafter\chardef\csname\??luafunction\m_syst_name\endcsname\ctxcommand{ctxscanner("\m_syst_name","#2",true)}\relax % \expandafter\xdef\csname\m_syst_name\endcsname{\noexpand\luafunction\csname\??luafunction\m_syst_name\endcsname}} % -% \normalprotected\def\installprotectedctxfunction#1#2% protected +% \protected\def\installprotectedctxfunction#1#2% protected % {\edef\m_syst_name{\csstring#1}% % \global\expandafter\chardef\csname\??luafunction\m_syst_name\endcsname\ctxcommand{ctxfunction("#2",true)}\relax % \expandafter\xdef\csname\m_syst_name\endcsname{\noexpand\luafunctioncall\csname\??luafunction\m_syst_name\endcsname}} % -% \normalprotected\def\installprotectedctxscanner#1#2% protected +% \protected\def\installprotectedctxscanner#1#2% protected % {\edef\m_syst_name{\csstring#1}% % \global\expandafter\chardef\csname\??luafunction\m_syst_name\endcsname\ctxcommand{ctxscanner("\m_syst_name","#2",true)}\relax % \expandafter\xdef\csname\m_syst_name\endcsname{\noexpand\luafunctioncall\csname\??luafunction\m_syst_name\endcsname}} % -% \normalprotected\def\resetctxscanner#1% +% \protected\def\resetctxscanner#1% % {\edef\m_syst_name{\csstring#1}% % \global\expandafter\chardef\csname\??luafunction\m_syst_name\endcsname\zerocount % \expandafter\glet\csname\m_syst_name\endcsname\relax} % -% % \normalprotected\def\installctxfunctioncall#1#2% +% % \protected\def\installctxfunctioncall#1#2% % % {\edef\m_syst_name{\csstring#1}% % % \global\expandafter\chardef\csname\??luafunction\m_syst_name\endcsname\ctxcommand{ctxfunction("#2",true)}\relax % % \expandafter\xdef\csname\m_syst_name\endcsname{\luafunctioncall\csname\??luafunction\m_syst_name\endcsname}} % % -% % \normalprotected\def\installctxscannercall#1#2% +% % \protected\def\installctxscannercall#1#2% % % {\edef\m_syst_name{\csstring#1}% % % \global\expandafter\chardef\csname\??luafunction\m_syst_name\endcsname\ctxcommand{ctxscanner("\m_syst_name","#2",true)}\relax % % \expandafter\xdef\csname\m_syst_name\endcsname{\luafunctioncall\csname\??luafunction\m_syst_name\endcsname}} % % -% % \normalprotected\def\installprotectedctxfunctioncall#1#2% +% % \protected\def\installprotectedctxfunctioncall#1#2% % % {\edef\m_syst_name{\csstring#1}% % % \global\expandafter\chardef\csname\??luafunction\m_syst_name\endcsname\ctxcommand{ctxfunction("#2",true)}\relax -% % \normalprotected\expandafter\xdef\csname\m_syst_name\endcsname{\luafunctioncall\csname\??luafunction\m_syst_name\endcsname}} +% % \protected\expandafter\xdef\csname\m_syst_name\endcsname{\luafunctioncall\csname\??luafunction\m_syst_name\endcsname}} % % -% % \normalprotected\def\installprotectedctxscannercall#1#2% +% % \protected\def\installprotectedctxscannercall#1#2% % % {\edef\m_syst_name{\csstring#1}% % % \global\expandafter\chardef\csname\??luafunction\m_syst_name\endcsname\ctxcommand{ctxscanner("\m_syst_name","#2",true)}\relax -% % \normalprotected\expandafter\xdef\csname\m_syst_name\endcsname{\luafunctioncall\csname\??luafunction\m_syst_name\endcsname}} +% % \protected\expandafter\xdef\csname\m_syst_name\endcsname{\luafunctioncall\csname\??luafunction\m_syst_name\endcsname}} % % \fi |