33
31%
MIT
neglectedA no-frills cli argument parser for reason, inspired by [minimist](https://www.npmjs.com/package/minimist) and [yargs](https://www.npmjs.com/package/yargs).

Minimist.re

A no-frills cli argument parser for reason, inspired by minimist and yargs.

Example usage

(from pack.re):

  • RE
  • ML
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.has("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")
}
};
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)
let args = ["--base"; "awesome"; "some-entry.js"]
let _ =
  match parse args with
  | ((Minimist.Error (err))[@explicit_arity ]) -> fail (Minimist.report err)
  | ((Ok (opts))[@explicit_arity ]) ->
      if Minimist.has "help" opts.presence
      then (print_endline help; exit 0)
      else
        (match opts.rest with
         | [] -> fail "Expected entry file as final argument"
         | entry::[] ->
             let base = Minimist.get opts.strings "base" in
             let renames = Minimist.multi opts.multi "rename" in
             print_endline "All good!"
         | _ -> fail "Only one entry file allowed")