summaryrefslogtreecommitdiff
path: root/support/psrip
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/psrip
Initial commit
Diffstat (limited to 'support/psrip')
l---------support/psrip/README1
-rwxr-xr-xsupport/psrip/psrip111
-rw-r--r--support/psrip/psrip.1240
-rw-r--r--support/psrip/readme.txt40
4 files changed, 392 insertions, 0 deletions
diff --git a/support/psrip/README b/support/psrip/README
new file mode 120000
index 0000000000..0d79d56d9f
--- /dev/null
+++ b/support/psrip/README
@@ -0,0 +1 @@
+readme.txt \ No newline at end of file
diff --git a/support/psrip/psrip b/support/psrip/psrip
new file mode 100755
index 0000000000..9fa00fc108
--- /dev/null
+++ b/support/psrip/psrip
@@ -0,0 +1,111 @@
+#!/usr/bin/perl -w
+#
+# 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.
+#
+# Author : Christian Lackas (delta@clackas.de)
+# Webpage: http://www.clackas.de/html/perl.html
+# CTAN : http://www.dante.de/tex-archive/support/psrip/
+# Version: 1.3
+
+=head1 NAME
+
+psrip - extracts images from postscript-files
+
+=head1 SYNOPSIS
+
+psrip [B<-d> I<dir>] I<psfile(s)>
+
+extract images in I<psfile(s)> into current directory
+or I<dir> if given.
+
+=head2 Examples
+
+psrip foil.ps
+ Extract images from foil.ps into current directory.
+
+psrip B<-d> images foil1.ps foil2.ps TeX/*.ps
+ Extract images of these ps-files into directory I<images>.
+
+=head1 DESCRIPTION
+
+The script saves the lines between I<'%%BeginDocument: name'>
+and I<'%%EndDocument'> to a new file named I<dir/name>.
+
+=head1 BUGS
+
+If there is no 'BoundingBox' specified in the extracted image you
+have to insert it by hand. E.g. for DIN-a4 size:
+ %%BoundingBox: 0 0 596 842
+
+=head1 AUTHOR
+
+Christian Lackas <F<delta@clackas.de>>, 10 December 1999.
+
+This tool is dedicated to Nikolay 'Snake' Sturm.
+
+Thanks to Rolf Niepraschk for his help in publishing an bug
+reporting.
+
+
+=head1 LICENSE
+
+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.
+
+=cut
+
+use strict;
+my ($dir,$count,$verb) = qw(. 0);
+
+print 'psrip v1.3 by Christian Lackas (delta@clackas.de, http://www.clackas.de)',"\n";
+
+unless (@ARGV) {
+ print STDERR<<EOTEXT;
+Usage : psrip [-d dir] psfile(s)
+ extracts images from postscriptfiles and saves them in
+ the current directory or <dir> if given.
+Example: psrip -d images skript1.ps skript2.ps
+EOTEXT
+ exit
+}
+
+if ($ARGV[0] eq '-d') {
+ shift; $dir = shift;
+ unless (-d $dir) {die "Cannot find directory '$dir'.\n"}
+ print "Saving images to directory '$dir'.\n"
+}
+
+while (@ARGV) {
+ my $file = shift;
+ open FILE, $file or warn "Cannot open $file: $!\n" and next;
+ print "Checking $file.\n";
+ my $bb;
+ while (<FILE>) {
+# $bb = $_ if /^%%BoundingBox:/;
+ if (/^%%BeginDocument: (.*\.(ps|eps|fig))/) {
+ my $name = $1;
+ $name =~ s!/!_!g;
+ print " Found image '$name'.\n";
+ $name = "$dir/$name";
+ if (-e "$name") {print " File '$name' exists (skipping).\n"} else {
+ open(OUT,">$name") || die "Cannot open $name: $!\n";
+ ++$count; $_=<FILE>; print OUT;
+ print OUT '%%psrip: (c) delta@clackas.de, http://www.clackas.de/',"\n";
+ print OUT "%%psrip: borrowed from $file on ",scalar localtime,"\n";
+# print OUT $bb if defined $bb;
+ while (<FILE>) {
+ last if /^%%EndDocument/;
+ print OUT;
+ }
+ close(OUT);
+ }
+ }
+ }
+ close(FILE);
+}
+print "Finished ($count images extracted)\n";
diff --git a/support/psrip/psrip.1 b/support/psrip/psrip.1
new file mode 100644
index 0000000000..bf101e500c
--- /dev/null
+++ b/support/psrip/psrip.1
@@ -0,0 +1,240 @@
+.rn '' }`
+''' $RCSfile$$Revision$$Date$
+'''
+''' $Log$
+'''
+.de Sh
+.br
+.if t .Sp
+.ne 5
+.PP
+\fB\\$1\fR
+.PP
+..
+.de Sp
+.if t .sp .5v
+.if n .sp
+..
+.de Ip
+.br
+.ie \\n(.$>=3 .ne \\$3
+.el .ne 3
+.IP "\\$1" \\$2
+..
+.de Vb
+.ft CW
+.nf
+.ne \\$1
+..
+.de Ve
+.ft R
+
+.fi
+..
+'''
+'''
+''' Set up \*(-- to give an unbreakable dash;
+''' string Tr holds user defined translation string.
+''' Bell System Logo is used as a dummy character.
+'''
+.tr \(*W-|\(bv\*(Tr
+.ie n \{\
+.ds -- \(*W-
+.ds PI pi
+.if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
+.if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
+.ds L" ""
+.ds R" ""
+''' \*(M", \*(S", \*(N" and \*(T" are the equivalent of
+''' \*(L" and \*(R", except that they are used on ".xx" lines,
+''' such as .IP and .SH, which do another additional levels of
+''' double-quote interpretation
+.ds M" """
+.ds S" """
+.ds N" """""
+.ds T" """""
+.ds L' '
+.ds R' '
+.ds M' '
+.ds S' '
+.ds N' '
+.ds T' '
+'br\}
+.el\{\
+.ds -- \(em\|
+.tr \*(Tr
+.ds L" ``
+.ds R" ''
+.ds M" ``
+.ds S" ''
+.ds N" ``
+.ds T" ''
+.ds L' `
+.ds R' '
+.ds M' `
+.ds S' '
+.ds N' `
+.ds T' '
+.ds PI \(*p
+'br\}
+.\" If the F register is turned on, we'll generate
+.\" index entries out stderr for the following things:
+.\" TH Title
+.\" SH Header
+.\" Sh Subsection
+.\" Ip Item
+.\" X<> Xref (embedded
+.\" Of course, you have to process the output yourself
+.\" in some meaninful fashion.
+.if \nF \{
+.de IX
+.tm Index:\\$1\t\\n%\t"\\$2"
+..
+.nr % 0
+.rr F
+.\}
+.TH PSRIP 1 "perl 5.005, patch 03" "15/Dec/1999" "User Contributed Perl Documentation"
+.UC
+.if n .hy 0
+.if n .na
+.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
+.de CQ \" put $1 in typewriter font
+.ft CW
+'if n "\c
+'if t \\&\\$1\c
+'if n \\&\\$1\c
+'if n \&"
+\\&\\$2 \\$3 \\$4 \\$5 \\$6 \\$7
+'.ft R
+..
+.\" @(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2
+. \" AM - accent mark definitions
+.bd B 3
+. \" fudge factors for nroff and troff
+.if n \{\
+. ds #H 0
+. ds #V .8m
+. ds #F .3m
+. ds #[ \f1
+. ds #] \fP
+.\}
+.if t \{\
+. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
+. ds #V .6m
+. ds #F 0
+. ds #[ \&
+. ds #] \&
+.\}
+. \" simple accents for nroff and troff
+.if n \{\
+. ds ' \&
+. ds ` \&
+. ds ^ \&
+. ds , \&
+. ds ~ ~
+. ds ? ?
+. ds ! !
+. ds /
+. ds q
+.\}
+.if t \{\
+. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
+. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
+. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
+. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
+. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
+. ds ? \s-2c\h'-\w'c'u*7/10'\u\h'\*(#H'\zi\d\s+2\h'\w'c'u*8/10'
+. ds ! \s-2\(or\s+2\h'-\w'\(or'u'\v'-.8m'.\v'.8m'
+. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
+. ds q o\h'-\w'o'u*8/10'\s-4\v'.4m'\z\(*i\v'-.4m'\s+4\h'\w'o'u*8/10'
+.\}
+. \" troff and (daisy-wheel) nroff accents
+.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
+.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
+.ds v \\k:\h'-(\\n(.wu*9/10-\*(#H)'\v'-\*(#V'\*(#[\s-4v\s0\v'\*(#V'\h'|\\n:u'\*(#]
+.ds _ \\k:\h'-(\\n(.wu*9/10-\*(#H+(\*(#F*2/3))'\v'-.4m'\z\(hy\v'.4m'\h'|\\n:u'
+.ds . \\k:\h'-(\\n(.wu*8/10)'\v'\*(#V*4/10'\z.\v'-\*(#V*4/10'\h'|\\n:u'
+.ds 3 \*(#[\v'.2m'\s-2\&3\s0\v'-.2m'\*(#]
+.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
+.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
+.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
+.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
+.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
+.ds ae a\h'-(\w'a'u*4/10)'e
+.ds Ae A\h'-(\w'A'u*4/10)'E
+.ds oe o\h'-(\w'o'u*4/10)'e
+.ds Oe O\h'-(\w'O'u*4/10)'E
+. \" corrections for vroff
+.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
+.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
+. \" for low resolution devices (crt and lpr)
+.if \n(.H>23 .if \n(.V>19 \
+\{\
+. ds : e
+. ds 8 ss
+. ds v \h'-1'\o'\(aa\(ga'
+. ds _ \h'-1'^
+. ds . \h'-1'.
+. ds 3 3
+. ds o a
+. ds d- d\h'-1'\(ga
+. ds D- D\h'-1'\(hy
+. ds th \o'bp'
+. ds Th \o'LP'
+. ds ae ae
+. ds Ae AE
+. ds oe oe
+. ds Oe OE
+.\}
+.rm #[ #] #H #V #F C
+.SH "NAME"
+psrip \- extracts images from postscript-files
+.SH "SYNOPSIS"
+psrip [\fB\-d\fR \fIdir\fR] \fIpsfile(s)\fR
+.PP
+extract images in \fIpsfile(s)\fR into current directory
+or \fIdir\fR if given.
+.Sh "Examples"
+psrip foil.ps
+ Extract images from foil.ps into current directory.
+.PP
+psrip \fB\-d\fR images foil1.ps foil2.ps TeX/*.ps
+ Extract images of these ps-files into directory \fIimages\fR.
+.SH "DESCRIPTION"
+The script saves the lines between \fI'%%BeginDocument: name\*(R'\fR
+and \fI'%%EndDocument\*(R'\fR to a new file named \fIdir/name\fR.
+.SH "BUGS"
+If there is no \*(L'BoundingBox\*(R' specified in the extracted image you
+have to insert it by hand. E.g. for DIN\-a4 size:
+ %%BoundingBox: 0 0 596 842
+.SH "AUTHOR"
+Christian Lackas <\fIdelta@clackas.de\fR>, 10 December 1999.
+.PP
+This tool is dedicated to Nikolay \*(L'Snake\*(R' Sturm.
+.PP
+Thanks to Rolf Niepraschk for his help in publishing an bug
+reporting.
+.SH "LICENSE"
+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.
+
+.rn }` ''
+.IX Title "PSRIP 1"
+.IX Name "psrip - extracts images from postscript-files"
+
+.IX Header "NAME"
+
+.IX Header "SYNOPSIS"
+
+.IX Subsection "Examples"
+
+.IX Header "DESCRIPTION"
+
+.IX Header "BUGS"
+
+.IX Header "AUTHOR"
+
+.IX Header "LICENSE"
+
diff --git a/support/psrip/readme.txt b/support/psrip/readme.txt
new file mode 100644
index 0000000000..fdd821fcf2
--- /dev/null
+++ b/support/psrip/readme.txt
@@ -0,0 +1,40 @@
+NAME
+ psrip - extracts images from postscript-files
+
+SYNOPSIS
+ psrip [-d *dir*] *psfile(s)*
+
+ extract images in *psfile(s)* into current directory or *dir* if
+ given.
+
+ Examples
+
+ psrip foil.ps Extract images from foil.ps into current
+ directory.
+
+ psrip -d images foil1.ps foil2.ps TeX/*.ps Extract images of
+ these ps-files into directory *images*.
+
+DESCRIPTION
+ The script saves the lines between *'%%BeginDocument: name'* and
+ *'%%EndDocument'* to a new file named *dir/name*.
+
+BUGS
+ If there is no 'BoundingBox' specified in the extracted image
+ you have to insert it by hand. E.g. for DIN-a4 size:
+ %%BoundingBox: 0 0 596 842
+
+AUTHOR
+ Christian Lackas <delta@clackas.de>, 10 December 1999.
+
+ This tool is dedicated to Nikolay 'Snake' Sturm.
+
+ Thanks to Rolf Niepraschk for his help in publishing an bug
+ reporting.
+
+LICENSE
+ 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.
+