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 =
| UnionAll of query list * int
| Select of select_clause
| Insert of {
ins_table : table_name;
ins_fields : string list;
ins_records : base list list;
}
| 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
and select_clause = (base * string) list * from_clause list * base * 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_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_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 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)"
>