[packages/grace.git] / xmgrace

#!/usr/bin/perl

use File::Basename;

$grhome =$ENV{GRACE_HOME};
$grhome ="/usr/X11R6/lib/X11/grace" if "$grhome" eq "";
$dynamic = "$grhome" . "/bin/xmgrace.dynamic";
$semistatic = "$grhome" . "/bin/xmgrace.semistatic";
$basename = basename($0);
if (-x "$dynamic") {
    exec $dynamic $basename, @ARGV;
} elsif (-x "$semistatic") {
    exec $semistatic $basename, @ARGV;
} else {
    die "ERROR: Can't find any grace executable in $grhome/bin\n";
}
Commit	Line	Data
57e0617c	1	#!/usr/bin/perl
	2
	3	use File::Basename;
	4
	5	$grhome =$ENV{GRACE_HOME};
	6	$grhome ="/usr/X11R6/lib/X11/grace" if "$grhome" eq "";
	7	$dynamic = "$grhome" . "/bin/xmgrace.dynamic";
	8	$semistatic = "$grhome" . "/bin/xmgrace.semistatic";
	9	$basename = basename($0);
	10	if (-x "$dynamic") {
	11	exec $dynamic $basename, @ARGV;
	12	} elsif (-x "$semistatic") {
	13	exec $semistatic $basename, @ARGV;
	14	} else {
	15	die "ERROR: Can't find any grace executable in $grhome/bin\n";
	16	}