如果在 Eclipse rcptt 中满足条件，则退出循环

Question

如果在 eclipse rcptt 中满足条件，我想退出循环。

我正在使用以下代码：

proc "wait-until" [val iconName] {
    loop [val count 1] [val n 5] {
        if [$count | lt $n] {

            try{

                let [val text [get-button "Configure" | get-property "getToolTipText()" -raw]] {
                    if [$text | contains $iconName] {

                        recur [$count | plus 100] [$n]
                    }
                }
            } -catch {
                show-alert "inside catch"
            }

            recur [$count | plus 1] [$n]
        } -else {
        }
    }
}

但如果尝试条件也满足，它会继续。

我哪里做错了？

谢谢

Answer 1

RCPTT 中的循环很奇怪，因为它们不是简单地迭代，而是像递归那样“深入”。

关键字'recur'是为了表达这一点。

在您的情况下，如果 try{} 在第 (n) 次成功运行，它仍然必须“爬出”并在 'recur' 指令 (n-1) 次之后执行代码部分。

如果可能，您应该重新构建您的代码，将“recur”作为循环中的最后一条指令。

Answer 2

好吧，我想出了如下解决方案：

proc "wait-for-button" [val name] {
  loop [val count 0] {
  try {
      get-button $name
      } -catch {
              if [eq $count 300] { // 30 seconds
                  throw-error [concat "wait-for-button: Could not find button " $name]
              }
              wait 100
             recur [$count | plus 1]
     }//catch ends
  }//loop ends
}//proc -ends

它实际上做了什么，它将迭代 300 次。如果它在 try 中找到一个按钮，它将停止执行。 如果没有，它会去 catch 块并再次进行下一次递归。