#include <proto/exec.h>
#include <proto/dos.h>
#include <stdio.h>
#include <stdlib.h>
#include "xferq.h"
#include "xferqint.h"
#include "xferq_pragmas.h"
#include "execlists.h"

struct Library *XferqBase;

int main(void)
{
struct Node *node, *tnode;
struct MinList *list;
BPTR core;

	XferqBase = OpenLibrary("xferq.library", 1);
	if (!XferqBase) {
		printf("No XferQ, hence no core\n");
		exit(10);
	}
	core = Open("core", MODE_NEWFILE);
	if (!core) {
		printf("Error opening core file\n");
		exit(10);
	}
	XfqHookTags(
		XQ_GetCore, &list,
		TAG_DONE);
	node = FIRST(list);
	while (tnode = NEXT(node)) {
		Write(core, &node, 4);
		Write(core, node, 8192);
		node = tnode;
	}
	Close(core);
	CloseLibrary(XferqBase);
	printf("Core dumped.\n");
	return 0;
}