.gdbinit

   1 # See .bashrc: export GDBHISTFILE="$HOME/.gdb_history"
   2 # Should also work <jefyi6bzm6.fsf@sykes.suse.de> (untested):
   3 # set history filename ~/.gdb_history
   4 set history save on
   5 set complaints 10
   6 define rt
   7         break $arg0
   8         run
   9 #       clear $arg0
  10         end
  11 define ct
  12         tbreak $arg0
  13         continue
  14         end
  15 define rtl
  16         tbreak main
  17         run
  18         break $arg0
  19         continue
  20 #       clear $arg0
  21         end
  22 define pglist3
  23         if (*("$arg1")=='@')
  24                 set var $arg1=struct $arg1
  25                 end
  26         set var $pglist_list=$arg0
  27         while ($pglist_list)
  28                 if (!strcmp("$arg2","."))
  29                         print *(($arg1 *)$pglist_list->data)
  30                 else
  31                         print *(($arg1 *)$pglist_list->data)$arg2
  32                         end
  33                 set var $pglist_list=$pglist_list->next
  34                 end
  35         end
  36 define pglist
  37         pglist3 $arg0 $arg1 .
  38         end