Tcl Source Code

Artifact [09f2cccca2]
Login

Artifact 09f2cccca295522d1fea26dc303f93fa38d53867:

Attachment "506147.diff" to ticket [506147ffff] added by andreas_kupries 2002-01-24 03:34:18.
? S4-0-2
? library/struct1.0
? library/msgcat1.0
? library/dde1.0
? library/dde1.1
? library/opt0.1
? library/opt0.4
? library/reg1.0
? library/tcltest1.0
? library/http2.0
? library/http2.1
? library/http2.3
? macosx/Tcl.pbproj
Index: doc/ChnlStack.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/ChnlStack.3,v
retrieving revision 1.3
diff -u -r1.3 ChnlStack.3
--- doc/ChnlStack.3	2000/09/28 06:34:56	1.3
+++ doc/ChnlStack.3	2002/01/23 20:28:34
@@ -10,7 +10,7 @@
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!
 .SH NAME
-Tcl_StackChannel, Tcl_UnstackChannel, Tcl_GetStackedChannel \- stack an I/O channel on top of another, and undo it
+Tcl_StackChannel, Tcl_UnstackChannel, Tcl_GetStackedChannel, Tcl_GetTopChannel \- stack an I/O channel on top of another, and undo it
 .SH SYNOPSIS
 .nf
 .nf
@@ -25,6 +25,9 @@
 Tcl_Channel
 \fBTcl_GetStackedChannel\fR(\fIchannel\fR)
 .sp
+Tcl_Channel
+\fBTcl_GetTopChannel\fR(\fIchannel\fR)
+.sp
 .SH ARGUMENTS
 .AS Tcl_ChannelType
 .AP Tcl_Interp *interp in
@@ -82,6 +85,12 @@
 \fBTcl_UnstackChannel\fP is equivalent to \fBTcl_Close\fP.  If an error
 occurs unstacking the channel, \fBTCL_ERROR\fR is returned, otherwise
 \fBTCL_OK\fR is returned.
+.PP
+\fBTcl_GetTopChannel\fR returns the top channel in the stack of
+channels the supplied channel is part of.
+.PP
+\fBTcl_GetStackedChannel\fR returns the channel in the stack of
+channels which is just below the supplied channel.
 
 .SH "SEE ALSO"
 Notifier(3), Tcl_CreateChannel(3), Tcl_OpenFileChannel(3), vwait(n).
Index: doc/CrtChannel.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/CrtChannel.3,v
retrieving revision 1.13
diff -u -r1.13 CrtChannel.3
--- doc/CrtChannel.3	2002/01/15 17:55:29	1.13
+++ doc/CrtChannel.3	2002/01/23 20:28:35
@@ -11,7 +11,7 @@
 .BS
 '\" Note:  do not modify the .SH NAME line immediately below!
 .SH NAME
-Tcl_CreateChannel, Tcl_GetChannelInstanceData, Tcl_GetChannelType, Tcl_GetChannelName, Tcl_GetChannelHandle, Tcl_GetChannelMode, Tcl_GetChannelBufferSize, Tcl_SetChannelBufferSize, Tcl_NotifyChannel, Tcl_BadChannelOption, Tcl_ChannelName, Tcl_ChannelVersion, Tcl_ChannelBlockModeProc, Tcl_ChannelCloseProc, Tcl_ChannelClose2Proc, Tcl_ChannelInputProc, Tcl_ChannelOutputProc, Tcl_ChannelSeekProc, Tcl_ChannelSetOptionProc, Tcl_ChannelGetOptionProc, Tcl_ChannelWatchProc, Tcl_ChannelGetHandleProc, Tcl_ChannelFlushProc, Tcl_ChannelHandlerProc, Tcl_IsChannelShared, Tcl_IsChannelRegistered, Tcl_CutChannel, Tcl_SpliceChannel, Tcl_IsChannelExisting, Tcl_ClearChannelHandlers, Tcl_GetChannelThread, Tcl_ChannelBuffered, Tcl_GetTopChannel \- procedures for creating and manipulating channels
+Tcl_CreateChannel, Tcl_GetChannelInstanceData, Tcl_GetChannelType, Tcl_GetChannelName, Tcl_GetChannelHandle, Tcl_GetChannelMode, Tcl_GetChannelBufferSize, Tcl_SetChannelBufferSize, Tcl_NotifyChannel, Tcl_BadChannelOption, Tcl_ChannelName, Tcl_ChannelVersion, Tcl_ChannelBlockModeProc, Tcl_ChannelCloseProc, Tcl_ChannelClose2Proc, Tcl_ChannelInputProc, Tcl_ChannelOutputProc, Tcl_ChannelSeekProc, Tcl_ChannelSetOptionProc, Tcl_ChannelGetOptionProc, Tcl_ChannelWatchProc, Tcl_ChannelGetHandleProc, Tcl_ChannelFlushProc, Tcl_ChannelHandlerProc, Tcl_IsChannelShared, Tcl_IsChannelRegistered, Tcl_CutChannel, Tcl_SpliceChannel, Tcl_IsChannelExisting, Tcl_ClearChannelHandlers, Tcl_GetChannelThread, Tcl_ChannelBuffered \- procedures for creating and manipulating channels
 .SH SYNOPSIS
 .nf
 \fB#include <tcl.h>\fR
@@ -70,9 +70,6 @@
 int
 \fBTcl_ChannelBuffered\fR(\fIchannel\fR)
 .sp
-Tcl_Channel
-\fBTcl_GetTopChannel\fR(\fIchannel\fR)
-.sp
 CONST char *
 \fBTcl_ChannelName\fR(\fItypePtr\fR)
 .sp
@@ -266,9 +263,6 @@
 .VE
 .PP
 .VS 8.3.2
-\fBTcl_GetTopChannel\fR returns the top channel in the stack of
-channels the supplied channel is part of.
-.PP
 \fBTcl_ChannelBuffered\fR returns the number of bytes of input
 currently buffered in the internal buffer (push back area) of the
 channel itself. It does not report about the data in the overall
Index: unix/mkLinks
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/mkLinks,v
retrieving revision 1.38
diff -u -r1.38 mkLinks
--- unix/mkLinks	2001/12/20 18:57:30	1.38
+++ unix/mkLinks	2002/01/23 20:28:36
@@ -131,9 +131,11 @@
     rm -f Tcl_StackChannel.3
     rm -f Tcl_UnstackChannel.3
     rm -f Tcl_GetStackedChannel.3
+    rm -f Tcl_GetTopChannel.3
     ln ChnlStack.3 Tcl_StackChannel.3
     ln ChnlStack.3 Tcl_UnstackChannel.3
     ln ChnlStack.3 Tcl_GetStackedChannel.3
+    ln ChnlStack.3 Tcl_GetTopChannel.3
 fi
 if test -r CmdCmplt.3; then
     rm -f Tcl_CommandComplete.3
@@ -176,7 +178,6 @@
     rm -f Tcl_ClearChannelHandlers.3
     rm -f Tcl_GetChannelThread.3
     rm -f Tcl_ChannelBuffered.3
-    rm -f Tcl_GetTopChannel.3
     ln CrtChannel.3 Tcl_CreateChannel.3
     ln CrtChannel.3 Tcl_GetChannelInstanceData.3
     ln CrtChannel.3 Tcl_GetChannelType.3
@@ -209,7 +210,6 @@
     ln CrtChannel.3 Tcl_ClearChannelHandlers.3
     ln CrtChannel.3 Tcl_GetChannelThread.3
     ln CrtChannel.3 Tcl_ChannelBuffered.3
-    ln CrtChannel.3 Tcl_GetTopChannel.3
 fi
 if test -r CrtChnlHdlr.3; then
     rm -f Tcl_CreateChannelHandler.3