void xc_report_progress_step(xc_interface *xch,
unsigned long done, unsigned long total)
{
assert(xch->currently_progress_reporting);
xtl_progress(xch->error_handler, "xc",
xch->currently_progress_reporting, done, total);
}
void libxl__srm_callout_callback_progress(const char *context,
const char *doing_what, unsigned long done,
unsigned long total, void *user)
{
libxl__save_helper_state *shs = user;
STATE_AO_GC(shs->ao);
xtl_progress(CTX->lg, context, doing_what, done, total);
}
/* external test: handle -> unit = "stub_xtl_test" */
CAMLprim value stub_xtl_test(value handle)
{
unsigned long l;
CAMLparam1(handle);
xtl_log(XTL, XTL_DEBUG, -1, "debug", "%s -- debug", __func__);
xtl_log(XTL, XTL_INFO, -1, "test", "%s -- test 1", __func__);
xtl_log(XTL, XTL_INFO, ENOSYS, "test errno", "%s -- test 2", __func__);
xtl_log(XTL, XTL_CRITICAL, -1, "critical", "%s -- critical", __func__);
for (l = 0UL; l<=100UL; l += 10UL) {
xtl_progress(XTL, "progress", "testing", l, 100UL);
usleep(10000);
}
CAMLreturn(Val_unit);
}
void xc_report_progress_single(xc_interface *xch, const char *doing)
{
assert(doing);
xtl_progress(xch->error_handler, "xc", doing, 0, 0);
}
void xc_report_progress_start(xc_interface *xch, const char *doing,
unsigned long total) {
xch->currently_progress_reporting = doing;
xtl_progress(xch->error_handler, "xc", xch->currently_progress_reporting,
0, total);
}
