1 files changed, 51 insertions, 0 deletions
diff --git a/tex/context/base/type-run.mkii b/tex/context/base/type-run.mkii
new file mode 100644
index 000000000..1b64c102e
--- /dev/null
+++ b/tex/context/base/type-run.mkii
@@ -0,0 +1,51 @@
+%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}
+        {\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
+           \type{\starttypescript}
+           \doifsomething{##1}{\type{[##1]}}
+           \doifsomething{##2}{\type{[##2]}}
+           \doifsomething{##3}{\type{[##3]}}
+           \processdisplayverbatim{\stoptypescript}}%
+      \fi\fi\fi
+      \next}
+  \processcommacommand[\typescriptfiles]\ReadFile % \dodousetypescript
+  \egroup}
+
+\protect \endinput