1)以下のtclサンプルコードのdllファイルを作成したいのですが、これを行う際に多くの問題に直面しています。私はLinux(ubuntu 10.04)マシンで作業しています。ファイルの名前はclock.tclです。私は多くのウェブサイトを見てきましたが、従うべき正確なプロセスを得ることができませんでした。
2)Linuxでtclコードのdllファイルを作成するための正確なコマンドにも苦労しています
私はtclに不慣れで、dllも作成しています。誰かがこの問題を解決するのを手伝ってくれますか?すぐに助けてください。
clock.tcl
#!/usr/bin/env tclsh8.5
package require Tk
namespace eval ::sd {
set time0 0
set value 0
set h_outfile "i"
}
proc every {ms body} {eval $body; after $ms [info level 0]}
proc time_ms { } {
set m [clock milliseconds]
puts " in time_ms time is $m"
set m [format %2.2d:%2.2d:%2.2d.%2.2d \
[expr {$m/3600000}] [expr {$m/60000}] [expr {($m/1000)%60}] [expr {$m%1000}]]
incr ::sd::value
set ::sd::time0 $m
puts $::sd::h_outfile " \t $::sd::time0 \t $::sd::value \n"
}
proc open_log { } {
set ::sd::h_outfile [open "output.txt" "w"]
puts " file is $::sd::h_outfile"
puts $::sd::h_outfile " \t hr::mm::ss::ms \t temperature in celcius \n"
}
if {$argc < 1} {
open_log
every 100 {
time_ms
}
}