Newsgroups: comp.parallel.pvm
From: Jan Nijtmans <nijtmans@nici.kun.nl>
Subject: Re: XPVM problem: Error: invalid command name "else"
Organization: NICI (Nijmegen Institute of Cognition and Informatics)
Date: Mon, 15 Jan 1996 09:18:56 +0100
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Message-ID: <30FA0DF0.382@nici.kun.nl>

Roman Garcia wrote:
> 
> Hi, I would like to know if someone have resolved before this problem:
> 
> I have compiled XPVM with TK4.1a1/ TCL75a1 for SUN4SOL2 (a SS 20
> machine). I have used Jan Nijtmans patch (THANKS!) to get it compiled.
> 
> The error appears when XPVM is running. It raise a windows with:
> 
> window name   : Error in Tcl Script
> Saying:               Error: invalid command name "else"
> buttons:              OK, Skip Messages, Stack Trace
> 
> Thanks in advance, Roman Garcia

The problem with xpvm was that there are empty lines in front of
all "else" and "elseif" statements. This is not in accordance with
the tcl syntax, but unfortunately Tcl7.4 accepts it. In Tcl7.5
this bug is corrected. The solution is simple: remove the empty
lines in front of all "else" and "elseif" statements.

It appears that I forgot to remove these empty lines in two
places, such that pressing certain buttons still gives the
error-message you mention. Here is an additional patch (for
all people who tried my previous patch and still
encounter the above error-message.

	Jan Nijtmans
	NICI (Nijmegen Institute of Cognition and Information)
	email: nijtmans@nici.kun.nl/~nijtmans/
	url:   http://www.nici.kun.nl/~nijtmans/

------------------- cut here ------------------
*** src/procs.tcl.orig	Tue Jan  9 08:44:22 1996
--- src/procs.tcl	Tue Jan  9 08:45:45 1996
***************
*** 233,239 ****
  
  			if { $view == "ST" } \
  				{ set st_timeid $prim_timeid } \
- 
  			elseif { $view == "UT" } \
  				{ set ut_timeid $prim_timeid }
  		}
--- 233,238 ----
***************
*** 2421,2427 ****
  {
  	#debug_proc setSpaceTimeView entry
  
! 	puts "setSpaceTimeView{}"
  
  	#debug_proc setSpaceTimeView exit
  }
--- 2420,2426 ----
  {
  	#debug_proc setSpaceTimeView entry
  
! #	puts "setSpaceTimeView{}"
  
  	#debug_proc setSpaceTimeView exit
  }
***************
*** 2980,2986 ****
  
  		setNetworkView
  	} \
- 
  	else \
  		{ place forget .xpvm.network }
  
--- 2979,2984 ----

