package links
type index = (Var.var * string) list
val pp_table_name :
Ppx_deriving_runtime.Format.formatter ->
table_name ->
Ppx_deriving_runtime.unit
val show_table_name : table_name -> Ppx_deriving_runtime.string
type query =
| Union of multiplicity * query list * int
| Select of select_clause
| Insert of {
ins_table : table_name;
ins_fields : string list;
ins_records : insert_records;
}
| Update of {
upd_table : table_name;
upd_fields : (string * base) list;
upd_where : base option;
}
| Delete of {
del_table : table_name;
del_where : base option;
}
| With of table_name * query * query list
| Transaction of query list
and select_clause =
multiplicity
* select_fields
* from_clause list
* base
* base list
* base list
val pp_query :
Ppx_deriving_runtime.Format.formatter ->
query ->
Ppx_deriving_runtime.unit
val show_query : query -> Ppx_deriving_runtime.string
val pp_insert_records :
Ppx_deriving_runtime.Format.formatter ->
insert_records ->
Ppx_deriving_runtime.unit
val show_insert_records : insert_records -> Ppx_deriving_runtime.string
val pp_select_clause :
Ppx_deriving_runtime.Format.formatter ->
select_clause ->
Ppx_deriving_runtime.unit
val show_select_clause : select_clause -> Ppx_deriving_runtime.string
val pp_select_fields :
Ppx_deriving_runtime.Format.formatter ->
select_fields ->
Ppx_deriving_runtime.unit
val show_select_fields : select_fields -> Ppx_deriving_runtime.string
val pp_from_clause :
Ppx_deriving_runtime.Format.formatter ->
from_clause ->
Ppx_deriving_runtime.unit
val show_from_clause : from_clause -> Ppx_deriving_runtime.string
val pp_base :
Ppx_deriving_runtime.Format.formatter ->
base ->
Ppx_deriving_runtime.unit
val show_base : base -> Ppx_deriving_runtime.string
val pp_multiplicity :
Ppx_deriving_runtime.Format.formatter ->
multiplicity ->
Ppx_deriving_runtime.unit
val show_multiplicity : multiplicity -> Ppx_deriving_runtime.string
val pp_dependency :
Ppx_deriving_runtime.Format.formatter ->
dependency ->
Ppx_deriving_runtime.unit
val show_dependency : dependency -> Ppx_deriving_runtime.string
val fresh_table_var : unit -> Var.var
val dummy_counter : int ref
module Arithmetic : sig ... end
module SqlFuns : sig ... end
class virtual printer : object ... end
val default_printer : (string -> string) -> printer
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>