diff options
Diffstat (limited to 'tex')
| -rw-r--r-- | tex/context/third/enigma/enigma.lua | 7 | ||||
| -rw-r--r-- | tex/plain/enigma/enigma.tex | 7 |
2 files changed, 10 insertions, 4 deletions
diff --git a/tex/context/third/enigma/enigma.lua b/tex/context/third/enigma/enigma.lua index 521c4b7..a34e669 100644 --- a/tex/context/third/enigma/enigma.lua +++ b/tex/context/third/enigma/enigma.lua @@ -93,6 +93,10 @@ local utf8len = unicode.utf8.len local utf8sub = unicode.utf8.sub local utfcharacters = string.utfcharacters +--- debugging tool (careful, this *will* break context!) +--dofile(kpse.find_file("lualibs-table.lua")) -- archaic version :( +--table.print = function (...) print(table.serialize(...)) end + local tablecopy if format_is_context_p then tablecopy = table.copy @@ -1404,7 +1408,8 @@ on. --ichd]]-- local new_machine = function (_, name) local args = configurations[name] - verbose_level = args.verbose or verbose_level + --table.print(configurations) + verbose_level = args and args.verbose or verbose_level local machine = new(name, args) return machine end diff --git a/tex/plain/enigma/enigma.tex b/tex/plain/enigma/enigma.tex index 7c0981e..9f06856 100644 --- a/tex/plain/enigma/enigma.tex +++ b/tex/plain/enigma/enigma.tex @@ -43,9 +43,10 @@ \directlua{ local enigma = packagedata.enigma local current_args = enigma.parse_args([====[\detokenize{#1}]====]) + enigma.save_raw_args(current_args, [====[\current_enigma_id]====]) enigma.new_callback(enigma.new_machine(current_args, - [====[\currentenigmaid]====]), - [====[\currentenigmaid]====]) + [====[\current_enigma_id]====]), + [====[\current_enigma_id]====]) }% \egroup% } @@ -54,7 +55,7 @@ %D All the logic is at the Lua end, not much to see here … \def\setupenigma#1{% \bgroup - \edef\currentenigmaid{#1} + \edef\current_enigma_id{#1} \luatexcatcodetable \enigmasetupcatcodes \do_setup_enigma% } |