/usr/share/tcltk/tcllib1.14/lambda/lambda.tcl is in tcllib 1.14-dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | # # ## ### ##### ######## ############# ####################
## -*- tcl -*-
## (C) 2011 Andreas Kupries, BSD licensed.
# Two convenience commands to make the writing of anonymous
# procedures, i.e. lambdas more proc-like. Instead of, for example, to
# write
#
# set f {::apply {{x} { .... }}}
#
# with its deep nesting of braces, or (if we wish to curry (*))
#
# set f [list ::apply {{x y} { .... }} $valueforx]
#
# with a list command to insert the arguments, just write
#
# set f [lambda {x} { .... }]
# and
# set f [lambda {x y} { .... } $valueforx]
#
# (*) Pre-supply arguments to the anon proc, making the lambda a
# partial application.
# # ## ### ##### ######## ############# ####################
## Requisites
package require Tcl 8.5
# # ## ### ##### ######## ############# #####################
## Public API implementation
proc lambda {arguments body args} {
return [list ::apply [list $arguments $body] {*}$args]
}
proc lambda@ {ns arguments body args} {
return [list ::apply [list $arguments $body $ns] {*}$args]
}
# # ## ### ##### ######## ############# ####################
## Ready
package provide lambda 1
|