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