[metapost] mpstoeps perl script

[Stephan Hennig]

Mau schrieb:

> Is there anyone in my situation who could point out to me if there is 
> some modification which is needed?

I don't know if this is related to your problem, but several weeks ago I
mailed a patch to Troy Henderson which made the script work on Windows here.

HTH,
Stephan Hennig


>> It did not work on my Windows machine, so please find
>> attached a patch that should solve that issue. The problem is, Window's
>> command line command separator is not a semicolon but an ampersand. I
>> split the calls to LaTeX and dvips into pieces. (Additionally, one could
>> save some file system operations by passing the LaTeX program on the
>> command line instead of creating, processing and finally removing a tex
>> file.)
>> 
>> Moreover, the patch removes a 'close(MYFILE);' line that seems redundant to me.

-------------- next part --------------
--- mpstoeps	Mon Feb 13 11:44:15 2006
+++ mpstoeps.pl	Fri Feb 17 15:20:05 2006
@@ -79,6 +79,6 @@
 print MYFILE "\\end{document}";
-close(MYFILE);
-$command="latex --interaction=nonstopmode $basename.tex > null;
-dvips -T $width"."bp,$height"."bp -E -q -o $basename.eps $basename.dvi > null";
 close MYFILE;
+$command="latex --interaction=nonstopmode $basename.tex > null";
+system($command);
+$command="dvips -T $width"."bp,$height"."bp -E -q -o $basename.eps $basename.dvi > null";
 system($command);