| Jeff Hobbs 2006-01-30, 9:57 pm |
| Mary Lei wrote:
> When we compiled 64 bit tclsh 8.4.12 for solaris OS 5.10
> it fails to give the ip address of the socket:
>
> fconfigure sock8
> -blocking 1 -buffering full -buffersize 4096 -encoding iso8859-1
> -eofchar {{} {}} -translation {auto crlf}
> -peername {0.0.0.0 ldas-suntestx.caltech.edu 11122}
> -sockname {0.0.0.0 ldas-suntesty.caltech.edu 42413}
This works fine for me:
% info patch
8.4.12
% set s [socket www.tcl.tk 80]
sock4
% fconfigure $s
-blocking 1 -buffering full -buffersize 4096 -encoding iso8859-1
-eofchar {{} {}} -translation {auto crlf} -peername {209.17.179.230
tcl.activestate.com 80} -sockname {192.168.3.101 ginsu 45431}
% parray tcl_platform
tcl_platform(byteOrder) = littleEndian
tcl_platform(machine) = i86pc
tcl_platform(os) = SunOS
tcl_platform(osVersion) = 5.10
tcl_platform(platform) = unix
tcl_platform(user) = jeffh
tcl_platform(wordSize) = 8
% info patch
8.4.12
% set s [socket www.tcl.tk 80]
sock4
% fconfigure $s
-blocking 1 -buffering full -buffersize 4096 -encoding iso8859-1
-eofchar {{} {}} -translation {auto crlf} -peername {209.17.179.230
tcl.activestate.com 80} -sockname {192.168.3.22 machete 38324}
% parray tcl_platform
tcl_platform(byteOrder) = bigEndian
tcl_platform(machine) = sun4u
tcl_platform(os) = SunOS
tcl_platform(osVersion) = 5.8
tcl_platform(platform) = unix
tcl_platform(user) = jeffh
tcl_platform(wordSize) = 8
--
Jeff Hobbs, The Tcl Guy
http://www.ActiveState.com/, a division of Sophos
|