summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-09-27 18:11:21 +0000
committerKarl Berry <karl@freefriends.org>2006-09-27 18:11:21 +0000
commite95557faa7717d1933720a2cda89a99c6aab1dd7 (patch)
treec1867e637598f20d71977e893a6bf29ad95c1483 /Master/texmf-dist/doc/metapost
parentc31daf21a745dc6c14ad116918ba562d16727493 (diff)
exteps update (27sep06)
git-svn-id: svn://tug.org/texlive/trunk@2208 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost')
-rw-r--r--Master/texmf-dist/doc/metapost/exteps/README8
-rw-r--r--Master/texmf-dist/doc/metapost/exteps/delfin108
-rw-r--r--Master/texmf-dist/doc/metapost/exteps/exteps.pdfbin116101 -> 179682 bytes
3 files changed, 112 insertions, 4 deletions
diff --git a/Master/texmf-dist/doc/metapost/exteps/README b/Master/texmf-dist/doc/metapost/exteps/README
index e1f96065426..2710a87f200 100644
--- a/Master/texmf-dist/doc/metapost/exteps/README
+++ b/Master/texmf-dist/doc/metapost/exteps/README
@@ -1,5 +1,5 @@
-exteps is a module for inclusion of external EPS figures into MetaPost
-figures. It is written solely in MetaPost, and whence does not require
-any post processing of the MetaPost output.
+exteps is a module for including external EPS figures into MetaPost
+figures. It is written entirely in MetaPost, and therefore does not
+require any post processing of the MetaPost output.
-Palle Jørgensen \ No newline at end of file
+Palle Jorgensen
diff --git a/Master/texmf-dist/doc/metapost/exteps/delfin b/Master/texmf-dist/doc/metapost/exteps/delfin
new file mode 100644
index 00000000000..e3f7c2b692d
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/exteps/delfin
@@ -0,0 +1,108 @@
+#! /usr/bin/perl -w
+#
+# Program for inserting EPS files into MetaPost output files. Requires
+# the extpeps module for MetaPost -- and it is probably not even
+# necessary to run this program
+#
+# Copyright (C) 2005 Palle Jorgensen <hamselv@pallej.dk>
+# http://pallej.dk/exteps/
+# http://pallej.dk/
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+# 02111-1307, USA.
+#
+# Bugs and comments can be reported to Palle Jorgensen,
+# <hamselv@pallej.dk>.
+#
+# This is version 0.12 Mon Dec 26 2005
+
+use strict;
+our($opt_h,$opt_q,$opt_v,$opt_V,$opt_i);
+
+use Getopt::Std;
+getopts('-helpvqVi');
+
+use Env qw(HOME);
+
+my $progversion = 0.12;
+my $progname = "delfin";
+my $prognamelong = "Delfin, the Exteps Large File INserter";
+if ($opt_h) { version(); help(); exit; }
+if ($opt_v) { version(); exit; }
+if ($opt_V) { versionbrief(); exit; }
+
+unless ( $opt_q ) {
+ print "This is $progname version $progversion\n";
+ print "$prognamelong\n";
+}
+
+foreach ( @ARGV ) {
+ my $mpsfile = $_;
+ my $elffound = 0;
+ open (MPSIN, "$mpsfile") or die "Cannot open file $mpsfile";
+ my @OUT;
+ foreach ( <MPSIN> ) {
+ if ($_ =~ /^%% MetaPost exteps large file->/) {
+ $elffound = 1;
+ my $epsfile = (split(/->|\n/,$_))[1];
+ unless ( $opt_q ) {
+ print "Inserting $epsfile into $mpsfile\n";
+ }
+ open(EPS, "$epsfile") or die "cannot open file $epsfile";
+ push (@OUT, <EPS>);
+ } else {
+ push (@OUT, $_);
+ }
+ }
+ close MPSIN;
+ if ( $elffound ) {
+ open (MPSOUT, ">$_") or die "Cannot write to file $_";
+ print MPSOUT @OUT;
+ close MPSOUT;
+ }
+ else {
+ unless ( $opt_q ) {
+ print "No file to insert into $mpsfile\n"
+ }
+ }
+}
+
+sub help {
+ print << "EOF";
+Usage:
+$progname [options] file.n [file.m [file.l ... ]]
+Options:
+ -h\tPrint this message end exit
+ -q\tBe quiet
+ -i\tIgnore configuration file
+ -v\tDisplay version and license and exit
+ -V\tDisplay version number and exit
+See exteps.pdf for further documentation
+(texdoc exteps on most unix systems)
+EOF
+}
+
+sub version {
+ print << "EOF"
+This is $progname version $progversion
+$prognamelong
+Copyright 2005 by Palle Jorgensen
+The license of $progname is GNU General Public License (GPL)
+EOF
+}
+
+sub versionbrief {
+ print "$progversion\n";
+}
diff --git a/Master/texmf-dist/doc/metapost/exteps/exteps.pdf b/Master/texmf-dist/doc/metapost/exteps/exteps.pdf
index 50bdeb3d7bf..007b5864de1 100644
--- a/Master/texmf-dist/doc/metapost/exteps/exteps.pdf
+++ b/Master/texmf-dist/doc/metapost/exteps/exteps.pdf
Binary files differ