From 2ad1a2fae027aa6c1f4c1259574b5aa506f833a8 Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Fri, 24 Feb 2012 16:56:17 +0100 Subject: minor fixes; [doc] example of two-pass filter --- tex/context/third/enigma/enigma.lua | 4 +++- tex/context/third/enigma/t-enigma.mkvi | 8 ++++---- 2 files changed, 7 insertions(+), 5 deletions(-) (limited to 'tex/context/third') 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) }% } -- cgit v1.2.3