#!/usr/bin/perl
#
# Copyright (C) 2004 Daniele Giacomini daniele@swlibero.org
#
# 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., 675 Mass Ave, Cambridge, MA 02139, USA.
#
#
#
#
#
# cat FILE_PS | ps-latex-picture-save
#
# Will make a copy of all incorporated EPS file inside a PostScript one.
# The source PostScript file must be made from LaTeX and Dvips.
#
my ($line)    = "";
my ($picture) = "";
my ($save)    = 0;
#
while ($line = <STDIN>)
  {
    if    ($line =~ m/^\%\%BeginDocument: (\S+)$/)
      {
        $save = 1;
	$picture = $1;
	open (PICTURE, "> $picture");
      }
    elsif ($line =~ m/^\%\%EndDocument$/)
      {
	close (PICTURE);
	$picture = "";
        $save = 0;
      }
    else
      {
        if ($save)
	  {
	    print PICTURE ("$line");
	  }
      }
  }
