SCM DLL_PUBLIC
cl_dump_handle (SCM handle)
{
handle_post_t *hp;
SCM_ASSERT (_scm_is_handle (handle), handle, SCM_ARG1, "%curl-dump-handle");
hp = _scm_to_handle (handle);
fprintf (stderr, "<#handle %p>\n", hp);
fprintf (stderr, "\t handle %p\n", hp->handle);
fprintf (stderr, "\t postfields %p\n", hp->postfields);
fprintf (stderr, "\t postfieldsize %zu\n", hp->postfieldsize);
print_mem (hp->postfields, hp->postfieldsize);
fprintf (stderr, "\t httppost %p\n", hp->httppost);
print_httppost (hp->httppost);
fprintf (stderr, "\t httpheader %p\n", hp->httpheader);
print_slist (hp->httpheader);
fprintf (stderr, "\thttp200aliases %p\n", hp->http200aliases);
print_slist (hp->http200aliases);
fprintf (stderr, "\t mail_rcpt %p\n", hp->mail_rcpt);
print_slist (hp->mail_rcpt);
fprintf (stderr, "\t quote %p\n", hp->quote);
print_slist (hp->quote);
fprintf (stderr, "\t postquote %p\n", hp->postquote);
print_slist (hp->postquote);
fprintf (stderr, "\t prequote %p\n", hp->prequote);
print_slist (hp->prequote);
fprintf (stderr, "\t resolve %p\n", hp->resolve);
print_slist (hp->resolve);
fprintf (stderr, "\t telnetoptions %p\n", hp->telnetoptions);
print_slist (hp->telnetoptions);
fflush (stderr);
return SCM_UNDEFINED;
}
static void
print_httppost (struct curl_httppost *hp)
{
struct curl_httppost *p = hp;
int i = 0;
while (p != NULL)
{
fprintf (stderr, "\t\t%d: name: ", i);
print_mem (p->name, p->namelength);
fprintf (stderr, "\n\t\t contents: ");
print_mem (p->contents, p->contentslength);
fprintf (stderr, "\n\t\t buffer: ");
print_mem (p->buffer, p->bufferlength);
fprintf (stderr, "\n\t\t contenttype: ");
print_mem (p->contenttype, xstrlen (p->contenttype));
fprintf (stderr, "\n\t\t contentheader: ");
print_slist (p->contentheader);
fprintf (stderr, "\n\t\t showfilename: ");
print_mem (p->showfilename, xstrlen (p->showfilename));
fprintf (stderr, "\n\t\t flags: 0x%lx", p->flags);
fprintf (stderr, "\n");
i++;
p = p->next;
}
}
int main(int argc, char** argv) {
SList* sl;
int val;
sl = NewSList(10);
for (;;) {
if (scanf("%d", &val) != 1) {
break;
}
AddToSList((void*) val, val, sl);
}
ApplySList(sl, printval, 0);
printf("\n\nDebug out:\n\n");
print_slist(sl);
return 0;
} // main()
main()
{
SLIST *head;
head = print_slist(SLIST head);
}
