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.
52 lines
1.7 KiB
52 lines
1.7 KiB
(*
|
|
* Copyright (c) 2015 - present Facebook, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This source code is licensed under the BSD style license found in the
|
|
* LICENSE file in the root directory of this source tree. An additional grant
|
|
* of patent rights can be found in the PATENTS file in the same directory.
|
|
*)
|
|
|
|
open! Utils
|
|
|
|
module F = Format
|
|
module L = Logging
|
|
|
|
(** Module to manage the table of attributes. *)
|
|
|
|
let serializer : ProcAttributes.t Serialization.serializer =
|
|
Serialization.create_serializer Serialization.attributes_key
|
|
|
|
let attributes_filename pname =
|
|
let pname_file = Procname.to_filename pname in
|
|
pname_file ^ ".attr"
|
|
|
|
(** path to the .attr file for the given procedure in the current results directory *)
|
|
let res_dir_attr_filename pname =
|
|
let attr_fname = attributes_filename pname in
|
|
let bucket_dir =
|
|
let base = Filename.chop_extension attr_fname in
|
|
let len = String.length base in
|
|
if len < 2
|
|
then Filename.current_dir_name
|
|
else String.sub base (len - 2) 2 in
|
|
let filename =
|
|
DB.Results_dir.path_to_filename
|
|
DB.Results_dir.Abs_root
|
|
[Config.attributes_dir_name; bucket_dir; attr_fname] in
|
|
DB.filename_create_dir filename;
|
|
filename
|
|
|
|
let store_attributes proc_attributes =
|
|
let proc_name = proc_attributes.ProcAttributes.proc_name in
|
|
let attributes_file = res_dir_attr_filename proc_name in
|
|
let should_write = (* only overwrite defined procedures *)
|
|
proc_attributes.ProcAttributes.is_defined ||
|
|
not (DB.file_exists attributes_file) in
|
|
if should_write then
|
|
Serialization.to_file serializer attributes_file proc_attributes
|
|
|
|
let load_attributes proc_name =
|
|
let attributes_file = res_dir_attr_filename proc_name in
|
|
Serialization.from_file serializer attributes_file
|