summaryrefslogtreecommitdiff
path: root/tex/context
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context')
-rw-r--r--tex/context/third/enigma/enigma.lua4
-rw-r--r--tex/context/third/enigma/t-enigma.mkvi8
2 files changed, 7 insertions, 5 deletions
diff --git a/tex/context/third/enigma/enigma.lua b/tex/context/third/enigma/enigma.lua
index f6881f6..79aadc6 100644
--- a/tex/context/third/enigma/enigma.lua
+++ b/tex/context/third/enigma/enigma.lua
@@ -578,6 +578,7 @@ ten.
["\n"] = "",
["\t"] = "",
["\v"] = "",
+ ["\\"] = "",
-- Numbers are resolved.
["0"] = "null",
["1"] = "eins",
@@ -755,6 +756,7 @@ extraction of successive characters from the sequence.
result[#result+1] = tmp
end
end
+ print(str)
machine:processed_chars()
return tableconcat(result)
end
@@ -981,6 +983,7 @@ consists of three elements:
local decode_char = encode_char -- hooray for involutory ciphers
local encode_general = function (machine, chr)
+ local chr = stringlower(chr)
local replacement = pp_substitutions[chr] or valid_char_p[chr] and chr
if not replacement then return false end
@@ -1215,7 +1218,6 @@ local new_callback = function (machine, name)
enigma.machines [name] = machine
local format_is_context_p = format_is_context_p
local cbk = function (a, _, c)
- print(name, "<<<<<<<<<<<<<<<<<<<")
local head = format_is_context_p and c or a
for n in nodetraverse(head) do
--print(node, node.id)
diff --git a/tex/context/third/enigma/t-enigma.mkvi b/tex/context/third/enigma/t-enigma.mkvi
index f6f9db7..0d2d9bf 100644
--- a/tex/context/third/enigma/t-enigma.mkvi
+++ b/tex/context/third/enigma/t-enigma.mkvi
@@ -111,12 +111,12 @@ thirddata = thirddata or { }
\ctxlua{
local enigma = thirddata.enigma
local current_args =
- enigma.parse_args([====[\detokenize{#args}]====])
- enigma.save_raw_args(current_args, [====[\currentenigmaid]====])
+ enigma.parse_args(\!!bs\detokenize{#args}\!!es)
+ enigma.save_raw_args(current_args, \!!bs\currentenigmaid\!!es)
enigma.new_callback(
enigma.new_machine(current_args,
- [====[\currentenigmaid]====]),
- [====[\currentenigmaid]====])
+ \!!bs\currentenigmaid\!!es),
+ \!!bs\currentenigmaid\!!es)
}%
}