TABLE OF CONTENTS


::pwtk::type::intseq

SYNOPSIS

proc ::pwtk::type::intseq {value {increment 1}} {

PURPOSE

Check if a 'value' is a continuous integer sequence (e.g. 5 7 9 11)

ARGUMENTS

RETURN VALUE

SOURCE

    foreach i $value {
        ::pwtk::ifexist iold {
            if { $i - $iold != $increment } {
                return 0
            }
        }
        set iold $i
    }
    return 1
}