#!/usr/bin/tclsh

# Converts an xpm image to ppm format. 
# Called from Makefile only.

source Enable8.0Compatibility.tcl
source Tools.tcl

set fn1 [lindex $argv 0]
set fn2 [file rootname $fn1].ppm
set err ""

if {![file exists $fn2]} { xpm2ppm $fn1 err }
if {$err != ""} {
  puts $err
  exit 1
}

exit 0

