diff options
Diffstat (limited to 'tex/context')
| -rw-r--r-- | tex/context/third/enigma/enigma.lua | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/tex/context/third/enigma/enigma.lua b/tex/context/third/enigma/enigma.lua index cffbb2c..7eec8bc 100644 --- a/tex/context/third/enigma/enigma.lua +++ b/tex/context/third/enigma/enigma.lua @@ -24,7 +24,7 @@ Exported functionality will be collected in the table local enigma = { machines = { }, callbacks = { } } local format_is_context_p = false ---[[ichd +--[[ichd-- \startparagraph Afaict, \LATEX\ for \LUATEX\ still lacks a globally accepted namespacing convention. This is more than bad, but we’ll have to cope with that. For @@ -44,7 +44,7 @@ elseif thirddata then -- context else -- external call, mtx-script or whatever _G.enigma = enigma end ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- @@ -95,7 +95,7 @@ local utfcharacters = string.utfcharacters local glyph_node = nodeid"glyph" local glue_node = nodeid"glue" ---[[ichd +--[[ichd-- \startparagraph The initialization of the module relies heavily on parsers generated by \type{LPEG}. @@ -114,7 +114,7 @@ local P, R, S, V, lpegmatch --local B = lpeg.version() == "0.10" and lpeg.B or nil ---[[ichd +--[[ichd-- \startparagraph By default the output to \type{stdout} will be zero. The verbosity level can be adjusted in order to alleviate debugging. @@ -123,7 +123,7 @@ can be adjusted in order to alleviate debugging. local verbose_level = 42 --local verbose_level = 0 ---[[ichd +--[[ichd-- \startparagraph Historically, Enigma-encoded messages were restricted to a size of 250 characters. With sufficient verbosity we will indicate whether this @@ -131,7 +131,7 @@ limit has been exceeded during the \TEX\ run. \stopparagraph --ichd]]-- local max_msg_length = 250 ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- @@ -231,11 +231,11 @@ mnemonic. end end ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- ---[[ichd +--[[ichd-- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \startdocsection[title=Pretty printing for debug purposes] %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -433,7 +433,7 @@ do .. pprint_textblock(output) end ---[[ichd +--[[ichd-- \startparagraph Main stdout verbosity wrapper function. Checks if the global verbosity setting exceeds the specified threshold, and only then pushes the @@ -450,11 +450,11 @@ end local new do ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- ---[[ichd +--[[ichd-- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \startdocsection[title=Rotation] %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -501,11 +501,11 @@ has been reached and covers the corner case \emph{double stepping}. end machine.rotors = { rc, rb, ra } end ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- ---[[ichd +--[[ichd-- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \startdocsection[title=Input Preprocessing] %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -574,11 +574,11 @@ ten. ["9"] = "neun", } ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- ---[[ichd +--[[ichd-- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \startdocsection[ title={Main function chain to be applied to single characters}, @@ -624,7 +624,7 @@ substitution is applied. return result end ---[[ichd +--[[ichd-- \startparagraph Behind the plugboard, every character undergoes seven substitutions: two for each rotor plus the central one through the reflector. The function @@ -651,7 +651,7 @@ something goes wrong. return steps[7] end ---[[ichd +--[[ichd-- \startparagraph Before an input character is passed on to the actual encoding routing, the function \luafunction{encode_char} matches it agains the latin @@ -716,7 +716,7 @@ local variable, \identifier{pb_char}. end end ---[[ichd +--[[ichd-- \startparagraph As the actual encoding proceeds character-wise, the processing of entire strings needs to be managed externally. This is where @@ -738,7 +738,7 @@ extraction of successive characters from the sequence. -- end -- return tableconcat(result) --end ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- @@ -841,7 +841,7 @@ extraction of successive characters from the sequence. } ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- @@ -1044,7 +1044,7 @@ consists of three elements: return machine end end ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- @@ -1105,7 +1105,7 @@ local p_args = P{ } ---[[ichd +--[[ichd-- \startparagraph In the next step we process the arguments, check the input for sanity etc. The function \luafunction{parse_args} will test whether a value has @@ -1165,11 +1165,11 @@ do end end ---[[ichd +--[[ichd-- \stopdocsection --ichd]]-- ---[[ichd +--[[ichd-- \startdocsection[title=Callback] \startparagraph This is the interface to \TEX. We generate a new callback handler for @@ -1244,9 +1244,6 @@ enigma.new_machine = function (args, name) return machine end --stub ---[[ichd -\stopdocsection ---ichd]]-- ------------------------------------------------------------------------ --local teststring = [[B I IV III 16 26 08 AD CN ET FL GI JV KZ PU QY WX]] @@ -1258,5 +1255,8 @@ end --stub --local teststring = [[B I IV III 16 26 08]] --local teststring = [[B I IV III 01 01 02]] +--[[ichd-- +\stopdocsection +--ichd]]-- -- vim:ft=lua:sw=2:ts=2:tw=72 |