X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_common.erl;h=b016a0fd73fcf6f49cfc7f0452970c8728d6ab0a;hp=3806df35b8607cd373e5d4aed8ea8f866291f4d0;hb=5d9992368bb386d2e606ae037c5478fe10ac70e8;hpb=217c4d7a0d5f9fee3a8ef0a05ab8506c7f39d5e5 diff --git a/modules/erl/euphorik_common.erl b/modules/erl/euphorik_common.erl index 3806df3..b016a0f 100644 --- a/modules/erl/euphorik_common.erl +++ b/modules/erl/euphorik_common.erl @@ -15,12 +15,12 @@ % % You should have received a copy of the GNU General Public License % along with Euphorik. If not, see . -% -% Module avec plein de bordel utile à l'intérieur. -% @author G.Burri +% +% Module with some useful stuffs. -module(euphorik_common). +-author("Greg Burri "). -export([ ceiling/1, delta_date_ms/2, @@ -40,7 +40,7 @@ ceiling(X) -> Pos when Pos > 0 -> T + 1; _ -> T end. - + % Retourne la difference entre deux timestamp (erlang:now()) en miliseconde delta_date_ms(D1, D2) -> @@ -50,14 +50,14 @@ delta_date_ms(D1, D2) -> % Retourne la différence entre deux timestamp (erlang:now) en minutes delta_date_minute(D1, D2) -> trunc(delta_date_ms(D1, D2) / 1000 / 60). - + serialize_ip(undefined) -> ""; serialize_ip(IP) -> lists:flatten(io_lib:format("~w.~w.~w.~w", tuple_to_list(IP))). - - + + unserialize_ip(IP) -> case io_lib:fread("~d.~d.~d.~d", IP) of {ok, [A, B, C, D], []} -> {A, B, C, D};