sig
  module type AtomData =
    sig
      type t
      val empty : GdataAtom.AtomData.t
      val to_xml_data_model :
        GdataAtom.AtomData.t -> GdataCore.xml_data_model list
      val of_xml_data_model :
        GdataAtom.AtomData.t ->
        GdataCore.xml_data_model -> GdataAtom.AtomData.t
    end
  val ns_atom : string
  val ns_app : string
  val ns_openSearch : string
  val ns_gd : string
  type atom_email = string
  type atom_name = string
  type atom_uri = string
  type atom_id = string
  type atom_icon = string
  type atom_logo = string
  type atom_published = GapiDate.t
  type atom_updated = GapiDate.t
  type opensearch_itemsPerPage = int
  type opensearch_startIndex = int
  type opensearch_totalResults = int
  type app_edited = GapiDate.t
  val parse_children : ('a -> 'b -> 'a) -> 'a -> ('a -> 'c) -> 'b list -> 'c
  val data_model_to_entry :
    ?element_name:string ->
    ?element_namespace:string ->
    ('a -> GdataCore.xml_data_model -> 'a) ->
    'a -> GdataCore.xml_data_model -> 'a
  val render_attribute :
    ?default:string ->
    string -> string -> string -> GdataCore.xml_data_model list
  val render_generic_attribute :
    ('a -> string) ->
    'a -> string -> string -> 'a -> GdataCore.xml_data_model list
  val render_int_attribute :
    ?default:int -> string -> string -> int -> GdataCore.xml_data_model list
  val render_bool_attribute :
    ?default:bool ->
    string -> string -> bool -> GdataCore.xml_data_model list
  val render_date_attribute :
    ?default:GapiDate.t ->
    string -> string -> GapiDate.t -> GdataCore.xml_data_model list
  val render_text :
    ?default:string -> string -> GdataCore.xml_data_model list
  val render_text_element :
    ?default:string ->
    string -> string -> string -> GdataCore.xml_data_model list
  val render_int_element :
    string -> string -> int -> GdataCore.xml_data_model list
  val render_int64_element :
    string -> string -> int64 -> GdataCore.xml_data_model list
  val render_date_element :
    string -> string -> GapiDate.t -> GdataCore.xml_data_model list
  val render_bool_empty_element :
    string -> string -> bool -> GdataCore.xml_data_model list
  val render_empty_element :
    string -> string -> GdataCore.xml_data_model list
  val render_element :
    string ->
    string ->
    GdataCore.xml_data_model list list -> GdataCore.xml_data_model list
  val render_element_list : ('a -> 'b list) -> 'a list -> 'b list
  val render_value :
    ?default:string ->
    ?attribute:string ->
    string -> string -> string -> GdataCore.xml_data_model list
  val render_int_value :
    ?attribute:string ->
    string -> string -> int -> GdataCore.xml_data_model list
  val render_bool_value :
    ?attribute:string ->
    string -> string -> bool -> GdataCore.xml_data_model list
  val element_to_data_model :
    (string -> string) ->
    ('a -> GdataCore.xml_data_model list) -> 'a -> GdataCore.xml_data_model
  module type PersonConstruct =
    sig
      type t = {
        lang : string;
        email : GdataAtom.atom_email;
        name : GdataAtom.atom_name;
        uri : GdataAtom.atom_uri;
      }
      val lang : (GdataAtom.PersonConstruct.t, string) GapiLens.t
      val email :
        (GdataAtom.PersonConstruct.t, GdataAtom.atom_email) GapiLens.t
      val name :
        (GdataAtom.PersonConstruct.t, GdataAtom.atom_name) GapiLens.t
      val uri : (GdataAtom.PersonConstruct.t, GdataAtom.atom_uri) GapiLens.t
      val empty : t
      val to_xml_data_model : t -> GdataCore.xml_data_model list
      val of_xml_data_model : t -> GdataCore.xml_data_model -> t
    end
  module MakePersonConstruct :
    functor
      (M : sig val element_ns : string val element_name : string end) ->
      PersonConstruct
  module Author : PersonConstruct
  module Contributor : PersonConstruct
  module Category :
    sig
      type t = {
        label : string;
        scheme : string;
        term : string;
        lang : string;
      }
      val label : (GdataAtom.Category.t, string) GapiLens.t
      val scheme : (GdataAtom.Category.t, string) GapiLens.t
      val term : (GdataAtom.Category.t, string) GapiLens.t
      val lang : (GdataAtom.Category.t, string) GapiLens.t
      val empty : t
      val to_xml_data_model : t -> GdataCore.xml_data_model list
      val of_xml_data_model : t -> GdataCore.xml_data_model -> t
    end
  module Generator :
    sig
      type t = { uri : string; version : string; value : string; }
      val uri : (GdataAtom.Generator.t, string) GapiLens.t
      val version : (GdataAtom.Generator.t, string) GapiLens.t
      val value : (GdataAtom.Generator.t, string) GapiLens.t
      val empty : t
      val to_xml_data_model : t -> GdataCore.xml_data_model list
      val of_xml_data_model : t -> GdataCore.xml_data_model -> t
    end
  module type TextConstruct =
    sig
      type t = {
        src : string;
        _type : string;
        lang : string;
        value : string;
      }
      val src : (GdataAtom.TextConstruct.t, string) GapiLens.t
      val _type : (GdataAtom.TextConstruct.t, string) GapiLens.t
      val lang : (GdataAtom.TextConstruct.t, string) GapiLens.t
      val value : (GdataAtom.TextConstruct.t, string) GapiLens.t
      val empty : t
      val to_xml_data_model : t -> GdataCore.xml_data_model list
      val of_xml_data_model : t -> GdataCore.xml_data_model -> t
    end
  module MakeTextConstruct :
    functor (M : sig val element_name : string end) -> TextConstruct
  module Content : TextConstruct
  module Title : TextConstruct
  module Subtitle : TextConstruct
  module Summary : TextConstruct
  module Rights : TextConstruct
  module Link :
    sig
      type t = {
        href : string;
        length : Int64.t;
        rel : string;
        title : string;
        _type : string;
      }
      val href : (GdataAtom.Link.t, string) GapiLens.t
      val length : (GdataAtom.Link.t, Int64.t) GapiLens.t
      val rel : (GdataAtom.Link.t, string) GapiLens.t
      val title : (GdataAtom.Link.t, string) GapiLens.t
      val _type : (GdataAtom.Link.t, string) GapiLens.t
      val empty : t
      val to_xml_data_model : t -> GdataCore.xml_data_model list
      val of_xml_data_model : t -> GdataCore.xml_data_model -> t
    end
  module type Feed =
    sig
      type entry_t
      type link_t
      type extensions_t
      type t = {
        etag : string;
        kind : string;
        authors : Author.t list;
        categories : GdataAtom.Category.t list;
        contributors : Contributor.t list;
        generator : GdataAtom.Generator.t;
        icon : GdataAtom.atom_icon;
        id : GdataAtom.atom_id;
        updated : GdataAtom.atom_updated;
        entries : GdataAtom.Feed.entry_t list;
        links : GdataAtom.Feed.link_t list;
        logo : GdataAtom.atom_logo;
        rights : Rights.t;
        subtitle : Subtitle.t;
        title : Title.t;
        totalResults : GdataAtom.opensearch_totalResults;
        itemsPerPage : GdataAtom.opensearch_itemsPerPage;
        startIndex : GdataAtom.opensearch_startIndex;
        extensions : GdataAtom.Feed.extensions_t;
      }
      val etag : (GdataAtom.Feed.t, string) GapiLens.t
      val kind : (GdataAtom.Feed.t, string) GapiLens.t
      val authors : (GdataAtom.Feed.t, Author.t list) GapiLens.t
      val categories :
        (GdataAtom.Feed.t, GdataAtom.Category.t list) GapiLens.t
      val contributors : (GdataAtom.Feed.t, Contributor.t list) GapiLens.t
      val generator : (GdataAtom.Feed.t, GdataAtom.Generator.t) GapiLens.t
      val icon : (GdataAtom.Feed.t, GdataAtom.atom_icon) GapiLens.t
      val id : (GdataAtom.Feed.t, GdataAtom.atom_id) GapiLens.t
      val updated : (GdataAtom.Feed.t, GdataAtom.atom_updated) GapiLens.t
      val entries :
        (GdataAtom.Feed.t, GdataAtom.Feed.entry_t list) GapiLens.t
      val links : (GdataAtom.Feed.t, GdataAtom.Feed.link_t list) GapiLens.t
      val logo : (GdataAtom.Feed.t, GdataAtom.atom_logo) GapiLens.t
      val rights : (GdataAtom.Feed.t, Rights.t) GapiLens.t
      val subtitle : (GdataAtom.Feed.t, Subtitle.t) GapiLens.t
      val title : (GdataAtom.Feed.t, Title.t) GapiLens.t
      val totalResults :
        (GdataAtom.Feed.t, GdataAtom.opensearch_totalResults) GapiLens.t
      val itemsPerPage :
        (GdataAtom.Feed.t, GdataAtom.opensearch_itemsPerPage) GapiLens.t
      val startIndex :
        (GdataAtom.Feed.t, GdataAtom.opensearch_startIndex) GapiLens.t
      val extensions :
        (GdataAtom.Feed.t, GdataAtom.Feed.extensions_t) GapiLens.t
      val empty : t
      val to_xml_data_model : t -> GdataCore.xml_data_model list
      val of_xml_data_model : t -> GdataCore.xml_data_model -> t
      val parse_feed : GdataCore.xml_data_model -> GdataAtom.Feed.t
    end
  module MakeFeed :
    functor (Entry : AtomData) (Link : AtomData) (Extensions : AtomData) ->
      sig
        type entry_t = Entry.t
        type link_t = Link.t
        type extensions_t = Extensions.t
        type t = {
          etag : string;
          kind : string;
          authors : Author.t list;
          categories : Category.t list;
          contributors : Contributor.t list;
          generator : Generator.t;
          icon : atom_icon;
          id : atom_id;
          updated : atom_updated;
          entries : entry_t list;
          links : link_t list;
          logo : atom_logo;
          rights : Rights.t;
          subtitle : Subtitle.t;
          title : Title.t;
          totalResults : opensearch_totalResults;
          itemsPerPage : opensearch_itemsPerPage;
          startIndex : opensearch_startIndex;
          extensions : extensions_t;
        }
        val etag : (t, string) GapiLens.t
        val kind : (t, string) GapiLens.t
        val authors : (t, Author.t list) GapiLens.t
        val categories : (t, Category.t list) GapiLens.t
        val contributors : (t, Contributor.t list) GapiLens.t
        val generator : (t, Generator.t) GapiLens.t
        val icon : (t, atom_icon) GapiLens.t
        val id : (t, atom_id) GapiLens.t
        val updated : (t, atom_updated) GapiLens.t
        val entries : (t, entry_t list) GapiLens.t
        val links : (t, link_t list) GapiLens.t
        val logo : (t, atom_logo) GapiLens.t
        val rights : (t, Rights.t) GapiLens.t
        val subtitle : (t, Subtitle.t) GapiLens.t
        val title : (t, Title.t) GapiLens.t
        val totalResults : (t, opensearch_totalResults) GapiLens.t
        val itemsPerPage : (t, opensearch_itemsPerPage) GapiLens.t
        val startIndex : (t, opensearch_startIndex) GapiLens.t
        val extensions : (t, extensions_t) GapiLens.t
        val empty : t
        val to_xml_data_model : t -> GdataCore.xml_data_model list
        val of_xml_data_model : t -> GdataCore.xml_data_model -> t
        val parse_feed : GdataCore.xml_data_model -> t
      end
  module BasicEntry :
    sig
      type t = {
        etag : string;
        id : GdataAtom.atom_id;
        title : Title.t;
        published : GdataAtom.atom_published;
        authors : Author.t list;
        updated : GdataAtom.atom_updated;
        edited : GdataAtom.app_edited;
        categories : GdataAtom.Category.t list;
        content : Content.t;
        links : GdataAtom.Link.t list;
      }
      val etag : (GdataAtom.BasicEntry.t, string) GapiLens.t
      val id : (GdataAtom.BasicEntry.t, GdataAtom.atom_id) GapiLens.t
      val title : (GdataAtom.BasicEntry.t, Title.t) GapiLens.t
      val published :
        (GdataAtom.BasicEntry.t, GdataAtom.atom_published) GapiLens.t
      val authors : (GdataAtom.BasicEntry.t, Author.t list) GapiLens.t
      val updated :
        (GdataAtom.BasicEntry.t, GdataAtom.atom_updated) GapiLens.t
      val edited : (GdataAtom.BasicEntry.t, GdataAtom.app_edited) GapiLens.t
      val categories :
        (GdataAtom.BasicEntry.t, GdataAtom.Category.t list) GapiLens.t
      val content : (GdataAtom.BasicEntry.t, Content.t) GapiLens.t
      val links : (GdataAtom.BasicEntry.t, GdataAtom.Link.t list) GapiLens.t
      val empty : t
      val to_xml_data_model : t -> GdataCore.xml_data_model list
      val of_xml_data_model : t -> GdataCore.xml_data_model -> t
      val node_matches : string * string -> bool
    end
  module GenericExtensions :
    sig
      type t = GdataCore.xml_data_model list
      val empty : t
      val to_xml_data_model : t -> GdataCore.xml_data_model list
      val of_xml_data_model : t -> GdataCore.xml_data_model -> t
    end
  module type LinkRelation =
    sig type t val to_string : GdataAtom.LinkRelation.t -> string end
  val find_url_generic :
    (module GdataAtom.LinkRelation with type t = 'a) ->
    'a -> GdataAtom.Link.t list -> string
  module Rel :
    sig
      type t = [ `Alternate | `Edit | `EditMedia | `Self ]
      val to_string : [> GdataAtom.Rel.t ] -> string
    end
  val find_url : GdataAtom.Rel.t -> GdataAtom.Link.t list -> string
  val get_standard_prefix : string -> string
end