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; }