🚀 go-pugleaf

Witam!

No rzeczywiście Tcl nie ma zbyt zaawansowanego Error handling.
To znaczy; nie można wskoczyć spowrotem do mniejsca gdzie wystąpił
błąd.
SmallTalk na takie stuczki pozwala.
Można ale zostosować wrapper dla dostępu do danej i upvar dla
definicji

proc lasyInitVar {varref init} {
      upvar $varref var
      if {[info exists var]} {
           set var
      } else {
           set var $init
      }
}

set b [lasyInitVar c 10]
set c

# albo z scriptem który jest evaluowany tylko jeśli trzeba

proc lasyInitVarHandle {varref script} {
      upvar $varref var
      if {[info exists var]} {
           set var
      } else {
           set var [uplevel $script]
      }
}
proc expensiveProc {} {
      return "expensiveReturn"
}

set b [lasyInitVarHandle wh {expensiveProc}]
set wh

Można by także przedefiniować set ale zamiany $ bez przeróbki
interpretera się nie da.

Artur

> Polecenie unknown pozwala podłączyć się z własnym handlerem na okazję
> wywołania procedury, która jeszcze nie jest zdefiniowana.
>
> Chciałbym mieć coś takiego dla zmiennych, czyli jeśli ktoś zawoła
> $blabla w sytuacji, gdy blabla nie istnieje, to chciałbym, żeby wywołana
> została moja procedura, która być może tą zmienną zdefiniuje "w locie".
>
> Wyląda na to, że standardowo czegoś takiego nie ma, a szkoda.
> Ktoś ma może jakiś pomysł?
>
>
> --
> Maciej Sobczak : http://www.msobczak.com/
> Programming    : http://www.msobczak.com/prog/