Moving stuff around

2018-01-11 19:09:31 +09:00
parent 649a75c2bf
commit ae7b117828
20 changed files with 965 additions and 48 deletions
@@ -0,0 +1,48 @@
+#! /usr/bin/env escript
+
+-mode(compile).
+
+main(Args) ->
+    ok = make(),
+    ok = lists:foreach(fun dispatch/1, Args),
+    halt(0).
+
+
+dispatch("edoc") ->
+    ok = edoc();
+dispatch("dialyze") ->
+    ok = dialyze();
+dispatch("test") ->
+    ok = test();
+dispatch(Unknown) ->
+    ok = io:format("zmake: Unknown directive: ~tp~n", [Unknown]),
+    halt(1).
+
+
+make() ->
+    true = code:add_patha("ebin"),
+    up_to_date = make:all(),
+    halt(0).
+
+
+edoc() ->
+    ok = io:format("EDOC: Writing docs...~n"),
+    ok = edoc:application(zomp, ".", []),
+    halt(0).
+
+
+dialyze() ->
+    ok =
+        case dialyzer:run([{from, src_code}, {files_rec, ["./src"]}]) of
+            [] ->
+                io:format("Dialyzer found no errors and returned no warnings! Yay!~n");
+            Warnings ->
+                Messages = [dialyzer:format_warning(W) || W <- Warnings],
+                lists:foreach(fun io:format/1, Messages)
+        end,
+    halt(0).
+
+
+test() ->
+    ok = io:format("TEST: If I only had a brain.~n"),
+    halt(0).