diff options
Diffstat (limited to 'tex/context/base/core-fil.tex')
| -rw-r--r-- | tex/context/base/core-fil.tex | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tex/context/base/core-fil.tex b/tex/context/base/core-fil.tex index 987fcb2c7..c67aa1702 100644 --- a/tex/context/base/core-fil.tex +++ b/tex/context/base/core-fil.tex @@ -189,6 +189,39 @@ \def\convertMPcolorfile% {\bufferprefix metacmyk.tmp} +%D Temporarily here: + +\def\definieerfilegroep% + {\dodoubleargument\dodefinieerfilegroep} + +\def\dodefinieerfilegroep[#1][#2]% + {\getparameters + [\??fp#1] + [\c!file=#1, + \c!voor=, + \c!na=, + #2]% + \setvalue{\e!start#1}{\dostartfilegroep[#1]}} + +\def\dostartfilegroep% + {\dodoubleargument\dodostartfilegroep} + +\def\dodostartfilegroep[#1][#2]% + {\getvalue{\??fp#1\c!voor}% + \setvalue{\e!stop#1}{\dostopfilegroep[#1][#2]}% + \edef\!!stringa{\getvalue{\??fp#1\c!file}-#2}% + \@EA\dolaadfilegroep\@EA[\!!stringa]% + \getvalue{\e!start#1#2}} + +\def\dolaadfilegroep[#1-#2#3#4#5]% + {\readsysfile{#1-#2#3#4}{}{}} + +\def\dostopfilegroep[#1][#2]% + {\getvalue{\e!stop#1#2}% + \getvalue{\??fp#1\c!na}} + +%D This will be perfected / changed / weeded. + \protect \endinput |