let is_computed () =
(* check whether annotations are computed for the
set of functions selected through the command-line option,
and for the selected set of command-line options *)
if not (Ast.is_computed ()) then false
else
let include_function kf =
let fsel = FunctionSelection.get () in
Datatype.String.Set.is_empty fsel
|| let name = Kernel_function.get_name kf in
Datatype.String.Set.mem name fsel
in
try
Globals.Functions.iter
(fun kf ->
if include_function kf then
begin
match kf.fundec with
| Declaration _ -> ()
| Definition _ -> if not(is_computed_kf kf) then raise Exit
end
)
;
true
with Exit -> false