Something went wrong. Try again.
READ-ONLY MIRROR of the previous soteria repo
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071open Shexp_processopen Stdlib (* Shexp overrides `List`... *)open Cmdliner
let ( |. ) f g = pipe f g
let dest_dir_arg position = Arg.( required & pos position (some string) None & info [] ~docv:"DEST_DIR" ~doc:"Path to the destination directory")
module Infer_Dylibs = struct let infer_dylibs exe = run "otool" [ "-L"; exe ] |. run "awk" [ "{print $1}" ] |. run "tail" [ "-n"; "+2" ] |. read_all |> eval |> print_string
let exe_arg = Arg.( required & pos 0 (some file) None & info [] ~docv:"EXE" ~doc:"Path to the executable")
let term = Term.(const infer_dylibs $ exe_arg) let cmd = Cmd.v (Cmd.info "infer-dylibs") termend
module Copy_files = struct let ignored_regexp = Str.quote "libSystem.B.dylib" |> Str.regexp
let should_ignore lib = try Str.search_forward ignored_regexp lib 0 >= 0 with Not_found -> false
let copy_files list_file dest_dir = let () = mkdir ~p:() dest_dir |> eval in let copy_file f = let dest = Filename.concat dest_dir (Filename.basename f) in if Sys.file_exists dest then ( Printf.printf "%s already exists, removing it\n" dest; eval (rm dest)); let () = run "cp" [ f; dest ] |> eval in Printf.printf "Copied %s to %s\n" f dest in let ic = open_in list_file in try while true do let il = input_line ic |> String.trim in (* We take care of trailing whitespace / new lines *) if should_ignore il then Printf.printf "Ignoring %s\n" il else if il <> "" then copy_file il else raise End_of_file done with End_of_file -> close_in ic
let list_file_arg = Arg.( required & pos 0 (some file) None & info [] ~docv:"LIST_FILE" ~doc: "Path to the file that contains the list of files to copy. One \ file per line")
let term = Term.(const copy_files $ list_file_arg $ dest_dir_arg 1) let cmd = Cmd.v (Cmd.info "copy-files") termend