diff options
author | Marius <mariausol@gmail.com> | 2011-01-31 00:28:38 +0200 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2011-01-31 00:28:38 +0200 |
commit | a894f2e8c02c29b8ddeec3094acc1859ab34f864 (patch) | |
tree | 9469b3f59ac3b5a394712f4bbfcdb648bda35f4a /tex/context/base/m-level.tex | |
parent | 89fb25d071d8742dfade2dc98a4f81e718030798 (diff) | |
download | context-a894f2e8c02c29b8ddeec3094acc1859ab34f864.tar.gz |
beta 2011.01.24 10:00
Diffstat (limited to 'tex/context/base/m-level.tex')
-rw-r--r-- | tex/context/base/m-level.tex | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/tex/context/base/m-level.tex b/tex/context/base/m-level.tex deleted file mode 100644 index 67d598733..000000000 --- a/tex/context/base/m-level.tex +++ /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] -%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 |