implement TclWinGetSockOpt and TclWinGetServByName for cygwi

(should work, but not yet tested on UNIX)

1 files changed, 21 insertions, 17 deletions

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index e438588..ef2f6df 100755
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -953,12 +953,14 @@ declare 0 unix {
 declare 1 unix {
     void TclWinConvertWSAError(unsigned int errCode)
 }
+# On non-cygwin, this is actually a reference to TclpCreateCommandChannel
 declare 2 unix {
-    Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
-	    TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)
+    struct servent *TclWinGetServByName(const char *nm, const char *proto)
 }
+# On non-cygwin, this is actually a reference to TclpCreatePipe
 declare 3 unix {
-    int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
+    int TclWinGetSockOpt(void *s, int level, int optname,
+	    char *optval, int *optlen)
 }
 # On non-cygwin, this is actually a reference to TclpCreateProcess
 declare 4 unix {
@@ -1005,8 +1007,10 @@ declare 11 unix {
 declare 12 unix {
     struct tm *TclpGmtime_unix(TclpTime_t_CONST clock)
 }
+# On cygwin, this is a reference to TclpCreateCommandChannel
+# Otherwise, this is a reference to TclpInetNtoa
 declare 13 unix {
-    char *TclpInetNtoa(struct in_addr addr)
+    void TclIntPlatReserved13(void)
 }
 #On cygwin, TclpCreateProcess is here
 declare 15 unix {
@@ -1050,26 +1054,26 @@ declare 30 unix {
 declare 31 unix {
     int TclpCloseFile(TclFile file)
 }
-#declare 32 unix {
-#    Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
-#	    TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)
-#}
-#declare 33 unix {
-#    int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
-#}
+declare 32 unix {
+    Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
+	    TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)
+}
+declare 33 unix {
+    int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
+}
 declare 34 unix {
-    int TclpCreateProcess (Tcl_Interp *interp,
+    int TclpCreateProcess(Tcl_Interp *interp,
 	    int argc, const char **argv, TclFile inputFile,
 	    TclFile outputFile, TclFile errorFile, Tcl_Pid *pidPtr)
 }
-#declare 35 unix {
-#    char *TclpInetNtoa(struct in_addr addr)
-#}
+declare 35 unix {
+    char *TclpInetNtoa(struct in_addr addr)
+}
 declare 36 unix {
-    TclFile TclpMakeFile (Tcl_Channel channel, int direction)
+    TclFile TclpMakeFile(Tcl_Channel channel, int direction)
 }
 declare 37 unix {
-    TclFile TclpOpenFile (const char *fname, int mode)
+    TclFile TclpOpenFile(const char *fname, int mode)
 }
 declare 38 unix {
     int TclUnixWaitForFile(int fd, int mask, int timeout)