Skip to content
Snippets Groups Projects
Commit a96a478c authored by Loïc Correnson's avatar Loïc Correnson
Browse files

Merge branch 'feature/server/ephemeral-batches' into 'master'

[server] Execute batches only once

See merge request frama-c/frama-c!2391
parents 72d1ca1a 7848e1af
No related branches found
No related tags found
No related merge requests found
......@@ -42,6 +42,7 @@ module Batch = Senv.String_list
end)
let () = Parameter_customize.set_group batch_group
let () = Parameter_customize.do_not_save ()
module BatchOutputDir = Senv.Empty_string
(struct
let option_name = "-server-batch-output-dir"
......@@ -96,6 +97,8 @@ let rec execute_batch js =
let execute () =
begin
let files = Batch.get () in
Batch.clear () ; (* clear in any case *)
List.iter
begin fun file ->
Senv.feedback "Script %S" file ;
......@@ -109,8 +112,7 @@ let execute () =
let out = open_out output in
Js.pretty_to_channel out response ;
close_out out
end
(Batch.get()) ;
end files
end
(* -------------------------------------------------------------------------- *)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment