レジストリ設定のためにcereg.exeが必要です。
@echo off set wish=\Tcl84\bin\wish84.exe set reg=cereg.exe rem not necessary for properly installed Tcl rem set libdir=/Tcl/lib rem %reg% -k "HKLM\Environment" -n "TCL_LIBRARY" -v "%libdir%/tcl8.4" rem %reg% -k "HKLM\Environment" -n "TK_LIBRARY" -v "%libdir%/tk8.4" %reg% -k "HKCR\.tcl" -n "" -v "tclfile" %reg% -k "HKCR\tclfile" -n "" -v "TclTk Script" %reg% -k "HKCR\tclfile\DefaultIcon" -n "" -v "%wish%,0" %reg% -k "HKCR\tclfile\Shell\open\command" -n "" -v ""%wish%" "%%1"" %reg% -k HKLM\Environment -n COMPUTERNAME -v toshiba %reg% -k HKLM\Environment -n HOME -v \Temp\s-imai %reg% -k HKLM\Environment -n PATH -v \Tcl84\bin %reg% -k HKLM\Environment -n TEMP -v \Temp %reg% -k HKLM\Environment -n TMP -v \Temp %reg% -k HKLM\Environment -n TMPDIR -v \Temp %reg% -k HKLM\Environment -n USERNAME -v s-imai %reg% -k HKLM\Environment -n CELIBSTDLOGDIR -v \Temp |
![]() |
ちょっと動作が遅いようですが、問題なく動作します。
OS/CPU | TkEngine値 |
---|---|
PocketPC / PXA250 400MHz | 5 |
Linux / Pentium 90MHz | 3 |
Windows XP / PentiumIII 800MHz | 30 |
なぜか、SD CARDにtkengine.tclを置いて起動すると以下のエラーが出ます。
仕方ないので、本体のメモリに置くことにしました。
![]() |
time {for {set i 0} {$i < 10000} {incr i} {set ary($i) $i}} |
測定結果は以下の通りで、モバギよりはかなり速いが、Pentium90より遅い結果となりました。
さすがに、PCで実行するのに比べると遅く感じます。チューニングの余地がありそうです。
OS/CPU | 時間 |
---|---|
Windows CE / VR4121 131MHz | 約14.2秒 |
PocketPC / PXA250 400MHz | 約2.9秒 |
Linux / Pentium 90MHz | 約2.2秒 |
Windows XP / PentiumIII 800MHz | 約0.1秒 |