include Fr_common

let context = create_context ()

let send_event r v =
	send_event_in context r v

let set_cell r v =
	set_cell_in context r v

type endpoint = simple_endpoint

let register_e e =
	register_e_in context e

let register_b b =
	register_b_in context b

let unregister h =
	unregister_in context h