Custom BAP loader

my_bap_loader.ml

module Loader = struct

  let empty_with_program filename prog =      
    let arch = `unknown and code = Memmap.empty and data = Memmap.empty in
    Project.Input.create arch filename ~code ~data 
      ~finish:(fun proj -> Project.with_program proj prog)

  let load filename =
    let prog = Program.create () in (* empty prog for now *)
    empty_with_program filename prog 

end 

let () = Project.Input.register_loader "my-loader" Loader.load

(* Compile with [bapbuild my_bap_loader.plugin && bapbundle install my_bap_loader.plugin] *)
(* Clean with [bapbundle remove my_bap_loader.plugin && bapbuild clean my_bap_loader.plugin] *)