diff options
Diffstat (limited to 'tex/context/base/mkiv/syst-lua.mkxl')
-rw-r--r-- | tex/context/base/mkiv/syst-lua.mkxl | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/tex/context/base/mkiv/syst-lua.mkxl b/tex/context/base/mkiv/syst-lua.mkxl deleted file mode 100644 index 615562200..000000000 --- a/tex/context/base/mkiv/syst-lua.mkxl +++ /dev/null @@ -1,100 +0,0 @@ -%D \module -%D [ file=syst-lua, -%D version=2008.01.25, -%D title=\CONTEXT\ System Macros, -%D subtitle=Helper macros based on \LUA, -%D author=Hans Hagen, -%D date=\currentdate, -%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] -%C -%C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See mreadme.pdf for -%C details. - -\registerctxluafile{syst-lua}{autosuffix} - -\unprotect - -\permanent\def\expdoifelse#1#2{\clf_doifelsesame{#1}{#2}} -\permanent\def\expdoif #1#2{\clf_doifsame {#1}{#2}} -\permanent\def\expdoifnot #1#2{\clf_doifnotsame {#1}{#2}} - -%D Here is variant using a brainwave of the 12\high{+} hour \quotation {Long Road -%D Out of Eden}\footnote {Eden being Backo\TeX\ 2018, where the virtues of the \type -%D {\expanded} primitive were mentioned in talks.} trip. For now I don't really see -%D other useful applications. - -\permanent\def\expandeddoifelse#1#2{\iftok{#1}{#2}\expandafter\firstoftwoarguments\else\expandafter\secondoftwoarguments\fi} -\permanent\def\expandeddoif #1#2{\iftok{#1}{#2}\expandafter\firstofoneargument \else\expandafter\gobbleoneargument \fi} -\permanent\def\expandeddoifnot #1#2{\iftok{#1}{#2}\expandafter\gobbleoneargument \else\expandafter\firstofoneargument \fi} - -% \testfeatureonce{100000}{\doifelse{hello world}{here i am}{}} % 0.3 -% \testfeatureonce{100000}{\expandabledoifelse{hello world}{here i am}{}} % 1.5 - -\permanent\def\expdoifelsecommon#1#2{\clf_doifelsecommon{#1}{#2}} -\permanent\def\expdoifelseinset #1#2{\clf_doifelseinset {#1}{#2}} - -\aliased\let\expdoifcommonelse\expdoifelsecommon -\aliased\let\expdoifinsetelse \expdoifelseinset - -%D We define these here, just in case. This permits \typefile {self} otherwise -%D nested b|/|e sep problems. - -\immutable\def\luastringsep{===} - -\immutable\edef\!!bs{[\luastringsep[} -\immutable\edef\!!es{]\luastringsep]} - -\permanent\overloaded\protected\def\writestatus#1#2{\clf_writestatus{#1}{#2}} - -%D We can omit the tex.ctxcatcodes here as nowadays we seldom change the regime at -%D the \TEX\ end: - -%def\luaexpr#1{\ctxlua{context (tostring(#1))}} % more efficient: -\permanent\def\luaexpr#1{\ctxlua{tex.print(tostring(#1))}} % no use is shortcutting has to be compiled - -%D But as we only use write 16 we could as well do all in \LUA\ and ignore the rest. -%D Okay, we still can do writes here but only when not blocked. - -\aliased\let\syst_write_execute\clf_execute % always {...} - -%D There is a probably rather useless \type {\expression} command that can mix \LUA\ numeric -%D expressions with \TEX\ commands (for as far that makes sense) that works like this: -%D -%D \starttyping -%D \mathchardef\foooo 1234 -%D \def \mymacro {123.45} -%D \scratchdimen 123pt -%D \scratchskip 123pt -%D \scratchtoks {34} -%D -%D \testfeatureonce{10000}{\edef\foo{\expression -%D round( -%D 12.3 * \scratchdimen -%D - (12.3 * \scratchskip) / 2 -%D + 2 ^ 3 -%D * ( -%D - sqrt(12) -%D - 10pt -%D - \foooo -%D + \luatexversion -%D - \mymacro -%D + \scratchtoks -%D + \the\scratchcounter -%D + \number\scratchcounter -%D ) -%D ) -%D \relax}} -%D -%D \expression string.format("\letterpercent f",\elapsedtime/50000) \relax -%D \stoptyping -%D -%D The final \type {\relax} is mandate because we also accept spaces. Of course we -%D could have avoided it by using outer parenthesis but this is cleaner anyway. -%D -%D The \LMTX\ version supports te \type {xmath} and \type {xcomplex} functions and -%D therefore one can have expressions that don't work in \MKIV. - -% maybe: \let\texexpr\expression - -\protect \endinput |