Added first command line command 'spec'

agner · Jan 25, 2011 · a456125 · a456125
1 parent 42cdcbc
commit a456125
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/rebar.config b/rebar.config
@@ -1,5 +1,7 @@
 {compile_post_script, "./scripts/escriptize"}.
+{escript_incl_apps,[getopt]}.
 {deps, [
         {typespecs, "0.1", {git, "git://github.com/spawngrid/typespecs.git",
-                            "HEAD"}}
+                            "HEAD"}},
+        {getopt, "0.3.0", {git, "git://github.com/agner/getopt.git", "HEAD"}}
         ]}.
diff --git a/src/agner.erl b/src/agner.erl
@@ -16,8 +16,13 @@ stop() ->
 	inets:stop(),
 	ssl:stop().
 
-main(_) ->
+main(["spec"|Args]) ->
+    OptSpec = [
+               {package, undefined, undefined, string, "Package name"}
+              ],
 	start(),
+    {ok, {Opts, _}} = getopt:parse(OptSpec, Args),
+    io:format("~p~n",[spec(proplists:get_value(package, Opts))]),
 	stop().
 
 %%%===================================================================