Tcl

Insert a line 'puts [pwd]' just before the 'source' statement so you can
be sure the current directory hasn't changed.  That would seem to be the
most likely answer...

-- Vince

<http://www.santafe.edu/~vince>


On Tue, 26 Nov 2002, Holger Schulz wrote:

> I try to run a tcl script called gpsman.tcl downloaded from
>
> http://www.ncc.up.pt/~mig/gpsman.html
>
> I could start it easily with tcl/tk and X11 installed via fink. I tried
> to run it with TclTkAqua, I openen it in Wish and got the error
>
> couldn't read file "gmsrc/main.tcl": no such file or directory
> couldn't read file "gmsrc/main.tcl": no such file or directory
>      while executing
> "source [file join $SRCDIR main.tcl]"
>      (file
> "/Installer:Updates/Current/GPS:Garmin/gpsman-5.4.2/gpsman.tcl" line 400)
>
>
> The directory gmsrc is a subdirectory of that where gpsman.tcl is in and
> it contains a file main.tcl. Wish should be able to find it, shouldn't
> it?
>
> Any hints?
>
> hs
>
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: Get the new Palm Tungsten T
> handheld. Power & Color in a compact size!
> http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0002en
> _______________________________________________
> Tcl-mac mailing list
> Tcl-mac@...
> https://lists.sourceforge.net/lists/listinfo/tcl-mac
>

Am Dienstag den, 26. November 2002, um 11:20, schrieb Vince Darley:

> Insert a line 'puts [pwd]' just before the 'source' statement so you can
> be sure the current directory hasn't changed.

Where will i find that?

hs

Am Dienstag den, 26. November 2002, um 11:20, schrieb Vince Darley:

> Insert a line 'puts [pwd]' just before the 'source' statement so you can
> be sure the current directory hasn't changed.  That would seem to be the
> most likely answer...

I found a line

source [file join $SRCDIR main.tcl]

in gpsman.tcl. I added puts [pwd] before that, so looks like

puts [pwd]
source [file join $SRCDIR main.tcl]

now. Again Wish tell me

couldn't read file "gmsrc/main.tcl": no such file or directory
couldn't read file "gmsrc/main.tcl": no such file or directory
     while executing
"source [file join $SRCDIR main.tcl]"
     (file 
"/Installer:Updates/Current/GPS:Garmin/gpsman-5.4.2/gpsman.tcl" line 401)


Are there any less likely answers? :-)

hs

Holger Schulz wrote:

[...]
> source [file join $SRCDIR main.tcl]
>
> in gpsman.tcl. I added puts [pwd] before that, so looks like
>
> puts [pwd]
> source [file join $SRCDIR main.tcl]
>
> now. Again Wish tell me
>
> couldn't read file "gmsrc/main.tcl": no such file or directory
> couldn't read file "gmsrc/main.tcl": no such file or directory
>     while executing
> "source [file join $SRCDIR main.tcl]"
>     (file 
> "/Installer:Updates/Current/GPS:Garmin/gpsman-5.4.2/gpsman.tcl" line 
> 401)

Try adding this as the first line in gpsman.tcl:
	cd [file dirname [info script]]

Anyway, seems like this ought to be easy to figure out - look where 
main.tcl is on your disk, compare with the above path, find out what 
$SRCDIR contains, see where it's set, yada, yada, ...

-jcw

Am Dienstag den, 26. November 2002, um 11:55, schrieb Jean-Claude 
Wippler:

> Try adding this as the first line in gpsman.tcl:
> 	cd [file dirname [info script]]
>


Hm, yes. But now another problem occurs. It tells

couldn't open "gmsrc/gmicons/avn_faf15x15.gif": no such file or directory
couldn't open "gmsrc/gmicons/avn_faf15x15.gif": no such file or directory
     while executing
"image create photo  -file [file join $SRCDIR gmicons  
${sy}${ICONWIDTH}x${ICONHEIGHT}.$f"
     (procedure "InitSymbolImages" line 32)
     invoked from within
"InitSymbolImages"
     (file "gmsrc/main.tcl" line 164)
     invoked from within


And actually the file avn_faf15x15.gif is missing in gmrsc/gmicons. So 
far so bad. But, as I told before, the scripts runs in tcl/tk installed 
via fink. Is there any trick to run it without that file? It seems not 
be essential for the script.

Thanks

hs

On Tue, 26 Nov 2002, Holger Schulz wrote:
> I found a line
>
> source [file join $SRCDIR main.tcl]
>
> in gpsman.tcl. I added puts [pwd] before that, so looks like

Is this on line 401 where Wish told you?

> "/Installer:Updates/Current/GPS:Garmin/gpsman-5.4.2/gpsman.tcl" line 401)

??

It doesn't seem to have output anything, which means probably it is the
wrong line, perhaps try:

puts "reached here with [pwd]"

Vince.