Add some gdb helpers

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@14314 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/support-d/.gdbinit b/support-d/.gdbinit
index 1538773b9c9f210898b1ff3ecdff6ef13c945dcc..942b761adf999c532d3d0e80481d7f9785b0b45b 100644 (file)
--- a/support-d/.gdbinit
+++ b/support-d/.gdbinit
@@ -73,3 +73,35 @@ document print_list
 Usage print_list [symbol]
 Prints all the remaining elements of a linked list
 end
+
+define print_tags
+       dont-repeat
+       set $x = $arg0
+       while (*((int*)$x) != 0x0)
+               info sym $x->t_tag
+               printf "%p \"%s\"\n", $x->t_value, $x->t_value
+               set $x = $x + 1
+       end
+end
+document print_tags
+Usage print_tags [tags]
+List sofia tags and their values
+end
+
+define setup_session
+       set $session=(switch_core_session_t*)$arg0
+       set $channel = $session->channel
+       printf "UUID: %s\nName: %s\nState: %d\n", $session->uuid_str, $channel->name, $channel->state
+end
+document setup_session
+Usage setup_session [session address]
+Sets session and channel from the given address
+end
+
+define setup_sofia
+       set $tech_pvt = (private_object_t*)$session->private_info
+       set $nh = $tech_pvt->nh
+end
+document setup_sofia
+No arguments. Sets nh and tech_pvt from the current session
+end