変数ã¸ã®ã‚¢ã‚¯ã‚»ã‚¹ã‚’フックã™ã‚‹æ–¹æ³•ã®æ¯”較：Rainy Day Codings：So-net blogTcl ビルトイン㮠trace コマンドã§å¤‰æ•°ãŒã‚¢ã‚¯ã‚»ã‚¹ã•ã‚ŒãŸã¨ãã«å‘¼ã³å‡ºã•ã‚Œã‚‹ãƒ—ãƒã‚·ãƒ¼ã‚¸ãƒ£ã‚’登録ã§ãる。今回比較ã—ãŸè¨€èªžã®ä¸ã§ã‚‚ã£ã¨ã‚‚真ã£å½“ã‹ã¤å……実ã—ã¦ã„る。プãƒã‚·ãƒ¼ã‚¸ãƒ£åを与ãˆã‚‹ä»•æ§˜ãªã®ã§ãƒ—ãƒã‚·ãƒ¼ã‚¸ãƒ£ã‚’予ã‚作る必è¦ãŒã‚ã‚Šã€ãƒ•ãƒƒã‚¯ã—ãŸã„変数ãŒ1ã¤ã—ã‹ç„¡ã„å ´åˆãªã©ã¯å¾Œè¿°ã® Ruby ã¨æ¯”ã¹ã‚‹ã¨ã‚„ã‚„é¢å€’。 proc hook {name1 name2 op} { if {$op == "write"} { upvar #0 $name1 var puts "$op $name1: $var" } else { puts "$op $name1" } } trace add variable foo {read write} hook set foo "hello world" set bar $foo 実行çµæžœã¯ä»¥ä¸‹ã€‚ F:\>tclsh tryme.tcl write foo: hell
{{#tags}}- {{label}}
{{/tags}}