| Current File : //usr/bin/mptopdf |
#! /usr/bin/perl -w
# MikTeX users can set environment variable TEXSYSTEM to "miktex".
# There have been suggestions to patch this script for dealing with different
# output templates (a relative new metapost feature) but these have given
# unwanted side effects. One can always wrap this script in another script
# to deal with whatever patterns needed. We won't touch what has worked for
# ages. (December 2019)
#D \module
#D [ file=mptopdf.pl,
#D version=2010.05.28, % 2000.05.29
#D title=converting MP to PDF,
#D subtitle=\MPTOPDF,
#D author=Hans Hagen,
#D date=\currentdate,
#D url=www.pragma-ade.nl,
#D copyright={PRAGMA ADE / Hans Hagen \& Ton Otten}]
#C
#C This module is part of the \CONTEXT\ macro||package and is
#C therefore copyrighted by \PRAGMA. See licen-en.pdf for
#C details.
# use File::Copy ; # not in every perl
use Config ;
use Getopt::Long ;
use strict ;
use File::Basename ;
$Getopt::Long::passthrough = 1 ; # no error message
$Getopt::Long::autoabbrev = 1 ; # partial switch accepted
my $Help = 0 ;
my $Latex = 0 ;
my $TeXexec = 0 ;
my $RawMP = 1 ;
my $MetaFun = 0 ;
my $PassOn = '' ;
&GetOptions
( "help" => \$Help ,
"rawmp" => \$RawMP, # option is now default, but keep for compat
"metafun" => \$MetaFun,
"passon" => \$PassOn, # option is ignored, but keep for compat
"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 ));
if ($ENV{"TEXSYSTEM"}) {
$miktex = ($ENV{"TEXSYSTEM"} =~ /miktex/io) ;
}
my @files ;
my $command = my $mpbin = '' ;
# agressive copy, works for open files like in gs
sub CopyFile {
my ($From,$To) = @_ ;
return unless open(INP,"<$From") ;
return unless open(OUT,">$To") ;
binmode INP ;
binmode OUT ;
while (<INP>) {
print OUT $_ ;
}
close (INP) ;
close (OUT) ;
}
if (($pattern eq '')||($Help)) {
print "\n$program : provide MP output file (or pattern)\n" ;
exit ;
} elsif ($pattern =~ /\.mp$/io) {
shift @ARGV ; my $rest = join(" ", @ARGV) ;
if (open(INP,$pattern)) {
while (<INP>) {
if (/(documentstyle|documentclass|begin\{document\})/io) {
$Latex = 1 ; last ;
}
}
close (INP) ;
}
if ($Latex) {
$rest .= " $mplatexswitch" ;
}
if ($TeXexec) {
$rest .= " $texexecswitch" ;
}
if ($MetaFun) {
$mpbin = "mpost --progname=mpost --mem=metafun" ;
} else {
$mpbin = "mpost --mem=mpost" ;
}
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 1 ;
} else {
$pattern =~ s/\.mp$//io ;
@files = glob "$pattern.*" ;
}
} elsif (-e $pattern) {
@files = ($pattern) ;
} elsif ($pattern =~ /.\../o) {
@files = glob "$pattern" ;
} else {
$pattern .= '.*' ;
@files = glob "$pattern" ;
}
foreach my $file (@files) {
$_ = $file ;
if (s/\.(\d+|mps)$// && -e $file) {
if ($miktex) {
$command = "pdftex -undump=mptopdf" ;
} else {
$command = "pdftex -fmt=mptopdf -progname=context" ;
}
if ($dosish) {
$command = "$command \\relax $file" ;
} else {
$command = "$command \\\\relax $file" ;
}
my $error = system($command) ;
if ($error) {
print "\n$program : error while processing tex file\n" ;
exit 1 ;
}
my $pdfsrc = basename($_).".pdf";
rename ($pdfsrc, "$_-$1.pdf") ;
if (-e $pdfsrc) {
CopyFile ($pdfsrc, "$_-$1.pdf") ;
}
if ($done) {
$report .= " +" ;
}
$report .= " $_-$1.pdf" ;
++$done ;
}
}
if ($report eq '') {
$report = '*' ;
}
if ($done) {
print "\n$program : $pattern is converted to$report\n" ;
} else {
print "\n$program : no filename matches $pattern\n" ;
}