sig
  type t = Static | Streaming | Target
  val to_string : SdltextureAccess.t -> string
  val of_string : string -> SdltextureAccess.t
end