diff options
Diffstat (limited to 'tex/context/base/core-reg.tex')
-rw-r--r-- | tex/context/base/core-reg.tex | 356 |
1 files changed, 174 insertions, 182 deletions
diff --git a/tex/context/base/core-reg.tex b/tex/context/base/core-reg.tex index 4830dcb32..9b105df70 100644 --- a/tex/context/base/core-reg.tex +++ b/tex/context/base/core-reg.tex @@ -51,22 +51,22 @@ % % \registerentry {tag} {letter} -\def\dosetupregister[#1][#2][#3]% +\def\dostelregisterin[#1][#2][#3]% {\ifthirdargument - \def\dodosetupregister##1% + \def\dodostelregisterin##1% {\getparameters[\??id##1#2][#3]% - \preparepageprefix{\??id##1}}% + \preparepaginaprefix{\??id##1}}% \else - \def\dodosetupregister##1% + \def\dodostelregisterin##1% {\getparameters[\??id##1][#2]% - \doifvalue{\??id##1\c!coupling}\v!yes - {\appendtoks\coupleregister[##1][#2]\to\everystarttext}% - \preparepageprefix{\??id##1}}% + \doifvalue{\??id##1\c!koppeling}\v!ja + {\appendtoks\koppelregister[##1][#2]\to\everystarttext}% + \preparepaginaprefix{\??id##1}}% \fi - \processcommalist[#1]\dodosetupregister} + \processcommalist[#1]\dodostelregisterin} -\def\setupregister - {\dotripleempty\dosetupregister} +\def\stelregisterin + {\dotripleempty\dostelregisterin} \def\getlastregisterentry#1% {\def\docommando##1% @@ -80,7 +80,7 @@ \ifduplicate\getlastregisterentry{#3}\fi \convertexpanded{\??id\currentregister}{#3}\asciiregisterentry \makesectionformat - \doifelsevalue{\??id\currentregister\c!ownnumber}\v!yes + \doifelsevalue{\??id\currentregister\c!eigennummer}\v!ja \donetrue\donefalse % the spaces between } { are essential for texutil's split \edef\schrijfwegnaarregister% @@ -101,7 +101,7 @@ \def\doregister#1% {\chardef\registerpagestatus\plusone \def\currentregister{#1}% - \doifelsevalue{\??id\currentregister\c!ownnumber}\v!yes + \doifelsevalue{\??id\currentregister\c!eigennummer}\v!ja {\dosingleempty\dodoregister} {\dosingleempty\donoregister}} @@ -150,33 +150,11 @@ \def\currentregister{#1}% \donoregister[#2]} -% \def\complexdozieregister[#1]#2#3% -% {\begingroup -% \thisisnextinternal\s!ind -% \ifduplicate\getlastregisterentry{#2}\fi -% \convertexpanded{\??id\currentregister}{#2}\asciiregisterentryA -% \convertexpanded{\??id\currentregister}{#3}\asciiregisterentryB -% \makesectionformat -% \edef\schrijfwegnaarregister% -% {\writeutility% -% {r s % -% {\currentregister} % -% {\nextinternalreference} % -% {#1} % -% {\asciiregisterentryA} % -% {\asciiregisterentryB} % -% {\sectionformat}}}% -% \schrijfwegnaarregister -% \endgroup -% \registerinfo{> zie}{#2}% -% \GotoPar} - \def\complexdozieregister[#1]#2#3% {\begingroup \thisisnextinternal\s!ind \ifduplicate\getlastregisterentry{#2}\fi - \convertexpanded{\??id\currentregister}{#2}\asciiregisterentryA - \convertexpanded{\??id\currentregister}{#3}\asciiregisterentryB + \convertexpanded{\??id\currentregister}{#2}\asciiregisterentry \makesectionformat \edef\schrijfwegnaarregister% {\writeutility% @@ -184,8 +162,8 @@ {\currentregister} % {\nextinternalreference} % {#1} % - {\asciiregisterentryA} % - {\asciiregisterentryB} % + {\asciiregisterentry} % + {#3} % {\sectionformat}}}% \schrijfwegnaarregister \endgroup @@ -200,12 +178,12 @@ % {\edef\currentregister{#1}% % om gebruik van \ExpandBothAfter % \doprocesspageregister} % mogelijk te maken -\def\dowritetoregister[#1]% % de twee-traps-aanroep is nodig +\def\doschrijfnaarregister[#1]% % de twee-traps-aanroep is nodig {\edef\currentregister{#1}% % om gebruik van \ExpandBothAfter \doprocesspageregister{}} % mogelijk te maken -\def\writetoregister - {\dodoubleempty\dowritetoregister} +\def\schrijfnaarregister + {\dodoubleempty\doschrijfnaarregister} \def\ifregistergeplaatst{\ifutilitydone} @@ -229,7 +207,7 @@ \def\setregisterpage#1% {\let\registerpageseparator\empty \processaction - [\getvalue{\??id#1\c!symbol}] + [\getvalue{\??id#1\c!symbool}] [ \c!n=>{\def\doregisterpage##1[##2]% {\doregisterpagelocation{#1}{\registerpagenumber}\/}}, \c!a=>{\def\doregisterpage##1[##2]% @@ -238,8 +216,8 @@ {\doregisterpagelocation{#1}{$\bullet$}}}, 2=>{\def\doregisterpage##1[##2]% {\doregisterpagelocation{#1}{\vrule\!!width1em\!!height1ex\!!depth\!!zeropoint}}}, - \v!none=>{\def\doregisterpage##1[##2]{}},% - \s!unknown=>{\def\registerpagesymbol{\getvalue{\??id#1\c!symbol}}% + \v!geen=>{\def\doregisterpage##1[##2]{}},% + \s!unknown=>{\def\registerpagesymbol{\getvalue{\??id#1\c!symbool}}% \def\doregisterpage##1[##2]% {\doregisterpagelocation{#1}{\registerpagesymbol}}}, \s!default=>{\def\registerpageseparator% @@ -247,7 +225,7 @@ \def\doregisterpage##1[##2]% {\doregisterpagehowto{##1} {\strut - \pageprefix{\??id##1}[##2]% + \paginaprefix{\??id##1}[##2]% \translatednumber[##2]}}}]} \let\registerpagehowto\empty @@ -258,13 +236,13 @@ \def\registertexthowto{#2}}% \def\doregistertexthowto#1#2% - {\dostartattributes{\??id#1\registertexthowto}\c!textstyle\c!textcolor{}% - \getvalue{\??id#1\c!textcommand}{#2}% + {\dostartattributes{\??id#1\registertexthowto}\c!tekstletter\c!tekstkleur{}% + \getvalue{\??id#1\c!tekstcommando}{#2}% \dostopattributes} \def\doregisterpagehowto#1#2% - {\dostartattributes{\??id#1\registerpagehowto}\c!pagestyle\c!pagecolor{}% - \getvalue{\??id#1\c!pagecommand}{#2}% + {\dostartattributes{\??id#1\registerpagehowto}\c!paginaletter\c!paginakleur{}% + \getvalue{\??id#1\c!paginacommando}{#2}% \dostopattributes} \def\registerentry #1{\executeifdefined{#1\s!entry }\gobbleoneargument } @@ -300,10 +278,10 @@ \chardef\lastregisterpagestatus=0 \def\limitedregisterentry#1#2% - {\getvalue{\??id#1\c!textcommand}% - {\doifelsenothing{\??id#1\c!maxwidth} + {\getvalue{\??id#1\c!tekstcommando}% + {\doifelsenothing{\??id#1\c!maxbreedte} {#2} - {\limitatetext{#2}{\getvalue{\??id#1\c!maxwidth}}{\unknown}}}} + {\limitatetext{#2}{\getvalue{\??id#1\c!maxbreedte}}{\unknown}}}} \def\dosetpageregisterpage#1#2#3#4#5#6% {\doifreglevelelse[#5]{\dodosetpageregisterpage{#1}{#2}{#3}{#4}{#5}{#6}}{}} @@ -347,7 +325,7 @@ % \donefalse % waiting for "to" pagenumber % \else % \registerpageseparator -% |\space|\relax % \relax needed because | looks ahead +% |\spatie|\relax % \relax needed because | looks ahead % \donetrue % \fi\fi\fi % \ifdone @@ -384,7 +362,7 @@ \egroup \!!doneafalse}% \!!doneafalse - \doifelsevalue{\??id#2\c!interaction}\v!text + \doifelsevalue{\??id#2\c!interactie}\v!tekst {\ifcase\currententrylevel \or \!!doneatrue\c!entrya\c!entryb\c!entryc \or \c!entrya\!!doneatrue\c!entryb\c!entryc \or @@ -398,7 +376,7 @@ % \global\firstregisterentrytrue \iffirstregisterpage \global\chardef\lastregisterpagestatus\zerocount - \expandafter\hskip\getvalue{\??id#2\c!distance}\relax + \expandafter\hskip\getvalue{\??id#2\c!afstand}\relax \donetrue \else\ifnum#1=3 |--|\relax % -- ! @@ -407,11 +385,11 @@ \donefalse % waiting for "to" pagenumber \else \registerpageseparator - |\space|\relax % \relax needed because | looks ahead + |\spatie|\relax % \relax needed because | looks ahead \donetrue \fi\fi\fi \ifdone - \doifelsevalue{\??id#2\c!interaction}\v!pagenumber + \doifelsevalue{\??id#2\c!interactie}\v!paginanummer {\bgroup \setbox0\hbox {\showlocation{\doregisterpage{#2}[#5]\ifnum#1=2\/\fi}}% @@ -431,7 +409,7 @@ {\doregistertexthowto{#1}{\strut\limitedregisterentry{#1}{##1}}}% \getvalue {#1\ifcase\currententrylevel\s!entrya\or\s!entryb\else\s!entryc\fi}% - {\doregisterpagehowto{#1}{\labeltexts\v!see{#3}}}% + {\doregisterpagehowto{#1}{\labeltexts\v!zie{#3}}}% \c!entryletter\c!entrya\c!entryb\c!entryc \global\let\c!entrya\relax \global\let\c!entryb\relax @@ -447,35 +425,35 @@ \def\doregistercharacter[#1]#2% {\global\firstregisterentrytrue - \doifelsevalue{\??id#1\c!indicator}\v!yes + \doifelsevalue{\??id#1\c!aanduiding}\v!ja {\executeifdefined - {\strippedcsname\doregistercharacter\getvalue{\??id#1\c!alternative}}% + {\strippedcsname\doregistercharacter\getvalue{\??id#1\c!variant}}% \doregistercharactera [#1]{#2}} {\noregistercharacter[#1]{#2}}} \def\noregistercharacter[#1]#2% - {\getvalue{\??id#1\c!before}% + {\getvalue{\??id#1\c!voor}% \goodbreak} % a = <before> <goodbreak> <character> <par> <after> <nobreak> \def\doregistercharactera[#1]#2% - {\getvalue{\??id#1\c!before}% + {\getvalue{\??id#1\c!voor}% \vskip\lineheight\goodbreak\vskip-\lineheight \ifhmode\unskip\else\noindent\fi % brrr - \getvalue{\??id#1\c!command}{\doattributes{\??id#1}\c!style\c!color{\strut\ignorespaces#2}}% - \getvalue{\??id#1\c!after}% + \getvalue{\??id#1\c!commando}{\doattributes{\??id#1}\c!letter\c!kleur{\strut\ignorespaces#2}}% + \getvalue{\??id#1\c!na}% \par\nobreak} % b = <goodbreak> <before> <character> <after> <nobreak> \def\doregistercharacterb[#1]#2% here no lineheight hackery ! ! ! - {\getvalue{\??id#1\c!before}% + {\getvalue{\??id#1\c!voor}% \ifhmode\unskip\else\noindent\fi % brrr - \getvalue{\??id#1\c!command}% - {\doattributes{\??id#1}\c!style\c!color{\strut\ignorespaces#2}}% - \getvalue{\??id#1\c!after}% + \getvalue{\??id#1\c!commando}% + {\doattributes{\??id#1}\c!letter\c!kleur{\strut\ignorespaces#2}}% + \getvalue{\??id#1\c!na}% \nobreak} \def\doregistercharacterA[#1]#2{\doregistercharactera[#1]{\WORD{#2}}} @@ -485,7 +463,7 @@ %D \type {#2} can be \type {\string} itself. \def\doregisterreference[#1]#2% - {\doifvalue{\??id#1\c!referencing}\v!on + {\doifvalue{\??id#1\c!refereren}\v!aan {\pagereference[#1:#2]}} \def\dosetpageregisterletter#1#2% @@ -609,7 +587,7 @@ % aangepast \def\dodocommando[##1-##2]% {\gotonextinternal{\s!ind}{##1}{##2}{\box0}}% - \doifelsevalue{\??id#1\c!interaction}\v!pagenumber + \doifelsevalue{\??id#1\c!interactie}\v!paginanummer {\limitedregisterentry{#1}{#2}} % paginanummer {{\setbox0\hbox{\limitedregisterentry{#1}{\begstrut#2}}% \ifx\firstlistreference\empty % tekst,alles @@ -621,9 +599,9 @@ \else \expandafter\dodocommando\expandafter[\firstlistreference]% \fi}}% - \doifvalue{\??id#1\c!number}\v!yes - {\hskip\getvalue{\??id#1\c!distance}(\commalistsize)}% - \doifnotvalue{\??id#1\c!interaction}\v!text % paginanummer,alles + \doifvalue{\??id#1\c!nummer}\v!ja + {\hskip\getvalue{\??id#1\c!afstand}(\commalistsize)}% + \doifnotvalue{\??id#1\c!interactie}\v!tekst % paginanummer,alles {\def\docommando##1##2% {{\setbox0\hbox{\showlocation{\hbox to 1em{\hss\symbol[##2]\hss}}}% \ifx##1\empty @@ -631,10 +609,10 @@ \else \expandafter\dodocommando\expandafter[##1]% \fi}}% - \hskip\getvalue{\??id#1\c!distance}% - \docommando\firstlistreference\v!previous - \docommando\midlistreference\v!somewhere - \docommando\lastlistreference\v!next}% + \hskip\getvalue{\??id#1\c!afstand}% + \docommando\firstlistreference\v!vorige + \docommando\midlistreference\v!ergens + \docommando\lastlistreference\v!volgende}% % tot hier \else % \endgraf @@ -644,7 +622,7 @@ \endgraf} \def\dosetregister#1% - {\doifelsevalue{\??id#1\c!coupling}\v!yes + {\doifelsevalue{\??id#1\c!koppeling}\v!ja {\ifautoregisterhack \dosetautoregister{#1}% \else @@ -696,12 +674,12 @@ {}}% \fi} -\def\docoupleregister[#1][#2]% +\def\dokoppelregister[#1][#2]% {\iflocation \ifcase0\countervalue{autolink:#1}\relax % only once \begingroup \let\dosetregister\doloadregisterlinks - \setupregister[#1][#2]% + \stelregisterin[#1][#2]% \doutilities{#1}\jobname{#1}\relax\relax \endgroup \ifautoregisterhack @@ -712,8 +690,8 @@ \fi \fi} -\def\coupleregister - {\dodoubleempty\docoupleregister} +\def\koppelregister + {\dodoubleempty\dokoppelregister} \def\dodocommandoprolinrefAA[#1-#2]% {\def\lastlistreference{#1-#2}} @@ -741,7 +719,7 @@ \def\docommandoprolinrefB#1#2#3% {\bgroup \ifx#2\empty - \doifvalue{\??id#1\c!unknownreference}\v!empty{\hskip1em}% + \doifvalue{\??id#1\c!onbekendeverwijzing}\v!leeg{\hskip1em}% \else \setbox0\hbox to 1em{\hss\showlocation{\symbol[#3]}\hss}% \expandafter\dodocommandoprolinrefB\expandafter[#2]% @@ -770,14 +748,14 @@ \let\prevlistreference\empty \let\nextlistreference\empty \fi - \setalignmentswitch{\getvalue{\??id#1\c!location}}% + \setalignmentswitch{\getvalue{\??id#1\c!plaats}}% \ifcase\alignmentswitch % links - \docommandoprolinrefB{#1}\prevlistreference\v!previous - \docommandoprolinrefB{#1}\nextlistreference\v!next + \docommandoprolinrefB{#1}\prevlistreference\v!vorige + \docommandoprolinrefB{#1}\nextlistreference\v!volgende \or % midden - \docommandoprolinrefB{#1}\prevlistreference\v!previous + \docommandoprolinrefB{#1}\prevlistreference\v!vorige \or % rechts \fi @@ -790,11 +768,11 @@ % links \or % midden - \docommandoprolinrefB{#1}\nextlistreference\v!next + \docommandoprolinrefB{#1}\nextlistreference\v!volgende \or % rechts - \docommandoprolinrefB{#1}\prevlistreference\v!previous - \docommandoprolinrefB{#1}\nextlistreference\v!next + \docommandoprolinrefB{#1}\prevlistreference\v!vorige + \docommandoprolinrefB{#1}\nextlistreference\v!volgende \fi}} \def\dodolinkedregister[#1][#2]#3% page auto link @@ -839,11 +817,11 @@ \pagereference[-:\s!lin:\internallistreference]% \pluscounter{autolink:#1}% \bgroup - %\setupinteraction[\c!color=,\c!contrastcolor=,\c!style=]% kan sneller - \resetinteractionparameter\c!color - \resetinteractionparameter\c!contrastcolor - \resetinteractionparameter\c!style - \gotobox + %\setupinteraction[\c!kleur=,\c!contrastkleur=,\c!letter=]% kan sneller + \resetinteractionparameter\c!kleur + \resetinteractionparameter\c!contrastkleur + \resetinteractionparameter\c!letter + \naarbox {\limitedregisterentry{#1}{\begstrut#2}}% [JS(SetRegisterEntry{\v!register,\countervalue{autolink:#1},#2,{\alllistreferences}})]% \egroup @@ -865,8 +843,8 @@ %D The first implementation used one main field with clones. %D In a 2500 page document this resulted in a rather (anoying) -%D long start||up time. This \quote {every page its own field} -%D solution, combined with a \quote {page open action}, works +%D long start||up time. This \citeer {every page its own field} +%D solution, combined with a \citeer {page open action}, works %D much faster, but is conceptually pretty weak. \def\complexregisterfield[#1]% @@ -880,109 +858,123 @@ \setupfield [\v!register] - [\c!width=10em, - \c!height=3ex, - \c!align=\v!middle, - \c!option=\v!readonly, - \c!location=\v!low] + [\c!breedte=10em, + \c!hoogte=3ex, + \c!uitlijnen=\v!midden, + \c!optie=\v!alleenleesbaar, + \c!plaats=\v!laag] \def\doinitializeautoregister#1% {\useJSscripts[reg]% \useJSpreamblenow{LinkedRegisters}% - \setupinteraction[\c!openpageaction=JS(UpdateRegisterField{\v!register})]% + \setupinteraction[\c!openpaginaactie=JS(UpdateRegisterField{\v!register})]% \definereference[\v!reset \v!register][JS(ResetRegisterEntry{\v!register})]% - \definereference[\v!first \v!register][JS(GotoFirstRegisterEntry{\v!register})]% - \definereference[\v!previous \v!register][JS(GotoPreviousRegisterEntry{\v!register})]% - \definereference[\v!next\v!register][JS(GotoNextRegisterEntry{\v!register})]% - \definereference[\v!last \v!register][JS(GotoLastRegisterEntry{\v!register})]} + \definereference[\v!eerste \v!register][JS(GotoFirstRegisterEntry{\v!register})]% + \definereference[\v!vorige \v!register][JS(GotoPreviousRegisterEntry{\v!register})]% + \definereference[\v!volgende\v!register][JS(GotoNextRegisterEntry{\v!register})]% + \definereference[\v!laatste \v!register][JS(GotoLastRegisterEntry{\v!register})]} \def\doinitializelinkregister#1% {} % todo ruwe register -\def\placeregister - {\dodoubleempty\doplaceregister} - -\def\doplaceregister[#1][#2]% - {\iffirstargument - \begingroup - \def\currentregister{#1}% - \setupregister[\currentregister][#2]% - \raggedright - \startcolumns - [\c!n=\getvalue{\??id\currentregister\c!n}, - \c!balance=\getvalue{\??id\currentregister\c!balance}, - \c!align=\getvalue{\??id\currentregister\c!align}]% - \dontcomplain - \startpacked[\v!blank]% - \doutilities\currentregister\jobname\currentregister\relax\par - \stoppacked - \stopcolumns - \endgroup - \fi} +\def\plaatsregister + {\dosingleargument\doplaatsregister} -\def\completeregister - {\dodoubleempty\docompleteregister} - -\def\docompleteregister[#1][#2]% - {\iffirstargument - \begingroup - \def\currentregister{#1}% - \expanded % the expansion is needed because we don't want \v!'s in the tuo file (french) - {\plaatsvolledig - {\noexpand\systemsuppliedchapter}% - {\currentregister}% - {\noexpand\headtext{\currentregister}}% - {\noexpand\placeregister[\currentregister][#2]}}% - \endgroup - \fi} +\def\doplaatsregister[#1]% + {\def\currentregister{#1}% + \complexorsimpleempty\doplaatsregister} + +\def\complexdoplaatsregister[#1]% + {\begingroup + \stelregisterin[\currentregister][#1]% + \raggedright + \startkolommen + [\c!n=\getvalue{\??id\currentregister\c!n}, + \c!balanceren=\getvalue{\??id\currentregister\c!balanceren}, + \c!uitlijnen=\getvalue{\??id\currentregister\c!uitlijnen}]% + \mindermeldingen + \startopelkaar[\v!blanko]% + \doutilities\currentregister\jobname\currentregister\relax\par + \stopopelkaar + \stopkolommen + \endgroup} + +% \def\complexdovolledigregister[#1]% \@EA's kunnen weg +% {\@EA\plaatsvolledig\@EA{\@EA\systemsuppliedchapter\@EA}% +% \@EA{\@EA\currentregister\@EA}% +% \@EA{\@EA\headtext\@EA{\currentregister}}% +% {\complexdoplaatsregister[#1]}} + +\def\complexdovolledigregister[#1]% the expansion is needed because we don't want + {\expanded % \v!'s in the tuo file (french) + {\plaatsvolledig + {\noexpand\systemsuppliedchapter}% + {\currentregister}% + {\noexpand\headtext{\currentregister}}% + {\noexpand\complexdoplaatsregister[#1]}}} + +\def\dovolledigregister[#1]% + {\def\currentregister{#1}% + \complexorsimpleempty\dovolledigregister} + +\def\volledigregister + {\dosingleargument\doplaatsregister} -\def\dodefineregister[#1][#2]% - {\setupregister[#1]% +\def\dodefinieerregister[#1][#2]% + {\stelregisterin[#1]% [\c!n=2, - \c!balance=\v!yes, % \v!no komt niet zo vaak voor - \c!align=\v!no, - \c!before=\blank, % binnen kolommen: \blank[\v!line] - \c!after=, - \c!symbol=, - \c!interaction=\v!pagenumber, - \c!alternative=\v!a, - \c!distance=1em, - \c!style=\v!bold, - \c!pagestyle=\v!slanted, - \c!indicator=\v!yes, - \v!part\v!number=\v!yes, % v - \v!chapter\c!number=\v!no, - \c!criterium=\v!all, - \c!command=, - \c!referencing=\v!on, - \c!location=\v!middle, - \c!maxwidth=, - \c!number=\v!no, - \c!unknownreference=\v!empty, - \c!expansion=]% + \c!balanceren=\v!ja, % \v!nee komt niet zo vaak voor + \c!uitlijnen=\v!nee, + \c!voor=\blanko, % binnen kolommen: \blanko[\v!regel] + \c!na=, + \c!symbool=, + \c!interactie=\v!paginanummer, + \c!variant=\v!a, + \c!afstand=1em, + \c!letter=\v!vet, + \c!paginaletter=\v!schuin, + \c!aanduiding=\v!ja, + \v!deel\v!nummer=\v!ja, % v + \v!hoofdstuk\c!nummer=\v!nee, + \c!criterium=\v!alles, + \c!commando=, + \c!refereren=\v!aan, + \c!plaats=\v!midden, + \c!maxbreedte=, + \c!nummer=\v!nee, + \c!onbekendeverwijzing=\v!leeg, + \c!expansie=]% \presetheadtext[#1=\Word{#1}]% + \setvalue{#1}% + {\doregister{#1}}% + \setvalue{\e!gekoppelde#1}% + {\dolinkedregister{#1}}% + \setvalue{\s!set#1}% + {\dosetregister{#1}}% + \setvalue{\s!reset#1}% + {\doresetregister{#1}}% \addutilityreset{#1}% - \setvalue{#1}{\doregister{#1}}% - \setvalue{\e!coupled#1}{\dolinkedregister{#1}}% - \setvalue{\s!set#1}{\dosetregister{#1}}% - \setvalue{\s!reset#1}{\doresetregister{#1}}% - \setvalue{\e!see#1}{\dozieregister{#1}}% - \setvalue{\e!place#1}{\placeregister[#1]}% - \setvalue{\e!complete#1}{\completeregister[#1]}% - \setvalue{\e!setup#1\e!endsetup}[##1]{\getparameters[\??id#1][##1]}} - -\def\defineregister% - {\dodoubleargument\dodefineregister} + \setvalue{\e!zie#1}% + {\dozieregister{#1}}% + \setvalue{\e!plaats#1}% + {\doplaatsregister[#1]}% + \setvalue{\e!volledige#1}% + {\dovolledigregister[#1]}% + \setvalue{\e!stel#1\e!in}[##1]% + {\getparameters[\??id#1][##1]}} + +\def\definieerregister% + {\dodoubleargument\dodefinieerregister} \def\registerlengte{\utilityregisterlength} \def\utilityregisterlength{0} -\def\dodetermineregistercharacteristics[#1][#2]% +\def\dobepaalregisterkenmerken[#1][#2]% {\begingroup - \setupregister[#1][#2]% + \stelregisterin[#1][#2]% \dosetreglevel{#1}% \setvalue{#1\s!from}% {\getvalue{#1\s!page}}% @@ -1001,14 +993,14 @@ \resetsystemmode\v!register \fi} -\def\determineregistercharacteristics - {\dodoubleempty\dodetermineregistercharacteristics} +\def\bepaalregisterkenmerken + {\dodoubleempty\dobepaalregisterkenmerken} -\defineregister +\definieerregister [\v!index] [\v!indices] -% \setupregister[index][koppeling=ja] +% \stelregisterin[index][koppeling=ja] % % \stelveldenin % [register][achtergrond=raster,kader=uit] @@ -1037,4 +1029,4 @@ % % \volledigeindex -\protect \endinput +\protect \endinput
\ No newline at end of file |