dune

(* -*- tuareg -*- *)
 
let library_entry name suffix =
 Printf.sprintf
"(library
 (name %s)
 (wrapped false)
 (modules)
 (libraries %s_%s))" name name suffix
 
let fb_entry name =
 library_entry name "fb"
 
let stubs_entry name =
 library_entry name "stubs"
 
let entry is_fb name =
 if is_fb then
 fb_entry name
 else
 stubs_entry name
 
let () =
 (* test presence of fb subfolder *)
 let current_dir = Sys.getcwd () in
 (* we are in src/logging/, locate src/facebook *)
 let src_dir = Filename.dirname current_dir in
 let fb_dir = Filename.concat src_dir "facebook" in
 (* locate src/facebook/dune *)
 let fb_dune = Filename.concat fb_dir "dune" in
 let is_fb = Sys.file_exists fb_dune in
 let logging = entry is_fb "flow_logging" in
 let logging_lwt = entry is_fb "logging_common_lwt" in
 let interaction_logging = entry is_fb "flow_interaction_logging" in
 Jbuild_plugin.V1.send (String.concat "\n\n" [logging; logging_lwt; interaction_logging])