summaryrefslogtreecommitdiff
path: root/tex/context/base/strc-sec.mkii
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/strc-sec.mkii')
-rw-r--r--tex/context/base/strc-sec.mkii19
1 files changed, 19 insertions, 0 deletions
diff --git a/tex/context/base/strc-sec.mkii b/tex/context/base/strc-sec.mkii
index ef85d1e7a..0698ef93c 100644
--- a/tex/context/base/strc-sec.mkii
+++ b/tex/context/base/strc-sec.mkii
@@ -1325,6 +1325,25 @@
\let\fullsectionnumber\limitedfullsectionnumber
+% from cont-new:
+
+\def\expandifnonempty#1%
+ {\@EA\ifx\csname#1\endcsname\empty
+ \expandafter\secondoftwoarguments
+ \else
+ \expandafter\firstoftwoarguments
+ \fi
+ {\csname#1\endcsname}}
+
+\def\@@sectiekoppeling#1%
+ {\expandifnonempty{\??ko#1\c!coupling}{#1}}
+
+\def\@@sectiesectie#1%
+ {\expandifnonempty{\??ko#1\c!section}{\@@sectiekoppeling{#1}}}
+
+\def\sectioncountervalue#1%
+ {\@@sectionvalue{\@@sectiesectie{#1}}}
+
% \dodododoconstructhead IS NON GROUPED, SO WE NEED TO RESTORE !!!!
%
% dit kan dus beter \everyaroundhead zijn