syndic 1.0 · OCaml Package

module Error : sig ... end

type author = {

name : string;
uri : Uri.t option;
email : string option;

}

type category = {

term : string;
scheme : Uri.t option;
label : string option;

}

type generator = {

version : string option;
uri : Uri.t option;
content : string;

}

type icon = Uri.t

type id = Uri.t

type rel =

| Alternate
| Related
| Self
| Enclosure
| Via
| Link of Uri.t

type link = {

href : Uri.t;
rel : rel;
type_media : string option;
hreflang : string option;
title : string option;
length : int option;

}

type logo = Uri.t

type published = Netdate.t

type rights = string

type title = string

type subtitle = string

type updated = Netdate.t

type source = {

authors : author * author list;
categories : category list;
contributors : author list;
generator : generator option;
icon : icon option;
id : id;
links : link * link list;
logo : logo option;
rights : rights option;
subtitle : subtitle option;
title : title;
updated : updated option;

}

type type_content =

| Html
| Text
| Xhtml
| Mime of string

type content = {

ty : type_content;
src : Uri.t option;
data : string;

}

type summary = string

type entry = {

authors : author * author list;
categories : category list;
content : content option;
contributors : author list;
id : id;
links : link list;
published : published option;
rights : rights option;
sources : source list;
summary : summary option;
title : title;
updated : updated;

}

type feed = {

authors : author list;
categories : category list;
contributors : author list;
generator : generator option;
icon : icon option;
id : id;
links : link list;
logo : logo option;
rights : rights option;
subtitle : subtitle option;
title : title;
updated : updated;
entries : entry list;

}

val analyze : Xmlm.input -> feed

val unsafe : 
  Xmlm.input ->
  [> `Feed of
       [> `Author of
            [> `Email of string | `Name of string | `URI of string ] list
       | `Category of
         [> `Label of string | `Scheme of string | `Term of string ] list
       | `Contributor of
         [> `Email of string | `Name of string | `URI of string ] list
       | `Entry of
         [> `Author of
              [> `Email of string | `Name of string | `URI of string ] list
         | `Category of
           [> `Label of string | `Scheme of string | `Term of string ] list
         | `Content of
           [> `Data of string | `SRC of string | `Type of string ] list
         | `Contributor of
           [> `Email of string | `Name of string | `URI of string ] list
         | `ID of [> `URI of string ] list
         | `Link of
           [> `HREF of string
           | `HREFLang of string
           | `Length of string
           | `Rel of string
           | `Title of string
           | `Type of string ]
             list
         | `Published of [> `Date of string ] list
         | `Rights of [> `Data of string ] list
         | `Source of
           [> `Author of
                [> `Email of string | `Name of string | `URI of string ] list
           | `Category of
             [> `Label of string | `Scheme of string | `Term of string ] list
           | `Contributor of
             [> `Email of string | `Name of string | `URI of string ] list
           | `Generator of
             [> `Content of string | `URI of string | `Version of string ] list
           | `ID of [> `URI of string ] list
           | `Icon of [> `URI of string ] list
           | `Link of
             [> `HREF of string
             | `HREFLang of string
             | `Length of string
             | `Rel of string
             | `Title of string
             | `Type of string ]
               list
           | `Logo of [> `URI of string ] list
           | `Rights of [> `Data of string ] list
           | `Subtitle of [> `Data of string ] list
           | `Title of [> `Data of string ] list
           | `Updated of [> `Date of string ] list ]
             list
         | `Summary of [> `Data of string ] list
         | `Title of [> `Data of string ] list
         | `Updated of [> `Date of string ] list ]
           list
       | `Generator of
         [> `Content of string | `URI of string | `Version of string ] list
       | `ID of [> `URI of string ] list
       | `Icon of [> `URI of string ] list
       | `Link of
         [> `HREF of string
         | `HREFLang of string
         | `Length of string
         | `Rel of string
         | `Title of string
         | `Type of string ]
           list
       | `Logo of [> `URI of string ] list
       | `Rights of [> `Data of string ] list
       | `Subtitle of [> `Data of string ] list
       | `Title of [> `Data of string ] list
       | `Updated of [> `Date of string ] list ]
         list ]

package syndic