.gdbinit revision 75ad9d694b36c11047c0b747cf7fc31a4fdbf6e4
499b34cea04a46823d003d4c0520c8b03e8513cbBrian Wellington# gdb macros which may be useful for folks using gdb to debug
816e576f77e2c46df3e3d97d65822aa8aded7c4bDavid Lawrence# apache. Delete it if it bothers you.
499b34cea04a46823d003d4c0520c8b03e8513cbBrian Wellingtondefine dump_table
9c3531d72aeaad6c5f01efe6a1c82023e1379e4dDavid Lawrence set $t = (apr_table_entry_t *)((apr_array_header_t *)$arg0)->elts
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley set $n = ((apr_array_header_t *)$arg0)->nelts
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley while $i < $n
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley printf "[%u] '%s'='%s'\n", $i, $t[$i].key, $t[$i].val
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley set $i = $i + 1
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halleydocument dump_table
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley Print the key/value pairs in a table.
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley run -DONE_PROCESS
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halleydefine dump_string_array
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley set $a = (char **)((apr_array_header_t *)$arg0)->elts
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley set $n = (int)((apr_array_header_t *)$arg0)->nelts
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley while $i < $n
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley printf "[%u] '%s'\n", $i, $a[$i]
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley set $i = $i + 1
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halleydocument dump_string_array
8301652f71f6cfe594361d4a70dae22ca7cd63efBob Halley Print all of the elements in an array of strings.
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halleydefine dump_bucket
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley set $bucket = $arg0
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley printf "bucket=%s(0x%lx), length=%ld, data=0x%lx\n", \
40f53fa8d9c6a4fc38c0014495e7a42b08f52481David Lawrence $bucket->type->name, \
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley (unsigned long)$bucket, (long)$bucket->length, \
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley (unsigned long)$bucket->data
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halleydocument dump_bucket
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley Print bucket info
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halleydefine dump_brigade
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley set $bb = $arg0
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley set $bucket = ((&((ap_bucket_brigade *)$bb)->list))->next
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley set $sentinel = ((char *)((&(((ap_bucket_brigade *)$bb)->list)) \
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley - ((size_t) &((struct ap_bucket *)0)->link)))
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley printf "dump of brigade 0x%lx\n", (unsigned long)$bb
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley if $bucket == $sentinel
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley printf "brigade is empty\n"
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley while $bucket != $sentinel
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley printf " %d: bucket=%s(0x%lx), length=%ld, data=0x%lx\n", \
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley $i, $bucket->type->name, \
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley (unsigned long)$bucket, (long)$bucket->length, \
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley (unsigned long)$bucket->data
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley set $i = $i + 1
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley set $bucket = $bucket->link.next
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halleydocument dump_brigade
2488942fbb6bcba94345ca3b1b3c7244902212f8Bob Halley Print bucket brigade info