ocamlrss 2.0 · OCaml Package

type date = {

year : int;
month : int;
day : int;
hour : int;
minute : int;
second : int;
zone : int;
week_day : int;

}

val since_epoch : date -> float

val float_to_date : float -> date

val string_of_date : ?fmt:string -> date -> string

type email = string

type url = string

type category = {

mutable cat_name : string;
mutable cat_domain : url option;

}

type image = {

mutable image_url : url;
mutable image_title : string;
mutable image_link : url;
mutable image_height : int option;
mutable image_width : int option;
mutable image_desc : string option;

}

type text_input = {

mutable ti_title : string;
mutable ti_desc : string;
mutable ti_name : string;
mutable ti_link : string;

}

type enclosure = {

mutable encl_url : url;
mutable encl_length : int;
mutable encl_type : string;

}

type guid = {

mutable guid_name : string;
mutable guid_permalink : bool;

}

type source = {

mutable src_name : string;
mutable src_url : url;

}

type item = {

mutable item_title : string option;
mutable item_link : url option;
mutable item_desc : string option;
mutable item_pubdate : date option;
mutable item_author : email option;
mutable item_categories : category list;
mutable item_comments : url option;
mutable item_enclosure : enclosure option;
mutable item_guid : guid option;
mutable item_source : source option;

}

type channel = {

mutable ch_title : string;
mutable ch_link : url;
mutable ch_desc : string;
mutable ch_language : string option;
mutable ch_copyright : string option;
mutable ch_managing_editor : email option;
mutable ch_webmaster : email option;
mutable ch_pubdate : date option;
mutable ch_last_build_date : date option;
mutable ch_categories : category list;
mutable ch_generator : string option;
mutable ch_docs : url option;
mutable ch_ttl : int option;
mutable ch_image : image option;
mutable ch_text_input : text_input option;
mutable ch_items : item list;

}

val item : 
  ?title:string ->
  ?link:url ->
  ?desc:string ->
  ?pubdate:date ->
  ?author:email ->
  ?cats:category list ->
  ?comments:url ->
  ?encl:enclosure ->
  ?guid:guid ->
  ?source:source ->
  unit ->
  item

val channel : 
  title:string ->
  link:url ->
  desc:string ->
  ?language:string ->
  ?copyright:string ->
  ?managing_editor:email ->
  ?webmaster:email ->
  ?pubdate:date ->
  ?last_build_date:date ->
  ?cats:category list ->
  ?generator:string ->
  ?docs:url ->
  ?ttl:int ->
  ?image:image ->
  ?text_input:text_input ->
  item list ->
  channel

val copy_item : item -> item

val copy_channel : channel -> channel

val keep_n_items : int -> channel -> channel

val sort_items_by_date : item list -> item list

val merge_channels : channel -> channel -> channel

val channel_of_file : string -> channel

val channel_of_string : string -> channel

val channel_of_channel : in_channel -> channel

val print_channel : 
  ?date_fmt:string ->
  ?encoding:string ->
  Format.formatter ->
  channel ->
  unit

val print_file : 
  ?date_fmt:string ->
  ?encoding:string ->
  string ->
  channel ->
  unit

package ocamlrss