Artifact 1dd54d60fced17d6472c0300f393aa021cfb1a7f:

• File packages/list/lib/ordered.tcl — part of check-in [90e5129ce9] at 2021-02-14 22:28:23 on branch trunk — list ordered

  new routine

  insert

  (user: pooryorick size: 455)

#! /usr/bin/env tclsh


proc ensure {listname value args} {
	upvar $listname list
	set idx [lsearch -exact -bisect $list $arg]
	if {$idx >= 0 && [lindex $list $idx] eq $idx} {
		return $idx
	}
	incr idx
	linsert list $idx $value 
}


proc insert {listname value} {
	upvar $listname list
	if {[info exists list]} {
		set idx [lsearch -bisect $list $value]
		incr idx
		set list [linsert $list[set list {}] $idx $value]
	} else {
		lappend list $value
	}
}