summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.decls
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclInt.decls')
-rwxr-xr-xgeneric/tclInt.decls38
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)