.gdbinit

   1 set history filename /home/short/.gdb_history
   2 set history save on
   3 define rt
   4         break $arg0
   5         run
   6 #       clear $arg0
   7         end
   8 define ct
   9         tbreak $arg0
  10         continue
  11         end
  12 define rtl
  13         tbreak main
  14         run
  15         break $arg0
  16         continue
  17 #       clear $arg0
  18         end
  19 define pglist3
  20         if (*("$arg1")=='@')
  21                 set var $arg1=struct $arg1
  22                 end
  23         set var $pglist_list=$arg0
  24         while ($pglist_list)
  25                 if (!strcmp("$arg2","."))
  26                         print *(($arg1 *)$pglist_list->data)
  27                 else
  28                         print *(($arg1 *)$pglist_list->data)$arg2
  29                         end
  30                 set var $pglist_list=$pglist_list->next
  31                 end
  32         end
  33 define pglist
  34         pglist3 $arg0 $arg1 .
  35         end