🚀 go-pugleaf

kokoryn napisał(a):
> On Wed, 13 Jul 2005 08:11:02 +0200, Wojciech Kocjan
> <mojeimie@kocjan.org> wrote:
> 
> 
>>Prościej byłoby to zrobić w ten sposób:
>>[ciach]
>>Nie ma sensu dla jednej linijki tworzyc automatu.
> 
> 
> Dziękuję za propozycje rozwiązań (te i w poście obok). Jak napisałem
> przed chwilą w innym poście, nie próbuję robić niczego na siłę.

Ok. To już wiesz, że jak będziesz coś chciał zrobić to wtedy zależy od 
rozwiązania. korzystanie z OO dla 100 linijek kodu, w aplikacji o 50k 
kodu nie ma sensu - natomiast robienie całej aplikacji albo jej 
większości w OO ma sens. Ja robię kontrolki i mechanizmy w OO, a obsługę 
bez OO - wtedy można przeładować kilka procedur bez restartu.

> Chciałem po prostu wiedzieć, czy da się odwołać do nazwy procedury z
> jej wnętrza. Incr Tcl nie próbowałem jeszcze używać, bo dopiero uczę
> się Tcl-a i chciałbym poznać najpierw możliwie dobrze podstawowe
> mechanizmy języka. Zresztą Tcl/Tk nauczył mnie, że nowoczesny
> dynamiczny język może się doskonale obejść bez modelu obiektowego,
> więc nie palę się do Incr Tcl.

Aha. Co do obywania się bez, to ja bardzo chwalę sobie [Incr Tk], bo nie 
czuje się różnicy między Tk a megawidgetami (poza bindowaniem, to jest 
koszmar Incr Tk niestety.

> Przy tym muszę przyznać, że nie do
> końca rozumiem stwierdzenie z Twojej poprzedniej wiadomości o robieniu
> "mini OO". Przecież ja tak naprawdę nie wprowadzam żadnych obiektów, w
> końcu wszystkie procedury tworzone przez create_proc to w istocie ta
> sama procedura tyle, że z dodatkowym "argumentem" przekazanym jakby
> przez jej nazwę, która ma operować na jakiejś tam strukturze danych.
> Po prostu taki cukier składniowy, ale całkiem ładnie wygląda moim
> zdaniem.

No ale właśnie to co Ty robisz działa dokładnie tak samo jak OO w Tcl. 
Dlatego każdemu się skojarzyło :-)

>>set nazwamojejprocedury [lindex [info level [info level]] 0]
>>Nie jest to najprostsze, ale bardzo logiczne, wystarczy o [info level] 
>>poczytac :-)
> Właśnie o coś takiego chodziło! Przeoczyłem to, bo przeleciałem
> wzrokiem po dokumentacji i przeczytałem tylko co info level zwraca bez
> argumentu, mój błąd.

Aha, kolejne rozwiązanie to [interp alias].

% proc dumpargs {args} {puts $args}
% interp alias {} dumpx {} dumpargs x
% dumpargs a b c
a b c
% dumpx a
x a

To pozwala, żeby 1szy parametr prawdziwej procedury to była nazwa 
danych, a create_proc wtedy tworzy zmienną (lub tablicę) z danymi 
lokalnymi + robi alias. Nie podałem całego przykładu, bo mi się po 
prostu nie chce :-). Dopiszesz sobie. To chyba najładniejsze 
rozwiązanie, bez czarowania z introspekcją :-)

-- 
WK