# -- after, clock の例 --                            
proc proc_etc1 { cnt } {
  incr cnt;
  puts [clock format [clock seconds] -format %T];
  if { $cnt < 3 } {
    after 1000 proc_etc1 $cnt;
  } {
    puts "End.";
  }
};
proc_etc1 0
# -- infoの例 --
info vars tcl_*;
info exists notexists_val;
set exists_val 10;
info exists exists_val;
# -- exprの例 --
expr 2*3;
expr rand();
expr 10 % 4;
# -- timeの例 --
set cnt 0;
time {incr cnt} 50000;
# -- execの例 --
exec c:/windows/pbrush.exe &;
# -- evalの例 --
set wk1 1;
set wk2 2;
set val {wk1 wk2};
unset $val;
eval unset $val;
# -- traceの例 --
proc proc_etc2 {args} {
  puts $args;
};
trace variable abc wru proc_etc2;
set abc 1;
puts $abc;
unset abc;
# -- regexp,regsubの例 --
regexp (ab).* "cbabcdabebac" a b c d;
puts "$a:$b:$c:$d";
regsub (ab).* "cbabcdabebac" AB e;
puts e;
# -- substの例 --
set wk 123
puts "wk=$wk"
puts {wk=$wk}
puts [subst {wk=$wk}]
# -- catch,updateの例 --
proc proc_etc3 {} {
  catch {destroy .l};
  update;
  label .l -text "TEST";
  pack .l;
  update;
  after 5000;
};
proc proc_etc4 {} {
  catch {destroy .l};
  update;
  label .l -text "TEST";
  pack .l;
  after 5000;
};
proc_etc3;
proc_etc4;
# -- upvar,uplevelの例 --
set wk1 111;
proc proc_etc5 {} {
  set wk1 100;
  proc_etc6 wk1;
  puts "proc_etc5:$wk1";
};
proc proc_etc6 { name } {
  upvar $name val;
  set val 10;
  uplevel #0 {
    puts "proc_etc6:$wk1";
  };
};
proc_etc5;
# -- vwaitの例 --
proc proc_etc7 {} {
  global etc7;
  puts "proc_etc7 in";
  vwait etc7;
}
proc_etc7;
set etc7 1;

afterコマンドは、指定ミリ秒後にスクリプトを実行させる。
その間、制御は戻っている。
clockコマンドは、時間の取得やフォーマットを行う。








各種情報を返す。




演算コマンド。各種演算子・関数あり。



パフォーマンスチェックなどに使用する。


外部プロセスの起動。最後の＆はバックグラウンド指示。

インタプリタの真髄とも言えるコマンド。
スクリプトを新規に評価してくれる。


「wk1 wk2」が１ワードのため、全体を変数名とみなしてエラー。
変数置換後の文字列を改めてワード分割するため、unsetには２ワードとして渡される。
変数追跡コマンド。



設定・参照・削除された直後に割り込みが発生してプロシジャが呼ばれる。



正規表現コマンド。
abの繰り返しがあれば、変数 a b c d に入れていく。

正規表現を用いて文字列を置換して変数に格納する。

ブレースで囲まれた文字列内部の置換を行う。
ダブルクォートが使えない・使いにくい場合に便利。
ブレースであれば、入れ子に出来るため。


catchコマンドはエラーを起こさずにスクリプトを処理する。
updateコマンドは保留中のイベント処理をバックグラウンドで処理させる。














ラベルが即表示される。
プロシジャーから制御が返るまで表示されない。
スコープ制御コマンド。
upvarコマンドは、１つ上のスコープの変数をローカルスコープの変数にリンク。
uplevelコマンドは、任意のスコープでスクリプトを実行する。












変数に対する設定が起こるまで、待ち状態になります。
この間は、制御が返りますので、他の処理ができます。
イベントループが無い tclsh で、socket コマンドを使用する場合などに使用します。



proc_etc7を入力直後に制御は返っているので、もう一度エンターを押してください。