summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-11-20 14:28:01 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-11-20 14:28:01 (GMT)
commita23b22d1236f195c8aff34ed42355da55ca5e18a (patch)
tree47acbf05215f9f3b3553028a16921ac8710178a7 /library
parent5ab9c74b4a9874c1861cbd28eb075b4578abedf5 (diff)
downloadtcl-a23b22d1236f195c8aff34ed42355da55ca5e18a.zip
tcl-a23b22d1236f195c8aff34ed42355da55ca5e18a.tar.gz
tcl-a23b22d1236f195c8aff34ed42355da55ca5e18a.tar.bz2
Make the guts of [chan] more robust.
Diffstat (limited to 'library')
-rw-r--r--library/init.tcl26
1 files changed, 13 insertions, 13 deletions
diff --git a/library/init.tcl b/library/init.tcl
index 1c7a3a9..13f6d96 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.88 2006/11/03 00:34:52 hobbs Exp $
+# RCS: @(#) $Id: init.tcl,v 1.89 2006/11/20 14:28:03 dkf Exp $
#
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -79,21 +79,21 @@ namespace eval tcl {
namespace eval chan {
# TIP #219. Added methods: create, postevent.
namespace ensemble create -command ::chan -map {
- blocked ::fblocked
- close ::close
- configure ::fconfigure
- copy ::fcopy
+ blocked ::tcl::chan::blocked
+ close ::tcl::chan::close
+ configure ::tcl::chan::configure
+ copy ::tcl::chan::copy
create ::tcl::chan::rCreate
- eof ::eof
- event ::fileevent
- flush ::flush
- gets ::gets
+ eof ::tcl::chan::eof
+ event ::tcl::chan::event
+ flush ::tcl::chan::flush
+ gets ::tcl::chan::gets
names {::file channels}
postevent ::tcl::chan::rPostevent
- puts ::puts
- read ::read
- seek ::seek
- tell ::tell
+ puts ::tcl::chan::puts
+ read ::tcl::chan::read
+ seek ::tcl::chan::seek
+ tell ::tcl::chan::tell
truncate ::tcl::chan::Truncate
}
}