Skip to content
Published on

モダン Tcl & Tk 2026 完全ガイド - Tcl 9.0・Tk 9.0・Wapp・Tcllib・AOLServer・TclKit・ttk・Iwidgets 徹底解説

Authors

プロローグ — 「Tcl は死んだ」という神話

技術系 Twitter で最もよく見る誤解の一つ:「Tcl は死んだ」。1988年に John Ousterhout が UC Berkeley で生み出したこの言語は、2026年になっても毎日数百億ドル規模の半導体設計作業を支え続けている。

Synopsys Design Compiler、Cadence Innovus、Xilinx Vivado、Mentor Calibre — 現代のチップを生み出すほぼすべてのツールのスクリプトインターフェイスは Tcl だ。EDA 市場だけで年間130億ドルを超え、その上で動く自動化スクリプトはすべて Tcl で書かれている。

そして2023年11月、Tcl 9.0 がリリースされた。17年ぶりのメジャーリリース。64ビット整数とインデックス、フル UTF-8、モダンなパッケージ機構。2025年には Tcl 9.1 が続いた。死んだはずの言語が、ふたたび動き始めたのだ。

本稿では2026年の Tcl スタックを最初から最後まで — 言語コア・Tk GUI・Wapp Web フレームワーク・Tcllib 標準ライブラリ・EDA 産業利用・組み込みバリアントまで — 一息に整理する。


第1章 · Tcl とは何か、なぜ生き残ったか

Tcl(Tool Command Language)の設計哲学を一行で要約すると、こうだ:「すべては文字列であり、すべてはコマンドである」

最小の Tcl スクリプト。

# 変数宣言と出力
set greeting "Hello, Tcl 9.0"
puts $greeting

# リストとループ
set fruits [list apple banana cherry]
foreach fruit $fruits {
    puts "I like $fruit"
}

# プロシージャ(関数)の定義
proc greet {name} {
    return "Hello, $name!"
}
puts [greet "World"]

ここで三つを押さえる。

  1. set var value — すべての変数は set で作る。型宣言はない。
  2. $var — 変数置換はドル記号。文字列中でも即座に展開される。
  3. [command args] — 角括弧内のコマンドは即時実行され、結果に置換される。

この三つだけで Tcl の文法の90%を網羅する。シンプルさは即ち組み込み適性であり、それこそ EDA ツールが Tcl を選んだ理由だ。自分のツールの中にインタプリタを一つ埋め込むのに、これほど軽い言語は他にない。


第2章 · Tcl 9.0 — 17年ぶりのメジャーアップデート

2023年11月23日、Tcl 9.0 が正式リリースされた。8.5(2007)・8.6(2012)の間で言語は漸進的に改善されてきたが、9.0 は一部の互換性を捨てて大きな変化をもたらした。

主要な変更点。

  • 64ビット優先 — 文字列・リスト・インデックスのすべてが2GB の上限を超えた。本当に大きなデータを Tcl で扱えるようになった。
  • フル UTF-8 — Tcl の内部表現が modified UTF-8(MUTF-8)から通常の UTF-8 に移行。外部ツールとの相互運用がきれいになった。
  • 0o755・0b1010 リテラル — 8進数と2進数表記がモダンに。8.x の「先頭ゼロが8進数」(0755)という罠が消えた。
  • モダンなパッケージ機構package require のセマンティクスが整理された。
  • Zip ファイルシステムmount で zip ファイルを仮想ディレクトリのように扱える。

C ABI のメジャーバージョンが9に上がったため、8.x の拡張は再ビルドが必要になった。だから Tcl 9.0 と 8.6 はしばらく共存した。2025年の Tcl 9.1 は9.0 の安定化リリースで、9.2 は現在開発中だ。


第3章 · Tk 9.0 — 30年選手 GUI ツールキットの第二の春

Tk は1991年に Ousterhout が作った GUI ツールキットだ。Python の tkinter がそのままラップしているのがこの Tk である。Ruby/Tk、Perl/Tk、Tcl/Tk — ほぼすべてのスクリプト言語にバインディングがある。

2024年の Tk 9.0 はふたたび大きな飛躍だった。

  • SVG ネイティブ対応 — ようやく。ベクターアイコンを一行で表示できる。
  • HiDPI / Retina — Windows・macOS・Linux すべてで 4K ディスプレイがくっきり描画される。
  • macOS ダークモード — Aqua テーマがシステム外観に追従。
  • タッチ・ジェスチャー — Windows 11 のペン入力認識。

最小の Tk ウィンドウ。

package require Tk
wm title . "Hello Tk 9.0"
wm geometry . 320x120
label .greeting -text "Hello, Tk!" -font {Helvetica 20}
pack .greeting -padx 20 -pady 20
button .quit -text "Quit" -command exit
pack .quit -pady 10

6行でウィンドウ・ラベル・ボタンが立ち上がる。このコードは1991年からほぼ変わらず動く。この互換性こそ Tk の真の武器だ。


第4章 · ttk — モダンな外観の Themed Tk

「Tk の外観が1990年代風」という批判は古くからあった。2007年の ttk(Themed Tk)がその冗談に終止符を打った。

ttk はウィジェットの外観をテーマとして分離する。Windows 11 では Windows ネイティブ、macOS では Aqua、Linux GTK ではシステムテーマを追従する。

package require Tk

# ttk ウィジェットは t 始まりではなく ttk:: 名前空間
ttk::frame .container -padding "12 12 12 12"
grid .container -column 0 -row 0 -sticky nwes

ttk::label .container.lbl -text "名前:"
ttk::entry .container.name -width 30
ttk::button .container.ok -text "OK" -command {puts $name}

grid .container.lbl -column 0 -row 0 -sticky e
grid .container.name -column 1 -row 0
grid .container.ok -column 1 -row 1 -sticky e

ここで ttk::buttonbutton は見た目が違う。ttk のほうがシステムネイティブに近い。2026年のすべての新規 Tk コードは ttk をデフォルトとして書く、と考えてよい。

Sun Valley テーマ — Windows 11 スタイル

ttk テーマは外部パッケージとしても配布される。最も人気なのが Sun Valley テーマ — Windows 11 の Fluent Design を模したもの。Python tkinter でもそのまま使えるため、Python GUI 開発者にも人気だ。


第5章 · ウィジェット拡張 — Iwidgets・BWidget・Tablelist

基本 Tk と ttk だけでも十分だが、複雑なウィジェットが必要なときは二つのライブラリを見る。

  • Iwidgets — Itcl(オブジェクト指向 Tcl)ベースのメガウィジェットライブラリ。Combobox、Notebook、Hierarchy、Scrolledlistbox など。
  • BWidget — Pure-Tcl メガウィジェット。ProgressBar、Tree、ButtonBox など。Iwidgets と違って Itcl を要求しないので軽量。
  • Tablelist — ツリー/テーブル統合ウィジェット。実務で最もよく使われるサードパーティウィジェット。
package require Tablelist
tablelist::tablelist .tbl \
    -columns {0 "名前" left 0 "役職" left 0 "給与" right} \
    -stretch all \
    -background white
.tbl insert end {田中 シニア 8500}
.tbl insert end {鈴木 ジュニア 4500}
pack .tbl -fill both -expand 1

基本 Tk の treeview も似たことをするが、ソート・マルチ選択・セル編集を幅広くサポートするのは Tablelist だ。


第6章 · Tcllib — 100以上のモジュールの標準ライブラリ

Python に PyPI があるなら、Tcl には Tcllib がある。100を超えるモジュールが一つのパッケージにまとまって配布される。

よく使うモジュール。

  • json — JSON のパースと生成
  • http — HTTP クライアント
  • uri — URL のパース
  • csv — CSV 処理
  • md5 / sha256 — ハッシュ
  • base64 — エンコーディング
  • fileutil — ファイル検索・ディレクトリウォーキング
  • textutil — テキストユーティリティ
  • math::statistics — 統計関数

JSON 一行例。

package require json
package require json::write

# JSON のパース
set data [json::json2dict {{"name": "Tcl", "version": 9.0}}]
puts [dict get $data name]

# JSON の生成
set out [json::write object \
    name [json::write string "Tcl"] \
    version 9.0]
puts $out

Tklib は Tcllib の GUI 姉妹パッケージで、追加 Tk ウィジェット・プロッタ・カレンダーなどを収める。


第7章 · TclOO — モダンなオブジェクト指向

OO(Object-Oriented)はいつも Tcl の弱点とされてきた。Itcl(1993)は C++ 風、Snit(1999)はウィジェットアダプタ、XOTcl(2000)はメタプログラミングの遊び場 — 三つが分立した状態が続いた後、8.6(2012)で TclOO がコアに正式導入された。

package require TclOO

oo::class create Animal {
    variable name sound

    constructor {n s} {
        set name $n
        set sound $s
    }

    method greet {} {
        return "$name says $sound"
    }
}

oo::class create Dog {
    superclass Animal

    constructor {n} {
        next $n "Woof"
    }
}

set rex [Dog new "Rex"]
puts [$rex greet]    ;# Rex says Woof

TclOO はクラス・メソッド・継承・ミックスインをすべてサポートする。Itcl と Snit も今なお生きているが、新規コードであれば TclOO から始めるのが標準だ。


第8章 · Expect — インタラクティブ自動化の標準

1990年に Don Libes が NIST で作った Expect は Tcl 拡張だが、そのまま一つのツールとしてのほうが有名だ。名前のとおり「期待して応答する」プログラムである。

最も有名なユースケース — SSH 自動ログイン。

#!/usr/bin/expect -f

set timeout 20
set host [lindex $argv 0]
set password [lindex $argv 1]

spawn ssh user@$host

expect "password:"
send "$password\r"

expect "$ "
send "uptime\r"

expect "$ "
send "exit\r"
expect eof

spawn が子プロセスを立ち上げ、expect が出力パターンを待ち、send が入力する。30年間ほぼ変わらずシステム管理者の道具箱に入っている。

ネットワーク機器(Cisco IOS、Juniper Junos)の自動化は今でも Expect で行う。Ansible の expect モジュールも内部では結局これを呼び出している。


第9章 · AOLServer・NaviServer — マルチスレッド Web サーバ

1995年、AOL が自社ポータルを支えるために作った AOLServer は、当時の NCSA・Apache がプロセスモデルだった時代に、ほぼ唯一マルチスレッドを採用した Web サーバだった。その上でスレッドごとに Tcl インタプリタを動かしていた。

AOL が2005年に手を引き、コミュニティがフォークしたのが NaviServer だ。2026年になっても活発に開発が続き、モダンな TLS 1.3・HTTP/2・WebSocket もすべてサポートする。

# NaviServer ハンドラ例
ns_register_proc GET /hello {
    ns_return 200 text/html "<h1>Hello from NaviServer</h1>"
}

ns_register_proc GET /time {
    ns_return 200 text/plain [clock format [clock seconds]]
}

OpenACS(次章)・dotLRN といった大型 Web アプリが NaviServer 上で動く。最も有名なユーザは arsdigita.com から openacs.org への系譜 — 1990年代末から2000年代初頭にかけての最初の大規模 Tcl Web フレームワークがここから生まれた。


第10章 · OpenACS — Tcl で作るエンタープライズ Web フレームワーク

OpenACS(Open Architecture Community System)は、1997年に MIT の ArsDigita プロジェクトから始まった。Tcl + AOLServer + PostgreSQL/Oracle スタックの代表例。

規模を挙げよう:ガリシア自治州の公式学習プラットフォーム、ハイデルベルク大学 LMS、ブラジル UNICAMP 大学など、数百の機関が dotLRN(OpenACS ベースの LMS)で運用されている。

現代の目から見れば「古い技術」のようだが、2026年でも生き続けている。ヨーロッパとラテンアメリカの公共・教育部門で特に強い。 Rails・Django・Phoenix が解けていない「30年もつ Web アプリ」という問題を、OpenACS はすでに解いている。


第11章 · Wapp — マイクロ Web フレームワーク

OpenACS が「大きな Web」なら、Wapp は「小さな Web」だ。SQLite の D. Richard Hipp(ヒップ博士)が作ったミニマル Tcl Web フレームワーク。

スクリプト1ファイルで Web アプリを立ち上げる。

package require wapp

proc wapp-default {} {
    wapp-trim {
        <h1>Hello Wapp!</h1>
        <p>Tcl で書いたマイクロ Web アプリ。</p>
        <p><a href="/about">概要</a></p>
    }
}

proc wapp-page-about {} {
    wapp-trim {
        <h1>About</h1>
        <p>このページは Wapp で書かれています。</p>
    }
}

wapp-start $argv

wapp-start が組み込み HTTP サーバを立ち上げるか、CGI/SCGI/Mod_Wapp モードで外部サーバに接続する。約1500行の Tcl 1ファイルで完結するのが核心的な魅力。SQLite と同じく、「シンプルさは美徳」という Hipp の設計哲学がここでも前面に出ている。


第12章 · TDBC — データベース標準インターフェイス

TDBC(Tcl Database Connectivity)は Java の JDBC を意識した統合 DB API だ。Tcl 8.6 からコアに含まれる。

package require tdbc::sqlite3

tdbc::sqlite3::connection create db "./mydata.db"

# テーブル生成
db allrows {CREATE TABLE IF NOT EXISTS users (id INTEGER, name TEXT)}

# INSERT
db allrows {INSERT INTO users VALUES (1, '田中')}

# SELECT(プリペアドステートメント)
set stmt [db prepare {SELECT * FROM users WHERE id = :id}]
$stmt foreach -as dicts row {
    puts "[dict get $row id]: [dict get $row name]"
} {id 1}
$stmt close
db close

ドライバ:tdbc::sqlite3tdbc::postgrestdbc::mysqltdbc::odbc2026年時点で最も無難な選択は PostgreSQL + tdbc::postgres の組み合わせだ。


第13章 · TclKit・Starkit・Starpack — シングルファイル配布

Tcl の「決め技」がここにある。TclKit は Tcl インタプリタ + Tk + Tcllib の一部をひとつの実行ファイルにまとめたものだ。約4〜10MB。依存なし。

配布モデルは2段階。

  1. Starkit(.kit) — Tcl/Tk スクリプトとリソースを一つの仮想ファイルシステムバンドルに。Tclkit があればそのまま実行できる。
  2. Starpack — Starkit と Tclkit を一つに統合し、単一の .exe / 単一の macOS アプリ / 単一の Linux ELF にする。
# starkit を作る
sdx wrap myapp.kit -files myapp.tcl

# starpack(Windows シングル exe)
sdx wrap myapp.exe -runtime tclkit-win-x64.exe -files myapp.tcl

結果はダブルクリックだけで動く単一ファイル。Python/PyInstaller が真似できない 2〜3MB という軽さ が Tcl だけの武器だ。


第14章 · TWAPI・TclTLS・trofs — システム・ネットワーク拡張

  • TWAPI(Tcl Windows API) — Win32 API のほぼ全部を Tcl に公開。レジストリ・サービス・COM・WMI・イベントログ・ネットワークアダプタまで。Windows 自動化スクリプトの事実上の標準。
  • TclTLS — OpenSSL 1.1.1 / 3.x バインディング。TLS 1.3、SNI、ALPN をすべてサポート。tdbc::postgreshttp パッケージが内部で依存。
  • trofs / cookfs — 読み取り専用/読み書き仮想ファイルシステム。
  • Tcllib picoirc — 標準ライブラリに IRC クライアントがある(驚き)。
package require tls
package require http

::http::register https 443 [list ::tls::socket -autoservername true -require 1]
set token [::http::geturl https://api.github.com/users/octocat]
puts [::http::data $token]

::tls::socket を登録するだけで、標準の http パッケージがそのまま HTTPS を処理する。モダンな TLS ハンドシェイクがほぼ一行で完了する。


第15章 · Itcl・Snit・TclOO — 三つの OO の共存

三つの OO システムが共存しているのが Tcl の特異点だ。いつ何を使うか。

  • Itcl (1993, Michael McLennan) — C++ スタイルのクラス/継承。レガシーコードの大半が Itcl。Iwidgets は Itcl ベース。
  • Snit (1999, Will Duquette) — コンポジション中心。Tk メガウィジェットに最も適合。クラスではなく「型」の概念。
  • TclOO (2012, 8.6 core) — コア統合のモダン OO。新規コードの既定の選択

Snit ウィジェットアダプタの例。

package require snit

snit::widget MyCounter {
    variable count 0
    component button

    constructor {args} {
        install button using ttk::button $win.b -text "Count: 0" \
            -command [mymethod increment]
        pack $button
        $self configurelist $args
    }

    method increment {} {
        incr count
        $button configure -text "Count: $count"
    }
}

MyCounter .c
pack .c

Snit の component + install が Tk ウィジェットを包んで新しいウィジェットを作る。GUI コンポジションでは今でも Snit が最も手に馴染む。


第16章 · Critcl・Jim Tcl・Picol — コンパイル・組み込み・ミニマル

Tcl ファミリーの親戚たち。

  • Critcl — Tcl の中に C コードをインラインで書き、その場でコンパイル・ロードする。ホットスポットを C に落とすときに使う。package require critcl 一行で導入できる。
  • Jim Tcl — 約150KB の組み込み用 Tcl クローン。OpenWRT、U-Boot、OpenIPMI のような組み込みシステムが採用。フル Tcl 9.0 は 4MB だが Jim はマイクロコントローラにも入る。
  • Picol — Salvatore Sanfilippo(Redis 作者)が500行の C で書いたミニマル Tcl。教育用。「Tcl インタプリタの本質とは何か」を見せる例。
  • Eagle — .NET / C# 用の Tcl 互換インタプリタ。PowerShell が届かない場所で .NET 自動化に使われる。

このファミリーツリーが Tcl の組み込み強み の実体だ。4MB が重ければ Jim、500行の学習用なら Picol、.NET なら Eagle。


第17章 · EDA 産業 — Tcl が本当に動いている場所

ここが Tcl の本拠地だ。チップ設計産業。

  • Synopsys Design Compiler / PrimeTime / VCS — 合成・STA・シミュレーション。すべて Tcl スクリプトで制御。
  • Cadence Innovus / Genus / Virtuoso — 配置配線・合成・アナログデザイン。Cadence は Tcl の中に SKILL(Lisp 派生)をさらに乗せて使う。
  • Xilinx Vivado / AMD Vitis — FPGA 開発全体が Tcl ベース。
  • Mentor(Siemens EDA)Calibre / ModelSim — DRC/LVS・HDL シミュレーション。

EDA ツールの GUI には必ずコマンドコンソールがあり、そこに入力すると Tcl インタプリタが受け取る。チップ設計者が夜間に自動化スクリプトを書くとき — Tcl 一行で数万ゲートを動かす。

# Vivado 例 — IP 合成の自動化
create_project myproj ./build -part xc7a35tcpg236-1
add_files ./src/top.v
synth_design -top top -part xc7a35tcpg236-1
opt_design
place_design
route_design
write_bitstream -force ./build/top.bit

この7行が一つの FPGA ビットストリームを作る。チップ設計は Tcl の上にある — これは誇張ではない。


第18章 · NS-2 / NS-3 — ネットワークシミュレーションの標準

学界で Tcl がしぶとく残っているもう一つの場所が ネットワークシミュレーション だ。

  • NS-2(1995) — UC Berkeley/USC で生まれたパケットレベルシミュレータ。トポロジ・トラフィック定義をすべて Tcl/OTcl で書く。
  • NS-3(2008) — NS-2 の後継。コアが C++ に置き換わったが、Python と並んで OTcl スクリプト互換も維持。

数十年分の学術論文が NS-2 Tcl スクリプトを補助資料として添付しているため、ネットワーク研究者は Tcl を見ずに過ごすのが難しい。

# NS-2 の最小トポロジ
set ns [new Simulator]
set n0 [$ns node]
set n1 [$ns node]
$ns duplex-link $n0 $n1 1Mb 10ms DropTail

set tcp [new Agent/TCP]
$ns attach-agent $n0 $tcp
set sink [new Agent/TCPSink]
$ns attach-agent $n1 $sink
$ns connect $tcp $sink

$ns at 0.5 "$tcp start"
$ns at 5.0 "exit 0"
$ns run

ネットワークトポロジ・2ノード・1Mb・10ms リンク・TCP フローが5行に収まる。宣言的な簡潔さが30年を持たせた。


第19章 · 韓国・日本での Tcl 利用

EDA 依存度が高い両国はいずれも Tcl の利用量が侮れない。

韓国

  • サムスンファウンドリ・SK ハイニックス — チップ設計自動化スクリプトの大半が Tcl。合成・DRC・テープアウトフロー。
  • LG イノテック・LX セミコン — 自社 ASIC デザインフロー。
  • 防衛 R&D — ADD などの一部シミュレーションインフラが NS-2/NS-3 ベース。

日本

  • ルネサス・東芝・ソニーセミコンダクタ — EDA スクリプティング。
  • NEC・富士通 — ネットワークシミュレーションと通信機器自動化。
  • ソニー — 一部ゲームエンジンのビルドシステムに Tcl が残存。

両国とも「メイン言語」ではないが、半導体産業があるかぎり Tcl 人材の需要は消えない。 求人サイトで「Tcl scripting」が記載された求人は、ほぼ EDA 企業またはその協力会社と見て間違いない。


第20章 · ビットコイン初期の Tcl の痕跡

これはあまり知られていない事実だ:2009年のサトシ・ナカモトの初期ビットコイン 0.1 コードには Tcl バインディングの痕跡 があった。サトシは Wx ウィジェット + JSON-RPC インターフェイスを構築する過程で、Tcl も検討していた痕跡が見える。

今は全部整理されているが、2009年のビットコインクライアントは wxWidgets GUI を使い、Tcl 風のコマンドラインインタプリタの痕跡 が RPC コマンド体系に残っている。bitcoin-cli getbalance のようなコマンドスタイルが Tcl 影響だと見るのは、無理筋ではない。


第21章 · 学習リソース — 2026年版

初めて Tcl を学ぶなら。

  1. Tcl Tutor(オンラインインタラクティブ) — tcltutor.tcl.tk。ブラウザでインタプリタが動く。
  2. 「Practical Programming in Tcl and Tk」 — Brent Welch の定本。第4版は 8.4 ベースだが 9.0 でも95%はそのまま通じる。
  3. 「Tcl/Tk: A Developer's Guide」 — Clif Flynt。8.6/9.0 をカバー。
  4. Tcl Wiki(wiki.tcl-lang.org) — 25年分のコミュニティ知識。Wikit の上で動く。
  5. Tcl Conference (Tcl/Tk Conference) — 毎年米国で開催。発表動画が YouTube に上がる。

最速の道は Wiki + REPL だ。tclsh(Tcl シェル)と wish(Tcl + Tk シェル)を開いて、ひたすら手で打つこと。


第22章 · Python・Lua・JS との比較 — いつ Tcl か

基準TclPythonLuaJS
組み込み容易性非常に容易普通最も容易普通
デフォルト GUITk 同梱tkinter(=Tk)なしDOM
標準ライブラリTcllib非常に大きい小さい大きい
学習曲線低い低い最も低い中程度
EDA ツール統合事実上の標準一部ほぼなしほぼなし
単一ファイル配布Starpack(容易)PyInstaller容易pkg

要約はこうだ。

  • 新規の汎用スクリプティングなら Python のほうが豊富。
  • ゲーム組み込みスクリプティングなら Lua のほうが軽い。
  • EDA・テスト自動化・組み込みツールスクリプティングなら Tcl が事実上唯一の答え。
  • 一つの実行ファイルで GUI ツール配布なら TclKit + Starpack が勝つ。

Tcl の競合は他の汎用言語ではなく、「EDA ツールの中で動く他の言語」 だ。そしてそこで Tcl は30年間1位を保っている。


第23章 · Tcl で直接作る道具 — 小さな GUI

最後に一息。ttk・TclOO・TDBC・Wapp なしで、純粋な Tk だけで小さなメモ帳を作ってみる。

#!/usr/bin/env wish
package require Tk

set filename ""

proc do_open {} {
    global filename
    set f [tk_getOpenFile]
    if {$f eq ""} return
    set filename $f
    set fh [open $f r]
    .t delete 1.0 end
    .t insert 1.0 [read $fh]
    close $fh
    wm title . "Memo - $f"
}

proc do_save {} {
    global filename
    if {$filename eq ""} {
        set filename [tk_getSaveFile]
        if {$filename eq ""} return
    }
    set fh [open $filename w]
    puts -nonewline $fh [.t get 1.0 end-1c]
    close $fh
    wm title . "Memo - $filename"
}

menu .m
menu .m.file -tearoff 0
.m add cascade -label "File" -menu .m.file
.m.file add command -label "Open" -command do_open
.m.file add command -label "Save" -command do_save
.m.file add separator
.m.file add command -label "Quit" -command exit
. configure -menu .m

text .t -wrap word -undo true
pack .t -fill both -expand 1
wm title . "Memo"
wm geometry . 700x500

約40行。メニュー・ファイル開閉・テキストウィジェット・アンドゥがすべて入っている。Python tkinter で同じことをするには少なくとも80〜100行必要だ。Tcl/Tk の本質はやはり この圧縮率 にある。


第24章 · 実戦チェックリスト

新規 Tcl プロジェクトを始めるときの点検項目。

  1. Tcl 9.0 以上を使っているか?(8.x は新規プロジェクトでは避ける)
  2. パッケージはすべて package require name version の形で明示したか?
  3. すべての新規 GUI コードは ttk ウィジェットをデフォルトで使っているか?
  4. エンコーディングは明示的に UTF-8 に設定したか?(encoding system utf-8)
  5. OO が必要なら TclOO から検討したか?
  6. データベースは TDBC インターフェイスで抽象化したか?
  7. 外部 HTTP は http + tls の組み合わせか?
  8. 配布は Starkit/Starpack を検討したか?
  9. 1画面に収まらないコマンドは proc に切り出したか?
  10. エラー処理は try/finally(8.6+)または catch を使っているか?
  11. Windows 自動化は TWAPI を標準としたか?
  12. インタラクティブ自動化は Expect に移したか?
  13. 大きな Tk アプリは Snit コンポジションを検討したか?
  14. 小さな Web は Wapp、大きな Web は NaviServer + OpenACS か?
  15. EDA スクリプトならツールベンダーの Tcl ガイド(Synopsys/Cadence/Xilinx)を併読したか?

アンチパターン10選

  1. expr の中で変数を引用符で囲んで、数値比較が文字列比較に化ける。
  2. eval でユーザ入力を直接実行してコマンドインジェクション。
  3. set var ではなく var = value という Python の癖で書く。
  4. 新規 GUI コードを ttk なしで古い button だけで書く。
  5. package require を抜かしてパッケージの関数を呼ぶ。
  6. UTF-8 を明示せずに韓国語・日本語処理後に文字化け。
  7. Itcl・Snit・TclOO を混在させて、一つのプロジェクトに三つの OO パターンが共存。
  8. 8進数の罠 — Tcl 9 以前は 0755 が8進数、9 では 0o755 を使う。
  9. 単一ファイル配布が可能なのに Python・node 依存で配布する。
  10. EDA 合成スクリプトを同期モードのみで書く — インクリメンタル合成を使わない。

次の記事予告

次の記事候補:NaviServer + OpenACS で30年もつ Web アプリを作るTclKit でクロスプラットフォームツール配布Expect で自動化するネットワーク機器運用

「Tcl は死んでいない。ただ最も高価な作業場 — チップ設計の EDA ツールの中 — で静かに働いているだけだ。そしてその仕事を30年間きちんとこなしてきた。」

— モダン Tcl & Tk 2026、了。


参考 / References