fork download 
  1. open Core.Std
  2.  
  3. type 'a t
  4.  
  5. module Pair : sig
  6.   type t
  7.  
  8.   val key   : t -> string
  9.   val value : t -> string option
  10. end
  11.  
  12. module Link : sig
  13.   type t
  14. end
  15.  
  16. module Content : sig
  17.   type t
  18.  
  19.   val value            : t -> string
  20.   val content_type     : t -> string option
  21.   val charset          : t -> string option
  22.   val content_encoding : t -> string option
  23.   val vtag             : t -> string option
  24.   val last_mod         : t -> Int32.t option
  25.   val last_mod_usec    : t -> Int32.t option
  26.   val usermeta         : t -> Pair.t list
  27.   val indexes          : t -> Pair.t list
  28.   val deleted          : t -> bool
  29. end
  30.  
  31. val of_pb : Pb_robj.Robj.t -> [ `Maybe_siblings ] t
  32. val to_pb : 'a t -> Pb_robj.Robj.t
  33.  
  34. val no_siblings_of_t : 'a t -> ([ `No_siblings ] t, [> `Has_siblings ]) Result.t
  35.  
  36. val contents     : 'a t -> Content.t list
  37. val content      : [ `No_siblings ] t -> Content.t
  38. val set_contents : 'a t -> Content.t list -> [ `Maybe_siblings ] t
  39. val set_content  : 'a t -> Content.t -> [ `No_siblings ] t
  40. val vclock       : 'a t -> string option
  41. val unchanged    : 'a t -> bool
  42.  
Not running #stdin #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/GUlwEi
language:
OCaml (ocamlopt 4.05.0)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!