summaryrefslogtreecommitdiff
path: root/tex/context
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context')
-rw-r--r--tex/context/third/enigma/t-enigma.mkvi105
1 files changed, 105 insertions, 0 deletions
diff --git a/tex/context/third/enigma/t-enigma.mkvi b/tex/context/third/enigma/t-enigma.mkvi
new file mode 100644
index 0000000..49ebc54
--- /dev/null
+++ b/tex/context/third/enigma/t-enigma.mkvi
@@ -0,0 +1,105 @@
+%D \module
+%D [ file=t-enigma,
+%D version=2012-02-21 10:59:43+0100,
+%D title=\CONTEXT\ User Module,
+%D subtitle=Enigma,
+%D author=Philipp Gesang,
+%D date=\currentdate,
+%D copyright=Philipp Gesang,
+%D license=2-clause BSD,
+%D email={gesang at stud dot uni-heidelberg dot de}]
+%D This module is licensed under the conditions of the BSD license with
+%D two clauses. There is a copy in a file named "COPYING" in the
+%D t-enigma source tree.
+
+\unprotect
+
+\writestatus{loading} {ConTeXt module / Enigma Document Encryption}
+
+\startinterface all
+ \setinterfacevariable {enigma} {enigma}
+\stopinterface
+
+\definenamespace [\v!enigma] [
+ \v!command=\v!no,
+ comment=Enigma Document Encryption,
+ \s!name=\v!enigma,
+ \s!parent=\v!enigma,
+ % setup=\v!list,
+ setup=\v!no,
+ style=\v!no,
+ type=module,
+ version=hg-tip,
+]
+
+%D Loading the \LUA\ conversion routines.
+
+\startluacode
+thirddata = thirddata or { }
+\stopluacode
+\registerctxluafile{enigma}
+
+%D \startsection[title=setups]
+%D The main setup. The \texmacro{defineenigma} macro does not adhere to
+%D the reommended practis of automatical macro derivation. Rather, we
+%D have our own parser do the job of setting globals. This is a
+%D consequence of the intention to offer the same behavior in any of the
+%D three main formats, \PLAIN, \CONTEXT and \LATEX. Hence, we don’t rely
+%D on the internal mechanisms but implement our own macro generator.
+
+\def\do_define_enigma#id{%
+ \expandafter\gdef\csname start\enigmaid\endcsname{%
+ \bgroup
+ \ctxlua{
+ if thirddata.enigma.machines["#id"] then
+ local callback = thirddata.enigma.callbacks["#id"],
+ nodes.tasks.enableaction("processors", "thirddata.enigma.callbacks.#id")
+ else
+ print([[ENIGMA: No machine of that name: #id!]])
+ end
+ }%
+ }%
+ %
+ \expandafter\gdef\csname stop\enigmaid\endcsname{%
+ \ctxlua{
+ nodes.tasks.disableaction("processors", "thirddata.enigma.callbacks.#id")
+ thirddata.enigma.machines["#id"]:processed_chars()
+ }%
+ \egroup%
+ }%
+}
+
+\def\defineenigma#id{%
+ \begingroup
+ \edef\enigmaid{#id}%
+ \expandafter\do_define_enigma\expandafter{\enigmaid}%
+ \endgroup%
+}
+
+%D \stopsection
+
+\def\do_setup_enigma#args{%
+ \ctxlua{
+ local enigma = thirddata.enigma
+ local current_args = enigma.parse_args([====[\detokenize{#args}]====])
+ enigma.new_callback(
+ enigma.new_machine(current_args,
+ [====[\currentenigmaid]====]),
+ [====[\currentenigmaid]====])
+ }%
+ \popcatcodetable
+ \egroup%
+}
+
+%D The module setup \texmacro{setupenigma} expects key=value, notation.
+%D All the logic is at the Lua end, not much to see here …
+\def\setupenigma#id{%
+ \bgroup
+ \edef\currentenigmaid{#id}
+ \pushcatcodetable
+ \catcodetable \txtcatcodes
+ \do_setup_enigma%
+}
+
+\protect
+% vim:ft=context:sw=2:ts=2:tw=72