head	1.1;
access;
symbols
	RELEASE_8_3_0:1.1
	RELEASE_9_0_0:1.1
	RELEASE_7_4_0:1.1
	RELEASE_8_2_0:1.1
	RELEASE_6_EOL:1.1
	RELEASE_8_1_0:1.1
	RELEASE_7_3_0:1.1
	RELEASE_8_0_0:1.1;
locks; strict;
comment	@# @;


1.1
date	2009.04.21.07.52.35;	author mi;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Ubreak by making the port check for availability of Tcl's man-pages.
Tcl-8.4 does not install those by default any more...

Approved by:	portmgr (erwin)
PR:	ports/133555
@
text
@Submitted to TclX developers as:

https://sourceforge.net/tracker/index.php?func=detail&aid=2687373&group_id=13247&atid=313247

	-mi

--- unix/tclXunixDup.c	2001-10-24 19:31:50.000000000 -0400
+++ unix/tclXunixDup.c	2009-03-14 18:01:57.000000000 -0400
@@@@ -98,5 +98,5 @@@@
         Tcl_GetChannelHandle (srcChannel, TCL_WRITABLE, &handle);
     }
-    srcFileNum = (int) handle;
+    srcFileNum = (int)(intptr_t)handle;
     channelType = Tcl_GetChannelType (srcChannel);
 
@@@@ -134,7 +134,7 @@@@
     
     if (STREQU (channelType->typeName, "tcp")) {
-        newChannel = Tcl_MakeTcpClientChannel ((ClientData) newFileNum);
+        newChannel = Tcl_MakeTcpClientChannel ((ClientData)(intptr_t)newFileNum);
     } else {
-        newChannel = Tcl_MakeFileChannel ((ClientData) newFileNum,
+        newChannel = Tcl_MakeFileChannel ((ClientData)(intptr_t)newFileNum,
                                           mode);
     }
@@@@ -231,7 +231,7 @@@@
 
     if (isSocket) {
-        channel = Tcl_MakeTcpClientChannel ((ClientData) fileNum);
+        channel = Tcl_MakeTcpClientChannel ((ClientData)(intptr_t)fileNum);
     } else {
-        channel = Tcl_MakeFileChannel ((ClientData) fileNum,
+        channel = Tcl_MakeFileChannel ((ClientData)(intptr_t)fileNum,
                                        mode);
     }
--- generic/tclExtdInt.h	2005-07-12 15:03:15.000000000 -0400
+++ generic/tclExtdInt.h	2009-03-14 20:54:32.000000000 -0400
@@@@ -517,5 +517,5 @@@@
                                Tcl_Channel channel,
                                void       *sockaddr,
-                               int         sockaddrSize));
+                               socklen_t   sockaddrSize));
 
 extern int
@@@@ -523,5 +523,5 @@@@
                                Tcl_Channel channel,
                                void       *sockaddr,
-                               int         sockaddrSize));
+                               socklen_t   sockaddrSize));
 
 extern int
--- unix/tclXunixOS.c	2005-07-12 15:03:15.000000000 -0400
+++ unix/tclXunixOS.c	2009-03-14 20:53:03.000000000 -0400
@@@@ -118,5 +118,5 @@@@
 	}
     }
-    return (int) handle;
+    return (intptr_t)handle;
 }
 
@@@@ -248,9 +248,9 @@@@
         return TCL_ERROR;
     }
-    channels [0] = Tcl_MakeFileChannel ((ClientData) fileNums [0],
+    channels [0] = Tcl_MakeFileChannel ((ClientData)(intptr_t)fileNums [0],
                                         TCL_READABLE);
     Tcl_RegisterChannel (interp, channels [0]);
 
-    channels [1] = Tcl_MakeFileChannel ((ClientData) fileNums [1],
+    channels [1] = Tcl_MakeFileChannel ((ClientData)(intptr_t)fileNums [1],
                                         TCL_WRITABLE);
     Tcl_RegisterChannel (interp, channels [1]);
@@@@ -958,5 +958,5 @@@@
     Tcl_Channel channel;
     void       *sockaddr;
-    int         sockaddrSize;
+    socklen_t   sockaddrSize;
 {
 
@@@@ -988,5 +988,5 @@@@
     Tcl_Channel channel;
     void       *sockaddr;
-    int         sockaddrSize;
+    socklen_t   sockaddrSize;
 {
     if (getsockname (ChannelToFnum (channel, 0),
@@@@ -1019,5 +1019,5 @@@@
     int         *valuePtr;
 {
-    int valueLen = sizeof (*valuePtr);
+    socklen_t valueLen = sizeof (*valuePtr);
 
     if (getsockopt (ChannelToFnum (channel, 0), SOL_SOCKET, option, 
@@@@ -1486,5 +1486,5 @@@@
         return TCL_ERROR;
     }
-    *fnumPtr = (int) handle;
+    *fnumPtr = (intptr_t)handle;
     return TCL_OK;
 }
--- unix/tclXunixSock.c	2004-11-22 19:13:14.000000000 -0500
+++ unix/tclXunixSock.c	2009-03-14 20:59:08.000000000 -0400
@@@@ -95,5 +95,5 @@@@
     Tcl_Channel channel;
 
-    channel = Tcl_MakeTcpClientChannel ((ClientData) socketFD);
+    channel = Tcl_MakeTcpClientChannel ((ClientData)(intptr_t)socketFD);
     Tcl_RegisterChannel (interp, channel);
 
@@@@ -225,5 +225,5 @@@@
         goto unixError;
 
-    channel = Tcl_MakeTcpClientChannel ((ClientData) socketFD);
+    channel = Tcl_MakeTcpClientChannel ((ClientData)(intptr_t)socketFD);
     Tcl_RegisterChannel (interp, channel);
 
@@@@ -267,5 +267,6 @@@@
     Tcl_Channel          channel;
     unsigned             options;
-    int                  acceptSocketFD, addrLen;
+    int                  acceptSocketFD;
+    socklen_t            addrLen;
     int                  socketFD = -1;
     int                  nextArg;
@
