#!/usr/bin/perl

# autolatex - dot2png
# Copyright (C) 2008-09  Stephane Galland <galland@arakhne.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; see the file COPYING.  If not, write to
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.

my $INPUTFILE = $ARGV[0] || '';
my $OUTPUTFILE = $ARGV[1] || '';

if (!$INPUTFILE || ! -e "$INPUTFILE" ) {
	print STDERR "usage: $0 <inputfile> [<outputfile>]\n";
	exit(1);
}

if (!$OUTPUTFILE) {
	my $dir = dirname("$INPUTFILE");
	my $base = basename("$INPUTFILE");
	$base =~ s/\.[^.]+$/.png/;
	$OUTPUTFILE = File::Spec->catfile("$dir","$base");
}

my @CMD = ("dot",
	   "-Tpng",
	   "$INPUTFILE",
	   "-o", "$OUTPUTFILE"
	   );

unlink("$OUTPUTFILE");
exec(@CMD);