+end
+document pglist
+GList or GSList dumper iterating by `->next':
+pglist <head pointer> {<data type>|@<struct data type>} [<data field to display>]
+end
+define plist
+ set var $plist_iter=$arg0
+ while ($plist_iter)
+ if $argc==1
+ print *$plist_iter
+ else
+ print $plist_iter->$arg1
+ end
+ set var $plist_iter=$plist_iter->next