[tcl] применение листа к функции

0

1

Пусть fun - функция:

proc fun {x y} {
   puts $x
   puts $y
}

а args - произвольный лист. Как заставить fun выводить первое и второе значение произвольного листа?

eval не подходит, так как args может содержать «плохие» символы.

В Lisp была нужная мне функция apply.

←	[C++] Socket Library

→

вы не поверите - и тут тоже apply :)

MKuznetsov ★★★★★
(23.06.11 20:35:03 MSK)

OMG, лист! >.<

anonymous
(23.06.11 20:43:17 MSK)

Ответ на: комментарий от MKuznetsov 23.06.11 20:35:03 MSK

Это не тот apply:

apply func ?arg1 arg2 …?

А надо:

apply funcname args

Minoru ★★★
(23.06.11 20:51:43 MSK) автор топика

Ответ на: комментарий от Minoru 23.06.11 20:51:43 MSK

proc ylppa {func args} {
  return [ $func {*}[ lrange $args 0 [ llength [ info args $func ] ]-1 ]]
}

MKuznetsov ★★★★★
(23.06.11 21:45:00 MSK)

«листы» говоришь? А «вариаблы» тебя не интересуют?

Led ★★★☆☆
(24.06.11 00:38:42 MSK)

Ответ на: комментарий от MKuznetsov 23.06.11 21:45:00 MSK

Сам код не работает, но сама идея - использовать lappend для построения кода для eval-а понятна. Спасибо.

Minoru ★★★
(24.06.11 06:57:08 MSK) автор топика

Ответ на: комментарий от Minoru 23.06.11 20:51:43 MSK

> Это не тот apply:

apply func ?arg1 arg2 …?

А надо:

apply funcname args

Use {*}$args, Luke.

~~geekless~~ ★★
(24.06.11 09:12:28 MSK)

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.

←	[C++] Socket Library

→

Похожие темы