50N/A# gdb macros which may be useful for folks using gdb to debug
50N/A# apache. Delete it if it bothers you.
50N/A set $t = (apr_table_entry_t *)((apr_array_header_t *)$arg0)->elts
50N/A set $n = ((apr_array_header_t *)$arg0)->nelts
50N/A printf "[%u] '%s'='%s'\n", $i, $t[$i].key, $t[$i].val
50N/Adefine dump_string_array
50N/A set $a = (char **)((apr_array_header_t *)$arg0)->elts
50N/A set $n = (int)((apr_array_header_t *)$arg0)->nelts
50N/A printf "[%u] '%s'\n", $i, $a[$i]
50N/Adocument dump_string_array
50N/A Print all of the elements in an array of strings.
50N/A set $bucket = $arg0
50N/A printf "bucket=%s(0x%lx), length=%ld, data=0x%lx\n", \
50N/A $bucket->type->name, \
50N/A (unsigned long)$bucket, (long)$bucket->length, \
50N/A (unsigned long)$bucket->data
50N/Adocument dump_bucket
50N/A set $bucket = ((&((ap_bucket_brigade *)$bb)->list))->next
50N/A set $sentinel = ((char *)((&(((ap_bucket_brigade *)$bb)->list)) \
50N/A - ((size_t) &((struct ap_bucket *)0)->link)))
50N/A printf "dump of brigade 0x%lx\n", (unsigned long)$bb
50N/A if $bucket == $sentinel
50N/A printf "brigade is empty\n"
50N/A while $bucket != $sentinel
50N/A printf " %d: bucket=%s(0x%lx), length=%ld, data=0x%lx\n", \
50N/A $i, $bucket->type->name, \
50N/A (unsigned long)$bucket, (long)$bucket->length, \
50N/A (unsigned long)$bucket->data
50N/Adocument dump_brigade
63N/A Print bucket brigade info