Scripting Tcl 大小事: 9月 2017

2017-09-19

BAWT-Tcl Windows installer

BAWT 提供了 8.6.x 系列的 Windows 安裝程式，並且安裝了一些常用的擴充套件以及 BAWT 作者自己的作品。

如果你使用 MSYS2/MinGW-w64 的組合，然後 Tcl 使用 BAWT-Tcl 安裝 (假設是安裝在 c:/Tcl)，在編譯自己的套件時有可能會出現一些小亂流。

這是因為 tclConfig.sh 和 tkConfig.sh 在編譯的機器所指向的目錄和目標機器並不相同。也就是 TCL_PREFIX, TCL_EXEC_PREFIX, TCL_BUILD_LIB_SPEC, TCL_LIB_SPEC 等目錄所記錄的資料不是正確的。但是要修改很簡單，只要指向正確的目銾就可以解決問題，下面是一個例子：

# Top-level directory in which Tcl's platform-independent files are
# installed.
TCL_PREFIX='/c/Tcl'

假設要改善的話，應該只能夠從安裝程式著手，也就是使用者設定好安裝目錄以後，按照安裝目錄的位置進行改寫。取巧的做法是編譯機器和目標機器的環境很像，然後目標機器的預設目錄符合預設的設定（還是有可能出問題，因為使用者有可能不是安裝在預設位置，但是機率大幅度降低）。

2017-09-17

regex_rez: Tcl bindings for RE2

regex_rez

可是，我目前只需要基本功能，所以只實作最簡單的 fullmatch, partialmatch, replace 和 globalrelpace。

維基百科：
RE2 (software)

第一個測試程式使用內建的正規表示式：

puts -nonewline "Please input a number: "
flush stdout
gets stdin number
if {$number <= 0 || $number >= 10} {
   puts "The range is 1 - 9."
   exit
}

set max [expr pow(10, $number)]
set result [list]

puts "\nNow get the result:"
puts "==========="
puts "Start"
puts "==========="
puts [time {
set re {1.*1|2.*2|3.*3|4.*4|5.*5|6.*6|7.*7|8.*8|9.*9|0.*0}
for {set i 1} {$i < $max} {incr i} {
    if {[regexp $re $i] != 1} {
        lappend result $i
    }
}
} 1]
puts "\n"
puts [join $result ", "]
puts "\n==========="
puts "End"
puts "==========="

第二個測試程式使用 RE2：


package require regex_rez

puts -nonewline "Please input a number: "
flush stdout
gets stdin number
if {$number <= 0 || $number >= 10} {
   puts "The range is 1 - 9."
   exit
}

set max [expr pow(10, $number)]
set result [list]

puts "\nNow get the result:"
puts "==========="
puts "Start"
puts "==========="
puts [time {
set re [regex::re2 create {1.*1|2.*2|3.*3|4.*4|5.*5|6.*6|7.*7|8.*8|9.*9|0.*0}]
for {set i 1} {$i < $max} {incr i} {
    if {[$re partialmatch $i] != 1} {
        lappend result $i
    }
}
} 1]
puts "\n"
puts [join $result ", "]
$re close
puts "\n==========="
puts "End"
puts "==========="

(* 更新測試程式二，加上 $re close，這樣才會正確 close）

內建從輸入數字一到數字九：
475 microseconds per iteration
1029 microseconds per iteration
6884 microseconds per iteration
36152 microseconds per iteration
315566 microseconds per iteration
3134428 microseconds per iteration
32075931 microseconds per iteration
325211857 microseconds per iteration
2147483648 microseconds per iteration

RE2 從輸入數字一到數字九：
325 microseconds per iteration
649 microseconds per iteration
7262 microseconds per iteration
48204 microseconds per iteration
347111 microseconds per iteration
2727082 microseconds per iteration
21171756 microseconds per iteration
173788033 microseconds per iteration
1628503061 microseconds per iteration

雖然沒有很仔細的比較，在這個測試中如果是百萬級數目或者是以前比對，內建的正規表示式表現都很不錯，但是如果數目到達百萬級或者是以後比對，Tcl 內建的正規表示式速度看起來明顯的比較慢。

很有趣的問題。

2017-09-12

tclmixer - use SDL2/SDL2_mixer

tclmixer

TclMixer 使用 SDL 1.2 和 SDL_Mixer 1.2，我這幾天突然有個神奇的想法，那就是如果切換到 SDL2/SDL2_mixer 不知道會不會很難。

所以我下載了 TEA sample extension 然後將 TclMixer 的 source code 移過來，做了一點點小修改（主要是改版本，改成 2.0.0），然後發現…… SDL 和 SDL2 的 API 差距沒想像中大，因為沒改什麼東西，可是看起來 TclMixer 可以用。

實測 openSUSE 42.3 的結果，雖然可以使用，但是 SDL_mixer 還沒有 mp3 的部份，不過 OGG/Vorbis 是可用的。

MP3 的最後一個軟體專利在今年到期，所以一些原本無法直接使用的 MP3 自由軟體應該會開始逐漸重新進入 Linux 世界。至少在我測試 mpg123 的時候，我發現 openSUSE 在 42.3 將這個軟體放進來了（只是 devel package name 有改變，與 packman 的不同，但是主套件和 shared library package name 看起來是一致的）。