+++ /dev/null
-set history filename /home/short/.gdb_history
-set history save on
-define rt
- break $arg0
- run
-# clear $arg0
- end
-define ct
- tbreak $arg0
- continue
- end
-define rtl
- tbreak main
- run
- break $arg0
- continue
-# clear $arg0
- end
-define pglist3
- if (*("$arg1")=='@')
- set var $arg1=struct $arg1
- end
- set var $pglist_list=$arg0
- while ($pglist_list)
- if (!strcmp("$arg2","."))
- print *(($arg1 *)$pglist_list->data)
- else
- print *(($arg1 *)$pglist_list->data)$arg2
- end
- set var $pglist_list=$pglist_list->next
- end
- end
-define pglist
- pglist3 $arg0 $arg1 .
- end