/core/engine/tools.erl

 1-module(tools).
 2-export([sleep/1,getLongDate/0,keyfind/3,for/3]).
 3
 4%% Sleep ????
 5sleep(Sleep) ->
 6	receive
 7	
 8	after Sleep -> true
 9    
10	end.
11	
12getLongDate() ->
13	{MegaSecs, Secs, MicroSecs} = now(),
14	Seed = 1000 * 1000,
15	(MegaSecs * Seed + Secs) *Seed + MicroSecs.
16	
17%% ????
18keyfind(Key, N, List) ->
19	
20	case lists:keysearch(Key, N, List) of
21		
22		false -> false;
23		{_Val, Result} -> Result;
24		_ELSE -> false
25	end.
26
27%% ????for ????
28for(I, I, Fun) -> Fun(I);	
29for(I, N, Fun) ->
30	Fun(I),
31	for(I+1, N, Fun).