module Dbf_sql_misc: sig
.. end
For logged tables
module StringComparable: sig
.. end
module StringMap: Map.Make
(
StringComparable
)
val join : ?sep:string -> to_string:('a -> string) -> 'a list -> string
val join_opt : ?sep:string -> to_string:('a -> string) -> 'a option list -> string
val apply_opt : ('a -> 'b) -> 'a option -> 'b option
val unopt : 'a option -> 'a
val ie : unit -> 'a
val no_blanks : string -> string
For logged tables
type
log_who = int
type
log_date = float
type
log_action =
| |
Insert |
| |
Delete |
| |
Update |
val string_of_action : log_action -> string
val action_of_string : string -> log_action
val who_modified_what : 'a -> ('b * float * 'c * 'a) list -> ('b * float * 'c * 'a) list