summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/expressg/n2mpsprl.prl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/expressg/n2mpsprl.prl')
-rw-r--r--Master/texmf-dist/doc/latex/expressg/n2mpsprl.prl43
1 files changed, 43 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/expressg/n2mpsprl.prl b/Master/texmf-dist/doc/latex/expressg/n2mpsprl.prl
new file mode 100644
index 00000000000..6dffe5c4a63
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/expressg/n2mpsprl.prl
@@ -0,0 +1,43 @@
+
+#!/usr/local/bin/perl -w
+
+###################################################################
+# Perl script: n2mpsprl.prl
+# Call as: n2mpsprl.prl filename
+# If filename is of the form basename.N, where N is an integer,
+# copies file basename.N to file basenameN.mps
+#
+# Copyright 2000, Mauro S. Costa and Peter R. Wilson
+##################################################################
+
+# Test for correct number of input parameters
+die "Invalid command line arguments.\nTry $0 <src> \n" if($#ARGV > 1);
+die "Invalid command line arguments.\nTry $0 <src> \n" if($#ARGV < 0);
+
+# Assign input file name to variable
+$input_file = $ARGV[0];
+
+## test if ends with a number, exit if not
+if ($input_file =~ /\w\.\d/) { ; } else { exit; }
+
+# Remove the "dot" from the string variable
+# holding the input file name
+$input_file =~ s/\.// ;
+
+# Create a list variable composed of the string variable holding
+# the concatenated input file name and the extension ".mps"
+@name_list = ($input_file,'.mps') ;
+
+# Join the string variables in the name_list variable into
+# a single string variable
+$output_file = join("",@name_list) ;
+
+# create a list variable composed to the parameters needed
+# for the system copy command excution
+@exec_list = ('cp', $ARGV[0], $output_file) ;
+
+# Execute the system copy ("cp") command
+system(@exec_list) ;
+
+############################ end perl script ##########################
+