[dev-context] Bug in ruby register code?

[Hans Hagen]

Duncan Hothersall wrote:
> Duncan Hothersall (12/10/2006 16:08) said:
>   
>> Seems to be a bug in the ruby code that works properly in the perl. Try:
>>
>> ----
>> \starttext
>> \index{Knuth}\input knuth \par
>> \seeindex{Knuth}{Tufte}\input tufte \par
>> \blank\placeindex
>> \stoptext
>> ----
>>
>> With the perl scripts it's right:
>>
>> Knuth 1
>>   see Tufte
>>
>> but with the new ruby scripts it's wrong:
>>
>> Knuth
>>   see Tufte, 1
>>     
>
> As a non-Ruby person I've spent a while trying to work out where the
> problem might be but it's tough going. I need to do an index with this
> feature on Sun/Mon if poss, so if anyone is able to point me in the
> right direction that would be great.
>   
can you play with this (\global\firstregisterpagetrue )

\def\dosetpageregistersee#1#2#3#4% ugly separator hack
  {\flushseenregisterpage
   \expanded{\doifreglevelelse[#4\sectionseparator\sectionseparator0]}%
     {{\global\utilitydonetrue
       \setregisterhowto[#2]%
       \def\dohandleregisterentry##1% dubbelop | \strut nieuw
         {\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}}}%
       \c!entryletter\c!entrya\c!entryb\c!entryc
       \global\let\c!entrya\relax
       \global\let\c!entryb\relax
       \global\let\c!entryc\relax
       \global\let\c!entryletter\relax
       \global\let\c!entryreference\relax
       \global\chardef\lastregisterpagestatus\zerocount
    %   \global\firstregisterentrytrue
       \global\firstregisterpagetrue}}
     {}}

-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
                                             | www.pragma-pod.nl
-----------------------------------------------------------------