Início / coding / Perguntas / 79557282
Accepted
John H.
Asked: 2025-04-06 01:01:39 +0800 CST

Existe uma maneira fácil de "capturar" retornos no Tcl?

  • 772

Gostaria de poder garantir que uma ação ocorra ao sair de um proc Tcl. Por exemplo, preciso fazer algo assim:

proc foo {} {
    variable var
    set saved $var
    # some stuff
    if {$failed} {
        set var $saved
        return
    }
    # more stuff
    set var $saved
}

Existe uma maneira fácil de fazer isso, para que eu não tenha que repetir o código "exit" em cada return? Conceitualmente:

proc foo {} {
    variable var
    set saved $var
    set do-at-return {set var $saved}
    # some stuff
    if {$failed} {
        return
    }
    # more stuff
}

Onde do-at-returnseria executado sempre que foosaísse.

tcl

1 respostas

  1. Best Answer

    Você provavelmente pode fazer coisas complicadas com um rastreamento de execução "leave", mas uma maneira mais fácil é envolver a parte relevante do corpo em uma instrução try/finally:

    proc foo {} {
    variable var
    set saved $var
    try {
        # some stuff
        if {$failed} {
            return
        }
        # more stuff
    } finally {
        set var $saved
    }
}
    • 2

relate perguntas