From 8af5585c6dbc230bc1a1936754ab825c521ac4d6 Mon Sep 17 00:00:00 2001
From: lijie <1713699517@qq.com>
Date: Fri, 30 Sep 2022 11:44:56 +0800
Subject: [PATCH] =?UTF-8?q?ft:=20=E6=B7=BB=E5=8A=A0redis=20=E6=B8=85?=
 =?UTF-8?q?=E5=BA=93=E5=91=BD=E4=BB=A4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/eMake.erl | 44 ++++++++++++++++++++++++++++----------------
 1 file changed, 28 insertions(+), 16 deletions(-)

diff --git a/src/eMake.erl b/src/eMake.erl
index 8b8c57d..3cbf492 100644
--- a/src/eMake.erl
+++ b/src/eMake.erl
@@ -17,22 +17,34 @@
 
 main(Args) ->
    process_flag(trap_exit, true),
-   IsAll = lists:member("all", Args),
-   case lists:delete("all", Args) of
-      [] ->
-         make(max(1, erlang:system_info(schedulers) - 1), ?EMakefile, [], IsAll);
-      [EMakeFileOrWorkCnt] ->
-         try list_to_integer(EMakeFileOrWorkCnt) of
-            Cnt ->
-               make(max(1, Cnt), ?EMakefile, [], IsAll)
-         catch _:_ ->
-            make(max(1, erlang:system_info(schedulers) - 1), EMakeFileOrWorkCnt, [], IsAll)
-         end;
-      [EMakeFile, WorkCntStr] ->
-         make(max(1, list_to_integer(WorkCntStr)), EMakeFile, [], IsAll);
-      [EMakeFile, WorkCntStr, OptsStr] ->
-         {ok, Opts} = strToTerm(OptsStr),
-         make(max(1, list_to_integer(WorkCntStr)), EMakeFile, Opts, IsAll)
+   case Args of
+      ["fo"] ->
+         os:cmd("redis-cli FLUSHDB"),
+         ok;
+      ["fo", DBNumStr | _] ->
+         os:cmd("redis-cli -n " ++ DBNumStr ++ " FLUSHDB"),
+         ok;
+      ["fa" | _] ->
+         os:cmd("redis-cli FLUSHALL"),
+         ok;
+      _ ->
+         IsAll = lists:member("all", Args),
+         case lists:delete("all", Args) of
+            [] ->
+               make(max(1, erlang:system_info(schedulers) - 1), ?EMakefile, [], IsAll);
+            [EMakeFileOrWorkCnt] ->
+               try list_to_integer(EMakeFileOrWorkCnt) of
+                  Cnt ->
+                     make(max(1, Cnt), ?EMakefile, [], IsAll)
+               catch _:_ ->
+                  make(max(1, erlang:system_info(schedulers) - 1), EMakeFileOrWorkCnt, [], IsAll)
+               end;
+            [EMakeFile, WorkCntStr] ->
+               make(max(1, list_to_integer(WorkCntStr)), EMakeFile, [], IsAll);
+            [EMakeFile, WorkCntStr, OptsStr] ->
+               {ok, Opts} = strToTerm(OptsStr),
+               make(max(1, list_to_integer(WorkCntStr)), EMakeFile, Opts, IsAll)
+         end
    end.
 
 eMakeFile() ->