.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         break $arg0
  10         continue
  11         clear $arg0
  12         end
  13 define rtl
  14         break main
  15         run
  16         clear main
  17         break $arg0
  18         continue
  19 #       clear $arg0
  20         end
  21 define pglist3
  22         if (*("$arg1")=='@')
  23                 set var $arg1=struct $arg1
  24         set var $pglist_list=$arg0
  25         while ($pglist_list)
  26                 if (!strcmp("$arg2","."))
  27                         print *(($arg1 *)$pglist_list->data)
  28                 else
  29                         print *(($arg1 *)$pglist_list->data)$arg2
  30                         end
  31                 set var $pglist_list=$pglist_list->next
  32                 end
  33         end
  34 define pglist
  35         pglist3 $arg0 $arg1 .
  36         end