●●●●TCL/TKなら俺に聞け 2●●●●
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2007/05/01(火) 14:52:44プロジェクト本拠地
http://tcl.sourceforge.net/
最新版ソースコード
ftp://ftp.tcl.tk/pub/tcl/nightly-cvs/
The Tcler's Wiki
http://wiki.tcl.tk/
The comp.lang.tcl Newsgroup
http://groups.google.com/group/comp.lang.tcl/
ActiveTcl
http://www.activestate.com/products/activetcl/
【日本語サイト】
もっとTcl/Tk
http://www.interq.or.jp/japan/s-imai/tcltk/
Tcl/Tk Scripting Laboratory
http://www.geocities.jp/urano343/tcltk.html
Tcl/Tk Primer
http://mibai.tec.u-ryukyu.ac.jp/~oshiro/Doc/tcltk_primer/
Tcl 8.4.1 Manual Command Reference
http://www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/tcl_contents_jp.htm
CategoryTclTk - mynote
http://reddog.s35.xrea.com/wiki/CategoryTclTk.html
【前スレ】
●●●●TCL/TKなら俺に聞け●●●●
http://pc11.2ch.net/test/read.cgi/tech/1033628416/
0201デフォルトの名無しさん
2008/02/29(金) 00:01:03今日本のクンニが乱れている！！
http://www.youtube.com/watch?v=pAEaGlmwZZQ
0202デフォルトの名無しさん
2008/02/29(金) 11:17:41とかでソースを実行するときにエラーがあると，ダイアログが出てOKボタンを押さないと次に進まなくなるけど，
これを抑制する方法はない？
0203デフォルトの名無しさん
2008/02/29(金) 23:15:30読み取りの次の処理も失敗するだろ。止まるのが
普通なのではないだろうか。エラーを「抑制」するとは
この場合はどういう処理を期待してるのだろうか。
0204デフォルトの名無しさん
2008/03/01(土) 11:24:060205202
2008/03/01(土) 11:28:23ダイアログを出さずに落っこちてほしいのです．
バッチ処理でデータを自動的に次々処理しているときに，ダイアログが出てそこで止まってしまうと，
オペレータが常時監視してOKボタンを押さなくてはいけない．
そうではなくて，エラーが出たらそのまま落ちて，次のデータに処理が移るようにしたい．
0206デフォルトの名無しさん
2008/03/01(土) 11:29:12PHP のフォーラムと Python のフォーラムの最新の質問がそれぞれ
How to hide error messages? と How to handle exceptions? だったっていうのが面白かった。
0208デフォルトの名無しさん
2008/03/01(土) 11:31:07wishじゃなくtclshを使うのではどうか？
0209202
2008/03/01(土) 11:44:18それが，処理自体はバッチ的なんだが，過去の経緯を引きずっている関係から，
部分的にGUIパッケージを使っているんですよね…．
どういう方法をとるにしろ，プログラムにある程度の修正を加えるしかなさそうですね．
0210デフォルトの名無しさん
2008/03/01(土) 11:59:26というかバッチの中で呼ぶのだったら wish だと同期的にならないのでいろいろ不都合じゃないの。
Tclの中でのエラー処理の必要がなくて落っこちればそれでいいっていう前提で話してるけど。
0211デフォルトの名無しさん
2008/03/01(土) 12:12:15なんだそういうことか。それならbgerrorでエラー処理を変えればいい。
でも、ていうか8.3ってbgerrorあったっけ。昔過ぎて忘れた。
proc bgerror {message} {
exit 1
}
pack [button .b -text GENERROR -width 15]
.b configure -command {
read $notexists
}
0212デフォルトの名無しさん
2008/03/07(金) 10:24:47tcl tcl tcl tcl tcl tcl ﾁｬﾁｬﾁｬ
二人は双子♪ 似てない双子♪
0213本田
2008/03/08(土) 08:39:49Perl/Tk Tools
http://ptktools.sourceforge.net/
0214本田
2008/03/08(土) 08:44:33http://www.activestate.com/store/download.aspx?prdGUID=f0cd6399-fefb-466e-ba17-220dcd6f4078
0215デフォルトの名無しさん
2008/03/08(土) 08:46:190216本田
2008/03/08(土) 09:15:21tcom
http://wiki.tcl.tk/1821
0217本田
2008/03/08(土) 09:32:54COM Object Implementation in Tcl
http://www.vex.net/~cthuang/tcom/server.html
http://www.vex.net/~cthuang/tcom/
0218本田
2008/03/08(土) 09:35:20>COMプログラマの解説書
>Crispin Goswell
>Microsoft Office Product Unit
>1995年 春
>1995年9月13日改訂
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpdncomp/htm/com_co.asp
>抄録
>この解説書は、
>Microsoft(r) OLE Component Object Model（COM）オブジェクトを作成し、
>効果的に使用する方法を説明しています。
>例文はほとんどCで書かれていますので、実際に何が行われているかが、大変分かりやすく示されています。
>プログラマの中には、オブジェクトを実行するためにC++を好んで使用する人もいるでしょう。
>C++プログラマの観点からCOMの概念および基本的な使用法を論じているのは
>Kraig Brockschmidt著のInside OLE （第2版）（MSDN Library（Books））です。
>COMとは何か、またその設計や哲学の後ろにある動機付けをより理解する事に興味がある読者なら、
>Component Object Model Specification（MSDN Library（Specifications））の最初の2章を読んでください。
>第1章には簡単なイントロダクションを、第2章では徹底的に概要を解説してあります。
>この解説書ではInside OLEとCOM Specificationにある情報を、
>COMオブジェクトを実装する良い方法をいくつか示しながら解説するようにしてあります。
0219デフォルトの名無しさん
2008/03/08(土) 10:58:390220本田
2008/03/08(土) 11:22:01特別関係は深くないと思う。
ただTKの方は、色々な言語から使える。
0221本田
2008/03/08(土) 11:24:10"The easy way to do Lisp GUI programming"
http://www.peter-herth.de/ltk/
>LTK is a Common Lisp binding for the Tk graphics toolkit.
> It does not require any Tk knowledge for its usage.
> As it is written in pure Lisp, it is highly portable.
0222デフォルトの名無しさん
2008/03/08(土) 11:29:39DQN男の家族死ね DQN男の親死ね DQN男の友達死ね DQN男の親戚死ね
DQN男の家族死ね DQN男の親死ね DQN男の友達死ね DQN男の親戚死ね
DQN男の家族死ね DQN男の親死ね DQN男の友達死ね DQN男の親戚死ね
0223デフォルトの名無しさん
2008/03/08(土) 12:43:060224本田
2008/03/08(土) 13:03:45なぜ Tcl を使うべきではないのか
http://www.os-omicron.org/~takano/private/trans/tcl_j.html
0225本田
2008/03/08(土) 13:10:51Tcl7.x時代の話でTcl8.xにはもう当てはまらない議論。
0226デフォルトの名無しさん
2008/03/08(土) 13:35:140227本田
2008/03/14(金) 22:01:12http://sourceforge.net/projects/tbuild/
tBuild is a cross-platform Tcl/Tk extension that extends Tcl/Tk with the ability to compile
& link shared libraries of Tcl extensions written in C/C++.
tBuild currently supports all unix compilers & MS VC++ 5.x/6.x/7.0/7.1/.NET under windows.
No Mac supp
0228本田
2008/03/16(日) 01:19:13http://sourceforge.net/projects/tcl9/
Tcl9 is an umbrella for all projects related to the improvement of the current Tcl language,
towards the hypothetical version 9 (current version is 8.5).
0229本田
2008/04/02(水) 18:18:34>March 28, 2008
http://www.tcl.tk/software/tcltk/8.5.html
0230デフォルトの名無しさん
2008/04/03(木) 15:17:360231本田
2008/04/06(日) 12:46:05>tcltk8.5.2-014-20080405.exe
http://sourceforge.net/project/showfiles.php?group_id=204414&package_id=248905&release_id=589844
0232gth
2008/04/06(日) 14:25:37出口
0233七つの海の
2008/04/10(木) 23:24:00○ティコティケェィーィエ
0234デフォルトの名無しさん
2008/04/13(日) 03:08:28動かそうとしたらcannot execute binaryとなってダメなんですけど、
どうすればいいんですか?原因はなんなんですか?
中学生にも分かるように説明してくれませんか?
0235本田
2008/04/14(月) 06:00:48http://www.tcl.tk/
0236本田
2008/04/14(月) 06:02:18サポートセンターに電話すべし。
0237デフォルトの名無しさん
2008/04/16(水) 04:48:20libc6-i386というのをインストールしたら６４ビットOSでも
動きました。でも、３２ビットOSのときよりも動きが遅いです。
0238本田
2008/04/22(火) 08:24:49>SnackAmp
http://sourceforge.net/projects/snackamp/
>SnackAmp is a powerful multi-platform audio music (mp3, ogg ,wav, streams ...) player and organizer for large music collections.
>Manage your entire collection, including ID3 tagging and auto-playlisting. Integrated web server for remote control/streaming
0239デフォルトの名無しさん
2008/05/02(金) 15:58:13たとえば、中身が
He said "I am
a boy"
のようなfileに対して
set ch [open "file"]
while {[gets $ch line] >= 0} {
puts [lindex $line 0]
}
を実行すると
unmatched open quote in list
while executing
"lindex $line 0"
となって止ってしまいます。
(mingw のtclsh84 )
このような"の入った文字列を処理するにはどうしたらよいのでしょうか？
0240デフォルトの名無しさん
2008/05/02(金) 20:11:53gets $ch line
regsub -all \" $line \\" buf
puts [lindex $buf 0]
0241239
2008/05/02(金) 20:56:37あ、自分のは -all 忘れてましたわ。
ありがとうございます。
ちなみに、\\"で動くのですが、それだとemacsの色付けが異常になるので\\\"にしました。
0242デフォルトの名無しさん
2008/05/05(月) 18:25:210243デフォルトの名無しさん
2008/05/06(火) 10:44:47ver.8.4.17以降2ヶ月毎に改版されている｡随分頻繁に改版しているけど､どこが換わっているのやら。
0244デフォルトの名無しさん
2008/05/08(木) 16:18:48regularExpressionの速さはピカ一ですが
0245デフォルトの名無しさん
2008/05/08(木) 20:01:200246デフォルトの名無しさん
2008/05/09(金) 04:16:30この観点から見るとtclひどすぎ。
正規表現使う構文にしてもすっきりしてないし。
0247デフォルトの名無しさん
2008/05/09(金) 12:00:110248デフォルトの名無しさん
2008/05/09(金) 12:42:240249デフォルトの名無しさん
2008/05/14(水) 08:49:38Tcl ってよー出来てるって思えるから。
0250デフォルトの名無しさん
2008/05/14(水) 13:17:13他がちょっと弱いけど。
0251デフォルトの名無しさん
2008/05/14(水) 13:44:240252デフォルトの名無しさん
2008/05/15(木) 02:02:59Win版のActiveTclのExpectは、sendの-breakが無いので、
一旦openしてfconfigureでbreakするのを試みてます。
set fd [open "COM1:" RDWR]
fconfigure $fd -ttycontrol {BREAK 1}
exp_sleep 2
fconfigure $fd -ttycontrol {BREAK 0}
exp_spawn -open $fd
でも、最後のexp_spawnがうまくいかないです。何故でしょう？
0253デフォルトの名無しさん
2008/05/17(土) 04:37:43'"'だけでなく'{'とか'}'とかも気をつける必要がある気がするんだけど。
tcl faq list eval とかで検索してみたけど結局どうすれば。
0254デフォルトの名無しさん
2008/05/18(日) 17:33:48コメントをなんとか書けないものかなあ
0255本田
2008/05/22(木) 06:02:40http://lists.activestate.com/expect%40listserv.ActiveState.com/6A3BD65D48E1EC45AF1B466D4E2A470F02630419%40HQSX5711.Hospira.corp
0256デフォルトの名無しさん
2008/05/23(金) 08:27:470257デフォルトの名無しさん
2008/05/23(金) 21:06:59たとえば、
set tcl_prompt1 {puts -nonewline [info hostname]@[pwd]> }
で、ラインコンティニュー用は tcl_prompt2に設定
set tcl_prompt2 {puts -nonewline continue?> }
0258デフォルトの名無しさん
2008/05/24(土) 00:50:15なんやこれ。こんなんできたのか。長年使ってるけどはじめて知ったわ
0259デフォルトの名無しさん
2008/05/24(土) 01:27:29出来た！
ありがとうございます
0260デフォルトの名無しさん
2008/05/25(日) 04:51:53~/.tclshに ls color=auto を入れたいんだけど
0261本田
2008/05/25(日) 06:00:16http://cpptcl.sourceforge.net/
>A C++ library for interoperability between C++ and Tcl
>C++/Tk
http://cpptk.sourceforge.net/
>A complete C++ interface to the Tk GUI toolkit
0262デフォルトの名無しさん
2008/05/29(木) 20:12:22パッチとか修正とか、かなり手を入れないと使えないのでしょうか。
0263デフォルトの名無しさん
2008/06/02(月) 21:39:25ここにその議論がある。http://wiki.tcl.tk/2157
要するにsplitすればよい。ただし連続する空白文字に対する動作が意図と異なるかもしれない。
while {[gets $ch line] >= 0} {
puts [lindex [split $line] 0]
}
あるいは、
puts [join [split $line] |]
などに書き換えて様子を見よう。
>>262
Windows版の場合、tcl84.dllに直接リンクしてしまってるからどうにもならないよね。
Tcl8.3あたり以降のextension作成のガイドラインから外れた古い作りになっているんだろう。
実際何年も更新されてないようだし。
自前ビルドしてやるしか。
0264262
2008/06/03(火) 11:42:06http://jos.decoster.googlepages.com/bltfortk8.5.2
を基に試してみました。
demosやexamplesの一部 (多く?) が失敗するけど、なんとなく使えそうです。
BLT-3.0で対応するのかなぁ。
0265デフォルトの名無しさん
2008/06/14(土) 18:22:11これは試した？
0266262
2008/06/16(月) 16:43:53Fedora 9で試してまして、そうこうしてるうちに、>>263の方法で対応したパッケージがリリースされました。
https://bugzilla.redhat.com/show_bug.cgi?id=446862
で対処してくださったようです。
0267デフォルトの名無しさん
2008/06/20(金) 19:54:08また、できれば選択した文字列が表示されるテキストボックス部分を
複数行表示にしたいのですが、可能でしょうか？
0268デフォルトの名無しさん
2008/06/20(金) 21:03:00tile拡張のttk::comboboxのやつか?
ttk::combobox .cb -width 100 とかでいけんじゃね
>>複数行表示にしたいのですが、可能でしょうか？
不可能じゃね
0269デフォルトの名無しさん
2008/06/27(金) 03:20:15set a hoge
set b a
set c b
とやって、cからたどってhogeに辿り着くには
どうすればいいのでしょうか。
$$$c とか $[$[$c]] とかいろいろやってみたのですが
できません……。
0270デフォルトの名無しさん
2008/06/27(金) 22:53:22set b a
set c b
proc aho foo {
upvar $foo bar
return $var
}
puts [aho [aho $c]]
0271デフォルトの名無しさん
2008/06/27(金) 23:22:33puts [set [set $c]]
>>267
2行は無理。BWidgetsのコンボを改造すればできるかも
0272デフォルトの名無しさん
2008/06/28(土) 00:44:17へ〜、setって変数の参照にも使えるんだ。 勉強になりますた。
0273デフォルトの名無しさん
2008/06/28(土) 03:31:47> ただし連続する空白文字に対する動作が意図と異なるかもしれない。
この制約がどうにも辛いです。
連続した空白があってもそれをただ一つの区切りとみなしつつ、
安全にファイルなどから読み込んだ文字列を処理するには
どうしたらいいのだろうか。
0275デフォルトの名無しさん
2008/06/28(土) 06:01:58そんなの教わったregsub使えよ
while {[gets $ch line] >= 0} {
puts [lindex [split $line [regsub -all -- {\s+} $line { }]] 0]
}
0276デフォルトの名無しさん
2008/06/28(土) 12:50:19set line {He said "I am}
foreach word [string map {\" \\"} $line] {
puts $word
}
0277デフォルトの名無しさん
2008/06/28(土) 14:34:54'{' inside string
0278デフォルトの名無しさん
2008/06/28(土) 17:20:38必要がない時の条件がよく分からん。。。
あと、ファイルから読み込んだ行を一律regsubしてしまって
常に構わないのかどうかも。。。
0279デフォルトの名無しさん
2008/06/28(土) 21:56:13文字列をリストに自動変換してるところは気にしろ。文字列をforeachしたり
リスト系のコマンドに直接文字列を渡したりしてるところは注意だ。
>>276
set line "He said \"I am \{ a boy \}"
foreach word [string map {\" \\\" \{ \\\{ \} \\\}} $line] {
puts $word
}
0280デフォルトの名無しさん
2008/06/28(土) 23:10:12これは必要? あってもなくても同じではないの?
0281本田
2008/07/01(火) 06:46:34>Tcl/Tk 8.6a1 June 25, 2008
>Tcl/Tk 8.4.19 Apr 18, 2008
http://www.tcl.tk/
0282263
2008/07/02(水) 07:53:23そもそもの話をしてもいいだろうか。
こんなコードは試しましたか？
set lines {He said "I am
a boy"}
set i 0
foreach l $lines {
puts $i:$l
incr i
}
Tclのlist「形式」は平易ながらバイナリデータまで扱える立派な「データ構造」なので、
まともに実装しようとすればTclが最初から持ってるパーサーを実装しなおすようなことになるよ。
平易ではあるがあまり(書いたソフトの)ユーザーには触ってもらいたくないデータ形式のような気がする。
コメントも使えないしね。自分自身で読み書き保存するためにはいいけど、
ユーザーに触らせるならJSONやYAMLなどのより一般的な形式がいいだろうね。
今ならtcllibのCVS HEADにライブラリが置かれてるよ。
0283239
2008/07/02(水) 09:03:58>>282
それじゃ根本的に違うんだよね〜
getsで一行ごとにテキストファイルから読んでるの文字列に「"」があるのがミソなんで
set lines {He said "I am}
を処理することになるんですよ。
0284デフォルトの名無しさん
2008/07/02(水) 19:51:00string is list $strが追加されてんぞ。
0285デフォルトの名無しさん
2008/07/03(木) 00:00:27そもそもデータ自体が１行ずつ処理されるように書かれていないのになぜ、1行ずつ
処理したがるのか
0286デフォルトの名無しさん
2008/07/03(木) 01:29:080287デフォルトの名無しさん
2008/07/03(木) 01:43:11flex/bisonでやるか PureTclでやるならfickle/taccle
0288デフォルトの名無しさん
2008/07/04(金) 11:09:03自分の描画ルーチンが重いのではなく、Tkがcanvasをリフレッシュするのが激重です。
描画したアイテムを選択して移動とかするつもりはなく、単に絵が表示されればいいのですが…
こんな場合は、image photoに直接力技で図形を書いていくしかないですかね。
0289デフォルトの名無しさん
2008/07/05(土) 12:36:31書いた絵をドラッグできるとかそういう系。
0290本田
2008/07/06(日) 13:21:30Zinc Is Not Canvas!
http://www.tkzinc.org/tkzinc/index.php
OpenGLが、速い環境が無いと、遅すぎてかなわん。
0291デフォルトの名無しさん
2008/07/07(月) 21:37:100292デフォルトの名無しさん
2008/07/08(火) 00:37:160293デフォルトの名無しさん
2008/07/09(水) 07:59:32>>292
1000を超える描画単位（図形やウィジェットなど）をリアルタイムで取り扱うことはスクリプト言語系のツールキットでは想定されてないと思う。
素直にネイティブコードで動く言語で実装したほうが早いんじゃない？ 描画結果のキャッシュでもしつつ。
0294デフォルトの名無しさん
2008/07/09(水) 20:18:400295デフォルトの名無しさん
2008/07/09(水) 22:18:260296デフォルトの名無しさん
2008/07/09(水) 23:06:430297デフォルトの名無しさん
2008/07/09(水) 23:44:51非同期で走っている複数のスレッドから進行状況や終了などをメインのスレッドで
受け取るにはどういう手段があるんでしょう？ tsv でスレッド内で状況をセットして
メインでpollするというぐらいしか思いつかないのですが。 メインの方で
vwaitしてスレッドのほうからthread::sendなんて出来ませんよね？
0298デフォルトの名無しさん
2008/07/10(木) 06:48:22Tcl_Eval()でTclスクリプトを実行したときにそのスクリプトにエラーが含まれていると、
エラーメッセージはResultの中に入ってる。
これをResultの代わりにエラー出力に出したいんだが、その方法がよくわからない。
やり方があるようなら教えてもらえないだろうか。
0299297
2008/07/10(木) 06:54:59Expectを多用してるので諦めます。
http://community.activestate.com/forum-topic/expect-tcl-threads
0300本田
2008/07/10(木) 07:54:03http://wiki.tcl.tk/2620
stderr is one of the stdio output files opened
- applications and functions tend to use it for the output of error messages.
0301298
2008/07/10(木) 10:32:22ご協力ありがとう。
読んでみたけどどうやらこれはTclインタプリタ側（Tclスクリプト側）から
外部コマンドを呼び出したときのstderrについて議論しているみたいで、この話とはちょっと違う。
Tcl_CreateInterp()でinterpを作った後、
Tcl_SetStdChannel(channel, TCL_STDOUT);
Tcl_SetStdChannel(channel, TCL_STDERR);
を呼び出すことでinterpが呼び出すputsコマンドによる標準出力、エラー出力をトラップできることは確認できている。
だがTcl_Eval()やその他のTcl変数を直接いじるAPIを呼び出したときの文法エラー、実行時エラーは出力されないみたいなんだ。
（で、Resultの中に入っている）
こいつを、他と同じようにトラップできればいいんだが……。
■ このスレッドは過去ログ倉庫に格納されています