syndic 1.0 · OCaml Package

module Error : sig ... end

type image = {

url : Uri.t;
title : string;
link : Uri.t;
width : int;
height : int;
description : string option;

}

type cloud = {

domain : Uri.t;
port : int;
path : string;
registerProcedure : string;
protocol : string;

}

type textinput = {

title : string;
description : string;
name : string;
link : Uri.t;

}

type category = {

data : string;
domain : Uri.t option;

}

type enclosure = {

url : Uri.t;
length : int;
mime : string;

}

type guid = {

data : Uri.t;
permalink : bool;

}

type source = {

data : string;
url : Uri.t;

}

type story =

| All of string * string
| Title of string
| Description of string

type item = {

story : story;
link : Uri.t option;
author : string option;
category : category option;
comments : Uri.t option;
enclosure : enclosure option;
guid : guid option;
pubDate : Netdate.t option;
source : source option;

}

type channel = {

title : string;
link : Uri.t;
description : string;
language : string option;
copyright : string option;
managingEditor : string option;
webMaster : string option;
pubDate : Netdate.t option;
lastBuildDate : Netdate.t option;
category : string option;
generator : string option;
docs : Uri.t option;
cloud : cloud option;
ttl : int option;
image : image option;
rating : int option;
textInput : textinput option;
skipHours : int option;
skipDays : int option;
items : item list;

}

val analyze : Xmlm.input -> channel

val unsafe : 
  Xmlm.input ->
  [> `Channel of
       [> `Category of string
       | `Cloud of
         [> `Domain of string
         | `Path of string
         | `Port of string
         | `Protocol of string
         | `RegisterProcedure of string ]
           list
       | `Copyright of string
       | `Description of string
       | `Docs of string
       | `Generator of string
       | `Image of
         [> `Description of string
         | `Height of string
         | `Link of string
         | `Title of string
         | `URL of string
         | `Width of string ]
           list
       | `Item of
         [> `Author of string
         | `Category of [> `Data of string | `Domain of string ] list
         | `Comments of string
         | `Description of string
         | `Enclosure of
           [> `Length of string | `Mime of string | `URL of string ] list
         | `Guid of [> `Data of string | `Permalink of string ] list
         | `Link of string
         | `PubDate of string
         | `Source of [> `Data of string | `URL of string ] list
         | `Title of string ]
           list
       | `Language of string
       | `LastBuildDate of string
       | `Link of string
       | `ManagingEditor of string
       | `PubDate of string
       | `Rating of string
       | `SkipDays of string
       | `SkipHours of string
       | `TTL of string
       | `TextInput of
         [> `Description of string
         | `Link of string
         | `Name of string
         | `Title of string ]
           list
       | `Title of string
       | `WebMaster of string ]
         list ]

package syndic