Hi.

I'm running Debian/GNU (unstable) and was trying to get the following
file to work:

\setupcolors[state=start]
\starttext
Bla
\startuseMPgraphic{bla}
  u := 1cm;
  z0 = (0,0);
  z1 = (0,1)*u;
  z2 = (1,1)*u;
  z3 = (1,0)*u;
  draw z0--z1--z2--z3--cycle;
  z4 = whatever[z0,z2] = whatever[z1,z3];
  dotlabel.bot(btex $z_4$ etex,z4);
\stopuseMPgraphic
\startuseMPgraphic{blubb}
  z0 = (0,0);
  z1 = (0,1)*u;
  z2 = (1,1)*u;
  z3 = (1,0)*u;
  draw z0--z1--z2--z3--cycle;
  z4 = whatever[z0,z2] = whatever[z1,z3];
  dotlabel.bot(btex $z_{42}$ etex,z4);
\stopuseMPgraphic
\useMPgraphic{bla}
\useMPgraphic{blubb}
Blubb
\stoptext

When the dotlabel-Lines do not use btex..etex, "texexec --pdf" works
just fine, creating mpgraph.{1,2}. But if I use btex, the files are
not created. I think I found the reason for this. When texexec calls
etex to typeset the labels, the file mpgraph.mp is overwritten with a
simple "end." Now, texexec keeps a backup of it but seems to restore
it too late. I've moved the specific lines futher ahead. Now
everything seems to work fine.

Is this a correct patch or am I missing something?

Greetings,
  Dennis

Patch follows... (texexec version is 3.2)

--- texexec.pl.orig     2003-03-29 15:39:32.000000000 +0100
+++ texexec.pl  2003-03-29 15:42:55.000000000 +0100
@@ -2200,6 +2200,9 @@
                    rename $MpTex, $MpBck ;
                    unlink $MpDvi } }
             print "              metapost : $MpName\n" ;
+             if (-e $MpKep)
+               { unlink ($MpFile) ;
+                 rename ($MpKep, $MpFile) } 
             my $cmd = "$own_quote$MpExecutable$own_quote" ;
             if ($EnterBatchMode)
               { $cmd .= " $MpBatchFlag " }
@@ -2218,9 +2221,7 @@
              { while (/^l\.(\d+)\s/gmois)
                 { print " error in metapost run : $MpName.mp:$1\n" } }
             unlink "mptrace.tmp" ; rename ($MpFile, "mptrace.tmp") ;
-            if (-e $MpKep)
-              { unlink ($MpFile) ;
-                rename ($MpKep, $MpFile) } } }
+            } }
 
 sub RunMPX
   { my $MpName = shift ; $MpName =~ s/\..*$//o ;
_______________________________________________
ntg-context mailing list
[EMAIL PROTECTED]
http://www.ntg.nl/mailman/listinfo/ntg-context

Reply via email to