minor fixes; [doc] example of two-pass filter

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)
     }%
 }