From 7ced72e836be0e1f7b0db873796a04941749bf10 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 20 May 2007 20:54:44 +0000 Subject: try new mptopdf git-svn-id: svn://tug.org/texlive/trunk@4327 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/context/perl/mptopdf.pl | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'Master/texmf-dist/scripts/context') diff --git a/Master/texmf-dist/scripts/context/perl/mptopdf.pl b/Master/texmf-dist/scripts/context/perl/mptopdf.pl index b1589a9d39e..a6b946baa4d 100644 --- a/Master/texmf-dist/scripts/context/perl/mptopdf.pl +++ b/Master/texmf-dist/scripts/context/perl/mptopdf.pl @@ -37,12 +37,11 @@ my $PassOn = '' ; "passon" => \$PassOn, "latex" => \$Latex ) ; -my $program = "MPtoPDF 1.3.2" ; +my $program = "MPtoPDF 1.3.3" ; my $pattern = "@ARGV" ; # was $ARGV[0] my $miktex = 0 ; my $done = 0 ; my $report = '' ; -my $texlatexswitch = " --tex=latex --format=latex " ; my $mplatexswitch = " --tex=latex " ; my $dosish = ($Config{'osname'} =~/^(ms)?dos|^os\/2|^mswin/i) ; @@ -94,12 +93,15 @@ if (($pattern eq '')||($Help)) { } } else { if ($Latex) { - $rest .= " $texlatexswitch" ; + $rest .= " $mplatexswitch" ; + $mpbin = "mpost --mem=mpost" ; + } else { + $mpbin = "texexec --mptex $PassOn " ; } - $mpbin = "texexec --mptex $PassOn" ; } - print "\n$program : running '$mpbin'\n" ; - my $error = system ("$mpbin $rest $pattern") ; + my $runner = "$mpbin $rest $pattern" ; + print "\n$program : running '$runner'\n" ; + my $error = system ($runner) ; if ($error) { print "\n$program : error while processing mp file\n" ; exit ; -- cgit v1.2.3