Attachment "eval_use.diff" to
ticket [822850ffff]
added by
mic42
2003-12-03 08:08:34.
Index: irc/irc.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/irc/irc.tcl,v
retrieving revision 1.18
diff -u -b -r1.18 irc.tcl
--- irc/irc.tcl 22 Oct 2003 19:43:27 -0000 1.18
+++ irc/irc.tcl 3 Dec 2003 01:01:55 -0000
@@ -486,7 +486,7 @@
# args: arguments to the command
proc network { cmd args } {
- eval [linsert 0 $args [namespace current]::cmd-$cmd]
+ eval [linsert $args 0 [namespace current]::cmd-$cmd]
}
# Create default handlers.
Index: uri/uri.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/uri/uri.tcl,v
retrieving revision 1.23
diff -u -b -r1.23 uri.tcl
--- uri/uri.tcl 27 Aug 2003 21:26:19 -0000 1.23
+++ uri/uri.tcl 3 Dec 2003 01:01:59 -0000
@@ -135,7 +135,7 @@
# Now we can extend the variables which keep track of the registered schemes.
- eval lappend schemes $schemeList
+ eval [linsert $schemeList 0 lappend schemes]
set schemePattern "([::join $schemes |]):"
foreach s schemeList {
@@ -325,11 +325,11 @@
}
proc ::uri::JoinHttp {args} {
- eval uri::JoinHttpInner http 80 $args
+ eval [linsert $args 0 uri::JoinHttpInner http 80]
}
proc ::uri::JoinHttps {args} {
- eval uri::JoinHttpInner https 443 $args
+ eval [linsert $args 0 uri::JoinHttpInner https 443]
}
proc ::uri::JoinHttpInner {scheme defport args} {
@@ -587,7 +587,7 @@
}
catch { set baseparts(query) $relparts(query) }
catch { set baseparts(fragment) $relparts(fragment) }
- return [eval join [array get baseparts]]
+ return [eval [linsert [array get baseparts] 0 join]]
}
default {
return -code error "unable to resolve relative URL \"$url\""
@@ -635,7 +635,7 @@
switch -- $urlparts(scheme) {
file {
- return [eval file_geturl [list $url] $args]
+ return [eval [linsert $args 0 file_geturl $url]]
}
default {
# Load a geturl package for the scheme first and only if
@@ -644,7 +644,7 @@
if {[catch {package require $urlparts(scheme)::geturl}]} {
package require $urlparts(scheme)
}
- return [eval [list $urlparts(scheme)::geturl $url] $args]
+ return [eval [linsert $args 0 $urlparts(scheme)::geturl $url]]
}
}
}
@@ -696,7 +696,7 @@
proc ::uri::join args {
array set components $args
- return [eval [list Join[string totitle $components(scheme)]] $args]
+ return [eval [linsert $args 0 Join[string totitle $components(scheme)]]]
}
# ::uri::canonicalize --
@@ -754,7 +754,7 @@
if { $uri == ".." } { set uri "/" }
set u(path) $uri
- set uri [eval uri::join [array get u]]
+ set uri [eval [linsert [array get u] 0 uri::join]]
return $uri
}
Index: html/html.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/html/html.tcl,v
retrieving revision 1.32
diff -u -b -r1.32 html.tcl
--- html/html.tcl 11 Apr 2003 18:27:11 -0000 1.32
+++ html/html.tcl 3 Dec 2003 01:02:04 -0000
@@ -310,7 +310,7 @@
proc ::html::eval {args} {
# The args must be evaluated in the stack frame above this one.
- ::eval uplevel $args
+ ::eval [linsert $args 0 uplevel]
return ""
}
@@ -657,7 +657,7 @@
proc ::html::textInputRow {label name {value {}} args} {
variable defaults
- ::set html [row $label [::eval [list html::textInput $name $value] $args]]
+ ::set html [row $label [::eval [linsert $args 0 html::textInput $name $value]]]
return $html
}
Index: fileutil/fileutil.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/fileutil/fileutil.tcl,v
retrieving revision 1.31
diff -u -b -r1.31 fileutil.tcl
--- fileutil/fileutil.tcl 15 Nov 2003 00:23:46 -0000 1.31
+++ fileutil/fileutil.tcl 3 Dec 2003 01:02:10 -0000
@@ -398,7 +398,7 @@
set npath [file split $path]
if {[string match ${pwd}* $npath]} {
- set path [eval file join [lrange $npath [llength $pwd] end]]
+ set path [eval [linsert [lrange $npath [llength $pwd] end] 0 file join ]]
}
return $path
}
@@ -419,7 +419,7 @@
if {$n >= [llength $path]} {
return {}
} else {
- return [eval file join [lrange $path $n end]]
+ return [eval [linsert [lrange $path $n end] 0 file join]]
}
}
Index: nntp/nntp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/nntp/nntp.tcl,v
retrieving revision 1.10
diff -u -b -r1.10 nntp.tcl
--- nntp/nntp.tcl 11 Apr 2003 20:04:39 -0000 1.10
+++ nntp/nntp.tcl 3 Dec 2003 01:02:19 -0000
@@ -170,7 +170,7 @@
# Call the appropriate command with its arguments
- return [eval [list ::nntp::_$cmd $name] $args]
+ return [eval [linsert $args 0 ::nntp::_$cmd $name]]
}
# ::nntp::okprint --
@@ -762,7 +762,7 @@
}
proc ::nntp::command {name args} {
- set res [eval [list ::nntp::cmd $name] $args]
+ set res [eval [linsert $args 0 ::nntp::cmd $name]]
return [::nntp::response $name]
}
Index: mime/mime.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.tcl,v
retrieving revision 1.34
diff -u -b -r1.34 mime.tcl
--- mime/mime.tcl 21 Nov 2003 06:07:57 -0000 1.34
+++ mime/mime.tcl 3 Dec 2003 01:02:37 -0000
@@ -244,7 +244,7 @@
variable $token
upvar 0 $token state
- if {[set code [catch { eval [list mime::initializeaux $token] $args } \
+ if {[set code [catch { eval [linsert $args 0 mime::initializeaux $token] } \
result]]} {
set ecode $errorCode
set einfo $errorInfo
@@ -927,14 +927,14 @@
all {
if {![string compare $state(value) parts]} {
foreach part $state(parts) {
- eval [list mime::finalize $part] $args
+ eval [linsert $args 0 mime::finalize $part]
}
}
}
dynamic {
for {set cid $state(cid)} {$cid > 0} {incr cid -1} {
- eval [list mime::finalize $token-$cid] $args
+ eval [linsert $args 0 mime::finalize $token-$cid]
}
}
Index: inifile/ini.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/inifile/ini.tcl,v
retrieving revision 1.3
diff -u -b -r1.3 ini.tcl
--- inifile/ini.tcl 15 Jul 2003 18:26:59 -0000 1.3
+++ inifile/ini.tcl 3 Dec 2003 01:02:44 -0000
@@ -249,9 +249,9 @@
return $comments($sec\000$key)
}
if { $key == "" } {
- eval [list lappend comments($sec)] $args
+ eval [linsert $args 0 lappend comments($sec)]
} else {
- eval [list lappend comments($sec\000$key)] $args
+ eval [linsert $args 0 lappend comments($sec\000$key)]
}
}
