let parse = Minimist.parse(~alias=[("h", "help")], ~presence=["help"], ~multi=["rename"], ~strings=["base"]);

let help = {|
# pack.re - a simple js bundler for reason

Usage: pack.re [options] entry-file.js > bundle.js

  --base (default: current directory)
      expected to contain node_modules
  --rename newName=realName (can be defined multiple times)
      maps `require("newName")` to a node_module called "realName"
  -h, --help
      print this help
|};

let fail = (msg) => {
  print_endline(msg);
  print_endline(help);
  exit(1);
};

let args = List.tl(Array.to_list(Sys.argv));
/* Some example args for you */
let args = ["--base", "awesome", "some-entry.js"];

switch (parse(args)) {
| Minimist.Error(err) => fail(Minimist.report(err))
| Ok(opts) =>
if (Minimist.StrSet.mem("help", opts.presence)) {
  print_endline(help); exit(0);
} else switch (opts.rest) {
  | [] => fail("Expected entry file as final argument")
  | [entry] => {
    let base = Minimist.get(opts.strings, "base");
    let renames = Minimist.multi(opts.multi, "rename");
    print_endline("All good!")
  }
  | _ => fail("Only one entry file allowed")
}
};