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