Attachment "struct.diff" to
ticket [822850ffff]
added by
mic42
2003-10-13 23:58:51.
Index: matrix.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/matrix.tcl,v
retrieving revision 1.11
diff -u -b -r1.11 matrix.tcl
--- matrix.tcl 25 Feb 2003 21:12:47 -0000 1.11
+++ matrix.tcl 13 Oct 2003 16:56:20 -0000
@@ -148,7 +148,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::matrix::_$cmd $name] $args
+ eval [linsert $args 0 ::struct::matrix::_$cmd $name]
}
# ::struct::matrix::_add --
@@ -176,7 +176,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::matrix::__add_$cmd $name] $args
+ eval [linsert $args 0 ::struct::matrix::__add_$cmd $name]
}
# ::struct::matrix::_delete --
@@ -204,7 +204,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::matrix::__delete_$cmd $name] $args
+ eval [linsert $args 0 ::struct::matrix::__delete_$cmd $name]
}
# ::struct::matrix::_format --
@@ -232,7 +232,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::matrix::__format_$cmd $name] $args
+ eval [linsert $args 0 ::struct::matrix::__format_$cmd $name]
}
# ::struct::matrix::_get --
@@ -260,7 +260,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::matrix::__get_$cmd $name] $args
+ eval [linsert $args 0 ::struct::matrix::__get_$cmd $name]
}
# ::struct::matrix::_insert --
@@ -288,7 +288,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::matrix::__insert_$cmd $name] $args
+ eval [linsert $args 0 ::struct::matrix::__insert_$cmd $name]
}
# ::struct::matrix::_search --
@@ -433,7 +433,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::matrix::__set_$cmd $name] $args
+ eval [linsert $args 0 ::struct::matrix::__set_$cmd $name]
}
# ::struct::matrix::_swap --
@@ -461,7 +461,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::matrix::__swap_$cmd $name] $args
+ eval [linsert $args 0 ::struct::matrix::__swap_$cmd $name]
}
# ::struct::matrix::__add_column --
Index: pool.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/pool.tcl,v
retrieving revision 1.2
diff -u -b -r1.2 pool.tcl
--- pool.tcl 6 Aug 2002 20:40:42 -0000 1.2
+++ pool.tcl 13 Oct 2003 16:56:21 -0000
@@ -215,7 +215,7 @@
# pass the call to the pool command indicated by the subcmd argument,
# and return the result from that command.
- return [eval ::struct::pool::$subcmd $poolname $args]
+ return [eval [linsert $args 0 ::struct::pool::$subcmd $poolname]]
}
Index: prioqueue.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/prioqueue.tcl,v
retrieving revision 1.4
diff -u -b -r1.4 prioqueue.tcl
--- prioqueue.tcl 5 May 2003 16:13:07 -0000 1.4
+++ prioqueue.tcl 13 Oct 2003 16:56:22 -0000
@@ -160,7 +160,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- return [eval [list ::struct::prioqueue::_$cmd $name] $args]
+ return [eval [linsert $args 0 ::struct::prioqueue::_$cmd $name]]
}
# ::struct::prioqueue::_clear --
Index: queue.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/queue.tcl,v
retrieving revision 1.3
diff -u -b -r1.3 queue.tcl
--- queue.tcl 2 Jun 2000 18:43:56 -0000 1.3
+++ queue.tcl 13 Oct 2003 16:56:22 -0000
@@ -92,7 +92,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- return [eval [list ::struct::queue::_$cmd $name] $args]
+ return [eval [linsert $args 0 ::struct::queue::_$cmd $name]]
}
# ::struct::queue::_clear --
Index: record.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/record.tcl,v
retrieving revision 1.5
diff -u -b -r1.5 record.tcl
--- record.tcl 29 Jan 2003 06:26:03 -0000 1.5
+++ record.tcl 13 Oct 2003 16:56:23 -0000
@@ -335,7 +335,7 @@
}
}
incr _level
- eval Create $def ${inst_}.${inst} [lindex $args $cnt_plus]
+ eval [linsert [lindex $args $cnt_plus] 0 Create $def ${inst_}.${inst}]
set args [lreplace $args $cnt $cnt_plus]
} else {
Index: skiplist.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/skiplist.tcl,v
retrieving revision 1.1
diff -u -b -r1.1 skiplist.tcl
--- skiplist.tcl 15 Apr 2003 21:44:51 -0000 1.1
+++ skiplist.tcl 13 Oct 2003 16:56:24 -0000
@@ -164,7 +164,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::skiplist::_$cmd $name] $args
+ eval [linsert $args 0 ::struct::skiplist::_$cmd $name]
}
## ::struct::skiplist::_destroy --
Index: stack.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/stack.tcl,v
retrieving revision 1.3
diff -u -b -r1.3 stack.tcl
--- stack.tcl 2 Jun 2000 18:43:56 -0000 1.3
+++ stack.tcl 13 Oct 2003 16:56:25 -0000
@@ -85,7 +85,7 @@
set optlist [linsert $optlist "end-1" "or"]
error "bad option \"$cmd\": must be $optlist"
}
- eval [list ::struct::stack::_$cmd $name] $args
+ eval [linsert $args 0 ::struct::stack::_$cmd $name]
}
# ::struct::stack::_clear --
