●●●●TCL/TKなら俺に聞け 4●●●●
後読み(?<=re)って使えないんでしょうか？
使えないとしたら、ほかに同じことできる方法ありますかね。
バージョンは8.4です。
https://www.tcl.tk/man/tcl8.4/TclCmd/re_syntax.htm#M14
とりあえずMinGWでtclとtk入れて、
http://www.kijineko.com/c-tcltkでhello-world/
このへん見ながら見様見真似でCからハロワだけ出したんですが、ここから先、どうやってC側の関数とかのコードと結びつけるのかいまいちわかりません。
pythonのtkinterでdefした関数を登録したり、C#のWinformsでのButton.Clickのデリゲートみたいな感じで、C/C++の関数ポインタなりを登録するような書き方ができるでしょうか。
tk がモジュールとかライブラリとか (qtとかwxpythonみたいなもの)
pythonでCモジュール描いたことがあれば
tcl/tkは楽勝
初めてtcl/tkやるなら
https://qiita.com/akinori-ito/items/92ca39617773a2f48e0b
で先にtcl/tkの(C無しで)方を覚えた方が楽
http://www.tcl.tk/man/tcl8.7/
http://www.nct9.ne.jp/m_hiroi/tcl_tk_doc/
http://www.nct9.ne.jp/m_hiroi/tcl_tk_doc/tcltk305.html
lookaheadはあるけどlookbehindが見当たらず...
人知れず使われていくのはむしろtclの方なんだよな
つまり1年書き込みないのはトイレ休憩のようなもの
2020-11-07
14:29
Updated README
一年ぶり間近か
tcl/tk 8.6.11
未だ配布候補版(rc ver.)だが 8.6.11版が配布開始された｡
正式版は年越しか?
https://www.seshop.com/product/detail/2863
https://www.vector.co.jp/soft/dl/winnt/prog/se498906.html
翻訳元と翻訳後が並記されてて助かる・・・
https://daeudaeu.com/tkinter_canvas_method/
https://www.usenix.org/conference/fast14/speaker-or-organizer/brent-welch-google
Clustered and Parallel Storage System Technologies | USENIX
https://www.usenix.org/conference/fast14/training-program/clustered-and-parallel-storage-system-technologies
https://ja.wikipedia.org/wiki/VTK
VTKはPython, Java, Tclに対するコア部分のラッパーを提供しているため、
これらのインタプリタ言語を使ってVTKのアプリケーションを書くことも可能である。
https://www.equi4.com/starkit/critcl.html
https://sourceforge.net/projects/tcl/files/Tcl/8.6.11/
https://link.springer.com/chapter/10.1007/978-3-642-21652-7_5
Abstract
This paper presents the design and development of a CPU scheduler simulator using SDL.
This simulator enables us to study the behavior of one level and multilevel queue scheduling algorithms (including the real-time ones),
and to obtain performance statistics for algorithm evaluation.
In addition, a multi-platform graphical user interface, based on the Tcl/Tk language,
has been developed to simplify the simulator use.
The paper also presents our experiences in using SDL for the specification of CPU scheduling algorithms for educational purposes.
https://wiki.tcl-lang.org/page/BOOK+The+Tcl+Programming+Language
https://www.freedos.org/
Tcl 8.6.11 for DOS
2021-01-30 3:43pm
Ben Collver has compiled Tcl 8.6.11 for DOS.
This is a patch release, so it primarily includes bug fixes and corrections to erratic behavior.
A few things to note in this release:
+ fixed crashes and hangs in lsort + rewrite of zlib inflation + fix auto_path initialization + fix errno management in socket full close.
And a few changes that might cause incompatibilities:
+ revised handling of 4-byte UTF-8 sequences + evised binary encode/decode base64 + Tcl_DStringAppendElement quoting precision + force -eofchar 032 when evaluating library scripts.
We've mirrored the updated version in the FreeDOS files archive at /devel/tcl/8.6.11/ on Ibiblio.
Thanks Ben!
Index of /pub/micro/pc-stuff/freedos/files/devel/tcl/8.6.11
http://www.ibiblio.org/pub/micro/pc-stuff/freedos/files/devel/tcl/8.6.11/
どのマニュアルを見れば書いてありますか？
Tk8.4で試したら、区切りの「.」（ピリオド）以外なら
記号でも空白改行でもなんでも使えるみたいなんだけど、
ほんとに使っても大丈夫なのかな。
セミコロンでもエスケープすれば使えるけど、
流石にそれは使わないほうが無難かな。
toplevel .w
button .w.b -text Button-1 -commnd "puts OK"
の「.w」や「.w.b」みたいな。
Tclで使える文字なら大丈夫ってことかな。
wordはwhite spaceで区切られるけど、Bracesで囲えばwhite spaceもnewlineも含められますね
proc {hana mogera} {a b} {
puts "$a $b"
}
{hana mogera} 1 2
1 2
set {a
b
c} 3
puts ${a
b
c}
3
入門書には大文字で始めると特別扱いされるとか……
この辺りが『とっつきにくい』の印象を与えているのかも｡
pack .ボタン1
こんなのも普通に通るんだな、まあ英数字が無難だけど
word単位に分割したらコマンドや変数の連想配列から探してくるだけなんだし。
https://lisphub.jp/common-lisp/cookbook/index.cgi?Ltk
bitWalk's: 入門 Tcl/Tk から十年
https://bitwalk.blogspot.com/2008/08/tcltk.html
…昔のうろ覚えですが…
ほんとだ
改行もスペースもエスケープすればいけるのに
ドットの次が大文字だと怒られる
https://blog.it-see.net/it-dokata/tcl-tk/data-structure/
ITドカタさんありがたい
いつも参考にさせてもらってます
想像しないでおこう
普通に諦めればいいと思うよ
https://community.altair.com/community?id=community_question&;sys_id=6956c4f61b2bd0908017dc61ec4bcb45
Tclは簡単に見つかるけど、Tkのリファレンスマニュアルは英語しか見つからないです。
>>414
その他いろんな情報が入っててありがたいです
ただ日本語訳が...
うん・・・それは私もそう思うけど
英語読めないと我が儘はいえんのよ(´･ω･`)
お互い英語の学習を頑張りましょう
もともと標準で入っているのですが、x11クライアントではないようです。
ソースコードからインストールすればいいのでしょうか？
まだ試してないですがmacで普通に./configureとかしてうまくいくでしょうか。
ご存知でしたら教えてください。mac捨てろとかはなしでお願いします。
wish起動するとX11じゃなくてmacのウィンドウが出る。
どうすればいいのやら
新しくできたwishを起動してもX11じゃないウィンドウが出ます。
もうちょっと頑張ってみます。
普通に考えればOSX 上で独自Xクライアント起動して
そのXのターミナルからwish起動しないといけないだろう
>新しくできたwishを起動してもX11じゃないウィンドウが出ます。
OSXのX相当のものから起動できてるのなら
X11にこだわらなくていいんじゃないの？
まさにこれはtcl/tkは関係なくmac捨てろという話になるな
動作環境: macOS High Sierra ver.10.13.6
以下のレシピで tk X11版がmakeできました
( homebrewで入れたtck/tk aqua版に満足しているので make install はしていません )
$ tar xf tk8.6.11.1-src.tar.gz
$ cd tk8.6.11/unix
(tk8.6.11/macosx だと指定オプションを無視してaqua版を作ってしまうようです)
$ CFLAGS="-I/usr/local/opt/tcl-tk/include" ./configure --enable-64bit --with-tcl=/usr/local/opt/tcl-tk/lib --with-x --x-includes=/usr/X11/include --x-libraries=/usr/X11/lib
既にインストール済みのtclディレクトリに合わせて適宜書き換えてください
CFLAGS=... を付けないと /usr/include/tcl.h (ver8.5) を参照しようとして make error になります
$ make
$ otool -L ./wish
libX11 etc. を参照している事を確認
$ install_name_tool -change /usr/local/Cellar/tcl-tk/8.6.11_1/lib:/usr/X11/lib/libtk8.6.dylib $PWD/libtk8.6.dylib ./wish
インストールせずに動作チェックをしたい！ (change箇所はotoolの出力を見れば分かります)
$ ./wish
pack [button .b -text {こんにちは X11}]
.b conf -font {{ヒラギノ丸ゴ Pro} 128} -bg #0ff -fg #f0f
$ rm ./wish && make install
インストール
macosxで作業しててうまく行かなかったのですが、
その後ログをよくよくみたらX11のオプションを無視して
わざわざunix/configreを呼び出してたので、
最初からunixに移動してconfigureしたらうまくいきました。
一応自己解決しましたが、454さんのレス見てからやればもっと楽できたのに。
ちなみに自分の環境もHigh Sierraですが、これでいけました。
cd ./tcl8.6.11/unix/
./configure
make
sudo make install
cd ../../tk8.6.11/unix/
./configure --with-x --with-tcl=/usr/local/lib/tclConfig.sh
make
sudo make install
ふぅ
gnuplotのグラフを表示させるためです。
set win [winfo id .c]
set gp [open "| gnuplot" w]
puts $gp "set term x11 window '$win'"
puts $gp "plot hogehoge"
みたいにやって、gnuplotに流し込むデータを変化させてぐりぐりやります。
もともとLinuxマシンでやってたのをmacに移植しようとしてます。
3次元プロットのグリグリまで他アプリの画面に飛ばせる(試してみました)とかX11は自由度高いんですね
丸いアナログ時計とかありそうだけど
少し変えれば winでも出来ると思う
https://i.imgur.com/Z17ciJK.png
https://wiki.tcl-lang.org/page/Shape に方法が紹介されている.
変形ウィンドウ用の拡張パッケージも紹介されてる (試していない)
見た目が透過するだけでもありがたいけど、透明なところクリックすると後ろのウィンドウがアクティブになったりする？
それができたら理想的なんだけど。
と思いつつメインで使ってるシステムで試そうとしたら、Linux版はwm attributeに-transparentがないようで...
残念です。
拡張のShapeはいきなり./configureでつまづいて、かなりハードル高そう
LinuxならTkZinc が動くと思います
リンク先の紹介では
TkZinc used to support it. Now the project seems to have vanished.
なんて書かれてますが
https://github.com/asb-capfan/TkZinc にあります
mac (Tcl/Tk X11版)では一部手直しが必要でしたがmakeできました
Linuxならそのままで行けるでしょう
> 透明なところクリックすると後ろのウィンドウがアクティブになったりする？
これも出来ます ( >>459 では出来ませんでした)
package require Tkzinc
package require zincGraphics
pack [zinc .zc -width 600 -height 600 -render 1 -backcolor #fcc -lightangle 50]
# canvasウィジットに於ける oval, line, etc. の要領で
# zincウィジット(.zc)に パスを追加していきます
set coords {}
for {set i 0} {$i < 5} {incr i} {
set a [expr 3.141692*2/5*$i]
lappend coords [list [expr 300-200*sin(2*$a)] [expr 300-200*positivecos(2*$a)]]
}
set clip [.zc add curve 1 $coords -closed 1 -visible 0 -fillrule odd]
# パスアイテム(clip)の形状(※)によりトップレベルウィンドウをクリッピング
# ※サイズは勝手にスケールされてしまいます
.zc itemconf 1 -clip $clip
複合パス(.zc contour 〜)を使って xeyes を再現したかったのですがクリッピングすると形が乱れてしまい使い物になりませんでした.
長方形を長方形でくり抜いたような単純なパスならいけます. この辺りは mac特有の問題かもしれません
最後の after 100 main の小細工はそうしないとなぜかエラー吐いて落ちるからです. これも mac 特有の...
他にも回転やスケール機能なんかがあります
ドキュメントが貧弱ですが demoフォルダのサンプルが参考になりました
TkZinc のソースを軽く見た感じでは使われてる三角分割アルゴリズムが単純な形状しか想定してないようです
なので Linuxでも変わらないかと思います
ただし、代わりに自力で三角分割して .zc add triangles 〜 で座標列を渡せば穴開きでもなんでもいけます
とにかく領域を三角形で埋め尽くす、非連結な領域間も潰れた三角形で橋渡しすればOKです
package require Tkzinc
package require zincGraphics
pack [zinc .zc -width 600 -height 600 -render 1 \
-highlightthickness 0 -backcolor white -lightangle 50]
set n 64
set coords {}; foreach xc {150 450} {
for {set i 0} {$i <= $n} {incr i} {
set a [expr 3.141592*2/$n*$i]
lappend coords [list [expr $xc+150*sin($a)] [expr 300-300*cos($a)]] \
[list [expr $xc+ 50*sin($a)] [expr 300- 100*cos($a)]] \
}
if {$xc == 150} {
lappend coords {150 0} {150 0} {450 0}
}
}
set clip [.zc add triangles 1 $coords -visible 0]
.zc itemconf 1 -clip $clip
https://i.imgur.com/8c5PxP5.png
やりたかった xeyesモドキが出来ました
ただこちらの環境ではTkZincもインストールのハードルがやっぱり高そうです。
configureでTcl/Tkのインストール情報を参照するところからつまづいてます。
自分は職場のLinuxマシンのいちユーザーで
基本的にインストール的なことはユーザー権限でしかできないため
プリインストールのTcl/Tkに拡張機能を追加するのはなかなか難しいです。
今回いろいろ紹介していただいてかなり勉強になりました。
ググってもなかなかたどり着けない情報で、ありがたいです。
https://github.com/avl42/tcl-bitcoin
Tcl_FindExecutable(argv[0])
を書かないとGUIの日本語が文字化けするっていうのは常識なの？
一時間くらいハマったよ
[ generic/tclEncoding.c ]
Tcl_FindExecutable(
const char *argv0) /* The value of the application's argv[0]
* (native). */
{
TclInitSubsystems();
TclpSetInitialEncodings();
TclpFindExecutable(argv0);
}
・TclInitSubsystems は Tcl_CreateInterpでもコールされているので二度手間
・Tcl_FindExecutable のコールで内部エンコーディングがセットされているなんて分かりにくい
ユーザーとしては Tcl_SetSystemEncoding を使う方が意図が明らかで良いと思いました
// Tcl_FindExecutable(NULL);
Tcl_Interp *tcl = Tcl_CreateInterp();
Tcl_SetSystemEncoding(NULL, "utf-8"); // 環境変数を見に行かなくても決め打ちで良いでしょう
なるほど、おまじないの中はそういう実装だったのか。ありがとうございます。
pack [button .b1 -text B1 -command {destroy .b1}]
pack [button .b2 -text B2]
bind .b2 <ButtonRelease-1> {destroy .b2}
.b1をクリックすると.b1が消える。（予想通り）
.b2をクリックすると.b2が消えて、その後エラー発生（invalid command name ".b2"）。
どうもbindされたアクションを実行した後、-commandがあってもなくても.b2を実行しようとしてエラーになるみたい。
これって正常な動作なんでしょうか。
8.5と8.6で同じ動作だったから、こういうもんだと思うしかないのかな。
ボタンはクリックにあわせてイメージ更新するけど、先にdestroyが動いて、イメージ更新するときには
.b2が無くなってるんじゃないかな？
どうしてもbindからdestroyしたいなら、after idleで後回しにすれば動くと思う。（試してない）
bind .b <buttonrelease> { after idle { destroy .b }}
buttonpressでも動くかどうかは知らない。
ありがとうございます。after idleうまくいきました。
.b2がinvokeされたあとでdestroy .b2が実行されました。
Macでもつかえるなら勉?しようかな
https://wiki.tcl-lang.org/page/DoS
アノニマスとは ロシアにサイバー戦、過去に日本も被害: 日本経済新聞
https://www.nikkei.com/telling/DGXZTS00001140X00C22A3000000/
反ロシア、サイバー「義勇兵」相次ぎ参戦 国境なき攻防
https://www.nikkei.com/article/DGXZQOUC2824A0Y2A220C2000000/
set lst {a b c}
set lst "a b c"
set lst [list a b c]
空リストをセットするにはこれらも同等なのだろうか？
set lst {}
set lst [list]
パフォーマンス的には下は無駄な気もするけど。
内部形式のTclオブジェクトは文字列、数値、リストなどの共用体。
必要に応じて実体が変換される。
前二つは文字列が実体、listコマンドを使ったものはリストが実体。
文字列が実体のオブジェクトをlindexのようなリストとして取り扱おうとすると
その時にリストオブジェクトに変換される。
リストが実体のオブジェクトを string のように文字列として取り扱おうとするとその機に文字列オブジェクトに変換される
セット時に変換されるか使う時に変換されるかだけの話でオーバーヘッドはさして気にするだけ無駄
リストと文字列で内部の扱いは違うけど、使う上では実質どちらも同じようなもんってことね
モヤモヤが晴れました
http://www.geocities.jp/urano343/tcltk.html
http://web.archive.org/web/20190330074125/http://www.geocities.jp/urano343/tcltk.html
https://geolog.mydns.jp/
GeoLog Project は、
閉鎖された日本ジオシティーズのウェブサイトを、
消滅前にできるだけアーカイブ(保存)しようと取り組んだ個人プロジェクトです。
https://archive.org/web/geocities.php
Saving a Historical Record of GeoCities
AM02:50 Tcl/Tk Scripting Laboratory
http://geolog.mydns.jp/www.geocities.co.jp/SiliconValley/4137/tcltk.html
https://github.com/Starlink/tcl
tkはおまけじゃい！
rlwrapかませばそれなりに悪くないし、コマンドセットは違えどwinでもunix系でも動くいいシェルだよ
Tkcon
https://wiki.tcl-lang.org/page/Tkcon
Summary
tkcon is a replacement for the standard console that comes with Tk (on Windows/Mac, but also works on Unix).
The console itself provides many more features than the standard console.
tkcon works on all platforms where Tcl/Tk is available.
It is meant primarily to aid one when working with the little details inside tcl and tk,
giving Unix users the GUI console provided by default in the Mac and Windows Tk.
It's also not a bad replacement for the default MS-DOS shell (although it needs lots of fine tuning).
https://opensource.apple.com/source/tcl/tcl-107.50.1/tcl_ext/tkcon/tkcon/tkcon.tcl.auto.html
https://opensource.apple.com/source/tcl/tcl-107.50.1/tcl_ext/tkcon/tkcon/tkcon.tcl
欲しい機能だけ参考にさせてもらいます
最近rlwrapを使うようになって格段に便利になりましたが
chshまでしてしまうとは猛者ですね
防衛省がStarlinkの導入を検討、海自艦艇での隊員向け回線として | スラド サイエンス
https://science.srad.jp/story/22/08/21/1538220/
→ですらゴミ入るロートルなtclshにそんな機能は…あるのか検証してみる
親から呼ばれるとその親がデフォルトのシグナルハンドラ備え付けてtclsh呼ぶので、tclshの子へサスペンドシグナル送るとtclsh自体がサスペンドされるという仕組み
なのでわざわざchshしなくとも、とりあえずシグナルハンドラを全て空にすれば(trap '' SIGXXX...; exec tclsh的な)、とりあえずtclsh自身は不死
これをスタートラインとして適切にトラップ設定してゆけば、tclsh中心にマルチタスク生活できるかと
http://jeszra.sourceforge.net/jeszra/
Jeszra is an advanced vector graphics application written in Tcl/Tk.
It generates source code for Tcl/Tk, Ruby, Python and Lisp.
https://hea-www.harvard.edu/~fine/Tech/ttkdraw.html
https://hea-www.harvard.edu/~fine/Tech/ttkdraw1.1-beta.tar.gz
https://hea-www.harvard.edu/~fine/Tech/ttkdraw1.0-beta.tar.gz
Orthographic grid option
Font control.
Consistent (functional) setting of object options
Separate object manipulation mode added (also still available with Control Key).
Added a MIT-style license (see README)
http://math-www.uni-paderborn.de/~axel/tkinfo/
http://math-www.uni-paderborn.de/~axel/tkinfo/tkinfo-2.11.tar.gz
Nim
https://www.web-dev-qa-db-ja.com/ja/tcl/stdout%E3%82%92tcl%E3%81%AE%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%AB%E3%83%AA%E3%83%80%E3%82%A4%E3%83%AC%E3%82%AF%E3%83%88%E3%81%99%E3%82%8B%E3%81%AB%E3%81%AF%E3%81%A9%E3%81%86%E3%81%99%E3%82%8C%E3%81%B0%E3%82%88%E3%81%84%E3%81%A7%E3%81%99%E3%81%8B%EF%BC%9F/941138135/
Nimを知ってほしい2022
https://zenn.dev/dumblepy/articles/b475b3b4f7d0da
https://www.youtube.com/watch?v=y5vM4Ec8cvI
https://www.youtube.com/watch?v=v7PH9zPWNoQ
https://linuxjm.osdn.jp/html/expect/man1/expect.1.html
https://github.com/LawrenceWoodman/sdl_and_tk_demo
https://groups.google.com/g/comp.lang.tcl/c/HQ-zO-3D1sg
https://github.com/Drolla/t2ws
https://peterlane.codeberg.page/rstk/
https://crates.io/crates/rstk
https://crates.io/crates/tk
ラベル表示する場合なんですが・・・
root=Tk()
root.geometry( '100x100' )
↑ここまではOK
l = Label(text='123')
l.pack()
↑pack()でラベルが表示されますが、引数にrootを指定せずともrootウィンドウに表示されます
ウィンドウを複数表示して場合、どのウィンドウにラベルが表示されるのか・・・困りませんか？
Tcl/Tk的にはrootウィンドウを複数作る場合 toplevel というのを使う。
Python/tkinterでTk() のインスタンスを複数作るのはお勧めしない。
どうしてもTk()を複数作りたい場合は、
second = Tk()
l2 = second.Label()
で良いような気がするけどね。
msys2普通に入れてるしもう特にActiveTclにこだわる必要もないようだな
さらばだActiveState
tcl9.0b1rc0-src.tar.gz 2023-11-15 6.7 MB
俺はtcomの64が欲しい
レスを投稿する
ニュース
- 【滋賀】いなり寿司を万引きしたとして誤認逮捕され、82時間拘束された女性、涙ながらに苦しい胸の内を明かす… ★3 [Hitzeschleier★]
- ロシア出身YouTuber、経済的困窮で「国ガチャ失敗」？嘆く日本人を一喝「給料13万？自分のせいやん」日本を「大当たり」とする理由は [muffin★]
- 築地市場跡地に5万人規模スタジアム建設へ 事業者は三井不動産など ★２ [ぐれ★]
- 【理研】日本人の祖先は「縄文系」「関西系」「東北系」の３系統か、ゲノム分析で従来の説「縄文と弥生」に疑問 ★2 [樽悶★]
- 大谷翔平を〝見誤った〟北村弁護士が謝罪「大嘘つきにだまされた自分を恥じております」 [muffin★]
- ひろゆき氏 清潔感の基準めぐり持論「ブサイクでデブなおっさんがきちんとしてても、“何かキモ～い”と言われて終わりなんで」 [冬月記者★]
- AFC U23アジアカップ カタール2024★8
- AFC U23アジアカップ カタール2024★6
- AFC U23アジアカップ カタール2024★7
- 巨専】引き分け
- はません 定位置
- 【酒】日本vsUAE【U23アジアカップ】
- 【悲報】だが、ビーガニズムに対する反発がアンチヴィーガンなんだよね
- 【実況】博衣こよりがえちえちplate up🧪★3
- 【実況】博衣こよりがえちえちplate up🧪★5
- 【実況】博衣こよりがえちえちplate up🧪★4
- 同級生に裏垢でおっぱい見せてって言ってる
- お前ら俺のこと愛してるか？