if $argc==1
print *$plist_iter
else
- print $plist_iter->$arg1
+ if $argc==2
+ print $plist_iter->$arg1
+ else
+ print$arg2 $plist_iter->$arg1
+ end
end
set var $plist_iter=$plist_iter->next
end
end
document plist
List dumper iterating by `->next':
-plist <head pointer> [<data field to display>]
+plist <head pointer> [<data field to display>] [/<format>]
+end
+define countlist
+ set var $countlist_iter=$arg0
+ set var $countlist_count=0
+ while ($countlist_iter)
+ set var $countlist_iter=$countlist_iter->next
+ set var $countlist_count=$countlist_count+1
+ end
+ p $countlist_count
+end
+document countlist
+List elements counter iterating by `->next':
+countlist <head pointer>
end
define debug
set debug infrun 1
set debug infrun 1
set debug lin-lwp 1
end
+define sip
+ stepi
+ x/i $pc
+end
+define nip
+ nexti
+ x/i $pc
+end