summaryrefslogtreecommitdiffstats
path: root/library/init.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/init.tcl')
-rw-r--r--library/init.tcl39
1 files changed, 21 insertions, 18 deletions
diff --git a/library/init.tcl b/library/init.tcl
index 626f9f3..527f0b9 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -3,7 +3,7 @@
# Default system startup file for Tcl-based applications. Defines
# "unknown" procedure and auto-load facilities.
#
-# RCS: @(#) $Id: init.tcl,v 1.79 2005/07/27 16:24:14 dgp Exp $
+# RCS: @(#) $Id: init.tcl,v 1.80 2005/08/24 17:56:23 andreas_kupries Exp $
#
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -73,24 +73,27 @@ namespace eval tcl {
unsupported::EncodingDirs $Path
}
- # Set up the 'chan' ensemble
+ # Set up the 'chan' ensemble (TIP #208).
namespace eval chan {
- namespace ensemble create -command ::chan -map {
- blocked ::fblocked
- close ::close
- configure ::fconfigure
- copy ::fcopy
- eof ::eof
- event ::fileevent
- flush ::flush
- gets ::gets
- names {::file channels}
- puts ::puts
- read ::read
- seek ::seek
- tell ::tell
- truncate ::tcl::chan::Truncate
- }
+ # TIP #219. Added methods: create, postevent.
+ namespace ensemble create -command ::chan -map {
+ blocked ::fblocked
+ close ::close
+ configure ::fconfigure
+ copy ::fcopy
+ create ::tcl::chan::rCreate
+ eof ::eof
+ event ::fileevent
+ flush ::flush
+ gets ::gets
+ names {::file channels}
+ postevent ::tcl::chan::rPostevent
+ puts ::puts
+ read ::read
+ seek ::seek
+ tell ::tell
+ truncate ::tcl::chan::Truncate
+ }
}
}