From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/8937
Path: main.gmane.org!not-for-mail
From: Hans Hagen <pragma@wxs.nl>
Newsgroups: gmane.comp.tex.context
Subject: Re: metafont en context MPmacros
Date: Tue, 06 Aug 2002 13:20:27 +0200
Sender: owner-ntg-context@let.uu.nl
Message-ID: <5.1.0.14.1.20020806131716.02b38ec0@server-1>
References: <655ACC2B-A89F-11D6-AB5A-003065568054@science.uva.nl>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
X-Trace: main.gmane.org 1035399300 31632 80.91.224.250 (23 Oct 2002 18:55:00 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 18:55:00 +0000 (UTC)
Cc: NTG ConTeXt <ntg-context@ntg.nl>
Original-To: "dr. Hans van der Meer" <hansm@science.uva.nl>
In-Reply-To: <655ACC2B-A89F-11D6-AB5A-003065568054@science.uva.nl>
Xref: main.gmane.org gmane.comp.tex.context:8937
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:8937

At 08:16 PM 8/5/2002 +0200, dr. Hans van der Meer wrote:

>Het lijkt erop dat invoegen van een bestand met "input" door ConTeXt niet 
>goed mogelijk is als daarin voor/met ConTeXt gedefinieerde \MP-zaken 
>voorkomen.

One can think of something like this:

\unprotect

\def\appended#1#2#3{\@EA#1\@EA#2\@EA{#2#3}}

\definesystemvariable{lf}

\def\loadfile
   {\dodoubleargument\doloadfile}

\def\doloadfile[#1][#2]
   {\bgroup
    \def\!!stringa{#1}%
    \global\let\loadedfile\empty
    \catcode12=\@@space
    \catcode13=\@@space
    \def\dodocommando
      {\@EA\appended\@EA\gdef\@EA\loadedfile\@EA{\fileline}}%
    \def\docommando##1%
      {\doprocessfile\scratchread{##1}\dodocommando}%
    \processcommalist[#2]\docommando
    \egroup
    \dodoglobal\letvalue{\??lf#1}\loadedfile}

\def\flushfile#1{\getvalue{\??lf#1}}

\protect

\starttext

% test.mp:
%
% def test =
%   fill fullcircle scaled 3cm withcolor \MPcolor{red} ;
% enddef ;

\loadfile[test][test.mp]

\startMPcode
\flushfile{test}
test ;
\stopMPcode

\stoptext

But how on earth to explain al this functionality and the why/how to users -)

Maybe i should make a module m-misc.tex where such things can go into.

Hans
-------------------------------------------------------------------------
                                   Hans Hagen | PRAGMA ADE | pragma@wxs.nl
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------
                        information: http://www.pragma-ade.com/roadmap.pdf
                     documentation: http://www.pragma-ade.com/showcase.pdf
-------------------------------------------------------------------------