TABLE OF CONTENTS
::pwtk::lequal
SYNOPSIS
proc ::pwtk::lequal {l1 l2} {
PURPOSE
Check if the l1 and l2 lists are equal; if equal return 1, otherwise 0.
ARGUMENTS
- l1 -- the 1st list
- l2 -- the 2nd list
RETURN VALUE
1 or 0, depending on the equality of lists l1 and l2.
SOURCE
if { [llength $l1] != [llength $l2] } { return 0 } foreach e1 $l1 e2 $l2 { if { ! [string equal $e1 $e2] } { return 0 } } return 1 }