Ffidlとはdllを直接Tclから呼び出すことのできるライブラリで、C言語でそれぞれのラッパーを作らなくてもTclからFfidlを通じでdllを動的に読み込んでインターフェースを作ることができる便利なライブラリだ。Ffidlのホームページからダウンロードできる。
package require Ffidl
ffidl::callout Beep {uint32 uint32} uint32\
[ffidl::symbol KERNEL32.DLL Beep]
Beep 500 200
ffidl::callout TclCmd名 引数型リスト 返り値型 [ffidl::symbol ライブラリ名 関数名]
のようにしてインターフェースを作るらしい。使える型はFfidlのホームページ参照。ポインタが渡せるが、構造体をどう扱うのかまだよくわからない。読みこんだライブラリをアンロードする方法もまだよくわからない。
Beepだけでは芸がなさすぎるので、Beep音で音楽を流してみる・・・
package require Ffidl
ffidl::callout Beep {uint32 uint32} uint32\
[ffidl::symbol KERNEL32.DLL Beep]
array set m {
C2 65 C3 131 C4 262 C5 523 C6 1047
C#2 69 C#3 139 C#4 277 C#5 554 C#6 1109
D2 73 D3 147 D4 294 D5 587 D6 1175
D#2 78 D#3 156 D#4 311 D#5 622 D#6 1245
E2 82 E3 165 E4 330 E5 659 E6 1319
F2 87 F3 175 F4 349 F5 698 F6 1397
F#2 92 F#3 185 F#4 370 F#5 740 F#6 1480
G2 98 G3 196 G4 392 G5 784 G6 1568
G#2 104 G#3 208 G#4 415 G#5 831 G#6 1661
A2 110 A3 220 A4 440 A5 880 A6 1760
A#2 117 A#3 233 A#4 466 A#5 932 A#6 1865
B2 123 B3 247 B4 494 B5 988 B6 1976
Q 0
}
array set l {}
set l(1) [expr {1000 * 240 / 70}]
set l(2) [expr {$l(1) / 2}]
set l(4) [expr {$l(1) / 4}]
set l(8) [expr {$l(1) / 8}]
set l(16) [expr {$l(1) / 16}]
set l(1.) [expr {$l(1) * 3 / 2}]
set l(2.) [expr {$l(2) * 3 / 2}]
set l(4.) [expr {$l(4) * 3 / 2}]
set l(8.) [expr {$l(8) * 3 / 2}]
set l(16.) [expr {$l(16) * 3 / 2}]
set l(1..) [expr {$l(1) * 7 / 4}]
set l(2..) [expr {$l(2) * 7 / 4}]
set l(4..) [expr {$l(4) * 7 / 4}]
set l(8..) [expr {$l(8) * 7 / 4}]
set l(16..) [expr {$l(16) * 7 / 4}]
proc play {mlist} {
global m l
foreach {mq lq} $mlist {
if {$m($mq) == 0} {
after $l($lq)
} else {
Beep $m($mq) $l($lq)
}
}
}
play {
G4 16 F4 16
D#4 8. F4 16 D#4 16 Q 16 D#4 8 G4 8 A#4 8
G#4 8 C5 8 D#5 8 D#5 8. Q 16 D5 16 C5 16
A#4 8. G#4 16 G4 8 F4 8. D#4 16 F4 8
G4 2 Q 16 G4 16 F4 16
D#4 8. F4 16 D#4 8 D#4 8 G4 8 A#4 8
G#4 8 C5 8 D#5 8 D#5 8. Q 16 D5 16 C5 16
A#4 8 D#5 8 G4 8 F4 8. D#4 16 F4 16
D#4 2 Q 16 Q 16 A#4 16 G#4 16
G4 8 A#4 8 D#5 8 D#5 4 A#4 16 A#4 16
C5 8 G#4 8 D#5 16 Q 16 D#5 8. Q 16 D5 16 C5 16
A#4 8. G#4 16 G4 8 F4 8. D#4 16 F4 8
G4 2 Q 16 Q 16 G4 16 F4 16
D#4 8. F4 16 D#4 16 Q 16 D#4 8 G4 8 A#4 8
G#4 8 C5 8 D#5 8 D#5 8. Q 16 D5 16 C5 16
A#4 8 D#5 8 G4 8 F4 8. D#4 16 F4 8
D#4 2
}
続く・・・