%D \module
%D   [       file=strc-num,
%D        version=2008.10.20,
%D          title=\CONTEXT\ Structure Macros,
%D       subtitle=Basic Numbering,
%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.

\writestatus{loading}{ConTeXt Structure Macros / Basic Numbering}

\registerctxluafile{strc-num}{1.001}

\unprotect

% we need to rework this, i.e. clone like itm, des etc with \s!parent

% numbering

% \definestructurecounter[name]
% \setupstructurecounter[name][wijze=,blok=,tekst=,plaats=,conversie=,start=]
% \setstructurecounter[name]{value}
% \resetstructurecounter[name]
% \incrementstructurecounter[name]
% \decrementstructurecounter[name]
% \savestructurecounter[name]
% \restorestructurecounter[name]
% \convertedstructurecounter[name] % depricated: \getstructurecounter[name]
% \rawstructurecounter[name]

% private (defined in core-sec.tex)
%
% \nextstructurecounter[name][tag][reference]
% \currentstructurecounter[name]

% todo: better inheritane system

\unexpanded\def\setupstructurecountering{\dodoubleempty\getparameters[\??nn]}

\setupstructurecountering
  [\c!way=\v!by\v!chapter,
%  \c!blockway=,
%  \c!prefixstarter=,
%  \c!prefixstopper=,
   \c!prefixconnector=.,
   \c!prefixsegments=\thenamedstructurecounterlevel\currentstructurecounter,
   \c!start=0,
   \c!prefix=\v!yes,
   \c!state=\v!start]

\setupstructurecountering
  [\c!prefixsegments=\autostructureprefixsegments\sharedstructurecounterparameter]

\def\autostructureprefixsegments#1% todo: \c!prefixsegments=\v!auto
  {2:\thenamedheadlevel{\ctxlua{structures.sections.way("#1\c!way","\v!by")}}}

\def\structurecounterparameter#1#2%
  {\csname
     \ifcsname\??nn#1#2\endcsname
       \??nn#1#2%
     \else\ifcsname\??nn\@@thestructurecounter{#1}#2\endcsname
       \??nn\@@thestructurecounter{#1}#2%
     \else\ifcsname\??nn#2\endcsname
       \??nn#2%
     \else
       \s!empty
     \fi\fi\fi
   \endcsname}

\def\@@thestructurecounter#1%
  {\ifcsname\??nn#1\c!number\endcsname
     \expandafter\@@thestructurecounter\csname\??nn#1\c!number\endcsname
   \else
     #1%
   \fi}

\def\sharedstructurecounterparameter#1%
  {\csname
     \ifcsname\??nn#1\endcsname
       \??nn#1%
     \else
       \s!empty
     \fi
   \endcsname}

\let\numberingparameter\sharedstructurecounterparameter

% \def\structurecounterparameter        #1#2{\csname\dostructurecounterparameter{\??nn#1}#2\endcsname}
% \def\dostructurecounterparameter      #1#2{\ifcsname#1#2\endcsname#1#2\else\expandafter\dostructurecounterparentparameter\csname#1\s!number\endcsname#2\fi}
% \def\dostructurecounterparentparameter#1#2{\ifx#1\relax\s!empty\else\dostructurecounterparameter#1#2\fi}

\unexpanded\def\definestructurecounter
  {\dodoubleempty\dodefinestructurecounter}

\def\dodefinestructurecounter[#1][#2]%
  {\doifassignmentelse{#2}
     {\dododefinestructurecounter[#1][#2]}
     {\doifelsenothing{#2}
        {\dododefinestructurecounter[#1][]}
        {\donodefinestructurecounter[#1][#2]}}}

\def\dododefinestructurecounter[#1][#2]%
  {\getparameters[\??nn#1][\s!counter=,#2]% counter is for internal purposes
   \ctxcommand{definestructurecounter {
      name    = "#1",
      start   = tonumber("\structurecounterparameter{#1}\c!start") or 0,
      counter = "\structurecounterparameter{#1}\s!counter",
      method  = "\structurecounterparameter{#1}\c!method",
   }}%
   \docheckstructurecountersetup{#1}}

\def\donodefinestructurecounter[#1][#2]% inherit
  {\getparameters[\??nn#1][\c!number=#2]%
   \docheckstructurecountersetup{#1}}

\unexpanded\def\setupstructurecounter
  {\dodoubleargument\dosetupstructurecounter}

\def\dosetupstructurecounter[#1][#2]%
  {\getparameters[\??nn#1][\c!start=,#2]%
   \docheckstructurecountersetup{#1}}

\def\structurecounterway#1% slow, we need to store it at the tex end
  {\ctxlua{structures.sections.way("\structurecounterparameter{#1}\c!way","\v!by")}}

\def\thenamedstructurecounterlevel#1%
  {\thenamedheadlevel{\structurecounterway{#1}}}

\def\docheckstructurecountersetup#1% does it have to happen here?
  {% this can be done at the lua end / a bit messy here ... todo ...
   \ifcsname\??nn#1\c!number\endcsname
        \doifelsevalue   {\??nn#1\c!number}{#1} {\letbeundefined{\??nn#1\c!number}}%
       {\doifvaluenothing{\??nn#1\c!number}     {\letbeundefined{\??nn#1\c!number}}}%
   \fi
   \ifcsname\??nn#1\c!number\endcsname
     % it's a clone
   \else
     \edef\currentstructurecounterlevel{\thenamedstructurecounterlevel{#1}}%
     \ctxlua{% will be a command (depends on sections)
        structures.counters.restart("#1",1,"\structurecounterparameter{#1}\c!start")
        structures.counters.setstate("#1","\structurecounterparameter{#1}\c!state")
        structures.counters.setlevel("#1",\currentstructurecounterlevel)
        structures.sections.setchecker("#1",\currentstructurecounterlevel,structures.counters.reset)
     }%
   \fi}

\unexpanded\def\doifstructurecounterelse#1{\ctxcommand{doifelsestructurecounter("\@@thestructurecounter{#1}")}}
\unexpanded\def\doifstructurecounter    #1{\ctxcommand{doifstructurecounter    ("\@@thestructurecounter{#1}")}}
\unexpanded\def\doifnotstructurecounter #1{\ctxcommand{doifnotstructurecounter ("\@@thestructurecounter{#1}")}}

\unexpanded\def\setstructurecounter      [#1]#2{\ctxcommand{setstructurecounter    ("\@@thestructurecounter{#1}",1,\number#2)}}
\unexpanded\def\setstructurecounterown   [#1]#2{\ctxcommand{setownstructurecounter ("\@@thestructurecounter{#1}",1,"#2")}}
\unexpanded\def\resetstructurecounter      [#1]{\ctxcommand{resetstructurecounter  ("\@@thestructurecounter{#1}",1)}}
\unexpanded\def\restartstructurecounter  [#1]#2{\ctxcommand{restartstructurecounter("\@@thestructurecounter{#1}",1,#2)}}
\unexpanded\def\savestructurecounter       [#1]{\ctxcommand{savestructurecounter   ("\@@thestructurecounter{#1}")}}
\unexpanded\def\restorestructurecounter    [#1]{\ctxcommand{restorestructurecounter("\@@thestructurecounter{#1}")}}
\unexpanded\def\incrementstructurecounter  [#1]{\ctxcommand{addstructurecounter    ("\@@thestructurecounter{#1}",1,1)}}
\unexpanded\def\decrementstructurecounter  [#1]{\ctxcommand{addstructurecounter    ("\@@thestructurecounter{#1}",1,-1)}}
           \def\rawstructurecounter        [#1]{\ctxcommand{structurecountervalue  ("\@@thestructurecounter{#1}",1)}}
           \def\laststructurecounter       [#1]{\ctxcommand{laststructurecounter   ("\@@thestructurecounter{#1}",1)}}
           \def\firststructurecounter      [#1]{\ctxcommand{firststructurecounter  ("\@@thestructurecounter{#1}",1)}}
           \def\nextstructurecounter       [#1]{\ctxcommand{nextstructurecounter   ("\@@thestructurecounter{#1}",1)}}
           \def\prevstructurecounter       [#1]{\ctxcommand{prevstructurecounter   ("\@@thestructurecounter{#1}",1)}}
           \def\structurecountersubs       [#1]{\ctxcommand{structurecounterssub   ("\@@thestructurecounter{#1}",1)}}
           \def\showstructurecounter       [#1]{\ctxcommand{tracestructurecounter  ("\@@thestructurecounter{#1}")}}

\unexpanded\def\incrementedstructurecounter[#1]{\ctxcommand{incrementedstructurecounter("\@@thestructurecounter{#1}",1, 1)}}
\unexpanded\def\decrementedstructurecounter[#1]{\ctxcommand{incrementedstructurecounter("\@@thestructurecounter{#1}",1,-1)}}

\unexpanded\def\setsubstructurecounter      {\dodoubleargument\dosetsubstructurecounter}
\unexpanded\def\setsubstructurecounterown   {\dodoubleargument\dosetsubstructurecounterown}
\unexpanded\def\resetsubstructurecounter    {\dodoubleargument\doresetsubstructurecounter}
\unexpanded\def\restartsubstructurecounter  {\dodoubleargument\dorestartsubstructurecounter}
\unexpanded\def\incrementsubstructurecounter{\dodoubleargument\doincrementsubstructurecounter}
\unexpanded\def\decrementsubstructurecounter{\dodoubleargument\dodecrementsubstructurecounter}
           \def\rawsubstructurecounter      {\dodoubleargument\dorawsubstructurecounter}

\def\dosetsubstructurecounter      [#1][#2]#3{\ctxcommand{setstructurecounter        ("\@@thestructurecounter{#1}",#2,\number#3)}}
\def\dosetsubstructurecounterown   [#1][#2]#3{\ctxcommand{setownstructurecounter     ("\@@thestructurecounter{#1}",#2,"#3")}}
\def\doresetsubstructurecounter      [#1][#2]{\ctxcommand{resetstructurecounter      ("\@@thestructurecounter{#1}",#2)}}
\def\dorestartsubstructurecounter  [#1][#2]#3{\ctxcommand{restartstructurecounter    ("\@@thestructurecounter{#1}",#2,#3)}}
\def\doincrementsubstructurecounter  [#1][#2]{\ctxcommand{incrementedstructurecounter("\@@thestructurecounter{#1}",#2,1)}}
\def\dodecrementsubstructurecounter  [#1][#2]{\ctxcommand{incrementedstructurecounter("\@@thestructurecounter{#1}",#2,-1)}}
\def\dorawsubstructurecounter        [#1][#2]{\ctxcommand{structurecountervalue      ("\@@thestructurecounter{#1}",#2)}}
\def\dolastsubstructurecounter       [#1][#2]{\ctxcommand{laststructurecounter       ("\@@thestructurecounter{#1}",#2)}}
\def\dofirstsubstructurecounter      [#1][#2]{\ctxcommand{firststructurecounter      ("\@@thestructurecounter{#1}",#2)}}
\def\dosubstructurecountersubs       [#1][#2]{\ctxcommand{structurecountersubs       ("\@@thestructurecounter{#1}",#2)}}

% The bypage check needs a multipass reference and therefore
% we only check for it when we increment and know that some
% content will be placed. We could also check for spreads.

% to be checked !

\def\docheckstructurecounterbypage#1% since we call lua to get the way we can as well do all in lua
  {\doif{\structurecounterway{#1}}\v!page{\checkpagechange{#1}\ifpagechanged\resetstructurecounter[#1]\fi}}

\unexpanded\def\incrementstructurecounter[#1]%
  {\docheckstructurecounterbypage{#1}%
   \ctxcommand{addstructurecounter("\@@thestructurecounter{#1}",1,1)}}

\def\doincrementsubstructurecounter[#1][#2]%
  {\docheckstructurecounterbypage{#1}%
   \ctxcommand{addstructurecounter("\@@thestructurecounter{#1}",#2,1)}}

\unexpanded\def\convertedstructurecounter
  {\dodoubleempty\doconvertedstructurecounter}

\def\doconvertedstructurecounter[#1][#2]%
  {\begingroup
   \ifsecondargument\getparameters[\??nn#1][#2]\fi
   \ctxlua{structures.sections.prefixedconverted(
     "\@@thestructurecounter{#1}",
     {
       prefix        = "\structurecounterparameter{#1}\c!prefix",
       separatorset  = "\structurecounterparameter{#1}\c!prefixseparatorset",
       conversion    = "\structurecounterparameter{#1}\c!prefixconversion",
       conversionset = "\structurecounterparameter{#1}\c!prefixconversionset",
       starter       = \!!bs\structurecounterparameter{#1}\c!prefixstarter\!!es,
       stopper       = \!!bs\structurecounterparameter{#1}\c!prefixstopper\!!es,
       set           = "\structurecounterparameter{#1}\c!prefixset",
       segments      = "\structurecounterparameter{#1}\c!prefixsegments",
       connector     = \!!bs\structurecounterparameter{#1}\c!prefixconnector\!!es,
     },
     {
       order         = "\structurecounterparameter{#1}\c!numberorder",
       separatorset  = "\structurecounterparameter{#1}\c!numberseparatorset",
       conversion    = \!!bs\structurecounterparameter{#1}\c!numberconversion\!!es,
       conversionset = "\structurecounterparameter{#1}\c!numberconversionset",
       starter       = \!!bs\structurecounterparameter{#1}\c!numberstarter\!!es,
       stopper       = \!!bs\structurecounterparameter{#1}\c!numberstopper\!!es,
       segments      = "\structurecounterparameter{#1}\c!numbersegments",
       type          = "\structurecounterparameter{#1}\c!type",
       criterium     = "\structurecounterparameter{#1}\c!criterium", % might change if we also want this with sectioning
     }
   )}%
   \endgroup}

\def\directconvertedstructurecounter#1#2% name, type
  {\ctxlua{structures.sections.prefixedconverted(
     "\@@thestructurecounter{#1}",
     {
       prefix        = "\structurecounterparameter{#1}\c!prefix",
       separatorset  = "\structurecounterparameter{#1}\c!prefixseparatorset",
       conversion    = "\structurecounterparameter{#1}\c!prefixconversion",
       conversionset = "\structurecounterparameter{#1}\c!prefixconversionset",
    %  starter       = \!!bs\structurecounterparameter{#1}\c!prefixstarter\!!es,
    %  stopper       = \!!bs\structurecounterparameter{#1}\c!prefixstopper\!!es,
       set           = "\structurecounterparameter{#1}\c!prefixset",
       segments      = "\structurecounterparameter{#1}\c!prefixsegments",
       connector     = \!!bs\structurecounterparameter{#1}\c!prefixconnector\!!es,
     },
     {
       order         = "\structurecounterparameter{#1}\c!numberorder",
       separatorset  = "\structurecounterparameter{#1}\c!numberseparatorset",
       conversion    = \!!bs\structurecounterparameter{#1}\c!numberconversion\!!es,
       conversionset = "\structurecounterparameter{#1}\c!numberconversionset",
       starter       = \!!bs\structurecounterparameter{#1}\c!numberstarter\!!es,
       stopper       = \!!bs\structurecounterparameter{#1}\c!numberstopper\!!es,
       segments      = "\structurecounterparameter{#1}\c!numbersegments",
       type          = "#2",
     }
   )}}

\unexpanded\def\convertedsubstructurecounter
  {\dotripleempty\doconvertedsubstructurecounter}

\def\doconvertedsubstructurecounter[#1][#2][#3]% #2 can be n or n:m
  {\ifsecondargument
     \doconvertedstructurecounter[#1][\c!numbersegments=#2,#3]%
   \else
     \secondargumentfalse\doconvertedstructurecounter[#1][]%
   \fi}

\let\getstructurecounter\convertedstructurecounter

\unexpanded\def\doifdefinedstructurecounter    #1{\doifdefined    {\csname\s!structurecounter#1\c!number\endcsname}}
\unexpanded\def\doifundefinedstructurecounter  #1{\doifundefined  {\csname\s!number#1\c!number\endcsname}}
\unexpanded\def\doifdefinedstructurecounterelse#1{\doifdefinedelse{\csname\s!number#1\c!number\endcsname}}

\ifx\checkstructurecounter\undefined \def\checkstructurecounter[#1]{} \fi

\def\checkstructurecounter[#1]{}

%D What follows is a compatibility layer. This will be phased out (at
%D least from core usage).

% \def\reset      {\dosingleargument\doreset}
% \def\doreset[#1]{\processcommalist[#1]\dodoreset}
% \def\dodoreset#1{\csname\s!reset#1\endcsname}%

\let \numberparameter       \structurecounterparameter % {name}\c!key

\let \definenumber          \definestructurecounter    % [name]
\let \setupnumber           \setupstructurecounter     % [name][setups]

\let \setnumber             \setstructurecounter       % [name]{value}
\let \resetnumber           \resetstructurecounter     % [name]
\let \savenumber            \savestructurecounter      % [name]
\let \restorenumber         \restorestructurecounter   % [name]
\let \incrementnumber       \incrementstructurecounter % [name]
\let \decrementnumber       \decrementstructurecounter % [name]
\let \rawnumber             \rawstructurecounter       % [name]
\let \getnumber             \getstructurecounter       % [name]
\let \convertednumber       \getstructurecounter       % [name]

\let \doifdefinednumber     \doifstructurecounter      % {number}{true}
\let \doifundefinednumber   \doifnotstructurecounter   % {number}{true}
\let \doifdefinednumberelse \doifstructurecounterelse  % {number}{true}{false}

\let \setupnumbering        \setupstructurecountering

% \unexpanded\def\resetnumber {\dosingleargument\doresetnumber}
% \def\doresetnumber      [#1]{\processcommalistwithparameters[#1]\resetstructurecounter}

% \def\accumulatednumber[#1]{}
%
% \unexpanded\def\setupnumbering
%   {\dodoubleempty\getparameters[\??nr]}
%
% \setupnumbering
%   [\c!way=\v!by\v!chapter,
%    \c!blockway=,
%    \c!state=\v!start]

%D Helpers:

% call:
%
% \dostructurecountercomponent
%   \currentfloat
%   \getfloatparameters \floatparameter \detokenizedfloatparameter
%   \hascaption \hastitle \hasnumber
%   [settings][userdata]
%
% sets:
%
% \laststructurecounternumber
% \laststructurecountersynchronize

\newconditional\hasstructurecountercaption
\newconditional\hasstructurecountertitle
\newconditional\hasstructurecounternumber

% \def\dostructurecountercomponent#1#2#3#4#5#6#7[#8][#9]%
%   {\begingroup
%    %
%    #2[\s!haslevel=1,#8]%
%    \edef\hasstructurecountercaption{#3\s!hascaption}%
%    \edef\hasstructurecountertitle  {#3\s!hastitle}%
%    \edef\hasstructurecounternumber {#3\s!hasnumber}%
%    \edef\hasstructurecounterlevel  {#3\s!haslevel}%
%    %
%    \edef\askedprefixsegments{#3\c!prefixsegments}%
%    \ifx\askedprefixsegments\v!auto
%      \edef\askedprefixsegments{\autostructureprefixsegments#3}%
%    \fi
%    %
%    \edef\currentname{#3\c!name}%
%    \ifx\currentname\empty
%      \edef\currentname{#1}%
%    \fi
%    \edef\currentcounter{#3\s!counter}%
%    \ifx\currentcounter\empty
%      \let\currentcounter\currentname
%    \fi
%    %
%    \doif{#3\c!title}\v!none{\setfalse\hasstructurecountercaption\setfalse\hasstructurecounternumber}% will become obsolete
%    %
%    \ifx\hasstructurecounternumber\v!yes % here due to previous test but best in callers
%      \doincrementsubstructurecounter[\currentcounter][\hasstructurecounterlevel]%
%    \fi
%    %
%    \ifx\hasstructurecountercaption\v!yes
%      \edef\currentexpansion{#3\c!expansion}%
%      \ifx\currentexpansion\s!xml
%        \edef\currenttitle{#4\c!title}%
%        \edef\currentbookmark{#4\c!bookmark}%
%        \xmlstartraw
%          \edef\currentlisttitle{#3\c!title}%
%        \xmlstopraw
%        \let\currentcoding\s!xml
%      \else
%        \ifx\currentexpansion\v!yes
%          \edef\currenttitle{#3\c!title}%
%          \edef\currentbookmark{#3\c!bookmark}%
%        \else
%          \edef\currenttitle{#4\c!title}%
%          \edef\currentbookmark{#4\c!bookmark}%
%        \fi
%        \let\currentlisttitle\currenttitle
%        \let\currentcoding\s!tex
%      \fi
%      \edef\currentlabel{#3\c!label}%
%      \edef\currentreference{#3\c!reference}%
%      \setnextinternalreference
%      \xdef\laststructurecounternumber{\ctxlua{structures.lists.push{
%         metadata = {
%             kind     = "#1",
%             name     = "\currentname",
%             level    = structures.sections.currentlevel(),
%             catcodes = \the\catcodetable,
%         },
%         references = {
%             internal        = \nextinternalreference,
%             reference       = "\currentreference",
%             referenceprefix = "\referenceprefix",
%             block           = "\currentsectionblock",
%             section         = structures.sections.currentid(),
%         },
%         titledata = {
%             label    = \!!bs\detokenize\expandafter{\currentlabel    }\!!es,
%             title    = \!!bs\detokenize\expandafter{\currenttitle    }\!!es,
%         \ifx\currentbookmark\currenttitle \else
%             bookmark = \!!bs\detokenize\expandafter{\currentbookmark }\!!es,
%         \fi
%         \ifx\currentlisttitle\currenttitle \else
%             list     = \!!bs\detokenize\expandafter{\currentlisttitle}\!!es,
%         \fi
%         },
%     \ifx\hasstructurecounternumber\v!yes
%         prefixdata = {
%             prefix        = "#3\c!prefix",
%             separatorset  = "#3\c!prefixseparatorset",
%             conversion    = \!!bs#3\c!prefixconversion\!!es,
%             conversionset = "#3\c!prefixconversionset",
%             set           = "#3\c!prefixset",
%         %   segments      = "#3\c!prefixsegments",
%             segments      = "\askedprefixsegments",
%             connector     = \!!bs#3\c!prefixconnector\!!es,
%         },
%         numberdata = {
%             numbers       = structures.counters.compact("\currentcounter",nil,true),
%             separatorset  = "#3\c!numberseparatorset",
%             conversion    = \!!bs#3\c!numberconversion\!!es,
%             conversionset = "#3\c!numberconversionset",
%             starter       = \!!bs#3\c!numberstarter\!!es,
%             stopper       = \!!bs#3\c!numberstopper\!!es,
%             segments      = "#3\c!numbersegments",
%         },
%     \fi
%         userdata = structures.helpers.touserdata(\!!bs\detokenize{#9}\!!es)
%        }
%      }}%
%      \xdef\laststructurecounterattribute  {\ctxlua    {tex.write(structures.references.setinternalreference(nil,nil,\nextinternalreference))}}%
%      \xdef\laststructurecountersynchronize{\ctxlatelua{structures.lists.enhance(\laststructurecounternumber)}}%
%    \else
%      \glet\laststructurecounternumber     \relax
%      \glet\laststructurecounterattribute  \attributeunsetvalue
%      \glet\laststructurecountersynchronize\relax
%    \fi
%    \endgroup}

\def\dostructurecountercomponent#1#2#3#4#5#6#7[#8][#9]% maybe also nolist
  {\begingroup
   %
   #2[\s!haslevel=1,#8]%
   \edef\hasstructurecounterlevel  {#3\s!haslevel}%
   \edef\hasstructurecountercaption{#3\s!hascaption}%
   \edef\hasstructurecountertitle  {#3\s!hastitle}%
   \edef\hasstructurecounternumber {#3\s!hasnumber}%
   %
   \edef\askedprefixsegments{#3\c!prefixsegments}%
   \ifx\askedprefixsegments\v!auto
     \edef\askedprefixsegments{\autostructureprefixsegments#3}%
   \fi
   %
   \edef\currentname{#3\c!name}%
   \ifx\currentname\empty
     \edef\currentname{#1}%
   \fi
   \edef\currentcounter{#3\s!counter}%
   \ifx\currentcounter\empty
     \let\currentcounter\currentname
   \fi
   %
   \doif{#3\c!title}\v!none{\setfalse\hasstructurecountercaption\setfalse\hasstructurecounternumber}% will become obsolete
   %
   \ifx\hasstructurecounternumber\v!yes % here due to previous test but best in callers
     \doincrementsubstructurecounter[\currentcounter][\hasstructurecounterlevel]%
   \fi
   %
   \ifx\hasstructurecountercaption\v!yes
     \xdef\currentstructurecomponentname           {#3\c!name}%
     \xdef\currentstructurecomponentlevel          {#3\c!level}%
     \edef\currentstructurecomponentexpansion      {#3\c!expansion}%
     \xdef\currentstructurecomponentxmlsetup       {#3\c!xmlsetup}%
     \xdef\currentstructurecomponentcatcodes       {#3\s!catcodes}%
     \xdef\currentstructurecomponentlabel          {#3\c!label}%
     \xdef\currentstructurecomponentreference      {#3\c!reference}%
     \xdef\currentstructurecomponentreferenceprefix{#3\c!referenceprefix}%
     \ifx\currentstructurecomponentexpansion\s!xml
       \xmlstartraw
         \xdef\currentstructurecomponenttitle   {#3\c!title}%
         \xdef\currentstructurecomponentbookmark{#3\c!bookmark}%
         \xdef\currentstructurecomponentmarking {#3\c!marking}%
         \xdef\currentstructurecomponentlist    {#3\c!list}%
       \xmlstopraw
       \ifx\currentstructurecomponentlist\empty
         \globallet\currentstructurecomponentlist\currentstructurecomponenttitle
       \fi
       \globallet\currentstructurecomponentcoding\s!xml
     \else
       \ifx\currentstructurecomponentexpansion\v!yes
         \xdef\currentstructurecomponenttitle   {#3\c!title}%
         \xdef\currentstructurecomponentbookmark{#3\c!bookmark}%
         \xdef\currentstructurecomponentmarking {#3\c!marking}%
         \xdef\currentstructurecomponentlist    {#3\c!list}%
       \else
         \xdef\currentstructurecomponenttitle   {#4\c!title}%
         \xdef\currentstructurecomponentbookmark{#4\c!bookmark}%
         \xdef\currentstructurecomponentmarking {#4\c!marking}%
         \xdef\currentstructurecomponentlist    {#4\c!list}%
         \iflocation \ifx\currentstructurecomponentbookmark\empty
           \begingroup
           \simplifycommands
           \xdef\currentstructurecomponentbookmark{\detokenize\expandafter{\normalexpanded{#3\c!title}}}%
          \endgroup
         \fi \fi
       \fi
       \ifx\currentstructurecomponentlist\empty
         \globallet\currentstructurecomponentlist\currentstructurecomponenttitle
       \fi
       \globallet\currentstructurecomponentcoding\s!tex
     \fi
     %
     \setnextinternalreference
     \xdef\laststructurecounternumber{\ctxlua{structures.lists.push{
        metadata = {
            kind     = "#1",
            name     = "\currentname",
            level    = structures.sections.currentlevel(),
            catcodes  = \the\ifx\currentstructurecomponentcatcodes\empty\catcodetable\else\csname\currentstructurecomponentcatcodes\endcsname\fi,
            coding    = "\currentstructurecomponentcoding",
        \ifx\currentstructurecomponentcoding\s!xml
            xmlroot   =  "\xmldocument",
        \fi
        \ifx\currentstructurecomponentxmlsetup\empty \else
            xmlsetup  = "\currentstructurexmlsetup",
        \fi
        },
        references = {
            internal        = \nextinternalreference,
            block           = "\currentsectionblock",
            reference       = "\currentstructurecomponentreference",
            referenceprefix = "\currentstructurecomponentreferenceprefix",
            section         = structures.sections.currentid(),
        },
        titledata = {
            label    = \!!bs\detokenize\expandafter{\currentstructurecomponentlabel    }\!!es,
            title    = \!!bs\detokenize\expandafter{\currentstructurecomponenttitle    }\!!es,
        \ifx\currentstructurecomponentbookmark\currentstructurecomponenttitle \else
            bookmark = \!!bs\detokenize\expandafter{\currentstructurecomponentbookmark }\!!es,
        \fi
        \ifx\currentstructurecomponentmarking\currentstructurecomponenttitle \else
            marking  = \!!bs\detokenize\expandafter{\currentstructurecomponentmarking  }\!!es,
        \fi
        \ifx\currentstructurecomponentlist\currentstructurecomponenttitle \else
          list     = \!!bs\detokenize\expandafter{\currentstructurecomponentlist}\!!es,
        \fi
        },
    \ifx\hasstructurecounternumber\v!yes
        prefixdata = {
            prefix        = "#3\c!prefix",
            separatorset  = "#3\c!prefixseparatorset",
            conversion    = \!!bs#3\c!prefixconversion\!!es,
            conversionset = "#3\c!prefixconversionset",
            set           = "#3\c!prefixset",
        %   segments      = "#3\c!prefixsegments",
            segments      = "\askedprefixsegments",
            connector     = \!!bs#3\c!prefixconnector\!!es,
        },
        numberdata = {
            numbers       = structures.counters.compact("\currentcounter",nil,true),
            separatorset  = "#3\c!numberseparatorset",
            conversion    = \!!bs#3\c!numberconversion\!!es,
            conversionset = "#3\c!numberconversionset",
            starter       = \!!bs#3\c!numberstarter\!!es,
            stopper       = \!!bs#3\c!numberstopper\!!es,
            segments      = "#3\c!numbersegments",
        },
    \fi
        userdata = structures.helpers.touserdata(\!!bs\detokenize{#9}\!!es)
       }
     }}%
     \xdef\laststructurecounterattribute  {\ctxlua    {tex.write(structures.references.setinternalreference(nil,nil,\nextinternalreference))}}%
     \xdef\laststructurecountersynchronize{\ctxlatelua{structures.lists.enhance(\laststructurecounternumber)}}%
   \else
     \glet\laststructurecounternumber     \relax
     \glet\laststructurecounterattribute  \attributeunsetvalue
     \glet\laststructurecountersynchronize\relax
   \fi
   \endgroup}

\let\laststructurecounternumber     \relax
\let\laststructurecounterattribute  \relax
\let\laststructurecountersynchronize\relax

\def\dostructurecountersetup#1#2% name \someparameter
  {\setupstructurecounter
     [#1]
     [              \c!start=#2\c!start,
                    \c!state=#2\c!state, % beware, "" == start
                      \c!way=#2\c!way,
                            %
                   \c!prefix=#2\c!prefix,
       \c!prefixseparatorset=#2\c!prefixseparatorset,
         \c!prefixconversion=#2\c!prefixconversion,
      \c!prefixconversionset=#2\c!prefixconversionset,
            \c!prefixstarter=#2\c!prefixstarter,
            \c!prefixstopper=#2\c!prefixstopper,
                \c!prefixset=#2\c!prefixset,
           \c!prefixsegments=#2\c!prefixsegments,
                \c!prefixset=#2\c!prefixset,
          \c!prefixconnector=#2\c!prefixconnector,
                            %
       \c!numberseparatorset=#2\c!numberseparatorset,
         \c!numberconversion=#2\c!numberconversion,
      \c!numberconversionset=#2\c!numberconversionset,
            \c!numberstarter=#2\c!numberstarter,
            \c!numberstopper=#2\c!numberstopper,
           \c!numbersegments=#2\c!numbersegments]}

\def\presetstructurecountersetup#1#2% \setupcommand \someparameter
  {#1%
    [\c!way                =#2\c!way,
     \c!prefix             =#2\c!prefix,
     \c!prefixseparatorset =#2\c!prefixseparatorset,
     \c!prefixconversion   =#2\c!prefixconversion,
     \c!prefixconversionset=#2\c!prefixconversionset,
     \c!prefixstarter      =#2\c!prefixstarter,
     \c!prefixstopper      =#2\c!prefixstopper,
     \c!prefixsegments     =#2\c!prefixsegments,
     \c!prefixset          =#2\c!prefixset,
     \c!prefixconnector    =#2\c!prefixconnector,
     \c!numberseparatorset =#2\c!numberseparatorset,
     \c!numberconversion   =#2\c!numberconversion,
     \c!numberconversionset=#2\c!numberconversionset,
     \c!numberstarter      =#2\c!numberstarter,
     \c!numberstopper      =#2\c!numberstopper,
     \c!numbersegments     =#2\c!numbersegments]}

\protect \endinput