summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2013-04-10 08:52:58 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2013-04-10 08:52:58 +0000
commit90ecd727c400855a4be11476b5e3a101e704ff5c (patch)
tree7c758f9cb78bed46be9b0d6115ae83c1d4f6e100
parent8abe57d4e933e9e001ad729c004a610706135113 (diff)
mptopdf: Remove unused copy, another one is in context/perl/
git-svn-id: svn://tug.org/texlive/trunk@29819 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/texlive/linked_scripts/mptopdf/perl/mptopdf.pl160
1 files changed, 0 insertions, 160 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/mptopdf/perl/mptopdf.pl b/Build/source/texk/texlive/linked_scripts/mptopdf/perl/mptopdf.pl
deleted file mode 100644
index 42db9001ec4..00000000000
--- a/Build/source/texk/texlive/linked_scripts/mptopdf/perl/mptopdf.pl
+++ /dev/null
@@ -1,160 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
- if 0;
-
-# MikTeX users can set environment variable TEXSYSTEM to "miktex".
-
-#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" ;
-}