Anonymous user
Doubly-linked list/Definition: Difference between revisions
→{{header|Tcl}}: made really 8.4-able, added link to OO version
m (→{{header|Tcl}}: formatting) |
(→{{header|Tcl}}: made really 8.4-able, added link to OO version) |
||
Line 590:
The ''asList'' and ''asList2'' methods demonstrate
forward and backward traversal.
<lang Tcl>package require Tcl 8.4▼
See also [[Doubly-Linked List (element)]] for a TclOO-based version.
▲<lang Tcl>package require Tcl 8.4
proc dl {_name cmd {where error} {value ""}} {
upvar 1 $_name N
Line 685 ⟶ 687:
if {[string trim $case] ne ""} {
puts " $case -> [eval $case] : [dl D asList]"
if {
}
}</lang>
| |||