Scripting Tcl 大小事

tcllib 1.14 is out

2012-01-10T00:13:00.002+08:00

我現在才注意到，在 2011.12.13，tcllib 已經釋出了新版 v1.14。

Overview
========

21 new packages in 7 modules
30 changed packages in 24 modules
8 internally changed packages in 8 modules
328 unchanged packages in 89 modules
393 packages, total in 107 modules, total

Coroutines

2012-01-08T13:13:00.000+08:00

在 8.6 引進新的 Non-Recursive Engine (NRE) 之後，帶進了新的功能 Coroutines。不過 Coroutine 對我而言是很陌生的東西，所以做一下初學筆記。

在看過網路上對於 Coroutine 的介紹以後，我想可以簡單的總結如下：

Croutine 是自 1960 年代就已經現身的多工實做技術，原理相當單純，在 Coroutine 的 "yield" 是屬於程式語言層面，透過特定技巧或機制，讓原本循序執行的陳述指令，得以做出交錯執行的結果，可以說是 Windows 3.X 「合作式多工」的基礎概念（十分類似）。

用簡單的一句話來說 Coroutine，就是可以暫時中斷，之後再繼續執行的程序。

下面是從 Tcl 8.6 manual page copy 出來的例子：

coroutine accumulator apply {{} {
    set x 0
    while 1 {
        # yield $x: 丟資料並且把主控權交給呼叫者
        incr x [yield $x]
    }
}}

for {set i 0} {$i < 10} {incr i} {
    puts "$i -> [accumulator $i]"
}

在 manual page 裡還有其它的例子幫助理解，希望我對 Coroutines 的理解是正確的。

Wub

2012-01-08T11:16:00.000+08:00

Wub
wub - Wub pure tcl HTTP1.1 server, client and tool suite

雖然 Wub 發展有一段時間了，不過我是最近才發現的。

截錄自 Tcler Wiki 的介紹：

Wub is a web-server written in pure-Tcl. It runs the Wiki you're now reading. It absolutely requires Tcl 8.6 and tracks the HEAD closely. It should help in creating highly-dynamic (and portable) web applications. It is the successor in spirit of Tclhttpd, aiming to preserve the best of it while using the bleeding-edge latest Tcl facilities to simplify and extend.

Tcler Wiki 就是使用 Wub 架起來的，非常好的 working example。

備份 (on Windows)

2012-01-07T17:01:00.000+08:00

跟之前一樣的程式，只是加上 GUI 表示目前正在備份中，加上練習 thread 使用的部份。

#!/usr/bin/tclsh
#
# This file is used to backup my homepage
#

package require Tk
package require Thread

set ::gThread [thread::create {thread::wait} ]

label .greetings -text "Now backup my homepage..." -bd 4 -relief ridge
pack .greetings -fill both

wm title . "Backup"

thread::send -async $::gThread { 
    set backupfile $env(HOME)
    append backupfile "\\My Documents"
    append backupfile "\\Homepage-"
    append backupfile [clock format [clock seconds] -format %Y%m%d]
    append backupfile ".7z"

    set backupdir $env(HOME)
    append backupdir "\\My Documents"
    append backupdir "\\public_html"

    set fileExist [file exists $backupfile]
    if {$fileExist > 0} {
        puts "Now try to remove old backup file."
        file delete $backupfile
    }

    set var [list 7z a $backupfile $backupdir]
    exec {*}$var        
} result


vwait result
exit

使用 7-zip 壓縮目錄與檔案 (on Windows)

2011-11-07T23:37:00.001+08:00

#!/usr/bin/tclsh
#
# This file is used to backup my homepage
#

set backupfile $env(HOME)
append backupfile "\\My Documents"
append backupfile "\\Homepage-"
append backupfile [clock format [clock seconds] -format %Y%m%d]
append backupfile ".7z"

set backupdir $env(HOME)
append backupdir "\\My Documents"
append backupdir "\\public_html"

set fileExist [file exists $backupfile]
if {$fileExist > 0} {
    puts "Now try to remove old backup file."
    file delete $backupfile
}

set var [list 7z a $backupfile $backupdir]
exec {*}$var

puts "Done."

exit

因為在 Windows XP 上也有需要網頁的備份，所以把之前在 Linux 上用的稍微改寫以後就搬過來了。要注意的是，我已經把 7-ZIP 加進去 PATH 環境變數裡了，所以就不用寫絕對路徑，只要寫 7z 就可以了。

ActiveTcl 8.6.0.0b6 released

2011-08-18T16:51:00.000+08:00

comp.lang.tcl 的消息：
ActiveTcl 8.6.0.0b6 released

Code base 為最近釋出的 Tcl 8.6 b2。

== New in ActiveTcl 8.6.0.0b6 ==

A beta update release with updates, including:

* Updated Tcl/Tk 8.6 core
* Updated packages
** BWidget 1.9.5
** Thread 2.6.7
** platform 1.0.10
** msgcat 1.4.4
** tcltest 2.3.3
** sqlite 3.7.7.1
** Tktable 2.11
** Treectrl 2.3.2
** Tablelist 5.3.1
** cmdline 1.3.3
** ftp 2.4.10
** style::as 1.4.1

ActiveTcl 8.5.10.1 released

2011-07-24T00:15:00.000+08:00

ActiveTcl 8.5.10.1 已經在 2011/07/21 釋出，我把目前的使用環境更新為這個版本。

可以看一下 comp.lang.tcl 的消息。

== New in ActiveTcl 8.5.10.1 ==

A patchlevel release with updates, including:

Updated Tcl/Tk 8.5.10 core
Updated teacup package management application
Updated packages

Sqlite 3.7.7.1
Tablelist 5.3.1

使用 7-zip 壓縮目錄與檔案

2011-07-20T07:21:00.001+08:00

#!/usr/bin/tclsh
#
# This file is used to backup my homepage
#

set backupfile $env(HOME)
append backupfile "/Homepage-"
append backupfile [clock format [clock seconds] -format %Y%m%d]
append backupfile ".7z"

set backupdir $env(HOME)
append backupdir "/public_html"

set fileExist [file exists $backupfile]
if {$fileExist > 0} {
    puts "Now try to remove old backup file."
    file delete $backupfile
}

set var [list 7z a $backupfile $backupdir]
exec {*}$var

puts "Done."

使用 7-zip 建立網頁的備份檔案 (on Linux)。

Tcl/Tk 8.5.10 RELEASED

2011-06-26T16:34:00.000+08:00

Tcl/Tk 8.5.10 RELEASED

Summary of Changes since Tcl/Tk 8.5.9:
--------------------------------------

The following were the main changes in Tcl/Tk 8.5.10. A complete list
can be found in the changes file at the root of the source tree. The
more complete ChangeLog is also included with each source release. This
is a patch release, so it primarily includes bug fixes and corrections
to erratic behavior. Below are only the most notable changes.

* TIP 378: reduced [info frame] accuracy to gain performance.
- use [interp debug] to restore accuracy and lose performance gain.

* Unicode codepoint definitions updated to Unicode 6.0 (BMP only)

* New subcommand [ttk::entry validate].

* Improved performance formatting numbers for string output.

* dlopen() in Unix/Mac OS X [load] now uses RTLD_NOW|RTLD_LOCAL.
*** POTENTIAL INCOMPATIBILITY ***

* Forbid [labelframe $w -container true].
*** POTENTIAL INCOMPATIBILITY ***

* Fixed crash in [$treeview tag add/remove].

* Fixed crash in [tk_getSaveFile] on Windows.

* Repaired server [socket] race condition on Win that stopped new
accepts.

* Fixed memory corruption when [$canvas dchars] removes all polygon
coords.

* Corrected failure of [$canvas insert $line] to completely refresh
display.

* Restored [spinbox $w -from $lo -to $hi] display of "08" and "09".

* Fixed command name resolution caching involving [namespace path].

* Fixed crash when append trace unsets traced variable.

* Fixed Win crash in [wm manage] using Tkhtml3.

* Fixed crash in Ttk unset traces.

* Fixed failure of Tcl_ResetResult() to clear Tcl_ObjType information.

* New version 2.3.3 of tcltest package.
- Improved reporting from tests in slave interps

* New version 2.7.6 of http package.
- Stop surplus \n in POST requests.

* New version 1.0.10 of platform package.
- DEB_HOST_MULTIARCH support

* New version 1.4.4 of msgcat package.

* Restored tearoff submenus in XP.

* Modal dialogs on Windows now use MB_TASKMODAL | MB_SETFOREGROUND.

* Corrected [wm forget $w] losing $w.

* Corrected loss of -in value by [grid remove].

* Make [$treeview see] schedule a redisplay.

* Corrected [console] treatment of '\0'.

* Fixed crash in nested, traced, compiled [catch].

* Fixed crash when list parsing overflows int limits.

* Revised interface of internal routine TclFindElement().
*** POTENTIAL INCOMPATIBILITY ***

* Imported fixes from libtommath 0.42.0.

file command with ActiveTcl 8.6b5

2011-04-10T19:04:00.000+08:00

Safe interp and file command with ActiveTcl 8.6b5

我也遇到 ::tcl::mathfunc::maxunknown hidden command "file" 這個錯誤訊息（在使用 ActiveTcl 8.6b5 執行 TclHttpd 的時候），只是在 Windows XP 上遇到，目前看起來應該是 ActiveTcl 8.6b5 的問題。

ActiveTcl 8.6.0.0b5

2011-02-19T06:56:00.000+08:00

這版和 beta-3, beta-4 一樣都是基於 Tcl 8.6 beta1.2 的 code base，如果要下載可以到 ActiveState ActiveTcl 8.6 的網頁。

tcllib 1.13 is out

2011-01-26T21:50:00.000+08:00

2011.01.24，tcllib 釋出了新版 v1.13。

Overview
========
44 new packages in 10 modules
29 changed packages in 24 modules
62 internally changed packages in 11 modules
207 unchanged packages in 79 modules
348 packages, total in 103 modules, total

相關連結：http://sourceforge.net/projects/tcllib/files/tcllib/1.13/

apply and procedure

2010-10-03T11:47:00.001+08:00

你的程式語言可以這樣做嗎？讀完以後，用 Tcl 實驗匿名函式能力以後的結果。

寫程式的時候，你注意到有二段 code 一模一樣，除了一個反覆呼叫一個叫 BoomBoom 的函數，另一個反覆呼叫一個喚作 PutInPot 的。

puts "get the lobster"
PutInPot "lobster"
PutInPot "water"

and

puts "get the chicken"
BoomBoom "chicken"
BoomBoom "coconut"

現在你需要一個辦法，使得你可以將一個函數用作另一個函數的參數。這是個重要的能力，因為你更容易將常用的程式碼收藏在一個函數內。而 Tcl 所具有的彈性讓我們可以這樣做：

proc Cook {arg1 arg2 func} {
   puts -nonewline "get the "
   puts $arg1
   
   $func $arg1
   $func $arg2
}

所以我們就可以這樣用：

Cook  "lobster" "water" "PutInPot"
Cook  "chicken" "coconut" "BoomBoom"

這樣就可以將函數作為參數了。

假設你未定義 PutInPot 或 BoomBoom 這些函數。如果能直接將它寫進一行內，不是比在其他地方宣告它們更好嗎？

proc Cook {arg1 arg2 func} {
   puts -nonewline "get the "
   puts $arg1
   
   set result [info procs $func]

   if {[string length $result] == 0} {
    apply $func $arg1
    apply $func $arg2
   } else {
    $func $arg1
    $func $arg2
   }
}

所以：

Cook "chicken" "coconut" {{food} { 
    puts -nonewline "BoomBoom --- "
    puts $food}
}

這樣是不是很方便？我建立函數時，甚至不用考慮怎麼命名，直接拿起它們，丟到一個函數內就可以了。

apply - Apply an anonymous function
apply func ?arg1 arg2 ...?

其中的 func 定義了參數和 procedure 要執行的東西（procedure body），思考一下 Tcl 如何定義 procedure，就知道該怎麼做：

proc anonymous_function {food} {
    puts -nonewline "BoomBoom --- "
    puts $food}
}

所以

Cook "chicken" "coconut" {{food} {
    puts -nonewline "BoomBoom --- "
    puts $food
  }
}

使用 tcom 取得 network adapter name list

2010-09-26T22:40:00.001+08:00

proc getNetworkAdapter {} {

    package require tcom;

    if [catch {::tcom::ref getobject "winmgmts:root/CIMV2"} wmi] then {
     return -code error $wmi;
    }

    set wql {SELECT * FROM Win32_NetworkAdapter}


    if [catch {$wmi ExecQuery $wql} tmp] then {
        return -code error $tmp;
    }
    
    ::tcom::foreach instance $tmp {
        set propSet [$instance Properties_]
        set msgVal [[$propSet Item NetConnectionID] Value]
        
        if {[string equal $msgVal ::tcom::NULL] == 0} {                         
            lappend Result $msgVal
        }
    }     

    return $Result    
}

使用 tcom 透過 WMI 拿到 network adapter name 的 list。

參考資料：
Matthias Hoffmann - Tcl-Code-Snippets - tcom & wmi - Examples

ActiveTcl 8.5.9.0

2010-09-17T22:23:00.002+08:00

ActiveTcl 8.5.9.0 已經在 ActiveState 的網站上可以下載了。

Tcl 8.5.9 的改變：

* TIP 359: new X11 option: [wm attributes -type]
- stops inappropriate Compiz animation of Tk menu & combobox.

* TIP 360: modernize menus on X11.
* New widget [ttk::spinbox].

* [lappend arr(elem)] no longer fires read traces as it inconsistently
has in some situations, but not in others.
*** POTENTIAL INCOMPATIBILITY ***

* [tk_getOpenFile] on Windows: unlimited multiple-file selection.

* [load] uses LOAD_WITH_ALTERED_SEARCH_PATH for fewer surprises when
bringing in DLLs via dependencies on Windows.
*** POTENTIAL INCOMPATIBILITY ***

* Updated [send] security rules to current Ubuntu/Fedora conventions.
* Fixed [wm iconphoto] on LP64 unix systems.
* [chan copy] of more than 2**31 bytes is now possible.
* min() and max() functions now work in safe interps.
* [$menu delete $tooBig end] now properly a no-op.
* canvas items now properly updated when canvas state changes.
* Revised [ttk::sizegrip] to accommodate Compiz.

* Revised default Text bindings for and to account;
for insertion point relationship to the selection.

* Corrected result of [tcl::mathfunc::abs 0.0].
* New version 1.432 of msgcat package.
* New version 1.0.9 of platform package.
* New version 0.8.6 of tile package.
* Changes to support building with MSVC++ 2010.
* Prevent race condition in some XIM implementations.
* Fixed bad results from [file rootname].
* Prevent consumption of all memory when [chan copy] copies to slow channel.
* [wm transient] now works even with withdrawn windows.
* $DISPLAY can now contain "::".
* Restored compatibility of [entry] validation with Itcl variable scope.
* Fixed line-sensitive matching by [regexp].
* Fixed memory corruption in complex canvas tag searches.
* Fixed crash in encoding finalization.
* Fixed crashes in widget destruction.
* Fixed crash in GetFontFamilyName().
* Fixed crash in menu deletion.
* Fixed crash in peer text dump.
* Fixed crash when bind scripts are empty.
* Fixed crash in unset traces during [array unset].
* Fixed crash deleting vars during callframe pop.
* Fixed crash in [open |noSuchFile rb].
* Fixed crash in [chan postevent].
* Fixed programming error in [clock format] in he_IL locale.
* Safe Base and Safe Tk rewrites

下載地點：
Download ActiveTcl Community Edition

下載中央銀行貨幣總計數M2年增率資料

2010-06-22T08:42:00.002+08:00

#!c:/tcl/bin/tclsh86.exe
########################################################################
# 下載中央銀行貨幣總計數M2年增率資料 
########################################################################

package require http

set url "http://www.cbc.gov.tw/np.asp?ctNode=643&mp=1"
set token [http::geturl $url -validate 1]

# create an easy-to-use array variable
upvar #0 $token head

set location "http://www.cbc.gov.tw/"
append location [dict get $head(meta) Location]

puts "### Get file: $location"
http::cleanup $token

set filename "cbc_m1b.xls"

set f [open $filename {WRONLY CREAT EXCL}]
set token [http::geturl $location -channel $f]
http::cleanup $token
close $f

exit

中央銀行貨幣總計數M2年增率資料在首頁就有，只是不是採用直接連結的方式，而是要從 head 裡取得檔案的下載位址，再從下載位址下載。在查過 Tcler's Wiki 該怎麼處理以後，我稍微改寫一下，目前可以正確的從網站下載我需要的資料。

如果中央銀行讓使用者下載資料的位址是固定的，那麼這段 code 就可以一直用下去，如果位址不固定的話，那就要想一下該怎麼做才對。

下載台灣證券交易所的市值週報

2010-06-03T23:28:00.000+08:00

#!c:/tcl/bin/tclsh86.exe
package require http
package require vfs::zip

########################################################################
# Download zip file
########################################################################
set remoteFile "http://www.twse.com.tw/ch/statistics/download/week.zip"
set localFile "week.zip"

set token [::http::geturl $remoteFile -binary 1]
set data [::http::data $token]

set channel [open $localFile w+]
fconfigure $channel -encoding binary -translation binary
puts -nonewline $channel $data
close $channel

::http::cleanup $token

########################################################################
# Now handle zip file
########################################################################
set mnt_file [vfs::zip::Mount $localFile $localFile]
file copy -force [glob $localFile/*] ./
vfs::zip::Unmount $mnt_file $localFile
file delete $localFile

exit

和之前寫的東西很像，使用 http 套件下載檔案，然後使用 vfs::zip 來解 zip 檔。要取得台灣證券交易所的市值週報資料的原因是因為我看到一篇 GDP 與市場大盤的文章，所以想要自己算看看目前的情況。

因為有可能會長期並且以季為單位的進行觀測，所以寫了這個 script，讓自己不用開瀏覽器就拿到資料，應該可以節省一些時間。

ActiveTcl 8.6.0.0 beta-3

2010-05-22T23:01:00.000+08:00

我很高興的發現 ActiveTcl 8.6 釋出了新的測試版本（beta-3），這個測試版本主要更新：將 code base 更新為 8.6b1.2 Tcl core。

Note: This release should not be deployed in a production environment.

Download ActiveTcl Community Edition

Threading Support: Configuration and Package

2010-04-14T11:09:00.001+08:00

TIP #364: Threading Support: Configuration and Package

在 [incr Tcl] , TDBC 之後，Thread package 也成為內建的 contributed package，因此 Thread package 也會成為 8.6 的一員。

節錄會有影響的地方：

This will have no effect on Windows and OSX, where threaded configurations are default anyway, but will have an impact on other Unixes (Linux, Solaris, etc.)

The main issues arising from this relate to the Expect and TclX packages. This is because they make fork and signal commands available; these APIs are troublesome because of how they interact with Tcl's notifier and the POSIX Thread system in general.

使用 EXIF 的時間資料來改檔案名稱

2010-01-29T18:51:00.003+08:00

第一版的 script 已經 OK 了，不過考慮到如果有多過於一天的照片，這樣好像還是有點麻煩，所以改寫變成為讀取 EXIF 的資料以後，再用檔案內的日期資料來改檔名。

Tcllib 有提供 jpeg 和 exif 二個套件可以使用，因為 jpeg 有提供範例，所以最後使用 jpeg 套件來實作：

#!/usr/bin/tclsh
#
# Rename script
#
# argument 1: folder location (option)
#

package require jpeg

puts "##########   Start   ##########"

if {$argc >= 1} {
 cd [lindex $argv 0]
} elseif {$argc == 0} {
 cd "c:/tmp"
}

foreach filename [glob *.jpg] {
 array set exif [::jpeg::getExif $filename]
 set today [clock format [clock scan $exif(DateTimeOriginal) \
          -format {%Y:%m:%d %H:%M:%S}] -format %Y%m%d]

 regsub -all {\mIMG} $filename $today newFileName

 file rename $filename $newFileName
}

puts "##########    End    ##########"

exit

相關資訊：
Wiki：Exchangeable image file format

Exchangeable image file format (Exif) is a specification for the image file format used by digital cameras. The specification uses the existing JPEG, TIFF Rev. 6.0, and RIFF WAV file formats, with the addition of specific metadata tags. It is not supported in JPEG 2000, PNG, or GIF.

File rename

2010-01-16T19:29:00.002+08:00

#!/usr/bin/tclsh
#
# Rename script
#

puts "##########   Start   ##########"

if {$argc >= 1} {
   cd [lindex $argv 0]
} elseif {$argc == 0} {
   cd "c:/tmp"
}

set today [clock format [clock seconds] -format %Y%m%d]

foreach filename [glob *.jpg] {
   regsub -all {\mIMG} $filename $today newFileName
  
   file rename $filename $newFileName
}

puts "##########    End    ##########"

exit

會寫這個 script，是因為我的數位相機照完相以後，會是 IMG_0001.JPG, IMG_0002.JPG 這樣編號，而我習慣用日期來整理，所以要把檔名改為 20100116_0001.JPG 這種形式，而自己手動改有點浪費時間，所以寫一個改檔名的 script 來做這件事情。

使用了 glob 來列出所有 *.JPG 的檔案，再來把檔名前半部的 IMG 換成今天的日期，最後改檔名，應該就完成任務了。

tcllib 1.12 is out

2009-12-11T10:17:00.002+08:00

這個消息已經晚了幾天（1.12 在 2009/12/08 已經 release 了），不過因為我是到現在才知道，所以還算是「新」消息吧。

官方網站還沒有更新，但是 SourceForge 檔案列表上已經有放上去檔案了。

Read Me 上的 Overview：

72 new packages in 10 modules
46 changed packages in 25 modules
14 internally changed packages in 12 modules
166 unchanged packages in 65 modules
301 packages, total in 95 modules, total

有趣的是，我看到有一個 coroutine package 包含在 1.12 這次的 release 裡，這需要 Tcl/Tk 8.6 或者是更高的版本才可以使用。

ActiveTcl 8.5.8 is out

2009-11-20T20:05:00.002+08:00

ActiveTcl 已經釋出了 ActiveTcl 8.5.8，因此有興趣或者是有需要的人可以前往 ActiveTcl 下載了。

Tcl/Tk 8.5.8 RELEASED

2009-11-18T11:10:00.002+08:00

Tcl/Tk 8.5.8 已經發佈了，這一版修正了許多問題，我想 ActiveTcl 接下來就會釋出 ActiveTcl 8.5.8 的版本。

在釋出 8.5.8 這個穩定版本之後，我想只要 bug fix 的差不多，我推測 Tcl/Tk 8.6 beta 2 應該也就會釋出了。

下面是 change log：

Summary of Changes since Tcl/Tk 8.5.7:
--------------------------------------

The following were the main changes in Tcl/Tk 8.5.8. A complete list can be found in the changes file at the root of the source tree. The more complete ChangeLog is also included with each source release. This is a patch release, so it primarily includes bug fixes and corrections to erratic behavior. Below are only the most notable changes.

* Resized mp_digit / mp_int storage on 64-bit systems.
*** POTENTIAL INCOMPATIBILITY see http://wiki.tcl.tk/24693 ***

* Vista Ttk theme support.

* [tk_chooseDirectory] has newer style on Windows.

* Tk 8.5.8 can now [load] into a Tcl 8.6 or later interp.

* Updated [send] security for compatibility with Fedora 8 systems.

* Corrected scope of [tk_get*File -typevariable].

* [glob */foo] now returns ./~x/foo and not ~x/foo .

* [wm iconphoto] now works on non-32-bit displays and big endian systems.

* Safe Base now permits access to complete TM search path.

* [info frame] now accounts for continuation lines.

* [chan create]d channels can now signal EAGAIN.

* Repaired broken "tclTomMath.h" header file.

* New version 1.0.5 of platform package:
- accounts for ia64_32

* New version 2.7.5 of http package:
- accept "quoted" charset value in headers
- RFC 3986 compliance for ? in URLs

* New version 2.3.2 of tcltest package.

* Fixed nested event loop problems with TkAqua Cocoa and CoreFoundation.

* Fixed Core Foundation memory bug in Tiger.

* Fixed [checkbutton] state confusion on Windows.

* Update [tk_messageBox] to work with Ttk buttons.

* Fixed buffer overflows in [format].

* Fixed EIAS failures in filesystem paths like ~foo.

* Fixed XLFD font parse of {-family sans-serif ...}.

* Fixed keyboard traversal of Windows menus.

* Stop [grab .] preventing minimization.

* Stop "tiny fonts" problem on Russian Windows.

* Fixed tearoff menu operations on Windows.

* Fixed underline and overstrike in Xft fonts.

* Fixed crash when [exec] redirects to [chan create]d channel.

* Fixed incorrect ** results like [expr {7**9 == 7**65545}] => 1.

* Enable image data transfer through [selection get].

* Proper tcl_platform(user) value on Windows when run as SYSTEM.

* Repaired many segfaults and panics due to integer overflow on long values.

* Fixed crashes sending focus to windows dead or not yet born.

* Fixed crash drawing sash on panedwindow.

* Fixed crash allocating fonts.

* Fixed X crash on overlong color name.

* Stopped hang in [fcopy -size] with mismatched translations/encodings.

* Repaired memory leak in Tcl_ThreadQueueEvent().

* Repaired memory leak in [dict incr].

* Fixed crash in self-deleting variable unset traces.

* Fixed crash in nested compiles (traces on ::errorInfo).

* MIPS FPU settings for floating point underflow.

* Support for portability to gcc 2.95 on Haiku OS.

* Corrections and updates to timezone data and DST calculations.

* Several Tk appearance corrections.

更新 Windows 平台環境：使用 ActiveTcl 8.6 beta-2

2009-10-25T13:39:00.002+08:00

Active Tcl 8.6 Beta

我發現 Active Tcl 更新了安裝檔案，所以也跟著更新了。這次的更新也更新了原本附帶的套件到目前的最新版（例如說 VFS），所以我已經昇級到這個版本了。

注意：這一版的 code base 仍然是 Tcl/Tk 8.6 beta 1，可以算是針對一些套件做 upgrade 的吧。

清除掉 Visual C++ 2008 Express 最近使用的專案列表

2009-10-23T22:58:00.009+08:00

package require registry

label .show -text "Below is the list:"
grid .show -row 0 -column 0 -columnspan 2 -pady 3 -ipady 1

set count 0
set rootKey "HKEY_CURRENT_USER\\Software\\Microsoft\\VCExpress\\9.0\\ProjectMRUList"

foreach id [registry values $rootKey] {
if {[string length $id] &gt;= 4} {
set text [registry get $rootKey $id]
ttk::checkbutton .$count -text $text -variable check($id)
grid .$count -column 0 -columnspan 4 -ipady 1 -sticky nsew
set check($id) 0
incr count 1
}
}

proc doClean {} {
foreach id [registry values $::rootKey] {
if {[string length $id] &gt;= 4} {
    if {$::check($id) == 1} {    
        registry delete $::rootKey $id
    }
}
}

exit
}

# Let our button in next row
incr count 1

button .exit -text "Exit" -command exit
grid .exit -column 2 -row $count -pady 3 -ipady 1 -sticky nsew
button .clean -text "Clean" -command doClean
grid .clean -column 3 -row $count -pady 3 -ipady 1 -sticky nsew

使用 checkbutton 建立列表，讓使用者選擇要清除最近使用的專案列表中的哪一個。我們使用一個陣列記住目前使用者的選擇，如果使用者按 Clean，就去清掉使用者所選擇的那些項目。

Geometry Manager 使用 grid 來管理。

tDom and TclXML

2009-10-10T20:02:00.003+08:00

Tcl 是個極容易擴充的語言（並且因此影響到後面出現或者是同期的 scripting language），在處理 XML 方面，有二個主要的套件：

tDom
TclXML/TclDOM

我會比較偏好 tDom，因為他雖然是用 C 實作，而且在架構上沒有 TclXML 的野心那麼大，但是 tDom 在管理上比較簡單（只有一個套件），不像 TclXML/TclDOM 需要好幾個套件組合起來、而且 TclDOM 隨著各個實作的不同，能力也不同（pure Tcl, Expat, libxml2）。

更多資料：TclDOM vs tDOM

TDBC 1.0 b13 已經包含 tdbc::postgres

2009-10-10T05:55:00.007+08:00

我發現 TDBC PostgreSQL driver 已經完成了，所以小小的測試了一下（使用 PostgreSQL 8.4.1）：

package require tdbc::postgres
tdbc::postgres::connection create db -user danilo -password test -port 5432

set statement [db prepare {
 SELECT VERSION()
}]

$statement foreach row {
 puts [dict get $row version]
}

$statement close
db close

沒錯，確實已經可以運作了，而 tdbc::postgres 主要是透過 libpg 來實作的。

另外，TDBC 同時也包含了 Oracle 的 driver，但是這一個我就沒有測試了。

刪除 Adobe Flash Sol 記錄

2009-09-22T08:53:00.004+08:00

看到 Adobe Flash 用戶: 請笑一個給世界看, 您上鏡頭了! 以後，因為不知道怎麼樣在 IE8 上讓 Flash 可以正常使用但是又不會使用 Sol 記錄使用者的一些資訊，所以我寫了一個 tcl script 來嘗試刪除這些記錄，下面就是我寫的 script：

set SolFile [set env(USERPROFILE)]
append SolFile {\Application Data\Macromedia}

if {[file exist $SolFile]==1} {
   file delete -force $SolFile
}

使用了大絕招（加上參數 -force）來刪除目錄以及其中的所有檔案，這樣就可以半自動的刪除掉這些試圖記錄的資訊。如果有其它的需要或者是需要再增加其它的目錄進行刪除，只要修改一下就 OK 了。

Eagle

2009-09-20T16:38:00.001+08:00

The Eagle Project

Eagle (Extensible Adaptable Generalized Logic Engine) is an implementation of the Tcl scripting language for the Common Language Runtime (CLR).

這是個仍然在發展中的案子，把 Tcl 搬到 .NET 的世界了。

Tcl and the Tk Toolkit Second Edition is out

2009-09-15T16:13:00.007+08:00

根據 comp.lang.tcl 的消息，有人已經收到來自於 Amazon 的實體書了，所以已經正式開賣並且已經開始供貨，但是不知道台灣目前的進口情況，因為博客來和天瓏目前都是處於沒有進口（或許該說沒有東西可以供使用者訂購）的狀況。

雖然沒有加入 8.6 的 OO （物件導向）或者是其它的改進有點可惜，但是按照目前 8.6 的發展情況來看，加入的結果將會使這本書的出版更為難產，我想將版本放在 8.5 是個合理的決定。

目前和 Amazon 的書評綜合看起來，都是比較正面的評價，所以我想第二版仍然維持了清楚並且組織良好的風格，it is a good news.

Update:
2009/10/20 天瓏已經開始賣了，我已經拿到書了。

優雅的關閉程式

2009-09-13T17:30:00.003+08:00

在 Windows 平台下，ActiveTcl 預設是使用 wish.exe 來開啟 .tcl 檔案，如果直接執行不需要 tk 的程式，往往會留下一個 wish window。

解決的方法很簡單，在最後使用 exit 關閉程式就可以了：

exit

這樣就可以優雅的關閉程式而不會留下一個 wish window --- 即使是用 wish.exe 開啟的。

Tcl and the Tk Toolkit (2nd Edition)

2009-09-09T15:59:00.007+08:00

Tcl and the Tk Toolkit (2nd Edition)on Amazon

John K. Ousterhout’s Definitive Introduction to Tcl/Tk–Now Fully Updated for Tcl/Tk 8.5

Paperback: 816 pages

Publisher: Addison-Wesley Professional; 2 edition (September 12, 2009)

ISBN-10: 032133633X
ISBN-13: 978-0321336330

光是作者的名字 (John K. Ousterhout and Ken Jones ) 就讓人想要買這本書了啦，但是目前天瓏提供的日期是 ~~2009/09/14~~ 2009/09/29（而且還不確定）。原本在 2005 年就已宣佈有計畫更新為第二版，但是直到現在才又有新的消息。

在 Tcler's Wiki 上也有相關的訊息。

Download and Uncompress zip file

2009-09-05T00:18:00.003+08:00

在使用的過程裡，我發覺 vfs 1.4.0 應該是有 bug 的，如果要使用 vfs::zip 來解壓縮，要把版本昇到 1.4.1 才行。

下面是從臺灣證券交易所下載檔案，然後使用 vfs::zip 解壓縮的範例：

#!c:/tcl/bin/tclsh86.exe
package require http
package require vfs::zip

########################################################################
# Now download file from network
########################################################################

set day [clock format [clock seconds] -format {%d}]
set now [clock seconds]

if {$day > 7} {
 set value [clock format [clock add $now -30 day] -format {%Y%m}]
} else {
 set value [clock format [clock add $now -60 day] -format {%Y%m}]
}

set remoteFile "http://www.twse.com.tw/ch/statistics/download/04/001/"
append remoteFile $value
append remoteFile "_C04001.zip"

puts "======================================================"
puts "URL: $remoteFile"

set localFile $value
append localFile "_C04001.zip"

puts "Download File name: $localFile"
puts "======================================================"

set token [::http::geturl $remoteFile -binary 1]
set data [::http::data $token]

set channel [open $localFile w+]
fconfigure $channel -encoding binary -translation binary
puts -nonewline $channel $data
close $channel

::http::cleanup $token

########################################################################
# Now handle zip file
########################################################################

set mnt_file [vfs::zip::Mount $localFile $localFile]
file copy -force [glob $localFile/*] ./
vfs::zip::Unmount $mnt_file $localFile
file delete $localFile

幫朋友寫的，這樣再做一些適當的設定就可以定時下載最近的企業月報，而季報也可以比照辦理。

在命令列呼叫 OpenOffice.Org Basic 巨集

2009-08-02T04:23:00.005+08:00

這不只可以用 Tcl/Tk 來做到，只是我最習慣 Tcl/Tk 來做這些事情。

OpenOffice.Org Basic 寫的程式：

REM ***** BASIC *****

Option Explicit

Sub AutoFindGoodMan(cFile)
Dim Doc As Object
Dim Dummy()

Dim Sheet As Object
Dim Cell As Object
Dim Cell2 As Object
Dim Cell3 As Object
Dim Cell4 As Object
Dim Count As Integer

Doc = StarDesktop.loadComponentFromURL(ConvertToUrl(cFile), "_default", 0, Dummy())

Sheet = Doc.Sheets(0)

dim document   as object
dim dispatcher as object
rem ---------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Zoom.Value"
args1(0).Value = 100
args1(1).Name = "Zoom.ValueSet"
args1(1).Value = 28703
args1(2).Name = "Zoom.Type"
args1(2).Value = 0
dispatcher.executeDispatch(document, ".uno:Zoom", "", 0, args1())

For Count = 66 To 841 Step 1
Cell = Sheet.getCellByPosition(0, Count)
IF Cell.Value > 1000 Then
    Cell.CellBackColor = RGB(0, 0, 255)
    Cell2  = Sheet.getCellByPosition(3, Count)
    Cell3  = Sheet.getCellByPosition(5, Count)
    Cell4  = Sheet.getCellByPosition(7, Count)

    IF Cell3.Type = com.sun.star.table.CellContentType.EMPTY Then
        IF Cell4.Value = 0.00 Then
            Cell3.CellBackColor = RGB(255, 0, 0)
            Cell4.CellBackColor = RGB(255, 0, 0)
        ENDIF
    ELSE
        IF Cell3.Value < 9 AND Cell4.Value > 5 Then
            IF Cell2.Value <= 15 Then
                Cell2.CellBackColor = RGB(255, 255, 0)
            ELSEIF Cell2.Value > 15 AND Cell2.Value <= 40 THEN
                Cell2.CellBackColor = RGB(0, 255, 0)
            ELSEIF Cell2.Value > 40 THEN
                Cell2.CellBackColor = RGB(0, 255, 255)
            END IF
   
            Cell3.CellBackColor = RGB(0, 255, 0)
            Cell4.CellBackColor = RGB(0, 255, 0)
        ELSEIF Cell3.Value >= 80 Then
            Cell3.CellBackColor = RGB(0, 255, 255)
        End IF
    End IF
End IF
Next Count

If (Doc.isModified) Then
If (Doc.hasLocation And (Not Doc.isReadOnly)) Then
    Doc.store()
End If
End If


Doc.close(True)

End Sub

而可以用 Tcl/Tk 執行 soffice.exe，來幫我們自動執行這件事：

set DIR [pwd]
set DOCS [glob *.xls]

foreach file $DOCS {
  set inputFile $DIR
  append inputFile "/" $file
  set exeList [list "C:\\Program Files\\OpenOffice.org 3\\program\\soffice.exe" "macro:///Standard.Module1.AutoFindGoodMan($inputFile)"]
  exec {*}$exeList
}

但是我還沒有摸索出來在執行的時候不要顯示出來 OpenOffice.Org 文件視窗的方法，不論是使用命令列指定，或者在執行時設定的方式，都是沒有效果的（有可能是因為我沒有設定正確吧……）。

執行程式

2009-07-30T18:50:00.001+08:00

Tcl 使用 exec 來執行外部程式：

set var [list rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,@0,2]
exec {*}$var

這裡使用 {*} 和 exec 結合的範例。

math function

2009-07-17T09:27:00.004+08:00

在 Tcl 8.5 以前，Tcl 的數學運算都是透過 expr 這個 command 做到的，而在 8.5 則引進了 tcl::mathfunc，讓使用一些數學運算的 function 上可以更直覺，使用上也更簡單。

如果不想寫一堆很長的 name space path，可以這樣做：

namespace path {::tcl::mathop ::tcl::mathfunc}

所以我們就可以這樣做：

srand [clock seconds]

這樣不管是撰寫程式還是讀 code 的時候，看起來都比較具可讀性。

另外，8.5 同時也 export 出來一些運算子（tcl::mathop）。

puts [* [sqrt 49] [+ 1 2 3]]

也就是，看起來會是類似 lisp 的前序式運算法。

Access global variables in proc

2009-07-16T10:09:00.004+08:00

在 procedure 裡存取全域變數，有二種做法：

1. 使用 global 命令宣告要存取的全域變數
2. 在 Tcl 支援 name space 之後，可以使用 name space 的表達方式（::）來存取變數

set x 0

proc appendMe {number} {
    global x
    incr x $number
}

proc appendMe2 {number} {
    incr ::x $number
}

appendMe 3
puts $x

上面就是這二種方式的說明。

Tcl/Tk 與編碼 (Encoding)

2009-07-15T10:18:00.002+08:00

關於 Tcl 的編碼，可以分為二部份，一部份是 Tcl/Tk 直譯器本身支援的編碼，一部份是使用者的 Tcl script file 所使用的編碼。

首先是使用者的 Tcl script file 所使用的編碼，可以用下列的方法來指定：
tclsh.exe -encoding [編碼方式] [檔案]
wish.exe -encoding [編碼方式] [檔案]

我們可以使用下面的方式來查詢目前 Tcl/Tk直譯器本身所支援的編碼方式：
encoding names

例如用 Tclkit 來查詢，就可以得到他目前支援的編碼方式：
iso8859-2 iso8859-15 utf-8 ascii cp1252 macRoman koi8-r identity unicode iso8859-1

所以 Tclkit 不支援 BIG5... 如果需要的話要自己加上去。

GetHomeDir

2009-07-11T16:22:00.000+08:00

在 Windows，我們可以透過謮取 registry 和環境變數拿到使用者的 My Documents. 下面是來自於 Tcler' Wiki 的 code，只是我自己有小修改一些，好符合我自己的環境。

proc GetHomeDir { } {
 global env

 # Check if we're using windows
 if { [expr [string compare "$::tcl_platform(platform)" "windows" ] == 0] } {
   package require registry 1.0

   set env_home [registry get {HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders} {Personal}]
   set userprofile [set env(USERPROFILE)]
   regsub -all {[%]USERPROFILE[%]} $env_home $userprofile env_home
 } else {
   set env_home $env(HOME)
 }

 return $env_home
}

另外，如果要刪除 Opera 在 UserProfile 下的 cookie，可以這樣做：

set CookieFile [set env(USERPROFILE)]
append CookieFile {\Application Data\Opera\Opera\profile\cookies4.dat}

if {[file exists $CookieFile]==1} {
   file delete $CookieFile
}

因為 AVG 會對這裡一直警告（即使我關掉 Cookie），所以要寫一個小程式殺掉檔案，避免他一直警告（不過話說回來，我已經不用 AVG 了）。

GIF photo images written with LZW compression

2009-06-28T11:03:00.000+08:00

Tk 在 8.6 除了加入 PNG 格式的支援，同時因為 LZW 演算法專利已經過期，所以 Tk 8.6 也會加入 GIF photo images written with LZW compression 的支援。

下面是一些資訊：

"Unisys U.S. LZW Patent No. 4,558,302 expired on June 20, 2003, the counterpart patents in the United Kingdom, France, Germany and Italy expired on June 18, 2004, the Japanese counterpart patents expired on June 20, 2004 and the counterpart Canadian patent expired on July 7, 2004."

IBM 也握有 LZW 的專利，但是根據 GNU GIF 的網頁，IBM 的專利也將於 2006/10 到期，也就是說，實作的人將不用擔心觸碰到 LZW 專利地雷。

雖然我們有了 PNG，但是能夠使用 GIF 也不錯。

Scripting: Higher Level Programming for the 21st Century

2009-06-27T08:22:00.000+08:00

這是由 John K. Ousterhout 所寫的文章，而從現在 PHP/Perl/Python/Ruby/Tcl 各種 scripting language 的發展來看，似乎也是如 John K. Ousterhout 所推測的一樣。當然，自由軟體所帶來的效應，可能也是其中的一個原因之一。

Scripting language 的缺點就是慢，但是開發快速而且除錯方便，但是當硬體的速度愈來愈快的時候，Scripting language 的缺點也就不太算是缺點了，各種 Scripting language 只會愈來愈重要。

Try/Catch/Finally syntax

2009-06-25T06:42:00.000+08:00

Tcl 原本就有錯誤處理的機制（使用 catch），而在 TIP #329 （in 8.6 b1）又加入了類似 Try/Catch/Finally 來增強原本的機制。

proc read_hex_file {fname} {
   set f [open $fname "r"]
   set data {}
   try  {
      while { [gets $f line] >= 0 } {
        append data [binary format H* $line]
      }
   } trap {POSIX} {} {
      puts "POSIX-type error"
   } on error {em} {
      error "Could not process file '$fname': $em"
   } finally {
      close $f
   }
}

也就是說，原本 catch 是執行如果出錯，那就依據取得的 error code，再來判斷怎麼處理；而 try/finally 則是如果發生錯誤，會依據 error code 而把程式的流程流向該處理這個錯誤的 error handler，因此整個 code 如果寫的好會看起來比較清晰。對於錯誤的處理策略看起來比較清晰。

SQLite and PostgreSQL

2009-06-24T17:10:00.001+08:00

雖然 Tcl 在 8.6 終於加入了 TDBC，但是目前只有支援 SQLite, MySQL 等少數的資料庫，而沒有支援 PostgreSQL。

PostgreSQL 有提供 Tcl 的介面（只是不是使用 TDBC API，而是 specify for PostgreSQL 的），而且需要自己去網站下載相關的檔案。

Google Student Summer 計畫裡，關於 Tcl 的部份，有看到關於 TDBC-PostgreSQL 的部份，只是不知道目前的進度怎麼樣了。

對我而言，SQLite 是單機使用的最佳選擇，而 PostgreSQL 雖然在 Open Source 界使用聲勢上弱於 MySQL，但是我還是最喜歡使用他（好吧，雖然現在因為沒有在寫關於網路和 WEB 的應用，所以沒有在用他了）。而在甲骨文併購昇陽之後，MySQL 的前途變成了一件不明確的事情（雖然甲骨文不太可能就這樣壞掉自己的聲譽，所以囉），因此版權和 source code 所有權明確的 PostgreSQL 是一個好選擇，特別是當 PostgreSQL 的可靠度其實很可怕的時候（台灣的中鋼就是使用 PostgreSQL 哦）。

However，如果 TDBC-PostgreSQL 出來了，我會稍微測試一下相關的東西，看看這個 TDBC-PostgreSQL driver 的情況，如果有東西給我修改，對我而言比從零開始好，所以我已經放棄了一開始的想法，先從熟悉 TDBC 的方向著手。

另外，在 TDBC 之後，[Incr Tcl] 4.0（這個版本使用 TclOO 全部改寫）已經進入 Tcl core code，將會以 package 的方式存在，在 8.6 beta 2 就會進去了，所以 8.6 beta 2 出來的時候，我也會看看這部份的情況。

看起來 Tcl/Tk 8.6 將會是一個巨大的改版，不管是物件導向套件的引入（TclOO/iTcl），或者是資料庫 API 的統一（TDBC），甚至是引入 zlib 與 png 的支援，都將深刻的改變這個語言，同時也讓這個語言更好用更強壯。

A Slightly Skeptical View on Scripting Languages

2009-06-24T17:09:00.001+08:00

A Slightly Skeptical View on Scripting Languages

一篇對於 Scripting Language 的文章。

比較語言的差異與優缺點是浪費時間，因為每個語言都有其優缺點，挑順手的就好了（除非是因為 project 還是 Boss 要求）。

不過就算是現在，我還是覺得 Tcl 很棒（雖然用的人沒有很多），因為 Tcl 的語言規則很簡單但是卻又變化無窮，John Ousterhout 真的好強啊~~~

Tkhtml v3

2009-06-24T17:08:00.001+08:00

TkHTML

Tkhtml 是個通過 ACID2，for Tk 可以用來顯示 HTML/CSS 內容的 widget。

下面是在 Tcler's Wiki 上示範使用 Tkhtml 做出一個 Label widget 的範例：

package require Tkhtml 3.0

# Create and populate an html widget.
html .label -shrink 1
.label parse -final {
   <b>Hello <i>world</i></b> example
}

# Pack the new html widget
pack .label

bind .label <KeyPress-q> exit
focus .label

Thread and Tcl

2009-06-24T17:07:00.001+08:00

package require Thread
catch {console show}

set ::gThread [thread::create {thread::wait} ]

proc printTime { } {
 thread::send -async $::gThread { puts stdout [clock format [clock seconds]] }
 after 1000 printTime
}

printTime
puts "started test..."

#only needed for tclsh, to keep the interpreter alive and keep the event loop running
vwait forever

在經過一段時間的學習以後，我才慢慢的看懂了 Tcl 的 Thread 擴充套件應該怎麼用才對，相關的資訊可以看 Tcl Threading Model。

如果要檢查 tclsh 是不是 build 成支援 thread，則可以用

expr {[info exists ::tcl_platform(threaded)] && $::tcl_platform(threaded)}

來做到。當值為 1 時，表示有支援。

Tcl/TK 8.5 new syntax: {*} 與 Eval

2009-06-24T17:05:00.000+08:00

Tcl/Tk 8.5 引進了新的語法 {*}，可以用來動態的建立命令執行，可以讓程式看起來更為簡單（使用 eval 會看起來比較複雜）。

我們可以用 Eval 這個指令將參數串接成一個字串後，將字串視為一個 Tcl Script 丟給解譯器去執行。下面是使用 Eval 版：

eval button .b $stdargs -text \$mytext -bd $border

{*} 可以將可以將串列的各個值分開為不同的參數，下面是改寫過後的版本：

button .b {*}$stdargs -text $mytext -bd $border

列出目前的磁碟機

2009-06-24T17:04:00.001+08:00

我們可以使用 file 這個 command 來做到這件事，所拿到的是目前磁碟機的 list，下面是範例程式：

set disks [file volumes]

puts "Disks:"
foreach local $disks {
puts " $local --- [file system $local]"
}

在範例中，我們同時也使用了 file system 來取得檔案系統的資料（是 FAT 或者是 NTFS 等資料）。

Tcl/Tk 與 Thread

2009-06-24T17:02:00.000+08:00

不知道為什麼，我對於 Thread 總是心存恐懼，雖然我已經懂得避掉一些不好的情況，但是遇上 Thread 總是怕怕的，可能是因為 Thread 非循序的特性讓我覺得無法自在的使用吧？

Tcl/Tk 在自己的 C API 已經有支援 Thread 的 API（編譯的時候要 enable），並且從 8.1 開始就已經是 thread safe 的軟體，而 Thread 這個套件則是讓我們可以透過 Tcl scripting 的方式來操作。

下面是 Tcl C API 關於 Thread 的部份：
Tcl_ConditionNotify, Tcl_ConditionWait, Tcl_ConditionFinalize, Tcl_GetThreadData, Tcl_MutexLock, Tcl_MutexUnlock, Tcl_MutexFinalize, Tcl_CreateThread, Tcl_JoinThread

在 Linux/FreeBSD/UNIX 世界裡，通常是遵循 POSIX 標準，所以是使用 PThread，而 Windows 平台則有自己的一套 API，而 Tcl/Tk 已經幫我們建立了一個中介層，所以不用管底層的差異。

Scripting Tcl 大小事

tcllib 1.14 is out

Coroutines

Wub

備份 (on Windows)

使用 7-zip 壓縮目錄與檔案 (on Windows)

ActiveTcl 8.6.0.0b6 released

ActiveTcl 8.5.10.1 released

使用 7-zip 壓縮目錄與檔案

Tcl/Tk 8.5.10 RELEASED

file command with ActiveTcl 8.6b5

ActiveTcl 8.6.0.0b5

tcllib 1.13 is out

apply and procedure

使用 tcom 取得 network adapter name list

ActiveTcl 8.5.9.0

下載中央銀行貨幣總計數M2年增率資料

下載台灣證券交易所的市值週報

ActiveTcl 8.6.0.0 beta-3

Threading Support: Configuration and Package

使用 EXIF 的時間資料來改檔案名稱

File rename

tcllib 1.12 is out

ActiveTcl 8.5.8 is out

Tcl/Tk 8.5.8 RELEASED

更新 Windows 平台環境： 使用 ActiveTcl 8.6 beta-2

清除掉 Visual C++ 2008 Express 最近使用的專案列表

tDom and TclXML

TDBC 1.0 b13 已經包含 tdbc::postgres

刪除 Adobe Flash Sol 記錄

Eagle

Tcl and the Tk Toolkit Second Edition is out

優雅的關閉程式

Tcl and the Tk Toolkit (2nd Edition)

Download and Uncompress zip file

在命令列呼叫 OpenOffice.Org Basic 巨集

執行程式

math function

Access global variables in proc

Tcl/Tk 與編碼 (Encoding)

GetHomeDir

GIF photo images written with LZW compression

Scripting: Higher Level Programming for the 21st Century

Try/Catch/Finally syntax

SQLite and PostgreSQL

A Slightly Skeptical View on Scripting Languages

Tkhtml v3

Thread and Tcl

Tcl/TK 8.5 new syntax: {*} 與 Eval

列出目前的磁碟機

Tcl/Tk 與 Thread

更新 Windows 平台環境：使用 ActiveTcl 8.6 beta-2