links 0.9.7 · OCaml Package

class type otherfield = object ... end

type db_status = [

| `QueryOk
| `QueryError of string

]

class virtual dbvalue : object ... end

class virtual database : Sql.printer -> object ... end

val equal_database : database -> database -> bool

val pp_database : Format.formatter -> database -> unit

type db_constructor = string -> database * string

val register_driver : (string * db_constructor) -> unit

val db_connect : string -> string -> database * string

val parse_db_string : string -> string * string

val reconstruct_db_string : (string * string) -> string

type xmlitem =

| Text of string
| Attr of string * string
| Node of string * xml
| NsAttr of string * string * string
| NsNode of string * string * xml

and xml = xmlitem list

val pp_xmlitem : 
  Ppx_deriving_runtime.Format.formatter ->
  xmlitem ->
  Ppx_deriving_runtime.unit

val show_xmlitem : xmlitem -> Ppx_deriving_runtime.string

val pp_xml : 
  Ppx_deriving_runtime.Format.formatter ->
  xml ->
  Ppx_deriving_runtime.unit

val show_xml : xml -> Ppx_deriving_runtime.string

val xmlitem_to_yojson : xmlitem -> Yojson.Safe.t

val xmlitem_of_yojson : 
  Yojson.Safe.t ->
  xmlitem Ppx_deriving_yojson_runtime.error_or

val xml_to_yojson : xml -> Yojson.Safe.t

val xml_of_yojson : Yojson.Safe.t -> xml Ppx_deriving_yojson_runtime.error_or

module Table : sig ... end

type table = Table.t

val pp_table : 
  Ppx_deriving_runtime.Format.formatter ->
  table ->
  Ppx_deriving_runtime.unit

val show_table : table -> Ppx_deriving_runtime.string

val make_table : 
  database:(database * string) ->
  name:string ->
  keys:string list list ->
  temporality:CommonTypes.Temporality.t ->
  temporal_fields:(string * string) option ->
  row:Types.row' ->
  table

type primitive_value_basis = [

| `Bool of bool
| `Char of char
| `Float of float
| `Int of int
| `XML of xmlitem
| `String of string

]

val pp_primitive_value_basis : 
  Ppx_deriving_runtime.Format.formatter ->
  primitive_value_basis ->
  Ppx_deriving_runtime.unit

val show_primitive_value_basis : 
  primitive_value_basis ->
  Ppx_deriving_runtime.string

type primitive_value = [

| primitive_value_basis
| `Database of database * string
| `Table of table
| `DateTime of CommonTypes.Timestamp.t

]

val pp_primitive_value : 
  Ppx_deriving_runtime.Format.formatter ->
  primitive_value ->
  Ppx_deriving_runtime.unit

val show_primitive_value : primitive_value -> Ppx_deriving_runtime.string

type spawn_location = [

| `ClientSpawnLoc of ProcessTypes.client_id
| `ServerSpawnLoc

]

val pp_spawn_location : 
  Ppx_deriving_runtime.Format.formatter ->
  spawn_location ->
  Ppx_deriving_runtime.unit

val show_spawn_location : spawn_location -> Ppx_deriving_runtime.string

type dist_pid = [

| `ClientPid of ProcessTypes.client_id * ProcessTypes.process_id
| `ServerPid of ProcessTypes.process_id

]

val pp_dist_pid : 
  Ppx_deriving_runtime.Format.formatter ->
  dist_pid ->
  Ppx_deriving_runtime.unit

val show_dist_pid : dist_pid -> Ppx_deriving_runtime.string

type access_point = [

| `ClientAccessPoint of ProcessTypes.client_id * ProcessTypes.apid
| `ServerAccessPoint of ProcessTypes.apid

]

val pp_access_point : 
  Ppx_deriving_runtime.Format.formatter ->
  access_point ->
  Ppx_deriving_runtime.unit

val show_access_point : access_point -> Ppx_deriving_runtime.string

type chan = ProcessTypes.channel_id * ProcessTypes.channel_id

module type ENV = sig ... end

module Env : ENV

module Trap : sig ... end

module type FRAME = sig ... end

module type CONTINUATION_EVALUATOR = sig ... end

module type CONTINUATION = sig ... end

module Continuation : CONTINUATION

type t = [

| primitive_value
| `List of t list
| `Record of (string * t) list
| `Lens of Links_core.Lens.Database.t * Links_core.Lens.Value.t
| `Variant of string * t
| `FunctionPtr of Ir.var * t option
| `PrimitiveFunction of string * Var.var option
| `ClientDomRef of int
| `ClientFunction of string
| `ClientClosure of int
| `Continuation of continuation
| `Resumption of resumption
| `Pid of dist_pid
| `AccessPointID of access_point
| `SessionChannel of chan
| `Socket of in_channel * out_channel
| `SpawnLocation of spawn_location
| `Alien

]

and continuation = t Continuation.t

and resumption = t Continuation.resumption

and env = t Env.t

val pp : 
  Ppx_deriving_runtime.Format.formatter ->
  t ->
  Ppx_deriving_runtime.unit

val show : t -> Ppx_deriving_runtime.string

val pp_continuation : 
  Ppx_deriving_runtime.Format.formatter ->
  continuation ->
  Ppx_deriving_runtime.unit

val show_continuation : continuation -> Ppx_deriving_runtime.string

val pp_resumption : 
  Ppx_deriving_runtime.Format.formatter ->
  resumption ->
  Ppx_deriving_runtime.unit

val show_resumption : resumption -> Ppx_deriving_runtime.string

val pp_env : 
  Ppx_deriving_runtime.Format.formatter ->
  env ->
  Ppx_deriving_runtime.unit

val show_env : env -> Ppx_deriving_runtime.string

type delegated_chan = chan * t list

val project : string -> t -> t

val untuple : t -> t list

val box_bool : 'a -> [> `Bool of 'a ]

val unbox_bool : t -> bool

val box_int : 'a -> [> `Int of 'a ]

val unbox_int : t -> int

val box_float : 'a -> [> `Float of 'a ]

val unbox_float : t -> float

val box_char : 'a -> [> `Char of 'a ]

val unbox_char : t -> char

val box_xml : 'a -> [> `XML of 'a ]

val unbox_xml : t -> xmlitem

val box_string : string -> t

val unbox_string : t -> string

val box_list : t list -> t

val unbox_list : t -> t list

val box_record : (string * t) list -> t

val unbox_record : t -> (string * t) list

val box_unit : unit -> t

val unbox_unit : t -> unit

val box_pair : t -> t -> t

val unbox_pair : t -> t * t

val box_variant : string -> t -> t

val unbox_variant : t -> string * t

val box_pid : dist_pid -> t

val unbox_pid : t -> dist_pid

val box_socket : (in_channel * out_channel) -> t

val unbox_socket : t -> in_channel * out_channel

val box_op : t list -> t -> t

val box : t list -> t

val box_spawn_loc : spawn_location -> t

val unbox_spawn_loc : t -> spawn_location

val box_channel : chan -> t

val unbox_channel : t -> chan

val box_access_point : access_point -> t

val unbox_access_point : t -> access_point

val box_datetime : CommonTypes.Timestamp.t -> t

val unbox_datetime : t -> CommonTypes.Timestamp.t

val intmap_of_record : t -> t Utility.intmap option

val string_of_value : t -> string

val string_of_xml : ?close_tags:bool -> xml -> string

val string_of_calendar_utc : Utility.CalendarShow.t -> string

val p_value : Format.formatter -> t -> unit

val get_contained_channels : t -> chan list

val value_of_xmlitem : xmlitem -> t

val value_of_xml : xml -> t

val xml_of_variants : t -> xml

val xmlitem_of_variant : t -> xmlitem

val is_attr : xmlitem -> bool

val is_node : xmlitem -> bool

val split_html : xml -> xml * xml

val is_channel : t -> bool

val session_exception_operation : string

val row_columns_values : t -> string list * t list list

package links