summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/modules/mkiv/s-present-steps.mkiv
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/modules/mkiv/s-present-steps.mkiv')
-rw-r--r--Master/texmf-dist/tex/context/modules/mkiv/s-present-steps.mkiv177
1 files changed, 0 insertions, 177 deletions
diff --git a/Master/texmf-dist/tex/context/modules/mkiv/s-present-steps.mkiv b/Master/texmf-dist/tex/context/modules/mkiv/s-present-steps.mkiv
deleted file mode 100644
index 432650a5ed9..00000000000
--- a/Master/texmf-dist/tex/context/modules/mkiv/s-present-steps.mkiv
+++ /dev/null
@@ -1,177 +0,0 @@
-%D \module
-%D [ file=s-present-steps,
-%D version=2018.05.17,
-%D title=\CONTEXT\ Style File,
-%D subtitle=Presentation Environment Repeated Steps,
-%D author=Hans Hagen,
-%D date=\currentdate,
-%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
-%C
-%C This module is part of the \CONTEXT\ macro||package and is
-%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
-%C details.
-
-%D This a preliminary module, a quick hack and not entirely proper \CONTEXT, but
-%D let's see what more is needed.
-
-\startmodule[present-steps]
-
-\startluacode
-
-moduledata.steps = moduledata.steps or { }
-
-local steps = moduledata.steps
-local data = { }
-local name = "unknown"
-local set = 0
-local settings = nil
-
-function steps.startsteps(buffername)
- set = set + 1
- data = { }
- name = buffername
-end
-
-function steps.stopsteps()
- local n = 0
- for i=1,#data do
- local state = "once"
- local done = 0
- while true do
- context.startprocessingsteps()
- for j=1,i do
- local step = data[j]
- local nested = step.nested
- local content = step.content
- local last = (i == #data) and (j == i) and 1 or 0
- local option = step.option
- local flush = true
- if option == interfaces.variables["title"] then
- if i > 1 then
- flush = false
- end
- elseif option == interfaces.variables["repeat"] then
- if i == 1 then
- flush = false
- end
- end
- if flush then
- if j < i or nested == 0 then
- context(function()
- buffers.assign("step",content)
- context.processstep("step",i,0,last)
- -- context.writestatus("step a",string.formatters["%i %i %i"](i,0,last))
- end)
- state = "done"
- else
- done = done + 1
- local d = done
- context(function()
- buffers.assign("step",content)
- context.processstep("step",i,d,last)
- -- context.writestatus("step b",string.formatters["%i %i %i"](i,d,last))
- end)
- if done == nested then
- state = "done"
- n = n + nested
- else
- state = "busy"
- end
- end
- end
- end
- context.stopprocessingsteps()
- if state == "done" then
- break
- end
- end
- end
-end
-
-function steps.startstep(str)
- settings = utilities.parsers.settings_to_hash(str)
-end
-
-function steps.stopstep()
- settings.content = buffers.getcontent(name)
- settings.nested = tonumber(settings.n) or 0
- data[#data+1] = settings
-end
-
-function steps.startsubstep(str)
- local d = data[#data]
- d.nested = d.nested + 1
-end
-
-function steps.stopsubstep()
-end
-
-\stopluacode
-
-\definebuffer
- [step]
-
-\def\currentstep {0}
-\def\currentsubstep{0}
-
-\unexpanded\def\startprocessingsteps
- {\global\wantedsubstep\zerocount}
-
-\unexpanded\def\stopprocessingsteps
- {}
-
-\unexpanded\def\processstep#1#2#3#4%
- {\par
- \edef\currentstep {#2}%
- \edef\currentsubstep{#3}%
- \ifcase#4\relax
- \setupreferencing[prefix=#2:#3]
- \getbuffer[#1]%
- \par
- \else
- \setupreferencing[prefix=]
- \getbuffer[#1]%
- \page
- \fi}
-
-\let\normalstartstep\startstep
-
-\newcount\wantedsubstep
-
-\unexpanded\def\startsteps
- {\ctxlua{moduledata.steps.startsteps("\thedefinedbuffer{step}")}}
-
-\unexpanded\def\stopsteps
- {\ctxlua{moduledata.steps.stopsteps()}}
-
-\unexpanded\def\startstep
- {\dosingleempty\startstepindeed}
-
-\def\startstepindeed[#1]%
- {\ctxlua{moduledata.steps.startstep("#1")}%
- \normalstartstep}
-
-\unexpanded\def\stopstep
- {\ctxlua{moduledata.steps.stopstep()}}
-
-\let\stopsubstep\relax
-
-\unexpanded\def\startsubstep#1\stopsubstep
- {\ctxlua{moduledata.steps.startsubstep()}%
- \ifcase\currentsubstep\relax
- #1%
- \else
- \global\advance\wantedsubstep\plusone
- \ifnum\currentsubstep>\wantedsubstep\else
- #1%
- \fi
- \fi
- \ctxlua{moduledata.steps.stopsubstep()}}
-
-\stopmodule
-
-\continueifinputfile{s-present-steps.mkiv}
-
-\usemodule[present-common]
-
-\inputpresentationfile{examples/present-steps-001.tex}