Qual è la differenza tra errore e errore codice di restituzione

Question

Qual è in realtà la differenza tra il sollevamento di un'eccezione in TCL tramite return -code error ... e error ...? Quando si dovrebbe essere usato al posto dell'altro?

Answer 1

Il comando error produce un errore proprio nel punto corrente; è ottimo per i casi in cui si genera un problema a causa dello stato interno di una procedura. Il comando return -code error rende la procedura in cui è stato inserito un errore (come se la procedura fosse error); è ottimo per il caso in cui c'è un problema con gli argomenti passati alla procedura (ad esempio, il chiamante ha fatto qualcosa di sbagliato). La differenza arriva quando guardi la traccia dello stack.

Ecco un esempio (escogitato!):

proc getNumberFromFile {filename} { 
    if {![file readable $filename]} { 
     return -code error "could not read $filename" 
    } 
    set f [open $filename] 
    set content [read $f] 
    close $f 
    if {![regexp -- {-?\d+} $content number]} { 
     error "no number present in $filename" 
    } 
    return $number 
} 

catch {getNumberFromFile no.such.file} 
puts $::errorInfo 
#could not read no.such.file 
# while executing 
#"getNumberFromFile no.such.file" 

catch {getNumberFromFile /dev/null} 
puts $::errorInfo 
#no number present in /dev/null 
# while executing 
#"error "no number present in $filename"" 
# (procedure "getNumberFromFile" line 9) 
# invoked from within 
#"getNumberFromFile /dev/null"