You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
2.5 KiB
55 lines
2.5 KiB
(*
|
|
* Copyright (c) 2018-present, Facebook, Inc.
|
|
*
|
|
* This source code is licensed under the MIT license found in the
|
|
* LICENSE file in the root directory of this source tree.
|
|
*)
|
|
open! IStd
|
|
module F = Format
|
|
|
|
let get_all ~filter () =
|
|
let db = ResultsDatabase.get_database () in
|
|
let stmt = Sqlite3.prepare db "SELECT source_file, proc_name FROM procedures" in
|
|
SqliteUtils.result_fold_rows db ~log:"reading all procedure names" stmt ~init:[]
|
|
~f:(fun rev_results stmt ->
|
|
let source_file = Sqlite3.column stmt 0 |> SourceFile.SQLite.deserialize in
|
|
let proc_name = Sqlite3.column stmt 1 |> Typ.Procname.SQLite.deserialize in
|
|
if filter source_file proc_name then proc_name :: rev_results else rev_results )
|
|
|
|
|
|
let pp_all ~filter ~proc_name:proc_name_cond ~attr_kind ~source_file:source_file_cond
|
|
~proc_attributes fmt () =
|
|
let db = ResultsDatabase.get_database () in
|
|
let pp_if ?(new_line = false) condition title pp fmt x =
|
|
if condition then (
|
|
if new_line then F.fprintf fmt "@[<v2>" else F.fprintf fmt "@[<h>" ;
|
|
F.fprintf fmt "%s:@ %a@]@;" title pp x )
|
|
in
|
|
let pp_column_if stmt ?new_line condition title deserialize pp fmt column =
|
|
if condition then
|
|
(* repeat the [condition] check so that we do not deserialize if there's nothing to do *)
|
|
pp_if ?new_line condition title pp fmt (Sqlite3.column stmt column |> deserialize)
|
|
in
|
|
let pp_row stmt fmt source_file proc_name =
|
|
let[@warning "-8"] (Sqlite3.Data.TEXT proc_name_hum) = Sqlite3.column stmt 1 in
|
|
Format.fprintf fmt "@[<v2>%s@,%a%a%a%a@]@\n" proc_name_hum
|
|
(pp_if source_file_cond "source_file" SourceFile.pp)
|
|
source_file
|
|
(pp_if proc_name_cond "proc_name" Typ.Procname.pp)
|
|
proc_name
|
|
(pp_column_if stmt attr_kind "attribute_kind" Attributes.deserialize_attributes_kind
|
|
Attributes.pp_attributes_kind)
|
|
2
|
|
(pp_column_if stmt ~new_line:true proc_attributes "attributes"
|
|
ProcAttributes.SQLite.deserialize ProcAttributes.pp)
|
|
4
|
|
in
|
|
(* we could also register this statement but it's typically used only once per run so just prepare
|
|
it inside the function *)
|
|
Sqlite3.prepare db "SELECT * FROM procedures"
|
|
|> Container.iter ~fold:(SqliteUtils.result_fold_rows db ~log:"print all procedures")
|
|
~f:(fun stmt ->
|
|
let proc_name = Sqlite3.column stmt 0 |> Typ.Procname.SQLite.deserialize in
|
|
let source_file = Sqlite3.column stmt 3 |> SourceFile.SQLite.deserialize in
|
|
if filter source_file proc_name then pp_row stmt fmt source_file proc_name )
|