stable 2010-05-24 13:10

1 files changed, 151 insertions, 0 deletions

diff --git a/tex/context/base/strc-num.mkii b/tex/context/base/strc-num.mkii
new file mode 100644
index 000000000..28f69b441
--- /dev/null
+++ b/tex/context/base/strc-num.mkii
@@ -0,0 +1,151 @@
+%D \module
+%D   [       file=strc-num,
+%D        version=1997.03.31,
+%D          title=\CONTEXT\ Structure Macros,
+%D       subtitle=Numbering,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\writestatus{loading}{ConTeXt Structure Macros / Numbering}
+
+\unprotect
+
+%  Commando's ten behoeve van nummeren:
+%
+%    \definenumber[name]
+%    \setupnumber[name][wijze=,blok=,tekst=,plaats=,conversie=,start=]
+%    \setnumber[name]{value}
+%    \resetnumber[name]
+%    \incrementnumber[name]
+%    \decrementnumber[name]
+%    \convertednumber[name] % getnumber
+%    \savenumber[name]
+%    \restorenumber[name]
+%    \convertednumber[name]
+%    \rawnumber[name]
+
+% private (defined in core-des.tex)
+%
+%    \nextnumber[name][tag][reference]
+%    \currentnumber[name]
+
+\def\@@thenumber#1{\s!number\csname\s!number#1\c!number\endcsname}
+
+% this will be the new (public) one: \let\numberparameterprefix\@@thenumber
+
+\def\numberparameter#1#2{\csname\@@thenumber{#1}#2\endcsname} % sort of public
+
+\def\dosetupnumber[#1][#2]%
+  {\@EA\let\@EA\savedstartnumber\csname\@@thenumber{#1}\c!start\endcsname
+   \getparameters[\@@thenumber{#1}][\c!start=,#2]%
+   \doifelsenothing{\numberparameter{#1}\c!start}
+     {\letvalue{\@@thenumber{#1}\c!start}\savedstartnumber}
+     {\setcounter{\@@thenumber{#1}}{\numberparameter{#1}\c!start}}}
+
+\def\setupnumber
+  {\dodoubleargument\dosetupnumber}
+
+\def\definenumber
+  {\dodoubleempty\dodefinenumber}
+
+\def\dodefinenumber[#1][#2]% ook overal class als localframed
+  {\doifassignmentelse{#2}
+     {\dododefinenumber[#1][#2]}
+     {\doifelsenothing{#2} % can break on not yet defined macros in #2
+        {\dododefinenumber[#1][#2]}
+        {\setvalue{\s!number#1\c!number}{#2}}}}
+
+\def\dododefinenumber[#1][#2]%
+  {\getparameters
+     [\s!number#1]
+     [\c!number=#1,
+      \s!check=,
+      \c!way=\@@nrway,
+      \c!way\c!local=\numberparameter{#1}\c!way,
+      \c!sectionnumber=\v!yes,
+      \c!text=,     % no longer used here, will go away
+      \c!location=, % no longer used here, will go away (was ooit \c!zetwijze)
+      \c!conversion=\v!numbers,
+      \c!start=0,
+      \c!state=\v!start,
+      #2]%
+    \makecounter{\@@thenumber{#1}}%
+    \setxvalue{\@@thenumber{#1}\c!n}{\countervalue{\@@thenumber{#1}}}%
+    \setcounter{\@@thenumber{#1}}{\numberparameter{#1}\c!start}}
+
+\def\setnumber[#1]#2%
+  {\setcounter{\@@thenumber{#1}}{#2}}
+
+\def\resetnumber[#1]%
+  {\setcounter{\@@thenumber{#1}}{0\numberparameter{#1}\c!start}}
+
+\def\savenumber[#1]%
+  {\savecounter{\@@thenumber{#1}}}
+
+\def\restorenumber[#1]%
+  {\restorecounter{\@@thenumber{#1}}}
+
+%D Bonus macro (we need to keep this one for downward
+%D compatibility reasons).
+
+\def\doreset[#1]%
+  {\processcommalist[#1]\dodoreset}
+
+\def\dodoreset#1%
+  {\getvalue{\s!reset#1}}%
+
+\def\reset
+  {\dosingleargument\doreset}
+
+\def\incrementnumber[#1]% bypage tricky: needs a
+  {\doifelse{\numberparameter{#1}\c!way}{\v!by\v!page}
+     {\checkpagechange{#1}%
+      \ifpagechanged\resetcounter{\@@thenumber{#1}}\fi}
+     {\checknumber[#1]}%
+   \doifelse\@@nrstate\v!start % only here
+     {\doif{\numberparameter{#1}\c!state}\v!start{\pluscounter{\@@thenumber{#1}}}}
+     {\setcounter{\@@thenumber{#1}}{0\numberparameter{#1}\c!start}}}
+
+% \defineenumeration [test] [way=bypage,text=\lastchangedpage]
+%
+% \starttext \dorecurse{10}{\test \input tufte \par} \stoptext
+
+\def\decrementnumber[#1]%
+  {\minuscounter{\@@thenumber{#1}}}
+
+\def\convertednumber[#1]%
+  {\convertnumber
+     {\numberparameter{#1}\c!conversion}
+     {\countervalue{\@@thenumber{#1}}}}
+
+\def\rawnumber[#1]%
+  {\countervalue{\@@thenumber{#1}}}
+
+\def\accumulatednumber[#1]%
+  {\getvalue{\@@thenumber{#1}\c!n}}
+
+\let\getnumber\convertednumber
+
+\def\doifdefinednumber    #1{\doifdefined    {\csname\s!number#1\c!number\endcsname}}
+\def\doifundefinednumber  #1{\doifundefined  {\csname\s!number#1\c!number\endcsname}}
+\def\doifdefinednumberelse#1{\doifdefinedelse{\csname\s!number#1\c!number\endcsname}}
+
+\ifx\checknumber\undefined \def\checknumber[#1]{} \fi
+
+% ook de pag nummers hierheen halen ivm \@@nrwijze
+
+\def\setupnumbering
+  {\dodoubleempty\getparameters[\??nr]}
+
+\setupnumbering
+  [\c!way=\v!by\v!chapter,
+   \c!blockway=,
+   \c!sectionnumber=\v!yes,
+   \c!state=\v!start]
+
+\protect \endinput