Module Dbf_sql_misc (.ml)


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