Lines Matching refs:mytree
32 tree mytree
33 catch {tree mytree} msg
34 mytree destroy
36 } "command \"::mytree\" already exists, unable to create tree"
38 tree mytree
39 catch {mytree} msg
40 mytree destroy
42 } "wrong # args: should be \"::mytree option ?arg arg ...?\""
44 tree mytree
45 catch {mytree foo} msg
46 mytree destroy
56 tree mytree
58 lappend result [mytree children root]
59 mytree insert root end {IT::EM 0}
60 mytree insert root end {IT::EM 1}
61 mytree insert root end {IT::EM 2}
62 mytree insert {IT::EM 0} end {IT::EM 3}
63 mytree insert {IT::EM 0} end {IT::EM 4}
64 lappend result [mytree children root]
65 lappend result [mytree children {IT::EM 0}]
66 mytree destroy
70 tree mytree
71 set result [catch {mytree children foobar} msg]
72 mytree destroy
74 } [list 1 "node \"foobar\" does not exist in tree \"::mytree\""]
77 tree mytree
78 set result [string equal [info commands ::mytree] "::mytree"]
79 mytree destroy
90 tree mytree
91 mytree destroy
92 string equal [info commands ::mytree] ""
96 tree mytree
97 catch {mytree delete root} msg
98 mytree destroy
102 tree mytree
103 catch {mytree delete {IT::EM 0}} msg
104 mytree destroy
106 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
108 tree mytree
109 mytree insert root end {IT::EM 0}
110 mytree delete {IT::EM 0}
111 set result [list [mytree exists {IT::EM 0}] [mytree children root]]
112 mytree destroy
116 tree mytree
117 mytree insert root end {IT::EM 0}
118 mytree insert {IT::EM 0} end {IT::EM 1}
119 mytree insert {IT::EM 1} end {IT::EM 2}
120 mytree delete {IT::EM 0}
121 set result [list [mytree exists {IT::EM 0}] \
122 [mytree exists {IT::EM 1}] \
123 [mytree exists {IT::EM 2}]]
124 mytree destroy
129 tree mytree
131 lappend result [mytree exists root]
132 mytree insert root end {IT::EM 0}
133 lappend result [mytree exists {IT::EM 0}]
134 mytree delete {IT::EM 0}
135 lappend result [mytree exists {IT::EM 0}]
136 mytree destroy
141 tree mytree
142 mytree insert root end {IT::EM 0}
144 lappend result [mytree exists {IT::EM 0}]
145 lappend result [mytree parent {IT::EM 0}]
146 lappend result [mytree children {IT::EM 0}]
147 lappend result [mytree set {IT::EM 0}]
148 lappend result [mytree children root]
149 mytree destroy
153 tree mytree
154 mytree insert root end {IT::EM 0}
155 mytree insert root end {IT::EM 1}
156 mytree insert root 0 {IT::EM 2}
157 set result [mytree children root]
158 mytree destroy
162 tree mytree
163 catch {mytree insert {IT::EM 0} end {IT::EM 1}} msg
164 mytree destroy
166 } "parent node \"IT::EM 0\" does not exist in tree \"::mytree\""
168 tree mytree
169 set result [list [mytree insert root end]]
170 lappend result [mytree insert root end]
171 mytree insert root end {IT::EM 3}
172 lappend result [mytree insert root end]
173 mytree destroy
177 tree mytree
178 mytree insert root end a b c d e f
179 set result [mytree children root]
180 mytree destroy
184 tree mytree
185 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2} {IT::EM 3}
186 mytree insert {IT::EM 0} end {IT::EM 4} {IT::EM 5} {IT::EM 6}
187 mytree insert root end {IT::EM 4}
188 set result [list [mytree children root] [mytree children {IT::EM 0}]]
189 mytree destroy
193 tree mytree
194 mytree insert root end {IT::EM 0}
195 mytree insert {IT::EM 0} end {IT::EM 1}
196 mytree insert {IT::EM 1} end {IT::EM 2}
197 mytree insert root end {IT::EM 1} {IT::EM 2}
199 [mytree children root] \
200 [mytree children {IT::EM 0}] \
201 [mytree children {IT::EM 1}] \
202 [mytree parent {IT::EM 1}] \
203 [mytree parent {IT::EM 2}] \
205 mytree destroy
209 tree mytree
210 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2}
211 mytree insert root 0 {IT::EM 1} {IT::EM 2}
213 [mytree children root] \
215 mytree destroy
219 tree mytree
220 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2}
221 mytree insert root 1 {IT::EM 0} {IT::EM 1}
222 set result [mytree children root]
223 mytree destroy
227 tree mytree
228 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2} {IT::EM 3}
229 mytree insert root 2 {IT::EM 1}
230 set result [mytree children root]
231 mytree destroy
235 tree mytree
236 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2} {IT::EM 3}
237 mytree insert {IT::EM 3} end {IT::EM 4} {IT::EM 5} {IT::EM 6}
238 mytree insert root 2 {IT::EM 0} {IT::EM 4} {IT::EM 5} {IT::EM 6}
239 set result [mytree children root]
240 mytree destroy
244 tree mytree
245 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2} {IT::EM 3}
246 mytree insert root 2 {IT::EM 0}
247 set result [mytree children root]
248 mytree destroy
252 tree mytree
253 catch {mytree insert root end root} msg
254 mytree destroy
258 tree mytree
259 mytree insert root end {IT::EM 0}
260 catch {mytree insert {IT::EM 0} end {IT::EM 0}} msg
261 mytree destroy
265 tree mytree
266 mytree insert root end {IT::EM 0}
267 mytree insert {IT::EM 0} end {IT::EM 1}
268 mytree insert {IT::EM 1} end {IT::EM 2}
269 catch {mytree insert {IT::EM 2} end {IT::EM 0}} msg
270 mytree destroy
274 tree mytree
275 catch {mytree insert root end ":\n\t "} msg
276 mytree destroy
280 tree mytree
286 set msg [mytree insert root end $node]
287 lappend msg [mytree isleaf $node]
288 mytree insert $node end yummy
289 lappend msg [mytree size $node]
290 lappend msg [mytree isleaf $node]
291 mytree set $node foo
292 mytree walk root -command [list walker %n]
294 lappend msg [mytree keys $node]
295 lappend msg [mytree parent $node]
296 lappend msg [mytree set $node]
297 mytree destroy
302 tree mytree
303 mytree insert root end {IT::EM 0}
304 catch {mytree move {IT::EM 0} end root} msg
305 mytree destroy
309 tree mytree
310 catch {mytree move root end {IT::EM 0}} msg
311 mytree destroy
313 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
315 tree mytree
316 catch {mytree move {IT::EM 0} end {IT::EM 0}} msg
317 mytree destroy
319 } "parent node \"IT::EM 0\" does not exist in tree \"::mytree\""
321 tree mytree
322 mytree insert root end {IT::EM 0}
323 catch {mytree move {IT::EM 0} end {IT::EM 0}} msg
324 mytree destroy
328 tree mytree
329 mytree insert root end {IT::EM 0}
330 mytree insert {IT::EM 0} end {IT::EM 1}
331 mytree insert {IT::EM 1} end {IT::EM 2}
332 catch {mytree move {IT::EM 2} end {IT::EM 0}} msg
333 mytree destroy
337 tree mytree
338 mytree insert root end {IT::EM 0}
339 mytree insert {IT::EM 0} end {IT::EM 1}
340 mytree insert {IT::EM 1} end {IT::EM 2}
341 mytree move {IT::EM 0} end {IT::EM 2}
342 set result [list [mytree children {IT::EM 0}] [mytree children {IT::EM 1}]]
343 lappend result [mytree parent {IT::EM 2}]
344 mytree destroy
348 tree mytree
349 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2}
350 mytree move root 0 {IT::EM 1} {IT::EM 2}
352 [mytree children root] \
354 mytree destroy
358 tree mytree
359 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2}
360 mytree move root 1 {IT::EM 0} {IT::EM 1}
361 set result [mytree children root]
362 mytree destroy
366 tree mytree
367 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2} {IT::EM 3}
368 mytree move root 2 {IT::EM 1}
369 set result [mytree children root]
370 mytree destroy
374 tree mytree
375 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2} {IT::EM 3}
376 mytree insert {IT::EM 3} end {IT::EM 4} {IT::EM 5} {IT::EM 6}
377 mytree move root 2 {IT::EM 0} {IT::EM 4} {IT::EM 5} {IT::EM 6}
378 set result [mytree children root]
379 mytree destroy
383 tree mytree
384 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2} {IT::EM 3}
385 mytree move root 2 {IT::EM 0}
386 set result [mytree children root]
387 mytree destroy
391 tree mytree
392 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2} {IT::EM 3}
393 mytree move root [mytree index [mytree next {IT::EM 0}]] {IT::EM 0}
394 set result [mytree children root]
395 mytree destroy
399 tree mytree
400 mytree insert root end {IT::EM 0} {IT::EM 1} {IT::EM 2} {IT::EM 3}
401 mytree move root [mytree index [mytree previous {IT::EM 2}]] {IT::EM 2}
402 set result [mytree children root]
403 mytree destroy
408 tree mytree
409 catch {mytree parent {IT::EM 0}} msg
410 mytree destroy
412 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
414 tree mytree
415 mytree insert root end {IT::EM 0}
416 set result [list [mytree parent {IT::EM 0}] [mytree parent root]]
417 mytree destroy
422 tree mytree
423 catch {mytree size {IT::EM 0}} msg
424 mytree destroy
426 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
428 tree mytree
429 set result [mytree size]
430 mytree destroy
434 tree mytree
435 mytree insert root end {IT::EM 0}
436 mytree insert root end {IT::EM 1}
437 mytree insert root end {IT::EM 2}
438 mytree insert root end {IT::EM 3}
439 mytree insert root end {IT::EM 4}
440 mytree insert root end {IT::EM 5}
441 set result [mytree size]
442 mytree destroy
446 tree mytree
447 mytree insert root end {IT::EM 0}
448 mytree insert {IT::EM 0} end {IT::EM 1}
449 mytree insert {IT::EM 0} end {IT::EM 2}
450 mytree insert {IT::EM 0} end {IT::EM 3}
451 mytree insert {IT::EM 1} end {IT::EM 4}
452 mytree insert {IT::EM 1} end {IT::EM 5}
453 set result [mytree size {IT::EM 0}]
454 mytree destroy
458 tree mytree
459 mytree insert root end {IT::EM 0}
460 mytree insert {IT::EM 0} end {IT::EM 1}
461 mytree insert {IT::EM 0} end {IT::EM 2}
462 mytree insert {IT::EM 0} end {IT::EM 3}
463 mytree insert {IT::EM 1} end {IT::EM 4}
464 mytree insert {IT::EM 1} end {IT::EM 5}
465 set result [mytree size {IT::EM 1}]
466 mytree destroy
471 tree mytree
472 catch {mytree set {IT::EM 0}} msg
473 mytree destroy
475 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
477 tree mytree
478 mytree insert root end {IT::EM 0}
479 mytree set {IT::EM 0} foobar
480 set result [mytree set {IT::EM 0}]
481 mytree destroy
485 tree mytree
486 mytree insert root end {IT::EM 0}
487 mytree set {IT::EM 0} -key baz foobar
488 set result [list [mytree set {IT::EM 0}] [mytree set {IT::EM 0} -key baz]]
489 mytree destroy
493 tree mytree
494 mytree insert root end {IT::EM 0}
495 catch {mytree set {IT::EM 0} foo bar baz boo} msg
496 mytree destroy
498 } "wrong # args: should be \"::mytree set {IT::EM 0} ?-key key? ?value?\""
500 tree mytree
501 mytree insert root end {IT::EM 0}
502 catch {mytree set {IT::EM 0} foo bar} msg
503 mytree destroy
507 tree mytree
508 mytree insert root end {IT::EM 0}
509 catch {mytree set {IT::EM 0} foo bar baz} msg
510 mytree destroy
514 tree mytree
515 mytree insert root end {IT::EM 0}
516 catch {mytree set {IT::EM 0} -key foo} msg
517 mytree destroy
522 tree mytree
523 catch {mytree depth {IT::EM 0}} msg
524 mytree destroy
526 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
528 tree mytree
529 set result [mytree depth root]
530 mytree destroy
534 tree mytree
535 mytree insert root end {IT::EM 0}
536 mytree insert {IT::EM 0} end {IT::EM 1}
537 mytree insert {IT::EM 1} end {IT::EM 2}
538 mytree insert {IT::EM 2} end {IT::EM 3}
539 set result [mytree depth {IT::EM 3}]
540 mytree destroy
545 tree mytree
547 mytree insert root end {IT::EM 0}
548 mytree insert root end {IT::EM 1}
549 mytree insert {IT::EM 0} end {IT::EM 0.1}
550 mytree insert {IT::EM 0} end {IT::EM 0.2}
551 mytree insert {IT::EM 1} end {IT::EM 1.1}
552 mytree insert {IT::EM 1} end {IT::EM 1.2}
553 mytree walk root -type dfs -command {lappend t %a %t %n}
554 mytree destroy
556 } [list enter ::mytree root enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 0.1} \
557 enter ::mytree {IT::EM 0.2} enter ::mytree {IT::EM 1} \
558 enter ::mytree {IT::EM 1.1} enter ::mytree {IT::EM 1.2}]
561 tree mytree
563 mytree insert root end {IT::EM 0}
564 mytree insert root end {IT::EM 1}
565 mytree insert {IT::EM 0} end {IT::EM 0.1}
566 mytree insert {IT::EM 0} end {IT::EM 0.2}
567 mytree insert {IT::EM 1} end {IT::EM 1.1}
568 mytree insert {IT::EM 1} end {IT::EM 1.2}
569 mytree walk root -order post -type dfs -command {lappend t %a %t %n}
570 mytree destroy
572 } [list leave ::mytree {IT::EM 0.1} leave ::mytree {IT::EM 0.2} leave ::mytree {IT::EM 0} \
573 leave ::mytree {IT::EM 1.1} leave ::mytree {IT::EM 1.2} \
574 leave ::mytree {IT::EM 1} leave ::mytree root]
577 tree mytree
579 mytree insert root end {IT::EM 0}
580 mytree insert root end {IT::EM 1}
581 mytree insert {IT::EM 0} end {IT::EM 0.1}
582 mytree insert {IT::EM 0} end {IT::EM 0.2}
583 mytree insert {IT::EM 1} end {IT::EM 1.1}
584 mytree insert {IT::EM 1} end {IT::EM 1.2}
585 mytree walk root -order both -type dfs -command {lappend t %a %t %n}
586 mytree destroy
588 } [list enter ::mytree root enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 0.1} \
589 leave ::mytree {IT::EM 0.1} enter ::mytree {IT::EM 0.2} leave ::mytree {IT::EM 0.2} \
590 leave ::mytree {IT::EM 0} enter ::mytree {IT::EM 1} enter ::mytree {IT::EM 1.1} \
591 leave ::mytree {IT::EM 1.1} enter ::mytree {IT::EM 1.2} leave ::mytree {IT::EM 1.2} \
592 leave ::mytree {IT::EM 1} leave ::mytree root]
595 tree mytree
597 mytree insert root end {IT::EM 0}
598 mytree insert root end {IT::EM 1}
599 mytree insert {IT::EM 0} end {IT::EM 0.1}
600 mytree insert {IT::EM 0} end {IT::EM 0.2}
601 mytree insert {IT::EM 1} end {IT::EM 1.1}
602 mytree insert {IT::EM 1} end {IT::EM 1.2}
603 mytree walk root -order in -type dfs -command {lappend t %a %t %n}
604 mytree destroy
606 } [list visit ::mytree {IT::EM 0.1} visit ::mytree {IT::EM 0} visit ::mytree {IT::EM 0.2} \
607 visit ::mytree root visit ::mytree {IT::EM 1.1} visit ::mytree {IT::EM 1} \
608 visit ::mytree {IT::EM 1.2}]
611 tree mytree
613 mytree insert root end {IT::EM 0}
614 mytree insert root end {IT::EM 1}
615 mytree insert {IT::EM 0} end {IT::EM 0.1}
616 mytree insert {IT::EM 0} end {IT::EM 0.2}
617 mytree insert {IT::EM 1} end {IT::EM 1.1}
618 mytree insert {IT::EM 1} end {IT::EM 1.2}
619 mytree walk root -type dfs -command {lappend t %n %%}
620 mytree destroy
627 tree mytree
629 mytree insert root end {IT::EM 0}
630 mytree insert root end {IT::EM 1}
631 mytree insert {IT::EM 0} end {IT::EM 0.1}
632 mytree insert {IT::EM 0} end {IT::EM 0.2}
633 mytree insert {IT::EM 1} end {IT::EM 1.1}
634 mytree insert {IT::EM 1} end {IT::EM 1.2}
635 mytree walk root -type dfs -command {lappend t %% %t}
636 mytree destroy
638 } [list % ::mytree % ::mytree % ::mytree \
639 % ::mytree % ::mytree \
640 % ::mytree % ::mytree]
643 tree mytree
645 mytree insert root end "node/0"
646 mytree insert root end "node/1"
647 mytree insert "node/0" end "node/0/1"
648 mytree insert "node/0" end "node/0/2"
649 mytree insert "node/1" end "node/1/1"
650 mytree insert "node/1" end "node/1/2"
651 mytree walk root -type dfs -command {lappend t %n}
652 mytree destroy
657 tree mytree
659 mytree insert root end {IT::EM 0}
660 mytree insert root end {IT::EM 1}
661 mytree insert {IT::EM 0} end {IT::EM 0.1}
662 mytree insert {IT::EM 0} end {IT::EM 0.2}
663 mytree insert {IT::EM 1} end {IT::EM 1.1}
664 mytree insert {IT::EM 1} end {IT::EM 1.2}
665 mytree walk root -type bfs -command {lappend t %a %t %n}
666 mytree destroy
668 } [list enter ::mytree root enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 1} \
669 enter ::mytree {IT::EM 0.1} enter ::mytree {IT::EM 0.2} enter ::mytree {IT::EM 1.1} \
670 enter ::mytree {IT::EM 1.2}]
673 tree mytree
675 mytree insert root end {IT::EM 0}
676 mytree insert root end {IT::EM 1}
677 mytree insert {IT::EM 0} end {IT::EM 0.1}
678 mytree insert {IT::EM 0} end {IT::EM 0.2}
679 mytree insert {IT::EM 1} end {IT::EM 1.1}
680 mytree insert {IT::EM 1} end {IT::EM 1.2}
681 mytree walk root -type bfs -order post -command {lappend t %a %t %n}
682 mytree destroy
684 } [list leave ::mytree {IT::EM 1.2} leave ::mytree {IT::EM 1.1} leave ::mytree {IT::EM 0.2} \
685 leave ::mytree {IT::EM 0.1} leave ::mytree {IT::EM 1} leave ::mytree {IT::EM 0} \
686 leave ::mytree root]
689 tree mytree
691 mytree insert root end {IT::EM 0}
692 mytree insert root end {IT::EM 1}
693 mytree insert {IT::EM 0} end {IT::EM 0.1}
694 mytree insert {IT::EM 0} end {IT::EM 0.2}
695 mytree insert {IT::EM 1} end {IT::EM 1.1}
696 mytree insert {IT::EM 1} end {IT::EM 1.2}
697 mytree walk root -type bfs -order both -command {lappend t %a %t %n}
698 mytree destroy
700 } [list enter ::mytree root enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 1} \
701 enter ::mytree {IT::EM 0.1} enter ::mytree {IT::EM 0.2} enter ::mytree {IT::EM 1.1} \
702 enter ::mytree {IT::EM 1.2} leave ::mytree {IT::EM 1.2} leave ::mytree {IT::EM 1.1} \
703 leave ::mytree {IT::EM 0.2} leave ::mytree {IT::EM 0.1} leave ::mytree {IT::EM 1} \
704 leave ::mytree {IT::EM 0} leave ::mytree root]
707 tree mytree
709 mytree insert root end {IT::EM 0}
710 mytree insert root end {IT::EM 1}
711 mytree insert {IT::EM 0} end {IT::EM 0.1}
712 mytree insert {IT::EM 0} end {IT::EM 0.2}
713 mytree insert {IT::EM 1} end {IT::EM 1.1}
714 mytree insert {IT::EM 1} end {IT::EM 1.2}
715 mytree walk root -command {lappend t %a %t %n}
716 mytree destroy
718 } [list enter ::mytree root enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 0.1} \
719 enter ::mytree {IT::EM 0.2} enter ::mytree {IT::EM 1} \
720 enter ::mytree {IT::EM 1.1} enter ::mytree {IT::EM 1.2}]
722 tree mytree
723 catch {mytree walk} msg
724 mytree destroy
728 tree mytree
729 catch {mytree walk root} msg
730 mytree destroy
732 } "wrong # args: should be \"::mytree walk root ?-type {bfs|dfs}? ?-order {pre|post|in|both}? -comm…
734 tree mytree
735 catch {mytree walk root -foo bar -baz boo -foo2 boo -foo3 baz} msg
736 mytree destroy
738 } "wrong # args: should be \"::mytree walk root ?-type {bfs|dfs}? ?-order {pre|post|in|both}? -comm…
740 tree mytree
741 catch {mytree walk {IT::EM 0} -command {}} msg
742 mytree destroy
744 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
746 tree mytree
747 catch {mytree walk root -type foo -command foo} msg
748 mytree destroy
752 tree mytree
753 catch {mytree walk root -order foo -command foo} msg
754 mytree destroy
758 tree mytree
759 catch {mytree walk root -order in -type bfs -command foo} msg
760 mytree destroy
764 tree mytree
765 catch {mytree walk root -foo bar} msg
766 mytree destroy
768 } "unknown option \"-foo\": should be \"::mytree walk root ?-type {bfs|dfs}? ?-order {pre|post|in|b…
770 tree mytree
771 catch {mytree walk root -type dfs -order} msg
772 mytree destroy
774 } "value for \"-order\" missing: should be \"::mytree walk root ?-type {bfs|dfs}? ?-order {pre|post…
776 tree mytree
777 catch {mytree walk root -order pre} msg
778 mytree destroy
780 } "no command specified: should be \"::mytree walk root ?-type {bfs|dfs}? ?-order {pre|post|in|both…
784 tree mytree
785 catch {mytree swap root {IT::EM 0}} msg
786 mytree destroy
790 tree mytree
791 catch {mytree swap {IT::EM 0} {IT::EM 1}} msg
792 mytree destroy
794 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
796 tree mytree
797 mytree insert root end {IT::EM 0}
798 catch {mytree swap {IT::EM 0} {IT::EM 1}} msg
799 mytree destroy
801 } "node \"IT::EM 1\" does not exist in tree \"::mytree\""
803 tree mytree
804 mytree insert root end {IT::EM 0}
805 catch {mytree swap {IT::EM 0} {IT::EM 0}} msg
806 mytree destroy
810 tree mytree
811 mytree insert root end {IT::EM 0}
812 mytree insert {IT::EM 0} end {IT::EM 0.1}
813 mytree insert {IT::EM 0} end {IT::EM 0.2}
814 mytree insert {IT::EM 0.1} end {IT::EM 0.1.1}
815 mytree insert {IT::EM 0.1} end {IT::EM 0.1.2}
816 mytree swap {IT::EM 0} {IT::EM 0.1}
818 mytree walk root -command {lappend t %a %t %n}
819 mytree destroy
821 } [list enter ::mytree root enter ::mytree {IT::EM 0.1} enter ::mytree {IT::EM 0} \
822 enter ::mytree {IT::EM 0.1.1} enter ::mytree {IT::EM 0.1.2} enter ::mytree {IT::EM 0.2}]
824 tree mytree
825 mytree insert root end {IT::EM 0}
826 mytree insert {IT::EM 0} end {IT::EM 0.1}
827 mytree insert {IT::EM 0} end {IT::EM 0.2}
828 mytree insert {IT::EM 0.1} end {IT::EM 0.1.1}
829 mytree insert {IT::EM 0.1} end {IT::EM 0.1.2}
830 mytree swap {IT::EM 0} {IT::EM 0.1.1}
832 mytree walk root -command {lappend t %a %t %n}
833 mytree destroy
835 } [list enter ::mytree root enter ::mytree {IT::EM 0.1.1} enter ::mytree {IT::EM 0.1} \
836 enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 0.1.2} enter ::mytree {IT::EM 0.2}]
838 tree mytree
839 mytree insert root end {IT::EM 0}
840 mytree insert root end {IT::EM 1}
841 mytree insert {IT::EM 0} end {IT::EM 0.1}
842 mytree insert {IT::EM 1} end {IT::EM 1.1}
843 mytree swap {IT::EM 0} {IT::EM 1}
845 mytree walk root -command {lappend t %a %t %n}
846 mytree destroy
848 } [list enter ::mytree root enter ::mytree {IT::EM 1} enter ::mytree {IT::EM 0.1} \
849 enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 1.1}]
851 tree mytree
852 mytree insert root end {IT::EM 0}
853 mytree insert {IT::EM 0} end {IT::EM 0.1}
854 mytree insert {IT::EM 0} end {IT::EM 0.2}
855 mytree insert {IT::EM 0.1} end {IT::EM 0.1.1}
856 mytree insert {IT::EM 0.1} end {IT::EM 0.1.2}
857 mytree swap {IT::EM 0.1} {IT::EM 0}
859 mytree walk root -command {lappend t %a %t %n}
860 mytree destroy
862 } [list enter ::mytree root enter ::mytree {IT::EM 0.1} enter ::mytree {IT::EM 0} \
863 enter ::mytree {IT::EM 0.1.1} enter ::mytree {IT::EM 0.1.2} enter ::mytree {IT::EM 0.2}]
866 tree mytree
867 catch {mytree get {IT::EM 0}} msg
868 mytree destroy
870 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
872 tree mytree
873 mytree insert root end {IT::EM 0}
874 catch {mytree get {IT::EM 0} -key bogus} msg
875 mytree destroy
879 tree mytree
880 mytree insert root end {IT::EM 0}
881 mytree set {IT::EM 0} foobar
882 set result [mytree get {IT::EM 0}]
883 mytree destroy
887 tree mytree
888 mytree insert root end {IT::EM 0}
889 mytree set {IT::EM 0} -key boom foobar
890 set result [mytree get {IT::EM 0} -key boom]
891 mytree destroy
896 tree mytree
897 catch {mytree unset {IT::EM 0}} msg
898 mytree destroy
900 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
902 tree mytree
903 mytree insert root end {IT::EM 0}
904 set result [catch {mytree unset {IT::EM 0} -key bogus}]
905 mytree destroy
909 tree mytree
910 mytree insert root end {IT::EM 0}
911 mytree set {IT::EM 0} -key foobar foobar
912 mytree unset {IT::EM 0} -key foobar
913 catch {mytree get {IT::EM 0} -key foobar} msg
914 mytree destroy
918 tree mytree
919 mytree insert root end {IT::EM 0}
920 mytree set {IT::EM 0} -key foobar foobar
921 catch {mytree unset {IT::EM 0} flaboozle foobar} msg
922 mytree destroy
924 } "invalid option \"flaboozle\": should be \"::mytree unset {IT::EM 0} ?-key key?\""
927 tree mytree
928 set t [mytree isleaf root]
929 mytree insert root end {IT::EM 0}
930 lappend t [mytree isleaf root] [mytree isleaf {IT::EM 0}]
931 mytree destroy
935 tree mytree
936 catch {mytree isleaf {IT::EM 0}} msg
937 mytree destroy
939 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
942 tree mytree
943 catch {mytree index root} msg
944 mytree destroy
948 tree mytree
949 mytree insert root end {IT::EM 1}
950 mytree insert root end {IT::EM 0}
951 set result [list [mytree index {IT::EM 0}] [mytree index {IT::EM 1}]]
952 mytree destroy
956 tree mytree
957 catch {mytree index {IT::EM 0}} msg
958 mytree destroy
960 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
963 tree mytree
964 set t [mytree numchildren root]
965 mytree insert root end {IT::EM 0}
966 lappend t [mytree numchildren root] [mytree numchildren {IT::EM 0}]
967 mytree destroy
971 tree mytree
972 catch {mytree numchildren {IT::EM 0}} msg
973 mytree destroy
975 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
978 tree mytree
979 set res [mytree next root]
980 mytree destroy
984 tree mytree
985 catch {mytree next {IT::EM 0}} msg
986 mytree destroy
988 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
990 tree mytree
991 mytree insert root end {IT::EM 0}
992 mytree insert root end {IT::EM 1}
993 set res [list [mytree next {IT::EM 0}] [mytree next {IT::EM 1}]]
994 mytree destroy
999 tree mytree
1000 set res [mytree previous root]
1001 mytree destroy
1005 tree mytree
1006 catch {mytree previous {IT::EM 0}} msg
1007 mytree destroy
1009 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
1011 tree mytree
1012 mytree insert root end {IT::EM 0}
1013 mytree insert root end {IT::EM 1}
1014 set res [list [mytree previous {IT::EM 0}] [mytree previous {IT::EM 1}]]
1015 mytree destroy
1020 tree mytree
1021 mytree insert root end {IT::EM 0}
1022 mytree insert root end {IT::EM 1}
1023 mytree insert root end {IT::EM 2}
1024 mytree insert {IT::EM 1} end {IT::EM 1.0}
1025 mytree insert {IT::EM 1} end {IT::EM 1.1}
1026 mytree insert {IT::EM 1} end {IT::EM 1.2}
1027 mytree cut {IT::EM 1}
1029 mytree walk root -command {lappend t %a %t %n}
1030 mytree destroy
1032 …enter ::mytree root enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 1.0} enter ::mytree {IT::EM 1…
1034 tree mytree
1035 catch {mytree cut root} msg
1036 mytree destroy
1040 tree mytree
1041 mytree insert root end {IT::EM 0}
1042 mytree insert root end {IT::EM 1}
1043 mytree insert root end {IT::EM 2}
1044 mytree insert {IT::EM 1} end {IT::EM 1.0}
1045 mytree insert {IT::EM 1} end {IT::EM 1.1}
1046 mytree insert {IT::EM 1} end {IT::EM 1.2}
1047 mytree cut {IT::EM 1}
1049 [mytree parent {IT::EM 1.0}] \
1050 [mytree parent {IT::EM 1.1}] \
1051 [mytree parent {IT::EM 1.2}]]
1052 mytree destroy
1056 tree mytree
1057 mytree insert root end {IT::EM 0}
1058 mytree insert root end {IT::EM 1}
1059 mytree insert root end {IT::EM 2}
1060 mytree insert {IT::EM 1} end {IT::EM 1.0}
1061 mytree insert {IT::EM 1} end {IT::EM 1.1}
1062 mytree insert {IT::EM 1} end {IT::EM 1.2}
1063 mytree cut {IT::EM 1}
1064 set res [mytree exists {IT::EM 1}]
1065 mytree destroy
1069 tree mytree
1070 catch {mytree cut {IT::EM 0}} msg
1071 mytree destroy
1073 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
1076 tree mytree
1077 mytree insert root end {IT::EM 0}
1078 mytree insert root end {IT::EM 1.0}
1079 mytree insert root end {IT::EM 1.1}
1080 mytree insert root end {IT::EM 1.2}
1081 mytree insert root end {IT::EM 2}
1082 mytree splice root 1 3 {IT::EM 1}
1084 mytree walk root -command {lappend t %a %t %n}
1085 mytree destroy
1087 …mytree root enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 1} enter ::mytree {IT::EM 1.0} enter …
1089 tree mytree
1090 mytree insert root end {IT::EM 0}
1091 mytree insert root end {IT::EM 1.0}
1092 mytree insert root end {IT::EM 1.1}
1093 mytree insert root end {IT::EM 1.2}
1094 mytree insert root end {IT::EM 2}
1095 set res [mytree splice root 1 3]
1097 mytree walk root -command {lappend t %a %t %n}
1098 mytree destroy
1100 …mytree root enter ::mytree {IT::EM 0} enter ::mytree node1 enter ::mytree {IT::EM 1.0} enter ::myt…
1102 tree mytree
1103 mytree insert root end {IT::EM 0}
1104 mytree insert root end {IT::EM 1.0}
1105 mytree insert root end {IT::EM 1.1}
1106 mytree insert root end {IT::EM 1.2}
1107 mytree insert root end {IT::EM 2}
1108 catch {mytree splice root 1 3 {IT::EM 0}} msg
1109 mytree destroy
1111 } "node \"IT::EM 0\" already exists in tree \"::mytree\""
1113 tree mytree
1114 mytree insert root end {IT::EM 0}
1115 mytree insert root end {IT::EM 1.0}
1116 mytree insert root end {IT::EM 1.1}
1117 mytree insert root end {IT::EM 1.2}
1118 mytree insert root end {IT::EM 2}
1119 mytree splice root 1 3 {IT::EM 1}
1121 [mytree parent {IT::EM 1}] \
1122 [mytree parent {IT::EM 1.0}] \
1123 [mytree parent {IT::EM 1.1}] \
1124 [mytree parent {IT::EM 1.2}]]
1125 mytree destroy
1129 tree mytree
1130 mytree insert root end {IT::EM 0}
1131 mytree insert root end {IT::EM 1.0}
1132 mytree insert root end {IT::EM 1.1}
1133 mytree insert root end {IT::EM 1.2}
1134 mytree insert root end {IT::EM 2}
1135 mytree splice root -5 12 {IT::EM 1}
1137 mytree walk root -command {lappend t %a %t %n}
1138 mytree destroy
1140 …mytree root enter ::mytree {IT::EM 1} enter ::mytree {IT::EM 0} enter ::mytree {IT::EM 1.0} enter …
1142 tree mytree
1143 mytree insert root end {IT::EM 0}
1144 mytree insert root end {IT::EM 1.0}
1145 mytree insert root end {IT::EM 1.1}
1146 mytree insert root end {IT::EM 1.2}
1147 mytree insert root end {IT::EM 2}
1148 mytree splice root 1
1150 mytree walk root -command {lappend t %a %t %n}
1151 mytree destroy
1153 …mytree root enter ::mytree {IT::EM 0} enter ::mytree node1 enter ::mytree {IT::EM 1.0} enter ::myt…
1156 tree mytree
1157 catch {mytree getall {IT::EM 0}} msg
1158 mytree destroy
1160 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
1162 tree mytree
1163 catch {mytree getall {IT::EM 0} -key data} msg
1164 mytree destroy
1166 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
1168 tree mytree
1169 mytree insert root end {IT::EM 0}
1170 mytree set {IT::EM 0} foobar
1171 mytree set {IT::EM 0} -key other thing
1172 set results [mytree getall {IT::EM 0}]
1173 mytree destroy
1178 tree mytree
1179 catch {mytree keys {IT::EM 0}} msg
1180 mytree destroy
1182 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
1184 tree mytree
1185 catch {mytree keys {IT::EM 0} -key data} msg
1186 mytree destroy
1188 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
1190 tree mytree
1191 mytree insert root end {IT::EM 0}
1192 mytree set {IT::EM 0} foobar
1193 mytree set {IT::EM 0} -key other thing
1194 set results [mytree keys {IT::EM 0}]
1195 mytree destroy
1200 tree mytree
1201 catch {mytree keyexists {IT::EM 0}} msg
1202 mytree destroy
1204 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
1206 tree mytree
1207 mytree insert root end {IT::EM 0}
1208 catch {mytree keyexists {IT::EM 0} -key bogus} msg
1209 mytree destroy
1213 tree mytree
1214 mytree insert root end {IT::EM 0}
1215 mytree set {IT::EM 0} foobar
1216 set result [mytree keyexists {IT::EM 0}]
1217 mytree destroy
1221 tree mytree
1222 mytree insert root end {IT::EM 0}
1223 mytree set {IT::EM 0} -key boom foobar
1224 set result [mytree keyexists {IT::EM 0} -key boom]
1225 mytree destroy
1230 tree mytree
1231 catch {mytree append {IT::EM 0}} msg
1232 mytree destroy
1234 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
1236 tree mytree
1237 mytree insert root end {IT::EM 0}
1238 mytree set {IT::EM 0} foo
1239 set result [mytree append {IT::EM 0} bar]
1240 mytree destroy
1244 tree mytree
1245 mytree insert root end {IT::EM 0}
1246 mytree set {IT::EM 0} -key baz foo
1247 set result [mytree append {IT::EM 0} -key baz bar]
1248 mytree destroy
1252 tree mytree
1253 mytree insert root end {IT::EM 0}
1254 catch {mytree append {IT::EM 0} foo bar baz boo} msg
1255 mytree destroy
1257 } "wrong # args: should be \"::mytree set {IT::EM 0} ?-key key? value\""
1259 tree mytree
1260 mytree insert root end {IT::EM 0}
1261 catch {mytree append {IT::EM 0} -foo bar baz} msg
1262 mytree destroy
1266 tree mytree
1267 mytree insert root end {IT::EM 0}
1268 mytree set {IT::EM 0} -key baz foo
1269 set result [mytree append {IT::EM 0} -key baz bar]
1270 mytree destroy
1275 tree mytree
1276 catch {mytree lappend {IT::EM 0}} msg
1277 mytree destroy
1279 } "node \"IT::EM 0\" does not exist in tree \"::mytree\""
1281 tree mytree
1282 mytree insert root end {IT::EM 0}
1283 mytree set {IT::EM 0} foo
1284 set result [mytree lappend {IT::EM 0} bar]
1285 mytree destroy
1289 tree mytree
1290 mytree insert root end {IT::EM 0}
1291 mytree set {IT::EM 0} -key baz foo
1292 set result [mytree lappend {IT::EM 0} -key baz bar]
1293 mytree destroy
1297 tree mytree
1298 mytree insert root end {IT::EM 0}
1299 catch {mytree lappend {IT::EM 0} foo bar baz boo} msg
1300 mytree destroy
1302 } "wrong # args: should be \"::mytree lappend {IT::EM 0} ?-key key? value\""
1304 tree mytree
1305 mytree insert root end {IT::EM 0}
1306 catch {mytree lappend {IT::EM 0} -foo bar baz} msg
1307 mytree destroy
1311 tree mytree
1312 mytree insert root end {IT::EM 0}
1313 mytree set {IT::EM 0} -key baz foo
1314 set result [mytree lappend {IT::EM 0} -key baz bar]
1315 mytree destroy
1322 tree mytree
1323 mytree insert root end 0
1324 mytree insert root end 1
1325 mytree insert root end 2
1326 mytree insert 0 end 3
1327 mytree insert 0 end 4
1329 set result [mytree serialize]
1330 mytree destroy
1338 tree mytree
1339 mytree insert root end 0
1340 mytree insert root end 1
1341 mytree insert root end 2
1342 mytree insert 0 end 3
1343 mytree insert 0 end 4
1345 set result [mytree serialize 0]
1346 mytree destroy