[Starkit] can't source sdx.kit

[Jean-Claude Wippler]

Uwe Koloska wrote:

> Am Montag, 8. Mai 2006 17:36 schrieb Brian Theado:
>> On 5/8/06, Uwe Koloska <koloska at voiceinterconnect.de> wrote:
>> [...]
>>
>>> % source sdx.kit
>>> Specify one of the following commands:
>>>  addtoc    eval      fetch     ftpd      httpd     httpdist  ls
>>> lsk md5sum    mkinfo    mkpack    mkshow    mksplit   qwrap      
>>> ratarx
>>> rexecd starsync  sync      tgz2kit   treetime  unwrap    update
>>> version   wrap For more information, type:  tclkit help ?command?
>>> % sdx::sdx help
>>> invalid command name "sdx::sdx"
>>
>> [...]
>>
>> Try "package require sdx" after sourcing the kit.
>
> uups, stupid me ...
> I was irritated by the output.

Understandably - since the output should not have appeared.  The  
whole point of the test in main.tcl was to avoid it - but since 8.4  
is always < 8.4.9, it never worked properly.  I've fixed it as follows:

diff -u -r1.4 main.tcl
--- main.tcl    12 Jan 2006 08:59:43 -0000      1.4
+++ main.tcl    10 May 2006 19:50:01 -0000
@@ -3,6 +3,6 @@
# old tclkits have broken "sourced" symlink detection (in their  
"starkit" pkg)
# let SDX work in older ones but don't allow sourcing, which is a new  
feature
if {[starkit::startup] eq "sourced" &&
-    [package vcompare [package require Tcl] 8.4.9] >= 0} return
+    [package vcompare [info patchlevel] 8.4.9] >= 0} return

> But some experiments before this I tried the same with a  
> tclkit-8.4.11 and got
>   invalid command name "name:S,size:I,date:I,contents:B"

That one seems to be a problem in the "source" command (which std  
tclkit overrides with a scripted version, this is wrong for *several*  
reasons).  Later tclkits should not run into this error.

I've fixed things in CVS and http://www.equi4.com/pub/sk/sdx.kit -  
thank you.

-jcw