[2360] in Athena Bugs

home help back first fref pref prev next nref lref last post

Re: prochart (/mit/prochart)

daemon@ATHENA.MIT.EDU (probe@ATHENA.MIT.EDU)
Sat Jun 10 13:30:09 1989

From: <probe@ATHENA.MIT.EDU>
Date: Sat, 10 Jun 89 13:29:46 -0400
To: tjcoppet@mit.edu
Cc: bugs@ATHENA.MIT.EDU
In-Reply-To: tjcoppet@mit.edu's message of Sat, 10 Jun 89 00:04:55 EDT,
Reply-To: Richard Basch   <probe@ATHENA.MIT.EDU>

Tom, this reply is mainly an acknowledgement of your bug report.  This
message should also be considered an itemized bug report of the original
script, which I have enclosed in this message:

1) It uses the = notation for geometry.  Rather than using Chris'
complicated test, we can simply use -geometry, since that has been
supported for a while.  I know at one time, it was supported on the VAX
but not on the RT, but this is prior to 6.0R.  Since all machines have
supposedly been upgraded to 6.0R, according to operations, I see no need
to try to support the = geometry specification.

2) It also uses "xversion"; which was only intended for xswitch.  This
will create problems with 6.3 (ie. no xversion).  I will come up with a
solution shortly and place it in 6.3...  [For now, assume xswitch will
work; it will be in the search path, but will no longer reside in
/usr/bin/X11, since it is not part of the X distribution and it is not
specific to that version].

-Richard


#!/bin/csh -f 
set vecdir = /usr/vec
set bindir = /mit/prochart/vaxbin
set argc=$#argv
set iopt = 0
set wdir = `pwd`

if ( $hosttype == "rt" ) then
	echo "This program is only available for the microvax workstations."
	echo "If you wish to use prochart, please log into a microvax to"
	echo "run it."
	exit 1
endif

if ( x`xversion` == "x10" ) then
	echo "This program only runs under X version 11.  Please use"
	echo '"xswitch" or log into a workstation running X version 11.'
	exit 1
endif

if ( -f ~/.vecrc == 0 ) then
	cp $vecdir/data/prochart/vecrc ~/.vecrc
endif

foreach par ($*)
	if ( x"-i" == x${par} ) then
		set iopt=1
		break
	endif
end

if ( $iopt == 0  ) then
	cd; sed "s/\(SCREEN_DEV\).*/\1 	$TERM/" .vecrc > vec.tmp
	cd; mv vec.tmp .vecrc
endif

if ( $TERM =~ xterm* ) then

	cd $wdir;xterm =80x50+50+50 -fn vtsingle -n xprochart -e /bin/sh -c "/bin/echo -n "]0tprochart";$bindir/xprochart11 $*"
	if ( $status == 0 ) then
		echo "ProChart done."	
	else
		echo "Error."
	endif
else 
	cd $wdir;$bindir/xprochart11 $*
endif

home help back first fref pref prev next nref lref last post