sig
  type t
  external create : unit -> SFContext.t = "caml_sfContext_create"
  external destroy : context:SFContext.t -> unit = "caml_sfContext_destroy"
  external setActive : context:SFContext.t -> active:bool -> unit
    = "caml_sfContext_setActive"
end