summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorTaco Hoekwater <taco@elvenkind.com>2010-05-28 12:22:19 +0000
committerTaco Hoekwater <taco@elvenkind.com>2010-05-28 12:22:19 +0000
commitf92c7d663e4456c0685ad46cb9f192e0c1892f32 (patch)
treeef60ebd6466369ef3477d684e528e0decdaddb70 /Master/texmf-dist/scripts
parent6a603a72de517acee6c82d4d1334a4fc45041091 (diff)
make --rawmp the default (thus mptopdf never runs 'texexec' any more)
git-svn-id: svn://tug.org/texlive/trunk@18551 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rw-r--r--Master/texmf-dist/scripts/context/perl/mptopdf.pl34
1 files changed, 14 insertions, 20 deletions
diff --git a/Master/texmf-dist/scripts/context/perl/mptopdf.pl b/Master/texmf-dist/scripts/context/perl/mptopdf.pl
index 41d1ae1f7ef..ec08c5306b3 100644
--- a/Master/texmf-dist/scripts/context/perl/mptopdf.pl
+++ b/Master/texmf-dist/scripts/context/perl/mptopdf.pl
@@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $
#D \module
#D [ file=mptopdf.pl,
-#D version=2000.05.29,
+#D version=2010.05.28, % 2000.05.29
#D title=converting MP to PDF,
#D subtitle=\MPTOPDF,
#D author=Hans Hagen,
@@ -27,17 +27,20 @@ use File::Basename ;
$Getopt::Long::passthrough = 1 ; # no error message
$Getopt::Long::autoabbrev = 1 ; # partial switch accepted
-my $Help = my $Latex = my $RawMP = my $MetaFun = 0 ;
+my $Help = 0;
+my $Latex = 0;
+my $RawMP = 1;
+my $MetaFun = 0 ;
my $PassOn = '' ;
&GetOptions
( "help" => \$Help ,
- "rawmp" => \$RawMP,
+ "rawmp" => \$RawMP, # option is now default, but keep for compat
"metafun" => \$MetaFun,
- "passon" => \$PassOn,
+ "passon" => \$PassOn, # option is ignored, but keep for compat
"latex" => \$Latex ) ;
-my $program = "MPtoPDF 1.3.3" ;
+my $program = "MPtoPDF 1.4.0" ;
my $pattern = "@ARGV" ; # was $ARGV[0]
my $miktex = 0 ;
my $done = 0 ;
@@ -82,22 +85,13 @@ if (($pattern eq '')||($Help)) {
}
close (INP) ;
}
- if ($RawMP) {
- if ($Latex) {
- $rest .= " $mplatexswitch" ;
- }
- if ($MetaFun) {
- $mpbin = "mpost --progname=mpost --mem=metafun" ;
- } else {
- $mpbin = "mpost --mem=mpost" ;
- }
+ if ($Latex) {
+ $rest .= " $mplatexswitch" ;
+ }
+ if ($MetaFun) {
+ $mpbin = "mpost --progname=mpost --mem=metafun" ;
} else {
- if ($Latex) {
- $rest .= " $mplatexswitch" ;
- $mpbin = "mpost --mem=mpost" ;
- } else {
- $mpbin = "texexec --mptex $PassOn " ;
- }
+ $mpbin = "mpost --mem=mpost" ;
}
my $runner = "$mpbin $rest $pattern" ;
print "\n$program : running '$runner'\n" ;