View Source simple

#!/usr/bin/env escript

%% simple cli using cli behaviour

-behaviour(cli).
-mode(compile).
-export([cli/0, rm/3]).

main(Args) ->
    cli:run(Args, #{progname => "simple"}).

cli() ->
    #{
        handler => {?MODULE, rm, undefined},
        arguments => [
            #{name => force, short => $f, type => boolean, default => false},
            #{name => recursive, short => $r, type => boolean, default => false},
            #{name => dir}
        ]
    }.

rm(Force, Recursive, Dir) ->
    io:format("Removing ~s (force: ~s, recursive: ~s)~n",
        [Dir, Force, Recursive]).