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

13 Dec 2004


      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} \par \type<<....>> \par 
\type<<..<<xx>>..>> \par
normal: \par \type{xx<..xx....>xx} \par \type{<....>} \par 
\type{<..<xx>..>}
\setuptype[option=slanted]
slanted: \par \type{xx<<..sl..< xx>>..sl..>>xx} \par \type<<..xx..>> 
\par \type<<..<<sl>>..>> \par
slanted: \par \type{xx<<..sl....sl..>>xx} \par \type<<..xx..>> \par 
\type<<..<sl>..>> \par
\setuptype[option=none]
none: \par \type{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
-----------------------------------------------------------------