/core/engine/tools.erl

http://erlbattle.googlecode.com/ · Erlang · 31 lines · 20 code · 8 blank · 3 comment · 3 complexity · 4524ddfe958bdc10bb28941831963165 MD5 · raw file 

    

  1. -module(tools).

    2. 

  2. -export([sleep/1,getLongDate/0,keyfind/3,for/3]).

    3. 

  3. 

    4. 

  4. %% Sleep ????

    5. 

  5. sleep(Sleep) ->

    6. 

  6. 	receive

    7. 

  7. 	

    8. 

  8. 	after Sleep -> true

    9. 

  9.     

    10. 

  10. 	end.

    11. 

  11. 	

    12. 

  12. getLongDate() ->

    13. 

  13. 	{MegaSecs, Secs, MicroSecs} = now(),

    14. 

  14. 	Seed = 1000 * 1000,

    15. 

  15. 	(MegaSecs * Seed + Secs) *Seed + MicroSecs.

    16. 

  16. 	

    17. 

  17. %% ????

    18. 

  18. keyfind(Key, N, List) ->

    19. 

  19. 	

    20. 

  20. 	case lists:keysearch(Key, N, List) of

    21. 

  21. 		

    22. 

  22. 		false -> false;

    23. 

  23. 		{_Val, Result} -> Result;

    24. 

  24. 		_ELSE -> false

    25. 

  25. 	end.

    26. 

  26. 

    27. 

  27. %% ????for ????

    28. 

  28. for(I, I, Fun) -> Fun(I);	

    29. 

  29. for(I, N, Fun) ->

    30. 

  30. 	Fun(I),

    31. 

  31. 	for(I+1, N, Fun).
    32.