diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-22 22:14:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-22 22:14:39 +0000 |
commit | fc4466b32ed330a956ac603b00fd145524cff49a (patch) | |
tree | 2c50e2b8de13aa9233b2c76dffe201558f169e86 /Master/texmf-dist/tex/context/base/m-level.mkii | |
parent | 50e2368597d5f6fe2057195d0ae6a9f2044923e4 (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.mkii | 94 |
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 |