From 90ecd727c400855a4be11476b5e3a101e704ff5c Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Wed, 10 Apr 2013 08:52:58 +0000 Subject: mptopdf: Remove unused copy, another one is in context/perl/ git-svn-id: svn://tug.org/texlive/trunk@29819 c570f23f-e606-0410-a88d-b1316a301751 --- .../texlive/linked_scripts/mptopdf/perl/mptopdf.pl | 160 --------------------- 1 file changed, 160 deletions(-) delete mode 100644 Build/source/texk/texlive/linked_scripts/mptopdf/perl/mptopdf.pl 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 () { - 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 () { - 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" ; -} -- cgit v1.2.3