Question

我是Tcl的新手，无法理解Tcl中冒号（:）的含义，我在网上找不到任何问题的答案。特别是，我想了解＆＃34; :＆＃34;的作用。在tcl脚本中带来here，例如＆＃34; $c:data＆＃34;或＆＃34; $c:row＆＃34;。

...

  for {set y 0} {$y < $height} {incr y} \
  {
    set r:row {}
    set g:row {}
    set b:row {}
    for {set x 0} {$x < $width} {incr x} \
    {
      foreach {r g b} [$image get $x $y] break
      foreach c {r g b} { lappend $c:row [set $c] }
    }
    foreach c {r g b} { lappend $c:data [set $c:row] }
  }

...

      foreach c {r g b} \
      { 
        set c00 [lindex [set $c:data] [expr {$y - 2}] [expr {$x - 2}]]
        set c01 [lindex [set $c:data] [expr {$y - 1}] [expr {$x - 0}]]
        set c02 [lindex [set $c:data] [expr {$y - 2}] [expr {$x + 2}]]
        set c10 [lindex [set $c:data] [expr {$y + 0}] [expr {$x - 1}]]
        set c11 [lindex [set $c:data] [expr {$y + 0}] [expr {$x - 0}]]
        set c12 [lindex [set $c:data] [expr {$y + 0}] [expr {$x + 1}]]
        set c20 [lindex [set $c:data] [expr {$y + 2}] [expr {$x - 2}]]
        set c21 [lindex [set $c:data] [expr {$y + 1}] [expr {$x - 0}]]

...

Answer 1

此上下文中的冒号只是Tcl变量标识符中的符号。您可以将其视为使标识符更具可读性的下划线符号。

冒号（:)表示在Tcl脚本中

1 个答案: