%D \module
%D   [       file=type-run,
%D        version=2001.04.20,
%D          title=\CONTEXT\ Typescript Macros,
%D       subtitle=Runtime Macros,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\unprotect 

\gdef\typetypescript%
  {\dotripleempty\dotypetypescript}

\gdef\dotypetypescript[#1][#2][#3]%
  {\bgroup
   \def\dochecktypescript##1##2% script use 
     {\doifelsenothing{##1##2}
        {\donetrue}
        {\donefalse
         \ExpandBothAfter\doifcommonelse{##1}{##2}\donetrue\donefalse}}
   \edef\typescriptone  {\truetypescript{#1}}%
   \edef\typescripttwo  {\truetypescript{#2}}%
   \edef\typescriptthree{\truetypescript{#3}}%
   \def\starttypescript
     {\bgroup 
      \obeylines % else we loose the first line due to lookahead
      \dotripleempty\dostarttypescript}
   \def\dostarttypescript[##1][##2][##3]%
     {\long\def\next####1\stoptypescript{\egroup}
      \dochecktypescript{##1}\typescriptone  \ifdone
      \dochecktypescript{##2}\typescripttwo  \ifdone
      \dochecktypescript{##3}\typescriptthree\ifdone
        \def\next%
          {\def\stoptypescript%
             {\egroup\type{\stoptypescript}}
           % what follows now is quite ugly 
           \skipfirstverbatimlinefalse
           \processdisplayverbatim{\stoptypescript}%
           \type{\starttypescript}
           \doifsomething{##1}{\type{[##1]}}
           \doifsomething{##2}{\type{[##2]}}
           \doifsomething{##3}{\type{[##3]}}}
      \fi\fi\fi
      \next}  
  \processcommacommand[\typescriptfiles]\dodousetypescript
  \egroup}

\protect \endinput 
