Commit f1d0bcae authored by Philippe Veber's avatar Philippe Veber
Browse files

factored bash_script constructor

parent 57aaf147
......@@ -3,22 +3,10 @@ open Bistro.Std
open Bistro.EDSL
open Bistro_bioinfo.Std
open File_formats
open Utils
let env = Env.env_bppsuite
let assign k v =
seq ~sep:"=" [ string k ; v ]
let bash_script args code =
let prelude =
args
|> List.map ~f:(fun (k, v) ->
assign k v
)
|> seq ~sep:"\n"
in
seq ~sep:"\n" [ prelude ; string code ]
let conf_file_bppseqgen ~tree ~out ~nb_sites ~config =
seq ~sep:"\n" (
[
......
......@@ -2,20 +2,7 @@ open Core_kernel
open Bistro.Std
open Bistro.EDSL
open File_formats
let assign k v =
seq ~sep:"=" [ string k ; v ]
let bash_script args code =
let prelude =
args
|> List.map ~f:(fun (k, v) ->
assign k v
)
|> seq ~sep:"\n"
in
seq ~sep:"\n" [ prelude ; string code ]
open Utils
let diffsel_add_iterations_script ~chainname ~ali ~tree ~seed =
let vars = [
......
......@@ -3,26 +3,10 @@ open Bistro.Std
open Bistro.EDSL
open Bistro_bioinfo.Std
open File_formats
open Utils
let env = Env.env_bppsuite
let assign k v =
seq ~sep:"=" [ string k ; v ]
let bash_script args code =
let prelude =
args
|> List.map ~f:(fun (k, v) ->
assign k v
)
|> seq ~sep:"\n"
in
seq ~sep:"\n" [ prelude ; string code ]
let bppml_config_pre_mapnh =
[ string "
# Sequences:
......
open Core_kernel
open Bistro.Std
open Bistro.EDSL
open File_formats
let assign k v =
seq ~sep:"=" [ string k ; v ]
let bash_script args code =
let prelude =
args
|> List.map ~f:(fun (k, v) ->
assign k v
)
|> seq ~sep:"\n"
in
seq ~sep:"\n" [ prelude ; string code ]
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