static void
print_message_part_sizes (mu_message_t part, int indent)
{
mu_body_t body;
mu_header_t hdr;
size_t msize, mlines, hsize, hlines, bsize, blines;
MU_ASSERT (mu_message_size (part, &msize));
MU_ASSERT (mu_message_lines (part, &mlines));
MU_ASSERT (mu_message_get_header (part, &hdr));
MU_ASSERT (mu_header_size (hdr, &hsize));
MU_ASSERT (mu_header_lines (hdr, &hlines));
MU_ASSERT (mu_message_get_body (part, &body));
MU_ASSERT (mu_body_size (body, &bsize));
MU_ASSERT (mu_body_lines (body, &blines));
printf ("%*.*sMessage part size - %lu/%lu: %lu/%lu, %lu/%lu\n",
indent, indent, "",
(unsigned long) msize, (unsigned long) mlines,
(unsigned long) hsize, (unsigned long) hlines,
(unsigned long) bsize, (unsigned long) blines);
}
static int
mu_scm_body_print (SCM body_smob, SCM port, scm_print_state * pstate)
{
struct mu_body *mbp = (struct mu_body *) SCM_CDR (body_smob);
size_t b_size = 0, b_lines = 0, len = 0;
char buffer[512];
mu_body_size (mbp->body, &b_size);
mu_body_lines (mbp->body, &b_lines);
buffer[0] = 0;
mu_body_get_filename (mbp->body, buffer, sizeof (buffer), &len);
scm_puts ("#<body \"", port);
scm_puts (buffer, port);
scm_puts ("\" ", port);
snprintf (buffer, sizeof (buffer), "%3lu %-5lu",
(unsigned long) b_lines, (unsigned long) b_size);
scm_puts (buffer, port);
scm_puts (">", port);
return 1;
}
