--- /dev/null
+set history filename /home/short/.gdb_history
+set history save on
+define rt
+ break $arg0
+ run
+# clear $arg0
+ end
+define ct
+ break $arg0
+ continue
+ clear $arg0
+ end
+define rtl
+ break main
+ run
+ clear main
+ break $arg0
+ continue
+# clear $arg0
+ end
+define pglist3
+ if (*("$arg1")=='@')
+ set var $arg1=struct $arg1
+ set var $pglist_list=$arg0
+ while ($pglist_list)
+ if (!strcmp("$arg2","."))
+ print *(($arg1 *)$pglist_list->data)
+ else
+ print *(($arg1 *)$pglist_list->data)$arg2
+ end
+ set var $pglist_list=$pglist_list->next
+ end
+ end
+define pglist
+ pglist3 $arg0 $arg1 .
+ end