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