- insert_owner#execute [`String uri; `String owner];
- List.iter insert_sort#execute sort_cols;
- List.iter insert_rel#execute rel_cols;
- List.iter insert_obj#execute obj_cols
+ ignore (Mysql.exec dbd (insert_owner uri owner));
+ List.iter (function
+ | [`String a; `String b; `Int c; `String d] ->
+ ignore (Mysql.exec dbd (insert_sort a b c d))
+ | _ -> assert false)
+ sort_cols;
+ List.iter (function
+ | [`String a; `String b; `Int c] ->
+ ignore (Mysql.exec dbd (insert_rel a b c))
+ | _ -> assert false)
+ rel_cols;
+ List.iter (function
+ | [`String a; `String b; `String c; `Int d] ->
+ ignore (Mysql.exec dbd (insert_obj a b c (string_of_int d)))
+ | [`String a; `String b; `String c; `Null] ->
+ ignore (Mysql.exec dbd (insert_obj a b c "NULL"))
+ | _ -> assert false)
+ obj_cols