Commit 6fbc0cea authored by Philippe Veber's avatar Philippe Veber
Browse files

bppsuite: debug suppression of Bistro.EDSL.insert

parent c421c0dd
...@@ -109,6 +109,7 @@ let bppseqgen_multi_profiles ?(descr="") ~profile_f ~profile_c ~nb_sites ~tree ~ ...@@ -109,6 +109,7 @@ let bppseqgen_multi_profiles ?(descr="") ~profile_f ~profile_c ~nb_sites ~tree ~
];*) ];*)
cmd "cat" ~stdout:config_f [ cmd "cat" ~stdout:config_f [
file_dump (conf_file_bppseqgen_multi_profiles ~tree ~profile_f ~config ~ne_c ~ne_a ~nb_sites_per_profile) ; file_dump (conf_file_bppseqgen_multi_profiles ~tree ~profile_f ~config ~ne_c ~ne_a ~nb_sites_per_profile) ;
file_dump (seq ~sep:"\n" [ string "\n" ]) ;
dep nodes ; dep nodes ;
]; ];
cmd "bash" [(file_dump (bppseqgen_multi_profiles_script ~config:config_f ~out ~profile_c:profile_c_ok ~seed))]; cmd "bash" [(file_dump (bppseqgen_multi_profiles_script ~config:config_f ~out ~profile_c:profile_c_ok ~seed))];
......
...@@ -16,17 +16,23 @@ let workflow_of_template t = ...@@ -16,17 +16,23 @@ let workflow_of_template t =
cmd "cp" [ file_dump t ; dest ] cmd "cp" [ file_dump t ; dest ]
] ]
let config_file () = let config_file () =
let open Bistro.EDSL in
let model = Convergence_hypothesis.(H0 (Fixed 1.)) in
let tree_dir = "/home/pveber/w/reviewphiltrans/example/trees_test/" in let tree_dir = "/home/pveber/w/reviewphiltrans/example/trees_test/" in
let tree = "tree_small_bl.nhx" in let tree = "tree_small_bl.nhx" in
let model = Convergence_hypothesis.(H0 (Fixed 1.)) in
let input_tree = Bistro.EDSL.input (Filename.concat tree_dir tree) in let input_tree = Bistro.EDSL.input (Filename.concat tree_dir tree) in
let tree_prefix = Filename.chop_extension tree in let tree_prefix = Filename.chop_extension tree in
let tree_dataset = Tree_dataset.prepare ~descr:("simulated_data." ^ tree_prefix) input_tree in let tree_dataset = Tree_dataset.prepare ~descr:("simulated_data." ^ tree_prefix) input_tree in
let nodes = Tree_dataset.nodes tree_dataset model in let nodes = Tree_dataset.nodes tree_dataset model in
Convergence_hypothesis.bpp_config_F nodes model workflow [
|> Bistro.EDSL.seq ~sep:"\n" cmd "cat" ~stdout:dest [
|> workflow_of_template file_dump (Bistro.EDSL.seq ~sep:"\n" (Convergence_hypothesis.bpp_config_F model @ [ string "\n" ])) ;
dep nodes ;
];
]
let main () = let main () =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment