+let move_content (name1, tbl1) (name2, tbl2) buri dtype dbd =
+ let escape s =
+ Pcre.replace ~pat:"([^\\\\])_" ~templ:"$1\\_" (HSql.escape dtype dbd s)
+ in
+ assert (tbl1 = tbl2);
+ sprintf
+ "INSERT INTRO %s SELECT * FROM %s WHERE source LIKE \"%s%%\";"
+ name2 name1 (escape buri)
+
+let direct_deps refObj uri dtype dbd =
+ sprintf "SELECT * FROM %s WHERE source = \"%s\";"
+ refObj (HSql.escape dtype dbd (UriManager.string_of_uri uri))
+
+let inverse_deps refObj uri dtype dbd =
+ sprintf "SELECT * FROM %s WHERE h_occurrence = \"%s\";"
+ refObj (HSql.escape dtype dbd (UriManager.string_of_uri uri))
+