[BUG] \type<<...>> not working

[BUG] \type<<...>> not working

[Nikolai Weibull]

\starttext
\type<<...>>
\stoptext

It doesn't seem to see the end delimiter,
	nikolai

-- 
::: name: Nikolai Weibull    :: aliases: pcp / lone-star / aka :::
::: born: Chicago, IL USA    :: loc atm: Gothenburg, Sweden    :::
::: page: www.pcppopper.org  :: fun atm: gf,lps,ruby,lisp,war3 :::
main(){printf(&linux["\021%six\012\0"],(linux)["have"]+"fun"-97);}

Re: [BUG] \type<<...>> not working

[Hans Hagen]

Nikolai Weibull wrote:
> \starttext
> \type<<...>>
> \stoptext
> 
> It doesn't seem to see the end delimiter,
> 	nikolai

patch for core-ver

\starttext

\unprotect

\def\dodotypeC<#1% normal/slanted <<... <<...>> ...>>
   {\initializetype
    \verbatimcolor
    \if#1<%
      \@EA\setupalternativetypegrouping
    \else
      \@EA#1%
    \fi}

\bgroup
\catcode`\<=\@@active
\catcode`\>=\@@active
\gdef\setupalternativetypegrouping
   {\catcode`\<=\@@active
    \catcode`\>=\@@active
    \def\doless
      {\ifx<\next
         \def\next
           {\bgroup\switchslantedtype
            \let\next=}%
       \else
         \let\next\lesscharacter
       \fi
       \next}%
    \def\domore
      {\ifx>\next
         \def\next
           {\egroup
            \let\next=}%
       \else
         \let\next\morecharacter
       \fi
       \next}%
    \def<{\futurelet\next\doless}%
    \def>{\futurelet\next\domore}}
\egroup

\protect

\startTEXpage
normal: \par \type{xx<<..xx..<<xx <<xx>> >>..>>xx} \par \type<<....>> \par 
\type<<..<<xx>>..>> \par
normal: \par \type{xx<..xx..<xx <slanted> >..>xx} \par \type{<....>} \par 
\type{<..<xx>..>}
\setuptype[option=slanted]
slanted: \par \type{xx<<..sl..<<xx <<sl>> xx>>..sl..>>xx} \par \type<<..xx..>> 
\par \type<<..<<sl>>..>> \par
slanted: \par \type{xx<<..sl..<xx <sl> xx>..sl..>>xx} \par \type<<..xx..>> \par 
\type<<..<sl>..>> \par
\setuptype[option=none]
none: \par \type{xx<<..xx..<<xx <<xx>> >>..>>xx} \par \type<<....>> \par 
\type<<..<<xx>>..>> \par
\stopTEXpage

\stoptext


-----------------------------------------------------------------
                                           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
-----------------------------------------------------------------