[Starkit] Tclkit 8.4.11

[engelbert.gruber at ssg.co.at]

On Tue, 6 Sep 2005 engelbert.gruber at ssg.co.at wrote:

> On Wed, 7 Sep 2005, Daniel A. Steffen wrote:
> 
> > JC,
> > 
> > On 06/09/2005, at 22:20, Jean-Claude Wippler wrote:
> > 
> > > Something strange is happening with [info script], you'll need to explore
> > > further to find out what is causing this.  A quick test here did not bring
> > > up the problem you describe.
> > 
> > I recently built a darwin tclkit for steve landers (with my dyld tiger fix),
> > and we saw a very similar problem there. IIRC Steve had a small testcase, he
> > also did some testing with older versions of tclvfs, metakit etc which seemed
> > to avoid the problem (i.e. this doesn't seem to be a core problem directly).
> > Also see Steve's message to tcl-core about this.
> 
> you mean http://aspn.activestate.com/ASPN/Mail/Message/tcl-core/2758913
> 
> and this is the closed bug 
> http://sourceforge.net/tracker/index.php?func=detail&aid=1249172&group_id=10894&atid=110894

i found ./src/kit/src/kitInit.c ::

  "proc source file {\n"
    "set old [info script]\n"
    "exec logger \"$file 1: [info script]\"\n"
    "info script $file\n"
    "exec logger \"$file 2: [info script]\"\n"
    "set fid [open $file]\n"
    "set data [read $fid]\n"
    "close $fid\n"
    "uplevel 1 $data\n"
    "exec logger \"$file 3: [info script]\"\n"
    "info script $old\n"
    "exec logger \"$file 4: [info script]\"\n"
  "}\n"

and i inserted the ``exec logger`` lines.
running ::

  # from http://aspn.activestate.com/ASPN/Mail/Message/tcl-core/2758913
  set info_script [info script]
  puts stderr "info script before $info_script"
  # package require Tk
  # catch tcl_findLibrary
  set f [file join [info library] auto.tcl]
  puts "source $f"
  source $f
  if { [info script] eq $info_script } {
      puts stderr "OK"
  } else {
      puts stderr "FAILED\n  info script changed [info script]"
  }

the log shows (leading path removed) ::

Sep  8 08:32:28 localhost bert: /tclkit-lx7/config.tcl 1: 
Sep  8 08:32:28 localhost bert: /tclkit-lx7/config.tcl 2: /tclkit-lx7/config.tcl
Sep  8 08:32:28 localhost bert: /tclkit-lx7/config.tcl 3: /tclkit-lx7/config.tcl
Sep  8 08:32:28 localhost bert: /tclkit-lx7/config.tcl 4: 
Sep  8 08:32:28 localhost bert: /tclkit-lx7/lib/tcl8.4/init.tcl 1: 
Sep  8 08:32:28 localhost bert: /tclkit-lx7/lib/tcl8.4/init.tcl 2: /tclkit-lx7/lib/tcl8.4/init.tcl
Sep  8 08:32:28 localhost bert: /tclkit-lx7/lib/tcl8.4/init.tcl 3: /tclkit-lx7/lib/tcl8.4/init.tcl
Sep  8 08:32:28 localhost bert: /tclkit-lx7/lib/tcl8.4/init.tcl 4: 
Sep  8 08:32:28 localhost bert: /tclkit-lx7/lib/tcl8.4/auto.tcl 1: tst3.tcl
Sep  8 08:32:28 localhost bert: /tclkit-lx7/lib/tcl8.4/auto.tcl 2: /tclkit-lx7/lib/tcl8.4/auto.tcl

3 and 4 are never reached.

any clues
-- 
 BINGO: enthusiastically administrate high-quality products
 --- Engelbert Gruber -------+
  SSG Fintl,Gruber,Lassnig  /
  A6170 Zirl   Innweg 5b   /
  Tel. ++43-5238-93535 ---+