🚀 go-pugleaf

kokoryn napisał(a):
> witam
> 
> Piszę skrypt, w którym tworzę dynamicznie kilka procedur wg pewnego
> schematu. Każda taka procedura ma oczywiście inną nazwę i chciałbym
> żeby ta nazwa mogła posłużyć jako indeks w globalnej tablicy, gdzie
> każda procedura będzie mogła przechowywać jakieś swoje dane. Z grubsza
> wygląda to tak:
> 
> array set tab {}
> 
> proc create_proc {name}\
> {
>   proc $name {}\
>   {
>     global tab
>     set tab(???) costam
>   }
> }

Prościej byłoby to zrobić w ten sposób:

proc create_proc {name params body} {
     # mybody wstawione bedzie na poczatku procedury
     set mybody ""

     # sprawia, ze zmienna np ::tab(jakasfunkcja) bedzie w tej
     # procedurze widoczna jakos zmienna lokalna mytab
     append mybody "upvar #0 ::tab($name) mytab" \n

     # stworzenie procedury - mozna nawet skorzystac z [uplevel]
     proc $name $params "$mybody\n$body"
}

Wtedy robisz sobie:

create_proc jakasfunkcja {} {
     set mytab 10
}

Bardzo czesto prosciej jest robic to inaczej:

namespace eval dane {}

proc jakasfunkcja {} {
     upvar #0 ::dane::jakasfunkcja mojedane
     return "Moje dane to $mojedane"
}

Nie ma sensu dla jednej linijki tworzyc automatu.

> W jaki sposób powinienem odwołać się do nazwy procedury w miejscu
> oznaczonym "???" tak, aby móc zapisać coś do tablicy pod odpowiednim
> indeksem? Wydawało mi się, że polecenie info powinno dawać taką
> możliwość, ale z dokumentacji wynika, że nie daje.

set nazwamojejprocedury [lindex [info level [info level]] 0]

Nie jest to najprostsze, ale bardzo logiczne, wystarczy o [info level] 
poczytac :-)

> Przy okazji chciałem powiedzieć, że jestem trochę zawiedziony tak małą
> aktywnością na pl.comp.lang.tcl. Nie spodziewałem się wprawdzie
> jakiegoś wielkiego ruchu, ale na pl.comp.lang.c i pl.comp.programming
> cały czas przewijają się jakieś dygresje (czasem nawet całe dyskusje)
> o Tcl (stąd zresztą dowiedziałem się o tym języku), więc sądziłem, że
> ludzie biorący w nich udział będą pisać tutaj, gdy grupa ruszy. Cóż,
> mam nadzieję, że z czasem grupa się rozkręci.

No ale trochę to rozkręcanie grupy potrwa...

-- 
WK