Tcl/Tk

no image

XOTcl というか Next Scripting Framework 2.0b3のコンパイル

XOTclの最新安定版はteacupで配布してる1.6.7ですが、今のところTcl8.6b2で使うことができません。 私の場合、XOTclに依存しまくってるので、8.4から8.6に1つ飛ばしで移行しようと思ったところ、これだけが引っかかって…

no image

ipconfigを呼ばないでMACアドレスのリストを取得する(twapi 3.1.17対応ほか)

「ipconfigを呼ばないでMACアドレスのリストを取得する」を書いた時点のtwapiのバージョンはたしか3.0.32だったんじゃないかと思いますが、3.0.32の次のバージョン3.1.17が去年の暮に出ていました。出てるのは知ってたんで…

no image

TkSQLite Tcl script function

こんなに便利な機能があったのに使ってなかったなんて。 こういうスクリプトを書いておいて、TkSQLiteの初期設定->SQLiteのタブに登録しておくと、 # unixepoch.tcl proc UnixEpoch {t&…

no image

Tcl array関係のお役立ち関数2つ

Cでは定数を定義するのに#defineを使うことが多いようですが、 Tclではプリプロセッサがないので、同じ方法は使えません。 グローバル変数を使うというのが最初に思い浮かぶと思うんですが、 switch文の分岐に変数を使うには特殊な方法が…

no image

FfidlでC言語のエクスポート関数に配列のポインタを渡して内容を書き換えてもらう

なぜかFfidlで配列を引数に渡すサンプルがどこにも見当たらなかったので、作ってみました。 C言語のDLL側のサンプル。 関数pow2は任意の大きさの整数型配列とそのサイズを受け取り、 その配列の各要素を2乗した値に置き換えるものです。 /…

no image

[Tcl/Tk] Tkウィンドウ上でマウスポインタの下の色を取得する

Tcler's Wikiには以下のページで2通りの方法が紹介されています。 http://wiki.tcl.tk/15339 1つ目はキャンバスアイテムがimageの場合は、中身の画像に対してgetコマンドを使用してピクセルのRGB値を取得…

no image

コマンドライン版Everythingを使ってSubversionのワーキングコピーフォルダをリストアップする

最近TortoiseSVNが1.7になって、既存のワーキングコピーを初めて操作するときに自動的に管理ファイルをアップデートするらしい既存のワーキングコピーを手動でアップデートする必要があるらしい ( WC-NG )。未アップデートのワーキン…

no image

[Tcl] How to know decimal representation of binary float

I wrote experimental script to convert binary float to decimal. References: http://www.h-schmidt.net/FloatApplet/IEEE754…

no image

[Tcl] gets or read - which is faster

Usually, I use "gets" to read a text file. But I tried "read" to know which is really faster. proc test_gets {f …

no image

Decoding IEEE754 Single Precision Floating Point Number in Tcl - NaN, Infinite etc.

Each version of Tcl recognizes big-endian IEEE754 encoded exceptional single precision floating point numbers like follo…