🚀 go-pugleaf

Derek Kuliński / takeda wrote:

> Jesteś 
> pewien, że na czystym Tcl będzie to działać?

Tak. Zgodność z Tcl została zachowana. Jedyne co może niedziałać to
jakiś błąd merytoryczny - tak jak wspomniałem - nie miałem gdzie tego
przetestować, więc może być jakiś błąd, ale myślę że sobie poradzisz.

> nie przypuszczałem, że da się aż tak uprościć,
> widać pozostaje mi jeszcze sporo do nauczenia się =)

To taki (dość znany już na clt) trick :)
Komendy [foreach] tutaj odegrała kluczową rolę.
Oto prostszy przykład obrazujący zastosowane rozwiązanie:

#-----------
set tablica(a) 0
set tablice(b) 1
set tablica(c) 3
set zmienna_1 10
set zmienna_2 11
set zmienna_3 12
set lista [list to jest lista]

foreach {idx nazwa_zmiennej poz} {
  a zmienna_1 1
  b zmienna_2 0
  c zmienna_3 2
} {
  puts "-> $tablica($idx), [set $nazwa_zmiennej], [lindex $lista $poz]"
}
#-----------

Przy czym samo [foreach] można za zapisać tak na prawdę tak jak poniżej
i będzie to zapis równoznaczny, ale mniej czytelny, choć może będzie
dla Ciebie bardziej znajomy:

#-----------
foreach {idx nazwa_zmiennej poz} {a zmienna_1 1 b zmienna_2 0 c
zmienna_3 2} {
  puts "-> $tablica($idx), [set $nazwa_zmiennej], [lindex $lista $poz]"
}
#-----------

W ten sposób można skracać powtarzający się kod w wielu przypadkach (aż
sam się dziwię, w jak wielu... :) ), bo definiujesz sobie tylko dla
[foreach] listę zmieniających się "łańcuchów/słów" w kodzie, a sam kod
piszesz w ciele [foreach], wstawiając zmienne z [foreach] zamiast tych
słów. Mam nadzieję że nie zamotałem za bardzo.

-- 
Pozdrawiam (Greetings)!
Googie