From 3019c4ccfb0d984b45670a86d2400a6aacfbaa68 Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Mon, 31 Jan 2011 00:18:53 +0200
Subject: beta 2011.01.18 19:34

---
 scripts/context/perl/mptopdf.pl | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

(limited to 'scripts/context/perl')

diff --git a/scripts/context/perl/mptopdf.pl b/scripts/context/perl/mptopdf.pl
index ec08c5306..374d8912a 100644
--- a/scripts/context/perl/mptopdf.pl
+++ b/scripts/context/perl/mptopdf.pl
@@ -38,14 +38,16 @@ my $PassOn = '' ;
     "rawmp"   => \$RawMP, # option is now default, but keep for compat
     "metafun" => \$MetaFun,
     "passon"  => \$PassOn, # option is ignored, but keep for compat
-    "latex"   => \$Latex ) ;
-
-my $program = "MPtoPDF 1.4.0" ;
-my $pattern = "@ARGV" ; # was $ARGV[0]
-my $miktex  = 0 ;
-my $done    = 0 ;
-my $report  = '' ;
+    "latex"   => \$Latex,
+    "texexec" => \$TeXexec) ;
+
+my $program       = "MPtoPDF 1.4.1" ;
+my $pattern       = "@ARGV" ; # was $ARGV[0]
+my $miktex        = 0 ;
+my $done          = 0 ;
+my $report        = '' ;
 my $mplatexswitch = " --tex=latex " ;
+my $texexecswitch = " --tex=\"texexec --batch --once --nomp --mptex\" " # untested
 
 my $dosish      = ($Config{'osname'} =~/^(ms)?dos|^os\/2|^mswin/i) ;
 my $escapeshell = (($ENV{'SHELL'}) && ($ENV{'SHELL'} =~ m/sh/i ));
@@ -88,6 +90,9 @@ if (($pattern eq '')||($Help)) {
     if ($Latex) {
       $rest .= " $mplatexswitch" ;
     }
+    if ($TeXexec) {
+      $rest .= " $texexecswitch" ;
+    }
     if ($MetaFun) {
       $mpbin = "mpost --progname=mpost --mem=metafun" ;
     } else {
-- 
cgit v1.2.3