let sql="SELECT goal.id, goal.task_checksum, goal.parent_id, goal.name, goal.pos_id, goal.proved, goal_pos.id, goal_pos.file, goal_pos.line, goal_pos.start, goal_pos.stop, goal_parent.id, goal_parent.name, goal_parent.obsolete FROM goal LEFT JOIN transf AS goal_parent ON (goal_parent.id = goal.parent_id) LEFT JOIN loc AS goal_pos ON (goal_pos.id = goal.pos_id) " ^ q in
let stmt=Sqlite3.prepare db.db sql in
*)
(* General get function for any of the columns *)
(*
...
...
@@ -1022,6 +1028,26 @@ module Transf = struct
end
moduleMain=struct
letinitdb=
letsql="create table if not exists rootgoals (goal_id integer);"in