Требуется помощь: TCL + Lambda

0

0

В общем, надо сделать так, чтобы вот этот код выдал "c1\nc2\nc3\n":

-----------------------CUT-----------------------
#!/usr/bin/tclsh

set cmds [ list "c1" "c2" "c3" ]
set funcs []

foreach cmd $cmds {
	set lambda "lambda_$cmd"
	proc $lambda {} { puts "$cmd" }
	lappend funcs $lambda
}

foreach func $funcs {
	$func
}
-----------------------CUT-----------------------

И да, я знаю, что конкретно ^это^ можно сделать проще. Это
просто минимальный код, чтобы было понятно что именно мне нужно.

P.S. TCL почти не знаю, изучаю на ходу.

Ссылка

←

get image

Нарушается ли GPL при использовании библиотек от nvidia?

→

Re: Требуется помощь: TCL + Lambda

- proc $lambda {} { puts "$cmd" }
+ proc $lambda {} "puts $cmd "

bik ★★ (01.06.08 08:47:21)

Ответ на: Re: Требуется помощь: TCL + Lambda от bik 01.06.08 08:47:21

Re: Требуется помощь: TCL + Lambda

>> - proc $lambda {} { puts "$cmd" } >> + proc $lambda {} "puts $cmd "

Всё гениальное просто! Спасибо =).

Deleted (01.06.08 09:23:20)

Ссылка

Re: Требуется помощь: TCL + Lambda

Я более подробно занимался лямбдами, вот что получилосб в итоге. За примерами использования лезть в сорсы tkLOR.

############################################################################
#    Copyright (C) 2008 by Alexander Galanin                               #
#    gaa.nnov@mail.ru                                                      #
#                                                                          #
#    This program is free software; you can redistribute it and/or modify  #
#    it under the terms of the GNU Library General Public License as       #
#    published by the Free Software Foundation; either version 3 of the    #
#    License, or (at your option) any later version.                       #
#                                                                          #
#    This program is distributed in the hope that it will be useful,       #
#    but WITHOUT ANY WARRANTY; without even the implied warranty of        #
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         #
#    GNU General Public License for more details.                          #
#                                                                          #
#    You should have received a copy of the GNU Library General Public     #
#    License along with this program; if not, write to the                 #
#    Free Software Foundation, Inc.,                                       #
#    51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA               #
############################################################################

package provide gaa_lambda 1.1

package require Tcl 8.4

namespace eval ::gaa {
namespace eval lambda {

namespace export \
    lambda \
    deflambda \
    lambdaProc

proc lambdaLowlevel {paramsVar scriptVar argsVar} {
    set params [ uplevel [ list set $paramsVar ] ]
    set script [ uplevel [ list set $scriptVar ] ]
    set args [ uplevel [ list set $argsVar ] ]
    uplevel [ list unset $paramsVar $scriptVar $argsVar ]
    for {set i 0} {$i < [ llength $params ]} {incr i} {
        if { [ lindex $params $i ] != "args" } {
            uplevel [ list set [ lindex $params $i ] [ lindex $args $i ] ]
        } else {
            uplevel [ list set [ lindex $params $i ] [ lrange $args $i end ] ]
        }
    }
    uplevel [ list eval $script ]
}

proc lambdaProc {params script args} {
    if {( [ lindex $params end ] == "args" && [ llength $params ] > [ llength $args ] ) || \
        ( [ lindex $params end ] != "args" && [ llength $params ] != [ llength $args ] )} {
        error "Arguments count mismatch: expected $params, but $args passed."
    }
    ::gaa::lambda::lambdaLowlevel params script args
}

proc lambda {params script args} {
    return [ concat [ list ::gaa::lambda::lambdaProc $params $script ] $args ]
}

proc deflambda {id params script args} {
    uplevel [ list set $id [ concat [ list ::gaa::lambda::lambdaProc $params $script ] $args ] ]
}

}
}

~~gaa~~ ★★ (01.06.08 19:41:20)

Ответ на: Re: Требуется помощь: TCL + Lambda от gaa 01.06.08 19:41:20

Re: Требуется помощь: TCL + Lambda

лицензия на пол-экрана - это правильно, злые проприетарщики спят и видят, как украсть твой гениальный код..
если хочешь нормальных примеров - ищи на wiki.tcl.tk по ключевым словам lambda, closure и RS (гуру, который все это разрабатывал)

bik ★★ (01.06.08 21:29:05)

Ответ на: Re: Требуется помощь: TCL + Lambda от bik 01.06.08 21:29:05

Re: Требуется помощь: TCL + Lambda

>> если хочешь нормальных примеров - ищи на wiki.tcl.tk по ключевым словам lambda, closure и RS (гуру, который все это разрабатывал)

Я про лямбды на wiki.tcl.tk мало что понял. Вообще TCL после C/C++ - это просто вынос мозга... У меня только от синтаксиса уже в глазах рябит...

Deleted (01.06.08 23:21:50)

Ответ на: Re: Требуется помощь: TCL + Lambda от bik 01.06.08 21:29:05

Re: Требуется помощь: TCL + Lambda

> лицензия на пол-экрана

enlarge your screen :)

> если хочешь нормальных примеров - ищи на wiki.tcl.tk по ключевым словам lambda, closure и RS (гуру, который все это разрабатывал)

Искал. Из коробки лямбд даже в 8.5 нет, а все предложенные реализации мне не понравились по причине отсутствия возможности указывать не все аргументы, а недостающие дописывать в контексте замыкания.

~~gaa~~ ★★ (02.06.08 01:25:15)