# Appears to be a default everywhere now:
#set history filename /home/lace/.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