sig
  type 'a cursor_context
  val build_cursor_context :
    'a Cursor.cursor -> 'a Cursor_context.cursor_context
  val get_current_cursor :
    'a Cursor_context.cursor_context -> 'a Cursor.cursor
  val push_node_to_cursor_context :
    'a Cursor_context.cursor_context -> 'a Cursor.cursor -> unit
  val pop_node_from_cursor_context :
    'a Cursor_context.cursor_context -> unit option
end