.gdbinit

   1 # Appears to be a default everywhere now:
   2 #set history filename /home/lace/.gdb_history
   3 #set history save on
   4 define rt
   5         break $arg0
   6         run
   7 #       clear $arg0
   8         end
   9 define ct
  10         tbreak $arg0
  11         continue
  12         end
  13 define rtl
  14         tbreak main
  15         run
  16         break $arg0
  17         continue
  18 #       clear $arg0
  19         end
  20 define pglist3
  21         if (*("$arg1")=='@')
  22                 set var $arg1=struct $arg1
  23                 end
  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