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