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

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
}