diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-12-06 16:14:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-12-06 16:14:31 (GMT) |
| commit | f756f4519bc78def438d90807a1b7c662cfa1cc0 (patch) | |
| tree | cb7f9363166936707e015a4f7b9bc562c87cd2d4 /library/init.tcl | |
| parent | 85d4482f18637feeb6418a5935859a7423a2fc03 (diff) | |
| download | tcl-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/init.tcl')
| -rw-r--r-- | library/init.tcl | 27 |
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} { |