bind params too
[sqlgg.git] / tables.ml
blobcd5570cb8bc9c3f70a85b7ec3f9f5741d20e9f41
1 (** Global list of tables *)
3 open Printf
5 type table = RA.table
7 let all : table list ref = ref []
9 (** @raise Error when no such table *)
10 let get_from tables name =
11 try
12 List.find (fun (n,_) -> n = name) tables
13 with Not_found -> failwith (sprintf "no such table %s" name)
15 let get name = get_from !all name
17 let add v = all := v :: !all
19 let print () = List.iter RA.print_table !all