🚀 go-pugleaf

Maciej Sobczak wrote:
> 
> 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ł?
> 
> 

Niestety używając operatora $ nie uda się. Natomiast można pójść na 
kompromis i używać komendy do odczytu zmiennej, tak jak robi się to za 
pomocą:

set a 1
puts [set a]

Wtedy zamiast set użyć własnej procedury:

proc czytaj {var} {
	uplevel "
		if {[info exists $var]} {
			return [set $var]
		} else {
			set $var ""
			return [set $var]
		}
	"
}
puts "To jest wartość zmiennej a: [czytaj a]"

tyle że to będzie wolniejsze niż sam operator $. Pozostałe metody 
odwołań do zmiennej można nadpisać, bo są to tylko komendy/procedury.

-- 
Pozdrawiam! (Greetings!)
Googie