summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/m-level.mkii
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-22 22:14:39 +0000
committerKarl Berry <karl@freefriends.org>2016-04-22 22:14:39 +0000
commitfc4466b32ed330a956ac603b00fd145524cff49a (patch)
tree2c50e2b8de13aa9233b2c76dffe201558f169e86 /Master/texmf-dist/tex/context/base/m-level.mkii
parent50e2368597d5f6fe2057195d0ae6a9f2044923e4 (diff)
context (22apr16)
git-svn-id: svn://tug.org/texlive/trunk@40691 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/m-level.mkii')
-rw-r--r--Master/texmf-dist/tex/context/base/m-level.mkii94
1 files changed, 0 insertions, 94 deletions
diff --git a/Master/texmf-dist/tex/context/base/m-level.mkii b/Master/texmf-dist/tex/context/base/m-level.mkii
deleted file mode 100644
index d758288d7ef..00000000000
--- a/Master/texmf-dist/tex/context/base/m-level.mkii
+++ /dev/null
@@ -1,94 +0,0 @@
-%D \module
-%D [ file=level,
-%D version=2002.10.20,
-%D title=\CONTEXT\ Extra Modules,
-%D subtitle=Catching Nesting Errors,
-%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.
-
-\unprotect
-
-\newcount\currentnesting
-
-\def\startnesting#1%
- {\global\advance\currentnesting\plusone
- \setxvalue{level::\number\currentnesting}{#1}}
-
-\def\stopnesting#1%
- {\edef\nestingstring{#1}%
- \relax\ifnum\currentnesting>\zerocount
- \doifelsevalue{level::\number\currentnesting}\nestingstring
- {\global\advance\currentnesting\minusone}
- {\@EA\reportnestingerror\@EA\stoptext}
- \else
- \@EA\reportnestingerror\@EA\stoptext
- \fi}
-
-\def\checknesting
- {\relax\ifnum\currentnesting>\zerocount
- \def\nestingstring{end of document}%
- \@EA\reportnestingerror
- \fi}
-
-\def\reportnestingerror
- {\endgraf
- \global\let\checknesting\relax
- \bgroup \definedfont[Mono at 18pt]\incolortrue
- \setupinterlinespace
- \raggedright
- \bgroup \red
- \ifnum\currentnesting>\plusone
- wrong end level
- \else
- too many end levels
- \fi
- at \nestingstring\space in line \number\inputlineno
- \ifnum\currentnesting>\zerocount, stack:\fi\endgraf
- \egroup
- \dostepwiserecurse\currentnesting\plusone\minusone
- {\space\getvalue{level::\recurselevel}}
- \endgraf
- \egroup
- \writestatus\m!systems{quitting due to level error}\wait
- \batchmode}
-
-\prependtoks
- \checknesting
-\to \everystoptext
-
-\protect \doifnotmode{demo}{\endinput}
-
-\starttext
-
-% \startnesting{eerste}
-% \startnesting{tweede}
-% \startnesting{derde}
-% \startnesting{vierde}
-% test
-% \stopnesting{vierde}
-% \stopnesting{eerste}
-
-% \startnesting{eerste}
-% \startnesting{tweede}
-% test
-% \stopnesting{vierde}
-% \stopnesting{derde}
-% \stopnesting{tweede}
-% \stopnesting{eerste}
-
-\startnesting{eerste}
- \startnesting{tweede}
- \startnesting{derde}
- \startnesting{vierde}
- test
- \stopnesting{vierde}
- \stopnesting{derde}
- \stopnesting{tweede}
-\stopnesting{eerste}
-
-\stoptext