Lines Matching refs:oid
46 set oid [incr num_]
47 set data_($oid) [list]
48 return $oid
52 proc delete {oid} {
55 error_if $oid
56 unset data_($oid)
60 proc empty {oid} {
63 error_if $oid
64 return [expr {[llength $data_($oid)] == 0}]
67 # Push ELEM onto the stack given by OID.
68 proc push {oid elem} {
71 error_if $oid
72 lappend data_($oid) $elem
75 # Return and pop the top element on OID. It is an error to pop
77 proc pop {oid} {
80 error_if $oid
81 if {[llength $data_($oid)] == 0} {
84 set elem [lindex $data_($oid) end]
85 set data_($oid) [lreplace $data_($oid) end end]
90 proc length {oid} {
93 error_if $oid
94 return [llength $data_($oid)]
98 proc error_if {oid} {
101 if {![info exists data_($oid)]} {
102 ::error "object ID $oid does not exist"
132 # Remove and return the oldest element in the queue given by OID.
134 proc pop {oid} {
137 error_if $oid
138 if {[llength $data_($oid)] == 0} {
141 set elem [lindex $data_($oid) 0]
142 set data_($oid) [lreplace $data_($oid) 0 0]
147 proc unpush {oid elem} {
150 error_if $oid
151 set data_($oid) [linsert $data_($oid) 0 $elem]
Indexes created Sat Feb 28 05:31:39 UTC 2026