functor (G : Netsys_gssapi.GSSAPI->
  sig
    val delete_context : G.context option -> unit -> unit
    val format_status :
      ?fn:string ->
      ?minor_status:int32 -> Netsys_gssapi.major_status -> string
  end