[tclcn] Tcl 中的 with

  • From: "Mike Manilone" <crtmike@xxxxxx>
  • To: tclcn@xxxxxxxxxxxxx
  • Date: Sat, 14 Sep 2013 16:03:08 -0400

我研究了一段时间,磕磕绊绊地终于把通用的 with 命令做出来了,扔到 Tcl 人维基 [1] 上了,标题叫做 Playing with with ;-) 
(上次有人在 IRC 上推荐搜索「playing with」开头的页面,看到了不少有趣的内容,因此这次我也把我的内容放进来了。)

这个 with 命令其实很简陋,而且别人说是有 BUG,但是我看不出来,也不会修。 :-(

另外一个有趣的用法是 set contents [with open {AnyFile r} {read $handle}] 就可以直接把文件内容读取进来。

这个功能其实是借鉴 Common Lisp 里面的 (with-open-file),然后借助超棒的 Tcl 扩展性,我轻松做到了无限扩充性。 XDD

[1] http://wiki.tcl.tk/38729

Other related posts:

  • » [tclcn] Tcl 中的 with - Mike Manilone