fix ai_ascii_random

Author: DavidAlphaFox

src/process/ai_ascii_random.erl

@@ -23,32 +23,32 @@
 
 -define(SERVER, ?MODULE).
 -define(RAND, 
-			begin
-                case code:ensure_loaded(rand) of
-                	{module, rand} -> rand;
-                  	_ -> random
-                end
-            end).
+        begin
+          case code:ensure_loaded(rand) of
+            {module, rand} -> rand;
+            _ -> random
+          end
+        end).
 -define(SEED_STATE, 
-			begin
-                case code:ensure_loaded(rand) of
-                    {module, rand} -> exs1024;
-                    _ -> erlang:system_time(micro_seconds)
-                end
-            end).
+        begin
+          case code:ensure_loaded(rand) of
+            {module, rand} -> exs1024;
+            _ -> erlang:system_time(microseconds)
+          end
+        end).
 -define(CHARS, "azertyuiopqsdfghjklmwxcvbnAZERTYUIOPQSDFGHJKLMWXCVBN1234567890").
 -record(state,{chars}).
 
 % @hidden
 start_link() ->
-	gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
+  gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
 
 start_link(Args)->
-	Type = proplists:get_value(register,Args),
-	case Type of 
-		undefined -> gen_server:start_link(?MODULE,Args,[]);
-		_ -> gen_server:start_link({Type, ?SERVER}, ?MODULE, [], [])
-	end.
+  Type = proplists:get_value(register,Args),
+  case Type of
+    undefined -> gen_server:start_link(?MODULE,Args,[]);
+    _ -> gen_server:start_link({Type, ?SERVER}, ?MODULE, [], [])
+  end.
 
 randp(Pid,Length)->
   gen_server:call(Pid,{rand,Length}).
@@ -63,17 +63,17 @@ rand(Length, Allowed) -> randp(?SERVER,Length,Allowed).
 
 % @hidden
 init(Args) ->
-	Chars = proplists:get_value(chars,Args,?CHARS),
-  	_ = erlang:apply(?RAND, seed, [?SEED_STATE]),
-  	{ok, #state{chars = Chars}}.
+  Chars = proplists:get_value(chars,Args,?CHARS),
+  _ = erlang:apply(?RAND, seed, [?SEED_STATE]),
+  {ok, #state{chars = Chars}}.
 
 % @hidden
 handle_call({rand,Length},_From,#state{chars = Allowed} = State)->
-	{reply, private_rand(Length, Allowed), State};
+  {reply, private_rand(Length, Allowed), State};
 handle_call({rand, Length, Allowed}, _From, State) ->
-  	{reply, private_rand(Length, Allowed), State};
+  {reply, private_rand(Length, Allowed), State};
 handle_call(_Request, _From, State) ->
-  	{reply, ok, State}.
+  {reply, ok, State}.
 
 % @hidden
 handle_cast(_Msg, State) -> {noreply, State}.
@@ -90,7 +90,6 @@ code_change(_OldVsn, State, _Extra) -> {ok, State}.
 % Service implementation
 
 private_rand(Size, Allowed) ->
-	AllowedLength = length(Allowed),
- 	lists:flatten([lists:sublist(Allowed, erlang:apply(?RAND, uniform, [AllowedLength]), 1) 
-  		|| _ <- lists:seq(1, Size)]).
-
+  AllowedLength = length(Allowed),
+  lists:flatten([lists:sublist(Allowed, erlang:apply(?RAND, uniform, [AllowedLength]), 1)
+                 || _ <- lists:seq(1, Size)]).