#!/usr/local/bin/perl

	$VERSION		= "1.0";
	$MOD_DATE		= "2.Aug.94";
	$AUTHOR			= "Paul Hulford";

# Pick the appropriate emacs for each platform 

$EMACS  = "/usr/local/bin/emacs"; 
$WARGS  = "-fn fixed -geometry 80x50+30+30";
$XARGS  = "-geometry 80x50+30+30";
$CPU 	= $ENV{'CPU'};

$| = 1;

while( length($ARGV[0]) )
{
	$_ = shift;
	$cmd .= '"'.$_.'" ' if( /\s/ ); 
	$cmd .= $_.' ' if( ! /\s/ );
}

system( "$EMACS $WARGS $cmd" ) if( $CPU =~ /PMAX/ ); 
system( "/usr/openwin/bin/xterm -T \"emacs\" $XARGS -e $EMACS -nw $cmd" )
	if( $CPU =~ /SUN4/ ); 
