summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-12-06 16:14:31 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-12-06 16:14:31 (GMT)
commitf756f4519bc78def438d90807a1b7c662cfa1cc0 (patch)
treecb7f9363166936707e015a4f7b9bc562c87cd2d4 /library
parent85d4482f18637feeb6418a5935859a7423a2fc03 (diff)
downloadtcl-f756f4519bc78def438d90807a1b7c662cfa1cc0.zip
tcl-f756f4519bc78def438d90807a1b7c662cfa1cc0.tar.gz
tcl-f756f4519bc78def438d90807a1b7c662cfa1cc0.tar.bz2
Simplify code for setting up the [chan] ensemble now that we can leverage
TclMakeEnsemble to do most of the work.
Diffstat (limited to 'library')
-rw-r--r--library/init.tcl27
1 files changed, 1 insertions, 26 deletions
diff --git a/library/init.tcl b/library/init.tcl
index 98cc1f5..0066133 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.98 2007/11/19 18:14:49 dgp Exp $
+# RCS: @(#) $Id: init.tcl,v 1.99 2007/12/06 16:14:33 dkf Exp $
#
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -75,31 +75,6 @@ namespace eval tcl {
}
}
- # Set up the 'chan' ensemble (TIP #208).
- namespace eval chan {
- # TIP #219. Added methods: create, postevent.
- # TIP 287. Added method: pending.
- namespace ensemble create -command ::chan -map {
- blocked ::tcl::chan::blocked
- close ::tcl::chan::close
- configure ::tcl::chan::configure
- copy ::tcl::chan::copy
- create ::tcl::chan::rCreate
- eof ::tcl::chan::eof
- event ::tcl::chan::event
- flush ::tcl::chan::flush
- gets ::tcl::chan::gets
- names {::file channels}
- pending ::tcl::chan::Pending
- postevent ::tcl::chan::rPostevent
- puts ::tcl::chan::puts
- read ::tcl::chan::read
- seek ::tcl::chan::seek
- tell ::tcl::chan::tell
- truncate ::tcl::chan::Truncate
- }
- }
-
# TIP #255 min and max functions
namespace eval mathfunc {
proc min {args} {