psrip-1.3/0000755000232200023220000000000010510407563012701 5ustar pbuilderpbuilderpsrip-1.3/psrip0000755000232200023220000000573107025752101013770 0ustar pbuilderpbuilder#!/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] I extract images in I into current directory or I 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. =head1 DESCRIPTION The script saves the lines between I<'%%BeginDocument: name'> and I<'%%EndDocument'> to a new file named I. =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 >, 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< 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 () { # $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; $_=; 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 () { last if /^%%EndDocument/; print OUT; } close(OUT); } } } close(FILE); } print "Finished ($count images extracted)\n"; psrip-1.3/psrip.10000644000232200023220000001260607025752116014131 0ustar pbuilderpbuilder.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" psrip-1.3/debian/0000755000232200023220000000000010760403771014127 5ustar pbuilderpbuilderpsrip-1.3/debian/copyright0000644000232200023220000000132010760403660016053 0ustar pbuilderpbuilderThis package was debianized by Jens Schmalzing on Mon, 1 Jul 2002 19:03:22 +0200. It was downloaded from http://www.clackas.de/html/perl.html Upstream Author: Christian Lackas (delta@clackas.de) Copyright: Presumably 1999 Christian Lackas, but the source itself contains only the GPL-legend and no proper copyright notice. 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. On Debian systems, the GNU General Public License can be found in the file /usr/share/common-licenses/GPL. psrip-1.3/debian/dirs0000644000232200023220000000003307510106104014774 0ustar pbuilderpbuilderusr/bin usr/share/man/man1 psrip-1.3/debian/rules0000755000232200023220000000202510742751305015205 0ustar pbuilderpbuilder#!/usr/bin/make -f # Sample debian/rules that uses debhelper. # GNU copyright 1997 to 1999 by Joey Hess. # Uncomment this to turn on verbose mode. #export DH_VERBOSE=1 configure: configure-stamp configure-stamp: dh_testdir touch configure-stamp build: build-stamp build-stamp: configure-stamp dh_testdir touch build-stamp clean: dh_testdir dh_testroot rm -f build-stamp configure-stamp dh_clean install: build dh_testdir dh_testroot dh_clean -k dh_installdirs install -o root -g root -m 755 psrip $(CURDIR)/debian/psrip/usr/bin # Build architecture-independent files here. binary-indep: build install dh_testdir dh_testroot dh_installdocs dh_installman psrip.1 dh_installchangelogs dh_link dh_strip dh_compress dh_fixperms dh_installdeb dh_perl dh_shlibdeps dh_gencontrol dh_md5sums dh_builddeb # We have nothing to do by default. # Build architecture-dependent files here. binary-arch: build install binary: binary-indep binary-arch .PHONY: build clean binary-indep binary-arch binary install configure psrip-1.3/debian/README.Debian0000644000232200023220000000032507510112333016156 0ustar pbuilderpbuilderpsrip for Debian ---------------- This package is dedicated to Robert Dahlke, who offered me some cake in exchange for the Debianization. -- Jens Schmalzing , Mon, 1 Jul 2002 19:41:19 +0200 psrip-1.3/debian/changelog0000644000232200023220000000342010760403750015775 0ustar pbuilderpbuilderpsrip (1.3-7) unstable; urgency=low * debian/control (Build-Depends): Require version 5 of debhelper to match debian/compat. * debian/copyright: Provide proper copyright information. -- Thomas Bushnell, BSG Sun, 24 Feb 2008 19:12:08 -0500 psrip (1.3-6) unstable; urgency=low * debian/rules (binary-arch): Do nothing here. (binary-indep): Do everything here that was in binary-arch. Fixes lintian warning binary-arch-rules-but-pkg-is-arch-indep. * debian/control (Standards-Version): Update to 3.7.3. No changes needed. * debian/source.lintian-overrides: Override native-package-with-dash-version. -- Thomas Bushnell, BSG Mon, 14 Jan 2008 16:25:10 -0500 psrip (1.3-5) unstable; urgency=low * debian/rules (DH_COMPAT): Remove declaration. * debian/compat: New file (level 5). * debian/control (Depends): Add ${misc:Depends}. * debian/control (Standards-Version): Update to 3.7.2 * debian/control (Build-Depends-Indep): Remove debhelper. (Build-Depends): Add debhelper. * debian/copyright: Remove "(s)" from upstream developer's name. -- Thomas Bushnell, BSG Tue, 3 Oct 2006 00:28:22 -0700 psrip (1.3-4) unstable; urgency=low * debian/watch: New file. -- Thomas Bushnell, BSG Fri, 30 Sep 2005 21:41:03 -0700 psrip (1.3-3) unstable; urgency=low * New maintainer. Thanks for all your work, Jens. -- Thomas Bushnell, BSG Fri, 2 Sep 2005 15:47:18 -0700 psrip (1.3-2) unstable; urgency=low * Improved description (closes: Bug#152460). -- Jens Schmalzing Wed, 10 Jul 2002 10:26:06 +0200 psrip (1.3-1) unstable; urgency=low * Initial Release. -- Jens Schmalzing Mon, 1 Jul 2002 19:03:22 +0200 psrip-1.3/debian/control0000644000232200023220000000064210760403330015523 0ustar pbuilderpbuilderSource: psrip Section: text Priority: optional Maintainer: Thomas Bushnell, BSG Build-Depends: debhelper (>= 5) Standards-Version: 3.7.3 Package: psrip Architecture: all Depends: ${perl:Depends} ${misc:Depends} Description: Extract images from PostScript files The script scans a postscript file and saves the lines between '%%BeginDocument: name' and '%%EndDocument' to a new file named dir/name. psrip-1.3/debian/watch0000644000232200023220000000010010333574024015143 0ustar pbuilderpbuilderversion=3 http://www.lackas.net/assets/data/psrip-(.*)\.tar\.gz psrip-1.3/debian/compat0000644000232200023220000000000210510407742015320 0ustar pbuilderpbuilder5 psrip-1.3/debian/source.lintian-overrides0000644000232200023220000000023210742751614021006 0ustar pbuilderpbuilder# psrip is not really a native package, but we package it as one # because upstream is just a single file. psrip source: native-package-with-dash-version