●●●●TCL/TKなら俺に聞け 2●●●●

1 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 14:52:44 ] 【英語サイト】 プロジェクト本拠地 tcl.sourceforge.net/ 最新版ソースコード ftp://ftp.tcl.tk/pub/tcl/nightly-cvs/ The Tcler's Wiki wiki.tcl.tk/ The comp.lang.tcl Newsgroup groups.google.com/group/comp.lang.tcl/ ActiveTcl www.activestate.com/products/activetcl/ 【日本語サイト】 もっとTcl/Tk www.interq.or.jp/japan/s-imai/tcltk/ Tcl/Tk Scripting Laboratory www.geocities.jp/urano343/tcltk.html Tcl/Tk Primer mibai.tec.u-ryukyu.ac.jp/~oshiro/Doc/tcltk_primer/ Tcl 8.4.1　Manual Command Reference www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/tcl_contents_jp.htm CategoryTclTk - mynote reddog.s35.xrea.com/wiki/CategoryTclTk.html 【前スレ】 ●●●●TCL/TKなら俺に聞け●●●● pc11.2ch.net/test/read.cgi/tech/1033628416/ 86 名前：デフォルトの名無しさん mailto:sage [2007/11/09(金) 20:23:56 ] AAA.xml見せい 87 名前：デフォルトの名無しさん mailto:sage [2007/11/09(金) 20:33:02 ] あとtcl domよりtdomのほうがおすすめだ。速い。 88 名前：デフォルトの名無しさん mailto:sage [2007/11/10(土) 17:30:54 ] >>86 ごめん、都合上見せられないんだ。 一昨日は上手くいったのに・・・ >>87 試してみます。 89 名前：デフォルトの名無しさん [2007/11/17(土) 11:08:39 ] >80 自己レスポ ver8.4で64bit演算するときはwide()を使うらしい wideなんて関数知らんかった。 ver8.5関連の頁をみていると8.5ではwide()使わなくても64bit演算できると書いてあるので気がついた｡8.4の仇花か｡ 兎も角一応まにあった｡　お騒がせ 90 名前：本田 [2007/12/08(土) 11:36:23 ] >TkSQLite reddog.s35.xrea.com/wiki/TkSQLite.html >What is This? >TkSQLite is a GUI database manager for SQLite implemented by Tcl/Tk. >It can manage SQLite version2.8 and SQLite version3.x database. > And it can handle many encodings like Shift-JIS, EUC-JP and Windows native milti-byte encodings not only UTF-8. > And it can run on Windows and Linux and MacOSX as native Look & Feel. And it's Freeware. 91 名前：本田 [2007/12/14(金) 18:00:36 ] Tcl/Tk 8.5.0 RC3 ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc3-src.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk8.5.0rc3-src.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc3-html.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850rc3-src.zip ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk850rc3-src.zip 92 名前：デフォルトの名無しさん mailto:sage [2007/12/14(金) 23:08:49 ] rc3出るの早すぎね？このまえrc2出たばっかじゃん？ 93 名前：本田 [2007/12/15(土) 00:34:06 ] >>92 RC2とRC3の間は、約3日間。 94 名前：本田 [2007/12/15(土) 08:10:05 ] Tcl/Tk 8.5.0 RC4 ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc4-src.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk8.5.0rc4-src.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc4-html.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850rc4-src.zip ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk850rc4-src.zip 95 名前：デフォルトの名無しさん mailto:sage [2007/12/15(土) 17:40:19 ] rc4出るの早すぎね？このまえrc3出たばっかじゃん？ 96 名前：デフォルトの名無しさん mailto:sage [2007/12/15(土) 18:33:04 ] うおおおこのペースなら年末までにTcl/Tk9.0だな！ 97 名前：本田 [2007/12/15(土) 22:04:32 ] >>95 RC３とRC４の間は、約１日間。 98 名前：本田 [2007/12/17(月) 23:22:46 ] >MinGW Cross Compiler sourceforge.net/projects/mingw-cross >The aim of this project is to provide and maintain MinGW >(Minimalist GNU-Win32, www.mingw.org) cross-compiler package for Linux > Project Admins : bitwalkProject Admin > Developers : 1 99 名前：本田 [2007/12/18(火) 18:03:59 ] >>94 Tcl/Tk 8.5.0 RC5 ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc5-src.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk8.5.0rc5-src.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc5-html.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850rc5-src.zip ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk850rc5-src.zip 100 名前：本田 [2007/12/18(火) 18:07:11 ] >>96 年末までに、Tcl/Tk 8.5.0 RC10だろう。（笑） 101 名前：デフォルトの名無しさん mailto:sage [2007/12/18(火) 18:33:52 ] rc5出るn(ｒｙ 102 名前：本田 [2007/12/19(水) 02:01:17 ] >>99 Tcl 8.5.0 RC6 ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0rc6-src.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850rc6-src.zip 103 名前：デフォルトの名無しさん mailto:sage [2007/12/19(水) 02:13:18 ] rc6(ｒｙ バグ報告まとまってから出そうよｗ 104 名前：本田 [2007/12/19(水) 04:21:33 ] >>102 Tcl/Tk 8.5.0 ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0-src.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk8.5.0-src.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl8.5.0-html.tar.gz ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tcl850-src.zip ftp://ftp.tcl.tk/pub/tcl/tcl8_5/tk850-src.zip 105 名前：本田 [2007/12/19(水) 04:23:03 ] >>104 一週間早いクリスマスプレゼント。 106 名前：デフォルトの名無しさん [2007/12/19(水) 20:40:38 ] てぃくる/てぃーけー？ てぃっくる/てぃーけー？ 107 名前：デフォルトの名無しさん [2007/12/19(水) 20:41:14 ] てぃーしーえる/てぃーけー？ 108 名前：デフォルトの名無しさん [2007/12/19(水) 21:44:49 ] >104 どれを開いても　URL Not Found　と出るばかり　何なんだ？？？ 109 名前：デフォルトの名無しさん [2007/12/19(水) 21:46:18 ] >102,104 どれを開いてもURL Not Found と出るばかり　何なんだこれは？？？？ 110 名前：本田 [2007/12/20(木) 01:04:21 ] >>109 ftp://ftp.tcl.tk/pub/tcl/tcl8_5 111 名前：本田 [2007/12/20(木) 02:31:01 ] >>109 sourceforge.net/project/showfiles.php?group_id=10894 112 名前：デフォルトの名無しさん [2007/12/20(木) 17:43:39 ] いまだにTcl使っている人いるんだなー 113 名前：デフォルトの名無しさん [2007/12/21(金) 08:21:18 ] アナウンスでたね。上に出てるURLは先にもれてたのかな。 114 名前：デフォルトの名無しさん mailto:sage [2007/12/21(金) 23:42:59 ] さっそくだがベンチマーク取ろうぜ 115 名前：本田 [2007/12/23(日) 15:47:41 ] >>98 sourceforge.net/project/showfiles.php?group_id=204414 >[PRODUCT] Tcl/Tk >Latest tcltk8.5.0-011 Notes (2007-12-21 21:27) > tcltk8.5.0-011-20071222.exe Mirror 6723504 9 i386 .exe (32-bit Windows) > tcltk8.5.0-011-build_script.tar.gz Mirror 1565623 0 Other Other Source File 116 名前：デフォルトの名無しさん [2007/12/23(日) 17:22:37 ] ActiveTcl8.5まだあ 117 名前：デフォルトの名無しさん mailto:sage [2007/12/23(日) 18:19:04 ] >>116 もう出た。もう出たけど、ライブラリは付いていない罠。 ライブラリは8.4のを使うみたい？ 118 名前：デフォルトの名無しさん mailto:sage [2007/12/31(月) 09:21:10 ] >>117 groups.google.com/group/comp.lang.tcl/topics の Is ActiveTcl 8.5 release to be used as it is? の議論によると、今のところ8.4に上書きするのが正しいらしい。 119 名前：本田 [2008/01/01(火) 22:35:05 ] >>118 アンインストールしないで、 上書きすると、 tclsh84とtclsh85の両方が使えるよ。 120 名前：本田 [2008/01/07(月) 06:33:26 ] >Latest Release: Tcl/Tk 8.4.17 (Jan 4, 2008) www.tcl.tk/software/tcltk/8.4.html 121 名前：デフォルトの名無しさん mailto:sage [2008/01/12(土) 04:09:05 ] EDAの制御用でもなく、単純なツールを書くのに tclshとか利用すんのマジでやめてくれ > R社 122 名前：デフォルトの名無しさん mailto:sage [2008/01/12(土) 08:22:41 ] Renesas? 123 名前：デフォルトの名無しさん mailto:sage [2008/01/12(土) 15:19:29 ] 単純なツールなら別にいいじゃん 124 名前：デフォルトの名無しさん mailto:sage [2008/01/12(土) 23:55:37 ] ローカルに手を加えたいができないユーザ多数なんよ。 なんせtclなんかで書いてあるからな。 125 名前：デフォルトの名無しさん mailto:sage [2008/01/13(日) 03:24:36 ] 単純なツールならどの言語で書かれていても調べて改造するくらいできるのでわ 126 名前：デフォルトの名無しさん mailto:sage [2008/01/13(日) 09:24:32 ] ActiveTcl8.5のchm見てたら いつの間にやらチュートリアルついてるのな 今初めて気付いた 127 名前：デフォルトの名無しさん mailto:sage [2008/01/13(日) 09:30:28 ] Whitespaceで書かれたら改造する自信ないな 128 名前：本田 [2008/01/13(日) 14:26:09 ] >Micropolis Downloads www.donhopkins.com/home/micropolis/ >Micropolis, Unix Version. > This game was released for the Unix platform in or about 1990 and has been modified for inclusion in the One Laptop Per Child program. > Copyright (C) 1989 - 2007 Electronic Arts Inc. >If you need assistance with this program, you may contact: www.donhopkins.com/home/micropolis/micropolis-activity-source.tgz Tcl6.4とTk2.3のソースコードが丸ごと入ってる。 129 名前：デフォルトの名無しさん mailto:sage [2008/01/13(日) 16:10:55 ] シムシティってTclで書かれてたんだ・・・ 130 名前：本田 [2008/01/18(金) 07:45:20 ] >>120 >ActiveTcl 8.4.17.0 www.activestate.com/store/download.aspx?prdGUID=f0cd6399-fefb-466e-ba17-220dcd6f4078 131 名前：デフォルトの名無しさん [2008/01/19(土) 03:51:09 ] Tcl/Tk紹介ビデオ www.nicovideo.jp/watch/sm441402 132 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 11:27:48 ] Tk がファイルのドラッグドロップに対応していて、 OpenGL の描画先として簡単に指定できるなら wxWidgets から乗り換えようかと思っているんだけど、どうなんでしょうか。 133 名前：本田 [2008/01/19(土) 12:44:05 ] >>132 TkDND >sourceforge.net/projects/tkdnd/ >tkdnd is an extension that adds native drag & drop capabilities to the tk toolkit. > It can be used with any tk version equal or greater to 8.3.3 >and currently only the UNIX (X-Windows) >and Microsoft Windows operating systems are supported. 134 名前：本田 [2008/01/19(土) 12:45:44 ] >>132 >Togl ― a Tk OpenGL widget >Copyright (C) 1996-2002 Brian Paul and Ben Bederson togl.sourceforge.net/ 135 名前：本田 [2008/01/19(土) 12:49:01 ] >>132 >TkOGL hct.ece.ubc.ca/research/tkogl/tkogl/index.html >TkOGL is a package extension to the Tcl scripting language that enables a user to utilize OpenGL, > a multi-platform API for interactive 2D and 3D graphics applications. > TkOGL makes it possible for the user to display OpenGL graphics on the Tk canvas along with other Tk widgets. > This creates opportunities for developers, > educators and presenters to script up interactive demos, > graphical learning models, and colorful presentations. > Designing a simple user interface that interacts with OpenGL graphics is much simpler and much faster through the Tcl interpreter. > Much like other Tk Widgets, > OpenGL graphics can be rendered step by step so users can see the progressive steps appear on the canvas. > TkOGL eliminates the use of compilers, shared libraries, header files and utility toolkits such as GLUT. 136 名前：デフォルトの名無しさん mailto:sage [2008/01/19(土) 14:10:43 ] 今OpenGLやるならTogl よりTcl3Dがいいぜ。サンプルも多いし。 それよりwxから乗り換えようと思った動機を教えて欲しいんだぜ。 137 名前：本田 [2008/01/19(土) 14:21:52 ] >>136 www.tcl3d.org/ 138 名前：デフォルトの名無しさん [2008/01/24(木) 17:38:15 ] みなさん、こんにちは。 突然おじゃましてすみません。 一つ質問があります。 実は先日、Linux用のあるシミュレーションソフトを購入して、 それをASUS Eee PCというPCにインストールして動かしているのですが、 もっと計算速度が上がればなーと考えていてふと思い付いたのが、 もしPS3にLinuxを入れて動かせばいいのかもしれない、と。 そのシミュレーションソフトはTCL/TKというグラフィカル・ツールキットを 先に入れておく必要があるのですが、そのTCL/TKというものはPS3にも 対応しているのでしょうか？ ちなみにEee　PcにはActiveTcl8.4というものをインストールしました。 このシミュレーションソフトは、なにやらwishというものを必要とするとかで、 詳しいことはわかりません。 139 名前：デフォルトの名無しさん mailto:sage [2008/01/24(木) 22:31:28 ] >138はマルチ 140 名前：本田 [2008/01/24(木) 23:28:35 ] >>138 まずサポートセンターに電話する。 141 名前：デフォルトの名無しさん [2008/01/24(木) 23:44:55 ] 8.5正式版でたけどOusterhout本の改訂の話ってどうなったのかなあ。 142 名前：132 mailto:sage [2008/01/25(金) 10:30:05 ] どもありがとう 今 wxPython + PyOpenGL でゲームを作ってるけど wxWidgets はDLLのサイズがでかくてどうにかならんものかと。 あと Python には標準で Tkinter がついてるから、Tk でできるならその方が何かと楽。 143 名前：本田 [2008/01/25(金) 21:55:41 ] >epcEdit XML/SGML editor >Available for Windows, Linux, and Solaris - use one application on all relevant platforms in your organization. >Download your free copy!Download your free copy of epcEdit for Windows, Linux or Solaris! www.epcedit.com/ >News: epcEdit is now free for personal and commercial use! >epcEdit will become available under an open source license in the future, > after we have removed copyrighted third-party components. > In the meantime the current version of epcEdit can be used free of charge. > An unlimited activation key can be downoaded here. 144 名前：デフォルトの名無しさん mailto:sage [2008/01/26(土) 15:08:49 ] ひとつお聞きしたいことがあります。 Tcl/Tkを使って連続的にデータを処理表示しているのですが、 数時間たつと、 X Error of failed request: BadAlloc (insufficient resources for operation) Major opcode of failed request: 53 というエラーを吐いて止まってしまいます。 どこが悪いか調べたいので、 Tcl/Tkのプログラムで、残り資源を表示するような機能はありませんか。 解決策をご存知でしたら教えてください。 145 名前：デフォルトの名無しさん mailto:sage [2008/01/26(土) 17:38:21 ] psコマンドで調べたらええんちゃうの。 何の処理をしてるのかしらんが、Tkのありがちな 罠として画像の解放しわすれのようなオチの予感がする。 146 名前：本田 [2008/01/27(日) 12:32:24 ] >>143 >TkSGML www.epcedit.com/TksgmlManual/ >SGML widget reference manual 147 名前：デフォルトの名無しさん [2008/01/27(日) 13:38:41 ] Tclでヒープ的なメモリ割り当てをしてGCすることってできないのかなあ。 148 名前：デフォルトの名無しさん mailto:sage [2008/01/27(日) 16:00:48 ] >>145 144です。ありがとうございます。 自分でもDeleteコマンドで削除して、気をつけてはいるんですが、 どこかうまくいってないようです。 149 名前：デフォルトの名無しさん mailto:sage [2008/01/27(日) 16:05:09 ] >>147 ローカル変数の割り当てはそうしてるだろ 150 名前：本田 [2008/01/27(日) 18:19:52 ] >>144 > X Error of failed request: BadAlloc > (insufficient resources for operation) > Major opcode of failed request: 53 これはおさらく、 X　Serverのエラーで、 TclやTkのエラーではない。 >LECTURE 14 エラーイベント homepage3.nifty.com/rio_i/lab/xlib/014xerr.htm >BadAlloc 要求リソースの割り当てに失敗 151 名前：デフォルトの名無しさん [2008/01/27(日) 19:52:34 ] >>149 ローカル変数は全然ヒープ的じゃないよー。スコープ＝寿命でスタック的なもの。 152 名前：デフォルトの名無しさん [2008/01/29(火) 14:41:57 ] はじめまして、私は新人プログラマです。 ひとつお伺いしたいことがあります。 IPフィルタリング機能をTCLで行ないたいと思っております。動作としては、下記のIPアドレスがサイトへアクセスしてきた場合 ページを閲覧できる様にし、それ以外のIPアドレスが来た場合は閲覧出来ない様にするといった感じのものです。OSはSolarisを使用して行います。 特定のIP 1.1.1.1 1.1.1.2 以上の事から、TCLで上記の様な制御を行なうにはどういったソースを書けば宜しいのでしょうか。例題的な感じで結構ですので御回答宜しくお願いします。また、これらの内容をみて不明点などが御座いましたら ご質問頂けたらと思います。 ちなみに、下記方法で実施してみましたがダメでした。 【リモートホスト情報の取得】 CGI プログラミングをする上でクライアントのリモートホストの情報を利用したい場合がある。 例えば特定のホストからのアクセスを規制したい場合などである。 サーバに Apache を使用していれば IP アドレスの値が環境変数 REMOTE_ADDR から取得できる。 Tcl では $env(REMOTE_ADDR) のようにして環境変数を取り出す。 さらに Apache の設定次第では環境変数 REMOTE_HOST にホスト名が与えられているかもしれない。 そうでない場合は IP アドレスからホスト名を取り出す必要がある。 このためには TclX に含まれている host_info コマンドを使えばよい。 このコマンドは Perl での gethostbyaddr 関数や gethostbyname 関数に相当する機能を提供する。 ホスト名を取り出す場合はサブコマンド official_name を以下の書式で使用する。 引数 host には $env(REMOTE_ADDR) で得た値などを与える。 153 名前：デフォルトの名無しさん mailto:sage [2008/01/29(火) 19:02:57 ] 長文乙。 そんなことより、Apacheの設定見れ。 154 名前：デフォルトの名無しさん mailto:sage [2008/01/29(火) 21:19:27 ] if { $env(REMOTE_ADDR) in $blacklist } { exit } こんなのでいいのか？こんな簡単なことでいいのか？ 簡単すぎて不安になるぜ！ 155 名前：デフォルトの名無しさん [2008/01/29(火) 21:21:40 ] 新人がTclでウェブプログラミングやるっていったいどんな会社なのか興味があるなあ。 なんにせよ152が書いたコードを張るところからだね。 156 名前：デフォルトの名無しさん [2008/01/29(火) 21:25:37 ] >>154 in演算子ってTcl8.5からだからまだ152の環境に入っていない可能性が高いね。 157 名前：デフォルトの名無しさん mailto:sage [2008/01/29(火) 22:03:18 ] ていうかどうせならTclHttpd試してみてくれよ。 158 名前：本田 [2008/01/30(水) 19:46:55 ] >>157 TclHttpdは、アプリケーションに組込むのが主流だろうな。 つまりアプリケーションサーバー。 >>143 >epcEdit XML/SGML editor に組込まれていてヘルプを見るのに使われている。 159 名前：本田 [2008/01/30(水) 20:59:27 ] >>152 >サーバに Apache を使用していれば IP アドレスの値が環境変数 REMOTE_ADDR から取得できる。 同時に複数の人がApacheに接続すれば、 環境変数 REMOTE_ADDRには、 誰のIP アドレスが入るのかな？ 最初の人か？ 最後の人か？ 160 名前：デフォルトの名無しさん [2008/01/30(水) 21:48:36 ] CGIなんだからそれぞれの人のでしょ。 161 名前：本田 [2008/01/30(水) 22:47:10 ] >>160 そうですね。 162 名前：デフォルトの名無しさん mailto:sage [2008/01/31(木) 11:32:40 ] えーっと・・・ 163 名前：デフォルトの名無しさん [2008/02/03(日) 19:01:06 ] 正直Tcl使うよりRuby/TK使った方が便利なんだが・・・ 164 名前：デフォルトの名無しさん [2008/02/03(日) 19:18:05 ] 俺は C から使うのが便利だな 165 名前：デフォルトの名無しさん mailto:sage [2008/02/03(日) 20:38:40 ] で、Ruby/Tkで書いたアプリって何かあんの？ 166 名前：デフォルトの名無しさん mailto:sage [2008/02/03(日) 20:45:24 ] やっぱPerlで 167 名前：デフォルトの名無しさん [2008/02/03(日) 22:23:35 ] non-TclのTkバインディングってろくにドキュメント整備されてるやつがない印象がある。 168 名前：デフォルトの名無しさん mailto:sage [2008/02/05(火) 18:14:27 ] 俺も普段よくRuby使うからRuby/Tk触ったことはあるが… Ruby流でもTcl流でもない、妙な違和感があるんだよなぁ。 169 名前：デフォルトの名無しさん mailto:sage [2008/02/06(水) 11:36:52 ] 数値計算のパラメータ設定マクロ用にtclを使いたいのですが、 C, C++プログラムにtclを組込む方法はどうやれば良いですかね？ 170 名前：169 mailto:sage [2008/02/06(水) 14:25:55 ] Tcl_CreateInterpでインタプリタを作って、Tcl_EvalFileでtclで記述したファイルを実行、 特定の名前の変数にパラメータを入れて、Tcl_GetVar等でパラメータの入った変数を読み出せばできますね。 自己レスすまそ 171 名前：本田 [2008/02/07(木) 00:52:46 ] >>157 >AOLserver sourceforge.net/projects/aolserver >AOLserver is a multithreaded, > Tcl-enabled, > massively-scalable and extensible web server tuned for large scale, dynamic web sites. > AOLserver also includes complete database integration and a dynamic page scripting language. 172 名前：デフォルトの名無しさん [2008/02/08(金) 00:00:42 ] 8.5版に入換えたらeval命令が異様に遅くなった md5を計算するのにevalを多用した箇所がすごいことになってしまった｡困った。 173 名前：デフォルトの名無しさん mailto:sage [2008/02/08(金) 00:31:28 ] MD5なんかCで実装するもんじゃないのか 174 名前：デフォルトの名無しさん mailto:sage [2008/02/08(金) 00:54:46 ] よくわからんが、md5なんてtcllib_critclとかTrfなんかの Cで書いた枯れた拡張をつかうものなのでわ・・・。 175 名前：本田 [2008/02/08(金) 19:00:15 ] Eggdrop Bots and Tcl Scripts www.ruptbot.com/index.php www.ruptbot.com/scripts.php www.ruptbot.com/ruptbot.php 176 名前：デフォルトの名無しさん [2008/02/08(金) 22:56:12 ] 172です｡誤解を招くような文章で申し訳ない｡改めて書直します｡ 8.4版->8.5版に乗換えて快適な環境になりましたか｡小生の場合は疑問符です 小生の場合､既存のプログラムの内の１つが異常なくらい遅くなりました｡ 調べると１つのprocが極端に遅くなっていた｡このprocはRFC1321の手順通りにmd5を計算しているだけで､何の変哲もないprocですが､evalを多用しています｡ 今の所evalの処理が遅くなったのかと疑っています｡無論真相は不明です｡ 177 名前：デフォルトの名無しさん mailto:sage [2008/02/08(金) 23:19:07 ] よっしゃ３連休で暇な俺が8.5に最適化してやるからうｐしろ。 178 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 02:17:51 ] あれ、evalか...exprかと勝手に脳内変換してたよ md5をPureTclで計算するのになぜevalを多用するのかよくわからないな evalでプレコンパイルして次回からはより速くなるようにする処理のところが 8.5では相対的にオーバーヘッドが大きくなったのかもしれないな 179 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 21:05:44 ] うｐまだ？暇すぎて死にそう 180 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 22:46:28 ] >>176 reddog.s35.xrea.com/wiki/index.php?Benchmark%20Tcl8.5.0%20vs%20Tcl8.4.16 ここを見た感じではevalが遅くなってるってことは なさげに見えるけどなあ・・・。なんだろう。 181 名前：デフォルトの名無しさん [2008/02/09(土) 23:51:09 ] >>177,179 md5を計算する手製proc リストはここに置いておきます｡ home.netyou.jp/22/tanida/md5.htm tcl ver8.4迄は正常に動作しver8.5でとち狂った｡ ver8.2で動作させるとrfc1321の例題と同じ結果が得られることは確認すみ｡ 182 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 05:19:39 ] できた！たしかに8.5だと3倍くらい遅くなってた。たぶん変数を 二重に展開してexprとevalのコンボで最適化が効かなくなって しまったと推測。 直したのは基本的にそこを素直にprocにしただけ。 8.4では4倍、8.5では12倍高速化した。あと、applyを使った ものも書いてみたけど、procの方が速かった。 chun.s11.xrea.com/up/img/112.zip ていうか、ひょっとして一つのprocで完結させたかったのかな。 それならapplyだ！ 183 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 08:03:16 ] VineLinux4.2とActiveTcl8.5の環境でtktreectrlをソースからビルドしたいんだけど、 makeでつまづいてしまうんだが。 $tar xzf tktreectrl-2.2.3.tar.gz $cd tktreectrl-2.2.3 $./configure --prefix=/opt/ActiveTcl-8.5 --enable-threads $make うだうだ generic/tkTreeColumn.c:13 から include されたファイル中: generic/tkTreeCtrl.h:13:20: tkPort.h: そのようなファイルやディレクトリはありません generic/tkTreeCtrl.h:14:21: default.h: そのようなファイルやディレクトリはありません generic/tkTreeCtrl.h:15:20: tclInt.h: そのようなファイルやディレクトリはありません generic/tkTreeCtrl.h:16:19: tkInt.h: そのようなファイルやディレクトリはありません うだうだ tkPort.hってなんぞ？ /opt/ActiveTcl-8.5/include にそんなヘッダ入ってないんだけど・・・ 184 名前：本田 [2008/02/10(日) 09:05:22 ] >>183 sourceforge.net/projects/tcl/ からtcl8.5とtk8.5のソースコードをgetしろ。 185 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 09:16:09 ] >>184 ActiveTclを使わずにtckもtkも自分でソースからビルドしたらtktreectrlも上手く入ってくれた ありがと 186 名前：デフォルトの名無しさん [2008/02/10(日) 14:19:14 ] exprを多用したTclプログラムを高速化するにはとにかくexprの引数全体を { } で囲むってことを覚えておくといい。 式のコンパイル結果をキャッシュしてくれるようになるので本当にこれだけでだいぶ高速化する。 181のコードだとさらにexprコマンドを変数にいれてevalとかしちゃってるんでそこもどうにかしなきゃだけど 187 名前：デフォルトの名無しさん [2008/02/10(日) 14:23:36 ] あー182の改訂版だとそういうところばっちり抑えてるね。余計なコメントだったか 188 名前：デフォルトの名無しさん [2008/02/10(日) 22:14:14 ] 184 09:05:22 >>185 09:16:09 僅か１０分でソースコードをgetして確認まで完了。天晴れ！ 189 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 22:31:43 ] >>188 まぁ俺様のｽﾊﾟｺﾝなら余裕よ じゃなくて、同じ事考えててソースから入れたら上手く行って「ヤッター」って書き込もうとしたらレスが付いてたの。 そんだけ。 190 名前：本田 [2008/02/11(月) 12:39:59 ] Welcome to the Tcl Developer Xchange! www.tcl.tk/ Latest Software Releases Tcl/Tk 8.5.1 Feb 5, 2008 Tcl/Tk 8.4.18 Feb 8, 2008 ActiveTcl 8.5.1.0 Feb, 2008 191 名前：デフォルトの名無しさん [2008/02/15(金) 19:14:58 ] 181>どうやら8.5版ではevalの処理が今一歩か｡ evalはtclのインタープレタ(解釈実行)機能を利用する窓口なのでevalを封印する様では暫く8.4版に留まって様子を見るのも有力な選択肢かもしれない｡ 192 名前：デフォルトの名無しさん mailto:sage [2008/02/15(金) 23:04:55 ] 俺は8.4の頃からバイトコンパイルの邪魔になるので evalは封印してきたわけだが・・・。 193 名前：デフォルトの名無しさん [2008/02/15(金) 23:09:55 ] そういえば8.5で{*}が追加されたけどこれもeval使うよりは速いのかなー。 194 名前：デフォルトの名無しさん [2008/02/16(土) 07:42:19 ] >192 ：バイトコンパイルの邪魔になるのでevalは封印・・・。　 　　　　　→eval命令のコンパイルで何か支障があるのですか？ 195 名前：デフォルトの名無しさん mailto:sage [2008/02/16(土) 16:20:43 ] すみません。教えてください。 set a 3 set b {$a + 2} expr $b*4 これが 20 でなく 11 になる理由は分かりました。しかし、次のような C 言語のソースをそのまま Tcl に直すとどうなるのですか？ int a = 3; int b = a + 2; int c = b * 4; 196 名前：デフォルトの名無しさん mailto:sage [2008/02/16(土) 18:05:43 ] set a 3 set b [expr $a + 2] set c [expr $b * 4] 197 名前：デフォルトの名無しさん mailto:sage [2008/02/16(土) 21:40:46 ] なるほど。ありがとうございました。 198 名前：デフォルトの名無しさん [2008/02/22(金) 21:40:37 ] 書籍の類が姿を消して久しいが今日丸善本店に立寄るとEffective Tcl/Tkが書棚にあった｡手にとって奥付を見ると「1999年８月１日初版発行」になっている！？今年は平成廿年｡ 199 名前：本田 [2008/02/23(土) 07:19:41 ] >>198 >Effective Tcl/Tk Library sourceforge.net/projects/efftcl/ >Souce code from the book "Effective Tcl/Tk Programming" 200 名前：デフォルトの名無しさん [2008/02/28(木) 23:15:28 ] 三浦カズヨシ逮捕されたな 関係ないけど 201 名前：デフォルトの名無しさん [2008/02/29(金) 00:01:03 ] 美しいクンニ日本 今日本のクンニが乱れている！！ www.youtube.com/watch?v=pAEaGlmwZZQ 202 名前：デフォルトの名無しさん [2008/02/29(金) 11:17:41 ] wish83 hoge.tcl とかでソースを実行するときにエラーがあると，ダイアログが出てOKボタンを押さないと次に進まなくなるけど， これを抑制する方法はない？ 203 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 23:15:30 ] 普通に考えて例えばファイルオープンでしくじったら 読み取りの次の処理も失敗するだろ。止まるのが 普通なのではないだろうか。エラーを「抑制」するとは この場合はどういう処理を期待してるのだろうか。 204 名前：デフォルトの名無しさん [2008/03/01(土) 11:24:06 ] まあcatchしてエラー処理をすればよいのではないかな。 205 名前：202 mailto:sage [2008/03/01(土) 11:28:23 ] >>203 ダイアログを出さずに落っこちてほしいのです． バッチ処理でデータを自動的に次々処理しているときに，ダイアログが出てそこで止まってしまうと， オペレータが常時監視してOKボタンを押さなくてはいけない． そうではなくて，エラーが出たらそのまま落ちて，次のデータに処理が移るようにしたい． 206 名前：デフォルトの名無しさん [2008/03/01(土) 11:29:12 ] 余談だけど前にどっかの英語のブログでプログラミング関連のフォーラムのスクリーンキャプチャ画像があって、 PHP のフォーラムと Python のフォーラムの最新の質問がそれぞれ How to hide error messages? と How to handle exceptions? だったっていうのが面白かった。 207 名前：202 mailto:sage [2008/03/01(土) 11:30:59 ] >>204 確かにそうですね．ありがとうございます． 208 名前：デフォルトの名無しさん [2008/03/01(土) 11:31:07 ] >>205 wishじゃなくtclshを使うのではどうか？ 209 名前：202 mailto:sage [2008/03/01(土) 11:44:18 ] >>208 それが，処理自体はバッチ的なんだが，過去の経緯を引きずっている関係から， 部分的にGUIパッケージを使っているんですよね…． どういう方法をとるにしろ，プログラムにある程度の修正を加えるしかなさそうですね． 210 名前：デフォルトの名無しさん [2008/03/01(土) 11:59:26 ] んー、冒頭に package require Tk ってつければいいだけでは？ というかバッチの中で呼ぶのだったら wish だと同期的にならないのでいろいろ不都合じゃないの。 Tclの中でのエラー処理の必要がなくて落っこちればそれでいいっていう前提で話してるけど。 211 名前：デフォルトの名無しさん mailto:sage [2008/03/01(土) 12:12:15 ] >>205 なんだそういうことか。それならbgerrorでエラー処理を変えればいい。 でも、ていうか8.3ってbgerrorあったっけ。昔過ぎて忘れた。 proc bgerror {message} { exit 1 } pack [button .b -text GENERROR -width 15] .b configure -command { read $notexists } 212 名前：デフォルトの名無しさん mailto:sage [2008/03/07(金) 10:24:47 ] （・∀・）ﾁｯｸﾙﾁｰｺ! ﾁｯｸﾙﾁｰｺ! ﾗｯｷｰﾍﾟｱ! tcl tcl tcl tcl tcl tcl ﾁｬﾁｬﾁｬ 二人は双子♪ 似てない双子♪ 213 名前：本田 [2008/03/08(土) 08:39:49 ] >>166 Perl/Tk Tools ptktools.sourceforge.net/ 214 名前：本田 [2008/03/08(土) 08:44:33 ] ActiveTcl 8.4.18.0 www.activestate.com/store/download.aspx?prdGUID=f0cd6399-fefb-466e-ba17-220dcd6f4078 215 名前：デフォルトの名無しさん mailto:sage [2008/03/08(土) 08:46:19 ] PowerShellから使えんのかなぁ 216 名前：本田 [2008/03/08(土) 09:15:21 ] >>215 tcom wiki.tcl.tk/1821 217 名前：本田 [2008/03/08(土) 09:32:54 ] >>216 COM Object Implementation in Tcl www.vex.net/~cthuang/tcom/server.html www.vex.net/~cthuang/tcom/ 218 名前：本田 [2008/03/08(土) 09:35:20 ] >>217 >COMプログラマの解説書 >Crispin Goswell >Microsoft Office Product Unit >1995年 春 >1995年9月13日改訂 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オブジェクトを実装する良い方法をいくつか示しながら解説するようにしてあります。 219 名前：デフォルトの名無しさん mailto:sage [2008/03/08(土) 10:58:39 ] Tcl使ってる人はLISPも使ってることが多いんでしょうか 220 名前：本田 [2008/03/08(土) 11:22:01 ] >>219 特別関係は深くないと思う。 ただTKの方は、色々な言語から使える。 221 名前：本田 [2008/03/08(土) 11:24:10 ] LTK - The Lisp Toolkit "The easy way to do Lisp GUI programming" 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. 222 名前：デフォルトの名無しさん [2008/03/08(土) 11:29:39 ] DQN男の家族死ね　DQN男の親死ね　DQN男の友達死ね　DQN男の親戚死ね DQN男の家族死ね　DQN男の親死ね　DQN男の友達死ね　DQN男の親戚死ね DQN男の家族死ね　DQN男の親死ね　DQN男の友達死ね　DQN男の親戚死ね DQN男の家族死ね　DQN男の親死ね　DQN男の友達死ね　DQN男の親戚死ね 223 名前：デフォルトの名無しさん [2008/03/08(土) 12:43:06 ] Lisp使いでEmacs使いの人はTclに間違った偏見を持っていることがあるかも。 224 名前：本田 [2008/03/08(土) 13:03:45 ] >>223 なぜ Tcl を使うべきではないのか www.os-omicron.org/~takano/private/trans/tcl_j.html 225 名前：本田 [2008/03/08(土) 13:10:51 ] >>224 Tcl7.x時代の話でTcl8.xにはもう当てはまらない議論。 226 名前：デフォルトの名無しさん mailto:sage [2008/03/08(土) 13:35:14 ] www.geocities.jp/tor_park/Dlang/byte.html 227 名前：本田 [2008/03/14(金) 22:01:12 ] tBuild 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 228 名前：本田 [2008/03/16(日) 01:19:13 ] Tcl9 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). 229 名前：本田 [2008/04/02(水) 18:18:34 ] >Tcl/Tk 8.5.2 Release Announcement >March 28, 2008 www.tcl.tk/software/tcltk/8.5.html 230 名前：デフォルトの名無しさん mailto:sage [2008/04/03(木) 15:17:36 ] -e 位使えるようにしてくれ 231 名前：本田 [2008/04/06(日) 12:46:05 ] >>229 >tcltk8.5.2-014-20080405.exe sourceforge.net/project/showfiles.php?group_id=204414&package_id=248905&release_id=589844 232 名前：gth [2008/04/06(日) 14:25:37 ] アイム 出口 233 名前：七つの海の [2008/04/10(木) 23:24:00 ] ×テックルティーケー ○ティコティケェィーィエ 234 名前：デフォルトの名無しさん [2008/04/13(日) 03:08:28 ] x86-32bit Linuxでは正常に動いてたプログラムをx86-64bit Linuxで 動かそうとしたらcannot execute binaryとなってダメなんですけど、 どうすればいいんですか?原因はなんなんですか? 中学生にも分かるように説明してくれませんか? 235 名前：本田 [2008/04/14(月) 06:00:48 ] >ActiveTcl 8.5.2.0 Apr, 2008 www.tcl.tk/ 236 名前：本田 [2008/04/14(月) 06:02:18 ] >>234 サポートセンターに電話すべし。 237 名前：デフォルトの名無しさん [2008/04/16(水) 04:48:20 ] >>234ですが自己解決しました。 libc6-i386というのをインストールしたら６４ビットOSでも 動きました。でも、３２ビットOSのときよりも動きが遅いです。 238 名前：本田 [2008/04/22(火) 08:24:49 ] snackamp.sourceforge.net/ >SnackAmp 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 239 名前：デフォルトの名無しさん mailto:sage [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 ) このような"の入った文字列を処理するにはどうしたらよいのでしょうか？ 240 名前：デフォルトの名無しさん mailto:sage [2008/05/02(金) 20:11:53 ] クォートをエスケすりゃいんじゃね gets $ch line regsub -all \" $line \\" buf puts [lindex $buf 0] 241 名前：239 mailto:sage [2008/05/02(金) 20:56:37 ] 自己解決…って>>240さんの書かれた通りです。 あ、自分のは -all 忘れてましたわ。 ありがとうございます。 ちなみに、\\"で動くのですが、それだとemacsの色付けが異常になるので\\\"にしました。 242 名前：デフォルトの名無しさん mailto:sage [2008/05/05(月) 18:25:21 ] 使い勝手悪い言語だなあ。 243 名前：デフォルトの名無しさん [2008/05/06(火) 10:44:47 ] Active Tcl　ver.8.4.19に改版されている｡ ver.8.4.17以降2ヶ月毎に改版されている｡随分頻繁に改版しているけど､どこが換わっているのやら。 244 名前：デフォルトの名無しさん mailto:sage [2008/05/08(木) 16:18:48 ] >>242 regularExpressionの速さはピカ一ですが 245 名前：デフォルトの名無しさん mailto:sage [2008/05/08(木) 20:01:20 ] そうなの？ 246 名前：デフォルトの名無しさん mailto:sage [2008/05/09(金) 04:16:30 ] コーディングにかかる時間とか、バグのとりやすさのほうが重要だろ。 この観点から見るとtclひどすぎ。 正規表現使う構文にしてもすっきりしてないし。 247 名前：デフォルトの名無しさん [2008/05/09(金) 12:00:11 ] わかったからすきなの使いなよ。 248 名前：デフォルトの名無しさん [2008/05/09(金) 12:42:24 ] まさに正論 249 名前：デフォルトの名無しさん mailto:sage [2008/05/14(水) 08:49:38 ] 例に Perl/Tk 使ってみ。 Tcl ってよー出来てるって思えるから。 250 名前：デフォルトの名無しさん mailto:sage [2008/05/14(水) 13:17:13 ] Tkを使う為の言語としては最強だよな。 他がちょっと弱いけど。 251 名前：デフォルトの名無しさん mailto:sage [2008/05/14(水) 13:44:24 ] Cと組み合わせれば良いじゃん。 252 名前：デフォルトの名無しさん mailto:sage [2008/05/15(木) 02:02:59 ] 恥を忍んで質問させて下さい。 Win版の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がうまくいかないです。何故でしょう？ 253 名前：デフォルトの名無しさん mailto:sage [2008/05/17(土) 04:37:43 ] 239みたいな例に対応できる汎用的方法がよく分からない。 '"'だけでなく'{'とか'}'とかも気をつける必要がある気がするんだけど。 tcl faq list eval とかで検索してみたけど結局どうすれば。 254 名前：デフォルトの名無しさん mailto:sage [2008/05/18(日) 17:33:48 ] 複数行にわたって書いているリストの中で コメントをなんとか書けないものかなあ 255 名前：本田 [2008/05/22(木) 06:02:40 ] >exp_spawn failed on Windows 2003 with DEP(DataExecutionPrevention) lists.activestate.com/expect%40listserv.ActiveState.com/6A3BD65D48E1EC45AF1B466D4E2A470F02630419%40HQSX5711.Hospira.corp 256 名前：デフォルトの名無しさん mailto:sage [2008/05/23(金) 08:27:47 ] tclshでプロンプト(PS1)の設定は出来ますか？ 257 名前：デフォルトの名無しさん mailto:sage [2008/05/23(金) 21:06:59 ] こうじゃね？ たとえば、 set tcl_prompt1 {puts -nonewline [info hostname]@[pwd]> } で、ラインコンティニュー用は tcl_prompt2に設定 set tcl_prompt2 {puts -nonewline continue?> } 258 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 00:50:15 ] >>257 なんやこれ。こんなんできたのか。長年使ってるけどはじめて知ったわ 259 名前：デフォルトの名無しさん mailto:sage [2008/05/24(土) 01:27:29 ] >>257 出来た！ ありがとうございます 260 名前：デフォルトの名無しさん mailto:sage [2008/05/25(日) 04:51:53 ] aliasの設定なんか無理かな？ ~/.tclshに ls color=auto を入れたいんだけど 261 名前：本田 [2008/05/25(日) 06:00:16 ] >C++/Tcl cpptcl.sourceforge.net/ >A C++ library for interoperability between C++ and Tcl >C++/Tk cpptk.sourceforge.net/ >A complete C++ interface to the Tk GUI toolkit 262 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 20:12:22 ] Tcl/Tk 8.5でBLT-2.4z使えてる方はいらっしゃいますか? パッチとか修正とか、かなり手を入れないと使えないのでしょうか。 263 名前：デフォルトの名無しさん mailto:sage [2008/06/02(月) 21:39:25 ] >>239 ここにその議論がある。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作成のガイドラインから外れた古い作りになっているんだろう。 実際何年も更新されてないようだし。 自前ビルドしてやるしか。 264 名前：262 mailto:sage [2008/06/03(火) 11:42:06 ] >>263 jos.decoster.googlepages.com/bltfortk8.5.2 を基に試してみました。 demosやexamplesの一部 (多く?) が失敗するけど、なんとなく使えそうです。 BLT-3.0で対応するのかなぁ。 265 名前：デフォルトの名無しさん mailto:sage [2008/06/14(土) 18:22:11 ] reddog.s35.xrea.com/wiki/A%20Stub-enabled%20BLT2.4z%20for%20Windows.html これは試した？ 266 名前：262 mailto:sage [2008/06/16(月) 16:43:53 ] 後出しでごめんなさい。Linuxです。 Fedora 9で試してまして、そうこうしてるうちに、>>263の方法で対応したパッケージがリリースされました。 https://bugzilla.redhat.com/show_bug.cgi?id=446862 で対処してくださったようです。 267 名前：デフォルトの名無しさん mailto:sage [2008/06/20(金) 19:54:08 ] tk でコンボボックスの幅を指定するにはどうすればいいでしょうか？ また、できれば選択した文字列が表示されるテキストボックス部分を 複数行表示にしたいのですが、可能でしょうか？ 268 名前：デフォルトの名無しさん mailto:sage [2008/06/20(金) 21:03:00 ] >>tk でコンボボックス tile拡張のttk::comboboxのやつか? ttk::combobox .cb -width 100 とかでいけんじゃね >>複数行表示にしたいのですが、可能でしょうか？ 不可能じゃね 269 名前：デフォルトの名無しさん mailto:sage [2008/06/27(金) 03:20:15 ] 質問があります。 set a hoge set b a set c b とやって、cからたどってhogeに辿り着くには どうすればいいのでしょうか。 $$$c とか $[$[$c]] とかいろいろやってみたのですが できません……。 270 名前：デフォルトの名無しさん [2008/06/27(金) 22:53:22 ] set a hoge set b a set c b proc aho foo { upvar $foo bar return $var } puts [aho [aho $c]] 271 名前：デフォルトの名無しさん mailto:sage [2008/06/27(金) 23:22:33 ] >>269 puts [set [set $c]] >>267 2行は無理。BWidgetsのコンボを改造すればできるかも 272 名前：デフォルトの名無しさん mailto:sage [2008/06/28(土) 00:44:17 ] >>271 へ〜、setって変数の参照にも使えるんだ。　勉強になりますた。 273 名前：デフォルトの名無しさん mailto:sage [2008/06/28(土) 03:31:47 ] >>263 > ただし連続する空白文字に対する動作が意図と異なるかもしれない。 この制約がどうにも辛いです。 連続した空白があってもそれをただ一つの区切りとみなしつつ、 安全にファイルなどから読み込んだ文字列を処理するには どうしたらいいのだろうか。 274 名前：269 mailto:sage [2008/06/28(土) 04:50:38 ] >>270 >>271 ありがとうございます。 275 名前：デフォルトの名無しさん mailto:sage [2008/06/28(土) 06:01:58 ] >>273 そんなの教わったregsub使えよ while {[gets $ch line] >= 0} { puts [lindex [split $line [regsub -all -- {\s+} $line { }]] 0] } 276 名前：デフォルトの名無しさん mailto:sage [2008/06/28(土) 12:50:19 ] >>273 set line {He said "I am} foreach word [string map {\" \\"} $line] { puts $word } 277 名前：デフォルトの名無しさん mailto:sage [2008/06/28(土) 14:34:54 ] >>276 '{' inside string 278 名前：デフォルトの名無しさん mailto:sage [2008/06/28(土) 17:20:38 ] 文字列の中に"や{がある事を気にする必要がある時と 必要がない時の条件がよく分からん。。。 あと、ファイルから読み込んだ行を一律regsubしてしまって 常に構わないのかどうかも。。。 279 名前：デフォルトの名無しさん mailto:sage [2008/06/28(土) 21:56:13 ] >>278 文字列をリストに自動変換してるところは気にしろ。文字列をforeachしたり リスト系のコマンドに直接文字列を渡したりしてるところは注意だ。 >>276 set line "He said \"I am \{ a boy \}" foreach word [string map {\" \\\" \{ \\\{ \} \\\}} $line] { puts $word } 280 名前：デフォルトの名無しさん mailto:sage [2008/06/28(土) 23:10:12 ] > \} \\\} これは必要? あってもなくても同じではないの? 281 名前：本田 [2008/07/01(火) 06:46:34 ] >Tcl/Tk 8.5.3 June 30, 2008 >Tcl/Tk 8.6a1 June 25, 2008 >Tcl/Tk 8.4.19 Apr 18, 2008 www.tcl.tk/ 282 名前：263 mailto:sage [2008/07/02(水) 07:53:23 ] >>273 そもそもの話をしてもいいだろうか。 こんなコードは試しましたか？ 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にライブラリが置かれてるよ。 283 名前：239 mailto:sage [2008/07/02(水) 09:03:58 ] なんか、今頃また盛り上がってるが・・・ >>282 それじゃ根本的に違うんだよね〜 getsで一行ごとにテキストファイルから読んでるの文字列に「"」があるのがミソなんで set lines {He said "I am} を処理することになるんですよ。 284 名前：デフォルトの名無しさん mailto:sage [2008/07/02(水) 19:51:00 ] 8.5から文字列をリストに変換できるかどうかチェックする string is list $strが追加されてんぞ。 285 名前：デフォルトの名無しさん mailto:sage [2008/07/03(木) 00:00:27 ] info completeで失敗したら、さらに１行読み込んでappendすりゃいいだけだろ そもそもデータ自体が１行ずつ処理されるように書かれていないのになぜ、1行ずつ 処理したがるのか 286 名前：デフォルトの名無しさん mailto:sage [2008/07/03(木) 01:29:08 ] ファイルの文書が、必ずしも""の対応関係があっている保障はないわけだが。 287 名前：デフォルトの名無しさん mailto:sage [2008/07/03(木) 01:43:11 ] たしかにそういうこともあるな flex/bisonでやるか PureTclでやるならfickle/taccle 288 名前：デフォルトの名無しさん mailto:sage [2008/07/04(金) 11:09:03 ] canvasにarcなどを1000個くらい書くと激重でどうしようもありません。 自分の描画ルーチンが重いのではなく、Tkがcanvasをリフレッシュするのが激重です。 描画したアイテムを選択して移動とかするつもりはなく、単に絵が表示されればいいのですが… こんな場合は、image photoに直接力技で図形を書いていくしかないですかね。 289 名前：デフォルトの名無しさん [2008/07/05(土) 12:36:31 ] Tkのキャンバスウィジェット並みの機能ってほかのGUIフレームワークにないですかね。 書いた絵をドラッグできるとかそういう系。 290 名前：本田 [2008/07/06(日) 13:21:30 ] >>289 Zinc Is Not Canvas! www.tkzinc.org/tkzinc/index.php OpenGLが、速い環境が無いと、遅すぎてかなわん。 291 名前：デフォルトの名無しさん mailto:sage [2008/07/07(月) 21:37:10 ] Zincもええが、tkpathの方がシンプルでとっつきやすいよ 292 名前：デフォルトの名無しさん mailto:sage [2008/07/08(火) 00:37:16 ] tkpath使ったら早くなるかとおもったけど全然早くならなかった・・・ 293 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 07:59:32 ] >>288 >>292 1000を超える描画単位（図形やウィジェットなど）をリアルタイムで取り扱うことはスクリプト言語系のツールキットでは想定されてないと思う。 素直にネイティブコードで動く言語で実装したほうが早いんじゃない？　描画結果のキャッシュでもしつつ。 294 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 20:18:40 ] いやまだ手はある。Tcl3DでOpenGLで直接描画すれば・・・！ 295 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 22:18:26 ] マルチスレッド拡張使ってる人いる？ 296 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 23:06:43 ] ときどき使う。 297 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 23:44:51 ] >>296 非同期で走っている複数のスレッドから進行状況や終了などをメインのスレッドで 受け取るにはどういう手段があるんでしょう？ tsv でスレッド内で状況をセットして メインでpollするというぐらいしか思いつかないのですが。　メインの方で vwaitしてスレッドのほうからthread::sendなんて出来ませんよね？　 298 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 06:48:22 ] C++などで書いてるソフトにTclのインタプリタを組み込んでるやつはいないだろうか。 Tcl_Eval()でTclスクリプトを実行したときにそのスクリプトにエラーが含まれていると、 エラーメッセージはResultの中に入ってる。 これをResultの代わりにエラー出力に出したいんだが、その方法がよくわからない。 やり方があるようなら教えてもらえないだろうか。 299 名前：297 mailto:sage [2008/07/10(木) 06:54:59 ] あ、だめだ。　これ以前にExpectがthread-safeで無くてスレッドからは使えないとか。　 Expectを多用してるので諦めます。 community.activestate.com/forum-topic/expect-tcl-threads 300 名前：本田 [2008/07/10(木) 07:54:03 ] stderr 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. 301 名前：298 mailto:sage [2008/07/10(木) 10:32:22 ] >>300 ご協力ありがとう。 読んでみたけどどうやらこれはTclインタプリタ側（Tclスクリプト側）から 外部コマンドを呼び出したときのstderrについて議論しているみたいで、この話とはちょっと違う。 Tcl_CreateInterp()でinterpを作った後、 Tcl_SetStdChannel(channel, TCL_STDOUT); Tcl_SetStdChannel(channel, TCL_STDERR); を呼び出すことでinterpが呼び出すputsコマンドによる標準出力、エラー出力をトラップできることは確認できている。 だがTcl_Eval()やその他のTcl変数を直接いじるAPIを呼び出したときの文法エラー、実行時エラーは出力されないみたいなんだ。 （で、Resultの中に入っている） こいつを、他と同じようにトラップできればいいんだが……。 302 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 11:44:58 ] >>297 >>299 www.tcl.tk/doc/howto/thread_model.html 303 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 14:59:25 ] >>301 TCL_ERRORだったらResultを出力すればいいだけじゃね？ 304 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 22:13:52 ] >>298 なんでそんなことそをする必要があるかもう少し詳しく書いた方がいいぞ。そうしないと、 >>303みたいにすりゃいいだろ思うんだが if (Tcl_Eval(interp, script)!=TCL_OK) { char str;int len;Tcl_Channel e=Tcl_GetStdChannel(TCL_STDERR); str=Tcl_GetStringFromObj(Tcl_GetObjResult(interp), &len); Tcl_Write(err,str,len);Tcl_Flush(interp,err); } 305 名前：304 mailto:sage [2008/07/10(木) 22:23:39 ] あー、どうでもいいけど、Tcl_WriteObjつかうと、Tcl_GetObjResultから一発で済むわ。 306 名前：本田 [2008/07/22(火) 20:12:44 ] TkSTEP 0.3b3 (Tk 4.1) NEXTSTEP(tm)-lookalike-wanabee-hack-kit for Tk Alfredo K. Kojima tkstep0.3b3.tar.gz tkstep8.0.4-2.tar.gz Alfredo Kojima en.wikipedia.org/wiki/Alfredo_Kojima Alfredo Kengi Kojima si3.inf.ufrgs.br/informa/Edicao12/entr_ago00.htm TkSTEPは、現在、開発がストップしてるけど、 windowmakerなど他の仕事で作者は有名なんだな。 307 名前：本田 [2008/07/23(水) 01:18:22 ] The Tcl IRCd www.hping.org/tclircd/ The Tcl IRCd is an IRC server written in the Tcl language. The current version is not a complete implementation of the IRC protocol but should interoperate well with most IRC clients, and allows to register, change nick, create channels, talk on a public channel or in query and so on. The program is small, less than 500 lines of code, and was written in order to be very simple to modify/extend. 308 名前：デフォルトの名無しさん mailto:sage [2008/07/24(木) 04:12:37 ] string hoge とかって具合に 任意の string * コマンド(?)を追加したりはできないでしょうか。 309 名前：デフォルトの名無しさん mailto:sage [2008/07/24(木) 20:37:58 ] proc stringHello {} {puts "HELLO WORLD"} set map [namespace ensemble configure string -map] dict append map hello stringHello namespace ensemble configure string -map $map string hello ただし8.5以上。 8.4のときはstringコマンドをtcl_stringなんかに名前を変えて そのうえでそれのラッパーのstringを作ったりしてた。 310 名前：デフォルトの名無しさん [2008/07/24(木) 23:57:42 ] >>269 ＞$$$c とか $[$[$c]] とか… puts [subst $[subst $[subst $c]]] 遅レスだが… 311 名前：デフォルトの名無しさん [2008/07/27(日) 18:35:14 ] >>269 & >>310 $$var (間接指定)について psg.com/%7Ejoem/tcl/faq.html#DoubleIndirect に丁寧な説明がある｡ 古い我家頁だが､今でもアクセス可能と思う｡ 312 名前：デフォルトの名無しさん [2008/07/29(火) 00:59:08 ] BrowseX for Windows使ってた人いない？ いきなり消滅してて悲しい・・・ 313 名前：デフォルトの名無しさん [2008/08/02(土) 08:48:51 ] Active Tcl　やっと8.5.3になった 314 名前：デフォルトの名無しさん [2008/08/05(火) 04:33:00 ] tclコードをソース隠ぺいのため、バイナリ化または、 暗号化したいがどうすればよいでしょうか？ 315 名前：デフォルトの名無しさん [2008/08/05(火) 21:26:28 ] バイナリ化（exe化）ならここに色々ある｡ home.netyou.jp/22/tanida/MazeOfProgram.htm 隠ぺいのためになるかは不明. 316 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 10:37:56 ] comポートとかソケットをopenで開いてgetsした時、 相手が何も返してこないと、一生待ちつづけてしまうのですが、 タイムアウトさせたりする方法は無いですか？ 317 名前：デフォルトの名無しさん mailto:sage [2008/08/12(火) 07:07:15 ] >>316 Tcllibは調べた？ 318 名前：デフォルトの名無しさん mailto:sage [2008/08/12(火) 08:05:26 ] >>316 fconfigure -blocking fileeventで非同期に処理するのが良いと思う 319 名前：デフォルトの名無しさん [2008/08/13(水) 20:58:56 ] >>316この手のシークエンスを記述するためにafter ms命令が用意されている 320 名前：316 [2008/08/14(木) 09:50:55 ] >>318 fileeventがまさに探していた機能です サンクスコ >>319 それは考えたけど、一度発行したgetsを取り消す術がないからダメポ 321 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:56:41 ] foreach {o i } [regexp -all -inline {<item>(.*?)</item>} $read] { のlsearchとかlreplaceとかで、ネストタグの抽出が簡単にできるのが良い。 perlより全然良い。日本語が問題なく使えるのが良い。簡単GUIも良い。 foreachの中のregexpが速ければもっと良い。なかなか最適化ができない。 322 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 01:10:16 ] ｔｃｌの正規表現は早いほうって聞いたけどなあ・・・ 323 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 02:59:06 ] Tclで書いたスクリプト自体はそれほど早く動作しないよね。 TclはJITに対応してるという記述がちらほら（wiki.tcl.tk含む）で見かけたので ソースコードを調べたら、スクリプトを内部表現に書き換えるコンパイラはあっても ＣＰＵのニーモニックに直接変換してる実装部分は見当たらなかった。 インタプリタ自体がやってることはそれほど複雑ではないので（ほとんどがコマンド自体の実装） 誰か実装してくれればいいなとは思うが、 googleのannualのフォーラムでの議題には特にあがっていないようだ。 324 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 09:13:12 ] 速くしたけりゃその部分だけCで書け そもそも コマンド　引数　引数　... しかなくて、構文などというものもない簡易言語に期待しすぎでしょ。 325 名前：デフォルトの名無しさん [2008/08/24(日) 22:12:31 ] その理屈で言うと括弧しかなくて構文などというもののない簡易言語にも期待できないのか。 それはさておきTclでバイトコードコンパイルしてるってのだけで驚異的じゃない？ Tclって意味論的には素直に考えるとevalに満ち溢れたような代物でしょ。 326 名前：デフォルトの名無しさん mailto:sage [2008/08/25(月) 00:18:54 ] インタプリタ作ったり、DLLやsoを簡単にロードできたり、Cとの融合が十分考慮されてる言語なんだから、 処理速度を要求される部分はCで作った方がいいでしょ、マジで。 327 名前：デフォルトの名無しさん [2008/08/25(月) 01:11:39 ] 別にそこには反論してないよ。 それはTclのシンタクスとは直接の関係はないし、Tclが簡易言語とも思わないけど。 328 名前：デフォルトの名無しさん [2008/08/26(火) 00:03:21 ] stdinを１文字単位で扱いたいのですが・・可能ですか？ Enter押すまで入力待ちになってしまいます。 機種依存が必要であればlinuxでお願いします。 proc getch {} { return [read stdin -nonewline] } 目的は簡易lessコマンド作成です。 329 名前：デフォルトの名無しさん mailto:sage [2008/08/26(火) 00:10:49 ] >>327 tclはねぇ、ローカルスコープ切れないからちょっとプロシージャが長くなると変数がゴッチャになるのよ。 長いもの書くには向かないと思うがね。 330 名前：デフォルトの名無しさん mailto:sage [2008/08/26(火) 00:44:05 ] zero3 [es]でeTcl使ってるんだけど・・・バージョン進むにつれてサイズでかくなりすぎ。 最新版はついに起動できなくなったｗｗｗ 動的に拡張を読み込めるのがTclの利点なのに、一つの実行形式に使わない拡張までまとめないで欲しい・・・ 331 名前：デフォルトの名無しさん mailto:sage [2008/08/26(火) 01:37:04 ] >>329 Tclなめんな！ proc block {body} {     eval $body } set x 100 set y 1000 block {     set x 200     upvar y y     puts "value is $x $y"; # value is 200 1000 } puts "value is $x $y"; # value is 100 1000 332 名前：デフォルトの名無しさん mailto:sage [2008/08/26(火) 01:41:54 ] >>328 wiki.tcl.tk/14693 まあこれを読め tcllib.sourceforge.net/doc/receive.html そして次はこれだ 333 名前：デフォルトの名無しさん [2008/08/26(火) 03:33:43 ] >>332 ありがとうございます。 解決しました！ 334 名前：デフォルトの名無しさん mailto:sage [2008/08/26(火) 17:03:54 ] >>331 blockがたくさんネストしたらどこまでupvarしたらいいかわかんなくなっちゃうね。 335 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 13:49:03 ] 日本語に関して質問です。 encoding systemがwindowsではcp932, Linuxではutf-8となっていて、 スクリプトを書くさいにそれぞれの文字コードで保存せねばなりません。 (string bytelengthはいずれの環境も一緒になるので内部ではutf-8のようですが) ですので、windowsで作ったスクリプトをそのままLinuxに持っていくと文字化けしてしまい困っております。 encoding systemをcp932やutf-8に強制的にセットしたところで上手く動きません (windowsでencoding system utf-8にし、スクリプトをutf-8で保存しても文字化け、等) encoding systemの異なる環境間で同一スクリプトで動かす手立てはないものですかね。 336 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 20:35:03 ] Unicodeリテラルで書く。 337 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 03:14:41 ] >>335 もし8.5を使ってるんだったら、、sourceやtclshやwishに-encodingオプションが付いたから、 スクリプトはcp932で書いておいて、最初の3行を #!/bin/sh # the next line restarts using tclsh \ exec tclsh -encoding cp932 "$0" "$@" にすることで、できたりしませんか？ 逆に、スクリプトはutf-8で書いておいて、 windowsの関連付けの方で、wishに -encoding utf-8を付けるという手もあるかも。 試せないので、無責任に書きっぱなしですいません。 ところで、スクリプトをwindowsからLinuxへ持っていくときに nkf通して変換というのじゃ駄目なんでしょうか。 338 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 07:12:11 ] >>335 shift-jisで書いておいて #!/bin/sh # \ LANG=ja_JP.SJIS; export LANG; # \ exec tclsh "$0" "$@" で動くかもしれないし、動かないかもしれない。 339 名前：335 mailto:sage [2008/09/10(水) 10:06:33 ] >>336 よくわかりません。 >>337 8.4使っているのですいません。 (ActiveTclの拡張が8.5では少なすぎるので) Linux側で修正したりwindows側で修正したりしたのを日付で同期してるのでnkfやiconvは使いにくいですね。 >>338 凄いぜ。 putsでターミナルに出力する文字は化ける(konsoleのモードがutfだからしかたない)が、 widgetに出力する文字はきちんと出たよ〜。 340 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 20:07:26 ] >>339 puts \u0055\u0069\u0063\u006f\u0064\u0065\u30ea\u30c6\u30e9\u30eb\u304f\u3089\u3044\u3050\u3050\u308c 341 名前：150.29.213.49 335 mailto:sage [2008/09/10(水) 21:37:28 ] >>340 それはさすがに嫌杉でしょw 342 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 23:21:08 ] >>339 putsは fconfigure stdout -encoding utf8 とかで化けなくなると思う。 でも、そこまで文字コード意識するならWindows<->Linuxでコピーする時に変換するほうが良いんじゃないの？ 最近ActiveTcl8.5.4に乗り換えたけど一見拡張が入っていないように見えて、実は Tcl\lib\teapot\package\ 以下に 入っているように思った。 343 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 21:48:49 ] >>341 この技はおぼえておけ。かならず役に立つときが来る。 344 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 22:20:20 ] >>339 >>342 ActiveTcl8.5.x のインストーラの最初の画面で、 8.5は8.4とほとんど互換性があるから、 teacupを使うか8.4に上書きインストールしたら たくさんのパッケージが手に入る。 というようなことが書いてました。 まだ8.5に乗り換える気はないんで、それだけ見てキャンセルしたけど。 345 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 02:39:50 ] >>331 >>334 見つかるまでさかのぼるupvarを書いてみました。 upvarが上位の変数名とローカル変数名を並べて書くのに対し、 上位の変数名だけ並べて書いて同じ名前でリンクするようにしてます。 proc upvar2 {args} { 　　set leveldepth [info level] 　　foreach varname $args { 　　　　for {set varlevel 2} {$varlevel <= $leveldepth} {incr varlevel} { 　　　　　　if {[uplevel $varlevel info exists $varname]} { 　　　　　　　　incr varlevel -1 　　　　　　　　uplevel 1 upvar $varlevel $varname $varname 　　　　　　　　break 　　　　　　} 　　　　} 　　} } 346 名前：デフォルトの名無しさん mailto:sage [2008/09/19(金) 21:57:20 ] windows mobile でeTcl使ってプログラム作ってたらメモリが足りなくて死んだorz image photoって、-paletteで色数制限しても内部はフルカラーメモリ展開するのね。 やっぱ、WMで使うには富豪過ぎるか、Tclはorz 347 名前：デフォルトの名無しさん mailto:sage [2008/10/16(木) 04:52:51 ] 内部イテレータ欲しい 348 名前：デフォルトの名無しさん mailto:sage [2008/10/27(月) 13:15:30 ] Tclを久しぶりに書いてみたら、firefox用のpluginが正常にインストールできません。 どういう状況なのでしょうか？ご存知でしたら教えてください。 349 名前：デフォルトの名無しさん mailto:sage [2008/10/27(月) 15:39:46 ] >>348 スネーク。状況をもう一度よく確認するんだ。 Tcl → バージョンが上がらない Firefox → バージョンあがりまくり 放っておかれたアドオン（plugin）はどうなる？ 350 名前：デフォルトの名無しさん mailto:sage [2008/10/28(火) 07:20:41 ] >>348 了解 メインバージョンが上がらないと更新されない訳ですね。 351 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 16:09:38 ] 300Ｋbyte程のTclTkを書いてみた。 っかZETってソフトのちょい変だけど。 ttp://carnageez.web.fc2.com/catdir/cat.html 352 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 22:10:52 ] 10秒見ただけだが、名前空間使わずによくこんだけ書いたな 353 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 05:18:31 ] >>352 名前空間って何？(　ﾟдﾟ)ﾎﾟｶｰﾝ 354 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 05:45:22 ] >>353 www.tcl.tk/man/tcl8.3/TclCmd/namespace.htm 355 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 07:09:06 ] >>354 ありがと。 へえーーなんちゃってオブジェクト化って感じなんだね。 356 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 09:51:35 ] Tcl 8.5からapplyコマンドでラムダ式とかが使えるらしいんだけど、 なんか入門的な情報ない？ 357 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 16:24:05 ] set lis [another commend] for e $lis { something $e } とかやらずに、$lisに直接何かを作用して写像を得たり、 フィルタリングできるの？ 358 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 22:49:17 ] 初心者すぎてすいません。 tclのproc関数の出力をtkのテキストに書き出すにはどのようにすれば いいのでしょうか？ いまいちtclとtkの連携方法がわからず困っています。 359 名前：デフォルトの名無しさん mailto:sage [2008/11/02(日) 02:01:41 ] んと、こんなんやってる set str "hogehoge" f_text_update $str proc f_text_update {win str} if {![winfo exists $win]} { text $win grid $win -column 0 -row 0 } $win delete 0.0 end $win insert end $str } 360 名前：デフォルトの名無しさん mailto:sage [2008/11/02(日) 02:12:55 ] んもしや回答を誤ったか？ f_text_update [f_proc_func] proc f_proc_func {} { return "hogehoge" } これでどうだ 361 名前：デフォルトの名無しさん mailto:sage [2008/11/02(日) 06:25:56 ] >>359-360 ありがとうございます。 試してみます!! 362 名前：デフォルトの名無しさん mailto:sage [2008/11/05(水) 11:35:53 ] >>356 この記事は読んだ？ wiki.tcl.tk/4884 363 名前：デフォルトの名無しさん mailto:sage [2008/11/05(水) 23:30:13 ] λx.λy.x(2)(3) みたいなことをやろうとして、 apply {{x} {return [apply {{y} {return x}} 2]}} 3 てやっても x が返ってくる。 で、 apply {{x} {return [set [apply {{y} {return x}} 2]]}} 3 ってやれば3が帰ってくるが、setを使っている時点で２回目のapplyの戻り値が変数名であることを前提にしていて気持ち悪い。 364 名前：デフォルトの名無しさん mailto:sage [2008/11/08(土) 14:38:54 ] ツール組込みのtcl環境でもlambda使いたい 365 名前：デフォルトの名無しさん mailto:sage [2008/11/10(月) 23:01:54 ] >>363 こりゃーいったい何をやろうとしとんじゃ？return xで 文字列のxが返るのはあたりまえじゃないか 366 名前：デフォルトの名無しさん mailto:sage [2008/11/11(火) 14:14:10 ] >>365 単に$のつけ忘れじゃ？ ついでに質問。 {}内の変数は置換されないよね？ そうすると、applyの引数にとる関数にはその引数で宣言した変数しか出てこれない。 これだと、例えば「xを引数にとって、『引数yをとって、yとxとの和を求める関数』を返す関数」とかが表現できない気がするんだけど… ""だとyが束縛されてないし…無理矢理置換するしかない？ 367 名前：デフォルトの名無しさん mailto:sage [2008/11/11(火) 20:25:25 ] 答えると、Tclにはクロージャ無いねん。 だからxを置き換えるしかないんじゃないかなあ。 set func {x {return [list y [list expr $x + \$y]] }} apply [apply $func 1] 2 3 こういうこと？ 368 名前：デフォルトの名無しさん mailto:sage [2008/11/12(水) 00:20:16 ] >>365 λx.λy..x =λx.x でしょ。 こうならないってこと。 369 名前：デフォルトの名無しさん mailto:sage [2008/11/12(水) 08:27:21 ] >>368 > >>365 > λx.λy..x > =λx.x > でしょ。 そんなequalityを持つλ計算の体系は見たことが無い 370 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 22:42:02 ] 結局なんだったんだ。もう 371 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 10:04:27 ] >>370 同感 372 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 10:11:42 ] 点が余計に入った λ.x.(λy.x)は変換するとλx.xだろうと。 373 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 18:14:51 ] >>372 お前が前提にしているλ計算の公理系を言え。 通常のβη変換ではλx.(λy.x) = λx.xは導出できない。 374 名前：デフォルトの名無しさん mailto:sage [2008/11/30(日) 09:35:24 ] Tcl and the Tk Toolkit, Rough Cuts, 2nd Edition * By John K. Ousterhout, Ken Jones www.informit.com/store/product.aspx?isbn=0321601750&rll=1 ついこの前プレンティスから出てる妙に読みにくいTcl本買った俺涙目 375 名前：デフォルトの名無しさん mailto:sage [2008/11/30(日) 19:08:03 ] 日本語で良書なTcl本ってなにがあるかな 376 名前：デフォルトの名無しさん mailto:sage [2008/12/01(月) 20:34:12 ] ものすごいつまらんこと聞いていいっすか？ Tclって、pythonで言うところのinputとかraw_inputって無いの？ 377 名前：デフォルトの名無しさん mailto:sage [2008/12/01(月) 22:11:19 ] gets 378 名前：デフォルトの名無しさん mailto:sage [2008/12/02(火) 09:18:28 ] >>376 pythonで言うところのinputって何をするものか書いたほうがアドバイスもらえると思うが？ 379 名前：376 mailto:sage [2008/12/02(火) 20:46:30 ] >>378 それもそうですね。失礼しました。自分は職業プログラマではな いのであんまりうまく説明できそうにないですが。。 webで見つけた説明によれば、 raw_input関数 標準入力から１行読み込んで(末尾の改行をのぞいたものを)文字列に変換して返す。 >>> s = raw_input() test >>> s 'test' とこんな感じです。上記はインタプリタでの動作です。 呼ばれると、ユーザの入力を待つモードになります。 ユーザが文字列を入力すると変数に文字列が代入されます。 input関数は数値入力用です。 380 名前：デフォルトの名無しさん mailto:sage [2008/12/02(火) 20:56:09 ] やっぱgetsでいいじゃん tclsh>gets stdin s test tclsh>puts $s test 381 名前：379 mailto:sage [2008/12/02(火) 23:32:57 ] >>380 レスありがとうございます。 getsにはそんな風に書くんですね。 channelIdってのが何を指してるのかサッパリでした。。 明日会社に行ってまた試してみます。 たまーに仕事用ツール作成でスクリプト書くんですが、 諸事情あって今回はTclにで書いていて。。 382 名前：デフォルトの名無しさん mailto:sage [2008/12/04(木) 00:53:01 ] scan $str "%s,%s,%s,%s" a b c d とかもあるよ。scanfみたいなの。 また正規表現を使った読み込みとか便利 set fp [open $fname] gets $fp str regexp {\[\s*\s*\]\s*(\w+)} $str d1 d2とかね 以下が改行取って読み込みとか set fp [open $fname];gets $fp str foreach i [split $str "\n"] { } 以下とかするとバイナリファイルも開けるよ set fp [open $fname] fconfigure $fp -translation binary binary scan [read $fp 1000] H* str 383 名前：デフォルトの名無しさん mailto:sage [2008/12/04(木) 22:00:38 ] binary scanとbinary formatの使い方をすぐ忘れちゃうのは秘密だ 384 名前：デフォルトの名無しさん mailto:sage [2008/12/04(木) 22:04:45 ] >>375 Tcl/Tkデスクトップリファレンスには超おせわになった。 あとEffective Tcl/Tk。この２冊はTcl/Tk修行時代の 10年位前にかなり読んだ。 385 名前：デフォルトの名無しさん mailto:sage [2008/12/10(水) 21:58:58 ] Tcl初心者です。すみません、教えて下さい。 ビルトインコマンドにラッパーをかける事は できるのでしょうか。 例えば proc wrapper {cmd} { catch {eval {$cmd}} status puts "$cmd , $status" } : alias expr {wrapper expr} : expr {1+1} ;# wrapper {expr {1+1}} -> expr {1+1} ,0 的な感じです。 386 名前：デフォルトの名無しさん mailto:sage [2008/12/11(木) 22:04:10 ] >>385 これじゃ無限ループになるだろ。exprはrenameして新たにラッパーのexprを定義すれば？ 387 名前：デフォルトの名無しさん mailto:sage [2008/12/17(水) 17:04:55 ] >312 >BrowseX for Windows使ってた人いない？ Hv3というtkhtmlベースのブラウザならある。 tkhtml.tcl.tk/hv3.html 388 名前：デフォルトの名無しさん [2008/12/19(金) 21:06:51 ] Dr. OusterhoutがTclコアチームから抜ける。 groups.google.com/group/comp.lang.tcl/browse_thread/thread/99e2693293b3c945/e54399b0a7dd8ec1?show_docid=e54399b0a7dd8ec1&pli=1 389 名前：デフォルトの名無しさん [2008/12/22(月) 21:53:03 ] プログラムから逃げてきたのに卒論で無理やりやらされてる Cで作ったexeファイルをtcl/tkで作ったGUI上で実行したりできるの？ ていうかこんなことも分からない感じで死にそう･･･ 390 名前：デフォルトの名無しさん mailto:sage [2008/12/22(月) 23:27:50 ] >>388 そしてその翌日itclのコア組み込みが決定したのであった・・・！ >>389 CでCUIのexe作って、Tcl/Tkでガワ作って、パイプで接続とか。 まあどんなことがやりたいかによる。CでDLL作って、それをTcl/Tk から使うほうが楽かもしれない。 391 名前：デフォルトの名無しさん mailto:sage [2008/12/23(火) 00:07:48 ] >>389 unixだと楽だが、windowsだと面倒。 392 名前：デフォルトの名無しさん [2008/12/23(火) 11:28:21 ] え、incr Tcl？ 正直オブジェクト指向を入れるなら参照とガベコレの概念を入れる前提で デザインしなおしたほうがいいのに･･･ （逆に言うとこの2つを入れればオブジェクト指向はこれまでどおり拡張でいいし） オブジェクト手動開放とか今日日ありえないっすよ。 393 名前：デフォルトの名無しさん mailto:sage [2008/12/23(火) 11:40:20 ] >>391 んなこたーない。 execで実行するだけ。 so, dllも同じソースで簡単に作れるし(windowsはmingwのgcc使ってるけど) 394 名前：デフォルトの名無しさん mailto:sage [2008/12/23(火) 19:53:07 ] いやwindowsは苦労するよ。 pathや引数周りに落とし穴がいっぱいある。 MSが早くcygnusを買収してくれればいいのに。 395 名前：デフォルトの名無しさん mailto:sage [2008/12/23(火) 20:02:39 ] >>394 落とし穴ってなに 396 名前：デフォルトの名無しさん mailto:sage [2008/12/23(火) 23:13:52 ] path周りの避け方はマニュアルに書いてあるだろ。 で、なんでcygnusが出てくるんだ？ もはやTclはcygwinをサポートしてないぞ。 素直にActive TclをインストールしてCはMinGW使えばいい。 397 名前：デフォルトの名無しさん [2008/12/23(火) 23:38:12 ] 8.6b1きたあああああ！！！ try 〜 throwきたあああ！！！ zlibきたあああ！！！ ttk::spinboxきたあああ！！！ tk fontchooserきたああああ！！！ Canvasの回転文字きたああああ！！！ ttkのvistaテーマきたあああ！！！ 398 名前：デフォルトの名無しさん mailto:sage [2009/01/06(火) 12:23:24 ] 今M1だが、修論でtcl使うはめになってubuntuの起動から勉強してるところなんだけど、 tclでパラレルポートからの入力って使える？ その辺含んだお勧めの書籍なんかあれば知りたい。 399 名前：デフォルトの名無しさん [2009/01/06(火) 21:25:39 ] wiki.tcl.tk/2816 まずは適当に検索してみればいいとおもうの。 400 名前：本田 [2009/01/08(木) 21:18:47 ] AC3Dマニュアル panda.ecs.cst.nihon-u.ac.jp/~hiroshi/ac3d/ac3dmanj.html 1998年11月6日更新 - AC3Dバージョン2以降に対応 AC3D mail2.nara-edu.ac.jp/~asait/graphics/ac3d/ac3d.htm >3 次元模型 (モデル) を作るためのソフトはモデラーと呼ばれています。 > AC3D はそのモデラーの一つで、随分人気があるようです。 > AC3D は今では商用ソフトになってしまいました。 Shareware Version. locgate.smtn.stavropol.ru/DOCs/Programming/OpenGL/ac3dwinsw2.zip 古いけどTcl/Tkスクリプト使用して参考になる。 最新版。 www.inivis.com/ 401 名前：本田 [2009/01/09(金) 21:21:13 ] These are some sample files for the 3D modeller - AC3D ftp://ftp.uni-duisburg.de/CAD/AC3D/acfiles.tgz AC3D Manual(Updated 11th March 1999 - Covers AC3D Version 2 onwards) ftp://ftp.uni-duisburg.de/CAD/AC3D/ac3dman.zip ftp://ftp.uni-duisburg.de/CAD/AC3D/ac3dman.tgz AC3D Manual Ver. 3.4.1 ftp://ftp.uni-duisburg.de/CAD/AC3D/ac3dman.pdf locgate.smtn.stavropol.ru/DOCs/Programming/OpenGL/ac3dwinsw2.zip に付属のGLU32.DLLとOPENGL32.DLLは、おそらくWindows95用でしょう。 Windows95以降に発売されたWindowsには、 GLU32.DLLとOPENGL32.DLLが付属してるとはずなので、 Windows95以降に発売されたWindowsをお使いの場合は、 AC3D v.2.0付属のGLU32.DLLとOPENGL32.DLLを削除したほうが、 AC3D v.2.0の安定性や速度が改善される可能性があります。 402 名前：デフォルトの名無しさん mailto:sage [2009/01/13(火) 00:08:38 ] すみません質問させて下さい。 以下のコードのように、プロシージャfooを作っておいて 複数のボタンをpackする作業をまとめたいと考えています。 proc foo {w msg} { pack [button $w.$msg -text $msg -command {puts $msg}] } pack [frame .f] foo .f "b1" foo .f "b2" ところがボタンを押してcommandを実行させると、 以下のエラーが出ます。 Error: can't read "msg": no such variable ボタンを押したときにローカル変数msgを参照できていないということだと 思いますが、何か良い解決策はありませんか？ よろしくお願いします。 403 名前：402 mailto:sage [2009/01/13(火) 00:10:15 ] 使用環境を書き忘れました。 WindowsXPでActiveTcl8.5.4.0.286921-win32-ix86-threaded.exe をインストールして使っています。 404 名前：デフォルトの名無しさん mailto:sage [2009/01/13(火) 00:30:21 ] -command "puts $msg" 405 名前：402 mailto:sage [2009/01/13(火) 00:56:06 ] >>404 できました！ "と{との違いを調べてきます。 早速の回答ありがとうございます。 406 名前：デフォルトの名無しさん [2009/01/13(火) 12:59:47 ] >>402 {}の違いがポイントではなく、-command で指定するコマンドが関数の外で実行されることがポイントなのです。 msg変数は関数fooのローカル変数なので、関数の外で実行されるボタンのコマンドからは参照できません。 407 名前：デフォルトの名無しさん mailto:sage [2009/01/13(火) 21:28:04 ] >>404 ではないですが、もう少し補足しておきます set msg AAA; pack [button .b -text PushMe -command "puts $msg"] としておいて、ボタン.bを押すと当然、AAAとコンソールに表示されます。 続けて、set msg BBBとしてボタン.bを押してみて下さい。 コンソールにAAAと表示されますね？ これはどういうことかというと、

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef